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