PSUSUM7 ;BIR/DAM - Pt. Demographics Summary for IV/RX or UD/RX ; 20 DEC 2001
Source file <PSUSUM7.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Pharmacy Benefits Management | 1 | PSUOP0 |
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
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^XTMP("PSU_" | EN+6!, EN+7!, EN+8, EN+9, EN+11!, EN1+16!, EN1+17!, EN1+18!, EN1+19!, EN1+20! , EN1+21!, UNIQUE+6, UNIQUE+7*, UNIQUE+8, UNIQUE+9*, UNIQUE+11*, UNIQUE+13*, TAB2+4, TAB2+7*, UNIQUE1+7 , UNIQUE1+8*, UNIQUE1+9, UNIQUE1+10*, UNIQUE1+12*, UNIQUE1+13*, UNIQUE1+14*, TUDIV+6, TUDIV+7*, TUDIV+10*, TUDIV+12* , TUDIV+15, TUDIV+19*, TUDIV+20*, IPDIV1+6, IPDIV1+7, IPMSG+2*, IPDIV2+6, IPDIV2+8, IPDIV2+10, IPDIV2+11* , IPDIV3+3, IPDIV3+4, IPDIV3+5*, IPDIV3+6, IPDIV3+8*, IPDIV3+9, IPDIV3+11*, DIVNUM+7, DIVNUM+8, DIVNUM+10* , TAB4+6, TAB4+7, TAB4+8*, MSG+2*, MSG+8, MSG+11*, MSG+12*, MSG+13*, MSG+14*, MSG+15* , MSG+16*, NODATA+2*, NODATA+3*, NODATA+4* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> C | IPDIV3+7*, IPDIV3+8, IPDIV3+10*, IPDIV3+11 |
>> I | EN+4*, EN1+2*, UNIQUE+13*, TAB2+7, TAB2+8*, UNIQUE1+13*, UNIQUE1+14*, TUDIV+19*, TUDIV+20*, IPMSG+2 , IPMSG+3*, DIVNUM+10, DIVNUM+11*, MSG+11*, MSG+12*, MSG+13*, MSG+14*, MSG+15*, MSG+16 |
>> N | UNIQUE+5*, UNIQUE+7*, UNIQUE+9*, UNIQUE+11, UNIQUE1+5*, UNIQUE1+8*, UNIQUE1+10*, UNIQUE1+12, DIVNUM+3*, TAB4+3* , TAB4+7*, TAB4+8 |
>> PSUCT1 | IPDIV3+1*, IPDIV3+3*, IPDIV3+4, IPDIV3+6, IPDIV3+8, IPDIV3+9, IPDIV3+11 |
PSUCT2 | IPDIV3+1*, IPDIV3+4*, DIVNUM+5~, DIVNUM+8*, DIVNUM+10, TAB5+3 |
>> PSUDIVA1 | DIVNUM+6*, DIVNUM+7*, DIVNUM+8, DIVNUM+10, TAB5+3 |
PSUDT | TUDIV+3~, TUDIV+6*, TUDIV+7 |
>> PSUDV | IPDIV2+5*, IPDIV2+6*, IPDIV2+8, IPDIV2+11 |
>> PSUIVN | UNIQUE1+3*, UNIQUE1+9*, UNIQUE1+10 |
>> PSUJOB | EN+6, EN+7, EN+8, EN+9, EN+11, EN1+16, EN1+17, EN1+18, EN1+19, EN1+20 , EN1+21, UNIQUE+6, UNIQUE+7, UNIQUE+8, UNIQUE+9, UNIQUE+11, UNIQUE+13, TAB2+4, TAB2+7, UNIQUE1+7 , UNIQUE1+8, UNIQUE1+9, UNIQUE1+10, UNIQUE1+12, UNIQUE1+13, UNIQUE1+14, TUDIV+6, TUDIV+7, TUDIV+10, TUDIV+12 , TUDIV+15, TUDIV+19, TUDIV+20, IPDIV1+6, IPDIV1+7, IPMSG+2, IPDIV2+6, IPDIV2+8, IPDIV2+10, IPDIV2+11 , IPDIV3+3, IPDIV3+4, IPDIV3+5, IPDIV3+6, IPDIV3+8, IPDIV3+9, IPDIV3+11, DIVNUM+7, DIVNUM+8, DIVNUM+10 , TAB4+6, TAB4+7, TAB4+8, MSG+2, MSG+8, MSG+11, MSG+12, MSG+13, MSG+14, MSG+15 , MSG+16, NODATA+2, NODATA+3, NODATA+4 |
>> PSULBL | IPDIV1+2*, IPDIV1+6*, IPDIV1+7, IPMSG+2 |
>> PSUMKER | TAB4+3*, TAB4+6*, TAB4+7 |
>> PSUMOD( | EN+4* |
>> PSUMOD(1 | EN1+3, EN1+4, EN1+9, TUDIV+5 |
>> PSUMOD(2 | EN1+11, TUDIV+9, IPDIV1+5, TAB4+5 |
>> PSUOPTS | EN+4 |
>> PSUPT | IPDIV2+7*, IPDIV2+8*, IPDIV2+11 |
>> PSUPT1 | IPDIV2+9*, IPDIV2+10*, IPDIV2+11 |
>> PSURXN | UNIQUE+3*, UNIQUE+6*, UNIQUE+7, UNIQUE1+3*, UNIQUE1+7*, UNIQUE1+8 |
>> PSUTB( | TAB2+5*, TAB2+6, TUDIV+16*, TUDIV+17, TAB5+4*, TAB5+5, MSG+9*, MSG+10 |
PSUTB1 | IPMSG+2, DIVNUM+2~, DIVNUM+10, TAB5+2*, TAB5+5* |
PSUTB2 | DIVNUM+2~, TAB5+3*, TAB5+4 |
PSUTB3 | TAB2+2*, TAB2+6*, TAB2+7, TUDIV+3~, TUDIV+13*, TUDIV+17*, TUDIV+19, MSG+4~, MSG+6*, MSG+10* , MSG+12 |
PSUTB4 | TAB2+3*, TAB2+4, TAB2+7, TUDIV+3~, TUDIV+14*, TUDIV+15, TUDIV+19, MSG+4~, MSG+7*, MSG+8 , MSG+12 |
PSUTB5 | TAB2+4*, TAB2+5, TUDIV+3~, TUDIV+15*, TUDIV+16, MSG+4~, MSG+8*, MSG+9 |
PSUTTL | IPDIV1+3~, IPDIV1+7*, IPMSG+2 |
>> PSUUDN1 | UNIQUE+3*, UNIQUE+8*, UNIQUE+9 |
>> PSUUDN2 | UNIQUE+3* |
>> R | TAB4+3* |
>> S2 | TAB5+4*, TAB5+5 |
>> S3 | TAB2+5*, TAB2+6, TUDIV+16*, TUDIV+17, MSG+9*, MSG+10 |
>> T | IPDIV3+1*, IPDIV3+5* |
U | TAB2+4, TAB2+7, UNIQUE1+13, TUDIV+6, TUDIV+10, TUDIV+15, TUDIV+19, IPDIV1+7, DIVNUM+8, TAB4+7 , MSG+8, MSG+12 |