source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWRAP.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: 737 bytes
Line 
1ORWRAP ; ALB/MJK - Background Imaging Report Print Driver ;1/24/95 15:49
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
3 ;
4PRINT(ORY,ORIO,DFN,ORID) ; -- print report entry point
5 ; RPC: ORWRA PRINT REPORT
6 ; See RPC definition for details on input and output parameters
7 ;
8 IF '$$CHK^ORWCSP() G PRINTQ
9 ; -- task job
10 N TASKDATA
11 S TASKDATA("DESC")="Imaging Report Print"
12 S TASKDATA("RTN")="DEQUE^ORWRAP"
13 D TASK^ORWCSP(.ORY,.ORIO,.DFN,.ORID,.TASKDATA)
14PRINTQ Q
15 ;
16DEQUE ; -- logic to print queued imaging report
17 N ROOT,HDRDATA
18 ;
19 ; -- retrieve report text
20 D RPT^ORWRA(.ROOT,.DFN,.ORID)
21 ;
22 ; -- print report text
23 S HDRDATA("TITLE")="Imaging Report"
24 S HDRDATA("DFN")=DFN
25 D OUTPUT^ORWCSP(.ROOT,.HDRDATA)
26DEQUEQ Q
27 ;
Note: See TracBrowser for help on using the repository browser.