Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^ACRALW

Package: Commitment Register

Global: ^ACRALW


Information

FileMan FileNo FileMan Filename Package
9002186 FMS ALLOWANCE Commitment Register

Description

Directly Accessed By Routines, Total: 10

Package Total Routines
Commitment Register 10 ACRALT    ACRFCALC    ACRFDTP4    ACRFFDH    ACRFNY    ACRFNY1    ACRFNY2    ACRFSHFT
ACRFSOF1    ACRFTV1    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Commitment Register 4 ACRFCALC    ACRFNY    ACRFNY1    ACRFSHFT    

Pointed To By FileMan Files, Total: 5

Package Total FileMan Files
Commitment Register 5 FMS SUB-ALLOWANCE(#9002187)[.03]    FMS ALLOWANCE(#9002186)[.07, .15, .9]
FMS DEPARTMENT ACCOUNT(#9002188)[.03]    FMS REQUEST(#9002189)[.12]    FMS SUPPLIES AND SERVICES(#9002193)[.09]    

Pointer To FileMan Files, Total: 9

Package Total FileMan Files
Utility Tables 6 ACCOUNTING POINT(#9999999.69)[130]    ALLOWANCE NO.(#9999999.52)[50]    BUDGET ACTIVITY(#9999999.54)[60]    APPROPRIATION NO.(#9999999.51)[40]    SUB-ACTIVITY(#9999999.55)[70]    SUB-SUB-ACTIVITY(#9999999.56)[80]    
Commitment Register 2 FMS ALLOWANCE(#9002186)[.07, .15, .9]
FMS APPROPRIATION(#9002185)[.02]    
Kernel 1 NEW PERSON(#200)[#9002186.01(.01)]    

Fields, Total: 42

Field # Name Loc Type Details
.01 AMOUNT 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999.99)!(X<-99999999.99) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Dollar Amount between -99999999.99 and 99999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Enter the dollar amount for this allowance.
  • DELETE TEST:  1,0)= I 0 ;I 1 W *7,*7,!!,"ALLOTMENTS cannot be deleted. To inactivate this ALLOTMENT, change",!,"the amount to 0.00 and delete all users from ALLOTMENT DATA ACCESS.",!!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9002186^1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALW(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002186,.01,1,1,1.1) X ^DD(9002186,.01,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRALW(D0,"BA")):^("BA"),1:"") S X=DIV-$P(Y(1),U,3)
    1.4)= S DIH=$S($D(^ACRALW(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,1)=DIV,DIH=9002186,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALW(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002186,.01,1,1,2.1) X ^DD(9002186,.01,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ACRALW(D0,0)):^(0),1:""),Y(2)=$S($D(^("BA")):^("BA"),1:"") S X=$P(Y(1),U,1)-$P(Y(2),U,3)
    2.4)= S DIH=$S($D(^ACRALW(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,1)=DIV,DIH=9002186,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= AMOUNT-SPENT
    DELETE VALUE)= AMOUNT-SPENT
    FIELD)= BALANCE
  • CROSS-REFERENCE:  ^^TRIGGER^9002185^.1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002186,.01,1,2,89.2) S X=$P(Y(101),U,10) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(9002186,.01,1,2,1.4)
    1.4)= S DIH=$S($D(^ACRAPP(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,10)=DIV,DIH=9002185,DIG=.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002186,.01,1,2,89.2) S X=$P(Y(101),U,10) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU-X X ^DD(9002186,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^ACRAPP(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,10)=DIV,DIH=9002185,DIG=.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRALW(D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^ACRAPP(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACRAPP(D0,0)):^(0),1:"")
    CREATE VALUE)= TOTAL ALLOTMENTS+AMOUNT
    DELETE VALUE)= TOTAL ALLOTMENTS-OLD AMOUNT
    FIELD)= APPROPRIATION:TOTAL ALLOTMENTS
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.52^1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002186,.01,1,3,89.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(9002186,.01,1,3,1.4)
    1.4)= S DIH=$S($D(^AUTTALLW(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,1)=DIV,DIH=9999999.52,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002186,.01,1,3,89.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU-X X ^DD(9002186,.01,1,3,2.4)
    2.4)= S DIH=$S($D(^AUTTALLW(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,1)=DIV,DIH=9999999.52,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:""),D0=$P(Y(1),U,5) S:'$D(^AUTTALLW(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^AUTTALLW(D0,"BA")):^("BA"),1:"")
    CREATE VALUE)= ALLOWANCE YTD+AMOUNT
    DELETE VALUE)= ALLOWANCE YTD-OLD AMOUNT
    FIELD)= ALLOWANCE:ALLOWANCE YTD
.02 APPROPRIATION 0;2 POINTER TO FMS APPROPRIATION FILE (#9002185) FMS APPROPRIATION(#9002185)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a pointer to the FMS APPROPRIATION file.  This entry is entered internally by the system and should not be edited directly.
  • CROSS-REFERENCE:  9002186^M
    1)= S ^ACRALW("M",$E(X,1,30),DA)=""
    2)= K ^ACRALW("M",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002186^10
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002186,.02,1,2,1.1) X ^DD(9002186,.02,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRAPP(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRAPP(D0,"DT")):^("DT"),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRALW(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,1)=DIV,DIH=9002186,DIG=10 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.02:#10
    DELETE VALUE)= NO EFFECT
    FIELD)= FISCAL YEAR
  • CROSS-REFERENCE:  ^^TRIGGER^9002186^40
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9002186,.02,1,5,1.1) X ^DD(9002186,.02,1,5,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRAPP(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRAPP(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRALW(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,4)=DIV,DIH=9002186,DIG=40 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.02:INTERNAL(#.02)
    DELETE VALUE)= NO EFFECT
    FIELD)= #40
  • CROSS-REFERENCE:  ^^TRIGGER^9002185^.1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002186,.02,1,6,89.2) S X=$P(Y(101),U,10) S D0=I(0,0) S DIU=X K Y X ^DD(9002186,.02,1,6,1.1) X ^DD(9002186,.02,1,6,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRALW(D0,0)):^(0),1:"") S X=DIU+$P(Y(1),U,1)
    1.4)= S DIH=$S($D(^ACRAPP(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,10)=DIV,DIH=9002185,DIG=.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002186,.02,1,6,89.2) S X=$P(Y(101),U,10) S D0=I(0,0) S DIU=X K Y X ^DD(9002186,.02,1,6,2.1) X ^DD(9002186,.02,1,6,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ACRALW(D0,0)):^(0),1:"") S X=DIU-$P(Y(1),U,1)
    2.4)= S DIH=$S($D(^ACRAPP(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,10)=DIV,DIH=9002185,DIG=.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRALW(D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^ACRAPP(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACRAPP(D0,0)):^(0),1:"")
    CREATE VALUE)= TOTAL ALLOTMENTS+AMOUNT
    DELETE VALUE)= TOTAL ALLOTMENTS-AMOUNT
    FIELD)= APPROPRIATION:TOTAL ALLOTMENTS
.06 NEXT YEAR ACCOUNT CREATED 0;6 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the appropriate code to indicate if an account for the next fiscal year has been created.
.07 NEXT YEAR'S ACCOUNT 0;7 POINTER TO FMS ALLOWANCE FILE (#9002186) FMS ALLOWANCE(#9002186)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate account from the list.
  • DESCRIPTION:  
    This is a pointer to the account created for the next fiscal year. This is set internally by the system and should not be edited directly.
  • CROSS-REFERENCE:  9002186^NEXTFY
    1)= S ^ACRALW("NEXTFY",$E(X,1,30),DA)=""
    2)= K ^ACRALW("NEXTFY",$E(X,1,30),DA)
.1 TOTAL ALLOCATIONS 0;10 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field is triggered internally as the sum of all allocations of funds against this allowance.  This should not be edited directly.
  • NOTES:  TRIGGERED by the ALLOWANCE field of the FMS SUB-ALLOWANCE File
    TRIGGERED by the AMOUNT field of the FMS SUB-ALLOWANCE File
.15 LAST YEAR'S ACCOUNT 0;15 POINTER TO FMS ALLOWANCE FILE (#9002186) FMS ALLOWANCE(#9002186)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate ALLOWANCE from the list.
  • DESCRIPTION:  
    This is a pointer the last years ALLOWANCE.  This is set internally by the system and should not be edited directly.
  • CROSS-REFERENCE:  9002186^LASTFY
    1)= S ^ACRALW("LASTFY",$E(X,1,30),DA)=""
    2)= K ^ACRALW("LASTFY",$E(X,1,30),DA)
.16 CREATE NEXT FY ACCOUNT 0;16 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  This information can be entered to control the creation of the next year's financial account. If 'YES' is entered, a new account for the next fiscal year will be established regardless of any other conditions, such as the
    current year's funds being 'non-recurring.'  Likewise, if 'NO' is entered no new account will be created.
.2 RECIPIENT 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter a name which will identify the recipient of these funds.
  • CROSS-REFERENCE:  9002186^D
    1)= S ^ACRALW("D",$E(X,1,30),DA)=""
    2)= K ^ACRALW("D",$E(X,1,30),DA)
.3 RECIPIENT GLOBAL 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-10 characters in length.
  • DESCRIPTION:  
    This is an entry which indicates the global associated with the type of recipient of these funds.  This information is entered internally and should not be edited directly vi FM.
.4 RECIPIENT DFN 0;14 NUMBER

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between 1 and 99999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the internal entry number of the recipient of the funds in the global entered in RECIPIENT GLOBAL.  This entry is set internally by the system and should not be edited directly via FM.
.8 ORIGINAL/AMENDMENT 0;8 SET
  • 'O' FOR ORIGINAL;
  • 'I' FOR INCREASE;
  • 'D' FOR DECREASE;

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter 'O' if this is an original distribution of funds, 'I' if this is an increase or 'D' if this is a decrease of funds.
  • CROSS-REFERENCE:  9002186^ORG
    1)= S ^ACRALW("ORG",$E(X,1,30),DA)=""
    2)= K ^ACRALW("ORG",$E(X,1,30),DA)
.9 ALLOWANCE AMENDED 0;9 POINTER TO FMS ALLOWANCE FILE (#9002186)
************************REQUIRED FIELD************************
FMS ALLOWANCE(#9002186)

  • INPUT TRANSFORM:  S DIC("S")="I $D(ACRAPPDA),$P(^ACRALW(+Y,0),U,2),$P(^(0),U,8)[""O""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the ORIGINAL Allowance.
  • DESCRIPTION:  
    This is a pointer to the ALLOWANCE which is being amended.  Enter the original ALLOWANCE which is now being increased or decreased.
  • SCREEN:  S DIC("S")="I $D(ACRAPPDA),$P(^ACRALW(+Y,0),U,2),$P(^(0),U,8)[""O"""
  • EXPLANATION:  ENSURE ALLOWANCE AMENDED IS ORIGINAL
  • CROSS-REFERENCE:  9002186^ORIG
    1)= S ^ACRALW("ORIG",$E(X,1,30),DA)=""
    2)= K ^ACRALW("ORIG",$E(X,1,30),DA)
1 BALANCE BA;1 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999.99)!(X<-99999999.99) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Dollar Amount between -99999999.99 and 99999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is a dollar amount of the remaining funds which have been distributed but not spent.  This amount is calculated and entered internally and should not be edited directly.
  • NOTES:  TRIGGERED by the SPENT field of the FMS ALLOWANCE File
    TRIGGERED by the AMOUNT field of the FMS ALLOWANCE File
2 REQUESTED BA;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999.99)!(X<-99999999.99) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Dollar Amount between -99999999.99 and 99999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is a dollar amount which represents the total amount of money that has been requested against funds distributed under this allowance.  This amount is calculated internally and should not be edited directly.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ITEM ESTIMATED COST field of the FMS SUPPLIES AND SERVICES File
3 SPENT BA;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999.99)!(X<-99999999.99) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Dollar Amount between -99999999.99 and 99999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is a dollar amount which represents the total amount of money that has been spent against funds distributed under this allowance.  This amount is calculated internally and should not be edited directly.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the TOTAL PAID field of the FMS SUPPLIES AND SERVICES File
  • CROSS-REFERENCE:  ^^TRIGGER^9002186^1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALW(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002186,3,1,1,1.1) X ^DD(9002186,3,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRALW(D0,0)):^(0),1:"") S X=$P(Y(1),U,1)-DIV
    1.4)= S DIH=$S($D(^ACRALW(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,1)=DIV,DIH=9002186,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALW(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002186,3,1,1,2.1) X ^DD(9002186,3,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ACRALW(D0,0)):^(0),1:"") S X=$P(Y(1),U,1)+X
    2.4)= S DIH=$S($D(^ACRALW(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,1)=DIV,DIH=9002186,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= AMOUNT-SPENT
    DELETE VALUE)= AMOUNT+OLD SPENT
    FIELD)= BALANCE
4 % ALLOTMENT REMAINING COMPUTED

  • MUMPS CODE:  X ^DD(9002186,4,9.2) S X=X*100
    9.2 = S Y(9002186,4,2)=$S($D(^ACRALW(D0,0)):^(0),1:""),Y(9002186,4,1)=$S($D(^("BA")):^("BA"),1:"") S X=$P(Y(9002186,4,1),U,1),X=$S($P(Y(9002186,4,2),U,1):X/$P(Y(9002186,4,2),U,1),1:"*******")
  • ALGORITHM:  (BALANCE/AMOUNT)*100
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a calculation of the percent of the funds from this allowance which have not yet been distributed.  This amount is calculated by the system and should not be edited directly.
5 % ALLOTMENT ALLOCATED COMPUTED

  • MUMPS CODE:  S Y(9002186,5,1)=$S($D(^ACRALW(D0,0)):^(0),1:"") S X=$P(Y(9002186,5,1),U,10),X=$S($P(Y(9002186,5,1),U,1):X/$P(Y(9002186,5,1),U,1),1:"*******")*100 S X=$J(X,0,0)
    9.2 = S Y(9002186,5,2)=$S($D(^ACRALW(D0,0)):^(0),1:""),Y(9002186,5,1)=$S($D(^("BA")):^("BA"),1:"") S X=$P(Y(9002186,5,1),U,3),X=$S($P(Y(9002186,5,2),U,1):X/$P(Y(9002186,5,2),U,1),1:"*******")
  • ALGORITHM:  (TOTAL ALLOCATIONS/AMOUNT)*100 (ALWAYS 0 DECIMAL DIGITS)
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a calculation of the percent of the funds from this allowance which have already been distributed.  This amount is calculated by the system and should not be edited directly.
6 UNREQUESTED BA;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999.99)!(X<-9999999.99) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is a dollar amount and is a calculation of the dollars that are still unrequested from the funds in this allowance.  This amount is calculated by the system and should not be edited directly.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
7 OBLIGATED BA;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999.99)!(X<-99999999.99) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Dollar Amount between -99999999.99 and 99999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is a dollar amount which indicates the total dollars obligated against the funds in this allowance.  This amount is calculated by the system and should not be edited directly.
  • NOTES:  TRIGGERED by the ITEM OBLIGATED AMOUNT field of the FMS SUPPLIES AND SERVICES File
10 FISCAL YEAR DT;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1000)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 05, 1999
  • HELP-PROMPT:  Type a Number between 1000 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    Enter the 4 digit Fiscal Year which indicates the fiscal year of the funds in this account.
  • NOTES:  TRIGGERED by the APPROPRIATION field of the FMS ALLOWANCE File
  • CROSS-REFERENCE:  9002186^FY
    1)= S ^ACRALW("FY",$E(X,1,30),DA)=""
    2)= K ^ACRALW("FY",$E(X,1,30),DA)
20 QUARTER DT;2 NUMBER

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>4)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between 1 and 4, 0 Decimal Digits
  • DESCRIPTION:  
    Enter the numeric digit, 1, 2, 3 or 4, which represents the quarter for which these funds are distributed.
  • CROSS-REFERENCE:  9002186^AD^MUMPS
    1)= S:$D(^ACRALW(DA,"DT"))&($P(^ACRALW(DA,"DT"),U)'="")&($P(^("DT"),U,2)'="") ^ACRALW("AD",$P(^ACRALW(DA,"DT"),U),$P(^("DT"),U,2),DA)=""
    2)= K:$D(^ACRALW(DA,"DT"))&($P(^ACRALW(DA,"DT"),U)'="")&($P(^("DT"),U,2)'="") ^ACRALW("AD",$P(^ACRALW(DA,"DT"),U),$P(^("DT"),U,2),DA)
30 RECURRING/NON-RECURRING DT;3 SET
  • 'R' FOR RECURRING;
  • 'N' FOR NON-RECURNG;

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the appropriate code to indicate whether these funds are recurring or non-recurring.
40 APPROPRIATION NO. DT;4 POINTER TO APPROPRIATION NO. FILE (#9999999.51) APPROPRIATION NO.(#9999999.51)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the APPROPRIATION NO. from the list which is the correct appropriation from which these funds are distributed.
  • NOTES:  TRIGGERED by the APPROPRIATION field of the FMS ALLOWANCE File
50 ALLOWANCE DT;5 POINTER TO ALLOWANCE NO. FILE (#9999999.52)
************************REQUIRED FIELD************************
ALLOWANCE NO.(#9999999.52)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the ALLOWANCE number which is appropriate to these funds.
  • CROSS-REFERENCE:  9002186^AC^MUMPS
    1)= S:$D(^ACRALW(DA,"DT"))&($P(^("DT"),U,5)'="")&($P(^("DT"),U)'="")&($P(^(0),U)'="") ^ACRALW("AC",$P(^ACRALW(DA,"DT"),U,5),$P(^("DT"),U),DA)=$P(^ACRALW(DA,0),U)
    2)= K:$D(^ACRALW(DA,"DT"))&($P(^("DT"),U,5)'="")&($P(^("DT"),U)'="")&($P(^(0),U)'="") ^ACRALW("AC",$P(^ACRALW(DA,"DT"),U,5),$P(^("DT"),U),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002186^130
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9002186,50,1,3,1.1) X ^DD(9002186,50,1,3,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTALLW(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTALLW(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRALW(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,13)=DIV,DIH=9002186,DIG=130 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9002186,50,1,3,2.1) X ^DD(9002186,50,1,3,2.4)
    2.1)= S X=DIV X ^DD(9002186,50,1,3,59.2) S Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACRALW(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,13)=DIV,DIH=9002186,DIG=130 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:""),D0=$P(Y(1),U,5) S:'$D(^AUTTALLW(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTALLW(D0,0)):^(0),1:"")
    CREATE VALUE)= ALLOWANCE:INTERNAL(#.02)
    DELETE VALUE)= ALLOWANCE:INTERNAL(#.02)
    FIELD)= ACCOUNTING POINT
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.52^1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002186,50,1,4,89.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y X ^DD(9002186,50,1,4,1.1) X ^DD(9002186,50,1,4,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRALW(D0,0)):^(0),1:"") S X=DIU+$P(Y(1),U,1)
    1.4)= S DIH=$S($D(^AUTTALLW(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,1)=DIV,DIH=9999999.52,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002186,50,1,4,89.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y X ^DD(9002186,50,1,4,2.1) X ^DD(9002186,50,1,4,2.4)
    2.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),Y(2)=$S($D(^ACRALW(D0,0)):^(0),1:""),D0=X S:'$D(^AUTTALLW(+D0,0)) D0=-1 S X=DIU-$P(Y(2),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^AUTTALLW(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,1)=DIV,DIH=9999999.52,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:""),D0=$P(Y(1),U,5) S:'$D(^AUTTALLW(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^AUTTALLW(D0,"BA")):^("BA"),1:"")
    CREATE VALUE)= ALLOWANCE YTD+AMOUNT
    DELETE VALUE)= (OLD ALLOWANCE:ALLOWANCE YTD)-AMOUNT
    FIELD)= ALLOWANCE:ALLOWANCE YTD
  • CROSS-REFERENCE:  9002186^C
    1)= S ^ACRALW("C",$E(X,1,30),DA)=""
    2)= K ^ACRALW("C",$E(X,1,30),DA)
