- 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
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORWRAP 764 printed Feb 19, 2025@00:03:47 Page 2
- 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 ;