Routine: XUA4A7

Package	Total	Call Graph
VA Fileman	2	FILE^DICN ^DIR
Kernel	1	$$EN^XUA4A71

Package	Total	Caller Graph
Kernel	3	^VA(200 KEYS ^DIC(6
IHS VA Support Files	1	KEYS
Order Entry Results Reporting	1	KEYS
Outpatient Pharmacy	1	KEYS
Problem List	1	KEYS

Entry Points

Name	Comments	DBIA/ICR reference
F6K
LAYGO	;Called from ^DD(200,.01,"LAYGO",1,0)
F19S	;holder subfile assignment V6.5 only
L3
FE51K	;Key removal from new person key subfile
F200K	;name change V6.5 only
L2
F6S7	;Kernel 7
F200S	;name change V6.5 only
F19K	;holder subfile V6.5 only
F6S	;Give provider the key.
FE51S	;Key assignment from new person key subfile

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Checking SOUNDEX for matches." Line Location: LAYGO+2
Function Call: WRITE	Prompt: !?5,$P($G(^VA(200,XU1,0)),"^") Line Location: LAYGO+6
Function Call: WRITE	Prompt: !,"No matches found." Line Location: LAYGO+9
Function Call: READ	Prompt: "Do you still want to add this entry: NO//" Formatting: ! Timeout: DTIME Variable: XU2 Line Location: L2+0
Function Call: WRITE	Prompt: !?4,"Answer NO to stop the addition of ",XU3," as a new person.",!?4,"Answer YES to add, a '^' will be taken as a NO." Line Location: L2+1
Routine Call	DIR Line Location: LAYGO+7

Name	Line Occurrences (* Changed, ! Killed)
^DD(200	F6S7+3
^DD(3	FE51S+4
^DIC(16 - [#16]	F6S+2
^DIC(19.1 - [#19.1]	F6S+3, F200S+1, FE51S+1, FE51K+1, F19S+1, F19K+1
^DIC(3 - [#3]	FE51S+5, F19S+5, F19K+2
^DIC(6 - [#6]	F6S+1, FE51S+5, F19S+5
^VA(200 - [#200]	F6S7+1, F200S+1, F200K+1!, FE51S+2, FE51S+3, FE51K+2, FE51K+3!, F19S+2, F19S+3*, F19K+3! , LAYGO+5, LAYGO+6

Name	Line Occurrences
L2	L2+1
L3	LAYGO+9

Name	Field # of Occurrence
%	F6S+1~, F6S+3, F6S7+1, F6S7+3, FE51S+1~, FE51S+3, FE51S+4, FE51K+1~, FE51K+3, F19S+1~* , F19S+3, F19S+4, F19K+1*, F19K+3
DA	F6S+1, F6S7+2~, F200S+1, F200K+1, FE51S+6~, F19S+6~
DA(1	F6S7+3*, FE51S+2, FE51S+3, FE51S+5, FE51K+2, FE51K+3, F19S+1, F19K+1
DD	F6S7+2~, FE51S+6~, F19S+6~
DIC	F6S7+2~, F6S7+3, FE51S+6~, F19S+6~*
DIC("P"	F6S7+3*
DIC(0	F6S7+3, FE51S+6, F19S+6*, LAYGO+1
>> DINUM	F6S7+3, FE51S+6, F19S+6*
DIR	LAYGO+3~
DIR(0	LAYGO+7*
DIRUT	LAYGO+3~, LAYGO+5
>> DLAYGO	FE51S+6, F19S+6
DO	F6S7+2~, FE51S+6~, F19S+6~
DS	F6S7+2~, FE51S+6~, F19S+6~
DT	F6S+1
DTIME	L2
DUOUT	LAYGO+3~
U	F200S+1, FE51S+1, FE51S+2, FE51S+3, FE51S+5, FE51K+2, FE51K+3, F19S+1, F19S+2, F19S+3 , F19S+5, F19K+1, F19K+2, F19K+3
X	F6S+2, F6S7+3, F200S+1, F200K+1, FE51S+1, FE51S+6~, FE51K+1, F19S+2, F19S+3, F19S+5 , F19S+6~, F19K+2, F19K+3, LAYGO+3, LAYGO+4, LAYGO+5, LAYGO+7~, L3+1*
X1	F6S+1~, F6S+2, F6S7+1, F6S7+3, F200S+1~, F200K+1~, FE51S+1~, FE51S+2, FE51S+3, FE51K+1~ , FE51K+2, FE51K+3, F19S+1~, F19S+2, F19S+3, F19K+2*, F19K+3
X2	F6S+1~, F200S+1~, F200K+1~, FE51S+1~, FE51S+5, FE51S+6, F19S+1~, F19S+5, F19S+6
XU1	LAYGO+3~, LAYGO+5*, LAYGO+6
XU2	LAYGO+3~, LAYGO+4, LAYGO+6, LAYGO+7, LAYGO+9, L2, L2+1, L3
XU3	LAYGO+3~*, LAYGO+4, L2+1, L3+1
Y	FE51S+6~, F19S+6~, LAYGO+3~