©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
PSUSUM3 ;BIR/DAM - Patient Demographics Summary for UD Extract ; 20 DEC 2001
Source file <PSUSUM3.m>
| Package | Total | Call Graph |
|---|---|---|
| Pharmacy Benefits Management | 2 | PULL^PSUCP PDSUM^PSUDEM5 |
| VA Fileman | 2 | DD^%DT YX^%DTC |
| Package | Total | Caller Graph |
|---|---|---|
| Pharmacy Benefits Management | 2 | PSUSUM6 PSUUD0 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TOTAL | ;EN Calculate Inpatient total of all divisions
|
|
| NODATA | ;Summary report line to be sent if there is no data
|
|
| EN | ;EN CALLED FROM PSUUD0
|
|
| DIVNUM | ;Set number of patients per division into summary message
|
|
| UDSUM | ;Summary report header to be run if UD (Inpatient) extract is run
|
|
| TAB2 | ;Tab spacing for line 7. Set line into global
|
|
| TAB1 | ;EN Calculate tab spacing for 'Outpatient Total of all Divisions' line.
|
|
| EN1 | ;Entry point to collect data
|
|
| RE | ;Rearrange the ^XTMP("PSU_"_PSUJOB,"PSUUD","DETAIL" global so information in PATDIV
|
|
| TAB | ;Calculate tab spacing
|
|
| DATE | ;Convert date range of extract to external format
|
|
| UNIQUE | ;Find number of unique patients across all divisions
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^XTMP( | EN1+2 |
| ^XTMP("PSU_" | EN+6, EN+10!, EN+11!, EN1+2*, EN1+12*, EN1+13*, EN1+14*, EN1+18*, EN1+19*, EN1+23* , EN1+24*, EN1+25*, EN1+29!, EN1+30!, EN1+31!, EN1+32!, EN1+34!, EN1+35!, RE+9, RE+10 , RE+11, RE+12, RE+14, RE+16, RE+17*, UDSUM+3*, UDSUM+4*, UDSUM+5*, UDSUM+6*, UDSUM+7* , UDSUM+8*, UNIQUE+4, UNIQUE+6, UNIQUE+7, UNIQUE+8*, UNIQUE+14, UNIQUE+15*, UNIQUE+17*, TAB2+6, TAB2+9* , DIVNUM+6, DIVNUM+7, DIVNUM+9*, TOTAL+5, TOTAL+6, TOTAL+8*, TAB1+5, TAB1+6*, TAB1+9, TAB1+12* , TAB1+13*, TAB1+14*, TAB1+15*, TAB1+16*, TAB1+17*, NODATA+2*, NODATA+3*, NODATA+4* |
| Name | Line Occurrences |
|---|---|
| DATE | EN1+1 |
| DIVNUM | EN1+6 |
| EN1 | EN+12 |
| NODATA | EN+9 |
| RE | EN1+3 |
| TAB | DIVNUM+8 |
| TAB1 | EN1+8 |
| TAB2 | UNIQUE+16 |
| TOTAL | EN1+7 |
| UDSUM | DATE+14 |
| UNIQUE | EN1+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %H | DATE+2* |
| >> B | UNIQUE+12*, UNIQUE+15* |
| >> I | EN+4*, EN1+5*, DIVNUM+9, DIVNUM+10*, TAB1+12*, TAB1+13*, TAB1+14*, TAB1+15*, TAB1+16*, TAB1+17 |
| PSUCT3 | DIVNUM+4~, DIVNUM+7*, DIVNUM+9, TAB+3 |
| PSUD | DATE+4~*, UDSUM+3 |
| >> PSUDFN | RE+13*, RE+14*, RE+16, RE+17 |
| >> PSUDIVA2 | DIVNUM+5*, DIVNUM+6*, DIVNUM+7, DIVNUM+9, TAB+3 |
| PSUE | DATE+12~*, UDSUM+5 |
| >> PSUEDT | DATE+10 |
| PSUIPCT | TOTAL+2~, TOTAL+6*, TOTAL+7 |
| >> PSUIPTOT | TOTAL+3*, TOTAL+5*, TOTAL+6 |
| >> PSUJOB | EN+6, EN+10, EN+11, EN1+2, EN1+12, EN1+13, EN1+14, EN1+18, EN1+19, EN1+23 , EN1+24, EN1+25, EN1+29, EN1+30, EN1+31, EN1+32, EN1+34, EN1+35, RE+9, RE+10 , RE+11, RE+12, RE+14, RE+16, RE+17, UDSUM+3, UDSUM+4, UDSUM+5, UDSUM+6, UDSUM+7 , UDSUM+8, UNIQUE+4, UNIQUE+6, UNIQUE+7, UNIQUE+8, UNIQUE+14, UNIQUE+15, UNIQUE+17, TAB2+6, TAB2+9 , DIVNUM+6, DIVNUM+7, DIVNUM+9, TOTAL+5, TOTAL+6, TOTAL+8, TAB1+5, TAB1+6, TAB1+9, TAB1+12 , TAB1+13, TAB1+14, TAB1+15, TAB1+16, TAB1+17, NODATA+2, NODATA+3, NODATA+4 |
| >> PSUMOD( | EN+4* |
| >> PSUMOD(1 | EN+7, EN1+10, EN1+16, EN1+21, EN1+27 |
| >> PSUMOD(2 | EN+7, EN1+10, EN1+16, EN1+21 |
| >> PSUMOD(4 | EN+8, EN1+11, EN1+17, EN1+22, EN1+27 |
| >> PSUOPTS | EN+4 |
| >> PSUPN1 | RE+8*, RE+10*, RE+11, RE+12 |
| PSUS | DATE+8~*, UDSUM+5 |
| >> PSUSDT | DATE+6 |
| PSUSIT | RE+3~, RE+4* |
| >> PSUSIT1 | RE+8*, RE+9*, RE+10, RE+11, RE+12 |
| >> PSUSN | RE+15*, RE+16*, RE+17 |
| >> PSUSNDR | RE+4 |
| PSUSSNA | RE+7~, RE+12*, RE+17 |
| >> PSUTB( | TAB2+7*, TAB2+8, TAB+4*, TAB+5, TAB1+10*, TAB1+11 |
| PSUTB1 | DIVNUM+2~, DIVNUM+9, TAB+2*, TAB+5* |
| PSUTB2 | DIVNUM+2~, TAB+3*, TAB+4 |
| PSUTB3 | TAB2+2~, TAB2+4*, TAB2+8*, TAB2+9, TAB1+3~, TAB1+7*, TAB1+11*, TAB1+13 |
| PSUTB4 | TAB2+2~, TAB2+5*, TAB2+6, TAB2+9, TAB1+3~, TAB1+8*, TAB1+9, TAB1+13 |
| PSUTB5 | TAB2+2~, TAB2+6*, TAB2+7, TAB1+3~, TAB1+9*, TAB1+10 |
| >> PSUTOCT1 | TOTAL+4*, TOTAL+7*, TOTAL+8 |
| PSUUDA | RE+7~, RE+11*, RE+17 |
| >> PSUUDS | UNIQUE+2*, UNIQUE+4*, UNIQUE+6, UNIQUE+7 |
| >> PSUUDS1 | UNIQUE+5*, UNIQUE+6*, UNIQUE+7 |
| >> PSUUDS2 | UNIQUE+13*, UNIQUE+14* |
| PSUUDS3 | UNIQUE+3~, UNIQUE+7*, UNIQUE+8 |
| >> PSUUDSUB | EN1+2 |
| >> S2 | TAB+4*, TAB+5 |
| >> S3 | TAB2+7*, TAB2+8, TAB1+10*, TAB1+11 |
| U | RE+11, RE+12, UNIQUE+7, TAB2+6, TAB2+9, DIVNUM+7, TOTAL+6, TOTAL+8, TAB1+9, TAB1+13 |
| >> Y | DATE+4, DATE+6*, DATE+8, DATE+10*, DATE+12 |