©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
PSUSUM4 ;BIR/DAM - Patient Demographics Summary for IV Extract ; 20 DEC 2001
Source file <PSUSUM4.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 | PSUSUM5 PSUV0 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NODATA | ;Summary report line to be sent if there is no data
|
|
| EN | ;EN CALLED FROM PSUIV0
|
|
| PATNUM | ;Place division names and patient totals into summary message
|
|
| TAB1 | ;EN Calculate tab spacing for 'Total of all Divisions' line,
|
|
| SPACE | ;S ^XTMP("PSU_"_PSUJOB,"PSUTOTAL")=PSUTOTAL ;Total of all divisions
|
|
| EN1 | ;Entry point to collect data
|
|
| IVSUM | ;Summary report header to be run if IV extract is run
|
|
| TAB | ;Calculate tab spacing
|
|
| DATE | ;Convert date range of extract to external format
|
|
| WARD | ;Find unique number of patients that are OP and IP
|
|
| UNIQUE | ;Find number of unique patients across all divisions
|
|
| TOTUN | ;Set total number of unique in-patients and out-patients into
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^XTMP( | EN1+3 |
| ^XTMP("PSU_" | EN+6!, EN+7, EN+11!, EN1+3*, EN1+15*, EN1+16*, EN1+17*, EN1+18*, EN1+19*, EN1+23* , EN1+24*, EN1+25*, EN1+26*, EN1+27*, EN1+28*, EN1+32*, EN1+33*, EN1+34*, EN1+35*, EN1+38 , EN1+40!, EN1+41!, EN1+42!, EN1+44!, EN1+47!, EN1+48, EN1+49!, EN1+50!, EN1+51!, EN1+53! , EN1+55!, IVSUM+3*, IVSUM+4*, IVSUM+5*, IVSUM+6*, IVSUM+7*, IVSUM+8*, UNIQUE+9, UNIQUE+10, UNIQUE+11 , UNIQUE+12, UNIQUE+14*, UNIQUE+15*, WARD+4, WARD+5*, WARD+9, WARD+10*, TAB+2*, TAB+3*, TAB+7 , TAB+13, TOTUN+3*, TOTUN+4*, TOTUN+5*, PATNUM+6, PATNUM+7, PATNUM+10*, PATNUM+12*, TAB1+7, TAB1+10* , TAB1+11*, TAB1+12*, TAB1+13*, TAB1+14*, TAB1+15*, TAB1+16*, TAB1+17*, NODATA+2*, NODATA+3*, NODATA+4* |
| Name | Line Occurrences |
|---|---|
| DATE | EN1+2 |
| EN1 | EN+12 |
| IVSUM | DATE+14 |
| NODATA | EN+10 |
| PATNUM | EN1+10 |
| SPACE | PATNUM+9 |
| TAB | EN1+7 |
| TAB1 | EN1+11 |
| TOTUN | EN1+8 |
| UNIQUE | EN1+5 |
| WARD | UNIQUE+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %H | DATE+2* |
| >> I | EN+4*, EN1+4*, EN1+9*, TOTUN+3*, TOTUN+4*, TOTUN+5, PATNUM+10, PATNUM+11*, TAB1+10*, TAB1+11* , TAB1+12*, TAB1+13*, TAB1+14*, TAB1+15*, TAB1+16*, TAB1+17 |
| PSUCT3 | PATNUM+3~, PATNUM+7*, PATNUM+8, PATNUM+10, SPACE+3 |
| PSUD | DATE+4~*, IVSUM+3 |
| >> PSUD1A | WARD+3*, WARD+4* |
| >> PSUD1B | WARD+8*, WARD+9* |
| >> PSUDIVNM | PATNUM+5*, PATNUM+6*, PATNUM+7, PATNUM+10, SPACE+3 |
| PSUE | DATE+12~*, IVSUM+5 |
| >> PSUEDT | DATE+10 |
| >> PSUIPCT | UNIQUE+7*, WARD+10* |
| >> PSUIVSUB | EN1+3 |
| >> PSUJOB | EN+6, EN+7, EN+11, EN1+3, EN1+15, EN1+16, EN1+17, EN1+18, EN1+19, EN1+23 , EN1+24, EN1+25, EN1+26, EN1+27, EN1+28, EN1+32, EN1+33, EN1+34, EN1+35, EN1+38 , EN1+40, EN1+41, EN1+42, EN1+44, EN1+47, EN1+48, EN1+49, EN1+50, EN1+51, EN1+53 , EN1+55, IVSUM+3, IVSUM+4, IVSUM+5, IVSUM+6, IVSUM+7, IVSUM+8, UNIQUE+9, UNIQUE+10, UNIQUE+11 , UNIQUE+12, UNIQUE+14, UNIQUE+15, WARD+4, WARD+5, WARD+9, WARD+10, TAB+2, TAB+3, TAB+7 , TAB+13, TOTUN+3, TOTUN+4, TOTUN+5, PATNUM+6, PATNUM+7, PATNUM+10, PATNUM+12, TAB1+7, TAB1+10 , TAB1+11, TAB1+12, TAB1+13, TAB1+14, TAB1+15, TAB1+16, TAB1+17, NODATA+2, NODATA+3, NODATA+4 |
| >> PSUMOD( | EN+4* |
| >> PSUMOD(1 | EN+8, EN1+13, EN1+21, EN1+30 |
| >> PSUMOD(2 | EN+8, EN1+13, EN1+21, EN1+30, EN1+37 |
| >> PSUMOD(4 | EN+9, EN1+14, EN1+22, EN1+31, EN1+37 |
| >> PSUNUM | UNIQUE+8*, UNIQUE+10*, UNIQUE+11, UNIQUE+12 |
| >> PSUOPCT | UNIQUE+6*, WARD+5* |
| >> PSUOPTS | EN+4 |
| PSUS | DATE+8~*, IVSUM+5 |
| >> PSUSDT | DATE+6 |
| PSUSIT | UNIQUE+2~, UNIQUE+3* |
| >> PSUSIT1 | UNIQUE+8*, UNIQUE+9*, UNIQUE+10, UNIQUE+11, UNIQUE+12 |
| PSUSN | UNIQUE+5~, UNIQUE+12*, UNIQUE+14, UNIQUE+15 |
| >> PSUSNDR | UNIQUE+3 |
| >> PSUTB( | TAB+8*, TAB+9, TAB+14*, TAB+15, SPACE+4*, SPACE+5, TAB1+8*, TAB1+9 |
| PSUTB1 | TAB+5*, TAB+9*, TOTUN+3, PATNUM+2~, PATNUM+10, SPACE+2*, SPACE+5* |
| PSUTB2 | EN1+6~, TAB+6*, TAB+7, TOTUN+3, PATNUM+2~, SPACE+3*, SPACE+4 |
| PSUTB3 | EN1+6~, TAB+7*, TAB+8, TAB1+3~, TAB1+5*, TAB1+9*, TAB1+11 |
| PSUTB4 | EN1+6~, TAB+12*, TAB+13, TOTUN+4, TAB1+3~, TAB1+6*, TAB1+7, TAB1+11 |
| PSUTB5 | EN1+6~, TAB+13*, TAB+14, TAB1+3~, TAB1+7*, TAB1+8 |
| >> PSUTB6 | TAB+11*, TAB+15*, TOTUN+4 |
| >> PSUTOTAL | PATNUM+4*, PATNUM+8*, PATNUM+12 |
| PSUWD | UNIQUE+5~, UNIQUE+11*, UNIQUE+13, UNIQUE+14, UNIQUE+15 |
| >> S2 | TAB+8*, TAB+9, SPACE+4*, SPACE+5 |
| >> S3 | TAB+14*, TAB+15, TAB1+8*, TAB1+9 |
| U | UNIQUE+11, UNIQUE+12, PATNUM+7, TAB1+7, TAB1+11 |
| >> Y | DATE+4, DATE+6*, DATE+8, DATE+10*, DATE+12 |