added remaining LSL2 entities

LSL2/OIEVENT/WRITE/ANNUAL_CONTRACTS..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists, msg\r\ndeclare subroutine create_note\r\n$insert msg_equates\r\n$insert quote_sigs_equ\r\n\r\nif rowexists( 'ANNUAL_CONTRACTS', .contract_no->text ) else\r\n   .entry_id->text = @user4\r\nend\r\nTotRelAmt = iconv( .tot_rel_amount->text, 'MD2' )\r\nTotContractAmt = iconv( .tot_contract_amount->text, 'MD2' )\r\nDiff = TotContractAmt - TotRelAmt\r\nMinBalance = iconv( .min_balance->text, 'MD2' )\r\nif MinBalance then\r\n   ValToCheck = MinBalance\r\nend else\r\n   ValToCheck = 100100\r\nend\r\nif Diff < ValToCheck then\r\n  ContractNo = .contract_no->text\r\n  Message = 'The annual contract balance for ':.cust_name->text:' contract # '\r\n  Message:= ContractNo:' is currently at ':oconv( Diff, 'MD2,$' )\r\n  SendTo = xlate( 'CONFIG', 'QUOTE_SIGS', ACReminder$, 'X' )\r\n  create_note( SendTo, 'System', 'Annual Contract Balance', Message, 'ANNUAL_CONTRACTS', ContractNo )\r\nend\r\nif ( @@window->savewarn ) and ( .status->value = 'C' ) then\r\n   MsgInfo = ''\r\n   MsgInfo<mtext$> = 'The status of this contract is currently closed...please verify that you should be using this contract.'\r\n   MsgInfo<micon$> = '!'\r\n   Void = msg( '', MsgInfo )\r\nend\r\nreturn 1"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/ANN_CONT..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "DECLARE Function Comm_Ann_Cont\r\nRETURN Comm_Ann_Cont('Write')"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/ASSIGN_CAUSE..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists\r\n\r\nif rowexists( 'ASSIGN_CAUSE', .assign_cause_id->text ) else\r\n   .entry_id->text = @user4\r\nend\r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/ATTENDANCE..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists\r\n\r\nif rowexists( 'ATTENDANCE', .absent_id->text ) else\r\n   .entry_id->text = @user4\r\nend\r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/BOM..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "DECLARE FUNCTION BOM\r\n\r\n\r\nRETURN BOM(CtrlEntID,'WRITE')"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/CALIBRATION..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "DECLARE FUNCTION Calibration\r\n\r\n\r\nRETURN Calibration(CtrlEntID,'WRITE')"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/CALL_VISIT..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists\r\ndeclare subroutine create_note\r\n\r\nif rowexists( 'CALL_VISIT', .call_visit_id->text ) else\r\n   .entry_id->text = @user4\r\nend\r\nreturn 1"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/CDM_LOG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists, msg, post_event\r\n$insert msg_equates\r\n\r\nif .tech_sig->text='' then\r\n\tMsgInfo = ''\r\n\tMsgInfo<mtext$> = 'You have not signed the log entry'\r\n\tMsgInfo<micon$> = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\tVoid = post_event( @window:'.TECH_SIG', 'GOTFOCUS' )\r\n\tVoid = set_property( @window:'.TECH_SIG', 'FOCUS', 1 )\r\n\treturn 0\r\nend\r\n\r\nif rowexists( 'CDM_LOG', .log_no->text ) then\r\n\t*we're rewriting an entry that already existed -\r\n\t*don't replace current username into entry_id\r\nend else\r\n   .entry_id->text = @user4; *this is a new entry so\r\n   \t\t\t\t\t\t\t\t*place username into entry_id for the write\r\nend\r\n\r\nreturn 1"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/CLEAN_INSP..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "DECLARE FUNCTION Clean_Insp\r\n\r\nRETURN Clean_Insp(CtrlEntID,'WRITE')"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/CLEAN_INSP_SRP..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "DECLARE FUNCTION Clean_Insp\r\n\r\nRETURN Clean_Insp(CtrlEntID,'WRITE')"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/COA..json

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

LSL2/OIEVENT/WRITE/COC..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists\r\n\r\nif rowexists( 'COC', .coc_no->text ) else\r\n   .entry_id->text = @user4\r\nend\r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/COMPANY..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists\r\n\r\nif rowexists( 'COMPANY', .co_no->text ) else\r\n   .entry_id->text = @user4\r\nend\r\nreturn 1"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/CUSTOMER_EPI..json

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

LSL2/OIEVENT/WRITE/CUST_INQUIRY..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists\r\ndeclare subroutine create_note\r\n$insert quote_sigs_equ\r\n\r\nif rowexists( 'CUST_INQUIRY', .cust_inquiry_id->text ) else\r\n   .entry_id->text = @user4\r\n   * send a message to prod/eng group\r\n   Subject = 'New Customer Inquiry'\r\n   Note    = 'Customer Inquiry was entered by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n   * XLATE ENGINEERING PEOPLE\r\n   SendTo  = xlate( 'CONFIG', 'QUOTE_SIGS', InqEngSigners$, 'X' )\r\n   create_note( SendTo, @user4, Subject, Note, 'CUST_INQUIRY', .cust_inquiry_id->text )\r\nend\r\nOrigEngSig = get_property( @window, '@OrigEngSig' )      \r\nCurEngSig  = .eng_signature->text\r\nif OrigEngSig = '' and ( CurEngSig <> '' ) then\r\n   * send a message back to marketing group\r\n   Subject = 'Customer Inquiry Signed'\r\n   Note    = 'Customer Inquiry was signed by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n   * XLATE MARKETING PEOPLE\r\n   SendTo  = xlate( 'CONFIG', 'QUOTE_SIGS', InqMktSigners$, 'X' )\r\n   create_note( SendTo, @user4, Subject, Note, 'CUST_INQUIRY', .cust_inquiry_id->text )\r\nend\r\nreturn 1"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/DBW_PROD_SPEC_GAN..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "Declare Function Get_Property, DBW_PROD_SPEC_GAN_EVENTS\r\n\r\nPSNStatus = Get_Property(@Window : '.STATUS', 'VALUE')\r\n\r\n\r\nIf ( (@@window->savewarn EQ 1) AND ((PSNStatus EQ 'A') OR (PSNStatus EQ 'H')) ) then\r\n\r\n\trv = DBW_PROD_SPEC_GAN_EVENTS(@Window, 'UpdateRevHist')\r\n\t\r\nend else\r\n\r\n\trv = 1\r\n\t\r\nend\r\n\r\nReturn rv"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/DBW_WO_LOG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "DECLARE FUNCTION COMM_WO_LOG\r\n\r\nRETURN Comm_WO_LOG('Write')"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/DESIG_ERR_GRP..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists\r\n\r\nif rowexists( 'DESIG_ERR_GRP', .desig_id->text ) else\r\n   .entry_id->text = @user4\r\nend\r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/EPI_PART..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "DECLARE FUNCTION EPI_PART\r\nRETURN Epi_Part(@WINDOW,'WRITE')"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/EPI_SUSCEPTOR..json

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

