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

Package: Pharmacy Benefits Management

Routine: PSUSUM2


Information

PSUSUM2 ;BIR/DAM - Patient Demographics Summary for OP Extract ; 20 DEC 2001

Source Information

Source file <PSUSUM2.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Pharmacy Benefits Management 3 PULL^PSUCP  PDSUM^PSUDEM5  $$VAL^PSUTL  
VA Fileman 3 DD^%DT  YX^%DTC  ^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Benefits Management 1 PSUOP0  

Entry Points

Name Comments DBIA/ICR reference
TOTAL ;Calculate Outpatient Total of all Divisions
NODATA ;Summary report line to be sent if there is no data
EN ;EN CALLED FROM PSUOP0
DIVNUM ;Set number of patients per division into summary message
TAB2 ;Tab spacing for line 7. Set line into global
TAB1 ;Calculate tab spacing for 'Outpatient Total of all Divisions' line.
RXSUM ;Summary report to be run if Rx (Outpatient) extract is run
TAB ;Calculate tab spacing
ELIM ;Eliminate duplicate patient entries to get number of unique pts
DATE ;Convert date range of extract to external format
UNIQUE ;Find UNIQUE patients across all divisions

External References

Name Field # of Occurrence
DD^%DT DATE+7, DATE+11
YX^%DTC DATE+3
^DIC DIVNUM+30
PULL^PSUCP EN+3
PDSUM^PSUDEM5 EN+24, NODATA+5
$$VAL^PSUTL DIVNUM+31

Global Variables Directly Accessed

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*

Label References

Name Line Occurrences
DATE EN+11
DIVNUM EN+12
ELIM UNIQUE+16
NODATA EN+8
RXSUM DATE+14
TAB DIVNUM+41
TAB1 EN+16
TAB2 RXSUM+10
TOTAL EN+13
UNIQUE RXSUM+2

Local Variables

Legend:

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