Routine: PSUPR5

Package	Total	Call Graph
MailMan	1	^XMD
Pharmacy Benefits Management	1	$$VAL^PSUTL
Registration	1	$$SETSTR^VALM1
VA Fileman	1	IX^DIC

Package	Total	Caller Graph
Pharmacy Benefits Management	1	PSUPR0

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP generate Total & Cost summary
MSG1	; Generate 1st summary message
MSG2	; SUMMARY BY DRUG ; loop records stored ; psunm - name, psudisp - disp unit, psutq - total quantity, psutc - total cost
EN1
DIV	;EP Loop by Division
NODATA	;EP SEND NO DATA MESSAGE
MESSAGE	;EP Generate Summary Messages for a Division

External References

Name	Field # of Occurrence
IX^DIC	MESSAGE+2, MSG1+23, NODATA+5
$$VAL^PSUTL	MESSAGE+3, MSG1+24, NODATA+6
$$SETSTR^VALM1	MSG2+21, MSG2+23, MSG2+36, MSG2+37, MSG2+38, MSG2+44
^XMD	MSG1+30, MSG2+52, NODATA+21

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	MSG1+14, MSG1+15, NODATA+7, NODATA+8
^TMP($J	MSG1+6!, MSG1+7*, MSG1+9, MSG1+10!
^XTMP(	EN1+6, DIV+1, MSG1+7, MSG1+29, MSG2+4!, MSG2+5, MSG2+10, MSG2+11, MSG2+12, MSG2+13* , MSG2+32, NODATA+18, NODATA+23

Label References

Name	Line Occurrences
MESSAGE	DIV+1
NODATA	EN1+6

Naked Globals

Name	Field # of Occurrence
^(	MSG1+7, MSG2+5
^("DISP"	MSG2+32
^("TC"	MSG2+32

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D	MESSAGE+2, MSG1+23, NODATA+5*
>> DIC	MESSAGE+2, MSG1+23, NODATA+5*
>> DIC(0	MESSAGE+2, MSG1+23, NODATA+5*
DUZ	MSG1+11, NODATA+1
PSUDISP	MSG2+6, MSG2+13, MSG2+28~, MSG2+29, MSG2+32*, MSG2+36
>> PSUDIV	DIV+1, MESSAGE+2, MSG1+7, MSG1+23, MSG1+25, MSG1+26, MSG1+29, MSG2+5, MSG2+48, NODATA+4 , NODATA+5, NODATA+9, NODATA+18, NODATA+23
>> PSUDIVNM	MESSAGE+3, MSG1+18, MSG1+24, MSG1+25, MSG2+19, MSG2+48, NODATA+6*, NODATA+9, NODATA+14
>> PSUDRNM	MSG2+3*
>> PSUDTE	MSG1+15, MSG1+18, MSG2+19, NODATA+8, NODATA+14
>> PSUDTS	MSG1+14, MSG1+18, MSG2+19, NODATA+7, NODATA+14
>> PSUDUZ	NODATA+20
>> PSUEDT	MSG1+15, NODATA+8
>> PSUG	MSG2+16*, MSG2+17, MSG2+18, MSG2+19, MSG2+20, MSG2+22, MSG2+24, MSG2+26, MSG2+39, MSG2+43 , MSG2+46, MSG2+47
>> PSUIT	MSG1+7*
PSUITT	EN1~, MSG1+2, MSG1+9, MSG1+20
>> PSUJOB	EN1+3
>> PSULC	MSG2+27, MSG2+33, MSG2+39, MSG2+42, MSG2+43, MSG2+45, MSG2+46, MSG2+47
>> PSUMON	MSG1+25, MSG2+48, NODATA+9
PSUMSG	MSG1+16~, MSG1+29, MSG1+31!
PSUMSG(1	MSG1+17*
PSUMSG(2	MSG1+18*
PSUMSG(3	MSG1+19*
PSUMSG(4	MSG1+20*
PSUMSG(5	MSG1+21*
PSUMSG(6	MSG1+22*
PSUNM	MSG2+6, MSG2+7, MSG2+8, MSG2+9, MSG2+10, MSG2+11, MSG2+12, MSG2+13, MSG2+28~, MSG2+31 , MSG2+32*, MSG2+35
>> PSUPRJOB	EN1+3*, EN1+4
>> PSUPRSUB	EN1+4*, EN1+6, DIV+1, MSG1+7, MSG1+29, MSG2+4, MSG2+5, MSG2+10, MSG2+11, MSG2+12 , MSG2+13, MSG2+32, NODATA+18, NODATA+23
PSUREC	EN1~, MSG1+5, MSG1+7, MSG2+3, MSG2+5
>> PSUSDT	MSG1+14, NODATA+7
>> PSUSMRY	MSG2+52
>> PSUSNDR	NODATA+4
PSUTC	EN1~, MSG1+2, MSG1+7, MSG1+21, MSG2+6, MSG2+12, MSG2+28~, MSG2+29, MSG2+32*, MSG2+34 , MSG2+38
PSUTCT	MSG2+28~, MSG2+29, MSG2+34, MSG2+44
PSUTQ	MSG2+6, MSG2+11, MSG2+28~, MSG2+29, MSG2+32*, MSG2+34, MSG2+37
PSUTQT	MSG2+28~, MSG2+29, MSG2+34, MSG2+44
>> PSUXMYS1	MSG1+12, NODATA+2
>> PSUXMYS2	MSG2+51
U	MSG1+7, MSG2+6, MSG2+7
X	MESSAGE+2, MESSAGE+3, MSG1+7, MSG1+9, MSG1+23, MSG1+24, MSG2+5, MSG2+6, MSG2+7, MSG2+21 , MSG2+22, MSG2+23, MSG2+24, MSG2+25, MSG2+26, MSG2+35, MSG2+36, MSG2+37, MSG2+38, MSG2+39 , MSG2+41, MSG2+43, MSG2+44, MSG2+46, NODATA+5, NODATA+6, NODATA+12!, NODATA+18, NODATA+23
X(1	NODATA+13, NODATA+22
X(2	NODATA+14*
X(3	NODATA+15*
X(4	NODATA+16*
X(5	NODATA+17*
>> XMCHAN	MSG1+28, MSG2+50, NODATA+11*
>> XMDUZ	MSG1+11, NODATA+1
>> XMSUB	MSG1+25, MSG2+48, NODATA+9*
>> XMTEXT	MSG1+27, MSG2+49, NODATA+10, NODATA+19
>> XMY	MSG1+12, MSG2+51, NODATA+2*
>> XMY(	NODATA+20*
>> Y	MESSAGE+3, MSG1+14, MSG1+15, MSG1+24, NODATA+6, NODATA+7, NODATA+8

Customize PDF page

Package: Pharmacy Benefits Management

Routine: PSUPR5

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: