Routine: PSANDF

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

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

Entry Points

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

External References

Name	Field # of Occurrence
^DIC	ASKDRUG+4
^DIR	MANY+7, MANY+12, 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+12, 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+2
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 twelve numbers." Line Location: GETNDC+3
Function Call: WRITE	Prompt: ! Line Location: SUPPLY+3
Routine Call	DIC Line Location: ASKDRUG+4
Routine Call	DIR Line Location: MANY+7 MANY+12 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+9, ASKDRUG+10! , ASKDRUG+11, 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, ONE+7
GETNDC	CHECK+9, GETNDC+3
GETUPC	CHECK+10
ONE	NONE+3
SUPPLY	ASKDRUG+7

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIC	ASKDRUG+3*, ASKDRUG+4!
DIC("A"	ASKDRUG+3*
DIC(0	ASKDRUG+3*
DIR	MANY+7!, MANY+12!, 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, CHECK+8, ONE+3, GETNDC+1, GETUPC+1, SUPPLY+1, SUPPLY+3
DIR("B"	CHECK+8, ONE+3
DIR(0	MANY+6, MANY+11, 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+9, ASKDRUG+11, ONE+6
>> DTOUT	MANY+8, MANY+13, ASKDRUG+4, SUPPLY+4
>> DUOUT	MANY+7, ASKDRUG+4, SUPPLY+4
DUZ	MANY+9, MANY+14, ASKDRUG+9, ASKDRUG+11, 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+9, ASKDRUG+10 , ASKDRUG+11, 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+9, ASKDRUG+11*
>> 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+9, ASKDRUG+10* , 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+9, ASKDRUG+10 , ASKDRUG+11, 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+4, ASKDRUG+7, CHECK+8, CHECK+9, CHECK+10, ONE+5* , GETNDC+2, GETUPC+2, SUPPLY+4*
>> PSAPASS	ASKDRUG+3, SUPPLY+2
>> PSAREA	ASKDRUG+5, ASKDRUG+9, SUPPLY+4, SUPPLY+5*
>> PSASKIP	ASKDRUG+3, ASKDRUG+6, ASKDRUG+8
>> 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+6, ASKDRUG+8, SUPPLY+1*, SUPPLY+2
>> PSAUPC	CHECK+10*
>> PSAVAPN	LOOKNDF+4, LOOKNDF+6, NONE+3*, MANY+1, ONE+2
>> PSAVER	SUPPLY+6
>> PSAVSN	PSANDF+15*
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

Routine: PSANDF

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: