[628] | 1 | SPNLRJ ;ISC-SF/GB-SCD IP/OP REPORT CONTROLLER ;6/23/95 11:57
|
---|
| 2 | ;;2.0;Spinal Cord Dysfunction;;01/02/1997
|
---|
| 3 | ASK(QLIST,ABORT) ; There are no report-specific questions
|
---|
| 4 | S QLIST("DUMMY")=""
|
---|
| 5 | Q
|
---|
| 6 | GATHER(DFN,FDATE,TDATE,HIUSERS,QLIST) ;
|
---|
| 7 | D ROLLUP^SPNLGROP(DFN,FDATE,TDATE,HIUSERS) ; gather outpatient data
|
---|
| 8 | D ROLLUP^SPNLGRIP(DFN,FDATE,TDATE,HIUSERS) ; gather inpatient data
|
---|
| 9 | Q
|
---|
| 10 | PRINT(FACNAME,XFDATE,XTDATE,HIUSERS,QLIST,ABORT) ;
|
---|
| 11 | ; PAGELEN Number of lines per page
|
---|
| 12 | ; TITLE Array of header lines (titles)
|
---|
| 13 | N TITLE,PAGELEN
|
---|
| 14 | D NAMEIT^SPNLGRIP ; name the bed sections
|
---|
| 15 | D NAMEIT^SPNLGROP ; name the stop codes
|
---|
| 16 | S PAGELEN=IOSL-3
|
---|
| 17 | S TITLE(1)=$$CENTER^SPNLRU("SCD - Inpatient and Outpatient Activity")
|
---|
| 18 | S TITLE(2)=$$CENTER^SPNLRU(FACNAME)
|
---|
| 19 | I $D(SPNLTRM1) S TITLE(2.5)=$$CENTER^SPNLRU(SPNLTRM1)
|
---|
| 20 | S TITLE(4)=$$CENTER^SPNLRU("For the Period "_XFDATE_" to "_XTDATE)
|
---|
| 21 | D OUTPAT^SPNLRJO(.TITLE,PAGELEN,HIUSERS,.ABORT)
|
---|
| 22 | Q:ABORT
|
---|
| 23 | D INPAT^SPNLRJI(.TITLE,PAGELEN,HIUSERS,.ABORT)
|
---|
| 24 | Q
|
---|