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: PSUSUM6

Package: Pharmacy Benefits Management

Routine: PSUSUM6


Information

PSUSUM6 ;BIR/DAM - Patient Demographics Summary for IV/UD/RX ; 20 DEC 2001

Source Information

Source file <PSUSUM6.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Pharmacy Benefits Management 3 PULL^PSUCP  PDSUM^PSUDEM5  TAB1^PSUSUM3  
VA Fileman 2 DD^%DT  YX^%DTC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Pharmacy Benefits Management 2 PSUOP0  PSUSUM7  

Entry Points

Name Comments DBIA/ICR reference
IPDIV ;EN Find inpatients by division (includes UD patients and IV
NODATA ;Summary report line to be sent if there is no data
EN ;EN CALLED FROM PSUOP0
DIVTOT ;EN Calculate tab spacing for 'Outpatient total of all divisions'
TAB ;Calculate tab spacing
TAB4 ;Calculate inpatient totals of all divisions and place in summary
TAB3 ;Place inpatient division totals into summary message
TAB2 ;Tab spacing for line 7. Set line into global
TOP ;EN Find Total Outpatients
IPDIV1 ;Calculate inpatient totals
TUDIV ;Calculate tab spacing for 'Total INPATIENT' line and
EN1 ;Gather summary data for UD/IV/RX report
OPDIV ;EN Find outpatients per division
COMSUM ;Summary report header to be run for combination Rx/IV/UD report
DATE ;EN Convert date range of extract to external format
UNIQUE ;Find total unique pharmacy patients across all divisions
TAB1 ;EN Calculate division tab spacing

External References

Name Field # of Occurrence
DD^%DT DATE+7, DATE+11
YX^%DTC DATE+3
PULL^PSUCP EN1+1
PDSUM^PSUDEM5 EN1+13, NODATA+5
TAB1^PSUSUM3 TAB4+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTMP("PSU_" EN+2!, EN+3, EN+4!, EN+7, EN+8, EN+9, EN+12!, EN1+14!, EN1+15!, EN1+16!
, EN1+17!, EN1+18!, EN1+19!, EN1+20!, EN1+21!, EN1+22!, EN1+23!, EN1+24!, EN1+25!, COMSUM+3*
, COMSUM+4*, COMSUM+5*, COMSUM+6*, COMSUM+7*, COMSUM+8*, UNIQUE+4*, UNIQUE+5*, UNIQUE+6*, UNIQUE+11, UNIQUE+12*
, UNIQUE+14*, TAB2+6, TAB2+9, TAB2+10*, TAB2+11*, TOP+4, TOP+8*, TOP+9*, OPDIV+7, OPDIV+8
, OPDIV+10, OPDIV+12*, OPDIV+14, OPDIV+17*, OPDIV+19*, DIVTOT+5, DIVTOT+6*, DIVTOT+9, DIVTOT+12*, DIVTOT+13*
, TUDIV+7*, TUDIV+8*, TUDIV+13, TUDIV+15, TUDIV+16*, TUDIV+20, TUDIV+21*, TUDIV+26, TUDIV+31*, TUDIV+32*
, IPDIV+4, IPDIV+5*, IPDIV+8, IPDIV+9*, IPDIV+14, IPDIV+16, IPDIV+19, IPDIV+20*, IPDIV+22, IPDIV+23*
, IPDIV+25*, IPDIV1+4, IPDIV1+5, IPDIV1+6, IPDIV1+8*, IPDIV1+9, IPDIV1+11*, TAB3+6, TAB3+7, TAB3+10*
, TAB4+4, TAB4+5, TAB4+6*, NODATA+2*, NODATA+3*, NODATA+4*

Label References

Name Line Occurrences
COMSUM DATE+14
DATE EN1+2
DIVTOT EN1+7
EN1 EN+13
IPDIV EN1+9
IPDIV1 EN1+10
NODATA EN+11
OPDIV EN1+6
TAB TOP+7
TAB1 OPDIV+11, OPDIV+16, TAB3+9
TAB2 UNIQUE+13
TAB3 EN1+11
TAB4 EN1+12
TOP EN1+5
TUDIV EN1+8
UNIQUE EN1+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %H DATE+2*
>> C IPDIV1+7*, IPDIV1+8, IPDIV1+10*, IPDIV1+11
>> G TUDIV+11*, TUDIV+21*
>> I EN1+3*, UNIQUE+14*, TAB2+11, TAB2+12*, TOP+8*, TOP+9*, OPDIV+12, OPDIV+13*, OPDIV+17, OPDIV+18*
, OPDIV+19*, DIVTOT+12*, DIVTOT+13*, TUDIV+31*, TUDIV+32*, TAB3+10, TAB3+11*
>> N UNIQUE+9*, UNIQUE+12*, TAB4+3*, TAB4+5*, TAB4+6
PSUD DATE+4~*, COMSUM+3
>> PSUD2 TUDIV+12*, TUDIV+13*, TUDIV+15
>> PSUD8 TUDIV+14*, TUDIV+15*, TUDIV+16
>> PSUD9 TUDIV+19*, TUDIV+20*
>> PSUDV1 IPDIV+13*, IPDIV+14*, IPDIV+17, IPDIV+19, IPDIV+20, IPDIV+24
>> PSUDVUD IPDIV+15*, IPDIV+16*, IPDIV+17, IPDIV+22, IPDIV+23, IPDIV+24
PSUE DATE+12~*, COMSUM+5
>> PSUEDT DATE+10
PSUIV EN+6~, EN+8*, EN+10
>> PSUIVN UNIQUE+2*
>> PSUJOB EN+2, EN+3, EN+4, EN+7, EN+8, EN+9, EN+12, EN1+14, EN1+15, EN1+16
, EN1+17, EN1+18, EN1+19, EN1+20, EN1+21, EN1+22, EN1+23, EN1+24, EN1+25, COMSUM+3
, COMSUM+4, COMSUM+5, COMSUM+6, COMSUM+7, COMSUM+8, UNIQUE+4, UNIQUE+5, UNIQUE+6, UNIQUE+11, UNIQUE+12
, UNIQUE+14, TAB2+6, TAB2+9, TAB2+10, TAB2+11, TOP+4, TOP+8, TOP+9, OPDIV+7, OPDIV+8
, OPDIV+10, OPDIV+12, OPDIV+14, OPDIV+17, OPDIV+19, DIVTOT+5, DIVTOT+6, DIVTOT+9, DIVTOT+12, DIVTOT+13
, TUDIV+7, TUDIV+8, TUDIV+13, TUDIV+15, TUDIV+16, TUDIV+20, TUDIV+21, TUDIV+26, TUDIV+31, TUDIV+32
, IPDIV+4, IPDIV+5, IPDIV+8, IPDIV+9, IPDIV+14, IPDIV+16, IPDIV+19, IPDIV+20, IPDIV+22, IPDIV+23
, IPDIV+25, IPDIV1+4, IPDIV1+5, IPDIV1+6, IPDIV1+8, IPDIV1+9, IPDIV1+11, TAB3+6, TAB3+7, TAB3+10
, TAB4+4, TAB4+5, TAB4+6, NODATA+2, NODATA+3, NODATA+4
PSULBL TOP+3~, TOP+6*, TOP+8, TAB+3, OPDIV+6*, OPDIV+8*, OPDIV+9, OPDIV+10, OPDIV+12, OPDIV+17
, TAB1+3, TAB3+5*, TAB3+6*, TAB3+7, TAB3+10
>> PSUMKER TAB4+3*, TAB4+4*, TAB4+5
>> PSUPT IPDIV+18*, IPDIV+19*, IPDIV+20
>> PSUPT1 IPDIV+21*, IPDIV+22*, IPDIV+23
PSURX EN+6~, EN+7*, EN+10
>> PSURXN UNIQUE+2*
PSUS DATE+8~*, COMSUM+5
>> PSUSDT DATE+6
>> PSUSIT IPDIV1+2*, IPDIV1+4*, IPDIV1+5, IPDIV1+6, IPDIV1+8, IPDIV1+9, IPDIV1+11
>> PSUSIT1 IPDIV1+2*, IPDIV1+5*
>> PSUTB( TAB2+7*, TAB2+8, TAB+4*, TAB+5, TAB1+4*, TAB1+5, DIVTOT+11, TUDIV+27*, TUDIV+28
PSUTB1 TOP+1~, TOP+8, TAB+2*, TAB+5*, OPDIV+3~, OPDIV+12, OPDIV+17, TAB1+2*, TAB1+5*, TAB3+2~
, TAB3+10
PSUTB2 TOP+1~, TAB+3*, TAB+4, OPDIV+3~, TAB1+3*, TAB1+4, TAB3+2~
PSUTB3 TAB2+2~, TAB2+4*, TAB2+8*, TAB2+11, DIVTOT+3~, DIVTOT+7*, DIVTOT+11*, DIVTOT+12, TUDIV+3~, TUDIV+24*
, TUDIV+28*, TUDIV+31
PSUTB3( DIVTOT+10*
PSUTB4 TAB2+2~, TAB2+5*, TAB2+6, TAB2+11, DIVTOT+3~, DIVTOT+8*, DIVTOT+9, DIVTOT+12, TUDIV+3~, TUDIV+25*
, TUDIV+26, TUDIV+31
PSUTB5 TAB2+2~, TAB2+6*, TAB2+7, DIVTOT+3~, DIVTOT+9*, DIVTOT+10, TUDIV+3~, TUDIV+26*, TUDIV+27
PSUTOP TOP+3~, TOP+4*, TOP+5*, TOP+8, TAB+3
>> PSUTOPF TOP+5*, OPDIV+2
PSUTTL UNIQUE+10*, UNIQUE+11*, OPDIV+5~, OPDIV+10*, OPDIV+12, OPDIV+15*, OPDIV+17, TAB1+3, TAB3+4~, TAB3+7*
, TAB3+8*, TAB3+10
PSUUD EN+6~, EN+9*, EN+10
>> PSUUDN1 UNIQUE+2*
>> S2 TAB+4*, TAB+5, TAB1+4*, TAB1+5
>> S3 TAB2+7*, TAB2+8, DIVTOT+10*, DIVTOT+11, TUDIV+27*, TUDIV+28
>> T IPDIV1+2*
U TAB2+6, TAB2+11, OPDIV+10, DIVTOT+9, DIVTOT+12, TUDIV+26, TUDIV+31, TAB3+7, TAB4+5
>> Y DATE+4, DATE+6*, DATE+8, DATE+10*, DATE+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All