LSL2/OIEVENT/WRITE/EXPORT3..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "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' ) ) 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"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/EXPORTS..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "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"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/EXPORTS_A..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "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"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/FIX_CLEAN_SPEC..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "DECLARE FUNCTION Clean_Insp\r\n\r\nRETURN Clean_Insp(CtrlEntID,'WRITE')"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/GAN_PROD_SPEC..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "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\nTvalue = .rtype->value\r\nif 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\nend\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 EQ 'A') OR (PSNStatus EQ 'H')) ) 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\nobj_Prod_Spec('PushTech',PSN)\t;* Pushes data to new table locations JCH 10/8/2012\r\n\r\nreturn 0\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/GAS_SRC..json

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

LSL2/OIEVENT/WRITE/HOTH2O2_LOG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists, msg, post_event\r\n$insert msg_equates\r\n\r\nif .tech_sig->text='' then\r\n\tMsgInfo = ''\r\n\tMsgInfo<mtext$> = 'You have not signed the log entry'\r\n\tMsgInfo<micon$> = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\tVoid = post_event( @window:'.TECH_SIG', 'GOTFOCUS' )\r\n\tVoid = set_property( @window:'.TECH_SIG', 'FOCUS', 1 )\r\n\treturn 0\r\nend\r\n\r\nif rowexists( 'HOTH2O2_LOG', .log_no->text ) then\r\n\t*we're rewriting an entry that already existed -\r\n\t*don't replace current username into entry_id\r\nend else\r\n   .entry_id->text = @user4; *this is a new entry so\r\n   \t\t\t\t\t\t\t\t*place username into entry_id for the write\r\nend\r\n\r\nreturn 1"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/ICAR..json

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

LSL2/OIEVENT/WRITE/LAST_WFR_CI_GROUP..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function  rds_comm, msg, post_event, dialog_box, ex_vm_rem, start_window, fieldcount, Get_Property, Get_Status\r\ndeclare subroutine forward_event, create_note, ErrMsg, Set_Property, obj_WO_Step, Set_Status, RDS_React_Run\r\n\r\n$insert logical\r\n$insert msg_equates\r\n$INSERT RDS_EQU\r\n\r\n   \r\nRdsNo = .rds_no->text      \r\nProdWafers = 0\r\nCustNo = field( .cust_info->text, ' ', 1 )\r\n\r\n\r\nRDSId\t\t= Get_Property(@WINDOW:'.RDS_NO','TEXT')\t\t\t;* Added 1/31/05 BY JCH to maintain RDS_Status field in WO_Step file.\r\n\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\nif @@window->savewarn then\r\n\tVoid = rds_comm( 'STAMP_MOD' )\r\n\tVoid = rds_comm( 'WRITE_STAMP' )\r\nend\r\n\r\nforward_event()\r\n\r\nRDS_React_Run(RDSId)\t;* Conversion of data to REACT_RUN and REACT_RUN_CI & Adds Sig to WO_MAT 3/18/2008 JCH\r\n\r\n\r\nreturn 0"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/LOSS_CODES..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists\r\n\r\nif rowexists( 'LOSS_CODES', .loss_code->text ) else\r\n   .entry_id->text = @user4\r\nend\r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/MASTER_DISK_LOG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists, msg, post_event\r\n$insert msg_equates\r\n\r\nif .tech_sig->text='' then\r\n\tMsgInfo = ''\r\n\tMsgInfo<mtext$> = 'You have not signed the log entry'\r\n\tMsgInfo<micon$> = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\tVoid = post_event( @window:'.TECH_SIG', 'GOTFOCUS' )\r\n\tVoid = set_property( @window:'.TECH_SIG', 'FOCUS', 1 )\r\n\treturn 0\r\nend\r\n\r\nif rowexists( 'MASTER_DISK_LOG', .log_no->text ) then\r\n\t*we're rewriting an entry that already existed -\r\n\t*don't replace current username into entry_id\r\nend else\r\n   .entry_id->text = @user4; *this is a new entry so\r\n   \t\t\t\t\t\t\t\t*place username into entry_id for the write\r\nend\r\n\r\nreturn 1"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/MEG_LOG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists, msg, post_event\r\n$insert msg_equates\r\n\r\nif .tech_sig->text='' then\r\n\tMsgInfo = ''\r\n\tMsgInfo<mtext$> = 'You have not signed the log entry'\r\n\tMsgInfo<micon$> = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\tVoid = post_event( @window:'.TECH_SIG', 'GOTFOCUS' )\r\n\tVoid = set_property( @window:'.TECH_SIG', 'FOCUS', 1 )\r\n\treturn 0\r\nend\r\n\r\nif rowexists( 'MEG_LOG', .log_no->text ) then\r\n\t*we're rewriting an entry that already existed -\r\n\t*don't replace current username into entry_id\r\nend else\r\n   .entry_id->text = @user4; *this is a new entry so\r\n   \t\t\t\t\t\t\t\t*place username into entry_id for the write\r\nend\r\n\r\nreturn 1"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/MFC..json

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

LSL2/OIEVENT/WRITE/MSG_GROUPS..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists\r\n\r\nif rowexists( 'MSG_GROUPS', .group_name->text ) else\r\n   .entry_id->text = @user4\r\nend\r\nreturn 1"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/NAMES..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare subroutine forward_event\r\ndeclare function rowexists\r\n\r\nif rowexists( 'NAMES', .seq->text ) else\r\n  .entry_id->text = @user4\r\nend\r\n.co_no->visible = 1\r\n.co_no->text = .co_no->misc\r\nforward_event()\r\n.co_no->visible = 0\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/NCR..json

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

