Routine: PSUPR2

Package	Total	Call Graph
Pharmacy Benefits Management	2	$$DIV^PSUAR1 ($$VAL,$$VALI,GETM,GETS,MOVEI,MOVEMI)^PSUTL
Kernel	1	$$VERSION^XPDUTL
VA Fileman	1	C^%DTC

Package	Total	Caller Graph
Pharmacy Benefits Management	2	PSUPR0 PSUPR3

Entry Points

Name	Comments	DBIA/ICR reference
IV()	;EP Process,PSUIVDA for IV ; PSULOC IEN pharmacy location in file 58.8 (DRUG ACCOUNTABILITY)
MAP	;Find out whether a Narcotics Area of Use (NAOU) or a DA Pharmacy
EN	;
RECORD()	;EP Assemble record
INP()	;EP Process for Inpatient ; within package call to AR/WS that pulls/builds Inpatient AOU Site ; uses IEN Value to AOU STATs file 58.5
WRD()	;EP Process for ward;
ITEM	;EP process one item within the invoice
MAP1	;MAP continued. This subroutine takes the IEN from file 58.8 and looks
INVOICE	;EP process an invoice within an order
OUT()	;EP Process for Outpatient
DIV	;Find division or outpatient site

Name	Field # of Occurrence
C^%DTC	EN+7, EN+18
$$DIV^PSUAR1	INP+7
$$VAL^PSUTL	ITEM+26
$$VALI^PSUTL	INVOICE+2, ITEM+60, DIV+8, DIV+9, WRD+8, WRD+10, INP+4, IV+8, IV+9, OUT+1 , OUT+2
GETM^PSUTL	INVOICE+20, ITEM+8, DIV+4, MAP1+17, MAP1+27, WRD+3, IV+4
GETS^PSUTL	INVOICE+5, INVOICE+9, ITEM+40, MAP+12
MOVEI^PSUTL	INVOICE+10, ITEM+41
MOVEMI^PSUTL	INVOICE+22, ITEM+9, DIV+5, WRD+4, IV+5
$$VERSION^XPDUTL	EN+14

Name	Line Occurrences (* Changed, ! Killed)
^PS(59.7 - [#59.7]	MAP1+16, MAP1+26
^PSD(58.8 - [#58.8]	MAP+9, MAP+11
^PSD(58.811 - [#58.811]	EN+21, EN+22, EN+23
^PSDRUG("C"	ITEM+59
^TMP($J	INVOICE+19!, INVOICE+21, INVOICE+24, ITEM+2
^XTMP(	EN+5, EN+6, EN+8, ITEM+73, ITEM+75, MAP1+22, MAP1+33*

Name	Line Occurrences
$$RECORD	ITEM+71
DIV	INVOICE+14
INVOICE	EN+23
ITEM	INVOICE+24
MAP	EN+11
MAP1	MAP+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DAPH	MAP+5!, MAP1+33
DAPH(	MAP+13*, MAP1+31!, MAP1+32!
DT	EN+7, EN+8
>> I	RECORD+21, RECORD+22
>> IEN	MAP+10, MAP+11, MAP+12, MAP+13, MAP1+16, MAP1+26
MAPLOC	MAP+6!
MAPLOC(	MAP1+29, MAP1+31, MAP1+32
MAPLOCI	DIV+3~, MAP+6!
MAPLOCI(	DIV+7, DIV+8, DIV+9, DIV+10, MAP1+19, MAP1+20, MAP1+21
NAOU	MAP+5!, MAP1+22
NAOU(	MAP+13!, MAP1+20!, MAP1+21!
PSUADJ	ITEM+14~, ITEM+15*, ITEM+25, ITEM+62
PSUADJ(	ITEM+17, ITEM+18, ITEM+19, ITEM+20
PSUADJ(5	ITEM+17, ITEM+18, ITEM+19, ITEM+20
>> PSUADJDA	ITEM+13*, ITEM+15
PSUARJOB	EN+10, INP+3~, INP+6
PSUARSUB	EN+10, MAP1+22, MAP1+33, INP+3~, INP+6
PSUDA	MAP1+12~, MAP1+18, MAP1+19, MAP1+20, MAP1+21, MAP1+28, MAP1+29, MAP1+31, MAP1+32
PSUDIV	INVOICE+15, INVOICE+16, ITEM+73, ITEM+75, RECORD+2, DIV+2, DIV+8, DIV+9, DIV+11, WRD+1~ , WRD+2, WRD+7, WRD+11, WRD+13, IV+2~, IV+3, IV+7, IV+10*, IV+12
>> PSUDIVI	INVOICE+15, INVOICE+16, RECORD+3, DIV+12*
>> PSUDRDA	ITEM+35, ITEM+38, ITEM+40, ITEM+47, ITEM+58, ITEM+59
PSUDRUG	ITEM+34~
PSUDRUG(	ITEM+42, ITEM+48*, RECORD+11
PSUDRUG(2	RECORD+6
PSUDRUG(21	ITEM+43, ITEM+49, RECORD+5
PSUDRUG(31	ITEM+44, ITEM+50, ITEM+53
>> PSUDT	EN+19, EN+21, EN+22, EN+23, INP+7
>> PSUEDT	EN+1, EN+2*, EN+21, ITEM+5
>> PSUEND	EN+1*
>> PSUINV	INVOICE+7*
>> PSUINV(	INVOICE+12, RECORD+18
>> PSUINV(4	INVOICE+14, DIV+7, DIV+8, DIV+9, DIV+10
>> PSUINV(8	INVOICE+11
>> PSUINVDA	EN+23*
PSUIT	ITEM+1~, ITEM+2*
PSUIT(1	ITEM+17, ITEM+37, ITEM+38, ITEM+42, RECORD+7
PSUIT(13	ITEM+53*, ITEM+58, ITEM+59, RECORD+8
PSUIT(14	RECORD+9
PSUIT(15	RECORD+10
PSUIT(2	ITEM+20*, ITEM+23, RECORD+14
PSUIT(3	ITEM+18, ITEM+25, ITEM+26*, RECORD+12
PSUIT(4	ITEM+19*, RECORD+15
PSUIT(7	ITEM+4, ITEM+5, RECORD+4
PSUIT(9999	ITEM+57, ITEM+60, ITEM+62*, RECORD+13
>> PSUITDA	INVOICE+24*, ITEM+2
PSUIV	IV+2~
PSUIV(	IV+7
>> PSUIVDA	IV+6, IV+7, IV+8
PSUIVNUM	INVOICE+8~, INVOICE+12*
>> PSULC	ITEM+73, ITEM+74, ITEM+75
PSULOC	WRD+3, INP+4, INP+5~, IV+4, OUT+1
>> PSULOCA	INP+4*, INP+7
PSUMADJ	ITEM+7~, ITEM+9, ITEM+13
PSUMADJ(	ITEM+13, ITEM+15
>> PSUNAM	MAP+7, MAP+9, MAP+11
PSUORD	INVOICE+4~
PSUORD(1	RECORD+17
>> PSUORDA	EN+22*, EN+23, INVOICE+5
>> PSUPRJOB	EN+3*, EN+10, INP+6
>> PSUPRSUB	EN+4*, EN+5, EN+6, EN+8, ITEM+73, ITEM+75, INP+6
PSUR	ITEM+71, ITEM+75, RECORD+1~, RECORD+20, RECORD+22, RECORD+23, RECORD+24
PSUR(	RECORD+21*, RECORD+22
PSUR(10	RECORD+9*
PSUR(11	RECORD+10*
PSUR(12	RECORD+11*
PSUR(13	RECORD+12*
PSUR(16	RECORD+13*
PSUR(17	RECORD+14*, RECORD+16
PSUR(18	RECORD+15*, RECORD+16
PSUR(19	RECORD+16*
PSUR(2	RECORD+2*
PSUR(20	RECORD+17*
PSUR(21	RECORD+18*
PSUR(22	RECORD+19*
PSUR(3	RECORD+3*
PSUR(4	RECORD+4*
PSUR(5	RECORD+5*
PSUR(6	RECORD+6*
PSUR(7	RECORD+7*
PSUR(9	RECORD+8*
PSURDT	INVOICE+8~, INVOICE+11*
>> PSUSDT	EN+17, ITEM+4
>> PSUSNDR	INVOICE+16, DIV+11
PSUSTAT	INVOICE+1~, INVOICE+2*, INVOICE+3
PSUWD	WRD+1~
PSUWD(	WRD+7
PSUWDDA	WRD+1~, WRD+6, WRD+7, WRD+8
U	RECORD+22, RECORD+23
>> X	EN+8, EN+14, EN+15, EN+19, ITEM+59, ITEM+60, DIV+8, DIV+9, WRD+8, WRD+9 , WRD+10, WRD+11, INP+7, INP+8, INP+9, IV+8, IV+9, IV+10, OUT+1, OUT+2 , OUT+3
>> X1	EN+7, EN+17
>> X2	EN+7, EN+17

Customize PDF page

Package: Pharmacy Benefits Management

Routine: PSUPR2

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: