Routine: DPTNAME

Package	Total	Call Graph
VA Fileman	3	YN^DICN GETS^DIQ ^DIR
Kernel	2	($$CLEANC,$$NAMEFMT,STDNAME)^XLFNAME $$FORMAT^XLFNAME7
Registration	1	($$F1,$$NOTES,COMP,JUMP)^DPTNAME1

Package	Total	Caller Graph
Registration	6	DG53244S DGRPECE ^DPT DGRPTX10 DGRPTX14 DPTLK2
Integrated Billing	3	ALIAS DISPOSITION LOG-IN DATE/TIME IBXSC12
Patient Registration GUI	2	AGGWTRIG AGGWVAL

Entry Points

Name	Comments	DBIA/ICR reference
AGAIN
START
NCEDIT(DFN,DGHDR,DG20NAME)	;Edit name components	ICR #4116 Status: Active Usage: Private
POSTC(DGX)	;Post-clean components
NOP(DGX)	;Produce 'NOP' x-ref value
FORMAT(DGNAME,DGMINL,DGMAXL,DGNOP,DGCOMA,DGAUDIT,DGFAM,DGDNC)	;Format name value
CONF
RC
ASK
CONF1(DPTX)	;Confirm if single name value is ok.
NARY(DG20NAME)	;Set up name array ihs/cmi/maw 04/07/2012 PATCH 1015 put back in

External References

