Routine: LRWLST13

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  Feb 18, 2025@23:48:56                                                                                                                                                                                                    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

LRWLST13.m