60 BUDGET ACTIVITY DT;6 POINTER TO BUDGET ACTIVITY FILE (#9999999.54)
************************REQUIRED FIELD************************
BUDGET ACTIVITY(#9999999.54)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • NOTES:  TRIGGERED by the SUB-ACTIVITY field of the FMS ALLOWANCE File
    TRIGGERED by the SUB-SUB-ACTIVITY field of the FMS ALLOWANCE File
70 SUB-ACTIVITY DT;7 POINTER TO SUB-ACTIVITY FILE (#9999999.55)
************************REQUIRED FIELD************************
SUB-ACTIVITY(#9999999.55)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the appropriate SUB-ACTIVITY from the list.
  • NOTES:  TRIGGERED by the SUB-SUB-ACTIVITY field of the FMS ALLOWANCE File
  • CROSS-REFERENCE:  ^^TRIGGER^9002186^60
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002186,70,1,1,1.1) X ^DD(9002186,70,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTSA(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTSA(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,3),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRALW(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,6)=DIV,DIH=9002186,DIG=60 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #70:INTERNAL(#.03)
    DELETE VALUE)= NO EFFECT
    FIELD)= #60
80 SUB-SUB-ACTIVITY DT;8 POINTER TO SUB-SUB-ACTIVITY FILE (#9999999.56)
************************REQUIRED FIELD************************
SUB-SUB-ACTIVITY(#9999999.56)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the appropriate SUB-SUB-ACTIVITY from the list.
  • CROSS-REFERENCE:  ^^TRIGGER^9002186^70
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002186,80,1,1,1.1) X ^DD(9002186,80,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTSSA(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTSSA(D0,"DT")):^("DT"),1:""),Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRALW(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,7)=DIV,DIH=9002186,DIG=70 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002186,80,1,1,2.1) X ^DD(9002186,80,1,1,2.4)
    2.1)= S X=DIV X ^DD(9002186,80,1,1,59.2) S Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACRALW(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,7)=DIV,DIH=9002186,DIG=70 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:""),D0=$P(Y(1),U,8) S:'$D(^AUTTSSA(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTSSA(D0,"DT")):^("DT"),1:"")
    CREATE VALUE)= SUB-SUB-ACTIVITY:INTERNAL(#20)
    DELETE VALUE)= SUB-SUB-ACTIVITY:INTERNAL(#20)
    FIELD)= SUB-ACTIVITY
  • CROSS-REFERENCE:  ^^TRIGGER^9002186^60
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002186,80,1,2,1.1) X ^DD(9002186,80,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTSSA(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTSSA(D0,"DT")):^("DT"),1:""),Y(101)=X S X=$P(Y(102),U,1),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRALW(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,6)=DIV,DIH=9002186,DIG=60 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002186,80,1,2,2.1) X ^DD(9002186,80,1,2,2.4)
    2.1)= S X=DIV X ^DD(9002186,80,1,2,59.2) S Y(101)=X S X=$P(Y(102),U,1),X=X S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACRALW(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,6)=DIV,DIH=9002186,DIG=60 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:""),D0=$P(Y(1),U,8) S:'$D(^AUTTSSA(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTSSA(D0,"DT")):^("DT"),1:"")
    CREATE VALUE)= SUB-SUB-ACTIVITY:INTERNAL(#10)
    DELETE VALUE)= SUB-SUB-ACTIVITY:INTERNAL(#10)
    FIELD)= BUDGET ACTIVITY
130 ACCOUNTING POINT DT;13 POINTER TO ACCOUNTING POINT FILE (#9999999.69)
************************REQUIRED FIELD************************
ACCOUNTING POINT(#9999999.69)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the appropriate ACCOUNTING POINT from the list.
  • NOTES:  TRIGGERED by the ALLOWANCE field of the FMS ALLOWANCE File
201 COMMENT LINE 1 CMT;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
  • DESCRIPTION:  
    Enter any comments relative to this distribution of funds.
202 COMMENT LINE 2 CMT;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
  • DESCRIPTION:  
    Enter any comments relative to this distribution of funds.
203 COMMENT LINE 3 CMT;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
  • DESCRIPTION:  
    Enter any comments relative to this distribution of funds.
204 COMMENT LINE 4 CMT;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
  • DESCRIPTION:  
    Enter any comments relative to this distribution of funds
205 COMMENT LINE 5 CMT;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
  • DESCRIPTION:  
    Enter any comments relative to this distribution of funds.
206 PURPOSE LINE 1 PURP;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
  • DESCRIPTION:  
    Enter the purpose for which these funds are being distributed.
207 PURPOSE LINE 2 PURP;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
  • DESCRIPTION:  
    Enter the purpose for which these funds are being distributed.
208 PURPOSE LINE 3 PURP;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
  • DESCRIPTION:  
    Enter the purpose for which these funds are being distributed.
209 PURPOSE LINE 4 PURP;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
  • DESCRIPTION:  
    Enter the purpose for which these funds are being distributed.
210 PURPOSE LINE 5 PURP;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
  • DESCRIPTION:  
    Enter the purpose for which these funds are being distributed.
700 TRANSMIT TR;1 SET
  • 'Y' FOR TRANSMIT;
  • 'N' FOR DON'T TRANSMIT;

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the code to specify whether or not you wish for this distribution of funds to be transmitted electronically.
701 TRANSMISSION CODE TR;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<2) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 2-4 characters in length.
  • DESCRIPTION:  
    Enter the transmission code for transmission of this distribution of funds.
800 FORWARDED FWD;1 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This code is entered internally by the system and should not be edited directly.  The code confirms whether the funds have been transmitted electronically.
900 ALLOWANCE DATA ACCESS SC;0 POINTER Multiple #9002186.01 9002186.01

  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a multiple field which allows the person controlling the distribution of these funds to indicate which individuals are allowed to have access to the funds being distributed.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All