PSUSUM7 ;BIR/DAM - Pt. Demographics Summary for IV/RX or UD/RX ; 20 DEC 2001
Source file <PSUSUM7.m>
| Package | Total | Call Graph | 
|---|---|---|
| Pharmacy Benefits Management | 3 | PULL^PSUCP PDSUM^PSUDEM5 (DATE,DIVTOT,IPDIV,OPDIV,TAB1,TOP)^PSUSUM6 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| UNIQUE1 | ;Find total unique pharmacy patients across all divisions when | |
| NODATA | ;Summary report line to be sent if there is no data | |
| EN | ;EN CALLED FROM PSUOP0 | |
| DIVNUM | ;Set number of inpatients per division into summary message | |
| IPMSG | ;Set UD inpatient division totals into message global | |
| TAB2 | ;Tab spacing for line 7.  Set line into global | |
| TAB4 | ;Calculate UD totals of all divisions and place in summary | |
| IPDIV1 | ;Find UD inpatient division totals | |
| TUDIV | ;Calculate total inpatient count and tab spacing for 'Total | |
| EN1 | ;Gather summary data | |
| MSG | ;Final lines of message | |
| TAB5 | ;Calculate tab spacing | |
| IPDIV2 | ;Calculate inpatient totals for IV divisions | |
| IPDIV3 | ;Find unique inpatient count for each division | |
| UNIQUE | ;Find total unique pharmacy patients across all divisions when | 
| 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* | 
| Name | Line Occurrences | 
|---|---|
| DIVNUM | IPDIV3+12 | 
| EN1 | EN+13 | 
| IPDIV1 | EN1+13 | 
| IPDIV2 | EN1+10 | 
| IPDIV3 | IPDIV2+12 | 
| IPMSG | IPDIV1+9 | 
| MSG | IPDIV3+13, TAB4+10 | 
| NODATA | EN+10 | 
| TAB2 | UNIQUE+12 | 
| TAB4 | EN1+14 | 
| TAB5 | DIVNUM+9 | 
| TUDIV | EN1+8 | 
| UNIQUE | EN1+4 | 
| UNIQUE1 | EN1+3 | 
| >> | 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 |