source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LRLLU.m@ 811

Last change on this file since 811 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 618 bytes
Line 
1LRLLU ;SLC/RWF - LOAD LIST UTILITY ; 6/2/86 8:10 AM ;
2 ;;5.2;LAB SERVICE;;Sep 27, 1994
3ACC Q:'$D(^LRO(68,LRAA,1,LRAD,1,LRAN,0)) ;REMOVE ALL TESTS FROM LOAD LISTS
4 S LRTEST=0 F S LRTEST=$O(^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRTEST)) Q:LRTEST<1 D LRTEST:$P(^(LRTEST,0),U,3)
5 Q
6LRTEST S X=$S($D(^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRTEST,0)):^(0),1:"") Q:X=""
7 S T=+X,X=$P(X,U,3),L1=+$P(X,";",1),L2=+$P(X,";",2),L3=+$P(X,";",3)
8 S X=$S($D(^LRO(68.2,L1,1,L2,1,L3,0)):^(0),1:"")
9 I $P(X,U,1)=LRAA,$P(X,U,2)=LRAD,$P(X,U,3)=LRAN K ^LRO(68.2,L1,1,L2,1,L3)
10 I $T!(X="") S $P(^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRTEST,0),U,3)=""
11 K L1,L2,L3 Q
Note: See TracBrowser for help on using the repository browser.