ORWRAP.m

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       ;