LRWLST13 ;SLC/CJS/RWF - ACCESSION SETUP ; 1/7/87 12:12 PM ;
;;5.2;LAB SERVICE;;Sep 27, 1994
S LRZO="^LRO(69.1,1,1,",LRZ1="69.11P",LRZ3=LRPR,LRZB=LRPR D Z^LRWU S:'$D(^LRO(69.1,1,1,LRPR,0)) ^(0)=LRPR
S LRZO="^LRO(69.1,1,1,"_LRPR_",1,",LRZ1="69.12P",X=LRLLOC D A^LRWU S (LRZ3,LRILOC)=X1,LRZB=LRLLOC D Z^LRWU S:'$D(^LRO(69.1,1,1,LRPR,1,LRILOC,0)) ^(0)=LRLLOC
S LRZO="^LRO(69.1,1,1,"_LRPR_",1,"_LRILOC_",1,",LRZ1="69.13",X=LRRB D A^LRWU S (LRZ3,LRIRB)=X1,LRZB=LRRB D Z^LRWU S:'$D(^LRO(69.1,1,1,LRPR,1,LRILOC,1,LRIRB,0)) ^(0)=LRRB
S LRZO="^LRO(69.1,1,1,"_LRPR_",1,"_LRILOC_",1,"_LRIRB_",1,",LRZ1="69.14P",LRZ3=LRDFN,LRZB=LRDFN D Z^LRWU S:'$D(^LRO(69.1,1,1,LRPR,1,LRILOC,1,LRIRB,1,LRDFN,0)) ^(0)=LRDFN
S LRZO="^LRO(69.1,1,1,"_LRPR_",1,"_LRILOC_",1,"_LRIRB_",1,"_LRDFN_",1,",LRZ1="69.15",LRZ3=LRSN,LRZB=LRSN D Z^LRWU S:'$D(^LRO(69.1,1,1,LRPR,1,LRILOC,1,LRIRB,1,LRDFN,1,LRSN,0)) ^(0)=LRTJ_"^"_LRAD
S LRZO="^LRO(69.1,1,1,"_LRPR_",1,"_LRILOC_",1,"_LRIRB_",1,"_LRDFN_",1,"_LRSN_",1,",LRZ1="69.16P",LRZ3=LRAA,LRZB=LRAA D Z^LRWU S:'$D(^LRO(69.1,1,1,LRPR,1,LRILOC,1,LRIRB,1,LRDFN,1,LRSN,1,LRAA,0)) ^(0)=LRAA
S LRZO="^LRO(69.1,1,1,"_LRPR_",1,"_LRILOC_",1,"_LRIRB_",1,"_LRDFN_",1,"_LRSN_",1,"_LRAA_",1,",LRZ1="69.17",LRZ3=LRAN,LRZB=LRAN D Z^LRWU S:'$D(^LRO(69.1,1,1,LRPR,1,LRILOC,1,LRIRB,1,LRDFN,1,LRSN,1,LRAA,1,LRAN,0)) ^(0)=LRAN
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRWLST13 1332 printed Sep 23, 2025@19:58:44 Page 2
LRWLST13 ;SLC/CJS/RWF - ACCESSION SETUP ; 1/7/87 12:12 PM ;
+1 ;;5.2;LAB SERVICE;;Sep 27, 1994
+2 SET LRZO="^LRO(69.1,1,1,"
SET LRZ1="69.11P"
SET LRZ3=LRPR
SET LRZB=LRPR
DO Z^LRWU
if '$DATA(^LRO(69.1,1,1,LRPR,0))
SET ^(0)=LRPR
+3 SET LRZO="^LRO(69.1,1,1,"_LRPR_",1,"
SET LRZ1="69.12P"
SET X=LRLLOC
DO A^LRWU
SET (LRZ3,LRILOC)=X1
SET LRZB=LRLLOC
DO Z^LRWU
if '$DATA(^LRO(69.1,1,1,LRPR,1,LRILOC,0))
SET ^(0)=LRLLOC
+4 SET LRZO="^LRO(69.1,1,1,"_LRPR_",1,"_LRILOC_",1,"
SET LRZ1="69.13"
SET X=LRRB
DO A^LRWU
SET (LRZ3,LRIRB)=X1
SET LRZB=LRRB
DO Z^LRWU
if '$DATA(^LRO(69.1,1,1,LRPR,1,LRILOC,1,LRIRB,0))
SET ^(0)=LRRB
+5 SET LRZO="^LRO(69.1,1,1,"_LRPR_",1,"_LRILOC_",1,"_LRIRB_",1,"
SET LRZ1="69.14P"
SET LRZ3=LRDFN
SET LRZB=LRDFN
DO Z^LRWU
if '$DATA(^LRO(69.1,1,1,LRPR,1,LRILOC,1,LRIRB,1,LRDFN,0))
SET ^(0)=LRDFN
+6 SET LRZO="^LRO(69.1,1,1,"_LRPR_",1,"_LRILOC_",1,"_LRIRB_",1,"_LRDFN_",1,"
SET LRZ1="69.15"
SET LRZ3=LRSN
SET LRZB=LRSN
DO Z^LRWU
if '$DATA(^LRO(69.1,1,1,LRPR,1,LRILOC,1,LRIRB,1,LRDFN,1,LRSN,0))
SET ^(0)=LRTJ_"^"_LRAD
+7 SET LRZO="^LRO(69.1,1,1,"_LRPR_",1,"_LRILOC_",1,"_LRIRB_",1,"_LRDFN_",1,"_LRSN_",1,"
SET LRZ1="69.16P"
SET LRZ3=LRAA
SET LRZB=LRAA
DO Z^LRWU
if '$DATA(^LRO(69.1,1,1,LRPR,1,LRILOC,1,LRIRB,1,LRDFN,1,LRSN,1,LRAA,0))
SET ^(0)=LRAA
+8 SET LRZO="^LRO(69.1,1,1,"_LRPR_",1,"_LRILOC_",1,"_LRIRB_",1,"_LRDFN_",1,"_LRSN_",1,"_LRAA_",1,"
SET LRZ1="69.17"
SET LRZ3=LRAN
SET LRZB=LRAN
DO Z^LRWU
if '$DATA(^LRO(69.1,1,1,LRPR,1,LRILOC,1,LRIRB,1,LRDFN,1,LRSN,1,LRAA,1,LRAN,0))
SET ^(0)=LRAN
