Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
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
Info |  Details