| [613] | 1 | LRACS2 ;SLC/DCM - LAB SUMMARY REPORT CONT. (MISC.) ; 2/22/87 3:08 PM ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;**201,225**;Sep 27, 1994
|
|---|
| 3 | LRUDT S LRTIM=$E(LRFDT,9,12) F I=0:0 Q:$L(LRTIM)=4 S LRTIM=LRTIM_0
|
|---|
| 4 | S LRUDT=$$Y2K^LRX($P(LRFDT,"."))_$J(LRTIM,5)
|
|---|
| 5 | Q
|
|---|
| 6 | HEAD D BOT,TOP Q
|
|---|
| 7 | BOT ;
|
|---|
| 8 | Y I $Y'>(IOSL-6) W ! G Y
|
|---|
| 9 | S LRPG=LRPG+1 Q
|
|---|
| 10 | TOP ;from LRACS1
|
|---|
| 11 | TOPLN ;from LRACS1
|
|---|
| 12 | D DASH^LRX S Z=^LAC(LRXLR,LRDFN,0)
|
|---|
| 13 | W !,PNM,?20,SSN,?33,"AGE: ",AGE,?50,LRLLOC
|
|---|
| 14 | S LRAG=0
|
|---|
| 15 | Q
|
|---|
| 16 | LRMISC S LRFDT=0,LRPG=1 D TOP
|
|---|
| 17 | MHI S LRMHN=$P(^LAC(LRXLR,LRDFN,LRMH,1,0),U,1) D WR
|
|---|
| 18 | MDT S LRFDT=$O(^LAC(LRXLR,LRDFN,"MISC",1,1,LRFDT)) G:LRFDT<1 END S LRVDT=$P(^(LRFDT,0),U,3) G:$P(LRVDT,".",1)'=LRDT MDT D LRUDT S LRMIT=0
|
|---|
| 19 | LRMIT S LRMIT=$O(^LAC(LRXLR,LRDFN,"MISC",1,1,LRFDT,1,LRMIT)) G:'LRMIT TXT S Z=^(LRMIT,0)
|
|---|
| 20 | S LRLO="",LRHI="",LRVAL=$P(Z,U,1),LRSPE=$P(Z,U,2),LRTEST=$P(Z,U,3),LRSPEM=$P(^LAB(61,LRSPE,0),U,1)
|
|---|
| 21 | G:'LRTEST COMM S LRUNT="",LRNAME=$P(^LAB(60,LRTEST,.1),U,1) S:$D(^LAB(60,LRTEST,1,LRSPE,0)) @("LRLO="_$S($L($P(^(0),U,2)):$P(^(0),U,2),1:"""""")),@("LRHI="_$S($L($P(^(0),U,3)):$P(^(0),U,3),1:"""""")),LRUNT=$P(^(0),U,7)
|
|---|
| 22 | WR1 D:$Y>(IOSL-12) WR W !!,LRUDT,?15,LRSPEM,?36,LRNAME,":",?50,LRVAL," ",LRUNT,?63 W:$L(LRLO) "NORMALS: ",LRLO,"-",LRHI
|
|---|
| 23 | G LRMIT
|
|---|
| 24 | COMM W !,"COMMENT: ",LRVAL G LRMIT
|
|---|
| 25 | WR D:$Y>(IOSL-12) HEAD S LRCL=21-$L(LRMHN)
|
|---|
| 26 | Q
|
|---|
| 27 | TXT S I=0 F S I=$O(^LAC(LRXLR,LRDFN,"MISC",1,1,LRFDT,"TX",0)) Q:'I W !,^(I,0)
|
|---|
| 28 | G MDT
|
|---|
| 29 | END D BOT S LRLO="" K LRSB,LRMISC Q
|
|---|
| 30 | PRE Q:$O(^LAC(LRXLR,LRDFN,"MISC",1,0))'>0 S LRMISC=1,LRPG=$S($D(^LR(LRDFN,"PG",LRMH)):$P(^(LRMH),U,2),1:0),LRMH="MISC" G LRMISC
|
|---|
| 31 | Q
|
|---|
| 32 | SORT ;from LRACS, LRACS3
|
|---|
| 33 | S LRNM=""
|
|---|
| 34 | F S LRNM=$O(^TMP($J,LRNM)) Q:LRNM="" S LRDFN=0 F S LRDFN=$O(^TMP($J,LRNM,LRDFN)) Q:LRDFN<1 S LRLLOC=^(LRDFN) Q:$D(^LR(LRDFN,0))[0 S LRIL=0,LRNAME=0,LRPG=1,LRAG=0,LRYESCOM=0 D:$D(LRMIC) LRIDT^LRACS3 D:'$D(LRMIC) LRMH^LRACS1
|
|---|
| 35 | Q
|
|---|
