Files
open-insight/LSL2/OIEVENT/CLICK/RDS_PRE_EPI_ORG.SURF_SCAN_BUTTON.json
2024-03-25 15:12:53 -07:00

11 lines
865 B
JSON

{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "DECLARE SUBROUTINE obj_AppWindow, Set_Property\r\nDECLARE FUNCTION Get_Property\r\n\r\nCtrls = @WINDOW:'.WO':@RM\t\t\t; Props = 'TEXT':@RM\r\nCtrls := @WINDOW:'.CASS_NO':@RM\t\t; Props = 'TEXT':@RM\r\nCtrls := @WINDOW:'.WO_STEP':@RM\t\t; Props = 'TEXT':@RM\r\nCtrls := @WINDOW:'.RDS_NO'\t\t\t; Props = 'TEXT'\r\n\r\nVals = Get_Property(Ctrls,Props)\r\n\r\nWONo \t= Vals[1,@RM]\r\nCassNo\t= Vals[COL2()+1,@RM]\r\nWOStep\t= Vals[COL2()+1,@RM]\r\nRDSNo\t= Vals[COL2()+1,@RM]\r\n\r\nStage = 'PE'\t\t\t\t\t;* Pre Epi\r\n\r\nSurfScanKey = WONo:'*':WOStep:'*':CassNo:'*':Stage\r\nobj_AppWindow('ViewRelated','SURFACE_SCAN':@RM:SurfScanKey)\r\n\r\nSet_Property('SURFACE_SCAN.RDS_NO','TEXT',RDSNo)\r\n\r\nRETURN 1"
}
}
}