Routine: PSUPR2

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

PSUPR2 ;BIR/PDW - Procurement extract from file 58.811 ; 4/1/08 4:09pm

Source Information

Source file <PSUPR2.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 2

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

External References

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

Global Variables Directly Accessed

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

Call Graph Total: 4

Caller Graph Total: 2