25 lines
966 B
Mathematica
25 lines
966 B
Mathematica
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
|