Routine: DGMTU

Package	Total	Call Graph
Registration	7	$$GETNAME^DGMTH DOM^DGMTR EN^DGMTSC ($$LST,$$MTS)^DGMTU ($$OLD,CHKPT)^DGMTU4 ($$LOCK,$$PA,UNLOCK)^DGMTUTL $$SITE^VASITE
Income Verification Match	1	($$OPEN,$$SENT,QRYQUE2)^IVMCQ2
VA Fileman	1	^DIR

Package

Total

Call Graph

Registration

$$GETNAME^DGMTH DOM^DGMTR EN^DGMTSC ($$LST,$$MTS)^DGMTU ($$OLD,CHKPT)^DGMTU4 ($$LOCK,$$PA,UNLOCK)^DGMTUTL $$SITE^VASITE

Income Verification Match

($$OPEN,$$SENT,QRYQUE2)^IVMCQ2

VA Fileman

^DIR

Package	Total	Caller Graph
Registration	64	DG10 DG53285 DG53289 DG53296D DG53358 DG53358A DG53358D DG53401P DG53426 DG53426D DG53426M DG53426N DG53591A DG53602S DG53S451 DGA4004 DGDIS DGEN DGENEGT1 DGENELA DGENELA4 DGMT LAST MEANS TEST DGMTA DGMTCOR DGMTCOST DGMTCOU DGMTCOU1 DGMTDEL DGMTDEL1 DGMTDELS DGMTEO DGMTH DGMTP DGMTP4 DGMTR DGMTR1 DGMTREM DGMTREQB DGMTSCC DGMTU DGMTU2 ^DPT DGMTDOM DGMTE DGMTOFA DGMTU21 DGMTU3 DGMTU4 DGMTUB DGMTV DGOINPT1 DGPTFVC1 DGPTOM2 DGPTUTL DGREG0 DGRP9 DGRPC2 DGRPD DGRPDB DGRPEIS2 DGRRLU1A DPTLK5 DPTLK6 VAFHLZMT
Scheduling	14	SCDXUTL0 SCRPEC SCRPO2 SCRPW25 SCRPW81 SCUTBK10 SDAL0 SDAMEP2 SDCLAS SDPPAT1 SDPPMT1 SDPPRT SDUTL2 SDWLTR
Integrated Billing	9	IB20PT86 IB20PT87 IBAMTBU2 IBAMTED IBCB IBCOPV2 IBERS2 IBOBCR6 IBOSTUS1
Automated Information Collection System	1	IBDFN2
Beneficiary Travel	1	DGBTE1
IHS Electronic Health Record	1	BEHOPTC1

Package

Total

Caller Graph

Registration

DG10  DG53285  DG53289  DG53296D  DG53358  DG53358A  DG53358D  DG53401P
DG53426  DG53426D  DG53426M  DG53426N  DG53591A  DG53602S  DG53S451  DGA4004
DGDIS  DGEN  DGENEGT1  DGENELA  DGENELA4  DGMT LAST MEANS TEST  DGMTA  DGMTCOR
DGMTCOST  DGMTCOU  DGMTCOU1  DGMTDEL  DGMTDEL1  DGMTDELS  DGMTEO  DGMTH
DGMTP  DGMTP4  DGMTR  DGMTR1  DGMTREM  DGMTREQB  DGMTSCC  DGMTU
DGMTU2  ^DPT  DGMTDOM  DGMTE  DGMTOFA  DGMTU21  DGMTU3  DGMTU4
DGMTUB  DGMTV  DGOINPT1  DGPTFVC1  DGPTOM2  DGPTUTL  DGREG0  DGRP9
DGRPC2  DGRPD  DGRPDB  DGRPEIS2  DGRRLU1A  DPTLK5  DPTLK6  VAFHLZMT

Scheduling

SCDXUTL0 SCRPEC SCRPO2 SCRPW25 SCRPW81 SCUTBK10 SDAL0 SDAMEP2
SDCLAS SDPPAT1 SDPPMT1 SDPPRT SDUTL2 SDWLTR

Integrated Billing

IB20PT86 IB20PT87 IBAMTBU2 IBAMTED IBCB IBCOPV2 IBERS2 IBOBCR6
IBOSTUS1

Automated Information Collection System

IBDFN2

Beneficiary Travel

DGBTE1

IHS Electronic Health Record

BEHOPTC1

Entry Points

Name	Comments	DBIA/ICR reference
DISQ
MTS(DFN,DGMTS)	;MT status -- default current ; Input -- DFN Patient IEN ; DGMTS Means Test Status IEN (Optional) ; Output -- Status Name^Status Code	ICR #642 Status: Active Usage: Controlled Subscription ICR #974 Status: Active Usage: Private
DIS(DFN)	;Display patients current MT status, ; eligibility for care, deductible information, ; date of test and date of completion ; Input -- DFN Patient IEN ; Output -- None	ICR #420 Status: Active Usage: Private ICR #3789 Status: Active Usage: Controlled Subscription
MFLG(DGMTDATA)	;Set up appropriate informational message flag for user's
EDT(DFN,DGDT)	;Display patients current MT information and provide ; the user with the option of proceeding with a required ; MT or editing an existing means test ; Input -- DFN Patient IEN ; DGDT Date/Time ; Output -- None
EDTQ
MSG2	;Informational message 2
CMTS(DFN)	;Get Current MT Status - query HEC if necessary
QFLG(DGMTDATA)	;
FUT(DFN,DGDT,DGMTYPT)	; Future MT for a patient	ICR #3523 Status: Active Usage: Supported
LST(DFN,DGDT,DGMTYPT)	;Last MT for a patient ; Input -- DFN Patient IEN ; DGDT Date/Time (Optional- default today@2359) ; DGMTYPT Type of Test (Optional - if not defined ; Means Test will be assumed) ; Output -- Annual Means Test IEN^Date of Test ; ^Status Name^Status Code^Source of Test	ICR #642 Status: Active Usage: Controlled Subscription ICR #701 Status: Active Usage: Controlled Subscription ICR #761 Status: Active Usage: Private ICR #3326 Status: Active Usage: Private
MSG1	;Informational message 1
LVMT(DFN,DGDT)	;Last valid MT (status other than required) ; Input -- DFN Patient IEN ; DGDT Date (Optional - default today) ; Output -- Annual Means Test IEN^Date of Test^Status Name ; ^Status Code
NVMT(DFN,DGDT)	;Next valid MT (status other than required) ; Input -- DFN Patient IEN ; DGDT Date (Required) ; Output -- Annual Means Test IEN^Date of Test^Status Name ; ^Status Code

External References

Name	Field # of Occurrence
$$GETNAME^DGMTH	DIS+13
DOM^DGMTR	MFLG+21, QFLG+18
EN^DGMTSC	EDT+20
$$LST^DGMTU	LVMT+6, LVMT+7, DIS+7, EDT+14
$$MTS^DGMTU	NVMT+8, FUT+22, FUT+23
$$OLD^DGMTU4	MFLG+18, QFLG+10
CHKPT^DGMTU4	CMTS+7
$$LOCK^DGMTUTL	EDT+10, CMTS+16
$$PA^DGMTUTL	DIS+11
UNLOCK^DGMTUTL	EDTQ+3, CMTS+19
^DIR	EDT+19
$$OPEN^IVMCQ2	CMTS+15
$$SENT^IVMCQ2	CMTS+15
QRYQUE2^IVMCQ2	CMTS+17
$$SITE^VASITE	EDT+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Means Test Signed?: ",$S(MTSIG=1:"YES",MTSIG=0:"NO",MTSIG=9:"DELETED",1:"") Line Location: DIS+9
Function Call: WRITE	Prompt: !!,"Patient Requires a Means Test" Line Location: DIS+10
Function Call: WRITE	Prompt: !!,"Patient's Means Test is Pending Adjudication for "_$$PA^DGMTUTL(DGMTI) Line Location: DIS+11
Function Call: WRITE	Prompt: !!,"Means Test Not Required" Line Location: DIS+12
Function Call: WRITE	Prompt: !!,"Patient's status is ",$$GETNAME^DGMTH(DGCS)," based on primary means test" Line Location: DIS+13
Function Call: WRITE	Prompt: !,^("MSG") Line Location: DIS+14
Function Call: WRITE	Prompt: ! Line Location: DIS+15
Function Call: WRITE	Prompt: "Has",$S(DGDED:"",1:" not")," agreed to pay the deductible" Condition for execution: DGDED]"" Line Location: DIS+15
Function Call: WRITE	Prompt: !,"Primary Means Test ",$S(DGCS=1:"Required from",1:"Last Applied")," '",Y,"'" Line Location: DIS+16
Function Call: WRITE	Prompt: " (COMPLETED: ",Y,")" Line Location: DIS+17
Function Call: WRITE	Prompt: " (NO LONGER REQUIRED: ",Y,")" Line Location: DIS+18
Function Call: WRITE	Prompt: ! Line Location: EDT+19
Function Call: WRITE	Prompt: !!,"Financial query queued to be sent to HEC...",! Line Location: CMTS+18
Function Call: WRITE	Prompt: !!,$C(7),?15,"* Patient Requires a Means Test *",! Line Location: MSG1+3
Function Call: WRITE	Prompt: !,?14,"Primary Means Test Required from "_Y,! Line Location: MSG1+4
Function Call: WRITE	Prompt: !!,$C(7),?17,"* Patient Requires a Means Test *",! Line Location: MSG2+3
Function Call: WRITE	Prompt: !,?10,"Patient's Test dated "_Y_" is "_$P(DGMTDATA,U,3)_"."_" The test" Line Location: MSG2+4
Function Call: WRITE	Prompt: !,?10,"date is greater than 365 days old. Please update." Line Location: MSG2+5
Routine Call	DIR Line Location: EDT+19

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DIS+16, DIS+17, DIS+18, MSG1+4, MSG2+4
^DG(408.32 - [#408.32]	MTS+6, DIS+14
^DGMT(408.31 - [#408.31]	LST+9, LST+10, LST+11, NVMT+7, NVMT+8, DIS+7, EDT+15, EDT+16, MFLG+16, MFLG+23 , MSG1+2, MSG2+2, QFLG+5, FUT+20, FUT+21
^DPT - [#2]	MTS+5, DIS+6, CMTS+10
^IVM(301.5	FUT+17, FUT+19

Name	Line Occurrences
$$FUT	MFLG+22
$$LST	EDT+13, CMTS+8, CMTS+20
$$MFLG	CMTS+21, CMTS+22
$$MTS	LST+11
$$QFLG	CMTS+14
@(	CMTS+24
DIS	EDT+12
DISQ	DIS+6
EDTQ	EDT+14, EDT+15, EDT+19

Name	Field # of Occurrence
^("MSG"	DIS+14
^("PRIM"	LST+11, NVMT+8
^(0	LST+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARR	FUT+9~, FUT+15*
ARR(	FUT+23*, FUT+24
ARR(""	FUT+24
DFN	LST~, LST+9, LST+10, LST+11, LVMT~, LVMT+6, LVMT+7, NVMT~, NVMT+7, NVMT+8 , MTS~, MTS+5, DIS~, DIS+6, DIS+7, EDT~, EDT+10, EDT+12, EDT+13, EDT+14 , EDTQ+3, CMTS~, CMTS+7, CMTS+8, CMTS+10, CMTS+15, CMTS+16, CMTS+17, CMTS+19, CMTS+20 , MFLG+22, FUT~, FUT+17, FUT+19, FUT+22, FUT+23
DGCS	DIS+5~, DIS+6*, DIS+10, DIS+11, DIS+12, DIS+13, DIS+14, DIS+15, DIS+16, DIS+17 , DIS+18
DGDED	DIS+5~, DIS+15*
DGDOD	CMTS+6~, CMTS+10*, CMTS+11
>> DGDOM	MFLG+21, QFLG+18
DGDT	LST~, LST+8, LVMT~, LVMT+6, LVMT+7, NVMT~, NVMT+6, EDT~, EDT+13, FUT~ , FUT+14
DGDTE	NVMT+5~, NVMT+6, NVMT+7, NVMT+8
DGIDT	LST+7~, LST+8, LST+9, LST+10, FUT+9~, FUT+14, FUT+16, FUT+17*, FUT+19
DGMFLG	CMTS+6~, CMTS+15, CMTS+22*, CMTS+23
>> DGMSGF	CMTS+18, CMTS+24
DGMT	LVMT+5~, LVMT+7, LVMT+8, NVMT+5~, NVMT+7, NVMT+8, NVMT+9
DGMT0	NVMT+5~, NVMT+8, DIS+5~, DIS+7, DIS+8, DIS+15, DIS+16, DIS+17, DIS+18, EDT+16* , EDTQ!, MFLG+14~, MFLG+16, MFLG+19, MFLG+20, QFLG+3~, QFLG+5, QFLG+13, QFLG+16
DGMTACT	EDT+20*, EDTQ!
DGMTDATA	CMTS+6~, CMTS+8, CMTS+11, CMTS+13, CMTS+14, CMTS+20, CMTS+21, CMTS+22, CMTS+25, MFLG~ , MFLG+15, MFLG+16, MFLG+17, MFLG+18, MFLG+19, MFLG+20, MSG1+2, MSG2+2, MSG2+4, QFLG~ , QFLG+4, QFLG+5, QFLG+7, QFLG+10, QFLG+13, QFLG+16
DGMTDT	EDT+16*, EDTQ!
DGMTFL1	LST+7~, LST+9, LST+10, LST+11*
DGMTI	LST+7~, LST+10, LST+11, NVMT+5~, NVMT+8, DIS+5~, DIS+7, DIS+11, EDT+13, EDT+14 , EDT+15, EDT+16, EDTQ!
DGMTL	LVMT+5~, LVMT+6*, LVMT+7, LVMT+8
DGMTPR	NVMT+5~, NVMT+8*
DGMTROU	EDT+20*, EDTQ!
DGMTS	NVMT+5~, NVMT+8, MTS~, MTS+5, MTS+6, EDT+16*, EDT+17, EDT+18, EDTQ!
DGMTYPT	LST~, LST+7, LST+9, LST+10, LST+11, EDT+20, CMTS+6~, CMTS+8, CMTS+20, FUT~ , FUT+10, FUT+12, FUT+13
DGNOD	LST+7~, LST+11*
>> DGPRFLG	EDT+18
DGQSENT	CMTS+6~, CMTS+17*, CMTS+18
DGRET	CMTS+6~, MSG1+5, MSG2+6
DGRETV	MFLG+14~, MFLG+15, MFLG+17, MFLG+18, MFLG+19, MFLG+20, MFLG+21, MFLG+23, MFLG+24, QFLG+16
DGTAG	CMTS+6~, CMTS+23*, CMTS+24
DIR	EDTQ!
DIR("A"	EDT+17*
DIR("B"	EDT+18*
DIR(0	EDT+18*
DONE	FUT+9~, FUT+14, FUT+17, FUT+19, FUT+22, FUT+23, FUT+24
DT	LST+8, LVMT+6, FUT+14
DTIME	MSG1+5, MSG2+6
DTOUT	EDT+19, EDTQ!
DUOUT	EDT+19, EDTQ!
DUZ	CMTS+17
FTST	MFLG+14~, MFLG+22*, MFLG+23
IOST	MSG1+5, MSG2+6
IVMQFLG	QFLG+3~, QFLG+4, QFLG+7, QFLG+10, QFLG+13, QFLG+18*, QFLG+19
>> IVMZ10	CMTS+15
LAST	FUT+9~, FUT+15, FUT+24
MTIEN	FUT+9~, FUT+18, FUT+19, FUT+20, FUT+21, FUT+22, FUT+23
MTNOD	FUT+9~, FUT+21*, FUT+22, FUT+23
>> MTSIG	DIS+8*, DIS+9
NODE0	CMTS+6~, MSG1+1~, MSG1+2, MSG1+4, MSG2+1~, MSG2+2, MSG2+4
SRCE	FUT+9~, FUT+21*, FUT+22
TYPTST	FUT+9~, FUT+13*, FUT+17, FUT+19
U	LVMT+7, EDT+13, EDT+15, CMTS+10, MFLG+17, MFLG+18, MFLG+19, MFLG+20, MFLG+23, MSG1+4 , MSG2+4, QFLG+7, QFLG+10, QFLG+13, QFLG+16, FUT+21, FUT+22, FUT+23
VSITE	EDT+9~, EDT+13*, EDT+15
X	CMTS+6~
>> XQY	CMTS+17
Y	LST+7~, LST+11, LST+12, MTS+4~, MTS+6, MTS+7, DIS+16, DIS+17, DIS+18, EDT+20 , EDTQ!, CMTS+6~, MSG1+1~, MSG1+4, MSG2+1~, MSG2+4, FUT+9~, FUT+15, FUT+22, FUT+24 , FUT+25
>> ZTQUEUED	CMTS+18

Customize PDF page

Package: Registration

Routine: DGMTU

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 90

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: