added remaining LSL2 entities

LSL2/OIEVENT/LOSTFOCUS/AC_RPT1.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/AC_RPT_1.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/AC_SRPT1.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/ANNUAL_CONTRACTS.CONTRACT_DETAIL.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".contract_detail->toppos = 1:@fm:1\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/ANNUAL_CONTRACTS.CUST_NO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function set_property\r\ndeclare subroutine forward_event\r\n\r\nforward_event( Flag, FocusId )\r\nVoid = set_property( @window, '@CUST_NO', .cust_no->text )\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/ANNUAL_CONTRACTS.REL_DETAIL_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".rel_detail_info->toppos = 1:@fm:1\r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/ANNUAL_CONTRACTS_QUERY.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/ANNUAL_CONTRACTS_QUERY.ENTRY_IDS.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".entry_ids->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/ATTENDANCE_QUERY.EMPLOYEE_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".resp_person_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/ATTENDANCE_QUERY.SUPERVISOR_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".resp_person_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/ATTENDANCE_SRPT1.EMPLOYEE_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".resp_person_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/ATTENDANCE_SRPT1.SUPERVISOR_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".resp_person_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT.ATTENDED_BY.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n   .attended_by->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT.CONTACT_IDS.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n   .contact_ids->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT.CUST_NO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare subroutine forward_event\r\n\r\nforward_event( Flag, FocusId )\r\nVoid = set_property( @window, '@CUST_NO', .cust_no->text )\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT_QUERY.ATTEND_BY.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".attend_by->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT_QUERY.CONTACT_IDS.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n   .contact_ids->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/CALL_VISIT_QUERY.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/CAR.CUST_NO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "Void = set_property( @window, '@CUST_NO', .cust_no->text )\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/CAR.PROD_SPEC_ID.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare subroutine forward_event\r\n\r\nforward_event( Flag, FocusID )\r\nTparts = xlate( 'PROD_SPEC', .prod_spec_id->text, 'PART_NUMS', 'X' )\r\nTarray = .cust_part->array\r\nTarray<2> = Tparts\r\n.cust_part->array = Tarray\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/CAR2.RET_LOT_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".ret_lot_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/CAR_QUERY.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/CAR_QUERY.RESP_PERSON_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".resp_person_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/CAR_RPT1.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/CAR_SRPT1.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/CDM_LOG_QUERY.LOT_NUM.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".lot_num->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/CDM_LOG_QUERY.TECHS.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".techs->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/COC_QUERY.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/COC_QUERY.ENTRY_IDS.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".entry_ids->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/COC_QUERY.PO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".po->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/COC_QUERY.WO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".wo->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/COMPANY.ADDRESS.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".address->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/COMPANY.BILL_TO_ADDRESS.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".bill_to_address->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/COMPANY.CREDIT_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".credit_info->toppos = 1:@fm:1\r\nreturn 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/COMPANY.INTL_PHONES.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".intl_phones->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/COMPANY.PHONES.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".phones->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/COMPANY.SHIPPERINFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".shipperinfo->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/COMPANY.SHIP_TO_ADDRESS.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".ship_to_address->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/COMPANY.VREMIT_ADDR.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".vremit_addr->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/COMPANY_QUERY.CITIES.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".wo->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/COMPANY_QUERY.COUNTRIES.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".wo->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/CUST_ACTIVITY_RPT1.CUST_NO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function set_property, rowexists\r\ndeclare subroutine forward_event\r\n$insert company_equ\r\n\r\nforward_event(Flag,FocusID)\r\n.cust_name->text = xlate( 'COMPANY', .cust_no->text, company_co_name$, 'X' )\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/CUST_INQUIRY.CUST_NO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "Void = set_property( @window, '@CUST_NO', .cust_no->text )\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/CUST_INQUIRY.SPEC_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".sched_info->toppos = 1:@fm:1\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/CUST_INQUIRY_QUERY.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/CUST_INQUIRY_QUERY.ENTRY_IDS.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".entry_ids->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/DBW_RDS_OVERVIEW_NEPP.EDL_RDS_NO.json

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

