| [613] | 1 | LRLLP4 ;SLC/RWF - SET UP DISPLAY ORDER FOR PRINT ;2/5/91 14:38 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
|---|
| 3 | BUILD K ^TMP("LR",$J),S1,J1 S S1=0,J=0,S2=0
|
|---|
| 4 | F I=0:0 S I=$O(^LRO(68.2,LRINST,10,LRPROF,1,I)) Q:I'>0 S X=+^(I,0) I '$P(^(0),"^",3) D TREE
|
|---|
| 5 | F I=0:0 S I=$O(^LRO(68.2,LRINST,10,LRPROF,1,I)) Q:I'>0 S X=+^(I,0) I $P(^(0),"^",3),'$D(^TMP("LR",$J,X)) D TREE
|
|---|
| 6 | K S1,S2,J1,^TMP("LR",$J) Q
|
|---|
| 7 | TREE I '$D(^LAB(60,X,0)) Q ;BAD LRTEST NUMBER
|
|---|
| 8 | S Z=^(0) Q:$D(^TMP("LR",$J,X)) S S2=S2+1,^LRO(68.2,LRINST,10,LRPROF,1,"AO",X)=S2,^TMP("LR",$J,X)="" ;ADD TO LIST
|
|---|
| 9 | Q:'$D(^LAB(60,X,2,0)) Q:$O(^(0))<1 ;NOT A PANEL
|
|---|
| 10 | S S1=S1+1,S1(S1)=X,J1(S1)=J
|
|---|
| 11 | S J=0 F S J=$O(^LAB(60,S1(S1),2,J)) Q:J<1 S X=+^(J,0) D TREE
|
|---|
| 12 | S J=J1(S1),X=S1(S1),S1=S1-1
|
|---|
| 13 | Q
|
|---|
| 14 | DIC S LRINST=DA(2),LRPROF=DA(1),DIC("X")=X D BUILD S X=DIC("X") K DIC("X") Q
|
|---|
| 15 | MOVE ;from LRLLP2
|
|---|
| 16 | I $O(^LRO(68.2,LRINST,10,LRPROF,1,"AO",0))="" D BUILD
|
|---|
| 17 | F I=0:0 S I=$O(^LRO(68.2,LRINST,10,LRPROF,1,"AO",I)) Q:I<1 S X=^(I),^TMP($J,LRPROF,I)=X
|
|---|
| 18 | Q
|
|---|
