ORWRAP ; ALB/MJK - Background Imaging Report Print Driver ;1/24/95 15:49
;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
;
PRINT(ORY,ORIO,DFN,ORID) ; -- print report entry point
; RPC: ORWRA PRINT REPORT
; See RPC definition for details on input and output parameters
;
IF '$$CHK^ORWCSP() G PRINTQ
; -- task job
N TASKDATA
S TASKDATA("DESC")="Imaging Report Print"
S TASKDATA("RTN")="DEQUE^ORWRAP"
D TASK^ORWCSP(.ORY,.ORIO,.DFN,.ORID,.TASKDATA)
PRINTQ Q
;
DEQUE ; -- logic to print queued imaging report
N ROOT,HDRDATA
;
; -- retrieve report text
D RPT^ORWRA(.ROOT,.DFN,.ORID)
;
; -- print report text
S HDRDATA("TITLE")="Imaging Report"
S HDRDATA("DFN")=DFN
D OUTPUT^ORWCSP(.ROOT,.HDRDATA)
DEQUEQ Q
;
ORWRAP ; ALB/MJK - Background Imaging Report Print Driver ;1/24/95 15:49
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
+2 ;
PRINT(ORY,ORIO,DFN,ORID) ; -- print report entry point
+1 ; RPC: ORWRA PRINT REPORT
+2 ; See RPC definition for details on input and output parameters
+3 ;
+4 IF '$$CHK^ORWCSP()
GOTO PRINTQ
+5 ; -- task job
+6 NEW TASKDATA
+7 SET TASKDATA("DESC")="Imaging Report Print"
+8 SET TASKDATA("RTN")="DEQUE^ORWRAP"
+9 DO TASK^ORWCSP(.ORY,.ORIO,.DFN,.ORID,.TASKDATA)
PRINTQ QUIT
+1 ;
DEQUE ; -- logic to print queued imaging report
+1 NEW ROOT,HDRDATA
+2 ;
+3 ; -- retrieve report text
+4 DO RPT^ORWRA(.ROOT,.DFN,.ORID)
+5 ;
+6 ; -- print report text
+7 SET HDRDATA("TITLE")="Imaging Report"
+8 SET HDRDATA("DFN")=DFN
+9 DO OUTPUT^ORWCSP(.ROOT,.HDRDATA)
DEQUEQ QUIT
+1 ;