#!/////////////////////////////*AA+ TEMPLATES*//////////////////////////////
#CONTROL(CallReadWedge,'Call ReadWedge Button'),MULTI,DESCRIPTION('ReadWedge -> ' & %AACallReadWedgeFuntion),REQ(AACommunication)
  CONTROLS
  BUTTON('Start'),USE(?Button:ReadWedge),ICON(ICON:Connect),LEFT,SKIP,AT(,,52,14)
  END
#!--------------------------------------------------------------------------
#!**********************GENIUS AGONY REGRETS CODING*************************
#!//////////////////////////////////////////////////////////////////////////
#!
#!~~~~~~~~~~~~~~~~~~~~~~~~~~Ask SomeThing to the Programmer~~~~~~~~~~~~~~~~~
#!
#BOXED('Call ReadWedge Button')
#!
  #BUTTON('Parameters'),AT(,12)
    #BOXED('Procedure Setting')
    #DISPLAY('')
      #Prompt('Procedure Name:',@S16),%AACallReadWedgeFuntion,DEFAULT('ReadWedge') #!,PROMPTAT(10,96),AT(60,96,60)
    #ENDBOXED
  #ENDBUTTON
#!
  #BUTTON('Other Button Validation'),AT(,12,90)
  #ENDBUTTON
#!
  #BUTTON('Before Calling'),AT(10,30)
  #ENDBUTTON
#!
  #BUTTON('After Calling'),AT(100,30,90)
  #ENDBUTTON
#!
#ENDBOXED
#!
#!
#!**************************************************************************
#!---------------------------CONTROL FIX AND DECLARATIONS-------------------
#!**************************************************************************
#!
#ATSTART
  #!
  #DECLARE(%AACallReadWedgeControl)
  #FOR(%Control),WHERE(%ControlInstance = %ActiveTemplateInstance)
    #IF (%ControlOriginal = '?Button:ReadWedge')
      #SET(%AACallReadWedgeControl, %Control)
      #BREAK
    #ENDIF
  #ENDFOR
#ENDAT