| [613] | 1 | LRSORB ;DALOI/RWF/RLM-SCAN PART OF LRSORA ;7/3/86 12:47 PM
|
|---|
| 2 | ;;5.2;LAB SERVICE;**272**;Sep 27, 1994
|
|---|
| 3 | ; Reference to $$FMTE^XLFDT supported by IA #10103
|
|---|
| 4 | ; Reference to $$NOW^XLFDT supported by IA #10103
|
|---|
| 5 | ; Reference to ^DPT supported by DBIA #10035
|
|---|
| 6 | ; Reference to ^%ZISC supported by IA #10089
|
|---|
| 7 | S LREND=0 G LRLONG:$D(LRLONG) U IO D HDR
|
|---|
| 8 | DT F LRPDT=LREDT-.01:0 S LRPDT=$O(^LRO(69,LRPDT)) Q:LRPDT<LREDT!(LRPDT>LRSDT) D LOC Q:LREND
|
|---|
| 9 | D ^%ZISC Q
|
|---|
| 10 | LOC S LRLLOC="" F LRLOX=0:0 S LRLLOC=$O(^LRO(69,LRPDT,1,"AN",LRLLOC)) Q:LRLLOC="" D PT Q:LREND
|
|---|
| 11 | Q
|
|---|
| 12 | PT F LRDFN=0:0 S LRDFN=$O(^LRO(69,LRPDT,1,"AN",LRLLOC,LRDFN)) Q:LRDFN<1 D LRIDT Q:LREND
|
|---|
| 13 | Q
|
|---|
| 14 | LRIDT F LRIDT=0:0 S LRIDT=$O(^LRO(69,LRPDT,1,"AN",LRLLOC,LRDFN,LRIDT)) Q:LRIDT<1 D LOOK Q:LREND
|
|---|
| 15 | Q
|
|---|
| 16 | LOOK K V S L0=$S($D(^LR(LRDFN,"CH",LRIDT,0)):^(0),1:"") Q:L0=""
|
|---|
| 17 | F I=1:1:LRTEST X LRTEST(I) I $T S V(I)=@LRTEST(I,3)
|
|---|
| 18 | D PRINT:$O(V(0))'=""
|
|---|
| 19 | Q
|
|---|
| 20 | PRINT S X=^LR(LRDFN,0),LRDPF=$P(X,U,2),DFN=$P(X,U,3) D PT^LRX
|
|---|
| 21 | S LRSPEC=+$P(L0,U,5)
|
|---|
| 22 | D HDR:$Y>IOSL Q:LREND W !,PNM,?35,SSN," " W:LRDPF=2 $S($D(^DPT(DFN,.1)):^(.1),1:LRLLOC) W ?60,$P(L0,U,6)
|
|---|
| 23 | F I=0:0 S I=$O(V(I)) Q:I<1 W !,?5,LRTEST(I,1),?20," ",$J($P(V(I),U,1),8),$J($P(V(I),U,2),3)," ",$S($D(^LAB(61,LRSPEC,0)):$P(^(0),U,1),1:"") D:$Y>(IOSL-7) HDR Q:LREND
|
|---|
| 24 | Q
|
|---|
| 25 | HDR U IO D WAIT Q:LREND W @IOF,"SPECIAL REPORT: SEARCHING FOR ",?30,LRTEST(1,1)," ",LRTEST(1,2)," ",$$FMTE^XLFDT($$NOW^XLFDT,"")
|
|---|
| 26 | I LRTEST>1 F I=2:1:LRTEST W:I>1 !,?25," or" W ?30,LRTEST(I,1)," ",LRTEST(I,2)
|
|---|
| 27 | D DASH^LRX
|
|---|
| 28 | Q
|
|---|
| 29 | LRLONG U IO D HDR Q:LREND S LRSDT=9999999-LRSDT,LREDT=9999999-LREDT
|
|---|
| 30 | F LRDFN=0:0 S LRDFN=$O(^LR(LRDFN)) Q:LRDFN<1 D NIDT Q:LREND
|
|---|
| 31 | END K %H,%ZIS,DIC,DTOUT,I,L0,LAST,LRAA,LRAD,LRDFN,LRDPF,LREDT,LREND,LRFAN,LRIDT,LRLAN,LRLLOC,LRLONG,LRLOX,LRPDT,LRSB,LRSDT,LRSPEC,LRSTAR,LRTEST
|
|---|
| 32 | K ^TMP("LR",$J,"T"),LRTSTS,LRWDTL,PNM,POP,SSN,V,Y
|
|---|
| 33 | D ^%ZISC Q
|
|---|
| 34 | NIDT F LRIDT=LRSDT:0 S LRIDT=$O(^LR(LRDFN,"CH",LRIDT)) Q:LRIDT=""!(LRIDT>LREDT) S LRLLOC=$P(^(LRIDT,0),"^",11) D LOOK Q:LREND
|
|---|
| 35 | Q
|
|---|
| 36 | WAIT Q:$E(IOST,1,2)'="C-" W $C(7) R !!?20,"Press any key to continue, ""^"" to quit.",X:DTIME S:X["^" LREND=1
|
|---|
| 37 | Q
|
|---|
