source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRLSR.m@ 1604

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

initial load of WorldVistAEHR

File size: 803 bytes
Line 
1LRLSR ;SLC/RWF - REPORT SORT UTILITY ;2/5/91 14:49 ;
2 ;;5.2;LAB SERVICE;;Sep 27, 1994
3 D LRAN,PRINT,END
4LRAN K ^TMP($J) Q:'$D(LRUTL) S U="^",%DT="AE" D ^%DT S LRAD=Y Q:Y<1
5 D LRAA W !,"LOADING" D LOAD Q
6LRAA S DIC="^LRO(68,",DIC(0)="AEOQZ" D ^DIC Q:Y<1
7 S LRAA=+Y,^TMP($J,0,LRAA)=$P(Y,U,2) G LRAA
8LOAD S LRAA=0 F S LRAA=$O(^TMP($J,0,LRAA)),LRAN=0 Q:LRAA<1 D LO1
9 Q
10LO1 S LRAN=$O(^LRO(68,LRAA,1,LRAD,1,LRAN)) Q:LRAN<1 S X=$S($D(^(LRAN,0)):^(0),1:"")
11 S LRDFN=+X,LRDT=$S($D(^LRO(68,LRAA,1,LRAD,1,LRAN,3)):+^(3),1:0) IF 'LRDFN W !,"BAD LRAN ENTRY: ",LRAN G LO1
12 S @LRUTL
13 G LO1
14PLD S LRUTL="^TMP($J,LRDFN,LRAN,LRDT)=0" G LRAN
15LDP S LRUTL="^TMP($J,LRAN,LRDT,LRDFN)=0" G LRAN
16LPD S LRUTL="^TMP($J,LRAN,LRDFN,LRDT)=0" G LRAN
17DLP S LRUTL="^TMP($J,LRDT,LRAN,LRDFN)=0" G LRAN
18PRINT ;
19END K ^TMP($J),LRUTL Q
Note: See TracBrowser for help on using the repository browser.