Released LR*5.2*549 SEQ #449 Extracted from mail message **KIDS**:LR*5.2*549^ **INSTALL NAME** LR*5.2*549 "BLD",12244,0) LR*5.2*549^LAB SERVICE^0^3210527^y "BLD",12244,1,0) ^^24^24^3210527^ "BLD",12244,1,1,0) Defect Tracking System Ticket(s) & Overview: "BLD",12244,1,2,0) =========================================== "BLD",12244,1,3,0) "BLD",12244,1,4,0) 1. INC17480746 Frequent M Errors at multiple sites: LST^LR7OSMZ2 "BLD",12244,1,5,0) "BLD",12244,1,6,0) Problem: "BLD",12244,1,7,0) ------- "BLD",12244,1,8,0) We are seeing errors in LST^LR7OSMZ2 at multiple sites due to "BLD",12244,1,9,0) Corrupted Organism nodes in the MI section of the ^LR global. "BLD",12244,1,10,0) Two errors are recurring and preventing microbiology reports "BLD",12244,1,11,0) from being generated: "BLD",12244,1,12,0) - If the zero node is missing in this sub-file, an undefined "BLD",12244,1,13,0) error occurs in LST+3. "BLD",12244,1,14,0) - If the organism pointer to file #61.2 is null in the first "BLD",12244,1,15,0) piece of the zero node, a subscript error occurs at the end "BLD",12244,1,16,0) of LST+4 "BLD",12244,1,17,0) "BLD",12244,1,18,0) Resolution: "BLD",12244,1,19,0) ---------- "BLD",12244,1,20,0) For sites to be able to find and report Corrupted Organism nodes "BLD",12244,1,21,0) to their regional support group, an update to the nightly LAB "BLD",12244,1,22,0) Cleanup routine is implemented. This update will search for "BLD",12244,1,23,0) Corrupted Organism nodes and send a mailman message to the LMI "BLD",12244,1,24,0) mailman group. "BLD",12244,4,0) ^9.64PA^^ "BLD",12244,6) 1 "BLD",12244,6.3) 1 "BLD",12244,"ABPKG") n "BLD",12244,"KRN",0) ^9.67PA^1.5^25 "BLD",12244,"KRN",.4,0) .4 "BLD",12244,"KRN",.401,0) .401 "BLD",12244,"KRN",.402,0) .402 "BLD",12244,"KRN",.403,0) .403 "BLD",12244,"KRN",.5,0) .5 "BLD",12244,"KRN",.84,0) .84 "BLD",12244,"KRN",1.5,0) 1.5 "BLD",12244,"KRN",1.6,0) 1.6 "BLD",12244,"KRN",1.61,0) 1.61 "BLD",12244,"KRN",1.62,0) 1.62 "BLD",12244,"KRN",3.6,0) 3.6 "BLD",12244,"KRN",3.8,0) 3.8 "BLD",12244,"KRN",9.2,0) 9.2 "BLD",12244,"KRN",9.8,0) 9.8 "BLD",12244,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",12244,"KRN",9.8,"NM",1,0) LRWU9A^^0^B38755960 "BLD",12244,"KRN",9.8,"NM","B","LRWU9A",1) "BLD",12244,"KRN",19,0) 19 "BLD",12244,"KRN",19.1,0) 19.1 "BLD",12244,"KRN",101,0) 101 "BLD",12244,"KRN",409.61,0) 409.61 "BLD",12244,"KRN",771,0) 771 "BLD",12244,"KRN",779.2,0) 779.2 "BLD",12244,"KRN",870,0) 870 "BLD",12244,"KRN",8989.51,0) 8989.51 "BLD",12244,"KRN",8989.52,0) 8989.52 "BLD",12244,"KRN",8993,0) 8993 "BLD",12244,"KRN",8994,0) 8994 "BLD",12244,"KRN","B",.4,.4) "BLD",12244,"KRN","B",.401,.401) "BLD",12244,"KRN","B",.402,.402) "BLD",12244,"KRN","B",.403,.403) "BLD",12244,"KRN","B",.5,.5) "BLD",12244,"KRN","B",.84,.84) "BLD",12244,"KRN","B",1.5,1.5) "BLD",12244,"KRN","B",1.6,1.6) "BLD",12244,"KRN","B",1.61,1.61) "BLD",12244,"KRN","B",1.62,1.62) "BLD",12244,"KRN","B",3.6,3.6) "BLD",12244,"KRN","B",3.8,3.8) "BLD",12244,"KRN","B",9.2,9.2) "BLD",12244,"KRN","B",9.8,9.8) "BLD",12244,"KRN","B",19,19) "BLD",12244,"KRN","B",19.1,19.1) "BLD",12244,"KRN","B",101,101) "BLD",12244,"KRN","B",409.61,409.61) "BLD",12244,"KRN","B",771,771) "BLD",12244,"KRN","B",779.2,779.2) "BLD",12244,"KRN","B",870,870) "BLD",12244,"KRN","B",8989.51,8989.51) "BLD",12244,"KRN","B",8989.52,8989.52) "BLD",12244,"KRN","B",8993,8993) "BLD",12244,"KRN","B",8994,8994) "BLD",12244,"QDEF") ^^^^NO^^^^NO^^NO "BLD",12244,"QUES",0) ^9.62^^ "BLD",12244,"REQB",0) ^9.611^1^1 "BLD",12244,"REQB",1,0) LR*5.2*543^2 "BLD",12244,"REQB","B","LR*5.2*543",1) "MBREQ") 0 "PKG",26,-1) 1^1 "PKG",26,0) LAB SERVICE^LR^CORE LAB SYSTEM "PKG",26,22,0) ^9.49I^1^1 "PKG",26,22,1,0) 5.2^2940927^2981028^66481 "PKG",26,22,1,"PAH",1,0) 549^3210527 "PKG",26,22,1,"PAH",1,1,0) ^^24^24^3210527 "PKG",26,22,1,"PAH",1,1,1,0) Defect Tracking System Ticket(s) & Overview: "PKG",26,22,1,"PAH",1,1,2,0) =========================================== "PKG",26,22,1,"PAH",1,1,3,0) "PKG",26,22,1,"PAH",1,1,4,0) 1. INC17480746 Frequent M Errors at multiple sites: LST^LR7OSMZ2 "PKG",26,22,1,"PAH",1,1,5,0) "PKG",26,22,1,"PAH",1,1,6,0) Problem: "PKG",26,22,1,"PAH",1,1,7,0) ------- "PKG",26,22,1,"PAH",1,1,8,0) We are seeing errors in LST^LR7OSMZ2 at multiple sites due to "PKG",26,22,1,"PAH",1,1,9,0) Corrupted Organism nodes in the MI section of the ^LR global. "PKG",26,22,1,"PAH",1,1,10,0) Two errors are recurring and preventing microbiology reports "PKG",26,22,1,"PAH",1,1,11,0) from being generated: "PKG",26,22,1,"PAH",1,1,12,0) - If the zero node is missing in this sub-file, an undefined "PKG",26,22,1,"PAH",1,1,13,0) error occurs in LST+3. "PKG",26,22,1,"PAH",1,1,14,0) - If the organism pointer to file #61.2 is null in the first "PKG",26,22,1,"PAH",1,1,15,0) piece of the zero node, a subscript error occurs at the end "PKG",26,22,1,"PAH",1,1,16,0) of LST+4 "PKG",26,22,1,"PAH",1,1,17,0) "PKG",26,22,1,"PAH",1,1,18,0) Resolution: "PKG",26,22,1,"PAH",1,1,19,0) ---------- "PKG",26,22,1,"PAH",1,1,20,0) For sites to be able to find and report Corrupted Organism nodes "PKG",26,22,1,"PAH",1,1,21,0) to their regional support group, an update to the nightly LAB "PKG",26,22,1,"PAH",1,1,22,0) Cleanup routine is implemented. This update will search for "PKG",26,22,1,"PAH",1,1,23,0) Corrupted Organism nodes and send a mailman message to the LMI "PKG",26,22,1,"PAH",1,1,24,0) mailman group. "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") NO "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 1 "RTN","LRWU9A") 0^1^B38755960^B24519313 "RTN","LRWU9A",1,0) LRWU9A ;HPS/DSK - TOOL TO DETECT, FIX, AND REPORT BAD DATA NAMES ;Apr 11, 2019@16:00 "RTN","LRWU9A",2,0) ;;5.2;LAB SERVICE;**519,543,549**;Sep 27, 1994;Build 1 "RTN","LRWU9A",3,0) ; "RTN","LRWU9A",4,0) ;Reference to ^DD(63.04 supported by DBIA #7053 "RTN","LRWU9A",5,0) ;Reference to ^ORD(101.43 supported by DBIA #2843 "RTN","LRWU9A",6,0) ; "RTN","LRWU9A",7,0) Q "RTN","LRWU9A",8,0) ; "RTN","LRWU9A",9,0) B6304 ;check "B" cross reference "RTN","LRWU9A",10,0) ; "RTN","LRWU9A",11,0) ;LRNUM = Current MailMessage line number "RTN","LRWU9A",12,0) ; "RTN","LRWU9A",13,0) N LRA,LRB,LRMISNM,LRCOUNT "RTN","LRWU9A",14,0) S (LRA,LRB)="",LRMISNM=0 "RTN","LRWU9A",15,0) F S LRA=$O(^DD(63.04,"B",LRA)) Q:LRA="" D "RTN","LRWU9A",16,0) . S LRCOUNT=0 "RTN","LRWU9A",17,0) . F S LRB=$O(^DD(63.04,"B",LRA,LRB)) Q:LRB="" D "RTN","LRWU9A",18,0) . . S LRCOUNT=LRCOUNT+1 "RTN","LRWU9A",19,0) . . I LRCOUNT>1 M ^TMP("LR63.04B",$J,LRA)=^DD(63.04,"B",LRA) "RTN","LRWU9A",20,0) ; "RTN","LRWU9A",21,0) ;Check whether issues were found. If so, add to MailMan ^TMP from LRWU9 "RTN","LRWU9A",22,0) I $D(^TMP("LR63.04B",$J)) D BMAIL "RTN","LRWU9A",23,0) Q "RTN","LRWU9A",24,0) ; "RTN","LRWU9A",25,0) BMAIL ;Generate MailMan message for "B" cross ref issues "RTN","LRWU9A",26,0) N LRSPACE,LRDASH,LRSTR,LRHIT,LRA,LRB "RTN","LRWU9A",27,0) S LRSPACE=" " "RTN","LRWU9A",28,0) S LRDASH="------------------------------------------------------------" "RTN","LRWU9A",29,0) S LRNUM=LRNUM+1 "RTN","LRWU9A",30,0) S ^TMP("LR",$J,"DD63.04",LRNUM)=" " "RTN","LRWU9A",31,0) S LRNUM=LRNUM+1 "RTN","LRWU9A",32,0) S ^TMP("LR",$J,"DD63.04",LRNUM)="**** The following issue(s) were found in ^DD(63.04. ****" "RTN","LRWU9A",33,0) S LRNUM=LRNUM+1 "RTN","LRWU9A",34,0) S ^TMP("LR",$J,"DD63.04",LRNUM)="Please submit a ServiceNow ticket with the assignment group" "RTN","LRWU9A",35,0) S LRNUM=LRNUM+1 "RTN","LRWU9A",36,0) S ^TMP("LR",$J,"DD63.04",LRNUM)="of NTL SUP CLIN2 for assistance with correcting the issue(s)." "RTN","LRWU9A",37,0) S LRNUM=LRNUM+1 "RTN","LRWU9A",38,0) S ^TMP("LR",$J,"DD63.04",LRNUM)=" " "RTN","LRWU9A",39,0) S LRNUM=LRNUM+1 "RTN","LRWU9A",40,0) S ^TMP("LR",$J,"DD63.04",LRNUM)="NOTE: Names such as ""not in use"", etc. which do not appear to" "RTN","LRWU9A",41,0) S LRNUM=LRNUM+1 "RTN","LRWU9A",42,0) S ^TMP("LR",$J,"DD63.04",LRNUM)=" pertain to active tests do not warrant correction." "RTN","LRWU9A",43,0) S LRNUM=LRNUM+1 "RTN","LRWU9A",44,0) S ^TMP("LR",$J,"DD63.04",LRNUM)=" " "RTN","LRWU9A",45,0) S LRNUM=LRNUM+1 "RTN","LRWU9A",46,0) S ^TMP("LR",$J,"DD63.04",LRNUM)="Name(s) With Multiple IENs" "RTN","LRWU9A",47,0) S LRNUM=LRNUM+1 "RTN","LRWU9A",48,0) S ^TMP("LR",$J,"DD63.04",LRNUM)="Name IEN" "RTN","LRWU9A",49,0) S LRNUM=LRNUM+1 "RTN","LRWU9A",50,0) S ^TMP("LR",$J,"DD63.04",LRNUM)=LRDASH "RTN","LRWU9A",51,0) S (LRA,LRB)="" "RTN","LRWU9A",52,0) F S LRA=$O(^TMP("LR63.04B",$J,LRA)) Q:LRA="" D "RTN","LRWU9A",53,0) . S LRB=$O(^TMP("LR63.04B",$J,LRA,"")) D "RTN","LRWU9A",54,0) . . S LRNUM=LRNUM+1 "RTN","LRWU9A",55,0) . . S ^TMP("LR",$J,"DD63.04",LRNUM)=$E(LRA,1,23)_$E(LRSPACE,1,25-$L(LRA))_LRB "RTN","LRWU9A",56,0) . F S LRB=$O(^TMP("LR63.04B",$J,LRA,LRB)) Q:LRB="" D "RTN","LRWU9A",57,0) . . S LRNUM=LRNUM+1 "RTN","LRWU9A",58,0) . . S ^TMP("LR",$J,"DD63.04",LRNUM)=$E(LRSPACE,1,25)_LRB "RTN","LRWU9A",59,0) . ; "RTN","LRWU9A",60,0) S LRNUM=LRNUM+1 "RTN","LRWU9A",61,0) S ^TMP("LR",$J,"DD63.04",LRNUM)=" " "RTN","LRWU9A",62,0) S LRNUM=LRNUM+1 "RTN","LRWU9A",63,0) S ^TMP("LR",$J,"DD63.04",LRNUM)="**** End of issue(s) found in ^DD(63.04 ****" "RTN","LRWU9A",64,0) S LRNUM=LRNUM+1 "RTN","LRWU9A",65,0) S ^TMP("LR",$J,"DD63.04",LRNUM)=" " "RTN","LRWU9A",66,0) Q "RTN","LRWU9A",67,0) ; "RTN","LRWU9A",68,0) LRNIGHT ; "RTN","LRWU9A",69,0) ;LR*5.2*543: Check for OI's pointing to non-existent Lab tests. "RTN","LRWU9A",70,0) ; Entries which do not have names beginning with "ZZ" and/or "RTN","LRWU9A",71,0) ; inactive dates are captured. "RTN","LRWU9A",72,0) N LRSPACE,LRNAME,LROI,LRTST,LRSEQ,LRNAMX "RTN","LRWU9A",73,0) K ^TMP("LR OI CHECK") "RTN","LRWU9A",74,0) S LRSPACE=" " "RTN","LRWU9A",75,0) S (LRNAME,LROI)="",LRSEQ=11 "RTN","LRWU9A",76,0) F S LRNAME=$O(^ORD(101.43,"S.LAB",LRNAME)) Q:LRNAME="" D "RTN","LRWU9A",77,0) . F S LROI=$O(^ORD(101.43,"S.LAB",LRNAME,LROI)) Q:LROI="" D "RTN","LRWU9A",78,0) . . ;Do not list if name starts with ZZ and inactive date is populated "RTN","LRWU9A",79,0) . . I $E(LRNAME,1,2)="ZZ",$P($G(^ORD(101.43,LROI,.1)),"^")]"" Q "RTN","LRWU9A",80,0) . . S LRTST=$P($P($G(^ORD(101.43,LROI,0)),"^",2),";99LRT") "RTN","LRWU9A",81,0) . . I LRTST]"",'$D(^LAB(60,LRTST,0)) D "RTN","LRWU9A",82,0) . . . S LRSEQ=LRSEQ+1 "RTN","LRWU9A",83,0) . . . S LRNAMX=$E(LRNAME,1,30) "RTN","LRWU9A",84,0) . . . S ^TMP("LR OI CHECK",LRSEQ)=LRNAMX_" (#"_LROI_")"_$E(LRSPACE,1,37-($L(LRNAMX)+$L(LROI)))_LRTST "RTN","LRWU9A",85,0) I $O(^TMP("LR OI CHECK",11)) D XTMP,MAIL "RTN","LRWU9A",86,0) K ^TMP("LR OI CHECK") "RTN","LRWU9A",87,0) ; "RTN","LRWU9A",88,0) ;LR*5.2*549 Add check for invalid values in ORGANISM data "RTN","LRWU9A",89,0) D LRORG "RTN","LRWU9A",90,0) Q "RTN","LRWU9A",91,0) ; "RTN","LRWU9A",92,0) XTMP ;Generate MailMan message "RTN","LRWU9A",93,0) S ^TMP("LR OI CHECK",1)=" " "RTN","LRWU9A",94,0) S ^TMP("LR OI CHECK",2)="The NIGHTLY CLEANUP task found "_(LRSEQ-11)_" entries in the ORDERABLE ITEMS (#101.43)" "RTN","LRWU9A",95,0) S ^TMP("LR OI CHECK",3)="file of concern that reference non-existent Laboratory tests. Listed below" "RTN","LRWU9A",96,0) S ^TMP("LR OI CHECK",4)="are such entries which have a name not prefixed with ""ZZ"" and/or no date in" "RTN","LRWU9A",97,0) S ^TMP("LR OI CHECK",5)="the INACTIVATED (#.1) field." "RTN","LRWU9A",98,0) S ^TMP("LR OI CHECK",6)=" " "RTN","LRWU9A",99,0) S ^TMP("LR OI CHECK",7)="The following should be edited in the ORDERABLE ITEMS (#101.43) file so the" "RTN","LRWU9A",100,0) S ^TMP("LR OI CHECK",8)="name is prefixed with ""ZZ"" and a date entered into the INACTIVATED (#.1) field." "RTN","LRWU9A",101,0) S ^TMP("LR OI CHECK",9)=" " "RTN","LRWU9A",102,0) S ^TMP("LR OI CHECK",10)="Orderable Item/IEN Non-Existent Laboratory Test IEN" "RTN","LRWU9A",103,0) S ^TMP("LR OI CHECK",11)="-------------------------- --------------------------------" "RTN","LRWU9A",104,0) Q "RTN","LRWU9A",105,0) ; "RTN","LRWU9A",106,0) MAIL ; "RTN","LRWU9A",107,0) N LRMIN,LRMY,LRMSUB,LRMTEXT "RTN","LRWU9A",108,0) S LRMIN("FROM")="NIGHTLY TASK CLEANUP" "RTN","LRWU9A",109,0) S LRMY("G.LMI")="" "RTN","LRWU9A",110,0) S LRMY("G.OR CACS")="" "RTN","LRWU9A",111,0) S LRMSUB="ORDERABLE ITEMS POINTING TO NON-EXISTENT LAB TESTS" "RTN","LRWU9A",112,0) S LRMTEXT="^TMP(""LR OI CHECK"")" "RTN","LRWU9A",113,0) D SENDMSG^XMXAPI(DUZ,LRMSUB,LRMTEXT,.LRMY,.LRMIN,"","") "RTN","LRWU9A",114,0) Q "RTN","LRWU9A",115,0) ; "RTN","LRWU9A",116,0) LRORG ; "RTN","LRWU9A",117,0) ; LR*5.2*549 Check for missing Organism zero node or null organism pointer "RTN","LRWU9A",118,0) N LRDFN,LRDTM,LRSEQ,LRSQ "RTN","LRWU9A",119,0) K ^TMP("LR ORG CHECK") "RTN","LRWU9A",120,0) S LRSPACE=" " "RTN","LRWU9A",121,0) S LRDFN=0,LRSEQ=7 "RTN","LRWU9A",122,0) F S LRDFN=$O(^LR(LRDFN)) Q:'LRDFN D "RTN","LRWU9A",123,0) . S LRDTM=0 F S LRDTM=$O(^LR(LRDFN,"MI",LRDTM)) Q:'LRDTM D "RTN","LRWU9A",124,0) . . S LRSQ=0 F S LRSQ=$O(^LR(LRDFN,"MI",LRDTM,3,LRSQ)) Q:'LRSQ D "RTN","LRWU9A",125,0) . . . I $P($G(^LR(LRDFN,"MI",LRDTM,3,LRSQ,0)),U)'="" Q "RTN","LRWU9A",126,0) . . . S LRDATA=$G(^LR(LRDFN,"MI",LRDTM,0)) "RTN","LRWU9A",127,0) . . . S LRDATA="^LR("_LRDFN_","_"""MI"""_","_LRDTM_",0)="_LRDATA "RTN","LRWU9A",128,0) . . . S LRSEQ=LRSEQ+1,^TMP("LR ORG CHECK",LRSEQ)=LRDATA "RTN","LRWU9A",129,0) . . . S LRSEQ=LRSEQ+1,^TMP("LR ORG CHECK",LRSEQ)=" " "RTN","LRWU9A",130,0) I $O(^TMP("LR ORG CHECK",6)) D XTMPORG,MAILORG "RTN","LRWU9A",131,0) K ^TMP("LR ORG CHECK") "RTN","LRWU9A",132,0) Q "RTN","LRWU9A",133,0) ; "RTN","LRWU9A",134,0) XTMPORG ;Generate MailMan message "RTN","LRWU9A",135,0) S ^TMP("LR ORG CHECK",1)=" " "RTN","LRWU9A",136,0) S ^TMP("LR ORG CHECK",2)="The following entries in the LAB DATA file (#63) have corrupted organism" "RTN","LRWU9A",137,0) S ^TMP("LR ORG CHECK",3)="nodes and require repair. Please enter a YourIT ticket requesting regional" "RTN","LRWU9A",138,0) S ^TMP("LR ORG CHECK",4)="support for the Laboratory package." "RTN","LRWU9A",139,0) S ^TMP("LR ORG CHECK",5)="----------------------------------------------------------------------------" "RTN","LRWU9A",140,0) S ^TMP("LR ORG CHECK",6)=" " "RTN","LRWU9A",141,0) Q "RTN","LRWU9A",142,0) ; "RTN","LRWU9A",143,0) MAILORG ; "RTN","LRWU9A",144,0) N LRMIN,LRMY,LRMSUB,LRMTEXT "RTN","LRWU9A",145,0) S LRMIN("FROM")="ORGANISM NIGHTLY TASK REVIEW" "RTN","LRWU9A",146,0) S LRMY("G.LMI")="" "RTN","LRWU9A",147,0) S LRMSUB="CORRUPT ORGANISM DATA REPORT" "RTN","LRWU9A",148,0) S LRMTEXT="^TMP(""LR ORG CHECK"")" "RTN","LRWU9A",149,0) D SENDMSG^XMXAPI(DUZ,LRMSUB,LRMTEXT,.LRMY,.LRMIN,"","") "RTN","LRWU9A",150,0) Q "RTN","LRWU9A",151,0) ; "VER") 8.0^22.2 "BLD",12244,6) ^449 **END** **END**