LSL2/OIEVENT/WRITE/NDA..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists\r\n\r\nif rowexists( 'NDA', .nda_id->text ) else\r\n   .entry_id->text = @user4\r\nend\r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/NDW_TOOL_PARMS..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "DECLARE Function Comm_RDS_Layer\r\n\r\nRETURN Comm_RDS_Layer('Write')"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/NOTES..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "DECLARE FUNCTION Msg, fieldcount, verifile, send_event, findwindow, rowexists, Notes_Comm, Get_Status\r\nDECLARE SUBROUTINE Forward_Event, record_lock, obj_Notes_Sent, Set_Property, obj_Notes, ErrMsg\r\n\r\n$INSERT note_ptrs_equ\r\n$INSERT msg_equates\r\n\r\nNoteID = Get_Property(@WINDOW:'.SEQ','TEXT')\r\n\r\nIF Rowexists( 'NOTES',NoteID) THEN\r\n   RETURN 0\r\nEND\r\n\r\nvoid = Utility( 'CURSOR', 'H' )\r\n\r\nOPEN 'NOTE_PTRS' TO NotePtrTable ELSE\r\n   void = Msg( '', 'Unable to open NOTE POINTER FILE.' )\r\n   RETURN 0\r\nEND\r\n  \r\nTIarray = Notes_Comm( 'STRIP_DUPS' )\t; *TIARRAY = All the users from Users & Groups minus duplicates\r\n\r\nIF (TIarray) THEN\r\n\tStList = TIArray\r\n\tStCnt = FieldCount( StList, @vm )\r\n\tSendToIconv = ''\r\n\t\r\n\tSet_Property(@WINDOW:'.ENTRY_ID','TEXT',@USER4)\t\t\t\t;* .entry_id->text = @user4\r\n\tSet_Property(@WINDOW:'.SEND_TO_INTERNAL','ARRAY',TIarray)\t;* .send_to_internal->array = TIarray\t\r\n\t\r\n\tForward_Event()\t\t\t\t\t\t\t\t\t\t\t\t; *This saves the message\r\n\t\r\n\tobj_Notes('PostEMail',NoteID)\r\n\t\r\n\tIF Get_Status(errCode) THEN\r\n\t\tErrMsg(errCode)\r\n\tEND\r\n   \r\n\tFOR I = 1 TO StCnt\r\n  \r\n\t\tThisSendTo = StList<1,I>\r\n\t\t\r\n\t\tIF LEN(ThisSendTo) THEN\r\n\t\t\t    \r\n\t\t\tRecipient\t= ThisSendTo\r\n\t\t\tCurrDTM\t\t= OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTHS')\r\n \r\n\t\t\tobj_Notes_Sent('Create',Recipient:@RM:NoteID:@RM:CurrDTM)\r\n\t\t\r\n\t\tEND\r\n\tNEXT I\r\n\r\n\tIF Get_Property(@WINDOW, '@DontClose' ) ELSE\r\n\t\tvoid = Send_Event( @WINDOW, 'CLOSE' )\r\n\tEND\r\nEND \r\n      \r\nvoid = Utility( 'CURSOR', 'A' )\r\n\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/NOTE_MESSAGE..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "DECLARE FUNCTION Note_Message\r\n\r\nRETURN Note_Message(CtrlEntid,'WRITE')"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/ORDER2..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "DECLARE FUNCTION Comm_Order\r\n\r\nOrderNo = Get_Property(@WINDOW:'.ORD_NO','TEXT')\r\n\r\nRETURN Comm_Order('Write',OrderNo)"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/ORDER_DET..json

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

LSL2/OIEVENT/WRITE/PART..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "DECLARE FUNCTION Part\r\n\r\n\r\nRETURN Part(CtrlEntID,'WRITE')"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/PHOTOFLO_LOG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists, msg, post_event\r\n$insert msg_equates\r\n\r\nif .tech_sig->text='' then\r\n\tMsgInfo = ''\r\n\tMsgInfo<mtext$> = 'You have not signed the log entry'\r\n\tMsgInfo<micon$> = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\tVoid = post_event( @window:'.TECH_SIG', 'GOTFOCUS' )\r\n\tVoid = set_property( @window:'.TECH_SIG', 'FOCUS', 1 )\r\n\treturn 0\r\nend\r\n\r\nif rowexists( 'PHOTOFLO_LOG', .log_no->text ) then\r\n\t*we're rewriting an entry that already existed -\r\n\t*don't replace current username into entry_id\r\nend else\r\n   .entry_id->text = @user4; *this is a new entry so\r\n   \t\t\t\t\t\t\t\t*place username into entry_id for the write\r\nend\r\n\r\nreturn 1"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/PROD_SPEC..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "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"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/PROD_SPEC_BACKUP..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "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\nTvalue = .rtype->value\r\nif 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\nend\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 EQ 'A') OR (PSNStatus EQ 'H')) ) 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\nobj_Prod_Spec('PushTech',PSN)\t;* Pushes data to new table locations JCH 10/8/2012\r\n\r\nreturn 0\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/PROD_SPEC_JCH..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "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\nTvalue = .rtype->value\r\nif 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\nend\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 EQ 'A') OR (PSNStatus EQ 'H')) ) 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\nobj_Prod_Spec('PushTech',PSN)\t;* Pushes data to new table locations JCH 10/8/2012\r\n\r\nreturn 0\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/PROD_SPEC_JRO..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "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\nTvalue = .rtype->value\r\nif 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\nend\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 EQ 'A') OR (PSNStatus EQ 'H')) ) 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\nobj_Prod_Spec('PushTech',PSN)\t;* Pushes data to new table locations JCH 10/8/2012\r\n\r\nreturn 0\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/PROD_VER..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "DECLARE FUNCTION Prod_Ver\r\n\r\n\r\nRETURN Prod_Ver(CtrlEntID,'WRITE')"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/PRS_STAGE..json

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

LSL2/OIEVENT/WRITE/P_NAMES..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists\r\nif rowexists( 'P_NAMES', .seq->text ) else\r\n   .entry_id->text = @user4\r\nend\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/QUARTZ_TC_LOG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists\r\n\r\nif rowexists( 'QUARTZ_TC_LOG', .tc_no->text ) else\r\n   .entry_id->text = @user4\r\nend\r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/QUARTZ_WAND_LOG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists\r\n\r\nif rowexists( 'QUARTZ_WAND_LOG', .wand_log_no->text ) else\r\n   .entry_id->text = @user4\r\nend\r\nreturn 1\r\n\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/QUOTE..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists, msg\r\ndeclare subroutine forward_event, record_lock, create_note\r\n$insert quote_equ\r\n$insert msg_equates\r\n$insert logical\r\nequ CrLf$ to char(13):char(10)\r\n\r\nSendMessage = false$\r\nif rowexists( 'QUOTE', .quote_no->text ) else\r\n   .entry_id->text = @user4\r\n   SendMessage = true$\r\nend  \r\nQuoteNo = .quote_no->text \r\nOrigInqStatus = get_property( @window, '@OrigInqStatus' )\r\nCurInqStatus  = .inquiry_status->value\r\nforward_event()\r\nif OrigInqStatus <> 'N' and CurInqStatus = 'N' then\r\n   * THEY HAVE SET TO NO QUOTE SO ASK IF THEY WANT TO SEND A MESSAGE TO NEW DEVELOPMENT\r\n   MsgInfo = ''\r\n   MsgInfo<mtype$> = 'BNY'\r\n   MsgInfo<micon$> = '?'\r\n   Tvar            = 'You have selected \"No Quote\" Inquiry status...':CrLf$\r\n   Tvar           := 'Do you wish to send a message to the new product development group?'\r\n   MsgInfo<mtext$> = Tvar\r\n   SendIt = msg( '', MsgInfo )\r\n   if SendIt = 1 then\r\n      Users = 'DOUG_W':@vm:'TOM_T':@vm:'BRYCE_M'\r\n      Message = 'Inquiry has been set to No Quote status by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' )\r\n      create_note( Users, 'System', 'Inquiry set to No Quote', Message, 'QUOTE', QuoteNo )\r\n   end\r\nend\r\n*if SendMessage then\r\n*    SignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\n*    Users           = SignatureInfo<1>\r\n*    locate @user4 in Users using @vm setting Upos then\r\n*        ;* don't send to user that is entering\r\n*        Users = delete( Users, 1, Upos, 0 )\r\n*    end\r\n*    Message = 'Please review this quote and sign or respond.'\r\n*    create_note( Users, 'System', 'Quote to sign', Message, 'QUOTE', QuoteNo )\r\n*end\r\nreturn 0\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/QUOTE_OLD..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function msg\r\n$insert msg_equates\r\n\r\n* OLD QUOTES DO NOT ALLOW ANY SAVING\r\n\r\nMsgInfo = ''\r\nMsgInfo<micon$> = 'H'\r\nMsgInfo<mtext$> = 'Modification and/or additions of \"OLD QUOTES\" is not allowed.'\r\nVoid = msg( '', MsgInfo )\r\nreturn 0"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/QUOTE_SRL..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "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"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/RDS_LAYER..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "*DECLARE Function Comm_RDS_Layer\r\n\r\n*RETURN Comm_RDS_Layer('Write')\r\n\r\nDECLARE Function RDS_Layer_Events\r\n\r\nRETURN RDS_Layer_Events(CtrlEntID, 'WRITE')"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/RDS_MAKEUP..json

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

