| 1 | LRLSR ;SLC/RWF - REPORT SORT UTILITY ;2/5/91 14:49 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
|---|
| 3 | D LRAN,PRINT,END
|
|---|
| 4 | LRAN 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
|
|---|
| 6 | LRAA 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
|
|---|
| 8 | LOAD S LRAA=0 F S LRAA=$O(^TMP($J,0,LRAA)),LRAN=0 Q:LRAA<1 D LO1
|
|---|
| 9 | Q
|
|---|
| 10 | LO1 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
|
|---|
| 14 | PLD S LRUTL="^TMP($J,LRDFN,LRAN,LRDT)=0" G LRAN
|
|---|
| 15 | LDP S LRUTL="^TMP($J,LRAN,LRDT,LRDFN)=0" G LRAN
|
|---|
| 16 | LPD S LRUTL="^TMP($J,LRAN,LRDFN,LRDT)=0" G LRAN
|
|---|
| 17 | DLP S LRUTL="^TMP($J,LRDT,LRAN,LRDFN)=0" G LRAN
|
|---|
| 18 | PRINT ;
|
|---|
| 19 | END K ^TMP($J),LRUTL Q
|
|---|
