Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORWRAP

ORWRAP.m

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