LSL2/OIEVENT/WRITE/RDS_POST_EPI..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "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"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/RDS_PRE_EPI..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function msg, fieldcount, send_event, rds_comm, next_key, Get_Status, obj_RDS_Audit, RowExists\r\ndeclare subroutine forward_event, btree.extract, obj_WO_Step, Set_Status, ErrMsg, Set_Property, Post_Event\r\nDECLARE SUBROUTINE RDS_REACT_RUN, obj_WO_React\r\n\r\n$insert logical\r\n$insert msg_equates\r\n$insert prod_spec_equates\r\n$insert quote_spec_equ\r\n$INSERT RDS_EQUATES\r\n$insert wo_verify_equ\r\n\r\nequ CrLf$ to char(13):char(10)\r\n\r\n/*\t4/9/2015 JCH Added CassNo and PSNo parameters to obj_WO_React calls\t */\r\n\r\nCtrls  = @WINDOW:'.WO':@RM\t\t\t\t\t; Props  = 'DEFPROP':@RM\r\nCtrls := @WINDOW:'.WO_STEP':@RM\t\t\t\t; Props := 'DEFPROP':@RM\r\nCtrls := @WINDOW:'.RDS_NO':@RM\t\t\t\t; Props := 'DEFPROP':@RM\r\nCtrls := @WINDOW:'.REACTOR':@RM\t\t\t\t; Props := 'DEFPROP':@RM\r\nCtrls := @WINDOW:'.CASS_NO':@RM\t\t\t\t; Props := 'DEFPROP':@RM\r\nCtrls := @WINDOW:'.PSN'\t\t\t\t\t\t; Props := 'DEFPROP'\r\n\r\nVals = Get_Property(Ctrls,Props)\r\n\r\nWONo\t= Vals[1,@RM]\r\nWOStep\t= Vals[COL2()+1,@RM]\r\nRDSNo\t= Vals[COL2()+1,@RM]\r\nReactNo\t= Vals[COL2()+1,@RM]\r\nCassNo\t= Vals[COL2()+1,@RM]\r\nPSNo\t= Vals[COL2()+1,@RM]\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\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\r\nIF Get_Property(@WINDOW,'SAVEWARN') = 1 THEN\r\n\t\r\n\tVoid = RDS_Comm( 'STAMP_MOD' )\r\n\tVoid = RDS_Comm( 'WRITE_STAMP' )\r\n\t\t\r\n\tSet_Property(@WINDOW,'SAVEWARN',0)\t\t\t\t\t\t\t;* Added 9/18/2007\r\n\t\t\r\nEND\r\n\r\nOrgReactNo = XLATE('RDS',RDSNo,RDS_REACTOR$,'X')\r\n\r\nBEGIN CASE\r\n\tCASE OrgReactNo = '' AND ReactNo NE ''\r\n\t\tobj_WO_React('AddRdsNo',WONo:@RM:WOStep:@RM:ReactNo:@RM:RDSNo:@RM:CassNo:@RM:PSNo)\r\n\t\t\r\n\tCASE OrgReactNo NE '' AND ReactNo = ''\r\n\t\tobj_WO_React('RemRdsNo',WONo:@RM:WOStep:@RM:OrgReactNo:@RM:RDSNo:@RM:CassNo:@RM:PSNo)\r\n\t\t\r\n\tCASE OrgReactNo NE ReactNo\r\n\t\tobj_WO_React('RemRdsNo',WONo:@RM:WOStep:@RM:OrgReactNo:@RM:RDSNo:@RM:CassNo:@RM:PSNo)\r\n\t\tobj_WO_React('AddRdsNo',WONo:@RM:WOStep:@RM:ReactNo:@RM:RDSNo:@RM:CassNo:@RM:PSNo)\r\n\t\t\r\n\tCASE 1\r\n\t\tNULL\r\n\t\t\r\nEND CASE\r\n\r\n\r\nForward_Event()\t\r\n\r\nRDS_React_Run(RDSNo)\t;* Conversion of data to REACT_RUN and REACT_RUN_CI & Adds Sig to WO_MAT 3/18/2008 JCH\t   \r\n\t\t\r\nRETURN 0\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/RDS_PRE_EPI_ORG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function msg, fieldcount, send_event, rds_comm, next_key, Get_Status\r\ndeclare subroutine forward_event, btree.extract, obj_WO_Step, Set_Status, ErrMsg, Set_Property\r\nDECLARE SUBROUTINE RDS_REACT_RUN\r\n\r\n$insert logical\r\n$insert msg_equates\r\n$insert prod_spec_equates\r\n$insert quote_spec_equ\r\n$insert rds_equ\r\n$insert wo_verify_equ\r\nequ CrLf$ to char(13):char(10)\r\n\r\n\r\n  \r\nRDSId = Get_Property(@WINDOW:'.RDS_NO','TEXT')\r\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\r\nIF Get_Property(@WINDOW,'SAVEWARN') = 1 THEN\r\n\t\r\n\tVoid = RDS_Comm( 'STAMP_MOD' )\r\n\tVoid = RDS_Comm( 'WRITE_STAMP' )\r\n\t\t\r\n\tSet_Property(@WINDOW,'SAVEWARN',0)\t\t\t\t\t\t\t;* Added 9/18/2007\r\n\t\t\r\nEND\r\n\t\r\n\t\r\nForward_Event()\t\r\nRDS_React_Run(RDSId)\t;* Conversion of data to REACT_RUN and REACT_RUN_CI & Adds Sig to WO_MAT 3/18/2008 JCH\t   \r\n\t\t\r\n\r\n\t\r\n      \r\n\r\nRETURN 0\r\n****************************************************************************************************************************\r\nCreateWoVerify:\r\n   * GOING TO LEAVE THIS CODE HERE CAUSE THIS IS THE ONLY PLACE WHERE THEY CAN CHANGE THE REACTOR NUMBER\r\n   CurReactor = .reactor->text\r\n   RDSID      = .rds_no->text\r\n   if CurReactor <> get_property( @window, '@OrigReactor' ) then\r\n\t   * CHECK TO SEE IF IT IS THE FIRST BOX ON THIS REACTOR OF THIS WORK ORDER\r\n\t   WO = trim( field( .po_wo_partnum->text, '/', 3 ) )\r\n\t   open 'DICT.RDS' to DictRDSTable else\r\n\t      msg( '', 'Unable to open DICT.RDS...' )\r\n\t      return 0\r\n\t   end\r\n\t   SearchStr = 'WO':@vm:WO:@fm\r\n\t   btree.extract( SearchStr, 'RDS', DictRDSTable, keys, '', flag)\r\n\t   if Flag <> 0 then\r\n\t      Void = msg( '', 'Error while extracting RDS records...' )\r\n\t      return 0\r\n\t   end\r\n\t   if Keys then\r\n\t      convert @vm to @fm in Keys\r\n\t      Reactors = xlate( 'RDS', Keys, rds_reactor$, 'X' )\r\n\t      locate CurReactor in Reactors using @fm setting FPos else\r\n             * NEEDS A WO VERIFICATION DUE TO IT BEING THE FIRST BOX TO RUN OUT OF THIS WORK ORDER ON THIS REACTOR \r\n\t\t\t * CREATE THE VERIFICATION AND STAMP RDS ID\r\n\t\t\t open 'RDS' to RDSTable else\r\n\t\t\t    msg( '', 'Unable to open RDS...' )\r\n\t\t\t    return 0\r\n\t\t\t end\r\n\t\t\t open 'WO_VERIFY' to WOVerifyTable else\r\n\t\t\t    msg( '', 'Unable to open RDS...' )\r\n\t\t\t    return 0\t\t\t \r\n\t\t\t end\r\n\t\t\t KeyToUse = next_key( 'WO_VERIFY', WOVerifyTable, 'NEXT', '' )\r\n\t\t\t WOVRec = ''\r\n  \t\t\t WOVRec<wo_verify_entry_id$>   = @user4\r\n\t\t\t WOVRec<wo_verify_entry_date$> = date()\r\n\t\t\t WOVRec<wo_verify_rds_id$>     = RDSID\r\n \t\t\t WOVRec<wo_verify_status$>     = 'O'\r\n\t\t\t write WOVRec on WOVerifyTable, KeyToUse else\r\n\t\t\t\tVoid = msg( '', 'Unable to write WO_VERIFY ':KeyToUse )\r\n\t\t\t\treturn 0\r\n\t\t\t end\r\n\t\t\t unlock WOVerifyTable, KeyToUse else\r\n\t\t\t\tVoid = msg( '', 'Unable to unlock WO_VERIFY ':KeyToUse )\r\n\t\t\t\treturn 0\r\n \t\t\t end  \r\n\t\t\t Void = next_key( 'WO_VERIFY', WOVerifyTable, 'UPDATE', KeyToUse )\r\n\t\t\t * NOW UPDATE THE RDS WITH THE WO_VERIFY ID\r\n\t\t\t * DO NOT NEED TO LOCK THE RDS CAUSE IT IS ALREADY LOCKED\r\n\t\t\t writev KeyToUse on RDSTable, RDSID, rds_wo_verify_id$ else\r\n\t\t\t\tVoid = msg( '', 'Unable to write to RDS ':RDSID )\r\n\t\t\t\treturn 0\r\n\t\t\t end\r\n\t      end\r\n\t   end\r\n   end\r\nreturn"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/RDS_TEST..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "DECLARE Function Comm_RDS_Test\r\n\r\n\r\nRETURN Comm_RDS_Test('Write')"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/RDS_UNLOAD..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function  rds_comm, msg, post_event, dialog_box, ex_vm_rem, start_window, fieldcount, Get_Property, Get_Status, RowExists\r\ndeclare subroutine forward_event, create_note, ErrMsg, Set_Property, obj_WO_Step, Set_Status, RDS_React_Run, Post_Event\r\n\r\n$insert logical\r\n$insert msg_equates\r\n$INSERT RDS_EQU\r\n\r\n   \r\nRdsNo = .rds_no->text  \r\n\r\nIF RowExists('RDS',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\nProdWafers = 0\r\nCustNo = field( .cust_info->text, ' ', 1 )\r\n\r\n\r\nRDSId\t\t= Get_Property(@WINDOW:'.RDS_NO','TEXT')\t\t\t;* Added 1/31/05 BY JCH to maintain RDS_Status field in WO_Step file.\r\n\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\nif @@window->savewarn then\r\n\tVoid = rds_comm( 'STAMP_MOD' )\r\n\tVoid = rds_comm( 'WRITE_STAMP' )\r\nend\r\n\r\nforward_event()\r\n\r\nRDS_React_Run(RDSId)\t;* Conversion of data to REACT_RUN and REACT_RUN_CI & Adds Sig to WO_MAT 3/18/2008 JCH\r\n\r\n\r\nreturn 0"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/REACTOR_LOG..json

@@ -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')"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/REACTOR_LOG_AREV..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists\r\n\r\nif rowexists( 'REACTOR_LOG', .reactor_log_no->text ) else\r\n   .entry_id->text = @user4\r\nend\r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/REACTOR_PM..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists\r\n\r\nif rowexists( 'REACTOR_PM', .pm_id->text ) else\r\n   .entry_id->text = @user4\r\nend\r\nreturn 1"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/REACTOR_RO..json

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

LSL2/OIEVENT/WRITE/REACT_COMP..json

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

LSL2/OIEVENT/WRITE/REACT_EVENT..json

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

LSL2/OIEVENT/WRITE/REACT_ITEMS..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists, msg, post_event\r\n$insert react_items_equ\r\n$insert msg_equates\r\n\r\nif .graphite_or_tube->value = '' then\r\n   MsgInfo = ''\r\n   MsgInfo<mtext$> = 'You must choose an \"Item Type\" prior to saving this reactor item.'\r\n   MsgInfo<micon$> = 'H'\r\n   Void = msg( '', MsgInfo )\r\n   return 0\r\nend\r\nif rowexists( 'REACT_ITEMS', .item_no->text ) else\r\n   .entry_id->text = @user4\r\nend\r\nif ( .status->value = 'I' ) then\r\n   if .inactive_date->text = '' then\r\n      MsgInfo = ''\r\n      MsgInfo<mtext$> = 'You must enter an inactive date if you are inactivating this reactor item...'\r\n      MsgInfo<micon$> = '!'\r\n      Void = msg( '', MsgInfo )\r\n      @@window->focus = @window:'.INACTIVE_DATE'\r\n      Void = post_event( @window:'.INACTIVE_DATE', 'GOTFOCUS' )\r\n      return 0\r\n   end\r\nend\r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/REACT_PROBS..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists\r\n\r\nif rowexists( 'REACT_PROBS', .problem_id->text ) else\r\n   .entry_id->text = @user4\r\nend\r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/REACT_PROB_CAT..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists\r\n\r\nif rowexists( 'REACT_PROB_CAT', .cat_id->text ) else\r\n   .entry_id->text = @user4\r\nend\r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/REACT_RUN_DISP..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "DECLARE FUNCTION React_Run_Disp\r\n\r\n\r\nRETURN React_Run_Disp('REACT_RUN_DISP','WRITE')"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/REACT_SERVS..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists, msg, post_event\r\n$insert msg_equates\r\n\r\nif rowexists( 'REACT_SERVS', .serv_id->text ) else\r\n   .entry_id->text = @user4\r\nend\r\nif ( .status->value = 'I' ) then\r\n   if .inactive_date->text = '' then\r\n      MsgInfo = ''\r\n      MsgInfo<mtext$> = 'You must enter an inactive date if you are inactivating this reactor service...'\r\n      MsgInfo<micon$> = '!'\r\n      Void = msg( '', MsgInfo )\r\n      @@window->focus = @window:'.INACTIVE_DATE'\r\n      Void = post_event( @window:'.INACTIVE_DATE', 'GOTFOCUS' )\r\n      return 0\r\n   end\r\nend\r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/REACT_TUBE..json

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

LSL2/OIEVENT/WRITE/RECIPE..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists, msg, recipe_comm\r\ndeclare subroutine forward_event, record_lock, create_note\r\n\r\n$insert quote_sigs_equ\r\n$insert recipe_equ\r\n$INSERT NOTIFICATION_EQU\r\n\r\nif @@window->savewarn 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\tRecipeNo = .recipe_no->text\t\r\n\t\r\n\tif RecipeNo <> '' then\r\n\t        \r\n\t    SendTo = XLATE('NOTIFICATION','RECIPE_CHANGE',NOTIFICATION_USER_ID$,'X')\r\n\t    \r\n\t\tif rowexists( 'RECIPE', RecipeNo ) then\r\n\t\t   create_note( SendTo, 'System', 'Recipe Modification', 'This recipe was modified by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'RECIPE', .recipe_no->text )\t        \t\r\n\t\tend else\r\n\t\t   .entry_id->text = @user4\r\n\t\t   create_note( SendTo, 'System', 'New Recipe', 'This recipe was entered by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'RECIPE', .recipe_no->text )\t        \r\n\t\tend\r\n    end\r\n    Void = recipe_comm( 'WRITE_STAMP' )\r\nend  \r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/RECIPE_PARMS..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "DECLARE Function Comm_RDS_Layer\r\n\r\nRETURN Comm_RDS_Layer('Write')"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/RUN_STAGE..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "DECLARE FUNCTION Run_Stage\r\n\r\nRETURN Run_Stage('RUN_STAGE','WRITE')"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/SAP_SHIPMENT..json

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

LSL2/OIEVENT/WRITE/SCHED_DET..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "\r\nDeclare function Sched_Det\r\n\r\nrv = Sched_Det(CtrlEntId, 'WRITE_PRE')\r\n\r\nReturn rv"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/SEMI_LOG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists, msg, post_event\r\n$insert msg_equates\r\n\r\nif .tech_sig->text='' then\r\n\tMsgInfo = ''\r\n\tMsgInfo<mtext$> = 'You have not signed the log entry'\r\n\tMsgInfo<micon$> = 'H'\r\n\tVoid = msg( '', MsgInfo )\r\n\tVoid = post_event( @window:'.TECH_SIG', 'GOTFOCUS' )\r\n\tVoid = set_property( @window:'.TECH_SIG', 'FOCUS', 1 )\r\n\treturn 0\r\nend\r\n\r\nif rowexists( 'SEMI_LOG', .log_no->text ) then\r\n\t*we're rewriting an entry that already existed -\r\n\t*don't replace current username into entry_id\r\nend else\r\n   .entry_id->text = @user4; *this is a new entry so\r\n   \t\t\t\t\t\t\t\t*place username into entry_id for the write\r\nend\r\n\r\nreturn 1"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/SERVICES..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "\r\nDeclare function SRP_EditTable_Manager\r\n\r\nEventFlow \t= SRP_EditTable_Manager('WritePre')\r\n\r\nReturn EventFlow"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/SPC_CLEAN_HF..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists, msg, dialog_box\r\ndeclare subroutine forward_event\r\n\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif rowexists( 'SPC_CLEAN_HF', .control_id->text ) then\r\n   return 1\r\nend else\r\n   if .tech_sig->text <> '' then\r\n      * NOW CHECK TO SEE IF THE OCAP IS REQUIRED\r\n      Delta  = .delta->text\r\n      TermNo = .term_no->text\r\n      HFMax = xlate( 'CONFIG', 'SPC_LIMITS', HFParticleMax$, 'X' )\r\n      * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n      if ( Delta > HFMax ) and ( TermNo = '' ) then\r\n         * OCAP REQUIRED\r\n         MsgInfo = ''\r\n         Text = 'Please follow the HF \"Out of Control Action Plan\".':CrLf$\r\n         Text:= 'This will guide you to a term number...Click OK to view OCAP.' \r\n         MsgInfo<mtext$> = Text\r\n         MsgInfo<micon$> = '!'\r\n         Void = msg( @window, MsgInfo )\r\n         RetValue = Dialog_Box( 'SPC_OCAP', @window, 'SPC_SC1_HF_OCAP':char(245):'*CENTER' )\r\n\t     .term_no->enabled = 1\r\n\t     .term_no->text = RetValue\r\n         Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.TERM_NO' )\t     \r\n      end else\r\n         .entry_id->text = @user4\r\n         return 1\r\n      end\r\n   end else\r\n      MsgInfo = ''\r\n      MsgInfo<mtext$> = 'You must sign this HF SPC Control entry first...' \r\n      MsgInfo<micon$> = 'H'\r\n      Void = msg( '', MsgInfo )\r\n   end\r\nend\r\nreturn 0"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/SPC_CLEAN_HF_AKRION..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists, msg, dialog_box\r\ndeclare subroutine forward_event\r\n\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif rowexists( 'SPC_CLEAN_HF_AKRION', .control_id->text ) then\r\n   return 1\r\nend else\r\n   if .tech_sig->text <> '' then\r\n      * NOW CHECK TO SEE IF THE OCAP IS REQUIRED\r\n      Delta  = .delta->text\r\n      TermNo = .term_no->text\r\n      Type   = .hftype->text\r\n      if Type = 'Qual' then\r\n         HFMax = xlate( 'CONFIG', 'SPC_LIMITS', HFParticleAkrionQualMax$, 'X' )         \r\n      end else\r\n         HFMax = xlate( 'CONFIG', 'SPC_LIMITS', HFParticleAkrionHFLastMax$, 'X' )               \r\n      end\r\n      * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n      if ( Delta > HFMax ) and ( TermNo = '' ) then\r\n         * OCAP REQUIRED\r\n         MsgInfo = ''\r\n         Text = 'Please follow the Akrion HF \"Out of Control Action Plan\".':CrLf$\r\n         Text:= 'This will guide you to a term number...Click OK to view OCAP.' \r\n         MsgInfo<mtext$> = Text\r\n         MsgInfo<micon$> = '!'\r\n         Void = msg( @window, MsgInfo )\r\n         RetValue = Dialog_Box( 'SPC_OCAP', @window, 'SPC_SC1_HF_OCAP':char(245):'*CENTER' )\r\n\t     .term_no->enabled = 1\r\n\t     .term_no->text = RetValue\r\n         Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.TERM_NO' )\t     \r\n      end else\r\n         .entry_id->text = @user4\r\n         return 1\r\n      end\r\n   end else\r\n      MsgInfo = ''\r\n      MsgInfo<mtext$> = 'You must sign this Akrion HF SPC Control entry first...' \r\n      MsgInfo<micon$> = 'H'\r\n      Void = msg( '', MsgInfo )\r\n   end\r\nend\r\nreturn 0"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/SPC_CLEAN_HF_ETCH..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists, msg, dialog_box\r\ndeclare subroutine forward_event\r\n\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif rowexists( 'SPC_CLEAN_HF_ETCH', .control_id->text ) then\r\n   return 1\r\nend else\r\n   if .tech_sig->text <> '' then\r\n      * NOW CHECK TO SEE IF THE OCAP IS REQUIRED\r\n      Delta  = .delta->text\r\n      TermNo = .term_no->text\r\n      HFEtchMax = xlate( 'CONFIG', 'SPC_LIMITS', HFEtchRemMax$, 'X' )\r\n      HFEtchMin = xlate( 'CONFIG', 'SPC_LIMITS', HFEtchRemMin$, 'X' )\r\n      * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n      if ( ( Delta > HFEtchMax ) or ( Delta < HFEtchMin ) ) and ( TermNo = '' ) then\r\n         * OCAP REQUIRED\r\n         MsgInfo = ''\r\n         Text = 'Please follow the HF Etch \"Out of Control Action Plan\".':CrLf$\r\n         Text:= 'This will guide you to a term number...Click OK to view OCAP.' \r\n         MsgInfo<mtext$> = Text\r\n         MsgInfo<micon$> = '!'\r\n         Void = msg( @window, MsgInfo )\r\n         RetValue = Dialog_Box( 'SPC_OCAP', @window, 'SPC_SC1_HF_OCAP':char(245):'*CENTER' )\r\n\t     .term_no->enabled = 1\r\n\t     .term_no->text = RetValue\r\n         Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.TERM_NO' )\t     \r\n      end else\r\n         .entry_id->text = @user4\r\n         return 1\r\n      end\r\n   end else\r\n      MsgInfo = ''\r\n      MsgInfo<mtext$> = 'You must sign this HF Etch SPC Control entry first...' \r\n      MsgInfo<micon$> = 'H'\r\n      Void = msg( '', MsgInfo )\r\n   end\r\nend\r\nreturn 0"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/SPC_CLEAN_HF_ETCH_AKRION..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists, msg, dialog_box\r\ndeclare subroutine forward_event\r\n\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif rowexists( 'SPC_CLEAN_HF_ETCH_AKRION', .control_id->text ) then\r\n   return 1\r\nend else\r\n   if ( .tech_sig->text <> '' ) and ( .hfetchtype->text <> '' ) then\r\n      * NOW CHECK TO SEE IF THE OCAP IS REQUIRED\r\n      Delta  = .delta->text\r\n      TermNo = .term_no->text\r\n      if .hfetchtype->text = 'Etch' then\r\n         HFEtchAkrionMax = xlate( 'CONFIG', 'SPC_LIMITS', HFEtchAkrionRemEtchMax$, 'X' )\r\n         HFEtchAkrionMin = xlate( 'CONFIG', 'SPC_LIMITS', HFEtchAkrionRemEtchMin$, 'X' )\r\n      end else\r\n         HFEtchAkrionMax = xlate( 'CONFIG', 'SPC_LIMITS', HFEtchAkrionRemDiluteMax$, 'X' )\r\n         HFEtchAkrionMin = xlate( 'CONFIG', 'SPC_LIMITS', HFEtchAkrionRemDiluteMin$, 'X' )      \r\n      end\r\n      * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n      if ( ( Delta > HFEtchAkrionMax ) or ( Delta < HFEtchAkrionMin ) ) and ( TermNo = '' ) then\r\n         * OCAP REQUIRED\r\n         MsgInfo = ''\r\n         Text = 'Please follow the Akrion HF Etch \"Out of Control Action Plan\".':CrLf$\r\n         Text:= 'This will guide you to a term number...Click OK to view OCAP.' \r\n         MsgInfo<mtext$> = Text\r\n         MsgInfo<micon$> = '!'\r\n         Void = msg( @window, MsgInfo )\r\n         * USING THE \"SPC_SC1_HF_OCAP\" FOR NOW WILL GET INPUT FROM MIKE MCALLISTER\r\n         RetValue = Dialog_Box( 'SPC_OCAP', @window, 'SPC_SC1_HF_OCAP':char(245):'*CENTER' )\r\n\t     .term_no->enabled = 1\r\n\t     .term_no->text = RetValue\r\n         Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.TERM_NO' )\t     \r\n      end else\r\n         .entry_id->text = @user4\r\n         return 1\r\n      end\r\n   end else\r\n      MsgInfo = ''\r\n      MsgInfo<mtext$> = 'You must enter the test tyep and sign this Akrion HF Etch SPC Control entry first...' \r\n      MsgInfo<micon$> = 'H'\r\n      Void = msg( '', MsgInfo )\r\n   end\r\nend\r\nreturn 0"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/SPC_CLEAN_SC1..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists, msg, dialog_box\r\ndeclare subroutine forward_event\r\n\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif rowexists( 'SPC_CLEAN_SC1', .control_id->text ) then\r\n   return 1\r\nend else\r\n   if .tech_sig->text <> '' then\r\n      * NOW CHECK TO SEE IF THE OCAP IS REQUIRED\r\n      Delta  = .delta->text\r\n      TermNo = .term_no->text\r\n      SC1Max = xlate( 'CONFIG', 'SPC_LIMITS', SC1ParticleMax$, 'X' )\r\n      * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n      if ( Delta > SC1Max ) and ( TermNo = '' ) then\r\n         * OCAP REQUIRED\r\n         MsgInfo = ''\r\n         Text = 'Please follow the SC1 \"Out of Control Action Plan\".':CrLf$\r\n         Text:= 'This will guide you to a term number...Click OK to view OCAP.' \r\n         MsgInfo<mtext$> = Text\r\n         MsgInfo<micon$> = '!'\r\n         Void = msg( @window, MsgInfo )\r\n         RetValue = Dialog_Box( 'SPC_OCAP', @window, 'SPC_SC1_HF_OCAP':char(245):'*CENTER' )\r\n\t     .term_no->enabled = 1\r\n\t     .term_no->text = RetValue\r\n         Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.TERM_NO' )\t     \r\n      end else\r\n         .entry_id->text = @user4\r\n         return 1\r\n      end\r\n   end else\r\n      MsgInfo = ''\r\n      MsgInfo<mtext$> = 'You must sign this SC1 SPC Control entry first...' \r\n      MsgInfo<micon$> = 'H'\r\n      Void = msg( '', MsgInfo )\r\n   end\r\nend\r\nreturn 0\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/SPC_CLEAN_SRD..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists, msg, dialog_box\r\ndeclare subroutine forward_event\r\n\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif rowexists( 'SPC_CLEAN_SRD', .control_id->text ) then\r\n   return 1\r\nend else\r\n   if .tech_sig->text <> '' then\r\n      * NOW CHECK TO SEE IF THE OCAP IS REQUIRED\r\n      Delta  = .delta->text\r\n      TermNo = .term_no->text\r\n      SRDMax = xlate( 'CONFIG', 'SPC_LIMITS', SRDParticleMax$, 'X' )\r\n      * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n      if ( Delta > SRDMax ) and ( TermNo = '' ) then\r\n         * OCAP REQUIRED\r\n         MsgInfo = ''\r\n         Text = 'Please follow the SRD \"Out of Control Action Plan\".':CrLf$\r\n         Text:= 'This will guide you to a term number...Click OK to view OCAP.' \r\n         MsgInfo<mtext$> = Text\r\n         MsgInfo<micon$> = '!'\r\n         Void = msg( @window, MsgInfo )\r\n         RetValue = Dialog_Box( 'SPC_OCAP', @window, 'SPC_SRD_OCAP':char(245):'*CENTER' )\r\n\t     .term_no->enabled = 1\r\n\t     .term_no->text = RetValue\r\n         Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.TERM_NO' )\t     \r\n      end else\r\n         .entry_id->text = @user4\r\n         return 1\r\n      end\r\n   end else\r\n      MsgInfo = ''\r\n      MsgInfo<mtext$> = 'You must sign this SRD SPC Control entry first...' \r\n      MsgInfo<micon$> = 'H'\r\n      Void = msg( '', MsgInfo )\r\n   end\r\nend\r\nreturn 0"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/SPC_REACTOR_PARTICLES..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists, msg, dialog_box\r\ndeclare subroutine forward_event\r\n\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif rowexists( 'SPC_REACTOR_PARTICLES', .control_id->text ) then\r\n   return 1\r\nend else\r\n   if .tech_sig->text <> '' then\r\n      * NOW CHECK TO SEE IF THE OCAP IS REQUIRED FOR PARTICLES/HAZE\r\n      Delta  = .delta->text\r\n      TermNo = .term_no->text\r\n      RPMax = xlate( 'CONFIG', 'SPC_LIMITS', ReactPartMax$, 'X' )\r\n      Haze = iconv( .haze->text, 'MD2' )\r\n      RHMax = xlate( 'CONFIG', 'SPC_LIMITS', ReactHazeMax$, 'X' )\r\n      * CURRENTLY DO NOT FORCE THE OCAP CAUSE WE NEED TO FIGURE OUT\r\n      * HOW WE ARE CONTROLING THE REACTORS\r\n      * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n      *if ( Delta > RPMax ) or ( Haze > RHMax ) and ( TermNo = '' ) then\r\n      *   * OCAP REQUIRED\r\n      *   MsgInfo = ''\r\n      *   Text = 'Please follow the Reactor Particle/Haze \"Out of Control Action Plan\".':CrLf$\r\n      *   Text:= 'This will guide you to a term number...Click OK to view OCAP.' \r\n      *   MsgInfo<mtext$> = Text\r\n      *   MsgInfo<micon$> = '!'\r\n      *   Void = msg( @window, MsgInfo )\r\n      *   RetValue = Dialog_Box( 'SPC_OCAP', @window, 'SPC_REACTOR_PARTICLES_OCAP':char(245):'*CENTER' )\r\n\t  *   .term_no->enabled = 1\r\n\t  *   .term_no->text = RetValue\r\n      *   Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.TERM_NO' )\t     \r\n      *end else\r\n         .entry_id->text = @user4\r\n         return 1\r\n      *end\r\n   end else\r\n      MsgInfo = ''\r\n      MsgInfo<mtext$> = 'You must sign this Reactor Particle SPC Control entry first...' \r\n      MsgInfo<micon$> = 'H'\r\n      Void = msg( '', MsgInfo )\r\n   end\r\nend\r\nreturn 0"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/SPC_WAFER_ETCH..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists, msg, dialog_box\r\ndeclare subroutine forward_event\r\n\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif rowexists( 'SPC_WAFER_ETCH', .control_id->text ) then\r\n   return 1\r\nend else\r\n   if .tech_sig->text <> '' then\r\n      * NOW CHECK TO SEE IF THE OCAP IS REQUIRED\r\n      Delta  = .delta->text\r\n      TermNo = .term_no->text\r\n      WafEtchMin = oconv( xlate( 'CONFIG', 'SPC_LIMITS', WafEtchMin$, 'X' ), 'MD3' )\r\n      WafEtchMax = oconv( xlate( 'CONFIG', 'SPC_LIMITS', WafEtchMax$, 'X' ), 'MD3' )\r\n      * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n      if ( ( Delta > WafEtchMax ) or ( Delta < WafEtchMin ) ) and ( TermNo = '' ) then\r\n         * OCAP REQUIRED\r\n         MsgInfo = ''\r\n         Text = 'Please follow the Wafer Etch \"Out of Control Action Plan\".':CrLf$\r\n         Text:= 'This will guide you to a term number...Click OK to view OCAP.' \r\n         MsgInfo<mtext$> = Text\r\n         MsgInfo<micon$> = '!'\r\n         Void = msg( @window, MsgInfo )\r\n         RetValue = Dialog_Box( 'SPC_OCAP', @window, 'SPC_WAFER_ETCH_OCAP':char(245):'*CENTER' )\r\n\t     .term_no->enabled = 1\r\n\t     .term_no->text = RetValue\r\n         Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.TERM_NO' )\t     \r\n      end else\r\n         .entry_id->text = @user4\r\n         return 1\r\n      end\r\n   end else\r\n      MsgInfo = ''\r\n      MsgInfo<mtext$> = 'You must sign this Wafer Etch SPC Control entry first...' \r\n      MsgInfo<micon$> = 'H'\r\n      Void = msg( '', MsgInfo )\r\n   end\r\nend\r\nreturn 0\r\n"
+        }
+    }
+}

LSL2/OIEVENT/WRITE/SRP_COC_RESULTS..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rowexists\r\n\r\nif rowexists( 'SRP_COC_RESULTS', .control_id->text ) else\r\n   .entry_id->text = @user4\r\nend\r\nreturn 1\r\n"
+        }
+    }
+}