22 lines
1.0 KiB
Mathematica
22 lines
1.0 KiB
Mathematica
ORSLTR ; slc/RWF - Print Big Letters ;4/30/92 14:47 ;
|
|
;;3.0;ORDER ENTRY/RESULTS REPORTING;**23**;Dec 17, 1997
|
|
Q:'$L($G(ORSLTR)) I '$D(^UTILITY("ORSLTR",$J,"A")) D ^ORSLTR2
|
|
B1 ; Setup for banner print
|
|
N ORSDIV,ORSLEN,ORSXXX,ORSBLNK,X
|
|
S ORSLEN=$L(ORSLTR),ORSDIV=60\ORSLEN,$P(ORSXXX,"X",(ORSDIV\5+1))=""
|
|
S $P(ORSBLNK," ",(ORSDIV\5+1))=""
|
|
S ORSLTY=$E(ORSLTR,1,$S(ORSLEN'>2:ORSLEN,1:(IOM\ORSDIV-1))),ORSLTX=""
|
|
F ORSLT1=1:1:$L(ORSLTY) D
|
|
. I $A(ORSLTY,ORSLT1)>32,$D(^UTILITY("ORSLTR",$J,$E(ORSLTY,ORSLT1))) D
|
|
. . S ORSLTX=ORSLTX_$E(ORSLTY,ORSLT1)
|
|
W:$E($G(IOST),1,2)="C-" @IOF
|
|
I $D(ORTIT) W ?(IOM-$L(ORTIT)\2),ORTIT,!
|
|
I $D(ORSPNM) W ?10,"Patient: ",ORSPNM,!
|
|
I $D(ORSWDN) W "Hospital Location: ",ORSWDN,!
|
|
I $D(DUZ) W ?13,"User: ",$P($G(^VA(200,DUZ,0)),U),!
|
|
W ! F ORSLT=1:1:4 D B2
|
|
W:$E($G(IOST),1,2)'="C-" @IOF K ORSLT1,ORSLT2,ORSLT3,ORSLTX,ORSLTY,ORSLT,^UTILITY("ORSLTR",$J) Q
|
|
B2 W !
|
|
F ORSLT1=9:-1:1 W ! F ORSLT3=1:1:$L(ORSLTX) S X=^UTILITY("ORSLTR",$J,$E(ORSLTX,ORSLT3)) W " " F ORSLT2=1:1:5 W $S($E(X,(ORSLT2-1*9+ORSLT1)):ORSXXX,1:ORSBLNK)
|
|
Q
|