Routine: DGMTR

Information

DGMTR ;ALB/RMO,CAW,SCG,AEG,SCG,AEG,LBD,BDB,HM,DSB - Check Means Test Requirements;7/8/05 2:30pm ; 18 Jan 2020 12:52 PM

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 28

Package	Total	Caller Graph
Registration	22	DG10 DG5300PT DG53130P DG53285 DG53401P DGDIS DGEN DGENELA4 DGMTA DGMTCOR DGMTCOU1 DGMTDOM DGMTR1 DGMTREQB DGMTU DGMTU4 DGPMV1 DGPTFVC1 DGPTUTL DGREG0 DGRPD DGRPDB
Income Verification Match	3	IVMCM6 IVMCMD1 IVMCQ
Enrollment Application System	2	EASECMT EASMTRP3
Scheduling	1	SCDXUTL0

Entry Points

Name	Comments	DBIA/ICR reference
EN		ICR #4688 Status: Active Usage: Controlled Subscription
DOM		ICR #5383 Status: Retired Usage: Controlled Subscription
DOM1
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
SCQ
ADD	;Add a required means test
REQ	;Update means test status to REQUIRED
AUTOCOMP(DGMTI)	;
NOL	;Update means test status to NO LONGER REQUIRED
NOLQ
SET	;Set Cross-reference
KILL	;Kill Cross-reference
QUE	;Queue means test event driver
SELIG	;Check if secondary eligibility code missing from ELIGIBILITY CODE

External References

Name	Field # of Occurrence
^%ZTLOAD	QUE+7
$$STATUS^DGENA	EN+31, SC+25
$$UPD^DGENDBS	ADD+6, AUTOCOMP+42, AUTOCOMP+50, NOL+10
ADD^DGMTA	ADD+4
$$IVMCVT^DGMTCOR	NOL+2
EN^DGMTCOR	EN+15, EN+43
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+35, EN+36
$$OLDMTPF^DGMTU4	EN+22
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+24, EN+26, EN+28, SC+12, SC+15, SC+17, SC+19 , SC+21, SC+29

Label References

Name	Line Occurrences
$$AUTOCOMP	REQ+4
$$SC	EN+7
ADD	EN+35, EN+40
DOM	EN+17
NOL	EN+41
NOLQ	NOL+2
QUE	ADD+8, REQ+12, NOL+11
REQ	EN+36
SCQ	SC+13, SC+15, SC+17, SC+19, SC+21, SC+23, SC+25
SELIG	SC+29

Naked Globals

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+24, EN+26, EN+28, EN+31, SC~ , SC+12, SC+15, SC+17, SC+19, SC+21, SC+25, SC+29, ADD+7, ADD+9, REQ+8 , AUTOCOMP+8~, AUTOCOMP+14*, AUTOCOMP+47, AUTOCOMP+51, NOL+13
DG	SC+9~, SC+28, SC+29, SELIG+4, SELIG+5, SELIG+10
>> DGADDF	EN+37, EN+39, EN+40, REQ+6*
DGCS	EN~, EN+18, EN+22, EN+35, EN+36, EN+37, EN+39, EN+40, EN+41, REQ+7 , REQ+10
DGDOM	EN~, EN+17, EN+41, DOM1+1*
>> DGDOM1	DOM1+1*
DGE	SC+9~
DGE(	SC+28*, SC+29
>> DGENRYN	EN+30, EN+31, SC+23, SC+24
>> DGENUPLD	QUE+6
DGF	SC+9~, SC+29, 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+40, EN+41
>> 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+22, EN+35, EN+36, EN+37 , EN+39
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+37
DGMTP	ADD+1~, REQ+3~, NOL+7~
DGMTYPT	EN~, EN+5, ADD+5, REQ+11*
>> DGNOCOPF	EN+19, EN+20, EN+37, EN+39
>> 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+24, EN+26, EN+28 , EN+30, EN+31, EN+35, EN+36, EN+37, EN+39, EN+40, EN+41
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+41
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+22, EN+40
RET	AUTOCOMP+8~, AUTOCOMP+9, AUTOCOMP+10, AUTOCOMP+12, AUTOCOMP+23, AUTOCOMP+36*, AUTOCOMP+52
>> RXPRIME	EN+4
STATUS	EN+31~, SC+25
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+24, EN+26, EN+28, EN+37, EN+39, 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+23, SC+25 , SC+29*, 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