Routine: DGMTR

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Registration	10	$$UPD^DGENDBS ADD^DGMTA ($$IVMCVT,EN)^DGMTCOR (AFTER,PRIOR)^DGMTEVT ($$GETCODE,$$GETNAME,$$GETSTAT)^DGMTH (COPYRX,MAIL)^DGMTR1 $$LST^DGMTU $$VRCHKUP^DGMTU2 ($$OLD,GETINCOM,SAVESTAT)^DGMTU4 ADM^VADPT2
Income Verification Match	1	($$OPEN,$$SENT,QRYQUE2)^IVMCQ2
Kernel	1	^%ZTLOAD

Package	Total	Caller Graph
Registration	22	^DPT DG10 DG53285 DG53358A DG53401P DG53426E DGDIS DGEN DGENELA4 DGMTA DGMTCOR DGMTCOU1 DGMTDOM DGMTR1 DGMTREQB DGMTU DGMTU4 DGPTFVC1 DGPTUTL DGREG0 DGRPD DGRPDB
Integrated Billing	2	DISPOSITION LOG-IN DATE/TIME PATIENT ELIGIBILITIES
IHS Electronic Health Record	1	BEHOPTC1
Scheduling	1	SCDXUTL0

Package

Total

Caller Graph

Registration

^DPT  DG10  DG53285  DG53358A  DG53401P  DG53426E  DGDIS  DGEN
DGENELA4  DGMTA  DGMTCOR  DGMTCOU1  DGMTDOM  DGMTR1  DGMTREQB  DGMTU
DGMTU4  DGPTFVC1  DGPTUTL  DGREG0  DGRPD  DGRPDB

Integrated Billing

DISPOSITION LOG-IN DATE/TIME PATIENT ELIGIBILITIES

IHS Electronic Health Record

BEHOPTC1

Scheduling

SCDXUTL0

Entry Points

Name	Comments	DBIA/ICR reference
NOL	;Update means test status to NO LONGER REQUIRED
AUTOCOMP(DGMTI)	;
EN		ICR #4688 Status: Active Usage: Controlled Subscription
DOM		ICR #5383 Status: Pending Usage: Controlled Subscription
SC(DFN)	;Check if patient is SC 0% non-compensable ; Input -- DFN Patient IEN ; Output -- 1=Yes and 0=No ; No if: ; No total annual VA check amount ; POW STATUS INDICATOR is yes ; Secondary Eligibility is one of the following: ; A&A, NSC, VA PENSION ; HOUSEBOUND, MEXICAN BORDER WAR, WWI, POW	ICR #3481 Status: Active Usage: Controlled Subscription
NOLQ
REQ	;Update means test status to REQUIRED
SELIG	;Check if secondary eligibility code missing from ELIGIBILITY CODE
ADD	;Add a required means test
SET	;Set Cross-reference
KILL	;Kill Cross-reference
DOM1
QUE	;Queue means test event driver
SCQ

External References

