LRWLST13.m

LRWLST13 ; IHS/DIR/FJE - ACCESSION SETUP 1/7/87 12:12 PM ;

 ;;5.2;LR;**1013**;JUL 15, 2002

 ;

 ;;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

LRWLST13  ; IHS/DIR/FJE - ACCESSION SETUP 1/7/87 12:12 PM ;

 +1       ;;5.2;LR;**1013**;JUL 15, 2002

 +2       ;

 +3       ;;5.2;LAB SERVICE;;Sep 27, 1994

 +4        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

 +5        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

 +6        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

 +7        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

 +8        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

 +9        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

 +10       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