PSUSUM2 ;BIR/DAM - Patient Demographics Summary for OP Extract ; 20 DEC 2001
Source file <PSUSUM2.m>
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 |
Package | Total | Caller Graph |
---|---|---|
Pharmacy Benefits Management | 1 | PSUOP0 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;EN CALLED FROM PSUOP0
|
|
DATE | ;Convert date range of extract to external format
|
|
RXSUM | ;Summary report to be run if Rx (Outpatient) extract is run
|
|
TAB2 | ;Tab spacing for line 7. Set line into global
|
|
UNIQUE | ;Find UNIQUE patients across all divisions
|
|
ELIM | ;Eliminate duplicate patient entries to get number of unique pts
|
|
DIVNUM | ;Set number of patients per division into summary message
|
|
TAB | ;Calculate tab spacing
|
|
TOTAL | ;Calculate Outpatient Total of all Divisions
|
|
TAB1 | ;Calculate tab spacing for 'Outpatient Total of all Divisions' line.
|
|
NODATA | ;Summary report line to be sent if there is no data
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^XTMP( | UNIQUE+3 |
^XTMP("PSU_" | EN+6, EN+9!, EN+14*, EN+15*, EN+18*, EN+19*, EN+20*, EN+21*, EN+25!, EN+26! , EN+27!, EN+28!, EN+29!, EN+30!, EN+31!, RXSUM+4*, RXSUM+5*, RXSUM+6*, RXSUM+7*, RXSUM+8* , RXSUM+9*, RXSUM+11*, TAB2+6, TAB2+9*, UNIQUE+3*, UNIQUE+9, UNIQUE+10, UNIQUE+11, UNIQUE+13, UNIQUE+14* , ELIM+3, ELIM+4*, DIVNUM+7, DIVNUM+9, DIVNUM+10, DIVNUM+12*, DIVNUM+16, DIVNUM+18, DIVNUM+19, DIVNUM+21* , DIVNUM+22, DIVNUM+23*, DIVNUM+28, DIVNUM+29, DIVNUM+32*, DIVNUM+33*, DIVNUM+39, DIVNUM+40, DIVNUM+42*, TOTAL+4 , TOTAL+5, TOTAL+7*, TAB1+7, TAB1+10*, TAB1+11*, TAB1+12*, TAB1+13*, TAB1+14*, NODATA+2*, NODATA+3* , NODATA+4* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> %H | DATE+2* |
>> C | DIVNUM+6*, DIVNUM+20*, DIVNUM+21, DIVNUM+23* |
>> DIC | DIVNUM+30* |
>> DIC(0 | DIVNUM+30* |
>> I | EN+4*, EN+14*, EN+15*, RXSUM+12*, DIVNUM+42, DIVNUM+43*, TAB1+10*, TAB1+11*, TAB1+12*, TAB1+13* , TAB1+14 |
>> M | EN+20, UNIQUE+5*, ELIM+4, ELIM+5* |
>> N | UNIQUE+6*, UNIQUE+15* |
>> PSUADM | ELIM+2*, ELIM+3* |
PSUCT2 | DIVNUM+37~, DIVNUM+40*, DIVNUM+42, TAB+3 |
PSUD | DATE+4~*, RXSUM+4 |
>> PSUDIV | DIVNUM+26*, DIVNUM+28*, DIVNUM+29, DIVNUM+30, DIVNUM+33 |
>> PSUDIVA1 | DIVNUM+38*, DIVNUM+39*, DIVNUM+40, DIVNUM+42, TAB+3 |
>> PSUDIVNM | DIVNUM+31*, DIVNUM+32, DIVNUM+33 |
>> PSUDNUM | DIVNUM+5*, DIVNUM+7*, DIVNUM+9, DIVNUM+10, DIVNUM+12 |
>> PSUDNUM1 | DIVNUM+15*, DIVNUM+16*, DIVNUM+18, DIVNUM+19, DIVNUM+21, DIVNUM+22, DIVNUM+23 |
PSUE | DATE+12~*, RXSUM+6 |
>> PSUEDT | DATE+10 |
>> PSUID | DIVNUM+17*, DIVNUM+18* |
>> PSUJOB | EN+6, EN+9, EN+14, EN+15, EN+18, EN+19, EN+20, EN+21, EN+25, EN+26 , EN+27, EN+28, EN+29, EN+30, EN+31, RXSUM+4, RXSUM+5, RXSUM+6, RXSUM+7, RXSUM+8 , RXSUM+9, RXSUM+11, TAB2+6, TAB2+9, UNIQUE+3, UNIQUE+9, UNIQUE+10, UNIQUE+11, UNIQUE+13, UNIQUE+14 , ELIM+3, ELIM+4, DIVNUM+7, DIVNUM+9, DIVNUM+10, DIVNUM+12, DIVNUM+16, DIVNUM+18, DIVNUM+19, DIVNUM+21 , DIVNUM+22, DIVNUM+23, DIVNUM+28, DIVNUM+29, DIVNUM+32, DIVNUM+33, DIVNUM+39, DIVNUM+40, DIVNUM+42, TOTAL+4 , TOTAL+5, TOTAL+7, TAB1+7, TAB1+10, TAB1+11, TAB1+12, TAB1+13, TAB1+14, NODATA+2, NODATA+3 , NODATA+4 |
>> PSUMOD( | EN+4* |
>> PSUMOD(1 | EN+7, EN+17, EN+23 |
>> PSUMOD(2 | EN+7, EN+17, EN+23 |
PSUNBR | DIVNUM+27~, DIVNUM+29*, DIVNUM+32, DIVNUM+33 |
PSUNIQUE | UNIQUE+2~ |
>> PSUOPSUB | UNIQUE+3 |
>> PSUOPTOT | TOTAL+2*, TOTAL+4*, TOTAL+5 |
>> PSUOPTS | EN+4 |
PSUPL | DIVNUM+4~, DIVNUM+8*, DIVNUM+9*, DIVNUM+10 |
PSUPTID | DIVNUM+4~, DIVNUM+10*, DIVNUM+11, DIVNUM+12 |
>> PSURX1 | UNIQUE+8*, UNIQUE+10*, UNIQUE+11, UNIQUE+13 |
PSURX2 | UNIQUE+2~ |
PSURX5 | UNIQUE+2~ |
PSUS | DATE+8~*, RXSUM+6 |
>> PSUSDT | DATE+6 |
PSUSIT | UNIQUE+2~, UNIQUE+7*, UNIQUE+9*, UNIQUE+10, UNIQUE+11, UNIQUE+13 |
PSUSOC1 | UNIQUE+2~, UNIQUE+13*, UNIQUE+14 |
>> PSUTB( | TAB2+7*, TAB2+8, TAB+4*, TAB+5, TAB1+8*, TAB1+9 |
PSUTB1 | DIVNUM+35~, DIVNUM+42, TAB+2*, TAB+5* |
PSUTB2 | DIVNUM+35~, TAB+3*, TAB+4 |
PSUTB3 | TAB2+2~, TAB2+4*, TAB2+8*, TAB2+9, TAB1+3~, TAB1+5*, TAB1+9*, TAB1+10 |
PSUTB4 | TAB2+2~, TAB2+5*, TAB2+6, TAB2+9, TAB1+3~, TAB1+6*, TAB1+7, TAB1+10 |
PSUTB5 | TAB2+2~, TAB2+6*, TAB2+7, TAB1+3~, TAB1+7*, TAB1+8 |
>> PSUTOCT | TOTAL+5*, TOTAL+6 |
>> PSUTOCT1 | TOTAL+3*, TOTAL+6*, TOTAL+7 |
PSUTOTAL | UNIQUE+2~ |
>> S2 | TAB+4*, TAB+5 |
>> S3 | TAB2+7*, TAB2+8, TAB1+8*, TAB1+9 |
U | TAB2+6, TAB2+9, UNIQUE+11, UNIQUE+13, ELIM+4, DIVNUM+10, DIVNUM+29, DIVNUM+40, TOTAL+5, TOTAL+7 , TAB1+7, TAB1+10 |
>> X | DIVNUM+30*, DIVNUM+31* |
>> Y | DATE+4, DATE+6*, DATE+8, DATE+10*, DATE+12, DIVNUM+31 |