phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
LSL2/OIEVENT/CHANGED/NDW_GAN_PROD_SPEC.PRECLEAN_AKRIONRECIPES.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function prod_spec_comm\r\ndeclare subroutine forward_event\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nforward_event(NewData)\r\nVoid = prod_spec_comm( \"LOAD_TOOL_RECIPE\" )\r\nRETURN 0\r\n"
"<1>": "declare function prod_spec_comm\r\ndeclare subroutine forward_event\r\n\r\nforward_event(NewData)\r\nVoid = prod_spec_comm( \"LOAD_TOOL_RECIPE\" )\r\nRETURN 0\r\n"
}
}
}

2
LSL2/OIEVENT/CHANGED/PROD_SPEC_SI.PRECLEAN_AKRIONRECIPES.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function prod_spec_comm\r\ndeclare subroutine forward_event\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nforward_event(NewData)\r\nVoid = prod_spec_comm( \"LOAD_TOOL_RECIPE\" )\r\nRETURN 0\r\n"
"<1>": "declare function prod_spec_comm\r\ndeclare subroutine forward_event\r\n\r\nforward_event(NewData)\r\nVoid = prod_spec_comm( \"LOAD_TOOL_RECIPE\" )\r\nRETURN 0\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/NOTES.SAVE_SEND.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "DECLARE FUNCTION RowExists, Send_Event\r\nDECLARE SUBROUTINE ErrMsg\r\n\r\n$insert lsl_common\r\n$insert logical\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nif rowexists( 'NOTES', .seq->text ) then\r\n\r\n\tErrMsg('Contact FI immediately. Your are looking at the bug in the eMail system.')\r\n\t\r\n\t@@window->savewarn = 0\r\n\tVoid = send_event( @window, 'CLEAR', 0, 1, 1, '' )\r\n\tvoid = send_event( @window, 'CLOSE' )\r\n\tMisc@<CenterWindow$> = false$\r\n\treturn 0\r\nend else\r\n return 1\r\nend\r\n"
"<1>": "DECLARE FUNCTION RowExists, Send_Event\r\nDECLARE SUBROUTINE ErrMsg\r\n\r\n$insert lsl_common\r\n$insert logical\r\n\r\nif rowexists( 'NOTES', .seq->text ) then\r\n\r\n\tErrMsg('Contact FI immediately. Your are looking at the bug in the eMail system.')\r\n\t\r\n\t@@window->savewarn = 0\r\n\tVoid = send_event( @window, 'CLEAR', 0, 1, 1, '' )\r\n\tvoid = send_event( @window, 'CLOSE' )\r\n\tMisc@<CenterWindow$> = false$\r\n\treturn 0\r\nend else\r\n return 1\r\nend\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/PROD_SPEC.SPEC_BUTTON_FIX.json
View File

File diff suppressed because one or more lines are too long

2
LSL2/OIEVENT/CLICK/PROD_SPEC_QUERY.PERFORM_QUERY_BUTTON.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, ex_vm_rem\r\n\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\n\r\nopen 'DICT.PROD_SPEC' to DictProdSpecTable else\r\n Void = msg( '', 'Unable to open DICT.PROD_SPEC...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nCustIds\t\t= .customer_info->array<1>\r\nPartNums\t= .part_nums->array\r\nActive\t\t= .active_check->check\r\nInactive\t= .inactive_check->check\r\nHold\t\t= Get_Property(@WINDOW:'.HOLD_CHECK','CHECK')\r\n\r\n*\r\nPreProd = .preprod->check\r\nProd = .prod->check\r\nQual = .qual->check\r\nPreQual = .prequal->check\r\n*\r\nSiGe = .rt_sige->check\r\nEpsilon = .rt_epsilon->check\r\nASMPlus\t= .rt_asm_plus->check\r\nEpiPro = .rt_epipro->check\r\nHTR = .rt_htr->check\r\n*\r\nIf @User4 EQ 'DAN_CR' OR @UserName EQ 'DAN_CR' then debug\r\nCustIds = ex_vm_rem(CustIds)\r\nPartNums = ex_vm_rem(PartNums)\r\nif CustIds then\r\n *SearchStr<-1> = 'CUST_NO_USAGE':@vm:CustIds\r\n SearchStr<-1> = 'PROD_VER_CUST_NO':@vm:CustIds\t\t;* Changed from 'CUST_NO' on 12/18/2014 jch\r\nend\r\nif PartNums then\r\n SearchStr<-1> = 'CUST_PART_NO':@vm:PartNums\r\nend\r\nStatusVar = ''\r\nif Active then\r\n StatusVar<1,-1> = 'A'\r\nend\r\nif Inactive then\r\n StatusVar<1,-1> = 'I'\r\nend\r\n\r\nIF Hold THEN\r\n\tStatusVar<1,-1> = 'H'\r\nEND\r\n\r\nif StatusVar <> '' then\r\n SearchStr<-1> = 'STATUS':@vm:StatusVar\r\nend\r\n*\r\nSpecTypeVar = ''\r\nif PreProd then\r\n SpecTypeVar<1,-1> = 'E'\r\nend\r\nif Prod then\r\n SpecTypeVar<1,-1> = 'P'\r\nend\r\nif Qual then\r\n SpecTypeVar<1,-1> = 'Q'\r\nend\r\nif PreQual then\r\n SpecTypeVar<1,-1> = 'U'\r\nend\r\nif SpecTypeVar <> '' then\r\n SearchStr<-1> = 'SPEC_TYPE':@vm:SpecTypeVar\r\nend\r\n*\r\nRTypeVar = ''\r\n\r\nif SiGe then\tRTypeVar<1,-1> = 'SIG'\r\nif Epsilon then\tRTypeVar<1,-1> = 'ASM'\r\nIF ASMPlus THEN\tRTypeVar<1,-1> = 'ASM+'\r\nif EpiPro then\tRTypeVar<1,-1> = 'EPP'\r\nif HTR then\t\tRTypeVar<1,-1> = 'HTR'\r\n\r\nif RTypeVar <> '' then\r\n\tSearchStr<-1> = 'REACTOR_TYPE':@vm:RTypeVar\r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n \r\n * do a btree.extract\r\n\r\n \r\n btree.extract( SearchStr, 'PROD_SPEC', DictProdSpecTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting PROD_SPEC records...' )\r\n return 0\r\n end\r\n \r\n if Keys then\r\n convert @vm to @fm in Keys\r\n * Keys = key_sort( Keys, 'PROD_SPEC', 'CUST_NAME':@fm:'#REV_DATE', 1 )\r\n Keys = key_sort( Keys, 'PROD_SPEC', 'CUST_NAME', 1 )\r\n \r\n end_dialog( @window, Keys )\r\n \r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'No records found meeting your criteria...' \r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n \r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You have not entered any search criteria...' \r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n"
"<1>": "declare subroutine btree.extract, update_index, rlist, end_dialog\r\ndeclare function msg, key_sort, utility, ex_vm_rem\r\n\r\n$insert lsl_users_equ\r\n$insert msg_equates\r\n\r\n\r\nopen 'DICT.PROD_SPEC' to DictProdSpecTable else\r\n Void = msg( '', 'Unable to open DICT.PROD_SPEC...' )\r\n return 0\r\nend\r\n\r\nSearchStr = ''\r\nCustIds\t\t= .customer_info->array<1>\r\nPartNums\t= .part_nums->array\r\nActive\t\t= .active_check->check\r\nInactive\t= .inactive_check->check\r\nHold\t\t= Get_Property(@WINDOW:'.HOLD_CHECK','CHECK')\r\n\r\n*\r\nPreProd = .preprod->check\r\nProd = .prod->check\r\nQual = .qual->check\r\nPreQual = .prequal->check\r\n*\r\nSiGe = .rt_sige->check\r\nEpsilon = .rt_epsilon->check\r\nASMPlus\t= .rt_asm_plus->check\r\nEpiPro = .rt_epipro->check\r\nHTR = .rt_htr->check\r\n*\r\n\r\nCustIds = ex_vm_rem(CustIds)\r\nPartNums = ex_vm_rem(PartNums)\r\nif CustIds then\r\n *SearchStr<-1> = 'CUST_NO_USAGE':@vm:CustIds\r\n SearchStr<-1> = 'PROD_VER_CUST_NO':@vm:CustIds\t\t;* Changed from 'CUST_NO' on 12/18/2014 jch\r\nend\r\nif PartNums then\r\n SearchStr<-1> = 'CUST_PART_NO':@vm:PartNums\r\nend\r\nStatusVar = ''\r\nif Active then\r\n StatusVar<1,-1> = 'A'\r\nend\r\nif Inactive then\r\n StatusVar<1,-1> = 'I'\r\nend\r\n\r\nIF Hold THEN\r\n\tStatusVar<1,-1> = 'H'\r\nEND\r\n\r\nif StatusVar <> '' then\r\n SearchStr<-1> = 'STATUS':@vm:StatusVar\r\nend\r\n*\r\nSpecTypeVar = ''\r\nif PreProd then\r\n SpecTypeVar<1,-1> = 'E'\r\nend\r\nif Prod then\r\n SpecTypeVar<1,-1> = 'P'\r\nend\r\nif Qual then\r\n SpecTypeVar<1,-1> = 'Q'\r\nend\r\nif PreQual then\r\n SpecTypeVar<1,-1> = 'U'\r\nend\r\nif SpecTypeVar <> '' then\r\n SearchStr<-1> = 'SPEC_TYPE':@vm:SpecTypeVar\r\nend\r\n*\r\nRTypeVar = ''\r\n\r\nif SiGe then\tRTypeVar<1,-1> = 'SIG'\r\nif Epsilon then\tRTypeVar<1,-1> = 'ASM'\r\nIF ASMPlus THEN\tRTypeVar<1,-1> = 'ASM+'\r\nif EpiPro then\tRTypeVar<1,-1> = 'EPP'\r\nif HTR then\t\tRTypeVar<1,-1> = 'HTR'\r\n\r\nif RTypeVar <> '' then\r\n\tSearchStr<-1> = 'REACTOR_TYPE':@vm:RTypeVar\r\nend\r\n\r\nif SearchStr then\r\n SearchStr := @fm\r\n Void = utility( 'CURSOR', 'H' )\r\n \r\n * do a btree.extract\r\n\r\n \r\n btree.extract( SearchStr, 'PROD_SPEC', DictProdSpecTable, Keys, '', Flag )\r\n if Flag <> 0 then\r\n Void = msg( '', 'Error while extracting PROD_SPEC records...' )\r\n return 0\r\n end\r\n \r\n if Keys then\r\n convert @vm to @fm in Keys\r\n * Keys = key_sort( Keys, 'PROD_SPEC', 'CUST_NAME':@fm:'#REV_DATE', 1 )\r\n Keys = key_sort( Keys, 'PROD_SPEC', 'CUST_NAME', 1 )\r\n \r\n end_dialog( @window, Keys )\r\n \r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'No records found meeting your criteria...' \r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\n end\r\n \r\n Void = utility( 'CURSOR', 'A' )\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You have not entered any search criteria...' \r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nreturn 0\r\n\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/PROD_SPEC_SI.SAVE_FIX.json
View File

File diff suppressed because one or more lines are too long

2
LSL2/OIEVENT/CLICK/QUOTE_SRL.DUP_QUOTE_BUTTON.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function next_key, send_event, msg, security_check\r\ndeclare subroutine security_err_msg, delete_row\r\n$insert security_rights_equ\r\n$insert quote_equ\r\n\r\nif security_check( 'Quote SRL', Write$ ) then\r\n * save off all data\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n convert @fm to @rm in AllControls\r\n AllData = get_property( Allcontrols, 'TEXT' )\r\n QuoteDetail = .quote_detail->array\r\n SpecSubstrate = .spec_substrate->text\r\n SpecEpi = .spec_epi->text\r\n OrigQuoteNo = .quote_no->text\r\n\tChoice = send_event( @window, 'CLEAR' )\r\n\tif Choice = '' then\r\n\t * if choice has a value then the user has canceled \r\n\t\topen 'QUOTE_SRL' to QuoteTableVar else\r\n\t\t Void = msg( '', 'Unable to open QUOTE_SRL...' )\r\n\t\t return 0\r\n\t\tend\r\n\t\tNextQuoteKey = next_key( 'QUOTE_SRL', QuoteTableVar, 'NEXT', '' )\r\n\t\t.quote_no->text = NextQuoteKey\r\n\t\tunlock QuoteTableVar, NextQuoteKey else\r\n\t\t Void = msg( '', 'Unable to unlock QUOTE SRL ':NextQuoteKey )\r\n\t\t return 0\r\n\t\tend\r\n\t\tVoid = send_event( @window:'.QUOTE_NO', 'LOSTFOCUS' )\r\n\t\tVoid = set_property( AllControls, 'TEXT', AllData )\r\n\t\t.quote_no->text = NextQuoteKey\r\n \t\t.entry_date->text = oconv( date(), 'D2/' )\r\n\t\t.entry_id->text = oconv( @username, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\t\t*delete_row( 'QUOTE', NextQuoteKey, '' ) ;* the user may not want to save\r\n\t\t* OI WILL NOW ONLY WRITE WHAT HAS CHANGED SINCE THE READ\r\n end\r\nend else\r\n security_err_msg( 'Quote SRL', Write$ )\r\nend\r\nRETURN 0"
"<1>": "declare function next_key, send_event, msg, security_check\r\ndeclare subroutine security_err_msg, delete_row\r\n$insert security_rights_equ\r\n$insert quote_equ\r\n\r\nif security_check( 'Quote SRL', Write$ ) then\r\n * save off all data\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n convert @fm to @rm in AllControls\r\n AllData = get_property( Allcontrols, 'TEXT' )\r\n QuoteDetail = .quote_detail->array\r\n SpecSubstrate = .spec_substrate->text\r\n SpecEpi = .spec_epi->text\r\n OrigQuoteNo = .quote_no->text\r\n\tChoice = send_event( @window, 'CLEAR' )\r\n\tif Choice = '' then\r\n\t * if choice has a value then the user has canceled \r\n\t\topen 'QUOTE_SRL' to QuoteTableVar else\r\n\t\t Void = msg( '', 'Unable to open QUOTE_SRL...' )\r\n\t\t return 0\r\n\t\tend\r\n\t\tNextQuoteKey = next_key( 'QUOTE_SRL', QuoteTableVar, 'NEXT', '' )\r\n\t\t.quote_no->text = NextQuoteKey\r\n\t\tunlock QuoteTableVar, NextQuoteKey else\r\n\t\t Void = msg( '', 'Unable to unlock QUOTE SRL ':NextQuoteKey )\r\n\t\t return 0\r\n\t\tend\r\n\t\tVoid = send_event( @window:'.QUOTE_NO', 'LOSTFOCUS' )\r\n\t\tVoid = set_property( AllControls, 'TEXT', AllData )\r\n\t\t.quote_no->text = NextQuoteKey\r\n \t\t.entry_date->text = oconv( date(), 'D2/' )\r\n\t\t.entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t@@window->savewarn = 1\r\n\t\t*delete_row( 'QUOTE', NextQuoteKey, '' ) ;* the user may not want to save\r\n\t\t* OI WILL NOW ONLY WRITE WHAT HAS CHANGED SINCE THE READ\r\n end\r\nend else\r\n security_err_msg( 'Quote SRL', Write$ )\r\nend\r\nRETURN 0"
}
}
}

