©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PSUSUM5 ;BIR/DAM - Patient Demographics Summary for IV/UD ; 20 DEC 2001
Source file <PSUSUM5.m>
| Package | Total | Call Graph |
|---|---|---|
| Pharmacy Benefits Management | 3 | PULL^PSUCP PDSUM^PSUDEM5 TAB1^PSUSUM4 |
| VA Fileman | 2 | DD^%DT YX^%DTC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TOTAL | ;Calculate sum of all divisions and set individual division lines
|
|
| NODATA | ;Summary report line to be sent if there is no data
|
|
| EN | ;EN CALLED FROM PSUUD0
|
|
| IVUDSUM | ;Summary report header
|
|
| TAB1 | ;Calculate tab spacing
|
|
| TOT | ;Set total number of unique in-patients and out-patients into
|
|
| TAB | ;Calculate tab spacing
|
|
| DATE | ;Convert date range of extract to external format
|
|
| DIV | ;Set all divisions from both IV and UD extracts into one global
|
|
| UNIQUE | ;Find Total unique patient number across all divisions
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^XTMP("PSU_" | EN+2!, EN+3, EN+5!, EN+14!, EN+15!, EN+16!, EN+17!, EN+18!, EN+19!, EN+20! , EN+21!, EN+22!, EN+23!, EN+24!, EN+26!, IVUDSUM+2*, IVUDSUM+3*, IVUDSUM+4*, IVUDSUM+5*, IVUDSUM+6* , IVUDSUM+7*, UNIQUE+6*, UNIQUE+7*, UNIQUE+8*, UNIQUE+11*, UNIQUE+12*, UNIQUE+16, UNIQUE+19, TOT+3*, TOT+4* , TOT+5*, DIV+2*, DIV+3*, DIV+7, DIV+8*, DIV+12, DIV+13*, TOTAL+5, TOTAL+7, TOTAL+8* , TOTAL+9, TOTAL+11*, TOTAL+12, TOTAL+14*, TOTAL+18, TOTAL+19, TOTAL+21*, NODATA+2*, NODATA+3*, NODATA+4* |
| Name | Line Occurrences |
|---|---|
| DATE | EN+7 |
| DIV | EN+10 |
| IVUDSUM | DATE+15 |
| NODATA | EN+4 |
| TAB | UNIQUE+20 |
| TAB1 | TOTAL+20 |
| TOT | TAB+15 |
| TOTAL | EN+11 |
| UNIQUE | EN+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %H | DATE+3* |
| >> C | TOTAL+10*, TOTAL+11, TOTAL+13*, TOTAL+14 |
| >> E | DIV+5*, DIV+8, DIV+9*, DIV+13, DIV+14* |
| >> I | EN+8*, TOT+3*, TOT+4*, TOT+5*, TOTAL+21, TOTAL+22* |
| >> N | UNIQUE+14*, UNIQUE+17* |
| PSUD | DATE+5~*, IVUDSUM+2 |
| >> PSUDNAM | TOTAL+4*, TOTAL+5*, TOTAL+7, TOTAL+9, TOTAL+11, TOTAL+12, TOTAL+14 |
| >> PSUDNAM1 | TOTAL+16*, TOTAL+18*, TOTAL+19, TOTAL+21, TAB1+3 |
| PSUE | DATE+13~*, IVUDSUM+4 |
| >> PSUEDT | DATE+11 |
| PSUIPSUM | UNIQUE+5~, UNIQUE+17*, TAB+6, TOT+3 |
| >> PSUJOB | EN+2, EN+3, EN+5, EN+14, EN+15, EN+16, EN+17, EN+18, EN+19, EN+20 , EN+21, EN+22, EN+23, EN+24, EN+26, IVUDSUM+2, IVUDSUM+3, IVUDSUM+4, IVUDSUM+5, IVUDSUM+6 , IVUDSUM+7, UNIQUE+6, UNIQUE+7, UNIQUE+8, UNIQUE+11, UNIQUE+12, UNIQUE+16, UNIQUE+19, TOT+3, TOT+4 , TOT+5, DIV+2, DIV+3, DIV+7, DIV+8, DIV+12, DIV+13, TOTAL+5, TOTAL+7, TOTAL+8 , TOTAL+9, TOTAL+11, TOTAL+12, TOTAL+14, TOTAL+18, TOTAL+19, TOTAL+21, NODATA+2, NODATA+3, NODATA+4 |
| >> PSUNUM | TOTAL+19*, TOTAL+21, TAB1+3 |
| >> PSUNUM1 | TOTAL+6*, TOTAL+7* |
| PSUOPSUM | UNIQUE+5~, UNIQUE+19*, TAB+12, TOT+4 |
| PSUS | DATE+9~*, IVUDSUM+4 |
| >> PSUSDT | DATE+7 |
| PSUSIT | UNIQUE+2~, UNIQUE+3* |
| >> PSUSNDR | UNIQUE+3 |
| PSUSNUM | TOTAL+17~ |
| >> PSUSUM | UNIQUE+15*, UNIQUE+16* |
| >> PSUTB( | TAB+7*, TAB+8, TAB+13*, TAB+14, TAB1+4*, TAB1+5 |
| >> PSUTB1 | TAB+4*, TAB+8*, TOT+3 |
| PSUTB2 | TAB+2~, TAB+5*, TAB+6, TOT+3 |
| PSUTB3 | TAB+2~, TAB+6*, TAB+7 |
| PSUTB4 | TAB+2~, TAB+11*, TAB+12, TOT+4 |
| PSUTB5 | TAB+2~, TAB+12*, TAB+13 |
| >> PSUTB6 | TAB+10*, TAB+14*, TOT+4, TOTAL+21, TAB1+2*, TAB1+5* |
| >> PSUTB7 | TAB1+3*, TAB1+4 |
| >> PSUZ | DIV+6*, DIV+7*, DIV+8 |
| >> PSUZ1 | DIV+11*, DIV+12*, DIV+13 |
| >> S2 | TAB+7*, TAB+8, TAB1+4*, TAB1+5 |
| >> S3 | TAB+13*, TAB+14 |
| >> T | TOTAL+3*, TOTAL+8* |
| U | UNIQUE+6, UNIQUE+7, UNIQUE+8, UNIQUE+19, DIV+8, DIV+13, TOTAL+19 |
| >> Y | DATE+5, DATE+7*, DATE+9, DATE+11*, DATE+13 |