Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 9002069.01

Package: Contract Health Management Information System

CHS DATA CONTROL(#9002069)-->9002069.01

Sub-Field: 9002069.01


Information

Parent File Name Number Package
CHS DATA CONTROL(#9002069) FISCAL YEAR 9002069.01 Contract Health Management Information System

Details

Field # Name Loc Type Details
.01 FISCAL YEAR 0;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2099)!(X<1984)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
  • LAST EDITED:  SEP 21, 1992
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1984 AND 2099
  • DESCRIPTION:  
    Fiscal year between 1984 and 2099
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1 CURRENT ADVICE OF ALLOWANCE 0;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
  • LAST EDITED:  JAN 13, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
  • DESCRIPTION:  
    Type dollar amount for current advice of allowance between 0 and 99999999
  • CROSS-REFERENCE:  ^^TRIGGER^9002069.01^1.2
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ACHS(9,D0,"FY",D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(9002069.01,1,1,1,1.4)
    1.4)= S DIH=$S($D(^ACHS(9,DIV(0),"FY",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=9002069.01,DIG=1.2 D ^DICR:
    $O(^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(^ACHS(9,D0,"FY",D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(9002069.01,1,1,1,2.4)
    2.4)= S DIH=$S($D(^ACHS(9,DIV(0),"FY",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=9002069.01,DIG=1.2 D ^DICR:
    $O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=DT
    DELETE VALUE)= S X=DT
    FIELD)= ADVICE LAST UPDATE (DATE)
  • CROSS-REFERENCE:  ^^TRIGGER^9002069.01^1.3
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ACHS(9,D0,"FY",D1,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(9002069.01,1,1,2,1.4)
    1.4)= S DIH=$S($D(^ACHS(9,DIV(0),"FY",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=9002069.01,DIG=1.3 D ^DICR:
    $O(^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(^ACHS(9,D0,"FY",D1,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(9002069.01,1,1,2,2.4)
    2.4)= S DIH=$S($D(^ACHS(9,DIV(0),"FY",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=9002069.01,DIG=1.3 D ^DICR:
    $O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= S X=DUZ
    FIELD)= ADVICE LAST UPDATE (USER)
1.1 TOTAL OBLIGATED FYTD 0;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  JAN 13, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    Type dollar amount 0-99999999 2 decimal digits
1.2 ADVICE LAST UPDATE (DATE) 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 11, 1990
  • HELP-PROMPT:  Enter today's date.
  • DESCRIPTION:  
    Last update date
    WRITE AUTHORITY:^
    UNEDITABLE
  • NOTES:  TRIGGERED by the CURRENT ADVICE OF ALLOWANCE field of the FISCAL YEAR sub-field of the CHS DATA CONTROL File
1.3 ADVICE LAST UPDATE (USER) 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAY 11, 1990
    WRITE AUTHORITY:^
  • NOTES:  TRIGGERED by the CURRENT ADVICE OF ALLOWANCE field of the FISCAL YEAR sub-field of the CHS DATA CONTROL File
1.4 FY FUNDS REMOVED 0;6 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  MAY 11, 1990
    UNEDITABLE
2 REGISTER W;0 Multiple #9002069.02 9002069.02

  • DESCRIPTION:  
    Register number between 0 and 999
3 LAST SEQ. NUMBER USED C;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 19, 2002
  • HELP-PROMPT:  Enter a document number between 0 and 9999999.
  • DESCRIPTION:  
    This field controls document numbers.  When setting up a new FY, entering 0 will cause the first document to be numbered 1.
4 TYPE 2 SEQ NUMBER C;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 9999999
  • DESCRIPTION:  
    This field controls the document number.  When setting up a new FY, entering a 0 will cause the first document to be numbered 1.
5 TYPE 3 SEQ NUMBER C;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 9999999
  • DESCRIPTION:  
    This field controls the document number.  When setting up a new FY, entering a 0 will cause the first document to be numbered 1.
10 INITIAL REG-1 1;1 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  JAN 13, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    Dollar amount between 0 and 9999999
11 INITIAL REG-2 1;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  JAN 13, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    Dollar amount between 0 and 9999999
12 INITIAL REG-3 1;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  JAN 13, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    Dollar amount between 0 and 9999999
13 INITIAL REG-4 1;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  JAN 13, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    Dollar amount between 0 and 9999999
14 INITIAL REG-5 1;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  JAN 13, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    Dollar amount between 0 and 9999999
15 INITIAL REG-6 1;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  JAN 13, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    Dollar amount between 0 and 9999999
16 INITIAL REG-7 1;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  JAN 13, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    Dollar amount between 0 and 9999999
Info |  Details |  All