2
LSL2/OIEVENT/CLICK/RDS.BUTTON_20.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "DECLARE FUNCTION Dialog_Box, Msg, Get_Status, obj_WO_Mat\r\nDECLARE SUBROUTINE obj_WO_Mat, obj_WO_Mat_Log, ErrMsg\r\n\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert prod_spec_equ\r\n$INSERT REACTOR_EQUATES\r\n\r\n\t\r\n/*\r\nCurStatus = .status->value\r\nCurSig = .fw_sig->text\r\n\r\nif CurSig <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This RDS has already been signed for First Wafer Inspection.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\n RETURN 0\r\nEND\r\n\r\n* * * * \r\n\r\nIF CurStatus NE 'I' THEN\r\n\r\n\tMsgInfo = ''\r\n\tTvar = 'This RDS must go through the \"In-Process step\" '\r\n\tTvar:= 'before it can be signed for First Wafer Inspection.'\r\n\tMsgInfo<mtext$> = Tvar\r\n\tMsgInfo<micon$> = '!'\r\n\tVoid = msg( '', MsgInfo )\r\n\tRETURN 0\r\n\r\nEND\r\n\r\n* * * *\r\n\r\n*/\r\n\r\nWONo\t= Get_Property(@WINDOW:'.WO','DEFPROP')\r\nCassNo\t= Get_Property(@WINDOW:'.CASS_NO','DEFPROP')\r\n \r\nWOMatCurrStatus = obj_WO_Mat('CurrStatus',WONo:'*':CassNo)\r\n\r\nIF WOMatCurrStatus = 'HOLD' THEN\r\n\tErrorMessage = 'Cassette is on Hold and may not be signed off.':CRLF$:CRLF$\r\n\tvoid = Msg(@WINDOW, ErrorMessage, 'PROCESS_SIGNATURE_ERROR')\r\n\tRETURN 0\r\nEND\r\n\r\n* * * * Move this to the CI window ********************************************\r\n \r\nPSNId = .psn->text\r\nPSNRec = xlate( 'PROD_SPEC', PSNId, '', 'X' )\r\n \t \r\nIF Xlate( 'PROD_SPEC', PSNId, prod_spec_first_ver_inst$, 'X' ) NE '' THEN\r\n\tYes = Dialog_Box( 'RDS_VER', @window, PSNId:'*':prod_spec_first_ver_inst$ )\r\n\tIF NOT(Yes) THEN\r\n\t\tRETURN 0\r\n\tEND\r\nEND\r\n\r\n* * * *\r\n \r\n\t \r\nValid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\t\t\t\r\nIF NOT(Valid) THEN\r\n\tRETURN 0\r\nEND\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\n\r\n\r\n.fw_sig->text = @user4\r\n.fw_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.fw_sig_date->text = SigDt\r\n.fw_sig_time->text = SigTm\r\n@@window->savewarn = 1\r\n\t\t\r\n\r\nRETURN 0"
"<1>": "DECLARE FUNCTION Dialog_Box, Msg, Get_Status, obj_WO_Mat\r\nDECLARE SUBROUTINE obj_WO_Mat, obj_WO_Mat_Log, ErrMsg\r\n\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert prod_spec_equ\r\n$INSERT REACTOR_EQUATES\r\n\r\n\t\r\n/*\r\nCurStatus = .status->value\r\nCurSig = .fw_sig->text\r\n\r\nif CurSig <> '' then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This RDS has already been signed for First Wafer Inspection.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\n RETURN 0\r\nEND\r\n\r\n* * * * \r\n\r\nIF CurStatus NE 'I' THEN\r\n\r\n\tMsgInfo = ''\r\n\tTvar = 'This RDS must go through the \"In-Process step\" '\r\n\tTvar:= 'before it can be signed for First Wafer Inspection.'\r\n\tMsgInfo<mtext$> = Tvar\r\n\tMsgInfo<micon$> = '!'\r\n\tVoid = msg( '', MsgInfo )\r\n\tRETURN 0\r\n\r\nEND\r\n\r\n* * * *\r\n\r\n*/\r\n\r\nWONo\t= Get_Property(@WINDOW:'.WO','DEFPROP')\r\nCassNo\t= Get_Property(@WINDOW:'.CASS_NO','DEFPROP')\r\n \r\nWOMatCurrStatus = obj_WO_Mat('CurrStatus',WONo:'*':CassNo)\r\n\r\nIF WOMatCurrStatus = 'HOLD' THEN\r\n\tErrorMessage = 'Cassette is on Hold and may not be signed off.':CRLF$:CRLF$\r\n\tvoid = Msg(@WINDOW, ErrorMessage, 'PROCESS_SIGNATURE_ERROR')\r\n\tRETURN 0\r\nEND\r\n\r\n* * * * Move this to the CI window ********************************************\r\n \r\nPSNId = .psn->text\r\nPSNRec = xlate( 'PROD_SPEC', PSNId, '', 'X' )\r\n \t \r\nIF Xlate( 'PROD_SPEC', PSNId, prod_spec_first_ver_inst$, 'X' ) NE '' THEN\r\n\tYes = Dialog_Box( 'RDS_VER', @window, PSNId:'*':prod_spec_first_ver_inst$ )\r\n\tIF NOT(Yes) THEN\r\n\t\tRETURN 0\r\n\tEND\r\nEND\r\n\r\n* * * *\r\n \r\n\t \r\nValid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\t\t\t\r\nIF NOT(Valid) THEN\r\n\tRETURN 0\r\nEND\r\n\r\n.fw_sig->text = @user4\r\n.fw_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n.fw_sig_date->text = SigDt\r\n.fw_sig_time->text = SigTm\r\n@@window->savewarn = 1\r\n\t\t\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/CLICK/REACTLOGBS.BTN_3.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "Declare Subroutine Set_Property\r\nDeclare Function Get_Property\r\nThisRec = Get_Property(@Window,'ATRECORD')\r\nInitrnd Time()\r\nMyVar = Rnd(200)\r\nThisRec<28, -1> = MyVar\r\nSet_Property(@Window,'ATRECORD', ThisRec) \r\n\r\nreturn 1"
}
}
}

2
LSL2/OIEVENT/CLICK/REACTOR_MAINT_TODO.BUTTON_4.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, send_event, Printer_Select\r\ndeclare subroutine security_err_msg, Print_Reactor_Maint_Todo\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN\r\n\tPRINT_REACTOR_MAINT_TODO()\r\n\tRETURN 0\r\nEND\r\n\r\n\r\n\r\nVoid = send_event( @window:'.BUTTON_2', 'CLICK' )\r\nCurList = .list_1->list\r\nswap '1: ' with '' in CurList\r\nTvar = str( '-', 98 )\r\nswap Tvar with '' in CurList\r\nswap '2-2:' with '' in CurList\r\n\r\nPrintPath = Printer_Select('',1)\t\t;* Get default printer path\r\nStat = set_printer( 'INIT', '', '', '':@fm:'':@fm:0:@fm:'', '','',PrintPath )\r\n\r\ngosub CheckErr\r\nFont = \"Courier New,12,L,1\"\r\nconvert ',' to @fm in Font\r\nTfont = Font\r\nStat = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\nVoid = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\nVoid = set_printer( 'TEXT', '' )\r\nTable = ''\r\nTable = CurList\r\nColTableInfo = '<+11160'\r\nRCnt = fieldcount( CurList, @fm )\r\nfor i = 1 to RCnt\r\n Table = CurList<i>\r\n if len( Table ) > 3 then\r\n Type = TB_ALL\r\n end else\r\n Type = TB_NONE\r\n end\r\n\tx = Set_Printer(\"ADDTABLE\", ColTableInfo, '', Table, '', '', 1, Type)\r\nnext i\r\nstat = set_printer( 'TERM' ) \r\ngosub CheckErr \r\nRETURN 0\r\n\r\n*===========================================================================*\r\nCheckErr:\r\n if stat < 0 then\r\n goto FatalExit\r\n end\r\nreturn \r\n\r\n*===========================================================================*\r\nFatalExit:\r\n Void = msg( '', Stat )\r\n Stat = set_printer( 'TERM' )\r\nreturn \r\n\r\n*===========================================================================*"
"<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, send_event, Printer_Select\r\ndeclare subroutine security_err_msg, Print_Reactor_Maint_Todo\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n\r\nVoid = send_event( @window:'.BUTTON_2', 'CLICK' )\r\nCurList = .list_1->list\r\nswap '1: ' with '' in CurList\r\nTvar = str( '-', 98 )\r\nswap Tvar with '' in CurList\r\nswap '2-2:' with '' in CurList\r\n\r\nPrintPath = Printer_Select('',1)\t\t;* Get default printer path\r\nStat = set_printer( 'INIT', '', '', '':@fm:'':@fm:0:@fm:'', '','',PrintPath )\r\n\r\ngosub CheckErr\r\nFont = \"Courier New,12,L,1\"\r\nconvert ',' to @fm in Font\r\nTfont = Font\r\nStat = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\nVoid = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\nVoid = set_printer( 'TEXT', '' )\r\nTable = ''\r\nTable = CurList\r\nColTableInfo = '<+11160'\r\nRCnt = fieldcount( CurList, @fm )\r\nfor i = 1 to RCnt\r\n Table = CurList<i>\r\n if len( Table ) > 3 then\r\n Type = TB_ALL\r\n end else\r\n Type = TB_NONE\r\n end\r\n\tx = Set_Printer(\"ADDTABLE\", ColTableInfo, '', Table, '', '', 1, Type)\r\nnext i\r\nstat = set_printer( 'TERM' ) \r\ngosub CheckErr \r\nRETURN 0\r\n\r\n*===========================================================================*\r\nCheckErr:\r\n if stat < 0 then\r\n goto FatalExit\r\n end\r\nreturn \r\n\r\n*===========================================================================*\r\nFatalExit:\r\n Void = msg( '', Stat )\r\n Stat = set_printer( 'TERM' )\r\nreturn \r\n\r\n*===========================================================================*"
}
}
}

2
LSL2/OIEVENT/CLICK/REPORT_SLIST_CFG.SLIST_SCRIPT_BUTTON.json
View File

File diff suppressed because one or more lines are too long

2
LSL2/OIEVENT/CLICK/WO_MAST_SCHED.PRINT.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, popup,Printer_Select\r\ndeclare subroutine security_err_msg\r\n\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n$insert popup_equates\r\n\r\nequ Mon$ to 1\r\nequ Tue$ to 2\r\nequ Wed$ to 3\r\nequ Thurs$ to 4\r\nequ Fri$ to 5\r\nequ Sat$ to 6\r\nequ Sun$ to 7\r\n\r\nReselect:\r\n\r\nMastSchedPrintOptsPopup = xlate( 'SYSREPOSPOPUPS', @appid<1>:'**WO_MAST_SCHED_PRINT_OPTS', '', 'X' )\r\n\r\n*Display = MastSchedPrintOptsPopup<pdisplay$>\r\n\r\nDisplay = .sched_info->label\t\t\t;* List of 31 dates displayed at the top of the schedule\r\nconvert @fm to @vm in Display\r\n\r\nMastSchedPrintOptsPopup<pdisplay$> = Display\r\n\r\nSelDates = popup( @window, MastSchedPrintOptsPopup )\t\t;* Returns positions of selected dates in the list of 31\r\n\r\nSelDtCnt = fieldcount( SelDates, @vm )\r\nif SelDtCnt else\r\n return 0\r\nend\r\n\r\nif SelDtCnt > 7 then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You may only choose 7 days to print at a given time.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n goto ReSelect\r\nend\r\n**\r\n\r\nPrintPath = Printer_Select('',1)\t\t;* Get default printer path\r\nStat = set_printer( 'INIT', '', '', '':@fm:'':@fm:0:@fm:'', 1,'',PrintPath )\r\ngosub CheckErr\r\n\r\nFont = \"Courier New,12,L,1\"\r\nconvert ',' to @fm in Font\r\nTfont = Font\r\nStat = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\n\r\ngosub PrintToF\r\n\r\nFont<2> = 9\r\nFont<4> = 0\r\nVoid = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\n\r\nVoid = set_printer( 'TEXT', '' )\r\n\r\n**\r\n\r\n\r\n\r\nSInfo\t\t= .sched_info->array\r\nColHeads \t= .sched_info->label\r\n\r\nconvert @fm to @vm in ColHeads\r\n\r\nNewColHeads = ''\r\n\r\nfor I = 1 to SelDtCnt\r\n NewColHeads<1,-1> = ColHeads<1,SelDates<1,I>>\r\nnext I\r\n\r\nTable = ''\r\nTable<1> = 'R#':@vm:NewColHeads\r\n\r\nRcnt = fieldcount( SInfo<1>, @vm )\r\n\r\nTFont<2> = 9\r\nStat = set_printer( 'FONT', TFont )\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nfor i = 1 to Rcnt\r\n Tvar = trim(SInfo<SelDates<1,1>,i>):trim(SInfo<SelDates<1,2>,i>):trim(SInfo<SelDates<1,3>,i>):trim(SInfo<SelDates<1,4>,i>):trim(SInfo<SelDates<1,5>,i>):trim(SInfo<SelDates<1,6>,i>):trim(SInfo<SelDates<1,7>,i>)\r\n \r\n \r\n \r\n if Tvar = '|||||||' or Tvar = '||||||' then \r\n \t\r\n * Tom puts a '|' when not in use and if it is not in use for all 7 days then don't print\r\n end else\r\n Table<-1> = i:@vm:SInfo<SelDates<1,1>,i>:@vm:SInfo<SelDates<1,2>,i>:@vm:SInfo<SelDates<1,3>,i>:@vm:SInfo<SelDates<1,4>,i>:@vm:SInfo<SelDates<1,5>,i>:@vm:SInfo<SelDates<1,6>,i>:@vm:SInfo<SelDates<1,7>,i>\r\n end\r\nnext i\r\n\r\nColTableInfo = '>+360':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044'\r\nx = Set_Printer(\"ADDTABLE\", ColTableInfo, '', Table, '', '', 1, TB_ALL)\r\nstat = set_printer( 'TERM' ) \r\ngosub CheckErr \r\n\r\nRETURN 0\r\n*===========================================================================*\r\nPrintTof:\r\n TFont<1> = 24\r\n TFont<3> = 'C'\r\n Stat = set_printer( 'FONT', TFont )\r\n LineOut = ''\r\n LineOut = 'Reactor Master Scheduler'\r\n Void = set_printer( 'TEXT', LineOut ) \r\n TFont<1> = 16 \r\n Stat = set_printer( 'FONT', TFont ) \r\n LineOut = 'For the month of ':.month->text\r\n Void = set_printer( 'TEXT', LineOut )\r\n Void = set_printer( 'TEXT', '' )\r\n Stat = set_printer( 'FONT', Font ) \r\nreturn \r\n\r\n*===========================================================================*\r\nCheckErr:\r\n if stat < 0 then\r\n goto FatalExit\r\n end\r\nreturn \r\n\r\n*===========================================================================*\r\nFatalExit:\r\n Void = msg( '', Stat )\r\n Stat = set_printer( 'TERM' )\r\nreturn \r\n\r\n*===========================================================================*\r\n"
"<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, popup,Printer_Select\r\ndeclare subroutine security_err_msg\r\n\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n$insert popup_equates\r\n\r\nequ Mon$ to 1\r\nequ Tue$ to 2\r\nequ Wed$ to 3\r\nequ Thurs$ to 4\r\nequ Fri$ to 5\r\nequ Sat$ to 6\r\nequ Sun$ to 7\r\n\r\nReselect:\r\n\r\nMastSchedPrintOptsPopup = xlate( 'SYSREPOSPOPUPS', @appid<1>:'**WO_MAST_SCHED_PRINT_OPTS', '', 'X' )\r\n\r\n*Display = MastSchedPrintOptsPopup<pdisplay$>\r\n\r\nDisplay = .sched_info->label\t\t\t;* List of 31 dates displayed at the top of the schedule\r\nconvert @fm to @vm in Display\r\n\r\nMastSchedPrintOptsPopup<pdisplay$> = Display\r\n\r\nSelDates = popup( @window, MastSchedPrintOptsPopup )\t\t;* Returns positions of selected dates in the list of 31\r\n\r\nSelDtCnt = fieldcount( SelDates, @vm )\r\nif SelDtCnt else\r\n return 0\r\nend\r\n\r\nif SelDtCnt > 7 then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You may only choose 7 days to print at a given time.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n goto ReSelect\r\nend\r\n**\r\n\r\nPrintPath = Printer_Select('',1)\t\t;* Get default printer path\r\nStat = set_printer( 'INIT', '', '', '':@fm:'':@fm:0:@fm:'', 1,'',PrintPath )\r\ngosub CheckErr\r\n\r\nFont = \"Courier New,12,L,1\"\r\nconvert ',' to @fm in Font\r\nTfont = Font\r\nStat = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\n\r\ngosub PrintToF\r\n\r\nFont<2> = 9\r\nFont<4> = 0\r\nVoid = set_printer( 'FONT', Font )\r\ngosub CheckErr\r\n\r\nVoid = set_printer( 'TEXT', '' )\r\n\r\n**\r\n\r\n\r\n\r\nSInfo\t\t= .sched_info->array\r\nColHeads \t= .sched_info->label\r\n\r\nconvert @fm to @vm in ColHeads\r\n\r\nNewColHeads = ''\r\n\r\nfor I = 1 to SelDtCnt\r\n NewColHeads<1,-1> = ColHeads<1,SelDates<1,I>>\r\nnext I\r\n\r\nTable = ''\r\nTable<1> = 'R#':@vm:NewColHeads\r\n\r\nRcnt = fieldcount( SInfo<1>, @vm )\r\n\r\nTFont<2> = 9\r\nStat = set_printer( 'FONT', TFont )\r\n\r\nfor i = 1 to Rcnt\r\n Tvar = trim(SInfo<SelDates<1,1>,i>):trim(SInfo<SelDates<1,2>,i>):trim(SInfo<SelDates<1,3>,i>):trim(SInfo<SelDates<1,4>,i>):trim(SInfo<SelDates<1,5>,i>):trim(SInfo<SelDates<1,6>,i>):trim(SInfo<SelDates<1,7>,i>)\r\n \r\n \r\n \r\n if Tvar = '|||||||' or Tvar = '||||||' then \r\n \t\r\n * Tom puts a '|' when not in use and if it is not in use for all 7 days then don't print\r\n end else\r\n Table<-1> = i:@vm:SInfo<SelDates<1,1>,i>:@vm:SInfo<SelDates<1,2>,i>:@vm:SInfo<SelDates<1,3>,i>:@vm:SInfo<SelDates<1,4>,i>:@vm:SInfo<SelDates<1,5>,i>:@vm:SInfo<SelDates<1,6>,i>:@vm:SInfo<SelDates<1,7>,i>\r\n end\r\nnext i\r\n\r\nColTableInfo = '>+360':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044':@vm:'<+2044'\r\nx = Set_Printer(\"ADDTABLE\", ColTableInfo, '', Table, '', '', 1, TB_ALL)\r\nstat = set_printer( 'TERM' ) \r\ngosub CheckErr \r\n\r\nRETURN 0\r\n*===========================================================================*\r\nPrintTof:\r\n TFont<1> = 24\r\n TFont<3> = 'C'\r\n Stat = set_printer( 'FONT', TFont )\r\n LineOut = ''\r\n LineOut = 'Reactor Master Scheduler'\r\n Void = set_printer( 'TEXT', LineOut ) \r\n TFont<1> = 16 \r\n Stat = set_printer( 'FONT', TFont ) \r\n LineOut = 'For the month of ':.month->text\r\n Void = set_printer( 'TEXT', LineOut )\r\n Void = set_printer( 'TEXT', '' )\r\n Stat = set_printer( 'FONT', Font ) \r\nreturn \r\n\r\n*===========================================================================*\r\nCheckErr:\r\n if stat < 0 then\r\n goto FatalExit\r\n end\r\nreturn \r\n\r\n*===========================================================================*\r\nFatalExit:\r\n Void = msg( '', Stat )\r\n Stat = set_printer( 'TERM' )\r\nreturn \r\n\r\n*===========================================================================*\r\n"
}
}
}

2
LSL2/OIEVENT/CLICK/WO_MAST_SCHED.SAVE.json
View File

File diff suppressed because one or more lines are too long

2
LSL2/OIEVENT/CLOSE/RDS_POST_EPI..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function check_notes\r\ndeclare subroutine forward_event\r\n\r\nforward_event( CancelFlag )\r\n*Void = check_notes()\r\nRETURN 0"
"<1>": "declare function check_notes\r\ndeclare subroutine forward_event, Set_Property\r\n\r\nOrigWCQty = Get_Property(@Window, '@ORIG_WFR_CTR_QTY')\r\nCurrWCQty = Get_Property(@Window:'.EDL_WAFER_COUNTER_QTY', 'TEXT')\r\nIf OrigWCQty NE CurrWCQty then Set_Property(@Window, 'SAVEWARN', 1)\r\n\r\nforward_event( CancelFlag )\r\n*Void = check_notes()\r\nRETURN 0"
}
}
}

2
LSL2/OIEVENT/CREATE/LISTBOX_CONFIG..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "\r\ndeclare function msg, send_event, admin_user, center_window\r\n$insert msg_equates\r\n$insert listbox_config_equ\r\n$insert quote_sigs_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif admin_user( @user4 ) OR @USERNAME = 'BRYCE_BARB' then\r\n * OK THEY ARE AN ADMINISTRATOR, SO ALSO SHOW THE MANUF_CHECK BOX\r\n .MANUF_CHECK->VISIBLE = 1\r\nend else\r\n ProdMgr = xlate( 'CONFIG', 'QUOTE_SIGS', ProdMgr$, 'X' )\r\n if ( @user4 = ProdMgr ) or ( @user4 = 'PAUL_W' ) or ( @user4 = 'PETER_Z' ) then\r\n * IT IS THE MFG MGR - ON READ NEED TO CHECK TO SEE IF \r\n * THE RECORD IS CHECKED FOR MANUF_CHECK OTHERWISE DISALLOW\r\n .MANUF_CHECK->VISIBLE = 0\r\n end else\r\n\t\tMessage = 'You do not have the proper security to enter ListBox entries...' \r\n\t\tMessage<micon$> = 'H'\r\n\t\tVoid = msg( '', Message )\r\n\t\tVoid = send_event( @window, 'CLOSE' )\r\n\tend\r\nend\r\n\r\nRETURN 1"
"<1>": "\r\ndeclare function msg, send_event, admin_user, center_window\r\n$insert msg_equates\r\n$insert listbox_config_equ\r\n$insert quote_sigs_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif admin_user( @user4 ) then\r\n * OK THEY ARE AN ADMINISTRATOR, SO ALSO SHOW THE MANUF_CHECK BOX\r\n .MANUF_CHECK->VISIBLE = 1\r\nend else\r\n ProdMgr = xlate( 'CONFIG', 'QUOTE_SIGS', ProdMgr$, 'X' )\r\n if ( @user4 = ProdMgr ) or ( @user4 = 'PAUL_W' ) or ( @user4 = 'PETER_Z' ) then\r\n * IT IS THE MFG MGR - ON READ NEED TO CHECK TO SEE IF \r\n * THE RECORD IS CHECKED FOR MANUF_CHECK OTHERWISE DISALLOW\r\n .MANUF_CHECK->VISIBLE = 0\r\n end else\r\n\t\tMessage = 'You do not have the proper security to enter ListBox entries...' \r\n\t\tMessage<micon$> = 'H'\r\n\t\tVoid = msg( '', Message )\r\n\t\tVoid = send_event( @window, 'CLOSE' )\r\n\tend\r\nend\r\n\r\nRETURN 1"
}
}
}

2
LSL2/OIEVENT/CREATE/MODS..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function msg, send_event, admin_user, center_window, mods_load_control, end_window\r\ndeclare function get_status\r\ndeclare subroutine end_dialog, attach_table\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nosopen 'MODS\\MODS.TXT' to Tvar then\r\n * OFFLINE DO NOT ALLOW UPDATES\r\n osclose Tvar\r\n .us_button->enabled = 0\r\n .ua_button->enabled = 0\r\nend else\r\n * ONLINE DO NOT ALLOW NEW PROJECTS OR ADDING REPOSITORY ENTRIES OR PREPARING MODS\r\n .prep_final_button->enabled = 0\r\n .prep_button->enabled = 0\r\n .new_button->enabled = 0\r\n .sr_button->enabled = 0\r\n attach_table(\"C:\\Revsoft\\OFFnSght\\MODS\", \"\", \"\", \"\")\r\n if get_status() then\r\n Void = msg( '', 'Error while attaching offline MODS...' )\r\n Void = end_window(@window) \r\n end\r\nend\r\n* CAUSE SOMETIMES I DON'T LOG INTO THE LSL_MAIN2 AND THEN THIS ERRORS\r\n* MOST OF THE TIME WHEN I GET INTO DEVELOPMENT I GO IMMEDIATELY INTO MODS\r\nif @user4 = '' then\r\n @user4 = @username\r\nend\r\nif Admin_user( @user4 ) then \r\n\topen 'MODS_CFG' to ConfigTable else\r\n\t Void = msg( '', 'Unable to open MODS_CFG table' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tlock ConfigTable, 'MODS' else\r\n\t Void = msg( '', 'MODS is in use somewhere else...' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tread ModsInfo from ConfigTable, 'MODS' then\r\n\t if ModsInfo then\r\n\t .PSD->text = ModsInfo<1>\r\n\t .PN->text = ModsInfo<2>\r\n\t .proj_notes->text = ModsInfo<3>\r\n\t end\r\n\tend\r\nend else\r\n Message = 'You do not have the proper security to DO MODS...' \r\n Message<micon$> = 'H'\r\n Void = msg( '', Message )\r\n end_dialog( @window, '' )\r\nend\r\nVoid = mods_load_control()\r\nRETURN 1"
"<1>": "declare function msg, send_event, admin_user, center_window, mods_load_control, end_window\r\ndeclare function get_status\r\ndeclare subroutine end_dialog, attach_table\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nosopen 'MODS\\MODS.TXT' to Tvar then\r\n * OFFLINE DO NOT ALLOW UPDATES\r\n osclose Tvar\r\n .us_button->enabled = 0\r\n .ua_button->enabled = 0\r\nend else\r\n * ONLINE DO NOT ALLOW NEW PROJECTS OR ADDING REPOSITORY ENTRIES OR PREPARING MODS\r\n .prep_final_button->enabled = 0\r\n .prep_button->enabled = 0\r\n .new_button->enabled = 0\r\n .sr_button->enabled = 0\r\n attach_table(\"C:\\Revsoft\\OFFnSght\\MODS\", \"\", \"\", \"\")\r\n if get_status() then\r\n Void = msg( '', 'Error while attaching offline MODS...' )\r\n Void = end_window(@window) \r\n end\r\nend\r\n* CAUSE SOMETIMES I DON'T LOG INTO THE LSL_MAIN2 AND THEN THIS ERRORS\r\n* MOST OF THE TIME WHEN I GET INTO DEVELOPMENT I GO IMMEDIATELY INTO MODS\r\n\r\nif Admin_user( @user4 ) then \r\n\topen 'MODS_CFG' to ConfigTable else\r\n\t Void = msg( '', 'Unable to open MODS_CFG table' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tlock ConfigTable, 'MODS' else\r\n\t Void = msg( '', 'MODS is in use somewhere else...' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tread ModsInfo from ConfigTable, 'MODS' then\r\n\t if ModsInfo then\r\n\t .PSD->text = ModsInfo<1>\r\n\t .PN->text = ModsInfo<2>\r\n\t .proj_notes->text = ModsInfo<3>\r\n\t end\r\n\tend\r\nend else\r\n Message = 'You do not have the proper security to DO MODS...' \r\n Message<micon$> = 'H'\r\n Void = msg( '', Message )\r\n end_dialog( @window, '' )\r\nend\r\nVoid = mods_load_control()\r\nRETURN 1"
}
}
}

2
LSL2/OIEVENT/CREATE/PASS_DOWN..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function memberof, msg, center_window\r\ndeclare subroutine end_dialog\r\n$insert logical\r\n$insert msg_equates\r\n\r\n****wo mast sched equates***\r\nequ Days$ to 1\r\nequ Month$ to 2\r\nequ ReactorCnt$ to 3\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif memberof( @user4, 'DATA_ENTRY' ) or memberof( @user4, 'SUPERVISOR' ) or memberof( @user4, 'OPERATOR') or @USERNAME = 'BRYCE_BARB' then\r\n\tMastSchedRec = xlate( 'CONFIG', 'WO_MAST_SCHED', '', 'X' )\r\n\tNumReactors = MastSchedRec<ReactorCnt$>\r\n\tList = ''\r\n\tfor i = 20 to NumReactors\r\n\t\tBEGIN CASE\r\n\t\t\tCASE i = 74\r\n\t\t\t\tList<-1> = 'Eng Log ':i\r\n\t\t\t\t\r\n\t\t\tCASE i = 73\r\n\t\t\t\tList<-1> = 'Cleans ':i\r\n\t\t\t\t\r\n\t\t\tCASE 1\r\n\t\t\t\tList<-1> = 'Reactor ':i\r\n\t\t\r\n\t\tEND CASE\r\n\tnext i\r\n\t\r\n\t.reactors->list = List\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must be a technician or a supervisor to access this...'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end_dialog( @window, '' )\r\nend\r\nRETURN 0"
"<1>": "declare function memberof, msg, center_window\r\ndeclare subroutine end_dialog\r\n$insert logical\r\n$insert msg_equates\r\n\r\n****wo mast sched equates***\r\nequ Days$ to 1\r\nequ Month$ to 2\r\nequ ReactorCnt$ to 3\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif memberof( @user4, 'DATA_ENTRY' ) or memberof( @user4, 'SUPERVISOR' ) or memberof( @user4, 'OPERATOR') then\r\n\tMastSchedRec = xlate( 'CONFIG', 'WO_MAST_SCHED', '', 'X' )\r\n\tNumReactors = MastSchedRec<ReactorCnt$>\r\n\tList = ''\r\n\tfor i = 20 to NumReactors\r\n\t\tBEGIN CASE\r\n\t\t\tCASE i = 74\r\n\t\t\t\tList<-1> = 'Eng Log ':i\r\n\t\t\t\t\r\n\t\t\tCASE i = 73\r\n\t\t\t\tList<-1> = 'Cleans ':i\r\n\t\t\t\t\r\n\t\t\tCASE 1\r\n\t\t\t\tList<-1> = 'Reactor ':i\r\n\t\t\r\n\t\tEND CASE\r\n\tnext i\r\n\t\r\n\t.reactors->list = List\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must be a technician or a supervisor to access this...'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end_dialog( @window, '' )\r\nend\r\nRETURN 0"
}
}
}

2
LSL2/OIEVENT/CREATE/PROD_SPEC_SI..json
View File

File diff suppressed because one or more lines are too long

2
LSL2/OIEVENT/CREATE/PROD_SPEC_SI4..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "$INSERT RECIPE_EQU\r\n\r\nDECLARE SUBROUTINE Set_List_Box_data, Set_Property\r\nDECLARE FUNCTION Center_Window, Prod_Spec_Comm\r\n\r\nEQU MI$TOOL\t\t\tTO 1\r\nEQU MI$TYPE\t\t\tTO 2\r\nEQU MI$RECIPE\t\tTO 3\r\nEQU MI$FREQ\t\t\tTO 4\r\nEQU MI$PROVE_TYPE\tTO 5\r\nEQU MI$FIRST_CHECK\tTO 6\r\nEQU MI$LAST_CHECK\tTO 7\r\nEQU MI$SPC\t\t\tTO 8\r\nEQU MI$OVERGROW\t\tTO 9\r\nEQU MI$EXP_TW_QTY\tTO 10\r\nEQU MI$PATTERN\t\tTO 11\r\n\r\nIF INDEX( CreateParam, 'CENTER', 1 ) THEN\r\n void = center_window( @window )\r\nEND ELSE\r\n Void = Set_Property( @window, 'VISIBLE', 1 )\r\nEND\r\n\r\nMeasureInfo\t= FIELD( CreateParam, CHAR(245), 1 )\t\t;* 1st passed parameter\r\n\r\nCtrls = @WINDOW:'.TOOL':@RM\t\t\t\t; Props = 'TEXT':@RM\t\t; Vals = FIELD(MeasureInfo,'~',MI$TOOL):@RM\r\nCtrls := @WINDOW:'.TYPE':@RM\t\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$TYPE):@RM\r\nCtrls := @WINDOW:'.RECIPE':@RM\t\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$RECIPE):@RM\r\nCtrls := @WINDOW:'.FREQ':@RM\t\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$FREQ):@RM\r\nCtrls := @WINDOW:'.PROVE_TYPE':@RM\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$PROVE_TYPE):@RM\r\nCtrls := @WINDOW:'.FIRST_CHECK':@RM\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$FIRST_CHECK):@RM\r\nCtrls := @WINDOW:'.LAST_CHECK':@RM\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$LAST_CHECK):@RM\r\nCtrls := @WINDOW:'.SPC':@RM\t\t\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$SPC):@RM\r\nCtrls := @WINDOW:'.OVERGROW':@RM\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$OVERGROW):@RM\r\nCtrls := @WINDOW:'.EXPECTED_TW_QTY':@RM\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$EXP_TW_QTY):@RM\r\nCtrls := @WINDOW:'.PATTERN'\t\t\t\t\t; Props := 'TEXT'\t\t\t; Vals := FIELD(MeasureInfo,'~',MI$PATTERN)\r\n\r\nSet_Property(Ctrls,Props,Vals)\r\nSet_Property(@WINDOW, '@Controls',Ctrls)\r\nSet_Property(@WINDOW, '@Props',Props)\r\n\r\nType = FIELD(CreateParam,CHAR(245),2)\t\t;* 2nd passed parameter\r\n\r\nIF Type = 'RES' THEN\r\n\tvoid = Set_Property(@WINDOW:'.OVERGROW','VISIBLE',1)\r\nEND ELSE\r\n\tvoid = Set_Property(@WINDOW:'.OVERGROW','VISIBLE',0)\r\nEND\r\n\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nTypeOut = FIELD(CreateParam,CHAR(245),3)\t\t\t;* 3rd passed parameter\r\n\r\nTitle = Get_Property(@WINDOW,'TEXT')\r\nTitle := TypeOut:' ':Title\r\nSet_Property(@WINDOW,'TEXT',Title)\r\n\r\nSet_List_Box_Data(CtrlEntId)\r\n\r\n\r\nToolList = XLATE('LISTBOX_CONFIG',Type:'MEASURETOOL','','X')\r\nCONVERT @VM TO @FM IN ToolList\r\nSet_Property(@WINDOW:'.TOOL','LIST',ToolList)\r\n\r\nTool = Get_Property(@WINDOW:'.TOOL', 'TEXT' )\r\nCONVERT @LOWER_CASE TO @UPPER_CASE IN Tool\r\n\r\nRecipeList = XLATE( 'LISTBOX_CONFIG', Tool:'_RECIPES', '', 'X' )\r\nCONVERT @VM To @FM IN RecipeList\r\n\r\nIF RecipeList NE '' THEN\r\n\tSet_Property(@WINDOW:'.RECIPE','LIST',RecipeList)\r\nEND\r\n\r\nRETURN 1\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n"
"<1>": "$INSERT RECIPE_EQU\r\n\r\nDECLARE SUBROUTINE Set_List_Box_data, Set_Property\r\nDECLARE FUNCTION Center_Window, Prod_Spec_Comm\r\n\r\nEQU MI$TOOL\t\t\tTO 1\r\nEQU MI$TYPE\t\t\tTO 2\r\nEQU MI$RECIPE\t\tTO 3\r\nEQU MI$FREQ\t\t\tTO 4\r\nEQU MI$PROVE_TYPE\tTO 5\r\nEQU MI$FIRST_CHECK\tTO 6\r\nEQU MI$LAST_CHECK\tTO 7\r\nEQU MI$SPC\t\t\tTO 8\r\nEQU MI$OVERGROW\t\tTO 9\r\nEQU MI$EXP_TW_QTY\tTO 10\r\nEQU MI$PATTERN\t\tTO 11\r\n\r\nIF INDEX( CreateParam, 'CENTER', 1 ) THEN\r\n void = center_window( @window )\r\nEND ELSE\r\n Void = Set_Property( @window, 'VISIBLE', 1 )\r\nEND\r\n\r\nMeasureInfo\t= FIELD( CreateParam, CHAR(245), 1 )\t\t;* 1st passed parameter\r\n\r\nCtrls = @WINDOW:'.TOOL':@RM\t\t\t\t; Props = 'TEXT':@RM\t\t; Vals = FIELD(MeasureInfo,'~',MI$TOOL):@RM\r\nCtrls := @WINDOW:'.TYPE':@RM\t\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$TYPE):@RM\r\nCtrls := @WINDOW:'.RECIPE':@RM\t\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$RECIPE):@RM\r\nCtrls := @WINDOW:'.FREQ':@RM\t\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$FREQ):@RM\r\nCtrls := @WINDOW:'.PROVE_TYPE':@RM\t\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$PROVE_TYPE):@RM\r\nCtrls := @WINDOW:'.FIRST_CHECK':@RM\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$FIRST_CHECK):@RM\r\nCtrls := @WINDOW:'.LAST_CHECK':@RM\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$LAST_CHECK):@RM\r\nCtrls := @WINDOW:'.SPC':@RM\t\t\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$SPC):@RM\r\nCtrls := @WINDOW:'.OVERGROW':@RM\t\t\t; Props := 'CHECK':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$OVERGROW):@RM\r\nCtrls := @WINDOW:'.EXPECTED_TW_QTY':@RM\t\t; Props := 'TEXT':@RM\t\t; Vals := FIELD(MeasureInfo,'~',MI$EXP_TW_QTY):@RM\r\nCtrls := @WINDOW:'.PATTERN'\t\t\t\t\t; Props := 'TEXT'\t\t\t; Vals := FIELD(MeasureInfo,'~',MI$PATTERN)\r\n\r\nSet_Property(Ctrls,Props,Vals)\r\nSet_Property(@WINDOW, '@Controls',Ctrls)\r\nSet_Property(@WINDOW, '@Props',Props)\r\n\r\nType = FIELD(CreateParam,CHAR(245),2)\t\t;* 2nd passed parameter\r\n\r\nIF Type = 'RES' THEN\r\n\tvoid = Set_Property(@WINDOW:'.OVERGROW','VISIBLE',1)\r\nEND ELSE\r\n\tvoid = Set_Property(@WINDOW:'.OVERGROW','VISIBLE',0)\r\nEND\r\n\r\nTypeOut = FIELD(CreateParam,CHAR(245),3)\t\t\t;* 3rd passed parameter\r\n\r\nTitle = Get_Property(@WINDOW,'TEXT')\r\nTitle := TypeOut:' ':Title\r\nSet_Property(@WINDOW,'TEXT',Title)\r\n\r\nSet_List_Box_Data(CtrlEntId)\r\n\r\n\r\nToolList = XLATE('LISTBOX_CONFIG',Type:'MEASURETOOL','','X')\r\nCONVERT @VM TO @FM IN ToolList\r\nSet_Property(@WINDOW:'.TOOL','LIST',ToolList)\r\n\r\nTool = Get_Property(@WINDOW:'.TOOL', 'TEXT' )\r\nCONVERT @LOWER_CASE TO @UPPER_CASE IN Tool\r\n\r\nRecipeList = XLATE( 'LISTBOX_CONFIG', Tool:'_RECIPES', '', 'X' )\r\nCONVERT @VM To @FM IN RecipeList\r\n\r\nIF RecipeList NE '' THEN\r\n\tSet_Property(@WINDOW:'.RECIPE','LIST',RecipeList)\r\nEND\r\n\r\nRETURN 1\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n"
}
}
}

2
LSL2/OIEVENT/CREATE/QUOTE_SIG_PWD_ENTRY..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function set_property\r\nDeclare subroutine SRP_Show_Window\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN\r\n\tCreateParam = 'BRYCE_BARB':@VM:''\r\nEND\r\n\r\nVoid = set_property( @window, '@PINFO', CreateParam )\r\nSRP_Show_Window(@Window, '', 'C', 'C', 1, '', 0, 0)\r\n\r\nRETURN 0"
"<1>": "declare function set_property\r\nDeclare subroutine SRP_Show_Window\r\n\r\nVoid = set_property( @window, '@PINFO', CreateParam )\r\nSRP_Show_Window(@Window, '', 'C', 'C', 1, '', 0, 0)\r\n\r\nRETURN 0"
}
}
}

2
LSL2/OIEVENT/CREATE/REACTOR_MAINT_TODO..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "DECLARE SUBROUTINE ErrMsg, RList, Create_Note, Set_Property, Send_Message\r\nDECLARE FUNCTION Send_Message, Center_Window, End_Window, Utility\r\n\r\n$INSERT RLIST_EQUATES\r\n$INSERT REACT_SERVS_EQU\r\n$INSERT REACTOR_PM_EQU\t\r\n$INSERT REACTOR_EQUATES\r\n\r\nVoid = Utility( 'CURSOR', 'H' )\r\nSet_Property(@WINDOW:'.LIST_1','VISIBLE',0)\r\n\r\nOPEN 'REACTOR_PM' TO RPMTable ELSE\r\n\tErrMsg('Unable to open REACTOR_PM table...')\r\n\tRETURN 0\r\nEND\r\n\r\nEndDt = Date() + 60\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN EndDt = Date() + 365\r\n\r\nStatement = 'SELECT REACTOR_PM WITH REACTOR NE \"\" AND WITH COMPLETE_DATE = \"\" AND WITH DUE_DT < ':QUOTE(OConv(EndDt, 'D4/')):' BY REACTOR BY-DSND NEXT_DONE'\r\nRList( Statement, target_activelist$, '', '', '' )\r\n\r\nReactNos = ''\r\nNextDueDts = ''\r\nServiceIDs = ''\r\n\r\nDone = 0\r\nLOOP\r\n\tREADNEXT RPMKey ELSE Done = 1\r\nUNTIL Done\r\n\tREAD RPMRec FROM RPMTable,RPMKey THEN\r\n\t\tReactNo\t\t= RPMRec<REACTOR_PM_REACTOR$>\r\n\t\tServiceID\t= RPMRec<REACTOR_PM_REACT_SERV_ID$>\r\n\t\tNextDueDt\t= RPMRec<REACTOR_PM_NEXT_DONE$>\r\n\t\t\r\n\t\tLOCATE ReactNo IN ReactNos BY 'AR' USING @FM SETTING RPos ELSE\r\n\t\t\tReactNos = INSERT(ReactNos,RPos,0,0,ReactNo)\r\n\t\tEND\r\n\t\t\r\n\t\tLOCATE NextDueDt IN NextDueDts<RPos> BY 'AR' USING @VM SETTING DPos ELSE\r\n\t\t\tNextDueDts = INSERT(NextDueDts,RPos,DPos,0,NextDueDt)\r\n\t\t\tServiceIDs = INSERT(ServiceIDs,RPos,DPos,0,ServiceID)\r\n\t\tEND\r\n\tEND\t;* End of RPMRec read\r\nREPEAT\r\n\r\nDisplay = ''\r\n\r\nReactCnt = COUNT(ReactNos,@FM) + (ReactNos NE '')\r\n\r\nPrevReactNo = ''\r\nFOR R = 1 TO ReactCnt\r\n\tReactNo = ReactNos<R>\r\n\t\r\n\tIF ReactNo NE PrevReactNo THEN\r\n\t\tReactRec\t= XLATE('REACTOR',ReactNo,'','X')\r\n\t\tReactType\t= OCONV(ReactRec<REACTOR_REACT_TYPE$>,'[REACT_TYPE_CONV,OPSREF]')\r\n\r\n\t\tReactDesc\t= ReactRec<REACTOR_REACT_DESC$>\r\n\t\tPrevReactNo = ReactNo\r\n\t\tIF Display NE '' THEN\r\n\t\t\tDisplay<-1> = '6-1:':STR('-',100)\r\n\t\tEND\r\n\t\tDisplay<-1> = '1-1: React No ':ReactNo:' ':ReactType:' ':ReactDesc\r\n\tEND\r\n\t\r\n\tndCnt = COUNT(NextDueDts<R>,@VM) + (NextDueDts<R> NE '')\r\n\t\r\n\tFOR I = 1 TO ndCnt\r\n\t\tNextDueDt\t= OCONV(NextDueDts<R,I>,'D4/')\r\n\t\tServiceID \t= ServiceIDs<R,I>\r\n\t\tService\t\t= XLATE('REACT_SERVS',ServiceID,REACT_SERVS_DESCRIPTION$,'X' )\r\n\t\t\r\n\t\tDisplay<-1> = '2-2: Due On: ':NextDueDt:' ':ServiceID:' ':Service\r\n\tNEXT I\r\n\r\nNEXT R\r\n\r\nvoid = Center_Window(@WINDOW)\r\n\r\nSet_Property(@WINDOW:'.TITLE_LABEL','DEFPROP',\"Reactor PM's Due Before \":OCONV(EndDt,'D4,HL'))\r\n\r\nSet_Property(@WINDOW,'VISIBLE',1)\r\n\r\nSet_Property(@WINDOW:'.LIST_1','LIST',Display)\r\n\r\nSend_Message(@WINDOW:'.LIST_1', 'EXPAND', 0, 0 )\r\n\r\nSet_Property(@WINDOW:'.LIST_1','VISIBLE',1)\r\n\r\nvoid = Utility( 'CURSOR', 'A' )\r\n\r\nRETURN 1\r\n\r\n"
"<1>": "DECLARE SUBROUTINE ErrMsg, RList, Create_Note, Set_Property, Send_Message\r\nDECLARE FUNCTION Send_Message, Center_Window, End_Window, Utility\r\n\r\n$INSERT RLIST_EQUATES\r\n$INSERT REACT_SERVS_EQU\r\n$INSERT REACTOR_PM_EQU\t\r\n$INSERT REACTOR_EQUATES\r\n\r\nVoid = Utility( 'CURSOR', 'H' )\r\nSet_Property(@WINDOW:'.LIST_1','VISIBLE',0)\r\n\r\nOPEN 'REACTOR_PM' TO RPMTable ELSE\r\n\tErrMsg('Unable to open REACTOR_PM table...')\r\n\tRETURN 0\r\nEND\r\n\r\nEndDt = Date() + 60\r\n\r\nStatement = 'SELECT REACTOR_PM WITH REACTOR NE \"\" AND WITH COMPLETE_DATE = \"\" AND WITH DUE_DT < ':QUOTE(OConv(EndDt, 'D4/')):' BY REACTOR BY-DSND NEXT_DONE'\r\nRList( Statement, target_activelist$, '', '', '' )\r\n\r\nReactNos = ''\r\nNextDueDts = ''\r\nServiceIDs = ''\r\n\r\nDone = 0\r\nLOOP\r\n\tREADNEXT RPMKey ELSE Done = 1\r\nUNTIL Done\r\n\tREAD RPMRec FROM RPMTable,RPMKey THEN\r\n\t\tReactNo\t\t= RPMRec<REACTOR_PM_REACTOR$>\r\n\t\tServiceID\t= RPMRec<REACTOR_PM_REACT_SERV_ID$>\r\n\t\tNextDueDt\t= RPMRec<REACTOR_PM_NEXT_DONE$>\r\n\t\t\r\n\t\tLOCATE ReactNo IN ReactNos BY 'AR' USING @FM SETTING RPos ELSE\r\n\t\t\tReactNos = INSERT(ReactNos,RPos,0,0,ReactNo)\r\n\t\tEND\r\n\t\t\r\n\t\tLOCATE NextDueDt IN NextDueDts<RPos> BY 'AR' USING @VM SETTING DPos ELSE\r\n\t\t\tNextDueDts = INSERT(NextDueDts,RPos,DPos,0,NextDueDt)\r\n\t\t\tServiceIDs = INSERT(ServiceIDs,RPos,DPos,0,ServiceID)\r\n\t\tEND\r\n\tEND\t;* End of RPMRec read\r\nREPEAT\r\n\r\nDisplay = ''\r\n\r\nReactCnt = COUNT(ReactNos,@FM) + (ReactNos NE '')\r\n\r\nPrevReactNo = ''\r\nFOR R = 1 TO ReactCnt\r\n\tReactNo = ReactNos<R>\r\n\t\r\n\tIF ReactNo NE PrevReactNo THEN\r\n\t\tReactRec\t= XLATE('REACTOR',ReactNo,'','X')\r\n\t\tReactType\t= OCONV(ReactRec<REACTOR_REACT_TYPE$>,'[REACT_TYPE_CONV,OPSREF]')\r\n\r\n\t\tReactDesc\t= ReactRec<REACTOR_REACT_DESC$>\r\n\t\tPrevReactNo = ReactNo\r\n\t\tIF Display NE '' THEN\r\n\t\t\tDisplay<-1> = '6-1:':STR('-',100)\r\n\t\tEND\r\n\t\tDisplay<-1> = '1-1: React No ':ReactNo:' ':ReactType:' ':ReactDesc\r\n\tEND\r\n\t\r\n\tndCnt = COUNT(NextDueDts<R>,@VM) + (NextDueDts<R> NE '')\r\n\t\r\n\tFOR I = 1 TO ndCnt\r\n\t\tNextDueDt\t= OCONV(NextDueDts<R,I>,'D4/')\r\n\t\tServiceID \t= ServiceIDs<R,I>\r\n\t\tService\t\t= XLATE('REACT_SERVS',ServiceID,REACT_SERVS_DESCRIPTION$,'X' )\r\n\t\t\r\n\t\tDisplay<-1> = '2-2: Due On: ':NextDueDt:' ':ServiceID:' ':Service\r\n\tNEXT I\r\n\r\nNEXT R\r\n\r\nvoid = Center_Window(@WINDOW)\r\n\r\nSet_Property(@WINDOW:'.TITLE_LABEL','DEFPROP',\"Reactor PM's Due Before \":OCONV(EndDt,'D4,HL'))\r\n\r\nSet_Property(@WINDOW,'VISIBLE',1)\r\n\r\nSet_Property(@WINDOW:'.LIST_1','LIST',Display)\r\n\r\nSend_Message(@WINDOW:'.LIST_1', 'EXPAND', 0, 0 )\r\n\r\nSet_Property(@WINDOW:'.LIST_1','VISIBLE',1)\r\n\r\nvoid = Utility( 'CURSOR', 'A' )\r\n\r\nRETURN 1\r\n\r\n"
}
}
}

