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