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 |
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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;EN CALLED FROM PSUIV0
|
|
EN1 | ;Entry point to collect data
|
|
DATE | ;Convert date range of extract to external format
|
|
IVSUM | ;Summary report header to be run if IV extract is run
|
|
UNIQUE | ;Find number of unique patients across all divisions
|
|
WARD | ;Find unique number of patients that are OP and IP
|
|
TAB | ;Calculate tab spacing
|
|
TOTUN | ;Set total number of unique in-patients and out-patients into
|
|
PATNUM | ;Place division names and patient totals into summary message
|
|
SPACE | ;S ^XTMP("PSU_"_PSUJOB,"PSUTOTAL")=PSUTOTAL ;Total of all divisions
|
|
TAB1 | ;EN Calculate tab spacing for 'Total of all Divisions' line,
|
|
NODATA | ;Summary report line to be sent if there is no data
|
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* |
>> | 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 |