Routine: DPTLK2

Package	Total	Call Graph
VA Fileman	7	^%DT EN^DDIOL CLRMSG^DDS IX^DIC DO^DIC1 (FILE,YN)^DICN ^DIE
Registration	4	REC^DGSEC $$UCASE^DPTLK1 ^DPTLK3 $$CONF1^DPTNAME
Kernel	1	$$FORMAT^XLFNAME7

Package	Total	Caller Graph
Registration	1	DPTLK

Entry Points

External References

Name	Field # of Occurrence
^%DT	HLPID+1
EN^DDIOL	P1+4, CHKIT+4
CLRMSG^DDS	DPTLK2+3, ASKADD
REC^DGSEC	ASKID+9
IX^DIC	P1+1
DO^DIC1	P1+2
FILE^DICN	DPTLK2+16
YN^DICN	ASKADD+2
^DIE	DPTLK2+22, DPTLK2+30
$$UCASE^DPTLK1	P1
^DPTLK3	DPTLK2+11
$$CONF1^DPTNAME	ASKADD+3
$$FORMAT^XLFNAME7	DPTLK2+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"...adding new patient" Line Location: DPTLK2+11
Function Call: WRITE	Prompt: ?24,"...new patient added",!?3 Line Location: DPTLK2+17
Function Call: WRITE	Prompt: !!?3,"Please enter the following additional information:",!?3 Line Location: DPTLK2+30
Function Call: WRITE	Prompt: !?6,"Enter 'YES' to add a new applicant, or 'NO' not to." Line Location: ASKADD+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASKID+0
Function Call: WRITE	Prompt: !?3,"PATIENT ",$P(DPTID0,U),": " Line Location: ASKID+0
Function Call: WRITE	Prompt: !?6,*7,"<'",DPTX,"'> NOT ADDED" Line Location: ASKID+0
Function Call: WRITE	Prompt: !?6,*7,"Sorry, '^' not allowed!" Condition for execution: $E(X)["^" Line Location: ASKID+10
Function Call: WRITE	Prompt: " ??" Line Location: ASKID+10
Function Call: WRITE	Prompt: !?5,^(0) Line Location: HLPID+0
Function Call: WRITE	Prompt: !?5,"..." Line Location: HLPID+0
Function Call: WRITE	Prompt: !?7,"CHOOSE FROM: " Line Location: HLPID+2
Function Call: WRITE	Prompt: !?7,$P(Y,":",1),?15," ",$P(Y,":",2) Line Location: HLPID+2
Function Call: WRITE	Prompt: !?6,*7,"<'",DPTX,"'> NOT ADDED" Line Location: P1+4
Function Call: WRITE	Prompt: !?6,*7,"<'",DPTX,"'> NOT ADDED" Line Location: CHKIT+4
Function Call: WRITE	Prompt: !,"Entry in "_$P($G(^DIC(I,0)),U)_" ("_I_") refers to this patient" Line Location: DEL+3
Routine Call	DDS Line Location: DPTLK2+3 ASKADD
Routine Call	DIE Line Location: DPTLK2+22 DPTLK2+30
Routine Call	DIC Line Location: P1+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	DEL+2
^DD(2	DPTLK2+25, DPTLK2+27, CHKID1, HLPID, HLPID+1, DEL+1
^DG(391 - [#391]	CHKIT+2, CHKIT+3
^DIC - [#1]	DEL+3
^DIC(2	DPTLK2+5
^DPT - [#2]	P1+4
^DPT(0	ASKADD+1

Label References

Name	Line Occurrences
ASKADD	DPTLK2+11, ASKADD+2
ASKID	CHKID1, ASKID+10, ASKID+12, ASKID+14, SKIP, SKIP+3
CHKID	DPTLK2+11
CHKID1	CHKID+1
CHKIT	SKIP+1
HLPID	ASKID+12, ASKID+14, SKIP+3
P1	SKIP, HLPID+3, P1+2
Q	DPTLK2+4, DPTLK2+5, DPTLK2+8, DPTLK2+11
SKIP	ASKID+13

Naked Globals

Name	Field # of Occurrence
^(	HLPID, DEL+2
^("LAYGO"	DPTLK2+5
^(0	HLPID, CHKIT+3
^(3	HLPID
^(4	HLPID+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ASKADD+2*, ASKADD+3
>> %DT	HLPID+1*
A	DEL+1~, DEL+2*, DEL+3
>> D	P1+1*
DA	DPTLK2+20!, DPTLK2+21, DPTLK2+30!, DEL+3
DD	DPTLK2+13!
>> DDS	DPTLK2+3, ASKADD
>> DDSHBX	DPTLK2+3, ASKADD
>> DDXY	DPTLK2+3, ASKADD
DFN	Q!, CHKID!
DG20NAME	DPTLK2+6~*
DGCOL	DPTLK2+2~, DPTLK2+10, DPTLK2+11, DPTLK2+15, DPTLK2+24, CHKID
DGCOL("DR"	DPTLK2+10*, DPTLK2+15
DGNEWPT	ASKID+7~, ASKID+8*
DGREC	ASKID~
DGVV	DPTLK2+2~, CHKIT+2, CHKIT+3, CHKIT+4
>> DIC	P1+1, P1+2
>> DIC("DR"	DPTLK2+10, DPTLK2+11, DPTLK2+14, DPTLK2+15, DPTLK2+16!, DPTLK2+24
>> DIC("S"	P1+1, P1+2*
>> DIC("W"	P1+1, P1+2*
>> DIC(0	DPTLK2+4, DPTLK2+5, DPTLK2+8, DPTLK2+11, DPTLK2+24, P1+1, P1+2
DIE	DPTLK2+20!, DPTLK2+21, DPTLK2+30!
DIE("NO^"	DPTLK2+13, DPTLK2+18, DPTLK2+30
>> DLAYGO	DPTLK2+5
DO	DPTLK2+13!
>> DPT("DR"	DPTLK2+14, DPTLK2+15, DPTLK2+16, Q!, CHKID1, SKIP, SKIP+1, SKIP+2
>> DPT("NO^"	DPTLK2+13*, DPTLK2+18
DPTCT	DPTLK2+2~, CHKID+1*
>> DPTDFN	DPTLK2+4, DPTLK2+5, DPTLK2+8, DPTLK2+11, DPTLK2+12, DPTLK2+18, DPTLK2+30, ASKADD+2, ASKADD+3, CHKID* , CHKID+1, CHKID1, P1+2
DPTDIC	P1+1*, P1+2!
DPTDIC("S"	P1+1*, P1+2
DPTDIC("W"	P1+1*, P1+2
DPTDIC(0	P1+1*, P1+2
DPTGID	DPTLK2+26, Q!, CHKID, CHKID+1, ASKID+6
DPTID	DPTLK2+25, DPTLK2+26, DPTLK2+27, DPTLK2+29, Q!, CHKID+1, CHKID1, ASKID+4, ASKID+12, ASKID+13 , SKIP, SKIP+1, SKIP+2, HLPID, HLPID+1, P1, P1+4
DPTID0	Q!, CHKID1*, ASKID, ASKID+15, SKIP, SKIP+2, SKIP+3, HLPID+1, HLPID+2, HLPID+3 , P1+1
DPTIDS	Q!
DPTIDS(	SKIP, SKIP+1, SKIP+2*
DPTIDS(1901	CHKIT+4
DPTIDS(391	CHKIT+2
DPTLID	DPTLK2+11!, DPTLK2+28*, DPTLK2+30, Q!
DPTLIDR	DPTLK2+2~, DPTLK2+29*, DPTLK2+30
DPTSET	ASKID+15*, SKIP!, SKIP+1!, SKIP+2!
DPTX	DPTLK2+6, DPTLK2+7, DPTLK2+8, DPTLK2+13!, ASKADD+1, ASKADD+3, ASKID, P1+4, CHKIT+4
DPTZNV	DPTLK2+13~
DR	DPTLK2+20!, DPTLK2+21, DPTLK2+22!, DPTLK2+30!
DTIME	ASKID
>> DTOUT	DPTLK2+12, ASKID, ASKID+1*, ASKID+3
>> DUOUT	DPTLK2+12, ASKID, ASKID+2, ASKID+3
DUZ(0	DPTLK2+4, DPTLK2+5
>> DX	DPTLK2+3, ASKADD
>> DY	DPTLK2+3, ASKADD
ERR	DEL+1~, DEL+3, DEL+4
G	DEL+1~, DEL+3*
I	DPTLK2+5, ASKID+15, HLPID, HLPID+2, DEL+1~*, DEL+2, DEL+3
J	DEL+1~*, DEL+2
>> K	DEL+2*
Q	DEL+1~*, DEL+3
U	DPTLK2+10, DPTLK2+26, ASKADD+1, CHKID+1, ASKID, ASKID+1, ASKID+15, SKIP, SKIP+2, SKIP+3 , HLPID+1, HLPID+2, HLPID+3, P1+4, DEL+2, DEL+3
X	DPTLK2+13, CHKID1, ASKID!, ASKID+2, ASKID+3, ASKID+6, ASKID+10, ASKID+12, ASKID+13, ASKID+14 , ASKID+15!, SKIP, SKIP+1, SKIP+2, SKIP+3, HLPID, HLPID+1, P1, P1+2, P1+4*! , CHKIT+1, CHKIT+4!
>> XQY0	DPTLK2+10
>> Y	DPTLK2+17, DPTLK2+18, DPTLK2+21, ASKADD+1, ASKID+15, SKIP, HLPID+2*, P1+2, P1+4

Customize PDF page

Package: Registration

Routine: DPTLK2

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
CHKIT	; do input transform for .301
P1
HLPID
ASKID
CHKID1
Q
CHKID
DEL	;Delete logic
SKIP
ASKADD