2
LSL2/OIEVENT/CREATE/RECIPE_BROWSE..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function memberof, msg, send_event, center_window\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nBEGIN CASE\r\n\t*CASE memberof( @user4, 'DATA_ENTRY' )\t; ClearToUse = 1\r\n\t*CASE memberof( @user4, 'SUPERVISOR' )\t; ClearToUse = 1\r\n\t*CASE memberof( @user4, 'MANAGEMENT' )\t; ClearToUse = 1\r\n\t*CASE memberof( @user4, 'MASTER' )\t\t; ClearToUse = 1\r\n\tCASE memberof(@USER4,'ENGINEERING')\t\t; ClearToUse = 1\r\n\tCASE @USERNAME = 'BRYCE_BARB'\t\t\t; ClearToUse = 1\r\n\tCASE 1\t\t\t\t\t\t\t\t\t; ClearToUse = 0\r\nEND CASE\r\n\r\nif ClearToUse then\r\n\tVoid = set_property( @window, '@WOCnt', '' )\r\n\tVoid = set_property( @window, '@WOCurPos', '' )\r\n\tVoid = set_property( @window, '@WOS', '' )\r\n\tVoid = set_property( @window, '@RDSCnt', '' )\r\n\tVoid = set_property( @window, '@RDSCurPos', '' )\r\n\tVoid = set_property( @window, '@RDSS', '' )\r\n\tVoid = set_property( @window, '@LayCnt', '' )\r\n\tVoid = set_property( @window, '@LayCurPos', '' )\r\n\tVoid = set_property( @window, '@Layers', '' )\r\n Void = set_property( @window, '@TemperatureData', '' )\t\t\r\n\treturn 1\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<micon$> = 'H'\r\n MsgInfo<mtext$> = 'You do not have proper security to use the recipe browser...'\r\n Void = msg( '', MsgInfo )\r\n Void = send_event( @window, 'CLOSE' )\r\n return 0\r\nend \r\n"
"<1>": "declare function memberof, msg, send_event, center_window\r\n$insert msg_equates\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nBEGIN CASE\r\n\t*CASE memberof( @user4, 'DATA_ENTRY' )\t; ClearToUse = 1\r\n\t*CASE memberof( @user4, 'SUPERVISOR' )\t; ClearToUse = 1\r\n\t*CASE memberof( @user4, 'MANAGEMENT' )\t; ClearToUse = 1\r\n\t*CASE memberof( @user4, 'MASTER' )\t\t; ClearToUse = 1\r\n\tCASE memberof(@USER4,'ENGINEERING')\t\t; ClearToUse = 1\r\n\tCASE 1\t\t\t\t\t\t\t\t\t; ClearToUse = 0\r\nEND CASE\r\n\r\nif ClearToUse then\r\n\tVoid = set_property( @window, '@WOCnt', '' )\r\n\tVoid = set_property( @window, '@WOCurPos', '' )\r\n\tVoid = set_property( @window, '@WOS', '' )\r\n\tVoid = set_property( @window, '@RDSCnt', '' )\r\n\tVoid = set_property( @window, '@RDSCurPos', '' )\r\n\tVoid = set_property( @window, '@RDSS', '' )\r\n\tVoid = set_property( @window, '@LayCnt', '' )\r\n\tVoid = set_property( @window, '@LayCurPos', '' )\r\n\tVoid = set_property( @window, '@Layers', '' )\r\n Void = set_property( @window, '@TemperatureData', '' )\t\t\r\n\treturn 1\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<micon$> = 'H'\r\n MsgInfo<mtext$> = 'You do not have proper security to use the recipe browser...'\r\n Void = msg( '', MsgInfo )\r\n Void = send_event( @window, 'CLOSE' )\r\n return 0\r\nend \r\n"
}
}
}

2
LSL2/OIEVENT/CREATE/VERIFY_USER..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function set_property\r\nDeclare subroutine SRP_Show_Window\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN\r\n\tCreateParam = 'BRYCE_BARB':@VM:''\r\nEND\r\n\r\nVoid = set_property( @window, '@PINFO', CreateParam )\r\nVoid = set_property( @window : '.EDL_USERNAME', 'TEXT', @USER4 )\r\nSRP_Show_Window(@Window, '', 'C', 'C', 1, '', 0, 0)\r\n\r\nRETURN 0"
"<1>": "declare function set_property\r\nDeclare subroutine SRP_Show_Window\r\n\r\nVoid = set_property( @window, '@PINFO', CreateParam )\r\nVoid = set_property( @window : '.EDL_USERNAME', 'TEXT', @USER4 )\r\nSRP_Show_Window(@Window, '', 'C', 'C', 1, '', 0, 0)\r\n\r\nRETURN 0"
}
}
}

2
LSL2/OIEVENT/CREATE/WO_DAILY_SCHED_ALL..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function wo_daily_sched_all_comm, center_window\r\n\r\n\r\nIF @USERNAME = 'IMATEST_U' OR @USERNAME = 'BRYCE_BARB' THEN\r\n\tScreenSize = Get_Property('SYSTEM','SIZE')\r\n\tDialogSize = Get_Property(@WINDOW,'SIZE')\r\n\r\n\twScreen = ScreenSize<3>\r\n\thScreen = ScreenSize<4>\r\n\r\n\txDialog = DialogSize<1>\r\n\tyDialog = DialogSize<2>\r\n\twDialog = DialogSize<3>\r\n\thDialog = DialogSize<4>\r\n\r\n\tcScreen = INT(wScreen/2)\r\n\r\n\tDialogSize<1> = cScreen + 1\t\t; * Center + 1\r\n\tDialogSize<2> = 50\r\n\r\n\tvoid = Set_Property(@WINDOW,'SIZE',DialogSize)\r\n\r\nEND\r\n\r\nvoid = Set_Property(@WINDOW,'VISIBLE',1)\r\n\r\nvoid = Set_Property(@WINDOW,'TIMER',60000)\t;* 60 second timer for refresh\r\n\r\nVoid = wo_daily_sched_all_comm( 'FORM_CREATE', '')\r\nRETURN 1"
"<1>": "declare function wo_daily_sched_all_comm, center_window\r\n\r\nvoid = Set_Property(@WINDOW,'VISIBLE',1)\r\n\r\nvoid = Set_Property(@WINDOW,'TIMER',60000)\t;* 60 second timer for refresh\r\n\r\nVoid = wo_daily_sched_all_comm( 'FORM_CREATE', '')\r\nRETURN 1"
}
}
}

2
LSL2/OIEVENT/CREATE/WO_DAILY_SCHED_ALL2..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function wo_daily_sched_all_comm, center_window\r\n\r\nIF @USERNAME = 'IMATEST_U' OR @USERNAME = 'BRYCE_BARB' THEN\r\n\r\n\tScreenSize = Get_Property('SYSTEM','SIZE')\r\n\tDialogSize = Get_Property(@WINDOW,'SIZE')\r\n\r\n\twScreen = ScreenSize<3>\r\n\thScreen = ScreenSize<4>\r\n\r\n\txDialog = DialogSize<1>\r\n\tyDialog = DialogSize<2>\r\n\twDialog = DialogSize<3>\r\n\thDialog = DialogSize<4>\r\n\r\n\tcScreen = INT(wScreen/2)\r\n\r\n\tDialogSize<1> = (cScreen - wDialog - 1)\t;* Center - Width of reactor window - 1\r\n\tDialogSize<2> = 50\r\n\r\n\tvoid = Set_Property(@WINDOW,'SIZE',DialogSize)\r\nEND\r\n\r\nVoid = set_property( @window, 'VISIBLE', 1 )\r\n\r\nvoid = Set_Property(@WINDOW,'TIMER',60000:@FM:20000)\t;* 60 second timer for refresh, 20 second offset\r\n\r\nVoid = wo_daily_sched_all_comm( 'FORM_CREATE', '')\r\nRETURN 1"
"<1>": "declare function wo_daily_sched_all_comm, center_window\r\n\r\nVoid = set_property( @window, 'VISIBLE', 1 )\r\n\r\nvoid = Set_Property(@WINDOW,'TIMER',60000:@FM:20000)\t;* 60 second timer for refresh, 20 second offset\r\n\r\nVoid = wo_daily_sched_all_comm( 'FORM_CREATE', '')\r\nRETURN 1"
}
}
}

2
LSL2/OIEVENT/CREATE/WO_MAST_SCHED..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function msg, send_event, admin_user, center_window, memberof, fieldcount, mast_sched_today_date\r\ndeclare subroutine end_dialog\r\n\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\n\r\nif memberof(@user4,'MASTER_SCHED' ) then\r\n\tlock ConfigTable, 'WO_MAST_SCHED' then\r\n\t write @user4 on ConfigTable, 'WO_MAST_SCHED_USER' else\r\n\t Void = msg( '', 'Error writing WO_MAST_SCHED_USER in config file...' )\r\n\t return 0\r\n\t end\r\n\t Void = set_property( @window, '@GotLock', 1 )\r\n\tend else\r\n\t UseBy = oconv( xlate( 'CONFIG', 'WO_MAST_SCHED_USER', '', 'X' ), '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t MsgInfo = ''\r\n\t MsgInfo<mtext$> = 'WO_MAST_SCHED is in use by ':UseBy:' you will be allowed to view only.'\r\n\t MsgInfo<micon$> = '!'\r\n\t Void = msg( '', MsgInfo )\r\n .save->enabled = 0\r\n .clear_day->enabled = 0\r\n .cfg_date_button->enabled = 0\r\n .qcfg_date_button->enabled = 0 \r\n .new_wo->enabled = 0\r\n .month->enabled = 0\r\n .cancel->text = 'OK'\r\n .reactor_cnt->enabled = 0\r\n\tend\r\n .print->visible = 1\t\r\n\tgosub DoRead\r\nend else\r\n .save->enabled = 0\r\n *.save->enabled = 1\r\n .clear_day->enabled = 0\r\n .cfg_date_button->enabled = 0\r\n .qcfg_date_button->enabled = 0 \r\n .new_wo->enabled = 0\r\n .month->enabled = 0\r\n .cancel->text = 'OK'\r\n .reactor_cnt->enabled = 0\r\n if memberof(@user4,'SUPERVISOR' ) OR MemberOf( @user4, 'LEAD') or memberof( @user4, 'MATERIALS' ) or memberof( @user4, 'DATA_ENTRY' ) then\r\n .print->visible = 1\r\n end\r\n gosub DoRead\r\nend\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nCurDate = mast_sched_today_date( '' )\r\nCurLabels = .sched_info->label\r\n\r\nlocate CurDate in CurLabels using @fm setting Fpos then\r\n .sched_info->selpos = FPos:@fm:20\r\nend else\r\n .sched_info->selpos = 1:@fm:20\r\nend\r\nRETURN 0\r\n*===========================================================================*\r\nDoRead:\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nread MastSched from ConfigTable, 'WO_MAST_SCHED' then\r\n if MastSched then\r\n Days = MastSched<1>\r\n convert @vm to @fm in Days\r\n .sched_info->label\t= Days\r\n .month->text\t\t= MastSched<2>\r\n ReactCnt\t\t\t= MastSched<3>\r\n .reactor_cnt->text\t= ReactCnt\r\n \r\n SchedInfo = field( MastSched, @fm, 4, 99999 )\r\n \r\n\r\n SCnt = fieldcount( SchedInfo, @fm )\r\n \r\n for i = 1 to SCnt\r\n SchedInfo<i> = field( SchedInfo<i>, @vm, 1, ReactCnt )\r\n\t for j = 1 to ReactCnt\r\n\t if SchedInfo<i,j> = '' then\r\n\t SchedInfo<i,j> = 'Open'\r\n\t end\r\n\t next j\r\n next i\r\n\t .sched_info->array = SchedInfo\r\n Void = set_property( @window, '@OrigSched', SchedInfo )\t \r\n\t .sched_info->toppos = 1:@fm:20\t \r\n end\r\nend\r\nreturn\r\n*===========================================================================*"
"<1>": "declare function msg, send_event, admin_user, center_window, memberof, fieldcount, mast_sched_today_date\r\ndeclare subroutine end_dialog\r\n\r\n$insert msg_equates\r\n$insert lsl_users_equ\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nopen 'CONFIG' to ConfigTable else\r\n Void = msg( '', 'Unable to open CONFIG table' )\r\n end_dialog( @window, '' )\r\n return 0\r\nend\r\n\r\nif memberof(@user4,'MASTER_SCHED' ) then\r\n\tlock ConfigTable, 'WO_MAST_SCHED' then\r\n\t write @user4 on ConfigTable, 'WO_MAST_SCHED_USER' else\r\n\t Void = msg( '', 'Error writing WO_MAST_SCHED_USER in config file...' )\r\n\t return 0\r\n\t end\r\n\t Void = set_property( @window, '@GotLock', 1 )\r\n\tend else\r\n\t UseBy = oconv( xlate( 'CONFIG', 'WO_MAST_SCHED_USER', '', 'X' ), '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t MsgInfo = ''\r\n\t MsgInfo<mtext$> = 'WO_MAST_SCHED is in use by ':UseBy:' you will be allowed to view only.'\r\n\t MsgInfo<micon$> = '!'\r\n\t Void = msg( '', MsgInfo )\r\n .save->enabled = 0\r\n .clear_day->enabled = 0\r\n .cfg_date_button->enabled = 0\r\n .qcfg_date_button->enabled = 0 \r\n .new_wo->enabled = 0\r\n .month->enabled = 0\r\n .cancel->text = 'OK'\r\n .reactor_cnt->enabled = 0\r\n\tend\r\n .print->visible = 1\t\r\n\tgosub DoRead\r\nend else\r\n .save->enabled = 0\r\n *.save->enabled = 1\r\n .clear_day->enabled = 0\r\n .cfg_date_button->enabled = 0\r\n .qcfg_date_button->enabled = 0 \r\n .new_wo->enabled = 0\r\n .month->enabled = 0\r\n .cancel->text = 'OK'\r\n .reactor_cnt->enabled = 0\r\n if memberof(@user4,'SUPERVISOR' ) OR MemberOf( @user4, 'LEAD') or memberof( @user4, 'MATERIALS' ) or memberof( @user4, 'DATA_ENTRY' ) then\r\n .print->visible = 1\r\n end\r\n gosub DoRead\r\nend\r\n\r\nCurDate = mast_sched_today_date( '' )\r\nCurLabels = .sched_info->label\r\n\r\nlocate CurDate in CurLabels using @fm setting Fpos then\r\n .sched_info->selpos = FPos:@fm:20\r\nend else\r\n .sched_info->selpos = 1:@fm:20\r\nend\r\nRETURN 0\r\n*===========================================================================*\r\nDoRead:\r\n\r\nread MastSched from ConfigTable, 'WO_MAST_SCHED' then\r\n if MastSched then\r\n Days = MastSched<1>\r\n convert @vm to @fm in Days\r\n .sched_info->label\t= Days\r\n .month->text\t\t= MastSched<2>\r\n ReactCnt\t\t\t= MastSched<3>\r\n .reactor_cnt->text\t= ReactCnt\r\n \r\n SchedInfo = field( MastSched, @fm, 4, 99999 )\r\n \r\n\r\n SCnt = fieldcount( SchedInfo, @fm )\r\n \r\n for i = 1 to SCnt\r\n SchedInfo<i> = field( SchedInfo<i>, @vm, 1, ReactCnt )\r\n\t for j = 1 to ReactCnt\r\n\t if SchedInfo<i,j> = '' then\r\n\t SchedInfo<i,j> = 'Open'\r\n\t end\r\n\t next j\r\n next i\r\n\t .sched_info->array = SchedInfo\r\n Void = set_property( @window, '@OrigSched', SchedInfo )\t \r\n\t .sched_info->toppos = 1:@fm:20\t \r\n end\r\nend\r\nreturn\r\n*===========================================================================*"
}
}
}

11
LSL2/OIEVENT/DELETE/REACTOR_LOG_BAK..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "DECLARE FUNCTION Comm_Reactor_Log\r\nRETURN Comm_Reactor_Log(CtrlEntId,'DELETE')"
}
}
}

11
LSL2/OIEVENT/LOSTFOCUS/RDS_POST_EPI.RDS_NO.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "\r\nDeclare function DCount\r\nDeclare subroutine Set_Property\r\n\r\nRDSNo = Get_Property(CtrlEntID, 'TEXT')\r\n\r\nIf DCount(RDSNo, '|') EQ 8 then\r\n\tRDSNo = Field(RDSNo, '|', 3)\r\nend\r\nIf RDSNo[1, 2] EQ '1T' then RDSNo[1, 2] = ''\r\n\r\nSet_Property(CtrlEntID, 'TEXT', RDSNo)\r\n\r\nRETURN 1"
}
}
}

2
LSL2/OIEVENT/MENU/RDS.MENU.UNLOAD%002FLOAD_EXTRA.SIGNATURE_INFO.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function dialog_box\r\n\r\nVoid = set_property( @window, '@ExSigWrite', 0 )\r\nOrigExSigInfo = get_property( @window, '@ExSigInfo' )\r\nReturnVal = dialog_box( 'RDS_UNLOAD_LOAD_EX', @window, OrigExSigInfo )\r\nif ReturnVal <> 'CANCEL' and ( ReturnVal <> OrigExSigInfo ) then\r\n Void = set_property( @window, '@ExSigInfo', ReturnVal )\r\n Void = set_property( @window, '@ExSigWrite', 1 )\r\n @@window->savewarn = 1\r\nend\r\nRETURN 0"
"<1>": "\r\ndeclare function dialog_box\r\n\r\nRDSNo = Get_Property(@Window : '.RDS_NO', 'TEXT')\r\nReturnVal = dialog_box( 'NDW_LOAD_UNLOAD_EXTRA', @window, RDSNo)\r\n/*\r\nVoid = set_property( @window, '@ExSigWrite', 0 )\r\nOrigExSigInfo = get_property( @window, '@ExSigInfo' )\r\nReturnVal = dialog_box( 'RDS_UNLOAD_LOAD_EX', @window, OrigExSigInfo )\r\nif ReturnVal <> 'CANCEL' and ( ReturnVal <> OrigExSigInfo ) then\r\n Void = set_property( @window, '@ExSigInfo', ReturnVal )\r\n Void = set_property( @window, '@ExSigWrite', 1 )\r\n @@window->savewarn = 1\r\nend\r\n*/\r\nRETURN 0\r\n"
}
}
}

11
LSL2/OIEVENT/MENU/REACTOR_LOG_BAK.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nRLNo = .reactor_log_no->text\r\nif RLNo then\r\n if rowexists( 'REACTOR_LOG', RLNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n RetVal = dialog_box( 'NOTES_ATTACH', @window, 'REACTOR_LOG*':RLNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this Reactor Log record first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a Reactor Log record present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}

2
LSL2/OIEVENT/OMNIEVENT/ORDER.ORDER_DETAIL.json
View File

File diff suppressed because one or more lines are too long

11
LSL2/OIEVENT/OMNIEVENT/REACT_STATUS_EVEN..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "Declare subroutine WO_DAILY_SCHED_ALL_COMM\r\n\r\nIf Index(CtrlEntId, 'IQS', 1) GT 0 then \r\n\tWO_DAILY_SCHED_ALL_COMM('IQSViolButton', CtrlEntId) \r\nend else\r\n\tWO_DAILY_SCHED_ALL_COMM('ChecklistButton', CtrlEntId) \r\nend\r\n\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/OMNIEVENT/REACT_STATUS_ODD..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "Declare subroutine WO_DAILY_SCHED_ALL_COMM\r\n\r\nIf Index(CtrlEntId, 'IQS', 1) GT 0 then \r\n\tWO_DAILY_SCHED_ALL_COMM('IQSViolButton', CtrlEntId) \r\nend else\r\n\tWO_DAILY_SCHED_ALL_COMM('ChecklistButton', CtrlEntId) \r\nend\r\n\r\nRETURN 0"
}
}
}

2
LSL2/OIEVENT/OPTIONS/REACTOR_LOG.SERV_INFO.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n$insert react_servs_equ\r\n$insert reactor_log_equates\r\n$insert react_serv_cat_equates\r\n\r\n\r\nRETURN 1\r\n\r\nSelPos = .serv_info->selpos\r\nCurCol = SelPos<1>\r\nCurRow = SelPos<2>\r\nbegin case\r\n case CurCol = 1 \r\n\t\tStmt = 'SELECT REACT_PROB_CAT BY REACTOR_PROBLEM_CATEGORY'\r\n\t\trlist( Stmt, target_activelist$, '', '', '' )\r\n\t\tif @reccount then\r\n\t\t PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_PROB_CAT' )\r\n\t\t OverRide = ''\r\n\t\t OverRide<pselect$> = 2\r\n\t\t Chosen = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n\t\t *DEBUG\r\n \t\t convert @fm to @vm in Chosen\r\n\t\t\tCurArray = .serv_info->array\r\n\t\t\tCurArray = delete( CurArray, 1, CurRow, 0 )\t\t\t\t\t\r\n\t\t\tCurArray = insert( CurArray, 1, CurRow, 0, Chosen )\r\n\t\t\t.serv_info->array = CurArray\r\n\t\t\tVoid = set_property( @window, 'RECORD', Record )\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 2 )\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 4 )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', 1 )\r\n\t\t Void = send_event( @window:'.SERV_INFO', 'LOSTFOCUS' )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', '' ) \t\t \r\n\t\tend \r\n\r\n case CurCol = 3\r\n \r\n \r\n\t\tStmt = 'SELECT REACT_SERVS BY DESCRIPTION'\r\n\t\trlist( Stmt, target_activelist$, '', '', '' )\r\n\t\tif @reccount then\r\n\t\t PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_SERVS' )\r\n\t\t OverRide = ''\r\n\t\t OverRide<pselect$> = 2\r\n\t\t OverRide<pselect$> = 2\r\n\t\t Choosen = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n\t\t \r\n\t\t IF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\t\t \r\n\t\t convert @fm to @vm in Choosen\r\n\t\t\tCurArray = .serv_info->array\r\n\t\t\tCurArray = delete( CurArray, 3, CurRow, 0 )\r\n\t\t\tCurArray = delete( CurArray, 4, CurRow, 0 )\r\n\t\t\tCurArray = delete( CurArray, 5, CurRow, 0 )\r\n\t\t\tCurArray = delete( CurArray, 6, CurRow, 0 )\r\n\t\t\tCurArray = insert( CurArray, 3, CurRow, 0, Choosen )\r\n\t\t\tCatIds = xlate( 'REACT_SERVS', Choosen, react_servs_react_serv_cat_id$, 'X' )\r\n\t\t\tCatDescs = xlate( 'REACT_SERV_CAT', CatIds, react_serv_cat_reactor_service_category$, 'X' )\t\r\n\t\t\tCurArray = insert( CurArray, 5, CurRow, 0, CatIds )\r\n\t\t\tCurArray = insert( CurArray, 6, CurRow, 0, CatDescs )\r\n\t\t\tRecord = get_property( @window, 'RECORD' )\r\n\t\t\tRecord = insert( Record, reactor_log_react_serv_cat_id$, CurRow, 0, CatIds )\r\n\t\t\t.serv_info->array = CurArray\r\n\t\t\tVoid = set_property( @window, 'RECORD', Record )\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 2 )\t\t\t\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 4 )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', 1 )\r\n\t\t Void = send_event( @window:'.SERV_INFO', 'LOSTFOCUS' )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', '' ) \r\n\t\tend \r\n\tcase CurCol = 9\r\n\t\tStmt = 'SELECT REACT_ITEMS WITH STATUS = \"A\" BY DESCRIPTION'\r\n\t\trlist( Stmt, target_activelist$, '', '', '' )\r\n\t\tif @reccount then\r\n\t\t PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_ITEMS' )\r\n\t\t OverRide = ''\r\n\t\t Choosen = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n\t\t convert @fm to @vm in Choosen\r\n\t\t\tCurArray = .serv_info->array\r\n\t\t\tCurArray = delete( CurArray, 9, CurRow, 0 )\t\t\t\t\t\r\n\t\t\tCurArray = insert( CurArray, 9, CurRow, 0, Choosen )\r\n\t\t\t*CatIds = xlate( 'REACT_SERVS', Choosen, react_servs_react_serv_cat_id$, 'X' )\r\n\t\t\t*CatDescs = xlate( 'REACT_SERV_CAT', CatIds, react_serv_cat_reactor_service_category$, 'X' )\t\r\n\t\t\t*Record = get_property( @window, 'RECORD' )\r\n\t\t\t*Record = insert( Record, reactor_log_react_serv_cat_id$, CurRow, 0, CatIds )\r\n\t\t\t.serv_info->array = CurArray\r\n\t\t\tVoid = set_property( @window, 'RECORD', Record )\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 2 )\t\t\t\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 4 )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', 1 )\r\n\t\t Void = send_event( @window:'.SERV_INFO', 'LOSTFOCUS' )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', '' ) \r\n\t\tend\t\r\n\tend case\r\nRETURN 0"
"<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n$insert react_servs_equ\r\n$insert reactor_log_equates\r\n$insert react_serv_cat_equates\r\n\r\n\r\nRETURN 1\r\n\r\nSelPos = .serv_info->selpos\r\nCurCol = SelPos<1>\r\nCurRow = SelPos<2>\r\nbegin case\r\n case CurCol = 1 \r\n\t\tStmt = 'SELECT REACT_PROB_CAT BY REACTOR_PROBLEM_CATEGORY'\r\n\t\trlist( Stmt, target_activelist$, '', '', '' )\r\n\t\tif @reccount then\r\n\t\t PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_PROB_CAT' )\r\n\t\t OverRide = ''\r\n\t\t OverRide<pselect$> = 2\r\n\t\t Chosen = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n\t\t *DEBUG\r\n \t\t convert @fm to @vm in Chosen\r\n\t\t\tCurArray = .serv_info->array\r\n\t\t\tCurArray = delete( CurArray, 1, CurRow, 0 )\t\t\t\t\t\r\n\t\t\tCurArray = insert( CurArray, 1, CurRow, 0, Chosen )\r\n\t\t\t.serv_info->array = CurArray\r\n\t\t\tVoid = set_property( @window, 'RECORD', Record )\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 2 )\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 4 )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', 1 )\r\n\t\t Void = send_event( @window:'.SERV_INFO', 'LOSTFOCUS' )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', '' ) \t\t \r\n\t\tend \r\n\r\n case CurCol = 3\r\n \r\n \r\n\t\tStmt = 'SELECT REACT_SERVS BY DESCRIPTION'\r\n\t\trlist( Stmt, target_activelist$, '', '', '' )\r\n\t\tif @reccount then\r\n\t\t PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_SERVS' )\r\n\t\t OverRide = ''\r\n\t\t OverRide<pselect$> = 2\r\n\t\t OverRide<pselect$> = 2\r\n\t\t Choosen = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n\t\t \r\n\t\t convert @fm to @vm in Choosen\r\n\t\t\tCurArray = .serv_info->array\r\n\t\t\tCurArray = delete( CurArray, 3, CurRow, 0 )\r\n\t\t\tCurArray = delete( CurArray, 4, CurRow, 0 )\r\n\t\t\tCurArray = delete( CurArray, 5, CurRow, 0 )\r\n\t\t\tCurArray = delete( CurArray, 6, CurRow, 0 )\r\n\t\t\tCurArray = insert( CurArray, 3, CurRow, 0, Choosen )\r\n\t\t\tCatIds = xlate( 'REACT_SERVS', Choosen, react_servs_react_serv_cat_id$, 'X' )\r\n\t\t\tCatDescs = xlate( 'REACT_SERV_CAT', CatIds, react_serv_cat_reactor_service_category$, 'X' )\t\r\n\t\t\tCurArray = insert( CurArray, 5, CurRow, 0, CatIds )\r\n\t\t\tCurArray = insert( CurArray, 6, CurRow, 0, CatDescs )\r\n\t\t\tRecord = get_property( @window, 'RECORD' )\r\n\t\t\tRecord = insert( Record, reactor_log_react_serv_cat_id$, CurRow, 0, CatIds )\r\n\t\t\t.serv_info->array = CurArray\r\n\t\t\tVoid = set_property( @window, 'RECORD', Record )\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 2 )\t\t\t\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 4 )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', 1 )\r\n\t\t Void = send_event( @window:'.SERV_INFO', 'LOSTFOCUS' )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', '' ) \r\n\t\tend \r\n\tcase CurCol = 9\r\n\t\tStmt = 'SELECT REACT_ITEMS WITH STATUS = \"A\" BY DESCRIPTION'\r\n\t\trlist( Stmt, target_activelist$, '', '', '' )\r\n\t\tif @reccount then\r\n\t\t PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_ITEMS' )\r\n\t\t OverRide = ''\r\n\t\t Choosen = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n\t\t convert @fm to @vm in Choosen\r\n\t\t\tCurArray = .serv_info->array\r\n\t\t\tCurArray = delete( CurArray, 9, CurRow, 0 )\t\t\t\t\t\r\n\t\t\tCurArray = insert( CurArray, 9, CurRow, 0, Choosen )\r\n\t\t\t*CatIds = xlate( 'REACT_SERVS', Choosen, react_servs_react_serv_cat_id$, 'X' )\r\n\t\t\t*CatDescs = xlate( 'REACT_SERV_CAT', CatIds, react_serv_cat_reactor_service_category$, 'X' )\t\r\n\t\t\t*Record = get_property( @window, 'RECORD' )\r\n\t\t\t*Record = insert( Record, reactor_log_react_serv_cat_id$, CurRow, 0, CatIds )\r\n\t\t\t.serv_info->array = CurArray\r\n\t\t\tVoid = set_property( @window, 'RECORD', Record )\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 2 )\t\t\t\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 4 )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', 1 )\r\n\t\t Void = send_event( @window:'.SERV_INFO', 'LOSTFOCUS' )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', '' ) \r\n\t\tend\t\r\n\tend case\r\nRETURN 0"
}
}
}

11
LSL2/OIEVENT/POSCHANGED/REACTLOGBS.ET_REACT_PROB_ID.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "Declare Subroutine Send_Event, Set_Property\r\n\r\nListVals = Get_Property(@Window : '.ET_REACT_PROB_ID', 'DEFPROP')\r\nSet_Property(@Window : '.ET_REACT_PROB_ID', 'DEFPROP', ListVals)\r\n\r\nSend_Event(@Window : '.ET_REACT_PROB_ID', 'CALCULATE')\r\n\r\nreturn 1"
}
}
}

2
LSL2/OIEVENT/READ/EXPORTS..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, rlist, Set_Property, Send_Event\r\ndeclare function msg, rowexists, post_event, fieldcount\r\n\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert logical\r\n$insert exports_equ\r\n\r\nEid = .export_name->text\r\nif rowexists( 'EXPORTS', Eid ) then\r\n * ok now did this user enter it or is Heather trying to snoop\r\n Erec = xlate( 'EXPORTS', Eid, '', '' )\r\n ReadOk = false$\r\n if Erec<exports_sharable$> or get_property( @window, '@SystemGenerated' ) OR (@USERNAME = 'BRYCE_BARB') then\r\n ReadOk = true$\r\n end else\r\n if @user4 = xlate( 'EXPORTS', Eid, exports_entry_id$, '' ) then\r\n ReadOk = true$\r\n end\r\n end\r\n if ReadOk then\r\n forward_event() \r\n if .exporttablenames->text = 'REACT_UTIL' then\r\n .UTIL_START->VISIBLE = 1\r\n .UTIL_END->VISIBLE = 1\r\n .UTIL_START_LABEL->VISIBLE = 1\r\n .UTIL_END_LABEL->VISIBLE = 1\r\n end else\r\n .UTIL_START->VISIBLE = 0\r\n .UTIL_END->VISIBLE = 0\r\n .UTIL_START_LABEL->VISIBLE = 0\r\n .UTIL_END_LABEL->VISIBLE = 0\r\n end \r\n\t\tTtable = .exporttablenames->text\r\n\t\tIF Ttable = '' AND (@USERNAME NE 'BRYCE_BARB') THEN\r\n\t\t\tCall ErrMsg('You do not have Read rights to the Table used in this export.')\r\n\t\t\tSet_Property(@WINDOW,'SAVEWARN',0)\r\n\t\t\tSend_Event(@WINDOW,'CLEAR')\r\n\t\t\tRETURN 0\r\n\t\tEND\r\n\t\t\r\n \tColumns = ''\r\n \tBtreeColumns = ''\t\t\r\n\t\tif Ttable then\r\n\t\t\tDictTable = 'DICT.':Ttable\r\n\t\t\tVoid = utility( 'CURSOR', 'H' )\r\n\t\t\tCmd = \"SELECT \":DictTable:\" BY @ID WITH F1 = 'F' 'S'\"\r\n\t\t\trlist( Cmd, target_activelist$, '', '', '' )\r\n\t\t\tif @reccount then\r\n\t\t\t Eof = false$\r\n\t\t\t loop\r\n\t\t\t readnext DictId else Eof = true$\r\n\t\t\t until Eof\r\n\t\t\t Columns := DictId:@vm\r\n\t\t\t repeat\r\n\t\t\t Columns[-1,1] = ''\r\n\t\t\t Void = set_property( @window, '@Columns', Columns )\r\n\t\t\tend \r\n\t\t\tCmd = \"SELECT \":DictTable:\" USING EXPORTS BY @ID WITH F6 = 1\"\r\n\t\t\trlist( Cmd, target_activelist$, '', '', '' )\r\n\t\t\t\r\n\t\t\tif @reccount then\r\n\t\t\t Eof = false$\r\n\t\t\t\tloop\r\n\t\t\t\t readnext DictId else Eof = true$\r\n\t\t\t\t until Eof\r\n\t\t\t\t BtreeColumns := DictId:@vm\r\n\t\t\t\trepeat\r\n\t\t\t\tBtreeColumns[-1,1] = ''\r\n\t\t\t\tVoid = set_property( @window, '@BtreeColumns', BtreeColumns )\r\n\t\t\tend else\r\n\t\t\t * no btree columns\r\n\t\t\tend\r\n\t\t\tVoid = utility( 'CURSOR', 'A' )\r\n\t\tend\r\n QColumns = Columns\r\n BcCnt = fieldcount( BtreeColumns, @vm )\r\n for i = 1 to BcCnt\r\n locate BtreeColumns<1,i> in QColumns using @vm setting Rpos then\r\n QColumns = delete( QColumns, 1, Rpos, 0 )\r\n end\r\n next i\r\n Void = set_property( @window, '@QColumns', QColumns )\r\n end else\r\n Message = 'You are only allowed to view sharable or your own Export Templates...' \r\n Message<micon$> = 'H'\r\n Void = msg( '', Message )\r\n .export_name->text = ''\r\n void = post_event( @window:'.EXPORT_NAME', 'GOTFOCUS', '' )\r\n void = set_property( @window:'.EXPORT_NAME', 'FOCUS', 1 )\r\n end\r\nend else\r\n forward_event( CtrlEntID, CtrlClassID )\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' )\r\nend\r\nRETURN 0"
"<1>": "declare subroutine forward_event, rlist, Set_Property, Send_Event\r\ndeclare function msg, rowexists, post_event, fieldcount\r\n\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert logical\r\n$insert exports_equ\r\n\r\nEid = .export_name->text\r\nif rowexists( 'EXPORTS', Eid ) then\r\n * ok now did this user enter it or is Heather trying to snoop\r\n Erec = xlate( 'EXPORTS', Eid, '', '' )\r\n ReadOk = false$\r\n if Erec<exports_sharable$> or get_property( @window, '@SystemGenerated' ) then\r\n ReadOk = true$\r\n end else\r\n if @user4 = xlate( 'EXPORTS', Eid, exports_entry_id$, '' ) then\r\n ReadOk = true$\r\n end\r\n end\r\n if ReadOk then\r\n forward_event() \r\n if .exporttablenames->text = 'REACT_UTIL' then\r\n .UTIL_START->VISIBLE = 1\r\n .UTIL_END->VISIBLE = 1\r\n .UTIL_START_LABEL->VISIBLE = 1\r\n .UTIL_END_LABEL->VISIBLE = 1\r\n end else\r\n .UTIL_START->VISIBLE = 0\r\n .UTIL_END->VISIBLE = 0\r\n .UTIL_START_LABEL->VISIBLE = 0\r\n .UTIL_END_LABEL->VISIBLE = 0\r\n end \r\n\t\tTtable = .exporttablenames->text\r\n\t\tIF Ttable = '' THEN\r\n\t\t\tCall ErrMsg('You do not have Read rights to the Table used in this export.')\r\n\t\t\tSet_Property(@WINDOW,'SAVEWARN',0)\r\n\t\t\tSend_Event(@WINDOW,'CLEAR')\r\n\t\t\tRETURN 0\r\n\t\tEND\r\n\t\t\r\n \tColumns = ''\r\n \tBtreeColumns = ''\t\t\r\n\t\tif Ttable then\r\n\t\t\tDictTable = 'DICT.':Ttable\r\n\t\t\tVoid = utility( 'CURSOR', 'H' )\r\n\t\t\tCmd = \"SELECT \":DictTable:\" BY @ID WITH F1 = 'F' 'S'\"\r\n\t\t\trlist( Cmd, target_activelist$, '', '', '' )\r\n\t\t\tif @reccount then\r\n\t\t\t Eof = false$\r\n\t\t\t loop\r\n\t\t\t readnext DictId else Eof = true$\r\n\t\t\t until Eof\r\n\t\t\t Columns := DictId:@vm\r\n\t\t\t repeat\r\n\t\t\t Columns[-1,1] = ''\r\n\t\t\t Void = set_property( @window, '@Columns', Columns )\r\n\t\t\tend \r\n\t\t\tCmd = \"SELECT \":DictTable:\" USING EXPORTS BY @ID WITH F6 = 1\"\r\n\t\t\trlist( Cmd, target_activelist$, '', '', '' )\r\n\t\t\t\r\n\t\t\tif @reccount then\r\n\t\t\t Eof = false$\r\n\t\t\t\tloop\r\n\t\t\t\t readnext DictId else Eof = true$\r\n\t\t\t\t until Eof\r\n\t\t\t\t BtreeColumns := DictId:@vm\r\n\t\t\t\trepeat\r\n\t\t\t\tBtreeColumns[-1,1] = ''\r\n\t\t\t\tVoid = set_property( @window, '@BtreeColumns', BtreeColumns )\r\n\t\t\tend else\r\n\t\t\t * no btree columns\r\n\t\t\tend\r\n\t\t\tVoid = utility( 'CURSOR', 'A' )\r\n\t\tend\r\n QColumns = Columns\r\n BcCnt = fieldcount( BtreeColumns, @vm )\r\n for i = 1 to BcCnt\r\n locate BtreeColumns<1,i> in QColumns using @vm setting Rpos then\r\n QColumns = delete( QColumns, 1, Rpos, 0 )\r\n end\r\n next i\r\n Void = set_property( @window, '@QColumns', QColumns )\r\n end else\r\n Message = 'You are only allowed to view sharable or your own Export Templates...' \r\n Message<micon$> = 'H'\r\n Void = msg( '', Message )\r\n .export_name->text = ''\r\n void = post_event( @window:'.EXPORT_NAME', 'GOTFOCUS', '' )\r\n void = set_property( @window:'.EXPORT_NAME', 'FOCUS', 1 )\r\n end\r\nend else\r\n forward_event( CtrlEntID, CtrlClassID )\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' )\r\nend\r\nRETURN 0"
}
}
}

2
LSL2/OIEVENT/READ/QUOTE_SRL..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert quote_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'QUOTE_SRL', .quote_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Quote SRL', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Quote SRL', Write$ )\t \r\n\t ReadOk = false$\r\n\t .quote_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event( CtrlEntId, CtrlClassId )\r\n end\r\n QuoteNo = .quote_no->text\r\n ProtectVar = 'STATUS/ENTRY_ID/ENTRY_DATE/CUST_NAME/CONTACT_NAME/WAFER_DESC/'\r\n ProtectVar:= 'DIVISION'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'QUOTE_SRL', QuoteNo ) else\r\n .entry_id->text = oconv( @username, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Quote SRL', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t end\r\n end\r\nend\r\nreturn 0 \r\n"
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert quote_equ\r\n\r\nNewRecord = false$\r\nif rowexists( 'QUOTE_SRL', .quote_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new do they have write rights\r\n if security_check( 'Quote SRL', Write$ ) then\r\n ReadOk = true$ \r\n end else\r\n security_err_msg( 'Quote SRL', Write$ )\t \r\n\t ReadOk = false$\r\n\t .quote_no->text = ''\r\n\t Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\n end\r\n NewRecord = true$\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event( CtrlEntId, CtrlClassId )\r\n end\r\n QuoteNo = .quote_no->text\r\n ProtectVar = 'STATUS/ENTRY_ID/ENTRY_DATE/CUST_NAME/CONTACT_NAME/WAFER_DESC/'\r\n ProtectVar:= 'DIVISION'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 )\r\n if rowexists( 'QUOTE_SRL', QuoteNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n if NewRecord else\r\n\t if security_check( 'Quote SRL', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t end\r\n end\r\nend\r\nreturn 0 \r\n"
}
}
}

2
LSL2/OIEVENT/READ/SCHEDULE_SRL..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert msg_equates\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SCHEDULE_SRL', .schedule_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new don't allow ( only create via order )\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You can only create schedules from order.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n .schedule_no->text = ''\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event( CtrlEntId, CtrlClassId )\r\n end\r\n ScheduleNo = .schedule_no->text\r\n ProtectVar = 'PO/ENTRY_ID/ENTRY_DATE/CUST_NO/CUST_NAME/'\r\n ProtectVar:= 'WO/WAFER_SIZE/QUOTE_NO/RDS_CNT/ORDER_NO/TOT_SCHED/TOT_NOT_SCHED/'\r\n ProtectVar:= 'TOTAL_SHIP_QTY/TOTAL_NOT_SHIP_QTY/TOTAL_REJ/TOTAL_SHIP_AMOUNT/SEP_LAYER_CNT/'\r\n ProtectVar:= 'BOX_COUNT/TOT_WAF_IN'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 ) \r\n * add all other protected fields\r\n if rowexists( 'SCHEDULE_SRL', ScheduleNo ) else\r\n .entry_id->text = oconv( @username, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n Void = set_property( @window, '@OrigRDSDetail', .rds_detail->array ) \r\n if NewRecord else\r\n\t if security_check( 'Schedule SRL', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t end\r\n end\r\nend\r\nRETURN 0"
"<1>": "declare subroutine forward_event, security_err_msg\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert msg_equates\r\n\r\n\r\nNewRecord = false$\r\nif rowexists( 'SCHEDULE_SRL', .schedule_no->text ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new don't allow ( only create via order )\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You can only create schedules from order.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n .schedule_no->text = ''\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event( CtrlEntId, CtrlClassId )\r\n end\r\n ScheduleNo = .schedule_no->text\r\n ProtectVar = 'PO/ENTRY_ID/ENTRY_DATE/CUST_NO/CUST_NAME/'\r\n ProtectVar:= 'WO/WAFER_SIZE/QUOTE_NO/RDS_CNT/ORDER_NO/TOT_SCHED/TOT_NOT_SCHED/'\r\n ProtectVar:= 'TOTAL_SHIP_QTY/TOTAL_NOT_SHIP_QTY/TOTAL_REJ/TOTAL_SHIP_AMOUNT/SEP_LAYER_CNT/'\r\n ProtectVar:= 'BOX_COUNT/TOT_WAF_IN'\r\n swap '/' with @rm:@window:'.' in ProtectVar\r\n ProtectVar = @window:'.':ProtectVar\r\n Void = set_property( ProtectVar, 'ENABLED', 0 ) \r\n * add all other protected fields\r\n if rowexists( 'SCHEDULE_SRL', ScheduleNo ) else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' ) \r\n end \r\n Void = set_property( @window, '@OrigRDSDetail', .rds_detail->array ) \r\n if NewRecord else\r\n\t if security_check( 'Schedule SRL', Edit$ ) else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n\t end\r\n end\r\nend\r\nRETURN 0"
}
}
}

2
LSL2/OIEVENT/WRITE/EXPORTS..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function rowexists, msg, memberof\r\n$insert msg_equates\r\n\r\nExportName = .export_name->text\r\nif index( ExportName, '_SYSTEM_', 1 ) and not( memberof( @user4, 'MASTER' ) ) and (@USERNAME NE 'BRYCE_BARB') then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You can not save SYSTEM Export templates...'\r\n MsgInfo<micon$> = 'H'\r\n void = msg( '', MsgInfo )\r\n return 0\r\nend else\r\n if rowexists( 'EXPORTS', ExportName ) else\r\n .entry_id->text = @user4\r\n end\r\nend\r\nRETURN 1\r\n"
"<1>": "declare function rowexists, msg, memberof\r\n$insert msg_equates\r\n\r\nExportName = .export_name->text\r\nif index( ExportName, '_SYSTEM_', 1 ) and not( memberof( @user4, 'MASTER' ) ) then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You can not save SYSTEM Export templates...'\r\n MsgInfo<micon$> = 'H'\r\n void = msg( '', MsgInfo )\r\n return 0\r\nend else\r\n if rowexists( 'EXPORTS', ExportName ) else\r\n .entry_id->text = @user4\r\n end\r\nend\r\nRETURN 1\r\n"
}
}
}

2
LSL2/OIEVENT/WRITE/EXPORTS_A..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function rowexists, msg, memberof, Get_Property\r\n$insert msg_equates\r\n\r\nExportName = Get_Property(@WINDOW:'.EXPORT_NAME','TEXT')\r\nif index( ExportName, '_SYSTEM_', 1 ) and not( memberof( @user4, 'MASTER' ) ) and (@USERNAME NE 'BRYCE_BARB') then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You can not save SYSTEM Export templates...'\r\n MsgInfo<micon$> = 'H'\r\n void = msg( '', MsgInfo )\r\n return 0\r\nend else\r\n if rowexists( 'EXPORTS', ExportName ) else\r\n .entry_id->text = @user4\r\n end\r\nend\r\nRETURN 1\r\n"
"<1>": "declare function rowexists, msg, memberof, Get_Property\r\n$insert msg_equates\r\n\r\nExportName = Get_Property(@WINDOW:'.EXPORT_NAME','TEXT')\r\nif index( ExportName, '_SYSTEM_', 1 ) and not( memberof( @user4, 'MASTER' ) ) then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You can not save SYSTEM Export templates...'\r\n MsgInfo<micon$> = 'H'\r\n void = msg( '', MsgInfo )\r\n return 0\r\nend else\r\n if rowexists( 'EXPORTS', ExportName ) else\r\n .entry_id->text = @user4\r\n end\r\nend\r\nRETURN 1\r\n"
}
}
}

2
LSL2/OIEVENT/WRITE/PROD_SPEC..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function rowexists, prod_spec_comm, msg, Comm_Prod_Spec, Get_Property\r\ndeclare subroutine create_note, forward_event, obj_Prod_Spec, Comm_Prod_Spec\r\n\r\n$INSERT QUOTE_SIGS_EQU\r\n$INSERT QUOTE_SPEC_EQU\r\n$INSERT MSG_EQUATES\r\n$INSERT LOGICAL\r\n$INSERT NOTIFICATION_EQU\r\n\r\n*Tvalue = .rtype->value\r\n*if Tvalue = '' then\r\n*\tMsgInfo = ''\r\n*\tMsgInfo<mtext$> = 'You must choose a reactor type...'\r\n*\tMsgInfo<micon$> = 'H'\r\n*\tVoid = msg( '', MsgInfo )\r\n*\treturn 0\r\n*end\r\n\r\nPSN = .prod_spec_id->text\r\nif rowexists( 'PROD_SPEC', PSN ) then\r\n RowExists = true$\r\nend else\r\n RowExists = false$\r\nend\r\nSubstrateInfo = .spec_substrate->text\r\n\r\nPSNStatus = Get_Property(@Window : '.STATUS', 'VALUE')\r\n\r\n\r\nIf @@window->savewarn EQ true$ AND PSNStatus NE 'I' then\r\n\tResult = Comm_Prod_Spec('UpdateRevHist')\r\n\tIf Result EQ False$ then\r\n\t\tReturn 0\r\n\tend\r\nend\r\n\r\nSendTo = XLATE('NOTIFICATION','PSN_DELTA',NOTIFICATION_USER_ID$,'X')\r\n\t \r\nif rowexists( 'PROD_SPEC', PSN ) then\r\n\tif ( @@window->savewarn = true$ ) then\r\n\t\tcreate_note( SendTo, 'System', 'PSN Modification', 'This PSN was modified by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'PROD_SPEC', .prod_spec_id->text )\r\n\tend\r\nend else\r\n\t.entry_id->text = @user4\r\n\tcreate_note( SendTo, 'System', 'New PSN', 'This PSN was entered by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'PROD_SPEC', .prod_spec_id->text )\t \r\nend\r\n\r\n* Deprecated 7/2/18 - djs - KLUSA PSN Revision History Project\r\n*if ( @@window->savewarn = true$ ) then\r\n*\tModArray = .mod_info->array\r\n*\tModArray = insert( ModArray, 1, 1, 0, @user4 )\r\n*\tModArray = insert( ModArray, 2, 1, 0, oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ) )\r\n*\tModArray = insert( ModArray, 3, 1, 0, oconv( date(), 'D2/' ) )\r\n*\t.mod_info->array = ModArray\r\n*end\r\n\r\nforward_event()\r\n\r\n*obj_Prod_Spec('PushTech',PSN)\t;* Pushes data to new table locations JCH 10/8/2012 ;* Moved to PROD_SPEC_ACTIONS (invoked by BASE_MFS) DJS 3/24/21\r\n\r\nreturn 0\r\n"
"<1>": "declare function rowexists, prod_spec_comm, msg, Comm_Prod_Spec, Get_Property\r\ndeclare subroutine create_note, forward_event, obj_Prod_Spec, Comm_Prod_Spec\r\n\r\n$INSERT QUOTE_SIGS_EQU\r\n$INSERT QUOTE_SPEC_EQU\r\n$INSERT MSG_EQUATES\r\n$INSERT LOGICAL\r\n$INSERT NOTIFICATION_EQU\r\n\r\n*Tvalue = .rtype->value\r\n*if Tvalue = '' then\r\n*\tMsgInfo = ''\r\n*\tMsgInfo<mtext$> = 'You must choose a reactor type...'\r\n*\tMsgInfo<micon$> = 'H'\r\n*\tVoid = msg( '', MsgInfo )\r\n*\treturn 0\r\n*end\r\n\r\nPSN = .prod_spec_id->text\r\nif rowexists( 'PROD_SPEC', PSN ) then\r\n RowExists = true$\r\nend else\r\n RowExists = false$\r\nend\r\nSubstrateInfo = .spec_substrate->text\r\n\r\nIf @@window->savewarn EQ true$ then\r\n\tResult = Comm_Prod_Spec('UpdateRevHist')\r\n\tIf Result EQ False$ then\r\n\t\tReturn 0\r\n\tend\r\nend\r\n\r\nSendTo = XLATE('NOTIFICATION','PSN_DELTA',NOTIFICATION_USER_ID$,'X')\r\n\t \r\nif rowexists( 'PROD_SPEC', PSN ) then\r\n\tif ( @@window->savewarn = true$ ) then\r\n\t\tcreate_note( SendTo, 'System', 'PSN Modification', 'This PSN was modified by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'PROD_SPEC', .prod_spec_id->text )\r\n\tend\r\nend else\r\n\t.entry_id->text = @user4\r\n\tcreate_note( SendTo, 'System', 'New PSN', 'This PSN was entered by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'PROD_SPEC', .prod_spec_id->text )\t \r\nend\r\n\r\n* Deprecated 7/2/18 - djs - KLUSA PSN Revision History Project\r\n*if ( @@window->savewarn = true$ ) then\r\n*\tModArray = .mod_info->array\r\n*\tModArray = insert( ModArray, 1, 1, 0, @user4 )\r\n*\tModArray = insert( ModArray, 2, 1, 0, oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ) )\r\n*\tModArray = insert( ModArray, 3, 1, 0, oconv( date(), 'D2/' ) )\r\n*\t.mod_info->array = ModArray\r\n*end\r\n\r\nforward_event()\r\n\r\n*obj_Prod_Spec('PushTech',PSN)\t;* Pushes data to new table locations JCH 10/8/2012 ;* Moved to PROD_SPEC_ACTIONS (invoked by BASE_MFS) DJS 3/24/21\r\n\r\nreturn 0\r\n"
}
}
}

2
LSL2/OIEVENT/WRITE/QUOTE_SRL..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function rowexists\r\n\r\nif rowexists( 'QUOTE_SRL', .quote_no->text ) else\r\n .entry_id->text = @username\r\nend \r\nreturn 1\r\n"
"<1>": "declare function rowexists\r\n\r\nif rowexists( 'QUOTE_SRL', .quote_no->text ) else\r\n .entry_id->text = @user4\r\nend \r\nreturn 1\r\n"
}
}
}

2
LSL2/OIEVENT/WRITE/RDS_POST_EPI..json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function rds_comm, send_event, Get_Status, Get_Property, RowExists\r\ndeclare subroutine forward_event, Set_Status,Set_Property, obj_WO_Step, ErrMsg, RDS_React_Run, Post_Event\r\n$insert logical\r\n$insert msg_equates\r\n$insert prod_spec_equ\r\n$INSERT RDS_EQU\r\n\r\n* NEED TO READ THE MOD_ID AND MOD_DATE FROM RDS CAUSE WE ARE IGNORING SELF LOCKS\r\n* WHICH MEANS THIS RDS COULD BE CURRENTLY VIEWED VIA ANOTHER WINDOW\r\n\r\nRDSNo\t\t= Get_Property(@WINDOW:'.RDS_NO','TEXT')\r\n\r\n\r\nIF RowExists('REACT_RUN',RDSNo) ELSE\r\n\r\n\tMsg(@WINDOW,'','INVALID_RDS_NO')\r\n\tPost_Event(@WINDOW,'CLEAR')\t\r\n\t\r\n\tRETURN 0\r\n\t\r\nEND\r\n\r\n\r\n\r\nIF @@WINDOW->SAVEWARN THEN\r\n\tVoid = RDS_Comm( 'STAMP_MOD' )\r\n\tVoid = RDS_Comm( 'WRITE_STAMP' )\r\nEND\r\n\r\nOrgCursor = Get_Property('SYSTEM','CURSOR')\t;* Get existing cursor shape\r\n\t\r\nSet_Property('SYSTEM','CURSOR','H')\t\t\t;* Set to hourglass while busy\r\n\r\nForward_Event()\t\t\t\t;* Perform the write\r\n\r\nRDS_React_Run(RDSNo)\t\t;* Move RDS to REACT_RUN and REACT_RUN_CI and Final Sig to WO_MAT \r\n\r\n\r\nSet_Property('SYSTEM','CURSOR',OrgCursor)\r\n\r\nRETURN 0\r\n\t\r\n"
"<1>": "declare function rds_comm, send_event, Get_Status, Get_Property, RowExists, Wafer_Counter_Services, Datetime\r\ndeclare subroutine forward_event, Set_Status,Set_Property, obj_WO_Step, ErrMsg, RDS_React_Run, Post_Event, Wafer_Counter_Services\r\n$insert logical\r\n$insert msg_equates\r\n$insert prod_spec_equ\r\n$INSERT RDS_EQU\r\n\r\n* NEED TO READ THE MOD_ID AND MOD_DATE FROM RDS CAUSE WE ARE IGNORING SELF LOCKS\r\n* WHICH MEANS THIS RDS COULD BE CURRENTLY VIEWED VIA ANOTHER WINDOW\r\n\r\nRDSNo\t\t= Get_Property(@WINDOW:'.RDS_NO','TEXT')\r\n\r\n\r\nIF RowExists('REACT_RUN',RDSNo) ELSE\r\n\r\n\tMsg(@WINDOW,'','INVALID_RDS_NO')\r\n\tPost_Event(@WINDOW,'CLEAR')\t\r\n\t\r\n\tRETURN 0\r\n\t\r\nEND\r\n\r\n\r\n\r\nIF @@WINDOW->SAVEWARN THEN\r\n\tVoid = RDS_Comm( 'STAMP_MOD' )\r\n\tVoid = RDS_Comm( 'WRITE_STAMP' )\r\nEND\r\n\r\nOrgCursor = Get_Property('SYSTEM','CURSOR')\t;* Get existing cursor shape\r\n\t\r\nSet_Property('SYSTEM','CURSOR','H')\t\t\t;* Set to hourglass while busy\r\n\r\nIf RDSNo NE '' then\r\n\tOrigFqaWCQty = Get_Property(@Window, '@ORIG_WFR_CTR_QTY')\r\n\tCurrFqaWCQty = Get_Property(@Window:'.EDL_WAFER_COUNTER_QTY', 'TEXT')\r\n\tIf OrigFqaWCQty NE CurrFqaWCQty then\r\n\t\tWafer_Counter_Services('AddScan', RDSNo, CurrFqaWCQty, Datetime(), '', @User4, 'QA', '')\r\n\tend\r\nend\r\n\r\nForward_Event()\t\t\t\t;* Perform the write\r\n\r\nRDS_React_Run(RDSNo)\t\t;* Move RDS to REACT_RUN and REACT_RUN_CI and Final Sig to WO_MAT \r\n\r\n\r\nSet_Property('SYSTEM','CURSOR',OrgCursor)\r\n\r\nRETURN 0\r\n\t\r\n"
}
}
}

11
LSL2/OIEVENT/WRITE/REACTOR_LOG_BAK..json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "Declare Function Comm_Reactor_Log\r\n\r\nReturn Comm_Reactor_Log(CtrlEntID,'WRITE')"
}
}
}

2
LSL2/OIEVENT/WRITE/SCHEDULE_SRL..json
View File

File diff suppressed because one or more lines are too long