Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Print Page as PDF

Sub-Field: 408.08

Package: Registration

DISCRETIONARY WORKLOAD(#408)-->408.08

Sub-Field: 408.08

Information

Parent File	Name	Number	Package
DISCRETIONARY WORKLOAD(#408)	ELIGIBILITY	408.08	Registration

Details

Field #	Name	Loc	Type	Details
.01	ELIGIBILITY	0;1	SET	'1' FOR SC 50-100%; '2' FOR A&A/HB/WW1/POW/MEX; '3' FOR SC<50%; '4' FOR NSC/PEN; '5' FOR NSC; '6' FOR DOM; '7' FOR VE ERROR; '8' FOR CHAMPVA; '9' FOR COLLATERAL; '10' FOR EMPLOYEE; '11' FOR OTHER FED; '12' FOR ALLIED VET; '13' FOR HUMANITARIAN; '14' FOR SHARING; '15' FOR REIMB INSURANCE; '16' FOR NV ERROR; CROSS-REFERENCE: `408.08^B` `1)= S ^VAT(408,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^VAT(408,DA(1),1,"B",$E(X,1,30),DA)`
1	AS	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits`
2	AN	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits`
3	B0	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits`
4	C0	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits`
5	N0	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits`
6	X0	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits`
7	U0	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits` CROSS-REFERENCE: `^^TRIGGER^408.08^8` `1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VAT(408,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(408.08,7,1,1,1.1) X ^DD(408.08,7,1,1,1.4)` `1.1)= S X=DIV S Y(1)=$S($D(^VAT(408,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,2)+$P(Y(1),U,3)+$P(Y(1),U,4)+$P(Y(1),U,5)+$P(Y(1),U,6)+$P(Y(1),U,7)+DIV` `1.4)= S DIH=$S($D(^VAT(408,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,8,99)) S DIH=DIH_U" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(0)=$P(DIH,U,1,8)_U_DIV_$S(%]"":U_%,1:""),DIH=408.08,DIG=8 D ^DICR:$N(^DD(` `DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VAT(408,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(408.08,7,1,1,2.4)` `2.4)= S DIH=$S($D(^VAT(408,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,8,99)) S DIH=DIH_U" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(0)=$P(DIH,U,1,8)_U_DIV_$S(%]"":U_%,1:""),DIH=408.08,DIG=8 D ^DICR:$N(^DD(` `DIH,DIG,1,0))>0` `CREATE VALUE)= AS+AN+B0+C0+N0+X0+U0` `DELETE VALUE)= @` `FIELD)= TOTAL MT`
8	TOTAL MT	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 99999999, 0 Decimal Digits` NOTES: `TRIGGERED by the U0 field of the ELIGIBILITY sub-field of the DISCRETIONARY WORKLOAD File`