| 1 | ORPR04 ; slc/dcm - Chart house ; 07 Dec 99 01:43PM
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**28,69**;Dec 17, 1997
|
|---|
| 3 | CHT1 ;
|
|---|
| 4 | Q:'$D(^OR(100,ORIFN))
|
|---|
| 5 | I '$S($P($G(^OR(100,+ORIFN,3)),"^",3)'=11:1,1:0) Q
|
|---|
| 6 | N ORTCNT,ORX,OR3,ORPK,ORPKG
|
|---|
| 7 | D GET^ORPR01(ORIFN)
|
|---|
| 8 | Q:'$L(ORX)
|
|---|
| 9 | D CPRINT^ORPR01(ORIFN)
|
|---|
| 10 | Q
|
|---|
| 11 | CHTSET ;Setup
|
|---|
| 12 | S ORXPND=$$GET^XPAR("ALL","ORPF EXPAND CONTINUOUS ORDERS",1,"I")
|
|---|
| 13 | S ORHEAD=$$GET^XPAR("ALL","ORPF CHART COPY HEADER",1,"I")
|
|---|
| 14 | S ORFOOT=$$GET^XPAR("ALL","ORPF CHART COPY FOOTER",1,"I")
|
|---|
| 15 | S (OROFMT,ORFMT)=$$GET^XPAR("ALL","ORPF CHART COPY FORMAT",1,"I")
|
|---|
| 16 | S ORIOSL=IOSL I +ORFOOT,$D(^ORD(100.23,ORFOOT,0)) S ORBOT=$P(^(0),"^",2),ORIOSL=IOSL-ORBOT
|
|---|
| 17 | S ORIOF=IOF I +ORHEAD D PRINT^ORPR00(ORHEAD,1)
|
|---|
| 18 | S IOF="!" I +OROFMT S ORFMT=OROFMT
|
|---|
| 19 | Q
|
|---|
| 20 | CHTCLN ;Cleanup
|
|---|
| 21 | G:+$G(OREND) CHCX
|
|---|
| 22 | S ORFOOT=$$GET^XPAR("ALL","ORPF CHART COPY FOOTER",1,"I")
|
|---|
| 23 | I +ORFOOT S:IOF?1"!"."!" $P(IOF,"!",$S(ORIOSL>200:200,ORIOSL-$Y>1:ORIOSL-$Y,1:2))="" D PRINT^ORPR00(ORFOOT,1)
|
|---|
| 24 | I $E(IOST)="C" D
|
|---|
| 25 | . N DIR S DIR(0)="FO^1:1",DIR("A")="Press RETURN to continue or '^' to exit"
|
|---|
| 26 | . D ^DIR I $S($D(DIROUT):1,$D(DUOUT):1,$D(DTOUT):1,1:0) S OREND=1
|
|---|
| 27 | CHCX S IOF=ORIOF K ORHEAD,ORFOOT,OROFMT,ORFMT,ORIOF,ORBOT,ORIOSL
|
|---|
| 28 | Q
|
|---|
