Routine: PSATI

Package	Total	Call Graph
VA Fileman	4	^DIC DT^DICRW ^DIE ^DIR
Drug Accountability	2	PSANDC1^PSAHELP $$ITEM^PSAUTL
IFCAP	1	($$DESCR,$$VENNAME)^PRCPUX1
National Drug File	1	$$CIRN2^PSNAPIS

Package	Total	Caller Graph
Drug Accountability	3	PSA SINGLE DRUG MATCH PSADRUG PSAUNL

Entry Points

External References

Name	Field # of Occurrence
^DIC	LOOK
DT^DICRW	START
^DIE	CON, BINGO+4
^DIR	QUES1, NDF+2, NDF+11, AGAIN+1, BINGO+3
$$DESCR^PRCPUX1	DIS, DIS+1, NDC+1, MORE, FSN+1, BINGO+2
$$VENNAME^PRCPUX1	DIS+1
PSANDC1^PSAHELP	NDF+9
$$ITEM^PSAUTL	NDC
$$CIRN2^PSNAPIS	NDF+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$P($G(^PSDRUG(+PSAIT,0)),U),!! Line Location: START+2
Function Call: WRITE	Prompt: !,"This drug is currently linked to the following item(s):",!! Line Location: DIS+0
Function Call: WRITE	Prompt: !!,"Current potential ITEM MASTER file links based on NDC or FSN are:",!! Line Location: QUES1+1
Function Call: WRITE	Prompt: "DRUG file NDC: "_PSANDC Line Location: NDC+0
Function Call: WRITE	Prompt: ?40,"ITEM NUMBER: "_PSAI,!!,"DESC: "_$$DESCR^PRCPUX1(0,PSAI),! Line Location: NDC+1
Function Call: WRITE	Prompt: !?60,"* Inactive item" Condition for execution: $G(^PRC(441,+PSAI,3)) Line Location: NDC+1
Function Call: WRITE	Prompt: !?40,"ITEM NUMBER: "_PSAI(PSAZ),!!,"DESC: ",$$DESCR^PRCPUX1(0,PSAI(PSAZ)) Line Location: MORE+0
Function Call: WRITE	Prompt: !?60,"* Inactive item" Condition for execution: $G(^PRC(441,+PSAI(PSAZ),3)) Line Location: MORE+0
Function Call: WRITE	Prompt: " NO NDC MATCH IN ITEM MASTER file.",!!,"DRUG file FSN: "_PSAFSN,?40,"ITEM NUMBER: "_PSAI,!!,"DESC: ",$$DESCR^PRCPUX1(0,PSAI),! Line Location: FSN+1
Function Call: WRITE	Prompt: !!,"No NDF link, can't help.",! Line Location: CON+1
Function Call: WRITE	Prompt: !!,"No NDF link, can't help.",! Line Location: CON+2
Function Call: WRITE	Prompt: !!,"No matching PACKAGE SIZE in the National Drug File." Line Location: CON+4
Function Call: WRITE	Prompt: !!,"No matching PACKAGE TYPE in the National Drug file." Line Location: CON+5
Function Call: WRITE	Prompt: !!,"This drug is linked to the NATIONAL DRUG file.",!!,"There may be an NDC there that will link to the ITEM MASTER file.",! Line Location: NDF+1
Function Call: WRITE	Prompt: !,"Sorry, there is no entry in the PSNDF VA PRODUCT NAME, cannot find match.",! Line Location: NDF+5
Function Call: WRITE	Prompt: ! Line Location: AGAIN+1
Function Call: WRITE	Prompt: !!,"DRUG file: "_$P(^PSDRUG(PSADRUG,0),U),!!,"Item #: "_PSAI," Desc: ",$$DESCR^PRCPUX1(0,PSAI),! Line Location: BINGO+2
Function Call: WRITE	Prompt: " linked." Line Location: BINGO+4
Routine Call	DIE Line Location: CON BINGO+4
Routine Call	DIC Line Location: LOOK
Routine Call	DIR Line Location: QUES1 NDF+2 NDF+11 AGAIN+1 BINGO+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(441 - [#441]	DIS+1, NDC+1, MORE, FSN, FSN+1, BINGO
^PSDRUG - [#50]	START+2, DIS, NDC, FSN, CON+1, CON+2, CON+4, CON+5, NDF+5, BINGO+2
^PSDRUG("AB"	BINGO+1

Label References

Name	Line Occurrences
AGAIN	QUES1, CON+1, CON+2, CON+4, CON+5, NDF+2, NDF+5
BINGO	NDF+8
QUIT	LOOK, QUES1, CON
START	AGAIN+1

Naked Globals

Name	Field # of Occurrence
^(0	FSN
^(2	NDC

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
D0	PSATI+9~
D1	PSATI+9~
DA	PSATI+9~, CON, BINGO+4
DIC	PSATI+9~, LOOK*!
DIC("S"	LOOK*
DIC(0	START+2, LOOK
DIE	PSATI+9~, CON!, BINGO+4
DIR	PSATI+9~, QUES1!, NDF+2!, NDF+11!, AGAIN+1!, BINGO+3!
DIR("?"	BINGO+3*
DIR("A"	QUES1, NDF+2, NDF+11, AGAIN+1, BINGO+3*
DIR("B"	QUES1, NDF+2, NDF+11, AGAIN+1, BINGO+3*
DIR(0	QUES1, NDF+2, NDF+11, AGAIN+1, BINGO+3*
DIRUT	PSATI+9~, CON*, NDF+2, NDF+11
DLAYGO	PSATI+9~
DR	PSATI+9~, CON, BINGO+4
DTOUT	PSATI+9~, LOOK, CON
DUOUT	PSATI+9~, LOOK, CON+2!
PSA	NDF+8!, NDF+9, NDF+10, NDF+11, AGAIN!, QUIT!, BINGO
PSAD	AGAIN!, QUIT!
PSADO	AGAIN!, QUIT!
PSADRUG	LOOK*, DIS, NDC, FSN, CON, CON+1, CON+2, CON+4, CON+5, NDF+5 , AGAIN!, QUIT!, BINGO+2, BINGO+4
PSAF	AGAIN!, QUIT!
PSAFSN	FSN*, FSN+1, AGAIN!, QUIT!
PSAI	DIS, DIS+1, QUES1, NDC, NDC+1, MORE, FSN, FSN+1, FAIL, AGAIN! , AGAIN+1!, QUIT!, BINGO*, BINGO+1, BINGO+2
PSAI(	MORE*
PSAIAC	AGAIN!, QUIT!
PSAILC	AGAIN!, QUIT!
PSAIM	DIS*, AGAIN!, QUIT!
PSAINV	AGAIN!, QUIT!
PSAINVN	AGAIN!, QUIT!
PSAIQ	AGAIN!, QUIT!
PSAIQT	AGAIN!, QUIT!
PSAIT	PSATI+9~, START+2, LOOK*, AGAIN+1!, QUIT~
PSAIT(1	QUIT
>> PSALOC	QUES1, AGAIN+1
PSANDC	NDC, NDC+1, MORE, NDF+9, AGAIN!, QUIT!
PSANDCX	NDF+9!
PSANDF	NDF+7, AGAIN!, QUIT!
PSANDF(	NDF+8
PSAOLD	NDF+9*!
PSAP	AGAIN!, QUIT!
PSAPB	AGAIN!, QUIT!
PSAS	AGAIN!, AGAIN+1, QUIT!
PSAT	AGAIN!, QUIT!
PSATB	AGAIN!, QUIT!
PSAU	AGAIN!, QUIT!
PSAV	AGAIN!, QUIT!
>> PSAVP	NDF+5*, NDF+7
PSAZ	MORE*, AGAIN!, QUIT!
>> PSX	NDF+8*, NDF+9, NDF+10
U	START+2, LOOK, DIS, DIS+1, NDC, FSN, CON+2, CON+4, CON+5, BINGO+2
X	START+2, NDF+7, AGAIN!, QUIT!
Y	LOOK, QUES1, CON, NDF+2, NDF+8, NDF+11, AGAIN!, AGAIN+1, QUIT~!, BINGO+3!

Customize PDF page

Package: Drug Accountability

Routine: PSATI

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: