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: ^ACRALC

Package: Commitment Register

Global: ^ACRALC


Information

FileMan FileNo FileMan Filename Package
9002187 FMS SUB-ALLOWANCE Commitment Register

Description

Directly Accessed By Routines, Total: 12

Package Total Routines
Commitment Register 12 ACRALC    ACRFCALC    ACRFDTP4    ACRFEA4    ACRFFDH    ACRFFDS    ACRFNY    ACRFNY1
ACRFNY2    ACRFSHFT    ACRFSOF1    ACRFTV1    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Commitment Register 5 ACRFCALC    ACRFEA4    ACRFNY    ACRFNY1    ACRFSHFT    

Pointed To By FileMan Files, Total: 6

Package Total FileMan Files
Commitment Register 6 FMS SUB-ALLOWANCE(#9002187)[.07, .15, .9]
ARMS CAN(#9002186.5)[.16]    FMS DISTRIBUTION(#9002191)[.05]    FMS DEPARTMENT ACCOUNT(#9002188)[.04]    FMS REQUEST(#9002189)[.02]    FMS SUPPLIES AND SERVICES(#9002193)[.08]    

Pointer To FileMan Files, Total: 14

Package Total FileMan Files
Utility Tables 9 ACCOUNTING POINT(#9999999.69)[130]    ALLOWANCE NO.(#9999999.52)[50]    BUDGET ACTIVITY(#9999999.54)[60]    COMMON ACCOUNTING NUMBER(#9999999.57)[90]    COST CENTER(#9999999.58)[100]    LOCATION CODE(#9999999.66)[110]    APPROPRIATION NO.(#9999999.51)[40]    SUB-ACTIVITY(#9999999.55)[70]    SUB-SUB-ACTIVITY(#9999999.56)[80]    
Commitment Register 4 FMS SUB-ALLOWANCE(#9002187)[.07, .15, .9]
FMS ALLOWANCE(#9002186)[.03]    FMS APPROPRIATION(#9002185)[.02]    FMS DOCUMENT HISTORY RECORD(#9002189.1)[.19]    
Kernel 1 NEW PERSON(#200)[.18, #9002187.04(.01)]    

Fields, Total: 58

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>99999999.99)!(X<-99999999.99) X
  • LAST EDITED:  OCT 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 1 W *7,*7,!!,"ALLOCATIONS cannot be deleted. To inactivate this ALLOCATION, change",!,"the amount to 0.00 and delete all users from ALLOCATION DATA ACCESS.",!!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9002187^1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALC(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002187,.01,1,1,1.1) X ^DD(9002187,.01,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRALC(D0,"BA")):^("BA"),1:"") S X=DIV-$P(Y(1),U,3)
    1.4)= S DIH=$S($D(^ACRALC(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,1)=DIV,DIH=9002187,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(^ACRALC(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002187,.01,1,1,2.1) X ^DD(9002187,.01,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ACRALC(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(^ACRALC(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,1)=DIV,DIH=9002187,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= AMOUNT-SPENT
    DELETE VALUE)= AMOUNT-SPENT
    FIELD)= BALANCE
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.56^1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002187,.01,1,2,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(9002187,.01,1,2,1.4)
    1.4)= S DIH=$S($D(^AUTTSSA(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,1)=DIV,DIH=9999999.56,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002187,.01,1,2,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(9002187,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^AUTTSSA(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,1)=DIV,DIH=9999999.56,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(^ACRALC(D0,"DT")):^("DT"),1:""),D0=$P(Y(1),U,8) S:'$D(^AUTTSSA(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^AUTTSSA(D0,"BA")):^("BA"),1:"")
    CREATE VALUE)= SSA YTD+AMOUNT
    DELETE VALUE)= SSA YTD-OLD AMOUNT
    FIELD)= SSA:SSA YTD
  • CROSS-REFERENCE:  ^^TRIGGER^9002187^.11
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALC(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9002187,.01,1,3,1.1) X ^DD(9002187,.01,1,3,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRALC(D0,0)):^(0),1:"") S X=DIV-$P(Y(1),U,10)
    1.4)= S DIH=$S($D(^ACRALC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=9002187,DIG=.11 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(^ACRALC(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9002187,.01,1,3,2.1) X ^DD(9002187,.01,1,3,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ACRALC(D0,0)):^(0),1:"") S X=$P(Y(1),U,1)-$P(Y(1),U,10)
    2.4)= S DIH=$S($D(^ACRALC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=9002187,DIG=.11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= AMOUNT-TOTAL LOCAL BUDGET
    DELETE VALUE)= AMOUNT-TOTAL LOCAL BUDGETS
    FIELD)= TOTAL ALLOCATION REMAINING
  • CROSS-REFERENCE:  ^^TRIGGER^9002186^.1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002187,.01,1,5,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(9002187,.01,1,5,1.4)
    1.4)= S DIH=$S($D(^ACRALW(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,10)=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 X ^DD(9002187,.01,1,5,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(9002187,.01,1,5,2.4)
    2.4)= S DIH=$S($D(^ACRALW(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,10)=DIV,DIH=9002186,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(^ACRALC(D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^ACRALW(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACRALW(D0,0)):^(0),1:"")
    CREATE VALUE)= TOTAL ALLOCATIONS+AMOUNT
    DELETE VALUE)= TOTAL ALLOCATIONS-OLD AMOUNT
    FIELD)= ALLOTMENT:TOTAL ALLOCATIONS
.02 APPROPRIATION 0;2 POINTER TO FMS APPROPRIATION FILE (#9002185) FMS APPROPRIATION(#9002185)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • NOTES:  TRIGGERED by the ALLOWANCE field of the FMS SUB-ALLOWANCE File
.03 ALLOWANCE 0;3 POINTER TO FMS ALLOWANCE FILE (#9002186) FMS ALLOWANCE(#9002186)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • CROSS-REFERENCE:  9002187^M
    1)= S ^ACRALC("M",$E(X,1,30),DA)=""
    2)= K ^ACRALC("M",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002187^10
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALC(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002187,.03,1,2,1.1) X ^DD(9002187,.03,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALW(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRALC(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,1)=DIV,DIH=9002187,DIG=10 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.03:#10
    DELETE VALUE)= NO EFFECT
    FIELD)= #10
  • CROSS-REFERENCE:  ^^TRIGGER^9002187^20
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALC(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002187,.03,1,3,1.1) X ^DD(9002187,.03,1,3,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALW(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:"") S X=$P(Y(101),U,2) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRALC(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,2)=DIV,DIH=9002187,DIG=20 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.03:#20
    DELETE VALUE)= NO EFFECT
    FIELD)= #20
  • CROSS-REFERENCE:  ^^TRIGGER^9002187^30
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALC(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9002187,.03,1,4,1.1) X ^DD(9002187,.03,1,4,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALW(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALW(D0,"DT")):^("DT"),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(^ACRALC(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,3)=DIV,DIH=9002187,DIG=30 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(^ACRALC(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9002187,.03,1,4,2.1) X ^DD(9002187,.03,1,4,2.4)
    2.1)= S X=DIV X ^DD(9002187,.03,1,4,59.2) S Y(101)=X S X=$P(Y(102),U,3),X=X S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACRALC(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,3)=DIV,DIH=9002187,DIG=30 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRALC(D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^ACRALW(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:"")
    CREATE VALUE)= #.03:INTERNAL(#30)
    DELETE VALUE)= #.03:INTERNAL(#30)
    FIELD)= #30
  • CROSS-REFERENCE:  ^^TRIGGER^9002187^40
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALC(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9002187,.03,1,5,1.1) X ^DD(9002187,.03,1,5,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALW(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:""),Y(101)=X S X=$P(Y(102),U,4),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRALC(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,4)=DIV,DIH=9002187,DIG=40 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.03:INTERNAL(#40)
    DELETE VALUE)= NO EFFECT
    FIELD)= #40
  • CROSS-REFERENCE:  ^^TRIGGER^9002187^50
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALC(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002187,.03,1,6,1.1) X ^DD(9002187,.03,1,6,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALW(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:""),Y(101)=X S X=$P(Y(102),U,5),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRALC(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,5)=DIV,DIH=9002187,DIG=50 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.03:INTERNAL(#50)
    DELETE VALUE)= NO EFFECT
    FIELD)= #50
  • CROSS-REFERENCE:  ^^TRIGGER^9002187^60
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALC(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002187,.03,1,7,1.1) X ^DD(9002187,.03,1,7,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALW(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:""),Y(101)=X S X=$P(Y(102),U,6),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRALC(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,6)=DIV,DIH=9002187,DIG=60 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.03:INTERNAL(#60)
    DELETE VALUE)= NO EFFECT
    FIELD)= #60
  • CROSS-REFERENCE:  ^^TRIGGER^9002187^70
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALC(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002187,.03,1,8,1.1) X ^DD(9002187,.03,1,8,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALW(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:""),Y(101)=X S X=$P(Y(102),U,7),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRALC(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,7)=DIV,DIH=9002187,DIG=70 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.03:INTERNAL(#70)
    DELETE VALUE)= NO EFFECT
    FIELD)= #70
  • CROSS-REFERENCE:  ^^TRIGGER^9002187^.02
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALC(D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002187,.03,1,9,1.1) X ^DD(9002187,.03,1,9,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALW(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALW(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(^ACRALC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9002187,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.03:INTERNAL(#.02)
    DELETE VALUE)= NO EFFECT
    FIELD)= #.02
  • CROSS-REFERENCE:  ^^TRIGGER^9002186^.1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002187,.03,1,10,89.2) S X=$P(Y(101),U,10) S D0=I(0,0) S DIU=X K Y X ^DD(9002187,.03,1,10,1.1) X ^DD(9002187,.03,1,10,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRALC(D0,0)):^(0),1:"") S X=DIU+$P(Y(1),U,1)
    1.4)= S DIH=$S($D(^ACRALW(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,10)=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 X ^DD(9002187,.03,1,10,89.2) S X=$P(Y(101),U,10) S D0=I(0,0) S DIU=X K Y X ^DD(9002187,.03,1,10,2.1) X ^DD(9002187,.03,1,10,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ACRALC(D0,0)):^(0),1:"") S X=DIU-$P(Y(1),U,1)
    2.4)= S DIH=$S($D(^ACRALW(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,10)=DIV,DIH=9002186,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(^ACRALC(D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^ACRALW(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACRALW(D0,0)):^(0),1:"")
    CREATE VALUE)= TOTAL ALLOCATIONS+AMOUNT
    DELETE VALUE)= TOTAL ALLOCATIONS-AMOUNT
    FIELD)= ALLOTMENT:TOTAL ALLOCATIONS
  • CROSS-REFERENCE:  ^^TRIGGER^9002187^80
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALC(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9002187,.03,1,11,1.1) X ^DD(9002187,.03,1,11,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALW(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:""),Y(101)=X S X=$P(Y(102),U,8),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRALC(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,8)=DIV,DIH=9002187,DIG=80 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(^ACRALC(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9002187,.03,1,11,2.1) X ^DD(9002187,.03,1,11,2.4)
    2.1)= S X=DIV X ^DD(9002187,.03,1,11,59.2) S Y(101)=X S X=$P(Y(102),U,8),X=X S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACRALC(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,8)=DIV,DIH=9002187,DIG=80 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRALC(D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^ACRALW(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:"")
    CREATE VALUE)= #.03:INTERNAL(#80)
    DELETE VALUE)= #.03:INTERNAL(#80)
    FIELD)= #80
  • CROSS-REFERENCE:  ^^TRIGGER^9002187^130
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALC(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9002187,.03,1,12,1.1) X ^DD(9002187,.03,1,12,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALW(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:""),Y(101)=X S X=$P(Y(102),U,13),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRALC(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,13)=DIV,DIH=9002187,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(^ACRALC(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9002187,.03,1,12,2.1) X ^DD(9002187,.03,1,12,2.4)
    2.1)= S X=DIV X ^DD(9002187,.03,1,12,59.2) S Y(101)=X S X=$P(Y(102),U,13),X=X S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACRALC(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,13)=DIV,DIH=9002187,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(^ACRALC(D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^ACRALW(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALW(D0,"DT")):^("DT"),1:"")
    CREATE VALUE)= ALLOTMENT:INTERNAL(#130)
    DELETE VALUE)= ALLOTMENT:INTERNAL(#130)
    FIELD)= ACCOUNTING POINT
.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 SUB-ALLOWANCE FILE (#9002187) FMS SUB-ALLOWANCE(#9002187)

  • 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:  9002187^NEXTFY
    1)= S ^ACRALC("NEXTFY",$E(X,1,30),DA)=""
    2)= K ^ACRALC("NEXTFY",$E(X,1,30),DA)
.1 TOTAL LOCAL BUDGETS 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:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SUB ALLOWANCE field of the FMS DEPARTMENT ACCOUNT File
    TRIGGERED by the AMOUNT field of the FMS DEPARTMENT ACCOUNT File
  • CROSS-REFERENCE:  ^^TRIGGER^9002187^.11
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALC(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9002187,.1,1,1,1.1) X ^DD(9002187,.1,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRALC(D0,0)):^(0),1:"") S X=$P(Y(1),U,1)-DIV
    1.4)= S DIH=$S($D(^ACRALC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=9002187,DIG=.11 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(^ACRALC(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9002187,.1,1,1,2.1) X ^DD(9002187,.1,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ACRALC(D0,0)):^(0),1:"") S X=$P(Y(1),U,1)+X
    2.4)= S DIH=$S($D(^ACRALC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=9002187,DIG=.11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= AMOUNT-TOTAL LOCAL BUDGETS
    DELETE VALUE)= AMOUNT+OLD TOTAL LOCAL BUDGETS
    FIELD)= #.11
.11 TOTAL ALLOCATION REMAINING 0;11 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 calculation of the total amount of the SUB-ALLOWANCE REMAINING.  This is entered internally by the system and should not be edited directly.
  • NOTES:  TRIGGERED by the TOTAL LOCAL BUDGETS 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 SUB-ALLOWANCE FILE (#9002187) FMS SUB-ALLOWANCE(#9002187)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate SUB-ALLOWANCE from the list.
  • DESCRIPTION:  
    This is a pointer to last year's SUB-ALLOWANCE.  This is set internally and should not be edited directly.
  • CROSS-REFERENCE:  9002187^LASTFY
    1)= S ^ACRALC("LASTFY",$E(X,1,30),DA)=""
    2)= K ^ACRALC("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.
.17 DATE CREATED 0;17 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 01, 1996
  • HELP-PROMPT:  Enter the date this Sub-Allowance was created.
  • DESCRIPTION:  
    Enter the date this Sub-Allowance was created.
.18 CREATED BY 0;18 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • OUTPUT TRANSFORM:  S Y=$$NAME2^ACRFUTL1(Y)
  • LAST EDITED:  SEP 30, 2005
  • HELP-PROMPT:  Enter the name of the individual who created this Sub-Allowance entry.
  • DESCRIPTION:  
    Enter the name of the individual who created this Sub-Allowance entry.
  • TECHNICAL DESCR:  In an effort to standardize the name format in the New Person (200) file, there have been some significant changes made to the way the name is entered and displayed. Last names may no longer contain spaces or apostrophes. 
    While this was primarily done to help clarify patient data, it does have a great impact on ARMS for traveler payments and for the display/print of all documents.
    For this reason, effective ARMS V2.1 Patch 19, an output transform has been added to this field allowing the Name to display with punctuation.





.19
DHR ENTRY
0;19
POINTER TO FMS DOCUMENT HISTORY RECORD FILE (#9002189.1)
FMS DOCUMENT HISTORY RECORD(#9002189.1)
  • LAST EDITED:  OCT 01, 1996
  • HELP-PROMPT:  Enter the DHR entry for this Sub-Allowance.
  • DESCRIPTION:  
    Enter the DHR entry for this Sub-Allowance entry.





.191
ADVICE CONTROL NUMBER
0;20
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  OCT 01, 1996
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    Enter the Advice of Allowance CONTROL NUMBER.





.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:  OCT 03, 1997
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter a name which will identify the recipient of these funds.
  • CROSS-REFERENCE:  9002187^C
    1)= S ^ACRALC("C",$E(X,1,30),DA)=""
    2)= K ^ACRALC("C",$E(X,1,30),DA)





.21
DOCUMENT NUMBER
0;21
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<10) X
  • LAST EDITED:  OCT 01, 1996
  • HELP-PROMPT:  Answer must be 10 characters in length.
  • DESCRIPTION:  
    Enter the Advice of Allowance document number.
  • CROSS-REFERENCE:  9002187^D
    1)= S ^ACRALC("D",$E(X,1,30),DA)=""
    2)= K ^ACRALC("D",$E(X,1,30),DA)





.22
EFFECTIVE DATE
0;22
DATE 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 25, 1997
  • HELP-PROMPT:  Enter the date the sub-allowance amount can be spent.
  • DESCRIPTION:  
    Enter the date the sub-allowance amount can be spent.





.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:  9002187^ORG
    1)= S ^ACRALC("ORG",$E(X,1,30),DA)=""
    2)= K ^ACRALC("ORG",$E(X,1,30),DA)





.9
ALLOCATION AMENDED
0;9
POINTER TO FMS SUB-ALLOWANCE FILE (#9002187) 

************************REQUIRED FIELD************************
FMS SUB-ALLOWANCE(#9002187)
  • INPUT TRANSFORM:  S DIC("S")="I $D(ACRALWDA),$P(^ACRALC(+Y,0),U,3)=ACRALWDA,$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 ORIGINAL sub-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(ACRALWDA),$P(^ACRALC(+Y,0),U,3)=ACRALWDA,$P(^(0),U,8)[""O"""
  • EXPLANATION:  ENSURE THAT SUB-ALLOWANCE AMENDED IS ORIGINAL
  • CROSS-REFERENCE:  9002187^ORIG
    1)= S ^ACRALC("ORIG",$E(X,1,30),DA)=""
    2)= K ^ACRALC("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>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 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 SUB-ALLOWANCE File
    TRIGGERED by the AMOUNT field of the FMS SUB-ALLOWANCE File





2
REQUESTED
BA;2
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 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>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 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^9002187^1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRALC(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002187,3,1,1,1.1) X ^DD(9002187,3,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRALC(D0,0)):^(0),1:"") S X=$P(Y(1),U,1)-DIV
    1.4)= S DIH=$S($D(^ACRALC(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,1)=DIV,DIH=9002187,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(^ACRALC(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002187,3,1,1,2.1) X ^DD(9002187,3,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ACRALC(D0,0)):^(0),1:"") S X=$P(Y(1),U,1)+X
    2.4)= S DIH=$S($D(^ACRALC(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,1)=DIV,DIH=9002187,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= AMOUNT-SPENT
    DELETE VALUE)= AMOUNT+OLD SPENT
    FIELD)= BALANCE





4
% ALLOCATION REMAINING

COMPUTED

  • MUMPS CODE:  X ^DD(9002187,4,9.2) S X=X*100
    9.2 = S Y(9002187,4,2)=$S($D(^ACRALC(D0,0)):^(0),1:""),Y(9002187,4,1)=$S($D(^("BA")):^("BA"),1:"") S X=$P(Y(9002187,4,1),U,1),X=$S($P(Y(9002187,4,2),U,1):X/$P(Y(9002187,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
% ALLOCATION DISTRIBUTED

COMPUTED

  • MUMPS CODE:  X ^DD(9002187,5,9.2) S X=X*100
    9.2 = S Y(9002187,5,2)=$S($D(^ACRALC(D0,0)):^(0),1:""),Y(9002187,5,1)=$S($D(^("BA")):^("BA"),1:"") S X=$P(Y(9002187,5,1),U,3),X=$S($P(Y(9002187,5,2),U,1):X/$P(Y(9002187,5,2),U,1),1:"*******")
  • ALGORITHM:  (SPENT/AMOUNT)*100
  • 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 ALLOWANCE field of the FMS SUB-ALLOWANCE File
  • CROSS-REFERENCE:  9002187^FY
    1)= S ^ACRALC("FY",$E(X,1,30),DA)=""
    2)= K ^ACRALC("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.
  • NOTES:  TRIGGERED by the ALLOWANCE field of the FMS SUB-ALLOWANCE File
  • CROSS-REFERENCE:  9002187^AD^MUMPS
    1)= S:$D(^ACRALC(DA,"DT"))&($P(^("DT"),U)'="")&($P(^("DT"),U,2)'="") ^ACRALC("AD",$P(^ACRALC(DA,"DT"),U),$P(^("DT"),U,2),DA)=""
    2)= K:$D(^ACRALC(DA,"DT"))&($P(^("DT"),U)'="")&($P(^("DT"),U,2)'="") ^ACRALC("AD",$P(^ACRALC(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.
  • NOTES:  TRIGGERED by the ALLOWANCE field of the FMS SUB-ALLOWANCE File





40
APPROPRIATION NO.
DT;4
POINTER TO APPROPRIATION NO. FILE (#9999999.51)
APPROPRIATION NO.(#9999999.51)
  • LAST EDITED:  APR 01, 1996
  • DESCRIPTION:  
    Enter the APPROPRIATION NO. from the list which is the correct appropriation from which these funds are distributed.
  • NOTES:  TRIGGERED by the ALLOWANCE field of the FMS SUB-ALLOWANCE File





50
ALLOWANCE
DT;5
POINTER TO ALLOWANCE NO. FILE (#9999999.52)
ALLOWANCE NO.(#9999999.52)
  • LAST EDITED:  OCT 03, 1997
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the ALLOWANCE number which is appropriate to these funds.
  • NOTES:  TRIGGERED by the ALLOWANCE field of the FMS SUB-ALLOWANCE File
  • CROSS-REFERENCE:  9002187^AC^MUMPS
    1)= S:$D(^ACRALC(DA,"DT"))&($P(^("DT"),U,5)'="")&($P(^("DT"),U)'="") ^ACRALC("AC",$P(^ACRALC(DA,"DT"),U,5),$P(^("DT"),U),DA)=""
    2)= K:$D(^ACRALC(DA,"DT"))&($P(^("DT"),U,5)'="")&($P(^("DT"),U)'="") ^ACRALC("AC",$P(^ACRALC(DA,"DT"),U,5),$P(^("DT"),U),DA)
  • CROSS-REFERENCE:  9002187^E
    1)= S ^ACRALC("E",$E(X,1,30),DA)=""
    2)= K ^ACRALC("E",$E(X,1,30),DA)





60
BUDGET ACTIVITY
DT;6
POINTER TO BUDGET ACTIVITY FILE (#9999999.54)
BUDGET ACTIVITY(#9999999.54)
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • NOTES:  TRIGGERED by the ALLOWANCE field of the FMS SUB-ALLOWANCE File





70
SUB-ACTIVITY
DT;7
POINTER TO SUB-ACTIVITY FILE (#9999999.55)
SUB-ACTIVITY(#9999999.55)
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the appropriate SUB-ACTIVITY from the list.
  • NOTES:  TRIGGERED by the ALLOWANCE field of the FMS SUB-ALLOWANCE File





80
SSA
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.
  • NOTES:  TRIGGERED by the ALLOWANCE field of the FMS SUB-ALLOWANCE File
  • CROSS-REFERENCE:  9002187^SS
    1)= S ^ACRALC("SS",$E(X,1,30),DA)=""
    2)= K ^ACRALC("SS",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.56^1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002187,80,1,2,89.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y X ^DD(9002187,80,1,2,1.1) X ^DD(9002187,80,1,2,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRALC(D0,0)):^(0),1:"") S X=DIU+$P(Y(1),U,1)
    1.4)= S DIH=$S($D(^AUTTSSA(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,1)=DIV,DIH=9999999.56,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002187,80,1,2,89.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y X ^DD(9002187,80,1,2,2.1) X ^DD(9002187,80,1,2,2.4)
    2.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),Y(2)=$S($D(^ACRALC(D0,0)):^(0),1:""),D0=X S:'$D(^AUTTSSA(+D0,0)) D0=-1 S X=DIU-$P(Y(2),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^AUTTSSA(DIV(0),"BA")):^("BA"),1:""),DIV=X I $D(^(0)) S $P(^("BA"),U,1)=DIV,DIH=9999999.56,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(^ACRALC(D0,"DT")):^("DT"),1:""),D0=$P(Y(1),U,8) S:'$D(^AUTTSSA(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^AUTTSSA(D0,"BA")):^("BA"),1:"")
    CREATE VALUE)= SSA YTD+AMOUNT
    DELETE VALUE)= (OLD SSA:SSA YTD)-AMOUNT
    FIELD)= SSA:SSA YTD





90
CAN NO.
DT;9
POINTER TO COMMON ACCOUNTING NUMBER FILE (#9999999.57)
COMMON ACCOUNTING NUMBER(#9999999.57)
  • LAST EDITED:  OCT 01, 1996
  • HELP-PROMPT:  Enter the CAN for this Sub-Allowance.
  • DESCRIPTION:  
    Enter CAN NO. for this SUB-ALLOWANCE.





100
COST CENTER
DT;10
POINTER TO COST CENTER FILE (#9999999.58) 

************************REQUIRED FIELD************************
COST CENTER(#9999999.58)
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  





110
LOCATION CODE
DT;11
POINTER TO LOCATION CODE FILE (#9999999.66) 

************************REQUIRED FIELD************************
LOCATION CODE(#9999999.66)
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the LOCATION CODE applicable to this SUB-ALLOWANCE.
  • CROSS-REFERENCE:  9002187^LCODE
    1)= S ^ACRALC("LCODE",$E(X,1,30),DA)=""
    2)= K ^ACRALC("LCODE",$E(X,1,30),DA)





120
ACCOUNTING CLASSIFICATION

COMPUTED

  • MUMPS CODE:  X ^DD(9002187,120,9.4) S X=X_".0000."_$S('$D(^AUTTCCT(+$P(Y(9002187,120,1),U,10),0)):"",1:$P(^(0),U,1))_"."_$S('$D(^AUTTLCOD(+$P(Y(9002187,120,1),U,11),0)):"",1:$P(^(0),U,1))
    9.2 = S Y(9002187,120,1)=$S($D(^ACRALC(D0,"DT")):^("DT"),1:"") S X=$S('$D(^AUTTAPPR(+$P(Y(9002187,120,1),U,4),0)):"",1:$P(^(0),U,1))_" "_$S('$D(^ACRCAN(+$P(Y(9002187,120,1),U,9),0)):"",1:$P(^(0),U,1))
    9.3 = X ^DD(9002187,120,9.2) S X=X_" "_$P(Y(9002187,120,1),U,1)_"-"_$S('$D(^AUTTALLW(+$P(Y(9002187,120,1),U,5),0)):"",1:$P(^(0),U,1))_"."_$S('$D(^AUTTBA(+$P(Y(9002187,120,1),U,6),0)):"",1:$P(^(0),U,1))
    9.4 = X ^DD(9002187,120,9.3) S X=X_"."_$S('$D(^AUTTSA(+$P(Y(9002187,120,1),U,7),0)):"",1:$P(^(0),U,1))_"."_$S('$D(^AUTTSSA(+$P(Y(9002187,120,1),U,8),0)):"",1:$P(^(0),U,1))
  • ALGORITHM:  APPROPRIATION NO._" "_CAN NO._" "_FISCAL YEAR_"-"_ALLOWANCE_"."_BUDGET ACTIVITY_"."_SUB-ACTIVITY_"."_SUB-SUB-ACTIVITY_".0000."_COST CENTER_"."_LOCATION CODE
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is calculated by the system based on the accounting data for this SUB-ALLOWANCE.





130
ACCOUNTING POINT
DT;13
POINTER TO ACCOUNTING POINT FILE (#9999999.69)
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 SUB-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.





600
JOURNAL VOUCHER
JV;0
Multiple #9002187.03
9002187.03
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a multiple field to allow the system to record and track each journal voucher done under this distribution.





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
SUB-ALLOWANCE DATA ACCESS
SC;0
POINTER Multiple #9002187.04
9002187.04
  • 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.





902
FUNDS AVAILABLE
SC3;1
SET

  • 'Y' FOR AVAILABLE;
  • 'N' FOR UNAVAILABLE;
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This is a flag which is set to indicate that funds are available for this distribution.





903
APPROVAL
APV;1
SET 

************************REQUIRED FIELD************************
  • 'A' FOR APPROVED;
  • 'D' FOR DISAPPROVED;
  • 'C' FOR CHANGE;
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the code which indicates the APPROVAL of this distribution.





904
MESSAGE
APV;2
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-70 characters in length.
  • DESCRIPTION:  
    Enter a message for this distribution.







    



Info | 
Desc | 
Directly Accessed By Routines | 
Accessed By FileMan Db Calls | 
Pointed To By FileMan Files | 
Pointer To FileMan Files | 
Fields | 
All