Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
737 bytes
|
Rev | Line | |
---|
[628] | 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.