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

Package: Pharmacy Benefits Management

Routine: PSUPR2


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*

Label References

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