PSUUD6 ;BIR/DAM - UD AMIS Summary Message I;23 MAR 2004
Source file <PSUUD6.m>
Package | Total | Call Graph |
---|---|---|
Pharmacy Benefits Management | 1 | $$VAL^PSUTL |
VA FileMan | 1 | IX^DIC |
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 | PSUUD3 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;Entry point to construct globals for AMIS summary message
|
|
DISP | ;Add doses dispensed of all drugs for each division
|
|
RET | ;Add doses returned of all drugs for each division
|
|
NET | ;Calculate Net doses dispensed of all drugs
|
|
TCOST | ;Find total cost per drug
|
|
AVG | ;Calculate average cost per dose
|
|
TRUNC | ;Truncate pieces with dollar values to 2 decimal places
|
|
TOTAL | ;Add dose totals of all divisions
|
|
SPEC | ;Find out if a monthly extract is being run
|
|
SPEC1 | ;Find division names from File (#42.6) records within
|
|
REC1 | ;Create a record of specialties and days of patient care for File #42.6
|
|
SPEC2 | ;Find division names from File (#42.7) records within
|
|
REC2 | ;Create a record of specialties and days of patient care for File #42.7
|
|
DIVT | ;Calculate division totals
|
|
GRAND | ;Calculate grand total of all divisions
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
A | DISP+2~, DISP+7*, DISP+8, RET+2~, RET+7*, RET+8, TRUNC+3~, TRUNC+8*, TRUNC+10, TRUNC+12 , TOTAL+13~, TOTAL+14*, TOTAL+15, TOTAL+16 |
ACST | TOTAL+2~, TOTAL+11*, TOTAL+12*, TOTAL+14, TOTAL+15, TOTAL+16, TOTAL+18*, TOTAL+20 |
B | TRUNC+3~, TRUNC+10*, TRUNC+16, TOTAL+13~, TOTAL+15*, TOTAL+18 |
C | TRUNC+3~, TRUNC+12*, TRUNC+14*, TRUNC+16, TOTAL+13~, TOTAL+16*, TOTAL+17*, TOTAL+18 |
CST | TCOST+2~, TCOST+4*, TCOST+6 |
>> D | SPEC1+14*, SPEC2+13* |
DAY | REC2+3~, REC2+7*, REC2+13 |
DAYA | REC1+3~, REC1+7*, REC1+22 |
DAYB | REC1+3~, REC1+9*, REC1+22 |
>> DIC | SPEC1+14*, SPEC2+13* |
>> DIC(0 | SPEC1+14*, SPEC2+13* |
DP | TCOST+2~ |
DSP | DISP+2~, DISP+3*, DISP+4 |
DTOT | TOTAL+2~, TOTAL+6*, TOTAL+20 |
>> I | TRUNC+2*, TRUNC+5, TRUNC+6, TRUNC+8, TRUNC+10, TRUNC+12, TRUNC+16 |
NET | AVG+2~, AVG+4*, AVG+6*, AVG+10 |
NETOT | TOTAL+2~, TOTAL+8*, TOTAL+11, TOTAL+20 |
NT | TCOST+2~ |
>> PSUD | TOTAL+4*, TOTAL+5*, TOTAL+6, TOTAL+7, TOTAL+8, TOTAL+9 |
>> PSUD1 | SPEC1+7*, SPEC1+8*, SPEC1+10, REC1+5, REC1+7, REC1+9, SPEC2+6*, SPEC2+7*, SPEC2+9, REC2+5 , REC2+7 |
>> PSUD2 | SPEC1+9*, SPEC1+10*, SPEC1+12, REC1+7, REC1+9, SPEC2+8*, SPEC2+9*, SPEC2+11, REC2+7 |
PSUDNAM | SPEC2+3~, SPEC2+14*, SPEC2+15 |
PSUDNM | SPEC1+3~, SPEC1+15*, SPEC1+16 |
>> PSUDV | EN+6*, EN+7*, DISP+3, DISP+4, DISP+6, DISP+7, DISP+8, RET+3, RET+4, RET+6 , RET+7, RET+8, NET+2, TCOST+4, TCOST+6, AVG+4, AVG+8, AVG+10, TRUNC+5, TRUNC+6 , TRUNC+8, TRUNC+10, TRUNC+12, TRUNC+16, TRUNC+18, SPEC1+14, REC1+22, SPEC2+13, REC2+13, DIVT+4 , DIVT+5, DIVT+6, GRAND+3 |
>> PSUMON | SPEC+3, SPEC+4 |
PSUMT | SPEC+2~, SPEC+4*, SPEC+5, SPEC+7, SPEC1+5, SPEC1+8, SPEC1+10, REC1+5, REC1+7, REC1+9 |
PSUMTH | SPEC+2~, SPEC+7*, SPEC+8, SPEC2+4, SPEC2+7, SPEC2+9, REC2+5, REC2+7 |
>> PSUNM | SPEC1+13*, SPEC1+16, SPEC2+12*, SPEC2+15 |
>> PSUSP | DIVT+3*, DIVT+4*, DIVT+5 |
>> PSUUDSUB | EN+7, DISP+3, RET+3, TCOST+4, TRUNC+18, TOTAL+20, REC1+22, REC2+13, DIVT+4, DIVT+5 , DIVT+6, GRAND+3 |
RET | RET+2~, RET+3*, RET+4 |
RT | TCOST+2~ |
RTOT | TOTAL+2~, TOTAL+7*, TOTAL+20 |
SPC | REC1+3~, REC1+5*, REC1+13, REC1+14, REC1+15, REC1+16, REC1+17, REC1+18, REC1+19, REC1+20 , REC1+22, REC2+3~, REC2+5*, REC2+10, REC2+13 |
SPCE | REC1+3~, REC1+13*, REC1+14*, REC1+15*, REC1+16*, REC1+17*, REC1+18*, REC1+19*, REC1+20*, REC1+22 , REC2+3~, REC2+10*, REC2+12, REC2+13 |
SPEC | EN+4! |
SPEC(334 | SPEC1+5*, SPEC1+8, SPEC1+10, REC1+5, REC1+7, REC1+9 |
SPEC(345 | SPEC2+4*, SPEC2+7, SPEC2+9, REC2+5, REC2+7 |
TCST | AVG+2~, AVG+8*, AVG+10, TOTAL+2~, TOTAL+9*, TOTAL+11, TOTAL+20 |
TOT | DIVT+2~, DIVT+5*, DIVT+6 |
U | DISP+4, DISP+6, DISP+7, DISP+8, RET+4, RET+6, RET+7, RET+8, NET+2, TCOST+6 , AVG+4, AVG+8, AVG+10, TRUNC+5, TRUNC+6, TRUNC+8, TRUNC+10, TRUNC+12, TRUNC+16, TOTAL+6 , TOTAL+7, TOTAL+8, TOTAL+9, TOTAL+20, REC1+5, REC1+7, REC1+9, REC1+22, REC2+5, REC2+7 , REC2+13, DIVT+5 |
UDAM | EN+3! |
UDAM( | DISP+4*, DISP+6, DISP+7, DISP+8*, RET+4*, RET+6, RET+7, RET+8*, NET+2*, TCOST+6* , AVG+4, AVG+8, AVG+10*, TRUNC+5, TRUNC+6*, TRUNC+8, TRUNC+10, TRUNC+12, TRUNC+16*, TRUNC+18 , TOTAL+5, TOTAL+6, TOTAL+7, TOTAL+8, TOTAL+9 |
>> X | SPEC1+12*, SPEC1+13, SPEC1+14*, SPEC1+15*, SPEC2+11*, SPEC2+12, SPEC2+13*, SPEC2+14* |
>> Y | SPEC1+15, SPEC2+14 |