Routine: PSUMAP0

Information

PSUMAP0 ;BHM/PDW-MAP OAU,NAOU,DA LOCATION TO DIVISION/OUTPATIENT SITES ; 4/12/07 2:12pm

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA FileMan	4	^DIC ^DIE $$GET1^DIQ ^DIR
Kernel	2	^%ZIS ^%ZTLOAD
Pharmacy Benefits Management	1	(EN,EN1)^PSUMAPR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Pharmacy Benefits Management	1	PSU MAP PHARMACY LOCATIONS

Entry Points

Name	Comments	DBIA/ICR reference
EN	; select Editing or Report of Mapping
MODP	; module selection prompt
MODULE	;
MODHLP
E9001	;EDIT 90.01 AR/WS AOU MAPPING
CHK1	;check that AOUs are mapped
E9002	;EDIT 90.02 CS NAOU MAPPING
CHK2	;check that NAOUs are mapped
E9003	;EDIT 90.03 DRUG ACCOUNTABILITY LOCATION MAPPING
CHK3	;check that DRUG ACCOUNTABILITY LOCATIONs are mapped
REPORT	;Print Mapping Report
QUEUE
EXIT	;

External References

Name	Field # of Occurrence
^%ZIS	REPORT+2
^%ZTLOAD	QUEUE+1
^DIC	E9001+9, E9002+9, E9003+9
^DIE	E9001+15, E9002+15, E9003+15
$$GET1^DIQ	CHK1+6, CHK2+6, CHK3+6
^DIR	MODHLP+20, MODHLP+25, CHK1+7, CHK3+7
EN^PSUMAPR	REPORT+5
EN1^PSUMAPR	MODP+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,?10,"MAPPING PHARMACY LOCATIONS FOR PBM EXTRACTS",!! Line Location: EN+1
Function Call: WRITE	Prompt: !!,?5,"This option allows the mapping of dispensing/procurement locations" Line Location: MODP+1
Function Call: WRITE	Prompt: !,?5,"from the AR/WS, Controlled Substances, and Drug Accountability" Line Location: MODP+2
Function Call: WRITE	Prompt: !,?5,"applications to either a Medical Center Division or an Outpatient Site." Line Location: MODP+3
Function Call: WRITE	Prompt: !,?5,"Any dispensing/procurement data associated with an AR/WS AOU, CS NAOU" Line Location: MODP+4
Function Call: WRITE	Prompt: !,?5,"or DA Pharmacy Location that has not been mapped will be attributed to" Line Location: MODP+5
Function Call: WRITE	Prompt: !,?5,"to the facility at which the database resides. Any unmapped locations" Line Location: MODP+6
Function Call: WRITE	Prompt: !,?5,"will be displayed upon entering the option.",! Line Location: MODP+7
Function Call: WRITE	Prompt: @IOF Line Location: MODP+10
Function Call: WRITE	Prompt: !!,"Select the dispensing/procurement location to map:",! Line Location: MODULE+1
Function Call: WRITE	Prompt: !,?10,PSUA(I) Line Location: MODULE+6
Function Call: WRITE	Prompt: !!,?2,"You may select all by entering 'A' for ALL or by using '1:4'.",! Line Location: MODULE+7
Function Call: WRITE	Prompt: !,?2,"Select the dispensing/procurement location: " Line Location: MODULE+8
Function Call: READ	Variable: X Timeout: DTIME Line Location: MODULE+9
Function Call: WRITE	Prompt: !!,"Nothing Selected - Exiting",! Line Location: MODULE+9
Function Call: WRITE	Prompt: " <??>",$C(7) Line Location: MODULE+11
Function Call: WRITE	Prompt: !!,"<INVALID CHOICE - ",X,", TRY AGAIN>",$C(7) Line Location: MODHLP+19
Function Call: WRITE	Prompt: !!,"No choices were made." Line Location: MODHLP+20
Function Call: WRITE	Prompt: !!,"You have selected: " Line Location: MODHLP+23
Function Call: WRITE	Prompt: !,?10,PSUA(X) Line Location: MODHLP+24
Function Call: WRITE	Prompt: @IOF,!!,?20,"EDITING Mapping of AR/WS AOUs",!! Line Location: E9001+1
Function Call: WRITE	Prompt: ! Line Location: E9001+15
Function Call: WRITE	Prompt: !,?3,"AR/WS AOU",?15,$$GET1^DIQ(59.79001,IENS,.01),?25," is not mapped." Line Location: CHK1+6
Function Call: WRITE	Prompt: @IOF,!!,?20,"EDITING Mapping of CS NAOUs",!! Line Location: E9002+1
Function Call: WRITE	Prompt: ! Line Location: E9002+15
Function Call: WRITE	Prompt: !,?3,"CS NAOU",?15,$$GET1^DIQ(59.79002,IENS,.01),?25," is not mapped." Line Location: CHK2+6
Function Call: WRITE	Prompt: @IOF,!!,?20,"EDITING Mapping of DA Pharmacy Locations",!! Line Location: E9003+1
Function Call: WRITE	Prompt: ! Line Location: E9003+15
Function Call: WRITE	Prompt: !,?3,"DA Phar Loc",?15,$$GET1^DIQ(59.79003,IENS,.01),?25," is not mapped." Line Location: CHK3+6
Function Call: WRITE	Prompt: @IOF,!,"Print Pharmacy Location PBM Extract Mapping Report",! Line Location: REPORT+1
Function Call: WRITE	Prompt: ">> DID NOT Task !!",! Line Location: QUEUE+2
Routine Call	%ZIS Line Location: REPORT+2
Routine Call	DIC Line Location: E9001+9 E9002+9 E9003+9
Routine Call	DIE Line Location: E9001+15 E9002+15 E9003+15
Routine Call	DIR Line Location: MODHLP+20 MODHLP+25 CHK1+7 CHK3+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(59.7 - [#59.7]	Classic Fileman Calls
59.79001	GET1^DIQ
59.79002	GET1^DIQ
59.79003	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(59.7 - [#59.7]	E9001+12, CHK1+2, CHK1+3, E9002+12, CHK2+2, CHK2+3, E9003+12, CHK3+2, CHK3+3

Label References

Name	Line Occurrences
E9001	MODHLP+27, E9001+16
E9002	MODHLP+28, E9002+16
E9003	MODHLP+29, E9003+16
EXIT	MODULE+9, MODULE+10, MODHLP+20, MODHLP+25
MODP	MODHLP+19
MODULE	MODHLP
QUEUE	REPORT+4
REPORT	MODHLP+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	REPORT+2*
DA	E9001+2!, E9001+11, E9001+12, CHK1+2, CHK1+3, CHK1+6, E9002+2!, E9002+11, E9002+12, CHK2+2 , CHK2+3, CHK2+6, E9003+2!, E9003+11, E9003+12, CHK3+2, CHK3+3, CHK3+6
DA(1	E9001+4, E9001+5, CHK1+2, E9002+4, CHK2+2, E9003+4, CHK3+2*
DIC	E9001+2!, E9001+5, E9001+11, E9002+2!, E9002+5, E9002+11, E9003+2!, E9003+5*, E9003+11
DIC("W"	E9001+6, E9002+6, E9003+6*
DIC(0	E9001+5, E9002+5, E9003+5*
DIE	E9001+2!, E9001+11, E9002+2!, E9002+11, E9003+2!, E9003+11*
DIR	MODHLP+20!, MODHLP+25!, CHK1+7!, CHK3+7!
DIR("A"	MODHLP+20*
DIR(0	MODHLP+20, MODHLP+25, CHK1+7, CHK3+7
>> DR	E9001+13, E9001+14, E9002+13, E9002+14, E9003+13, E9003+14
DTIME	MODULE+9
>> ERC	MODHLP+18*, MODHLP+19
>> I	MODULE+6*
IENS	E9001+3!, CHK1+1!, CHK1+6, CHK1+7, E9002+3!, CHK2+1!, CHK2+6, E9003+3!, CHK3+1!, CHK3+6* , CHK3+7
IO("Q"	REPORT+4
IOF	EN+1, MODP+10, E9001+1, E9002+1, E9003+1, REPORT+1
>> PII	MODHLP+8*, MODHLP+9
PJJ	MODHLP+14*, MODHLP+15!
>> POP	REPORT+3
>> PSUA(	MODULE+6, MODHLP+18, MODHLP+24
>> PSUA(1	MODULE+2*
>> PSUA(2	MODULE+3*
>> PSUA(3	MODULE+4*
>> PSUA(4	MODULE+5*, MODHLP+26!
PSUMOD	MODHLP+7!, MODHLP+20
PSUMOD(	MODHLP+14, MODHLP+16, MODHLP+18, MODHLP+24
PSUMOD(1	MODHLP+27
PSUMOD(2	MODHLP+28
PSUMOD(3	MODHLP+29
PSUMOD(4	MODHLP+26
>> PSUOPTS	MODHLP+24*
>> PSUSTOP	CHK1+7, CHK3+7
>> STOP	CHK1+7, CHK3+7
U	E9001+12, CHK1+3, E9002+12, CHK2+3, E9003+12, CHK3+3
>> X	MODULE+9, MODULE+10, MODULE+11, MODULE+13, MODHLP, MODHLP+6, MODHLP+8, MODHLP+9, MODHLP+18, MODHLP+19 , MODHLP+24, CHK1+3, CHK1+4, CHK1+5, CHK1+7, CHK2+3, CHK2+4, CHK2+5, CHK3+3*, CHK3+4 , CHK3+5, CHK3+7
>> X1	MODHLP+9*, MODHLP+10, MODHLP+11, MODHLP+12, MODHLP+16
XBEG	MODHLP+12*, MODHLP+13, MODHLP+14, MODHLP+15!
XEND	MODHLP+12*, MODHLP+13, MODHLP+14, MODHLP+15!
>> XX	E9001+12, E9002+12, E9003+12*
>> XX1	E9001+7, E9002+7, E9003+7*
>> XX2	E9001+8, E9002+8, E9003+8*
>> Y	MODHLP+25, E9001+10, E9001+11, CHK1+3, CHK1+4, CHK1+5, E9002+10, E9002+11, CHK2+3, CHK2+4 , CHK2+5, E9003+10, E9003+11, CHK3+3*, CHK3+4, CHK3+5
>> YY	E9001+12, E9001+13, E9002+12, E9002+13, E9003+12*, E9003+13
Z	E9001+3!, CHK1+3, E9002+3!, CHK2+3, E9003+3!, CHK3+3*
>> ZTDESC	QUEUE*
>> ZTREQ	QUEUE+1*
>> ZTRTN	QUEUE*
>> ZTSK	QUEUE+2
ZZ	E9001+3!, E9001+12, E9002+3!, E9002+12, E9003+3!, E9003+12*

Customize PDF page

Package: Pharmacy Benefits Management