Routine: DGJTVW1

Package	Total	Call Graph
Incomplete Records Tracking	3	(1,CODBY,CODDT,COM,STAT1)^DGJTVW (,TMP)^DGJTVW2 ^DGJTVW3
Registration	3	CA^DGPMV PID^VADPT6 ($$SETSTR,FULL)^VALM1
Uncategorized	1	LATEST^RTUTL3
VA Fileman	1	^DIE

Package	Total	Caller Graph
Incomplete Records Tracking	2	DGJTEE1 DGJTVW

Entry Points

Name	Field # of Occurrence
1^DGJTVW	CK+2
CODBY^DGJTVW	EN+32
CODDT^DGJTVW	EN+32
COM^DGJTVW	EN+34
STAT1^DGJTVW	STAT+1, DISTS
^DGJTVW2	EN+5
TMP^DGJTVW2	EN+14, EN+22, EN+30, EN+33, STAT
^DGJTVW3	EDIT+4
CA^DGPMV	DISTS
^DIE	EDIT1
LATEST^RTUTL3	EN+6
PID^VADPT6	EN+4
$$SETSTR^VALM1	EN+9, EN+11, EN+13, EN+14, EN+17, EN+19, EN+21, EN+22, EN+25, EN+27 , EN+29, EN+30, EN+33, STAT
FULL^VALM1	EDIT+1

Name	Line Occurrences
Function Call: READ	Prompt: "Hit return to continue " Formatting: !! Timeout: DTIME Variable: X Line Location: CK+1
Function Call: READ	Prompt: "Hit return to continue " Formatting: !! Timeout: DTIME Variable: X Line Location: CK+3
Function Call: WRITE	Prompt: !!?3,"When editing this section you must edit/create a new Treating Specialty" Line Location: MESS+0
Function Call: WRITE	Prompt: !,"Entering '^' at any prompt will exit you out of the " Line Location: MESS+1
Function Call: WRITE	Prompt: "treating Specialty edit only" Line Location: MESS+2
Routine Call	DIE Line Location: EDIT1

FileNo	Call Tags
^VAS(393 - [#393]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+28, CK+3
^DG(40.8 - [#40.8]	EN+3
^DIC(45.7 - [#45.7]	EN+10
^DPT - [#2]	EN+4
^TMP("DGJRPT"	QUIT1!
^TMP("RPTIDX"	QUIT1!
^VA(200 - [#200]	EN+18, EN+26
^VAS(393 - [#393]	EN, EN+1, EN+2, EN+3, EN+33
^VAS(393.3 - [#393.3]	EN+8, EN+15, EN+23, ALLEDIT+1, ALLEDIT+2, EDIT+2
^XUSEC("DGJ TS UPDATE"	EN+8, EN+15, EN+23, CK+1

Name	Field # of Occurrence
^("DT"	EN+3
^(0	EN+10, EN+18, EN+26

Name	Field # of Occurrence
%	QUIT1!
D	QUIT1!
D0	QUIT1!
DA	QUIT1!, EDIT1*
>> DFN	EN*, EN+6
DGJT1	QUIT1!, CK+2*
DGJTCL	EN+4*, QUIT1!
>> DGJTDEF	EDIT+4
>> DGJTDEL	EN+3*, EN+23, EN+25, EN+26, EN+27
DGJTEDT	EN, EN+1, EN+2, EN+3, EN+33, QUIT1!, EDIT1
>> DGJTFL	EN+4*
DGJTHDR	EN+4*, QUIT1!
DGJTNDT	EN+1, EN+2, QUIT1!
DGJTNM	EN+4*, QUIT1!
DGJTNO	EN*, EN+4, EN+8, EN+10, EN+15, EN+18, EN+23, EN+26, ALLEDIT+1, ALLEDIT+2 , EDIT+2, QUIT1!, DISTS
DGJTNST	QUIT1!
DGJTNUM	ALLEDIT+1, ALLEDIT+2, EDIT+2, QUIT1!, CK, CK+3, CK+4, CK1, CK1+1
DGJTNUM1	QUIT1!, CK, CK+3, CK+4, CK1, CK1+1
DGJTPTID	EN+4*, QUIT1!
DGJTRC	QUIT1!
>> DGJTSEDT	DISTS
DGJTSF	STAT+2!
DGJTUP	ALLEDIT+1!, ALLEDIT+2!, QUIT1!, DISTS*, CK!, CK+4, CK1!
DGJTVIEW	EN+4, EN+8, EN+13, EN+15, EN+21, EN+23, EN+29, STAT, STAT+3!
DGJTXX	QUIT1!
DGJTYPX	QUIT1!
>> DGJVAL	EN+8, EN+9, EN+10, EN+11, EN+12, EN+14, EN+15, EN+17, EN+18, EN+19 , EN+20, EN+22, EN+23, EN+25, EN+26, EN+27, EN+28*, EN+30, CK+3
DGJX	QUIT1!
>> DGPMCA	DISTS*
>> DGPMT	DISTS*
DGX	QUIT1!
>> DIC("S"	EDIT1!
DIE	QUIT1!, EDIT1*
DR	QUIT1!, EDIT1*!, EDIT1+1!
DTIME	CK+1, CK+3
>> DTOUT	ALLEDIT+1, ALLEDIT+2
DUZ	EN+8, EN+15, EN+23, CK+1
RTDATA	EN+12, EN+20, EN+28, EN+31!
RTE	EN+6*, EN+31!
RTYPE	EN+6*, EN+31!
VA	EN+4!, QUIT1!
VA("PID"	EN+4
>> VALMBCK	REDSP, EDIT+2, EDIT+4*
>> X	EN+3, EN+7, EN+9, EN+11, EN+13, EN+14, EN+16, EN+17, EN+19, EN+21 , EN+22, EN+24, EN+25, EN+27, EN+29, EN+30, EN+33, STAT, ALLEDIT+1, ALLEDIT+2 , CK+1, CK+3
Y	EN+28, QUIT1!, DISTS, CK+3