Name	Field # of Occurrence
YN^DICN	CONF+1, RC+1
GETS^DIQ	START+8
^DIR	ASK
$$F1^DPTNAME1	FORMAT+40
$$NOTES^DPTNAME1	NARY+8
COMP^DPTNAME1	FORMAT+29
JUMP^DPTNAME1	ASK+1
$$CLEANC^XLFNAME	FORMAT+55, START+15, ASK+9
$$NAMEFMT^XLFNAME	FORMAT+59, ASK+18
STDNAME^XLFNAME	NARY+6, FORMAT+49, START+14
$$FORMAT^XLFNAME7	ASK+10, ASK+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Patient name components--" Line Location: START+21
Function Call: WRITE	Prompt: !,$C(7),"Family name cannot be deleted!" Line Location: ASK+2
Function Call: WRITE	Prompt: " ??",$C(7) Line Location: ASK+11
Function Call: WRITE	Prompt: !,"Ok to file '",DG20NAME,"' and its name components" Line Location: CONF+0
Function Call: WRITE	Prompt: !,"Indicate if the edits to the name and its components should be filed." Line Location: CONF+2
Function Call: WRITE	Prompt: !!?5,$C(7),"WARNING: Do not enter single name values for patients (no given or" Line Location: CONF1+4
Function Call: WRITE	Prompt: !?5," first name) unless this is actually their legal name!!!",$C(7) Line Location: CONF1+5
Function Call: WRITE	Prompt: !!,"Are you sure you want to enter the patient name in this manner" Line Location: RC+0
Function Call: WRITE	Prompt: !?6,"Specify 'YES' to enter a single name value, or 'NO' to discontinue." Line Location: RC+1
Function Call: WRITE	Prompt: ! Line Location: RC+2
Routine Call	DIR Line Location: ASK

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(20 - [#20]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	START+5, START+7

Label References

Name	Line Occurrences
$$CONF1	CONF+4
$$FORMAT	NOP+4
$$POSTC	FORMAT+57
AGAIN	ASK+1
ASK	ASK+2, ASK+11
CONF	CONF+2
RC	RC+1
START	ASK+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NCEDIT+8~, CONF+1, CONF+2, CONF+3, CONF1+2~, RC+1, RC+3
DA	NCEDIT+8~
DFN	NCEDIT~, START*, START+5, START+7
DG20NAME	NARY~, NARY+5, NARY+6, NARY+7, NCEDIT~, START, START+19, ASK+8, ASK+9, ASK+10* , ASK+11, ASK+12, ASK+18, ASK+20, ASK+21, ASK+23, ASK+25!, CONF, CONF+3!, CONF+4! , CONF+5
DG20NAME(	AGAIN+4, ASK+4, ASK+5, ASK+12, ASK+13
DG20NAME("NOTES"	NARY+8*
DGAUDIT	FORMAT~, FORMAT+27!, FORMAT+38, FORMAT+46, FORMAT+65, FORMAT+73!, FORMAT+74
DGAUDIT(1	FORMAT+37*
DGAUDIT(2	FORMAT+50*
DGAUDIT(3	FORMAT+38, FORMAT+46, FORMAT+65*
DGAUDIT(4	POSTC+6, FORMAT+41, FORMAT+44!, FORMAT+51, FORMAT+52, FORMAT+53, FORMAT+72, FORMAT+74*
DGAX	FORMAT+25~, FORMAT+49
DGAX("NM"	FORMAT+51
DGAX("PERIOD"	FORMAT+51
DGAX("PUNC"	FORMAT+52
DGAX("SPACE"	FORMAT+52, FORMAT+53
DGAX("STRIP"	FORMAT+50
DGC	NCEDIT+7~
DGC(	START+22*
DGCL	NCEDIT+8~, START+3*, AGAIN+2
DGCOM	NCEDIT+7~, START+1*, START+10, START+22, AGAIN
DGCOMA	FORMAT~, FORMAT+33*, FORMAT+38, FORMAT+40, FORMAT+43, FORMAT+63
DGCOMP	NCEDIT+7~, START, START+7, START+8, START+9, START+10, START+13, AGAIN, AGAIN+1, AGAIN+4 , ASK+4, ASK+5, ASK+9, ASK+12, ASK+13, ASK+25!
DGCOMP(20	START+9, START+10
DGCOUT	START+18~, START+19, ASK, ASK+16
DGCX	NCEDIT+8~, START+2*, AGAIN+1
DGDNC	FORMAT~, FORMAT+29*, FORMAT+47
DGEDIT	NCEDIT+8~, START, START+14, ASK+5, ASK+13, ASK+15
DGFAM	FORMAT~, FORMAT+34*, FORMAT+49, FORMAT+52, FORMAT+53
DGHDR	NCEDIT~, START+21
DGI	POSTC+2~, POSTC+5, FORMAT+25~, FORMAT+57, NCEDIT+7~, START+10, START+22, START+23*, AGAIN, AGAIN+1 , AGAIN+2, ASK+1, ASK+2
DGMAXL	FORMAT~, FORMAT+31*, FORMAT+59
DGMINL	FORMAT~, FORMAT+30*, FORMAT+31, FORMAT+46, FORMAT+65
DGNAME	FORMAT~, FORMAT+28, FORMAT+46!, FORMAT+47, FORMAT+53, FORMAT+59, FORMAT+63, FORMAT+65!, FORMAT+71, FORMAT+72 , FORMAT+73, FORMAT+74, FORMAT+75*, FORMAT+76
DGNEWN	FORMAT+25~, FORMAT+75*
DGNEWX	NOP+3~, NOP+4*, NOP+5
DGNOP	FORMAT~, FORMAT+32*, FORMAT+59, FORMAT+71
DGOLDN	FORMAT+25~, FORMAT+28*, FORMAT+41, FORMAT+44, FORMAT+73, FORMAT+74
DGOUT	NCEDIT+8~, START, START+23, ASK, ASK+16
DGOX	FORMAT+25~
DGX	NARY+5~, NARY+7, POSTC~, POSTC+3, POSTC+5, POSTC+6, POSTC+7, NOP~, NOP+4, NOP+5 , FORMAT+25~, FORMAT+28, FORMAT+29, FORMAT+37, FORMAT+38, FORMAT+40, FORMAT+41, FORMAT+43, FORMAT+44, FORMAT+46 , FORMAT+47, FORMAT+49, FORMAT+59, FORMAT+71, FORMAT+72, FORMAT+75, NCEDIT+7~, START+5*, START+14, START+19 , ASK+25!
DGX(	FORMAT+57, START+10, AGAIN+4, ASK+5, ASK+13
DGX("FAMILY"	FORMAT+53
DGX("SUFFIX"	FORMAT+55, START+15
DGXOLD	POSTC+2~, POSTC+3*, POSTC+6
DGY	NCEDIT+7~, ASK+20*, ASK+21
DIE	NCEDIT+8~
DIR	NCEDIT+7~
DIR("A"	AGAIN+1*
DIR("B"	AGAIN+4*, AGAIN+5!
DIR("PRE"	START+20, AGAIN+3
DIR(0	AGAIN+2*
DIRUT	START+18~
DPTX	CONF1~, CONF1+3
DR	NCEDIT+8~
DTOUT	START+18~, ASK
DUOUT	START+18~
U	START+5, START+10, START+22, AGAIN, AGAIN+1, AGAIN+2, ASK
X	NCEDIT+7~, ASK, ASK+1, ASK+2, ASK+3, ASK+7, ASK+8, ASK+12
Y	NCEDIT+7~

Customize PDF page

Package: Registration

Routine: DPTNAME

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: