Routine: PSANDF

Information

PSANDF ;BIR/JMB-Process Uploaded Prime Vendor Invoice Data - CONT'D ;7/23/97

Package	Total	Call Graph
Drug Accountability	3	^PSAPROC4 MANYUPCS^PSAPROC5 EDITDISP^PSAUTL1
VA FileMan	2	^DIC ^DIR
National Drug File	1	$$PSA^PSNAPIS

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

Package	Total	Caller Graph
Drug Accountability	6	PSAPROC4 PSAPROC5 PSAPROC6 PSAPROC9 PSAVER2 PSAVERA2

Entry Points

Name	Comments	DBIA/ICR reference
LOOKNDF
NONE
MANY	;Display for selection if more than 1 drug is found for the Product Name
ASKDRUG	;If the NDC found by searching NDF is not correct OR if the NDC can't
CHECK
ONE	;Display for selection if 1 drug is found for that Product Name.
GETNDC	;Gets NDC for selected drug.
GETUPC	;Gets UPC for selected drug.
SUPPLY	;Asks if item is a supply. If so, asks for supply info.

External References

Name	Field # of Occurrence
^DIC	ASKDRUG+5
^DIR	MANY+7, MANY+12, ASKDRUG+9, CHECK+8, ONE+5, GETNDC+2, GETUPC+2, SUPPLY+1, SUPPLY+4
^PSAPROC4	NONE+1, MANY+17
MANYUPCS^PSAPROC5	PSANDF+17
EDITDISP^PSAUTL1	MANY+14, ASKDRUG+18, ONE+6
$$PSA^PSNAPIS	LOOKNDF

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The NDC has the VA Product Name of "_PSAVAPN_".",!,"The following drugs have the same VA Product Name.",! Line Location: MANY+1
Function Call: WRITE	Prompt: !!,"If the item will never be in the DRUG, press the Return key then",!,"answer YES to the ""Is this a supply item?"" prompt. To bypass this",!,"line item, enter ""^"" then press the Return key.",! Line Location: ASKDRUG+3
Function Call: WRITE	Prompt: !!,"The NDC has the VA Product Name of "_PSAVAPN_"." Line Location: ONE+2
Function Call: WRITE	Prompt: !,"You must enter exactly eleven numbers." Line Location: GETNDC+3
Function Call: WRITE	Prompt: ! Line Location: SUPPLY+3
Routine Call	DIC Line Location: ASKDRUG+5
Routine Call	DIR Line Location: MANY+7 MANY+12 ASKDRUG+9 CHECK+8 ONE+5 GETNDC+2 GETUPC+2 SUPPLY+1 SUPPLY+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	PSANDF+15, LOOKNDF+4, LOOKNDF+5, LOOKNDF+6, NONE+3, CHECK+2
^PSDRUG("C"	PSANDF+8, PSANDF+9
^TMP("PSACNT"	MANY+3*, MANY+9, MANY+14, MANY+15!
^TMP("PSANDF"	LOOKNDF+1!, LOOKNDF+4, LOOKNDF+5, NONE+3, MANY+2, MANY+4, MANY+15!, ONE+1, ONE+3, ONE+6!
^XTMP("PSAPV"	PSANDF+12, PSANDF+14, PSANDF+15, PSANDF+16, NONE+1, MANY+9, MANY+14, MANY+17, ASKDRUG+15, ASKDRUG+16! , ASKDRUG+17, CHECK+1, CHECK+3, CHECK+5, CHECK+6, CHECK+9, CHECK+10, ONE+6, SUPPLY+7*

Label References

Name	Line Occurrences
ASKDRUG	PSANDF+12, NONE+2, MANY+10, ASKDRUG+11, ONE+7
GETNDC	CHECK+9, GETNDC+3
GETUPC	CHECK+10
ONE	NONE+3
SUPPLY	ASKDRUG+13

Naked Globals

Name	Field # of Occurrence
^(	PSANDF+14, NONE+1, MANY+9, MANY+14, MANY+17, ASKDRUG+15, ASKDRUG+17, CHECK+6, CHECK+10, ONE+6 , SUPPLY+7*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIC	ASKDRUG+4*, ASKDRUG+5!
DIC("A"	ASKDRUG+4*
DIC(0	ASKDRUG+4*
DIR	MANY+7!, MANY+12!, ASKDRUG+9!, CHECK+8!, ONE+5!, GETNDC+2!, GETUPC+2!, SUPPLY+1!, SUPPLY+4!
DIR("?"	MANY+6, MANY+7, MANY+12, ONE+4, GETNDC+1, GETUPC+1, SUPPLY+1, SUPPLY+4
DIR("??"	MANY+7, MANY+12, CHECK+8, ONE+4, GETNDC+1, GETUPC+1, SUPPLY+1, SUPPLY+4
DIR("A"	MANY+6, MANY+11, ASKDRUG+9, CHECK+8, ONE+3, GETNDC+1, GETUPC+1, SUPPLY+1, SUPPLY+3*
DIR("B"	ASKDRUG+9, CHECK+8, ONE+3*
DIR(0	MANY+6, MANY+11, ASKDRUG+9, CHECK+8, ONE+3, GETNDC+1, GETUPC+1, SUPPLY+1, SUPPLY+3*
>> DIRUT	CHECK+8, ONE+5, GETNDC+2, GETUPC+2, SUPPLY+1
DT	MANY+9, MANY+14, ASKDRUG+15, ASKDRUG+17, ONE+6
>> DTOUT	MANY+8, MANY+13, ASKDRUG+5, SUPPLY+4
>> DUOUT	MANY+7, ASKDRUG+5, SUPPLY+4
DUZ	MANY+9, MANY+14, ASKDRUG+15, ASKDRUG+17, ONE+6
>> PSACNT	PSANDF+7, PSANDF+9, PSANDF+10, PSANDF+13, PSANDF+17, LOOKNDF, LOOKNDF+5, NONE, NONE+3, MANY+2* , MANY+3*, MANY+4, MANY+5, MANY+6, MANY+10, MANY+11, MANY+15
>> PSACTRL	PSANDF+12, PSANDF+14, PSANDF+15, PSANDF+16, NONE+1, MANY+9, MANY+14, MANY+17, ASKDRUG+15, ASKDRUG+16 , ASKDRUG+17, CHECK+1, CHECK+3, CHECK+5, CHECK+6, CHECK+9, CHECK+10, ONE+6, SUPPLY+7
>> PSADATA	PSANDF+5, PSANDF+6, PSANDF+7, PSANDF+12, PSANDF+16, MANY+14, ASKDRUG+15, ASKDRUG+17*
PSADRG	ASKDRUG+2~, ASKDRUG+6*, ASKDRUG+7, ASKDRUG+8, ASKDRUG+10!, ASKDRUG+12, ASKDRUG+16, ASKDRUG+17
>> PSAFND	CHECK+1, CHECK+2, CHECK+3
>> PSAGET	MANY+2, MANY+5, MANY+7
>> PSAIEN	PSANDF+14, PSANDF+15, MANY+2, MANY+5, MANY+9, MANY+10, MANY+14, MANY+16, ASKDRUG+15, ASKDRUG+16* , CHECK+2, ONE+6*
>> PSAIEN50	PSANDF+7, PSANDF+8, PSANDF+9, MANY+2, MANY+3, MANY+4, ONE+1, ONE+3, ONE+6
>> PSALINE	PSANDF+12, PSANDF+14, PSANDF+15, PSANDF+16, NONE+1, MANY+9, MANY+14, MANY+17, ASKDRUG+15, ASKDRUG+16 , ASKDRUG+17, CHECK+1, CHECK+3, CHECK+5, CHECK+6, CHECK+9, CHECK+10, ONE+6, SUPPLY+7
PSALIST	LOOKNDF, LOOKNDF+6, LOOKNDF+7!
PSALIST(	LOOKNDF+1, LOOKNDF+5
PSALIST(0	LOOKNDF+6
>> PSANDC	PSANDF+5, PSANDF+15, LOOKNDF, CHECK, CHECK+1, CHECK+2, CHECK+9, CHECK+10*
>> PSAOUT	MANY+8, MANY+10, MANY+13, MANY+16, ASKDRUG+5, ASKDRUG+13, CHECK+8, CHECK+9, CHECK+10, ONE+5* , GETNDC+2, GETUPC+2, SUPPLY+4*
>> PSAPASS	ASKDRUG+4, SUPPLY+2
>> PSAREA	ASKDRUG+6, ASKDRUG+15, SUPPLY+4, SUPPLY+5*
>> PSASKIP	ASKDRUG+4, ASKDRUG+12, ASKDRUG+14
>> PSASSUB	PSANDF+9*
>> PSASUB	PSANDF+14, PSANDF+15, CHECK+2, CHECK+3
PSASUP	PSANDF+7!*, PSANDF+8, PSANDF+9, PSANDF+15
PSASUP(	PSANDF+9*
PSASUP(0	PSANDF+17
PSASUP(1	PSANDF+14
>> PSASUPP	ASKDRUG+12, ASKDRUG+14, SUPPLY+1*, SUPPLY+2
>> PSAUPC	CHECK+10*
>> PSAVAPN	LOOKNDF+4, LOOKNDF+6, NONE+3*, MANY+1, ONE+2
>> PSAVER	SUPPLY+6
>> PSAVSN	PSANDF+15*
U	ASKDRUG+8
X	LOOKNDF, LOOKNDF+1, LOOKNDF+5*, LOOKNDF+7!
XX	LOOKNDF+4*!
Y	MANY+9, MANY+10, MANY+12, MANY+14, ASKDRUG+6!, ASKDRUG+10, ASKDRUG+11, CHECK+9, CHECK+10, ONE+6 , GETNDC+3, SUPPLY+1, SUPPLY+4

Customize PDF page

Package: Drug Accountability