LSL2/OIEVENT/LOSTFOCUS/DBW_WO_LOG.WO_NO.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('WONoLF')"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/DBW_WO_MAT_WAFER_SELECT.EDT_SLOTS.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "\r\n* DON'T REMOVE THIS - THERE IS A BUG IN THE WINDOW LOGIC FROM Revelation! - JCH\r\n\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/ENGINEER_RPT1.REACTORS.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".reactors->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/EXPORT3.EXPORTTABLENAMES.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare subroutine forward_event, rlist\r\ndeclare function get_eventstatus, msg, fieldcount\r\n$insert logical\r\n$insert msg_equates\r\n$insert rlist_equates\r\n\r\nforward_event( Flag, FocusID )\r\nError = get_eventstatus()\r\nif Error else\r\n\tOrigTablename = get_property( @window, '@Tablename' )\r\n\tTable = .exporttablenames->text\r\n\tif Table <> OrigTablename then\r\n\t    ExpInfo = .export_info->array\r\n\t    convert @vm:@fm to '' in ExpInfo\r\n\t    Continue = true$\r\n\t    if ExpInfo then\r\n    \t    * warning is data in export info or query will be overwritten\r\n    \t    MsgInfo = ''\r\n    \t    Ttext = 'You have changed the Tablename from ':OrigTableName:' to ':Table:' and there is currently export fields defined for ':OrigTableName:'.  Continuing will clear out and remove all export fields and query information.  Do you wish to continue?'\r\n    \t    MsgInfo<mtext$> = Ttext\r\n    \t    MsgInfo<micon$> = '?'\r\n    \t    MsgInfo<mtype$> = 'BNY'\r\n    \t    Continue = msg( '', MsgInfo )\r\n    \tend\r\n\t    if continue then\r\n\t        Void = utility( 'CURSOR', 'H' )\r\n\t        Array = str( @vm, 9 )\r\n\t        .export_info->array = Array\r\n\t        DictTable = 'DICT.':Table\r\n\t        Cmd = \"SELECT \":DictTable:\" BY @ID WITH F1 = 'F' 'S'\"\r\n\t        rlist( Cmd, target_activelist$, '', '', '' )\r\n\t        Columns = ''\r\n\t        if @reccount then\r\n\t            Eof = false$\r\n\t            loop\r\n\t                readnext DictId else Eof = true$\r\n\t              until Eof\r\n\t                Columns := DictId:@vm\r\n\t            repeat\r\n\t            Columns[-1,1] = ''\r\n\t            Void = set_property( @window, '@Columns', Columns )\r\n\t        end else\r\n\t            Void = msg( '', 'Error while selecting columns from ':DictTable )\r\n\t            return 0\r\n\t        end\r\n   \t        Cmd = \"SELECT \":DictTable:\" USING EXPORTS BY @ID WITH F6 = 1\"\r\n\t        rlist( Cmd, target_activelist$, '', '', '' )\r\n\t        BtreeColumns = ''\r\n\t        if @reccount then\r\n\t            Eof = false$\r\n\t            loop\r\n\t                readnext DictId else Eof = true$\r\n\t              until Eof\r\n\t                BtreeColumns := DictId:@vm\r\n\t            repeat\r\n\t            BtreeColumns[-1,1] = ''\r\n\t            Void = set_property( @window, '@BtreeColumns', BtreeColumns )\r\n\t            Array = str( @vm, 9 ):@fm:str( @vm, 9 )\r\n\t            .query_info->array = Array\r\n\t        end else\r\n\t            * no btree columns\r\n\t        end\r\n\t        Void = utility( 'CURSOR', 'A' )\t        \r\n        end else\r\n            .exporttablenames->text = OrigTablename\r\n        end\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\tend\r\nend\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/EXPORT3.EXPORT_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".export_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/EXPORT3.NQUERY_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".nquery_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/EXPORT3.QUERY_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".query_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/EXPORTS.EXPORTTABLENAMES.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare subroutine forward_event, rlist, Send_Event, Set_Property\r\ndeclare function get_eventstatus, msg, fieldcount, obj_ICAR\r\n$insert logical\r\n$insert msg_equates\r\n$insert rlist_equates\r\n\r\nforward_event( Flag, FocusID )\r\nError = get_eventstatus()\r\nif Error else\r\n\tOrigTablename = get_property( @window, '@Tablename' )\r\n\tTable = .exporttablenames->text\r\n\t\r\n\tIF Table = 'ICAR' THEN\r\n\t\tIF NOT(obj_ICAR('RespSup')) THEN\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\tEND\r\n\t\r\n\tif Table <> OrigTablename then\r\n\t    ExpInfo = .export_info->array\r\n\t    convert @vm:@fm to '' in ExpInfo\r\n\t    Continue = true$\r\n\t    if ExpInfo then\r\n    \t    * warning is data in export info or query will be overwritten\r\n    \t    MsgInfo = ''\r\n    \t    Ttext = 'You have changed the Tablename from ':OrigTableName:' to ':Table:' and there is currently export fields defined for ':OrigTableName:'.  Continuing will clear out and remove all export fields and query information.  Do you wish to continue?'\r\n    \t    MsgInfo<mtext$> = Ttext\r\n    \t    MsgInfo<micon$> = '?'\r\n    \t    MsgInfo<mtype$> = 'BNY'\r\n    \t    Continue = msg( '', MsgInfo )\r\n    \tend\r\n\t    if continue then\r\n\t        Void = utility( 'CURSOR', 'H' )\r\n\t        Array = str( @vm, 9 )\r\n\t        .export_info->array = Array\r\n\t        DictTable = 'DICT.':Table\r\n\t        Cmd = \"SELECT \":DictTable:\" BY @ID WITH F1 = 'F' 'S'\"\r\n\t        rlist( Cmd, target_activelist$, '', '', '' )\r\n\t        Columns = ''\r\n\t        if @reccount then\r\n\t            Eof = false$\r\n\t            loop\r\n\t                readnext DictId else Eof = true$\r\n\t              until Eof\r\n\t                Columns := DictId:@vm\r\n\t            repeat\r\n\t            Columns[-1,1] = ''\r\n\t            Void = set_property( @window, '@Columns', Columns )\r\n\t        end else\r\n\t            Void = msg( '', 'Error while selecting columns from ':DictTable )\r\n\t            return 0\r\n\t        end\r\n   \t        Cmd = \"SELECT \":DictTable:\" USING EXPORTS BY @ID WITH F6 = 1\"\r\n\t        rlist( Cmd, target_activelist$, '', '', '' )\r\n\t        BtreeColumns = ''\r\n\t        if @reccount then\r\n\t            Eof = false$\r\n\t            loop\r\n\t                readnext DictId else Eof = true$\r\n\t              until Eof\r\n\t                BtreeColumns := DictId:@vm\r\n\t            repeat\r\n\t            BtreeColumns[-1,1] = ''\r\n\t            Void = set_property( @window, '@BtreeColumns', BtreeColumns )\r\n\t            Array = str( @vm, 9 ):@fm:str( @vm, 9 )\r\n\t            .query_info->array = Array\r\n\t        end else\r\n\t            * no btree columns\r\n\t        end\r\n\t        Void = utility( 'CURSOR', 'A' )\t        \r\n        end else\r\n            .exporttablenames->text = OrigTablename\r\n        end\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\tend\r\nend\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/EXPORTS.EXPORT_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".export_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/EXPORTS.NQUERY_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".nquery_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/EXPORTS.QUERY_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".query_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/HOTH2O2_LOG_QUERY.TECHS.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".techs->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE.BILL_TO_ADDR.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".bill_to_addr->toppos=1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE.CHECK_DETAIL.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".check_detail->toppos = 1:@fm:1\r\nreturn 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE.INVOICE_DETAIL.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".invoice_detail->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE.SHIP_TO_ADDR.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".ship_to_addr->toppos=1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE.TRACKING_NO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".tracking_no->toppos = 1:@fm:1\r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE_QUERY.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE_QUERY.LOT_NUM.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".lot_num->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE_QUERY.PART_NUM.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".part_num->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE_QUERY.PO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".po->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE_QUERY.WO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".wo->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE_RPT1.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE_RPT3.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE_RPT4.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE_RPT5.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE_RPT6.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRL_QUERY.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRL_QUERY.PO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".po->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRL_QUERY.WO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".wo->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRPT1.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRPT3.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRPT4.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/INVOICE_SRPT5.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/LSL_USERS.TABLESECURITY.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".tablesecurity->toppos = 1:@fm:1\r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/LSL_USERS_RPT1.USERS.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".users->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/MASTER_DISK_LOG_QUERY.DISK_NUM.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".disk_num->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/MASTER_DISK_LOG_QUERY.REACTOR_NUM.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".reactor_num->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/MASTER_DISK_LOG_QUERY.TECHS.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".techs->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/MEG_LOG_QUERY.ALOT_NUM.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".alot_num->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/MEG_LOG_QUERY.PLOT_NUM.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".plot_num->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/MEG_LOG_QUERY.TECHS.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".techs->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/MSG_GROUPS.USER_IDS.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".user_ids->toppos = 1:@fm:1\r\n\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/NAMES.INTL_PHONES.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".intl_phones->toppos = 1:@fm:1\r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/NAMES.PHONES.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".phones->toppos = 1:@fm:1\r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/NDA.CONTACT_IDS.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "if get_property( @window, '@NoTopPos' ) else\r\n   .contact_ids->toppos = 1:@fm:1\r\nend\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/NDA.CUST_NO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare subroutine forward_event\r\n\r\nforward_event( Flag, FocusId )\r\nVoid = set_property( @window, '@CUST_NO', .cust_no->text )\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/NDA_QUERY.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".customer_info->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/NDW_RDS_PROC_STAT_NEPP.EDL_RDS_NO.json

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

LSL2/OIEVENT/LOSTFOCUS/NOTES.SEND_TO_GROUP_INT.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".send_to_group_int->toppos = 1:@fm:1\r\n\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/NOTES.SEND_TO_INTERNAL.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".send_to_internal->toppos = 1:@fm:1\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/NOTES_ATTACH.SEND_TO_GROUP_INT.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".send_to_group_int->toppos = 1:@fm:1\r\n\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/LOSTFOCUS/NOTES_ATTACH.SEND_TO_INTERNAL.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".send_to_internal->toppos = 1:@fm:1\r\nRETURN 1\r\n"
+        }
+    }
+}