Global: ^DGMT(408.31

FileMan FileNo	FileMan Filename	Package
408.31	ANNUAL MEANS TEST	Enrollment Application System

Package	Total	Routines
Registration	102	DG10 DG1010P DG272PT DG311PIR DG5300PT DG53285 DG53318P DG53401P DG53426 DG53558M DG53558N DG53661P DGA4004 DGDEP2 DGENELA DGMT ENTER/EDIT CATEGORY DGMTA DGMTCOST DGMTCOU DGMTCOU1 DGMTDD3 DGMTDEL DGMTDEL1 DGMTE DGMTEVT DGMTH DGMTHL1 DGMTHLP DGMTOFA DGMTOHD DGMTOPYT DGMTOREQ DGMTSC4V DGMTSCC DGMTSCU2 DGMTU DGMTU11 DGMTU21 DGMTU23 DGMTU3 DGMTUB DGMTUTL DGMTUTL1 DGMTUTL2 DGMTUTL3 DGMTV DGMTXC1 DGMTXX31 DGPMGLG5 DGYRCOV ^DGMT(408.41 DG284PT DG53130P DG53289 DG53292 DG53296 DG53358 DG53358D DG53376A DG53467P DG53558 DG53591 DG714 DGDEP3 DGDEP4 DGDEP5 DGDEPU DGEN DGENEGT1 DGMTARR DGMTAUD1 DGMTAUD2 DGMTCOR DGMTDD DGMTDD2 DGMTDD4 DGMTDELS DGMTEO DGMTHL DGMTO1 DGMTP DGMTR DGMTR1 DGMTREM DGMTREQB DGMTSC DGMTSC4 DGMTSCU DGMTU2 DGMTU4 DGMTXC DGMTXC2 DGMTXX32 DGPTFVC1 DGRP9 DGRPC2 DGRPDB DGRPEIS2 DGRTRIG DGYPPOST VAFHLZMT VAFMON
Enrollment Application System	34	EASCM EASEC COMPLETE LTC CO-PAY TEST EASEC10E EASECA EASECCAL EASECDEL EASECDP2 EASECDP4 EASECE EASECEXP EASECMT EASECPC1 EASECSCC EASECU EASECU21 EASECU23 EASECV EASEZPDG EASMTL2 EASMTRP1 EASPREC6 ^EASPFS(714.5 EASEZPVU EASMTL6 EASPREC7 EASPTRN1 EASSIGDT EASSIGOV EASUM1 EASUM6 EASUM7 EASUM8 EASUM9 ^DGMT(408.31
Income Verification Match	28	IVM20P IVM2101C IVM228P IVM289A IVMCDD IVMCM IVMCM1 IVMCM3 IVMCM4 IVMCM6 IVMCM9 IVMCMD IVMCMF IVMCMFB IVMCZMT IVMPLOG2 IVMPREC7 IVMPRECZ IVMPTRN IVMPTRN7 IVMPTRN8 IVMPTRN9 IVMRMCR1 IVMUFNC IVMUFNC4 IVMUM4 IVMUM7 IVMZ07C
Integrated Billing	8	IB20PT87 IBAMTED IBARXEC IBARXEPS IBARXEPV IBARXEU1 IBARXEU3 IBARXEU5
Beneficiary Travel	2	DGBT1 DGBTEF
Scheduling	2	SCRPW81 SDPPMT1
Accounts Receivable	1	RCXVDC2
Patient Data Exchange	1	VAQDBIM4
VA Point of Service	1	VPSRPC16

Package	Total	Routines
Registration	31	DG311RPT DG53217P DG53358 DG53358C DG53467P DG53558M DG53558N DG53591 DG53661P DGDEPU DGENELA4 DGMTA DGMTAUD1 DGMTAUD2 DGMTCOR DGMTCOST DGMTDEL DGMTDEL1 DGMTE DGMTEO DGMTH DGMTP DGMTREM DGMTSC DGMTSC4 DGMTSC4V DGMTSCC DGMTV DGMTXC DGMTXC2 DGREG0
Enrollment Application System	23	EASAILK EASEC100 EASEC10E EASECA EASECDEL EASECE EASECEXP EASECMT EASECSCC EASECV EASEZPV2 EASEZPVU EASMTCHK EASMTL2 EASMTRP1 EASMTRP3 EASPREC6 EASPREC7 EASUM1 EASUM5 EASUM6 EASUM8 EASXDRPT
Income Verification Match	9	IVM20P IVMCM1 IVMCM6 IVMCMD1 IVMCMFB IVMUM1 IVMUM5 IVMUM6 IVMUM8
Beneficiary Travel	3	DGBT1 DGBTUTL DGBTUTL1
Accounts Receivable	2	RCDPBPL2 RCXVDC2
VA Point of Service	1	VPSRPC16

Package	Total	FileMan Files
Enrollment Application System	3	INDIVIDUAL ANNUAL INCOME(#408.21)[31] INCOME RELATION(#408.22)[31] ANNUAL MEANS TEST(#408.31)[2.06, 2.08]
Registration	2	MEANS TEST CHANGES(#408.41)[.03] PATIENT RELATION(#408.12)[#408.1275(.04)]
Income Verification Match	1	IVM PATIENT(#301.5)[.06, .07]

Package	Total	FileMan Files
Enrollment Application System	4	MEANS TEST STATUS(#408.32)[.03, 2.03] TYPE OF TEST(#408.33)[.019] ANNUAL MEANS TEST(#408.31)[2.06, 2.08] LTC CO-PAY EXEMPTION(#714.1)[2.07]
Income Verification Match	1	SOURCE OF INCOME TEST(#408.34)[.23]
Kernel	1	NEW PERSON(#200)[.06, .08, .22]
Registration	1	PATIENT(#2)[.02]

Fields, Total: 46

Field #	Name	Loc	Type	Details
.01	DATE OF TEST	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X I $D(X),'$D(DGMTACT) W !,?3,7,"USE THE SPECIFIC FINANCIAL TEST OPTIONS" K X` LAST EDITED: `OCT 11, 1994` HELP-PROMPT: `Enter in this field the date of test for this annual financial test.` DESCRIPTION: `Enter in this field the date of test for this annual test.` DELETE TEST: `1,0)= I 1 W 7,!,"This Test Cannot Be Deleted. Use The Appropriate Means Test/Co-Pay Options.",!` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `408.31^B` `1)= S ^DGMT(408.31,"B",$E(X,1,30),DA)=""` `2)= K ^DGMT(408.31,"B",$E(X,1,30),DA)` `This cross-reference allows look-up by date of test.` CROSS-REFERENCE: `408.31^AS1^MUMPS` `1)= S:$P(^DGMT(408.31,DA,0),U,2)&($P(^(0),U,3))&($P(^(0),U,19)) ^DGMT(408.31,"AS",+$P(^(0),U,19),+$P(^(0),U,3),-X,+$P(^(0),U,2),DA)=""` `2)= K ^DGMT(408.31,"AS",+$P(^DGMT(408.31,DA,0),U,19),+$P(^(0),U,3),-X,+$P(^(0),U,2),DA)` `This cross-reference can be used to sort by type of test by status by inverse date of test by patient by internal entry number.` CROSS-REFERENCE: `408.31^AID1^MUMPS` `1)= S:$P(^DGMT(408.31,DA,0),U,2)&($P(^(0),U,19)) ^DGMT(408.31,"AID",+$P(^(0),U,19),+$P(^(0),U,2),-X,DA)=""` `2)= K ^DGMT(408.31,"AID",+$P(^DGMT(408.31,DA,0),U,19),+$P(^(0),U,2),-X,DA)` `This cross-reference can be used to sort by type of test by patient by inverse date of test by internal entry number.` CROSS-REFERENCE: `408.31^AD1^MUMPS` `1)= S:$P(^DGMT(408.31,DA,0),U,2)&($P(^(0),U,19)) ^DGMT(408.31,"AD",+$P(^(0),U,19),+$P(^(0),U,2),X,DA)=""` `2)= K ^DGMT(408.31,"AD",+$P(^DGMT(408.31,DA,0),U,19),+$P(^(0),U,2),X,DA)` `This cross-reference can be used to sort by type of test by patient by date of test by internal entry number.` CROSS-REFERENCE: `408.31^ADFN1^MUMPS` `1)= S:$P(^DGMT(408.31,DA,0),U,2) ^DGMT(408.31,"ADFN"_$P(^(0),U,2),X,DA)=""` `2)= K ^DGMT(408.31,"ADFN"_$P(^DGMT(408.31,DA,0),U,2),X,DA)` `This cross-reference is used to improve look-up performance for a select patient.`
.019	TYPE OF TEST	0;19	POINTER TO TYPE OF TEST FILE (#408.33)	**********************REQUIRED FIELD********************** TYPE OF TEST(#408.33) LAST EDITED: `JUN 20, 1995` HELP-PROMPT: `Enter the type of test associated with the financial test.` DESCRIPTION: `This field contains the type of test, pointer to file 408.33.` `UNEDITABLE` CROSS-REFERENCE: `408.31^AS3^MUMPS` `1)= S:$P(^DGMT(408.31,DA,0),U,2)&($P(^(0),U,3)) ^DGMT(408.31,"AS",X,+$P(^(0),U,3),-$P(^(0),U),+$P(^(0),U,2),DA)=""` `2)= K ^DGMT(408.31,"AS",X,+$P(^DGMT(408.31,DA,0),U,3),-$P(^(0),U),+$P(^(0),U,2),DA)` `This cross reference can be used to sort by type of test by status by inverse date of test by patient by internal entry number.` CROSS-REFERENCE: `408.31^AID2^MUMPS` `1)= S:$P(^DGMT(408.31,DA,0),U,2) ^DGMT(408.31,"AID",X,+$P(^(0),U,2),-$P(^(0),U),DA)=""` `2)= K ^DGMT(408.31,"AID",X,+$P(^DGMT(408.31,DA,0),U,2),-$P(^(0),U),DA)` `This cross reference can be used to sort by type of test by patient by inverse date of test by internal entry number.` CROSS-REFERENCE: `408.31^AD2^MUMPS` `1)= S:$P(^DGMT(408.31,DA,0),U,2) ^DGMT(408.31,"AD",X,+$P(^(0),U,2),$P(^(0),U),DA)=""` `2)= K ^DGMT(408.31,"AD",X,+$P(^DGMT(408.31,DA,0),U,2),$P(^(0),U),DA)` `This cross reference can be used to sort by type of test by patient by date of test by internal entry number.` CROSS-REFERENCE: `^^TRIGGER^408.31^.03` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X=2 I X S X=DIV S Y(1)=$S($D(^DGMT(408.31,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X="9" X ^DD(408.31,.019,1,4,1.4)` `1.4)= S DIH=$S($D(^DGMT(408.31,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=408.31,DIG=.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE CONDITION)= INTERNAL(TYPE OF TEST)=2` `CREATE VALUE)= "9"` `DELETE VALUE)= NO EFFECT` `FIELD)= STATUS` `This triggers the status field to incomplete when a new co-pay test is added`
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `MAY 19, 1993` HELP-PROMPT: `Enter in this field a patient associated with this annual financial test.` DESCRIPTION: `Enter in this field a patient associated with this annual test.` `UNEDITABLE` CROSS-REFERENCE: `408.31^AS2^MUMPS` `1)= S:$P(^DGMT(408.31,DA,0),U,3)&($P(^(0),U,19)) ^DGMT(408.31,"AS",$P(^(0),U,19),$P(^(0),U,3),-$P(^(0),U),X,DA)=""` `2)= K ^DGMT(408.31,"AS",+$P(^DGMT(408.31,DA,0),U,19),+$P(^(0),U,3),-$P(^(0),U),X,DA)` `This cross-reference can be used to sort by type of test by status by inverse date of test by patient by internal entry number.` CROSS-REFERENCE: `408.31^AID^MUMPS` `1)= S:$P(^DGMT(408.31,DA,0),U,19) ^DGMT(408.31,"AID",$P(^(0),U,19),X,-$P(^DGMT(408.31,DA,0),U),DA)=""` `2)= K ^DGMT(408.31,"AID",+$P(^DGMT(408.31,DA,0),U,19),X,-$P(^(0),U),DA)` `This cross-reference can be used to sort by type of test by patient by inverse date of test by internal entry number.` CROSS-REFERENCE: `408.31^C` `1)= S ^DGMT(408.31,"C",$E(X,1,30),DA)=""` `2)= K ^DGMT(408.31,"C",$E(X,1,30),DA)` `This cross-reference allows look-up by patient.` CROSS-REFERENCE: `408.31^AD^MUMPS` `1)= S:$P(^DGMT(408.31,DA,0),U,19) ^DGMT(408.31,"AD",$P(^DGMT(408.31,DA,0),U,19),X,$P(^(0),U),DA)=""` `2)= K ^DGMT(408.31,"AD",+$P(^DGMT(408.31,DA,0),U,19),X,$P(^(0),U),DA)` `This cross-reference can be used to sort by type of test by patient by date of test by internal entry number.` CROSS-REFERENCE: `^^TRIGGER^408.31^.03` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(408.31,.02,1,5,69.2) S Y=X,X=Y(2),X=X&Y I X S X=DIV S Y(1)=$S($D(^DGMT(408.31,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X="1" X ^DD(408.31,.02,1,5,1.4)` `1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGMT(408.31,D0,0)):^(0),1:"") S X=$S('$D(^DG(408.32,+$P(Y(1),U,3),0)):"",1:$P(^(0),U,1))']""` `1.4)= S DIH=$S($D(^DGMT(408.31,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=408.31,DIG=.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `2)= Q` `69.2)= S Y(1)=$S($D(^DGMT(408.31,D0,0)):^(0),1:"") S X=$S('$D(^DG(408.32,+$P(Y(1),U,3),0)):"",1:$P(^(0),U,1))']"",Y(2)=X,Y(3)=X S X=$P(Y(1),U,19),X=X S X=X=1` `CREATE CONDITION)= STATUS']""&(INTERNAL(TYPE OF TEST)=1)` `CREATE VALUE)= "1"` `DELETE VALUE)= NO EFFECT` `FIELD)= STATUS` `This triggered cross-reference will update the 'Status' field (#.03). If there is no status for the date of test, the status of 'REQUIRED' will automatically be assigned to the test. This trigger only applies to means` `test.` CROSS-REFERENCE: `408.31^ADFN^MUMPS` `1)= S ^DGMT(408.31,"ADFN"_X,+^DGMT(408.31,DA,0),DA)=""` `2)= K ^DGMT(408.31,"ADFN"_X,+^DGMT(408.31,DA,0),DA)` `This cross-reference is used to improve look-up performance for a select patient.`
.03	STATUS	0;3	POINTER TO MEANS TEST STATUS FILE (#408.32)	**********************REQUIRED FIELD********************** MEANS TEST STATUS(#408.32) INPUT TRANSFORM: `S DIC("S")="I $$SCR^DGMTDD(Y,DA,$P(^DGMT(408.31,DA,0),U,19),$G(DGMTACT))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 28, 1999` HELP-PROMPT: `Enter in this field the financial test status.` DESCRIPTION: `Enter in this field the status of the test.` TECHNICAL DESCR: `This field contains the financial test status. Normally it will be generated by the system. Users who hold the DG MEANSTEST key will only be allowed to change a patient's means test status. This change will be audited.` SCREEN: `S DIC("S")="I $$SCR^DGMTDD(Y,DA,$P(^DGMT(408.31,DA,0),U,19),$G(DGMTACT))"` EXPLANATION: `Status must be active and valid.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `TRIGGERED by the TYPE OF TEST field of the ANNUAL MEANS TEST File` `TRIGGERED by the PATIENT field of the ANNUAL MEANS TEST File` CROSS-REFERENCE: `408.31^AS^MUMPS` `1)= S:$P(^DGMT(408.31,DA,0),U,2)&($P(^(0),U,19)) ^DGMT(408.31,"AS",$P(^(0),U,19),X,-$P(^(0),U),+$P(^(0),U,2),DA)=""` `2)= K ^DGMT(408.31,"AS",+$P(^DGMT(408.31,DA,0),U,19),X,-$P(^(0),U),+$P(^(0),U,2),DA)` `This cross-reference can be used to sort by type of test by status by inverse date of test by patient by internal entry number.` CROSS-REFERENCE: `408.31^AC^MUMPS` `1)= D CUR^DGMTDD` `2)= D CUR^DGMTDD` `This mumps cross-reference works like a "trigger" cross-reference. When the status of the last date of test for a patient is updated, the 'Current Means Test Status' field (#.14) in the Patient file (#2) is updated. This` `trigger only applies to means test.`
.04	INCOME	0;4	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999999)!(X<0) X` LAST EDITED: `DEC 06, 1994` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits` DESCRIPTION: `This field is computed by the system. It is a summation of each applicable family member's income in the Individual Annual Income file (#408.21) for the previous calendar year from date of test.` `If the veteran is married, the spouse's income will only be collected and subsequently included in the test under certain conditions. The veteran and spouse must either live together or if they do not live together, the` `veteran must have contributed at least $600 to the spouse's support during the previous calendar year.` `If the veteran has dependent children, the children's income will only be collected and subsequently included in the test under certain conditions. Only children who have income and whose income is available to the` `veteran need to provide income information.` `For means test, it is this cumulative family income which is used to derive the means test threshold(s), status and subsequent category of care.` TECHNICAL DESCR: `When 2.11 MEANS TEST VERSION is Null or '0', the summation of each applicable family member's income in the Individual Annual Income file (#408.21) for the previous calendar year will be performed on income dollar amounts` `collected in the pre-Feb 2005 10-10EZ format. All income fields for veteran, spouse, and dependent child(ren) from the Individual Annual Income file (#408.21) may have values.` `When 2.11 MEANS TEST VERSION is '1', the summation of each applicable family member's income in the Individual Annual Income file (#408.21) for the previous calendar year will be performed on income dollar amounts` `collected in the Feb 2005 10-10EZ format. Only income fields .08-SOCIAL SECURITY(NOT SSI), .14-TOTAL EMPLOYMENT INCOME, and .17-ALL OTHER INCOME for veteran, spouse, and dependent child(ren) from the Individual Annual` `Income file (#408.21) will have values.`
.05	NET WORTH	0;5	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X` LAST EDITED: `DEC 06, 1994` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits` DESCRIPTION: `This field is computed by the system. Is a summation of the veteran, spouse (if applicable), and dependent child(ren) if applicable net worth, minus any debts in the Individual Annual Income file (#408.21) for the` `previous calendar year from date of test.` `If the veteran is married, the spouse's net worth will only be collected and subsequently included in the means test under certain conditions. The veteran and spouse must either live together or if they do not live` `together, the veteran must have contributed at least $600 to the spouse's support during the previous calendar year.` `When determining the means test status and subsequent category of care, the system will require net worth be entered for those veterans who require mandatory care.` `If the income plus net worth exceed the annual property threshold, the case can be sent to adjudication for the test.` TECHNICAL DESCR: `When 2.11 MEANS TEST VERSION is Null or '0', the summation of each applicable family member's net worth in the Individual Annual Income file (#408.21) will be performed on net worth dollar amounts collected in the pre-Feb` `2005 10-10EZ format. All veteran and spouse fields from the Individual Annual Income file (#408.21) may have values. In the pre-Feb 2005 format, dependent child(ren) net worth amount(s) are not collected from the VistA` `screens and are not stored in Individual Annual Income file (#408.21).` `When 2.11 MEANS TEST VERSION is '1', the summation of each applicable family member's net worth in the Individual Annual Income file (#408.21) will be performed on net worth dollar amounts collected in the Feb 2005 10-10EZ` `format. In the Feb 2005 format, dependent child(ren) net worth amount(s) are collected from the VistA screens and are stored in Individual Annual Income file (#408.21).` `Only net worth fields 2.01-CASH AMOUNTS IN BANK ACCOUNTS, 2.03-REAL PROPERTY, and 2.04-OTHER PROPERTY OR ASSETS from the Individual Annual Income file (#408.21) will have values.`
.06	COMPLETED BY	0;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 03, 1992` HELP-PROMPT: `This field contains the user who completed the financial test.` DESCRIPTION: `This field contains the user who completed the test.`
.07	DATE/TIME COMPLETED	0;7	DATE	INPUT TRANSFORM: `S %DT="ETX",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X I $D(X) D COM^DGMTDD` LAST EDITED: `JAN 22, 1999` HELP-PROMPT: `This field contains the date/time the initial financial test was completed.` DESCRIPTION: `This field contains the date/time the test was initially completed. In the case where a means test is verified by IVM, this date/time will be the same as the date/time the original means test was completed at the medical` `center.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `408.31^AG` `1)= S ^DGMT(408.31,"AG",$E(X,1,30),DA)=""` `2)= K ^DGMT(408.31,"AG",$E(X,1,30),DA)` `Used for Means Test Audit reports.`
.08	CATEGORY CHANGED BY	0;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 03, 1992` HELP-PROMPT: `This field contains the last user who changed the means test category.` DESCRIPTION: `This field contains the last user who changed the means test category.`
.09	DATE/TIME CATEGORY CHANGED	0;9	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 03, 1992` HELP-PROMPT: `This field contains the last date/time the means test category was changed.` DESCRIPTION: `This field contains the last date/time the means test category was changed.`
.1	ADJUDICATION DATE/TIME	0;10	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 03, 1992` HELP-PROMPT: `This field contains the last date/time the financial test was adjudicated.` DESCRIPTION: `This field contains the last date/time the test was adjudicated.`
.11	AGREED TO PAY DEDUCTIBLE	0;11	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 29, 2002` HELP-PROMPT: `Enter in this field whether the veteran agrees to pay the deductible. The veteran must also sign the 1010f form agreeing to pay the deductible.` DESCRIPTION: `Enter in this field whether the veteran agrees to pay the deductible. The veteran must also sign the 1010f form agreeing to pay the deductible.` CROSS-REFERENCE: `408.31^AAPD^MUMPS` `1)= D:$G(DGMTYPT)<3 AUTOUPD^DGENA2(+$P(^DGMT(408.31,DA,0),U,2),2)` `2)= D:$G(DGMTYPT)<3 AUTOUPD^DGENA2(+$P(^DGMT(408.31,DA,0),U,2),2)` `Trigger to update Enrollment when updating the Agree to Pay Deductible field. Trigger routine is not called for a LTC copay test (type 3) or a LTC copay exemption test (type 4).`
.12	THRESHOLD A	0;12	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X` LAST EDITED: `JAN 08, 1992` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999, 2 Decimal Digits` DESCRIPTION: `This field is computed by the system. It contains the income threshold A as determined by the system for the veteran. The threshold is determined by the system in the following manner:` `Cat A Vet Income+Cat A First Dep+(Cat A Per Dep*(Num Dep-First Dep))` `The means test thresholds are released annually by VHA and include the veteran and dependent income for the year.`
.13	THRESHOLD B	0;13	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X` LAST EDITED: `JAN 08, 1992` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999, 2 Decimal Digits` DESCRIPTION: `This field is computed by the system. It contains the income threshold B as determined by the system for the veteran. The threshold is determined by the system in the following manner:` `Cat B Vet Income+Cat B First Dep+(Cat B Per Dep*(Num Dep-First Dep))` `The means test thresholds are released annually by VHA and include the veteran and dependent income for the year.`
.14	DECLINES TO GIVE INCOME INFO	0;14	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `APR 29, 1992` HELP-PROMPT: `Enter whether the veteran declines to provide income information.` DESCRIPTION: `Enter whether the veteran declines to provide income information. If the veteran declines; s/he is considered to be Category C and must agree to pay the deductible.`
.15	DEDUCTIBLE EXPENSES	0;15	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999999)!(X<0) X` LAST EDITED: `NOV 30, 1994` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits` DESCRIPTION: `This field is computed by the system. It is the summation of the veteran's deductible expenses in the Individual Annual Income file (#408.21).`
.16	PREVIOUS YEARS THRESHOLD	0;16	SET	'1' FOR YES; LAST EDITED: `APR 06, 1992` DESCRIPTION: `This field is filled in by the system. The field is set to 'YES' if the previous years means test parameters are applied to the test. This should only occur when the new parameters are not yet available to the field.` CROSS-REFERENCE: `408.31^AP^MUMPS` `1)= S ^DGMT(408.31,"AP",X,$P(^DGMT(408.31,DA,0),U),DA)=""` `2)= K ^DGMT(408.31,"AP",X,$P(^DGMT(408.31,DA,0),U),DA)` `This cross-reference can be used to sort by previous years threshold by date of test by internal entry number.`
.17	NO LONGER REQUIRED DATE	0;17	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 01, 1992` HELP-PROMPT: `This field contains the last date the means test was no longer required.` DESCRIPTION: `This field contains the last date the means test was no longer required.`
.18	TOTAL DEPENDENTS	0;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 02, 1992` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits` DESCRIPTION: `This field is computed by the system. It is a summation of the dependents and spouse (if applicable).` `If the veteran is married, the spouse's will only be collected and subsequently included under certain conditions. The veteran and spouse must either live together or if they do not live together, the veteran must have` `contributed at least $600 to the spouse's support during the previous calendar year.`
.2	HARDSHIP?	0;20	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 18, 1994` HELP-PROMPT: `Enter 'YES' if this is a hardship case, otherwise 'NO'.` CROSS-REFERENCE: `408.31^AE` `1)= S ^DGMT(408.31,"AE",$E(X,1,30),DA)=""` `2)= K ^DGMT(408.31,"AE",$E(X,1,30),DA)` `This cross-reference are means tests that have been designated as hardships.` CROSS-REFERENCE: `408.31^AF^MUMPS` `1)= S:'X $P(^DGMT(408.31,DA,0),U,21,22)="^"` `2)= S:'$P(^DGMT(408.31,DA,0),U,20) $P(^DGMT(408.31,DA,0),U,21,22)="^"` `If the hardship question is changed from a yes to a no or is deleted, this cross-reference will delete the review date and approved by fields.`
.21	HARDSHIP REVIEW DATE	0;21	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 06, 2019` HELP-PROMPT: `Enter the date the hardship should be reviewed.` DESCRIPTION: `Date the hardship needs to be reviewed.` `UNEDITABLE`
.22	APPROVED BY	0;22	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `JUN 28, 1993` HELP-PROMPT: `Enter the name of the person who approved the hardship.`
.23	SOURCE OF INCOME TEST	0;23	POINTER TO SOURCE OF INCOME TEST FILE (#408.34)	**********************REQUIRED FIELD********************** SOURCE OF INCOME TEST(#408.34) LAST EDITED: `SEP 28, 2006` HELP-PROMPT: `Enter the source from which this income test was received.` DESCRIPTION: `This field is maintained by the means test software. It is a pointer to the SOURCE OF INCOME TEST file (#408.34). It indicates where the income test originated. For example, if this field points to the VAMC entry, this` `means that the income test was obtained at the VA Medical Center by a user using the appropriate Means Test (or other income test) software.` `This field MUST NOT BE ALTERED in any way. It is entered by the software and should never be edited or deleted. Altering this data in any way will adversely impact the income testing functionality.` `WRITE AUTHORITY: ^`
.24	DATE VETERAN SIGNED TEST	0;24	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:3991231X) X` LAST EDITED: `MAY 13, 1994` HELP-PROMPT: `Enter a date between 1/1/1994 and 12/31/2099. This will be the date the test was signed, but will only be answered if the test was administered outside the VAMC (i.e. at the IVM Center).` DESCRIPTION: `This field will contain the date the veteran signed the financial test IF the test is from a source other than the VAMC (i.e. IVM).`
.25	DATE IVM VERIFIED MT COMPLETED	0;25	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:3991231X) X` LAST EDITED: `SEP 22, 1994` HELP-PROMPT: `Enter a date between 1/1/1994 and 12/31/2099.` DESCRIPTION: `This field will contain the date returned from the IVM Center that the means test was verified and completed.`
.26	REFUSED TO SIGN	0;26	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 23, 1994` HELP-PROMPT: `Enter 'YES' if veteran refused to sign the means test, otherwise 'NO'.` DESCRIPTION: `This field returns an indicator from the IVM Center that the veteran refused to sign the means test.`
.27	GMT THRESHOLD	0;27	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X` LAST EDITED: `JUN 26, 2002` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999, 2 Decimal Digits` DESCRIPTION: `This field is computed by the system. It contains the GMT income threshold as determined by the system for the veteran. The GMT threshold will be determined by locating the record in the GMT Thresholds file that` `corresponds to the FIPS code of the veteran's address and using the income amount for the veteran plus the number of dependents.`
.29	MEANS TEST SIGNED?	0;29	SET	'1' FOR YES; '0' FOR NO; '9' FOR DELETED; LAST EDITED: `JUL 17, 2001` HELP-PROMPT: `This field is only populated by HEC.` DESCRIPTION: `This field will indicate whether or not HEC has determined that a valid signature exists for this means test.`
1	BULLETIN DATE	BUL;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 10, 1993` HELP-PROMPT: `Enter the date in which the scheduling bulletin was sent.`
2	PRIMARY INCOME TEST FOR YEAR?	PRIM;1	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 28, 2006` HELP-PROMPT: `Enter 1 if this is the primary income test for this patient for this income year. Enter 0 otherwise.` DESCRIPTION: `This field will be filled in automatically by the means test software. It will indicate whether this income test is the primary income test for this patient for this income year. If this field contains a 1, this income` `test is considered the primary income test for the patient for the income year. If the field contains a 0, it means that the patient has another income test for the year which is considered the primary income test.` `This field is set by the means test software and MUST NOT BE ALTERED via FileMan.` TECHNICAL DESCR: `WRITE AUTHORITY: ^`
2.01	HARDSHIP EFFECTIVE DATE	2;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 11, 1999` HELP-PROMPT: `Enter the date the hardship is to be effective.` DESCRIPTION: `This field will indicate when the hardship is effective.`
2.02	DATE/TIME TEST LAST EDITED	2;2	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 13, 2005` HELP-PROMPT: `Enter when the test was last changed.` DESCRIPTION: `This field will indicate when the test was created or last edited.` `WRITE AUTHORITY: ^` CROSS-REFERENCE: `408.31^AENR202^MUMPS` `1)= D E40831^DGRTRIG(DA)` `2)= D E40831^DGRTRIG(DA)` `3)= DO NOT DELETE` `This cross-reference is used to notify HEC of changes that may affect enrollment.`
2.03	TEST-DETERMINED STATUS	2;3	POINTER TO MEANS TEST STATUS FILE (#408.32)	MEANS TEST STATUS(#408.32) LAST EDITED: `JUN 30, 1999` HELP-PROMPT: `Once the test is completed, this field will indicate the status based on income screening and networth adjudication.` DESCRIPTION: `This field will be used to record the status determined by the income screening or networth adjudication. It will not change as the result of a hardship determination or changes in eligibility. It will be used to` `automatically re-complete the test if the test is again required after going to a status which indcates that it is not required based on changes in eligibility.` CROSS-REFERENCE: `408.31^AH^MUMPS` `1)= Q` `2)= D STOPAUTO^DGMTDD(DA)` `3)= DO NOT DELETE!` `A pharmacy copay test and a means test may share the same income screening. When one test becomes inactive (No Longer Required or No Longer Applicable), the status is saved in the Test Determined Status field so that it` `may be reinstated again if the test becomes required. While one test is inactive, the veteran may have another test in effect - for example, if he does not require a means test, he may still be subject to the pharmacy` `copayments and be eligible to take a pharmacy copayment exemption test. If a pharmacy copyment test is created, it will utilize the same income screening as was in effect for the means test. However, if the income` `screening is then edited, and the veteran later becomes subject to being means tested, the old means test should not be automatically re-completed based on the old status - it needs to be re-completed and a new status` `determined based on the changed income screening. This cross-reference is meant to prevent the automatic re-completion of the old test in this situation.`
2.04	SITE GRANTING HARDSHIP	2;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<3) X` LAST EDITED: `JUN 11, 1999` HELP-PROMPT: `Enter the station number with suffix of the user granting the hardship.` DESCRIPTION: `This will indicate the station down to the division level of the user who entered the hardship determination.`
2.05	SITE CONDUCTING TEST	2;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<3) X` LAST EDITED: `JUN 14, 1999` HELP-PROMPT: `Enter the station number with suffix of the user completing the means test.` DESCRIPTION: `This will indicate the site down to the division level of the user who completed the test.`
2.06	LINKED RX COPAY/MEANS TEST	2;6	POINTER TO ANNUAL MEANS TEST FILE (#408.31)	ANNUAL MEANS TEST(#408.31) LAST EDITED: `JUN 30, 1999` HELP-PROMPT: `If an Rx Copay was created based on a means test, this field should link the two tests.` DESCRIPTION: `If an Rx copay test is created automatically based on a means test, they share the same income screening. This field should be used to link the two tests together. It will be used to shift the income screening back and` `forth to the test that currently requires the income screening. For example, if a means test becomes not required, an Rx copay test may be automatically created and all the income screening information would be re-pointed` `to the Rx copay test away from the means test. If a means test should ever become required again, the pointers from the income screening data can be found and re-pointed from this link.`
2.07	REASON FOR EXEMPTION	2;7	POINTER TO LTC CO-PAY EXEMPTION FILE (#714.1)	LTC CO-PAY EXEMPTION(#714.1) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 16, 2001` DESCRIPTION: `Select the reason why the veteran qualifies for an exemption from Long Term Care co-payments.` SCREEN: `S DIC("S")="I $P(^(0),U,2)"` EXPLANATION: `Only Active file entries can be selected.`
2.08	LINKED LTC CO-PAY/MEANS TEST	2;8	POINTER TO ANNUAL MEANS TEST FILE (#408.31)	ANNUAL MEANS TEST(#408.31) LAST EDITED: `DEC 17, 2001` DESCRIPTION: `If this is a LTC CO-PAY TEST (type 3), this field will point to the LTC CO-PAY EXEMPTION TEST (type 4) associated with this test. If this is a LTC CO-PAY EXEMPTION TEST (type 4), this field will point to the MEANS TEST` `(type 1) associated with this the test.` CROSS-REFERENCE: `408.31^AT` `1)= S ^DGMT(408.31,"AT",$E(X,1,30),DA)=""` `2)= K ^DGMT(408.31,"AT",$E(X,1,30),DA)`
2.09	HARDSHIP REASON	2;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<3) X` LAST EDITED: `JUN 26, 2002` HELP-PROMPT: `Enter Hardship Reason [3-80 characters].` DESCRIPTION: `This field will indicate the reason for the Hardship.`
2.1	1010EC FORM	2;10	SET	'1' FOR DEC 2002; LAST EDITED: `AUG 25, 2003` DESCRIPTION: `This field indicates which version of the 10-10EC form was used to complete the LTC copay test.`
2.11	MEANS TEST VERSION	2;11	SET	'0' FOR Before Feb 2005 Format; '1' FOR Feb 2005; LAST EDITED: `FEB 10, 2006` HELP-PROMPT: `Enter 0 if Income was collected prior to Feb, 2005; 1 if collected in or after Feb. 2005.` DESCRIPTION: `Prior to February 2005, dependent income data was not separated out of the data entered for the patient. Previous to February 2005, dependent data was added to patient income figures and stored with that patient's` `respective record. Subsequent to February 2005, Means Test was designed so that dependent income data would not be included with patient income data but instead be stored with the respective dependent Means Test records.` TECHNICAL DESCR: `Set of Codes field that indicates the storage design of dependent data as follows:` `0 : Prior to February, 2005 collection form` `1 : February, 2005 subsequent collection form` `Prior to February 2005, dependent income information was collected and stored in the respective fields of the INDIVIDUAL ANNUAL INCOME file (#408.21) in addition to and with the Patient's record. Subsequent to February` `2005, dependent income information was designed and implemented so that it is stored in the respective fields of the dependent's entry in the INDIVIDUAL ANNUAL INCOME file (#408.21). For example:` `Version 0 INDIVIDUAL ANNUAL INCOME file entry of` `(#2.01) CASH, AMOUNTS IN BANK ACCOUNTS for patient equals` `Patient + Dependent amounts` `Version 1 INDIVIDUAL ANNUAL INCOME file entry of` `(#2.01) CASH, AMOUNTS IN BANK ACCOUNTS for patient equals` `Patient amount` `(#2.01) CASH, AMOUNTS IN BANK ACCOUNTS for dependent(s) equals` `Dependent amount(s)`
2.12	HARDSHIP EXPIRED	2;12	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 05, 2020` HELP-PROMPT: `Enter 1 if the Hardship has expired, else enter 0. Hardship Expired value will be set by the Z10 HL7 message from ES. The user may not edit this field.` DESCRIPTION: `The system shall set the Hardship Expired value to Yes when an expiration is received in a Z10 HL7 message from ES. The user may not edit this field.` `UNEDITABLE`
2.13	HARDSHIP EXPIRATION DATE	2;13	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 17, 2020` HELP-PROMPT: `Enter the date the Hardship will expire. The Hardship Expiration Date is set by the system at December 31 of the current calendar year when the Hardship is entered. The user may not edit this field.` DESCRIPTION: `The Hardship Expiration Date is set by the system at December 31 of the current calendar year when the Hardship is entered. The date will be updated only when a new value is sent from the Enrollment System based on changes` `made in the Enrollment System.` `UNEDITABLE`
3	INCOME DATA PURGED PER IRS/SSA	PURGE;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 25, 2000` DESCRIPTION: `If this field contains a date, the income data fields in this record have been purged as required by Internal Revenue Service and/or Social Security Administration.`
4	BT FINANCIAL INDICATOR	4;1	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `OCT 02, 2014` HELP-PROMPT: `Enter a 'Y' to indicate financially eligible for Beneficiary Travel, 'N' for not financially eligible for Beneficiary Travel.` DESCRIPTION: `This indicator states a Veteran's eligibility for Beneficiary Travel based on their income.` `UNEDITABLE`
50	COMMENT	C;0	WORD-PROCESSING #408.311	LAST EDITED: `JAN 08, 1992` DESCRIPTION: `This field contains comments on the test.` LAST EDITED: `JAN 08, 1992` HELP-PROMPT: `This field contains comments on the means test.`

Name	Field # of Occurrence
^%DT	.01+1, .07+1, .09+1, .1+1, .17+1, .21+1, .24+1, .25+1, 1+1, 2.01+1 , 2.02+1, 2.13+1, 3+1
AUTOUPD^DGENA2	.11(XREF 1S), .11(XREF 1K)
COM^DGMTDD	.07+1
CUR^DGMTDD	.03(XREF 2S), .03(XREF 2K)
STOPAUTO^DGMTDD	2.03(XREF 1K)
E40831^DGRTRIG	2.02(XREF 1S), 2.02(XREF 1K)
^DIC	.03+1, 2.07+1
^DICR	.019(XREF 4n1.4), .02(XREF 5n1.4)
Y^DIQ	ID.019+1, ID.03+1, ID.23+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.019(XREF 4n1.4), .02(XREF 5n1.4)
^DD(408.31	.019(XREF 4S), .02(XREF 5S)
^DD(408.32	ID.03+1
^DD(408.33	ID.019+1
^DD(408.34	ID.23+1
^DG(408.32 - [#408.32]	ID.03+1, .02(XREF 5n1.3), .02(XREF 5n69.2)
^DG(408.33 - [#408.33]	ID.019+1
^DG(408.34 - [#408.34]	ID.23+1
^DGMT(408.31 - [#408.31]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S), .01(XREF 5K) , .019(XREF 1S), .019(XREF 1K), .019(XREF 2S), .019(XREF 2K), .019(XREF 3S), .019(XREF 3K), .019(XREF 4S), .019(XREF 4n1.4), .02(XREF 1S), .02(XREF 1K) , .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .02(XREF 5S), .02(XREF 5n1.3), .02(XREF 5n1.4), .02(XREF 5n69.2) , .02(XREF 6S), .02(XREF 6K), .03(XREF 1S), .03(XREF 1K), .07(XREF 1S), .07(XREF 1K), .11(XREF 1S), .11(XREF 1K), .16(XREF 1S), .16(XREF 1K) , .2(XREF 1S), .2(XREF 1K), .2(XREF 2S), .2(XREF 2K), 2.08(XREF 1S), 2.08(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, .07+1, .09+1, .1+1, .17+1, .21+1, .24+1, .25+1, 1+1, 2.01+1 , 2.02+1, 2.13+1, 3+1*
>> %DT(0	.01+1, .07+1
%I	ID.019+1!, ID.03+1!, ID.23+1*!
>> C	ID.019+1, ID.03+1, ID.23+1*
>> D0	.019(XREF 4S), .02(XREF 5S), .02(XREF 5n1.3), .02(XREF 5n69.2)
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S), .01(XREF 5K) , .019(XREF 1S), .019(XREF 1K), .019(XREF 2S), .019(XREF 2K), .019(XREF 3S), .019(XREF 3K), .019(XREF 4S), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S) , .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .02(XREF 5S), .02(XREF 5n1.3), .02(XREF 6S), .02(XREF 6K), .03(XREF 1S) , .03(XREF 1K), .07(XREF 1S), .07(XREF 1K), .11(XREF 1S), .11(XREF 1K), .16(XREF 1S), .16(XREF 1K), .2(XREF 1S), .2(XREF 1K), .2(XREF 2S) , .2(XREF 2K), 2.02(XREF 1S), 2.02(XREF 1K), 2.03(XREF 1K), 2.08(XREF 1S), 2.08(XREF 1K)
>> DGMTACT	.01+1
>> DGMTYPT	.11(XREF 1S), .11(XREF 1K)
DIC	ID.019+1, ID.03+1, ID.23+1, .03+1!, 2.07+1!
DIC("S"	.03+1, .03SCR+1, 2.07+1, 2.07SCR+1
>> DIE	.03+1, 2.07+1
>> DIG	.019(XREF 4n1.4), .02(XREF 5n1.4)
>> DIH	.019(XREF 4n1.4), .02(XREF 5n1.4)
>> DIU	.019(XREF 4S), .02(XREF 5S)
DIV	.019(XREF 4S), .019(XREF 4n1.4), .02(XREF 5S), .02(XREF 5n1.3), .02(XREF 5n1.4)
DIV(0	.019(XREF 4S), .019(XREF 4n1.4), .02(XREF 5S), .02(XREF 5n1.3), .02(XREF 5n1.4)
U	ID.019+1, ID.03+1, ID.23+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S) , .01(XREF 5K), .019(XREF 1S), .019(XREF 1K), .019(XREF 2S), .019(XREF 2K), .019(XREF 3S), .019(XREF 3K), .019(XREF 4S), .019(XREF 4n1.4), .02(XREF 1S) , .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 4S), .02(XREF 4K), .02(XREF 5S), .02(XREF 5n1.3), .02(XREF 5n1.4), .02(XREF 5n69.2), .03(XREF 1S) , .03(XREF 1K), .11(XREF 1S), .11(XREF 1K), .16(XREF 1S), .16(XREF 1K), .2(XREF 2S), .2(XREF 2K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S) , .01(XREF 5K), .019(XREF 1S), .019(XREF 1K), .019(XREF 2S), .019(XREF 2K), .019(XREF 3S), .019(XREF 3K), .019(XREF 4S), .019(XREF 4n1.4), .02(XREF 1S) , .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .02(XREF 5S), .02(XREF 5n1.3), .02(XREF 5n1.4) , .02(XREF 5n69.2), .02(XREF 6S), .02(XREF 6K), .03+1!, .03(XREF 1S), .03(XREF 1K), .04+1!, .05+1!, .07+1!, .07(XREF 1S) , .07(XREF 1K), .09+1!, .1+1!, .12+1!, .13+1!, .15+1!, .16(XREF 1S), .16(XREF 1K), .17+1!, .18+1! , .2(XREF 1S), .2(XREF 1K), .2(XREF 2S), .21+1!, .24+1!, .25+1!, .27+1!, 1+1!, 2.01+1!, 2.02+1! , 2.04+1!, 2.05+1!, 2.07+1!, 2.08(XREF 1S), 2.08(XREF 1K), 2.09+1!, 2.13+1!, 3+1*!
Y	ID.019+1, ID.03+1, ID.23+1*, .01+1, .019(XREF 4S), .02(XREF 5S), .03+1, .07+1, .09+1, .1+1 , .17+1, .21+1, .24+1, .25+1, 1+1, 2.01+1, 2.02+1, 2.07+1, 2.13+1, 3+1
Y(0	.019(XREF 4S), .02(XREF 5S), .02(XREF 5n1.3)
Y(1	.019(XREF 4S), .02(XREF 5S), .02(XREF 5n1.3), .02(XREF 5n69.2)
Y(2	.02(XREF 5S), .02(XREF 5n69.2)
Y(3	.02(XREF 5n69.2)

Customize PDF page

Package: Enrollment Application System

Global: ^DGMT(408.31

Information

Description

Directly Accessed By Routines, Total: 187

Accessed By FileMan Db Calls, Total: 69

Pointed To By FileMan Files, Total: 6

Pointer To FileMan Files, Total: 7

Fields, Total: 46

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: