| Line | |
|---|
| 1 | ORWRAP ; ALB/MJK - Background Imaging Report Print Driver ;1/24/95 15:49
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | PRINT(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)
|
|---|
| 14 | PRINTQ Q
|
|---|
| 15 | ;
|
|---|
| 16 | DEQUE ; -- 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)
|
|---|
| 26 | DEQUEQ Q
|
|---|
| 27 | ;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
