PSUSUM7 ;BIR/DAM - Pt. Demographics Summary for IV/RX or UD/RX ; 20 DEC 2001
Source file <PSUSUM7.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;EN CALLED FROM PSUOP0
|
|
| EN1 | ;Gather summary data
|
|
| UNIQUE | ;Find total unique pharmacy patients across all divisions when
|
|
| TAB2 | ;Tab spacing for line 7. Set line into global
|
|
| UNIQUE1 | ;Find total unique pharmacy patients across all divisions when
|
|
| TUDIV | ;Calculate total inpatient count and tab spacing for 'Total
|
|
| IPDIV1 | ;Find UD inpatient division totals
|
|
| IPMSG | ;Set UD inpatient division totals into message global
|
|
| IPDIV2 | ;Calculate inpatient totals for IV divisions
|
|
| IPDIV3 | ;Find unique inpatient count for each division
|
|
| DIVNUM | ;Set number of inpatients per division into summary message
|
|
| TAB5 | ;Calculate tab spacing
|
|
| TAB4 | ;Calculate UD totals of all divisions and place in summary
|
|
| MSG | ;Final lines of message
|
|
| NODATA | ;Summary report line to be sent if there is no data
|
