PSUSUM4 ;BIR/DAM - Patient Demographics Summary for IV Extract ; 20 DEC 2001
Source file <PSUSUM4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;EN CALLED FROM PSUIV0
|
|
| EN1 | ;Entry point to collect data
|
|
| DATE | ;Convert date range of extract to external format
|
|
| IVSUM | ;Summary report header to be run if IV extract is run
|
|
| UNIQUE | ;Find number of unique patients across all divisions
|
|
| WARD | ;Find unique number of patients that are OP and IP
|
|
| TAB | ;Calculate tab spacing
|
|
| TOTUN | ;Set total number of unique in-patients and out-patients into
|
|
| PATNUM | ;Place division names and patient totals into summary message
|
|
| SPACE | ;S ^XTMP("PSU_"_PSUJOB,"PSUTOTAL")=PSUTOTAL ;Total of all divisions
|
|
| TAB1 | ;EN Calculate tab spacing for 'Total of all Divisions' line,
|
|
| NODATA | ;Summary report line to be sent if there is no data
|
