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
|