source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORPR04.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1ORPR04 ; slc/dcm - Chart house ; 07 Dec 99 01:43PM
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**28,69**;Dec 17, 1997
3CHT1 ;
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
11CHTSET ;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
20CHTCLN ;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
27CHCX S IOF=ORIOF K ORHEAD,ORFOOT,OROFMT,ORFMT,ORIOF,ORBOT,ORIOSL
28 Q
Note: See TracBrowser for help on using the repository browser.