Routine: DGMTA

Call Graph Total: 18

Package	Total	Call Graph
Registration	11	$$INST^DGENU EN^DGMTCOR DEV^DGMTP (DOM1,EN)^DGMTR EN^DGMTSC ($$FUT,$$LST)^DGMTU $$VRCHKUP^DGMTU2 ALL^DGMTU21 $$GETSITE^DGMTU4 ($$LOCK,ISCNVRT,UNLOCK)^DGMTUTL CLOSE^DGUTQ
VA Fileman	5	^%DT ^%DTC ^DIC (FILE,YN)^DICN FILE^DIE
Income Verification Match	1	CKUPLOAD^IVMCUPL
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

$$INST^DGENU EN^DGMTCOR DEV^DGMTP (DOM1,EN)^DGMTR EN^DGMTSC ($$FUT,$$LST)^DGMTU $$VRCHKUP^DGMTU2 ALL^DGMTU21
$$GETSITE^DGMTU4 ($$LOCK,ISCNVRT,UNLOCK)^DGMTUTL CLOSE^DGUTQ

VA Fileman

^%DT ^%DTC ^DIC (FILE,YN)^DICN FILE^DIE

Income Verification Match

CKUPLOAD^IVMCUPL

Kernel

$$FMTE^XLFDT

Package	Total	Caller Graph
Registration	7	DG CO-PAY TEST ADD DG MEANS TEST ADD DGMTCOM DGMTCOU DGMTM DGMTR DGMTR1

Package

Total

Caller Graph

Registration

DG CO-PAY TEST ADD DG MEANS TEST ADD DGMTCOM DGMTCOU DGMTM DGMTR DGMTR1

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Entry point to add a new means test
ADDQ
Q
ADD	;Add means test ; Input -- DFN Patient IEN ; DGMTDT Date ; DGMTYPT Type of Test 1=MT 2=COPAY 4=LTC ; Output -- DGMTI Annual Means/Copay/LTC Test IEN	ICR #957 Status: Active Usage: Private
FTST	; Build message for future tests that are added to the system, but ; were not performed by the VAMC trying to add a new MT.
PRINT
DT2
DT
WHY	;Why Copay Test cannot be added

External References

Name	Field # of Occurrence
^%DT	DT
^%DTC	DT+3
$$INST^DGENU	FTST+3
EN^DGMTCOR	EN+22
DEV^DGMTP	PRINT+1
DOM1^DGMTR	DT+12
EN^DGMTR	EN+14
EN^DGMTSC	PRINT+3
$$FUT^DGMTU	EN+16
$$LST^DGMTU	EN+23, ADD+11
$$VRCHKUP^DGMTU2	ADD+40, ADD+41, ADD+42
ALL^DGMTU21	ADD+21
$$GETSITE^DGMTU4	ADD+17
$$LOCK^DGMTUTL	EN+12, ADD+8
ISCNVRT^DGMTUTL	ADD+23
UNLOCK^DGMTUTL	EN+3, Q+3, ADD+48
CLOSE^DGUTQ	PRINT+1
^DIC	EN+4
FILE^DICN	ADD+36
YN^DICN	DT2+1, PRINT
FILE^DIE	ADD+46
CKUPLOAD^IVMCUPL	EN+9
$$FMTE^XLFDT	EN+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+4
Function Call: WRITE	Prompt: !,"Patient died on: ",$$FMTE^XLFDT(DGMDOD,"1D") Line Location: EN+6
Function Call: WRITE	Prompt: !,*7,"A means test can only be added for patients who require one.",! Line Location: EN+14
Function Call: WRITE	Prompt: !!,*7,"A means test already exists and is in effect" Line Location: EN+19
Function Call: WRITE	Prompt: !!,*7,"A copay exemption test can only be added for applicable veterans.",!,I Line Location: EN+22
Function Call: WRITE	Prompt: ! Line Location: DT+0
Function Call: WRITE	Prompt: !?3,*7,"The date of test cannot be before "_$S(DGMTYPT=1:"7/1/1986.",1:"10/29/1992.") Line Location: DT+1
Function Call: WRITE	Prompt: !?3,*7,"The date of test cannot be before the last date of test on " Line Location: DT+2
Function Call: WRITE	Prompt: Y,"." Line Location: DT+2
Function Call: WRITE	Prompt: Y,"." Line Location: DT+4
Function Call: WRITE	Prompt: Y," has a status of required." Line Location: DT+21
Function Call: WRITE	Prompt: !?3,"Answer 'Y'es to continue adding new test." Line Location: DT2+2
Function Call: WRITE	Prompt: !,"Do you wish to print the prior means test" Line Location: PRINT+0
Function Call: WRITE	Prompt: !!,"This will print the prior means test information.",! Line Location: PRINT+0
Function Call: WRITE	Prompt: !?3,*7,"A future test already exists on " Line Location: FTST+6
Function Call: WRITE	Prompt: Y,"." Line Location: FTST+7
Function Call: WRITE	Prompt: !?3,"The "_DGTTYP_"Test was conducted at Site: ",SCT Line Location: FTST+15
Routine Call	DIC Line Location: EN+4
Routine Call	DIE Line Location: ADD+46

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DT+2, DT+4, DT+21, FTST+7
^DG(408.34 - [#408.34]	DT+6
^DGMT(408.31 - [#408.31]	DT+6, ADD+15, FTST+3, FTST+4
^DIC(4 - [#4]	FTST+17
^DPT - [#2]	EN+5

Name	Line Occurrences
ADD	PRINT+2
DT	DT+1, DT+2
DT2	DT2+2
EN	EN+14, EN+16, EN+19, EN+22, DT+3, DT+12, DT+20, PRINT+2
FTST	EN+16
PRINT	DT+9, PRINT
Q	EN+4, DT, PRINT

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DT+19~, DT+20!, DT2+1, DT2+2, DT2+4!, PRINT, PRINT+1
%DT	DT*!
%DT("A"	DT*
%DT("B"	DT*
%DT(0	DT*
>> %Y	PRINT
CONVRT	ADD+5~, ADD+40, ADD+41, ADD+42*
CURIEN	ADD+5~, ADD+11*, ADD+12, ADD+15
D0	ADD+5~
DA	Q!, ADD+5~
DD	ADD+5~, ADD+35!
DFN	EN+4*, EN+5, EN+9, EN+12, EN+16, EN+23, Q!, ADD+8, ADD+11, ADD+21 , ADD+31, ADD+34, ADD+48
DGADDF	EN+2*, EN+19, Q!
DGBL	Q!
DGDOM	DT+10~, DT+12!, DT+14!
DGDOM1	EN+14~!, EN+21!, DT+10~, DT+12!, DT+14!
DGERR	ADD+43~, ADD+45*, ADD+46
DGFL	Q!
DGFLD	Q!
>> DGINC	ADD+22, ADD+23
DGIRO	Q!
DGLD	EN+23*, DT+2, DT+3, DT+4, DT+20, DT+21, PRINT+1, Q!
DGLDT	EN+23*, DT+6, DT+20, PRINT, PRINT+1, Q!
DGLDYR	EN+23*, DT+3, DT+20, Q!
DGLNKMT	ADD+5~, ADD+11*, ADD+14
DGMDOD	EN+1~, EN+5, EN+6
DGMTACT	PRINT+3*, Q!
DGMTCOR	EN+22, Q!
DGMTDFN	EN+3!, EN+4*, Q+3!
DGMTDT	DT, DT+1, DT+2, DT+3, DT+11, DT+20, PRINT+1, Q!, ADD+11, ADD+14 , ADD+18, ADD+40, ADD+41, ADD+42
DGMTI	PRINT+1, PRINT+2, Q!, ADD+36, ADD+44
DGMTROU	PRINT+3*, Q!
DGMTRT	ADD+43~
DGMTRT(	ADD+44*
DGMTYPT	EN+14, EN+16, EN+21, EN+22, EN+23, DT+1, DT+5, DT+9, Q!, ADD+11 , ADD+29, ADD+30, ADD+31, ADD+33, ADD+34, ADD+40, ADD+41, ADD+42, FTST+2~, FTST+4* , FTST+5
>> DGOPT	PRINT+1*
DGREQF	EN+14, Q!
DGSITE	ADD+5~, ADD+17*, ADD+30, ADD+33
DGTTYP	DT+5, DT+6, Q!, FTST+2~, FTST+5, FTST+10, FTST+15
DGVI	Q!
DGVO	Q!
DGX	PRINT+1*!
DIC	EN+4!, ADD+5~, ADD+18
DIC("DR"	ADD+30, ADD+31, ADD+33, ADD+34
DIC(0	EN+4, ADD+18
DIK	ADD+5~, ADD+18*
DINUM	ADD+5~
DLAYGO	ADD+5~, ADD+18*
DO	ADD+5~, ADD+35!
DS	ADD+5~
DT	ADD+21
DUZ	ADD+17
FUTMT	EN+16~*, FTST+3, FTST+4, FTST+7, FTST+14
>> I	EN+22*
LINK	ADD+5~, ADD+11, ADD+15, ADD+30, ADD+33
SCT	FTST+2~, FTST+3*, FTST+9, FTST+13, FTST+15, FTST+17
SITE	FTST+2~, FTST+3*, FTST+9, FTST+13
SRC	FTST+2~, FTST+14*, FTST+17
>> TYPE	ADD+40, ADD+41, ADD+42
U	EN+5, EN+23, DT+6, PRINT, ADD+14, ADD+15, FTST+3, FTST+4, FTST+7, FTST+14 , FTST+17
VADMVT	DT+10~, DT+12!, DT+14!
VAINDT	DT+10~, DT+11*, DT+12!, DT+14!
X	DT+3, Q!, ADD+5~, ADD+18*
X1	DT+3*, Q!
X2	DT+3*, Q!
Y	EN+4, DT, DT+2, DT+4, DT+21, Q!, ADD+36, FTST+7

Customize PDF page

Package: Registration

Routine: DGMTA

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items