Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSUUD6

Package: Pharmacy Benefits Management

Routine: PSUUD6


Information

PSUUD6 ;BIR/DAM - UD AMIS Summary Message I;23 MAR 2004

Source Information

Source file <PSUUD6.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Pharmacy Benefits Management 1 $$VAL^PSUTL  
VA Fileman 1 IX^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Benefits Management 1 PSUUD3  

Entry Points

Name Comments DBIA/ICR reference
DISP ;Add doses dispensed of all drugs for each division
TOTAL ;Add dose totals of all divisions
EN ;Entry point to construct globals for AMIS summary message
REC1 ;Create a record of specialties and days of patient care for File #42.6
DIVT ;Calculate division totals
RET ;Add doses returned of all drugs for each division
SPEC1 ;Find division names from File (#42.6) records within
GRAND ;Calculate grand total of all divisions
REC2 ;Create a record of specialties and days of patient care for File #42.7
NET ;Calculate Net doses dispensed of all drugs
AVG ;Calculate average cost per dose
SPEC2 ;Find division names from File (#42.7) records within
SPEC ;Find out if a monthly extract is being run
TCOST ;Find total cost per drug
TRUNC ;Truncate pieces with dollar values to 2 decimal places

External References

Name Field # of Occurrence
IX^DIC SPEC1+14, SPEC2+13
$$VAL^PSUTL SPEC1+13, SPEC1+15, SPEC2+12, SPEC2+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGAM(334 - [#42.6] SPEC+5, SPEC1+5
^DGAM(345 - [#42.7] SPEC+8, SPEC2+4
^XTMP( EN+7, DISP+3, RET+3, TCOST+4, TRUNC+18*, TOTAL+20*, REC1+22*, REC2+13*, DIVT+4, DIVT+5
, DIVT+6*, GRAND+3*

Label References

Name Line Occurrences
AVG EN+12
DISP EN+8
DIVT EN+15
GRAND EN+16
NET EN+11
REC1 SPEC1+16
REC2 SPEC2+15
RET EN+9
SPEC EN+14
SPEC1 SPEC+5
SPEC2 SPEC+8
TCOST EN+10
TOTAL EN+18
TRUNC EN+13

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All