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