Name	Field # of Occurrence
^%ZTLOAD	QUE+7
$$UPD^DGENDBS	ADD+6, AUTOCOMP+42, AUTOCOMP+50, NOL+10
ADD^DGMTA	ADD+4
$$IVMCVT^DGMTCOR	NOL+2
EN^DGMTCOR	EN+15, EN+36
AFTER^DGMTEVT	QUE+1
PRIOR^DGMTEVT	ADD+3, REQ+3, NOL+7
$$GETCODE^DGMTH	AUTOCOMP+18
$$GETNAME^DGMTH	REQ+10
$$GETSTAT^DGMTH	ADD+6, AUTOCOMP+21, AUTOCOMP+27, AUTOCOMP+34
COPYRX^DGMTR1	NOL+13
MAIL^DGMTR1	SELIG+7, SELIG+12
$$LST^DGMTU	EN+10
$$VRCHKUP^DGMTU2	AUTOCOMP+30, AUTOCOMP+40
$$OLD^DGMTU4	EN+21
GETINCOM^DGMTU4	ADD+7, AUTOCOMP+51
SAVESTAT^DGMTU4	NOL+9
$$OPEN^IVMCQ2	ADD+9, REQ+8
$$SENT^IVMCQ2	ADD+9, REQ+8
QRYQUE2^IVMCQ2	ADD+9, REQ+8
ADM^VADPT2	DOM1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Financial query queued to be sent to HEC..." Line Location: ADD+9
Function Call: WRITE	Prompt: !!,"Financial query queued to be sent to HEC..." Line Location: REQ+8
Function Call: WRITE	Prompt: !,"MEANS TEST REQUIRED" Line Location: REQ+9
Function Call: WRITE	Prompt: !,"CURRENT MEANS TEST STATUS IS ",$$GETNAME^DGMTH(DGCS) Line Location: REQ+10
Function Call: WRITE	Prompt: !,"IVM MEANS TEST EXISTS, BUT VISTA CALCULATES 'NO LONGER REQUIRED'",!,"CONTACT IVM TO CLEAR UP THE DISCREPANCY - YOU CANNOT UPDATE AN IVM TEST" Line Location: NOL+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	SET+3, KILL+3
^DG(43 - [#43]	DOM1+1
^DGMT(408.22 - [#408.22]	AUTOCOMP+47
^DGMT(408.31 - [#408.31]	EN+11, REQ+7, AUTOCOMP+11, AUTOCOMP+16
^DGPM - [#405]	DOM1+1
^DIC(42 - [#42]	DOM1+1
^DIC(8 - [#8]	EN+7, SC+12, SELIG+4
^DIC(8.1 - [#8.1]	SELIG+9
^DPT - [#2]	EN+6, EN+14, EN+16, EN+23, EN+25, EN+27, SC+12, SC+15, SC+17, SC+19 , SC+21, SC+24

Name	Line Occurrences
$$AUTOCOMP	REQ+4
$$SC	EN+7
ADD	EN+33
DOM	EN+17
NOL	EN+34
NOLQ	NOL+2
QUE	ADD+8, REQ+12, NOL+11
REQ	EN+29
SCQ	SC+13, SC+15, SC+17, SC+19, SC+21
SELIG	SC+24

Name	Field # of Occurrence
^(	EN+6, SC+12, SET+3, KILL+3
^(0	DOM1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AUTOCOMP	REQ+1~, REQ+4*, REQ+6, REQ+7, REQ+8, REQ+9, REQ+10
CODE	AUTOCOMP+8~, AUTOCOMP+18*, AUTOCOMP+22, AUTOCOMP+27, AUTOCOMP+28, AUTOCOMP+35, AUTOCOMP+38
>> CONVRT	AUTOCOMP+30, AUTOCOMP+40
D0	SET+1~, KILL+1~
DA	SET+1~, SET+2, KILL+1~, KILL+2
DATA	ADD+6~, AUTOCOMP+8~, AUTOCOMP+42, AUTOCOMP+48!, AUTOCOMP+50, NOL+1~, NOL+10
DATA(	ADD+6, AUTOCOMP+21, AUTOCOMP+24, AUTOCOMP+27, AUTOCOMP+31, AUTOCOMP+34, AUTOCOMP+37, AUTOCOMP+41, NOL+10*
DATA(31	AUTOCOMP+49*
DFN	EN+6, EN+7, EN+10, EN+14, EN+16, EN+23, EN+25, EN+27, SC~, SC+12 , SC+15, SC+17, SC+19, SC+21, SC+24, ADD+7, ADD+9, REQ+8, AUTOCOMP+8~, AUTOCOMP+14* , AUTOCOMP+47, AUTOCOMP+51, NOL+13
DG	SC+9~, SC+23, SC+24, SELIG+4, SELIG+5, SELIG+10
>> DGADDF	EN+30, EN+32, EN+33, REQ+6*
DGCS	EN~, EN+18, EN+21, EN+29, EN+30, EN+32, EN+33, EN+34, REQ+7, REQ+10
DGDOM	EN~, EN+17, EN+34, DOM1+1*
>> DGDOM1	DOM1+1*
DGE	SC+9~
DGE(	SC+23*, SC+24
>> DGENUPLD	QUE+6
DGF	SC+9~, SC+24, SELIG+4, SELIG+9, SELIG+13*
>> DGFL	SET+3, KILL+3
>> DGFLD	SET+3, KILL+3
>> DGIEN	SET+2, KILL+2
DGINI	AUTOCOMP+8~, AUTOCOMP+47*, NOL+1~
DGINR	AUTOCOMP+8~, AUTOCOMP+47*, AUTOCOMP+50, NOL+1~
DGIX	SET+1~, SET+2, SET+3, KILL+1~, KILL+2, KILL+3
DGMDOD	EN~, EN+14*, EN+15, EN+20, EN+33, EN+34
>> DGMSGF	ADD+2, ADD+9, REQ+8, REQ+9, REQ+10, AUTOCOMP+42, NOL+5
DGMT0	EN~, EN+10, EN+11, EN+13, EN+18, EN+19, EN+21, EN+30, EN+32
DGMTA	ADD+1~, REQ+1~, NOL+1~
DGMTACT	ADD+1~, ADD+3, REQ+3~, NOL+7~*
DGMTCOR	EN+4~
DGMTDT	EN~, EN+13, ADD+1~, ADD+4, NOL+1~
DGMTE	REQ+1~
DGMTI	EN~, EN+10*, EN+11, EN+13, EN+15, ADD+1~, ADD+5, ADD+6, REQ+4, REQ+7 , AUTOCOMP~, AUTOCOMP+10, AUTOCOMP+11, AUTOCOMP+16, AUTOCOMP+42, AUTOCOMP+49, NOL+2, NOL+9, NOL+10, NOL+13
DGMTLTD	EN~, EN+19*, EN+30
DGMTP	ADD+1~, REQ+3~, NOL+7~
DGMTYPT	EN~, EN+5, ADD+5, REQ+11*
>> DGNOCOPF	EN+19, EN+20, EN+30, EN+32
>> DGNOIVMUPD	NOL+2, NOL+4*
DGQSENT	EN~, EN+5, ADD+9, REQ+8*
>> DGREQF	EN+5, EN+7, EN+8, EN+9, EN+15, EN+16, EN+17, EN+23, EN+25, EN+27 , EN+29, EN+30, EN+32, EN+33, EN+34
DGRGAUTO	EN~
DGTXT	SELIG+3~
DGTXT(4	SELIG+5, SELIG+10
DGTXT(5	SELIG+6, SELIG+11
>> DGVAL	SET+2, SET+3, KILL+2, KILL+3
DIV	SET+1~, KILL+1~
DT	ADD+4, ADD+7, NOL+10
DUZ	ADD+9, REQ+8
ERROR	ADD+1~, REQ+1~, AUTOCOMP+8~, AUTOCOMP+42
>> I	QUE+3*
>> IVMZ10	ADD+9, REQ+8, QUE+5
>> IVMZ10F	EN+34
LINKIEN	AUTOCOMP+8~, AUTOCOMP+45*, AUTOCOMP+46, AUTOCOMP+47
>> MTPRIME	REQ+3, NOL+7
NODE0	AUTOCOMP+8~, AUTOCOMP+11*, AUTOCOMP+12, AUTOCOMP+13, AUTOCOMP+14, AUTOCOMP+15, AUTOCOMP+26, AUTOCOMP+27
NODE2	AUTOCOMP+8~, AUTOCOMP+16*, AUTOCOMP+18, AUTOCOMP+24, AUTOCOMP+37, AUTOCOMP+45
OLD	EN~, EN+5, EN+21, EN+29, EN+33
RET	AUTOCOMP+8~, AUTOCOMP+9, AUTOCOMP+10, AUTOCOMP+12, AUTOCOMP+23, AUTOCOMP+36*, AUTOCOMP+52
>> RXPRIME	EN+4
TDATE	AUTOCOMP+8~, AUTOCOMP+15*, AUTOCOMP+30, AUTOCOMP+40, AUTOCOMP+51
TYPE	AUTOCOMP+8~, AUTOCOMP+13*, AUTOCOMP+20, AUTOCOMP+33
U	EN+13, EN+14, EN+23, EN+25, EN+27, EN+30, EN+32, AUTOCOMP+27
VADMVT	DOM~, DOM1+1
>> VAFCA08	EN+2
VAINDT	DOM~
X	EN+6, EN+7, EN+8, EN+9, SET+1~, SET+2, SET+3, KILL+1~, KILL+2, KILL+3*
>> XQY	ADD+9, REQ+8
Y	SC+9~, SC+10, SC+12, SC+13, SC+15, SC+17, SC+19, SC+21, SC+24*, SCQ
ZTDESC	QUE+2*, QUE+8!
ZTDTH	QUE+2*, QUE+8!
ZTIO	QUE+7*, QUE+8!
>> ZTQUEUED	ADD+9, REQ+8
ZTRTN	QUE+2*, QUE+8!
ZTSAVE	QUE+8!
ZTSAVE(	QUE+3*
ZTSAVE("DGENUPLD"	QUE+6*
ZTSAVE("DGMTINF"	QUE+4*
ZTSAVE("IVMZ10"	QUE+5*
ZTSK	QUE+8!

Customize PDF page

Package: Registration

Routine: DGMTR

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 26

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: