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

Package: Commitment Register

Global: ^ACRLOCB


Information

FileMan FileNo FileMan Filename Package
9002188 FMS DEPARTMENT ACCOUNT Commitment Register

Description

Directly Accessed By Routines, Total: 67

Package Total Routines
Commitment Register 66 ACRCSS1    ACRF3542    ACRFAUT1    ACRFAUTO    ACRFCALC    ACRFCDIS    ACRFCLOS    ACRFDC
ACRFDCC    ACRFDEL    ACRFDHR1    ACRFDHR5    ACRFDIC    ACRFDOCN    ACRFDTP4    ACRFDUP
ACRFEA    ACRFEA1    ACRFFDH    ACRFFF2    ACRFFS    ACRFIV12    ACRFIV13    ACRFIV41
ACRFLBTX    ACRFNEWD    ACRFNY    ACRFNY1    ACRFNY2    ACRFODOC    ACRFONE    ACRFPAPV
ACRFPAY6    ACRFPR    ACRFPRC1    ACRFPRC2    ACRFPRC3    ACRFPRC4    ACRFPRNT    ACRFPSR
ACRFPSS    ACRFPVEN    ACRFRR12    ACRFSHFT    ACRFSOF    ACRFSOF1    ACRFSS1    ACRFSS12
ACRFSS41    ACRFSSA    ACRFT25H    ACRFTA    ACRFTO    ACRFTPAR    ACRFTR1    ACRFTV1
ACRFTV3    ACRFTXTP    ACRFUFMI    ACRFUP    ACRFUP1    ACRFUTL    ACRFUTL1    ACRFUTL2
ACRFWARN    ACRLOC    
Local Area Programs 1 AZHQPRNT    

Accessed By FileMan Db Calls, Total: 9

Package Total Routines
Commitment Register 9 ACRFCALC    ACRFCLOS    ACRFDEL    ACRFDTP4    ACRFDUP    ACRFNY1    ACRFPR    ACRFSHFT
ACRFTPAR    

Pointed To By FileMan Files, Total: 9

Package Total FileMan Files
Commitment Register 9 FMS REQUEST CONTROLLER(#9002190)[.05]    FMS DOCUMENT(#9002196)[.06]    FMS DISTRIBUTION(#9002191)[.04]    FMS DEPARTMENT ACCOUNT(#9002188)[.07, .15, .9]
FMS REQUEST(#9002189)[.03]    FMS SUPPLIES AND SERVICES(#9002193)[.06]    ARMS TRAINING PARTICIPANTS(#9002196.2)[.03]    FMS REQUEST TRANSACTION(#9002192)[.04]    ARMS/SAMS INTERFACE(#9002198.9)[4]    

Pointer To FileMan Files, Total: 19

Package Total FileMan Files
Utility Tables 11 ACCOUNTING POINT(#9999999.69)[130]    ALLOWANCE NO.(#9999999.52)[50]    BUDGET ACTIVITY(#9999999.54)[60]    COMMON ACCOUNTING NUMBER(#9999999.57)[#9002188.01(.01)]    COST CENTER(#9999999.58)[150]    REFERENCE CODE(#9999999.63)[#9002188.07(.01)]    LOCATION CODE(#9999999.66)[110]    FMS DEPARTMENT/PROGRAM(#9999999.62)[.05]    APPROPRIATION NO.(#9999999.51)[40]    SUB-ACTIVITY(#9999999.55)[70]    SUB-SUB-ACTIVITY(#9999999.56)[80]    
Commitment Register 7 FMS SUB-ALLOWANCE(#9002187)[.04]    FMS ALLOWANCE(#9002186)[.03]    FMS APPROPRIATION(#9002185)[.02]    ARMS CAN(#9002186.5)[90]    FMS DOCUMENT HISTORY RECORD(#9002189.1)[.19]    FMS DEPARTMENT ACCOUNT(#9002188)[.07, .15, .9]
FMS TRANSACTION TYPE(#9002194)[#9002188.02(.01)]    
Kernel 1 NEW PERSON(#200)[.18, #9002188.04(.01)]    

Fields, Total: 62

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:  DEC 10, 1996
  • HELP-PROMPT:  Type a Dollar Amount between -99999999.99 and 99999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Enter the dollar amount for this DEPARTMENT ACCOUNT.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9002188^1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRLOCB(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002188,.01,1,1,1.1) X ^DD(9002188,.01,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRLOCB(D0,"BA")):^("BA"),1:"") S X=DIV-$P(Y(1),U,3)
    1.4)= S DIH=$S($D(^ACRLOCB(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,1)=DIV,DIH=9002188,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(^ACRLOCB(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002188,.01,1,1,2.1) X ^DD(9002188,.01,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^ACRLOCB(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(^ACRLOCB(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,1)=DIV,DIH=9002188,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= AMOUNT-SPENT
    DELETE VALUE)= AMOUNT-SPENT
    FIELD)= BALANCE
  • CROSS-REFERENCE:  ^^TRIGGER^9002187^.1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002188,.01,1,3,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(9002188,.01,1,3,1.4)
    1.4)= S DIH=$S($D(^ACRALC(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,10)=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 X ^DD(9002188,.01,1,3,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(9002188,.01,1,3,2.4)
    2.4)= S DIH=$S($D(^ACRALC(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,10)=DIV,DIH=9002187,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(^ACRLOCB(D0,0)):^(0),1:""),D0=$P(Y(1),U,4) S:'$D(^ACRALC(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACRALC(D0,0)):^(0),1:"")
    CREATE VALUE)= TOTAL LOCAL BUDGETS+AMOUNT
    DELETE VALUE)= TOTAL LOCAL BUDGETS-OLD AMOUNT
    FIELD)= ALLOCATION:TOTAL LOCAL BUDGETS
.02 APPROPRIATION 0;2 POINTER TO FMS APPROPRIATION FILE (#9002185) FMS APPROPRIATION(#9002185)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the APPROPRIATION from which this DEPARTMENT ACCOUNT is funded.
  • NOTES:  TRIGGERED by the SUB ALLOWANCE field of the FMS DEPARTMENT ACCOUNT File
.03 ALLOWANCE 0;3 POINTER TO FMS ALLOWANCE FILE (#9002186) FMS ALLOWANCE(#9002186)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the ALLOTMENT from which this DEPARTMENT ACCOUNT is funded.
  • NOTES:  TRIGGERED by the SUB ALLOWANCE field of the FMS DEPARTMENT ACCOUNT File
.04 SUB ALLOWANCE 0;4 POINTER TO FMS SUB-ALLOWANCE FILE (#9002187) FMS SUB-ALLOWANCE(#9002187)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the SUB ALLOWANCE from which this DEPARTMENT ACCOUNT is funded.
  • CROSS-REFERENCE:  9002188^M
    1)= S ^ACRLOCB("M",$E(X,1,30),DA)=""
    2)= K ^ACRLOCB("M",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002188^10
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRLOCB(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002188,.04,1,2,1.1) X ^DD(9002188,.04,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALC(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRALC(D0,"DT")):^("DT"),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRLOCB(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,1)=DIV,DIH=9002188,DIG=10 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.04:#10
    DELETE VALUE)= NO EFFECT
    FIELD)= #10
  • CROSS-REFERENCE:  ^^TRIGGER^9002188^20
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRLOCB(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002188,.04,1,3,1.1) X ^DD(9002188,.04,1,3,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALC(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRALC(D0,"DT")):^("DT"),1:"") S X=$P(Y(101),U,2) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRLOCB(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,2)=DIV,DIH=9002188,DIG=20 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.04:#20
    DELETE VALUE)= NO EFFECT
    FIELD)= #20
  • CROSS-REFERENCE:  ^^TRIGGER^9002188^30
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRLOCB(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9002188,.04,1,4,1.1) X ^DD(9002188,.04,1,4,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALC(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALC(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(^ACRLOCB(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,3)=DIV,DIH=9002188,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(^ACRLOCB(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9002188,.04,1,4,2.1) X ^DD(9002188,.04,1,4,2.4)
    2.1)= S X=DIV X ^DD(9002188,.04,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(^ACRLOCB(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,3)=DIV,DIH=9002188,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(^ACRLOCB(D0,0)):^(0),1:""),D0=$P(Y(1),U,4) S:'$D(^ACRALC(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALC(D0,"DT")):^("DT"),1:"")
    CREATE VALUE)= #.04:INTERNAL(#30)
    DELETE VALUE)= #.04:INTERNAL(#30)
    FIELD)= RECURRING
  • CROSS-REFERENCE:  ^^TRIGGER^9002188^40
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRLOCB(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9002188,.04,1,5,1.1) X ^DD(9002188,.04,1,5,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALC(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALC(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(^ACRLOCB(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,4)=DIV,DIH=9002188,DIG=40 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.04:INTERNAL(#40)
    DELETE VALUE)= NO EFFECT
    FIELD)= #40
  • CROSS-REFERENCE:  ^^TRIGGER^9002188^50
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRLOCB(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002188,.04,1,6,1.1) X ^DD(9002188,.04,1,6,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALC(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALC(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(^ACRLOCB(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,5)=DIV,DIH=9002188,DIG=50 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.04:INTERNAL(#50)
    DELETE VALUE)= NO EFFECT
    FIELD)= #50
  • CROSS-REFERENCE:  ^^TRIGGER^9002188^60
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRLOCB(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002188,.04,1,7,1.1) X ^DD(9002188,.04,1,7,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALC(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALC(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(^ACRLOCB(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,6)=DIV,DIH=9002188,DIG=60 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.04:INTERNAL(#60)
    DELETE VALUE)= NO EFFECT
    FIELD)= #60
  • CROSS-REFERENCE:  ^^TRIGGER^9002188^70
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRLOCB(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002188,.04,1,8,1.1) X ^DD(9002188,.04,1,8,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALC(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALC(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(^ACRLOCB(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,7)=DIV,DIH=9002188,DIG=70 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.04:INTERNAL(#70)
    DELETE VALUE)= NO EFFECT
    FIELD)= #70
  • CROSS-REFERENCE:  ^^TRIGGER^9002188^80
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRLOCB(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9002188,.04,1,9,1.1) X ^DD(9002188,.04,1,9,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALC(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALC(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(^ACRLOCB(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,8)=DIV,DIH=9002188,DIG=80 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.04:INTERNAL(#80)
    DELETE VALUE)= NO EFFECT
    FIELD)= #80
  • CROSS-REFERENCE:  ^^TRIGGER^9002188^130
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRLOCB(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9002188,.04,1,11,1.1) X ^DD(9002188,.04,1,11,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALC(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALC(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(^ACRLOCB(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,13)=DIV,DIH=9002188,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(^ACRLOCB(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9002188,.04,1,11,2.1) X ^DD(9002188,.04,1,11,2.4)
    2.1)= S X=DIV X ^DD(9002188,.04,1,11,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(^ACRLOCB(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,13)=DIV,DIH=9002188,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(^ACRLOCB(D0,0)):^(0),1:""),D0=$P(Y(1),U,4) S:'$D(^ACRALC(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALC(D0,"DT")):^("DT"),1:"")
    CREATE VALUE)= ALLOCATION:INTERNAL(#130)
    DELETE VALUE)= ALLOCATION:INTERNAL(#130)
    FIELD)= ACCOUNTING POINT
  • CROSS-REFERENCE:  ^^TRIGGER^9002187^.1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(9002188,.04,1,13,89.2) S X=$P(Y(101),U,10) S D0=I(0,0) S DIU=X K Y X ^DD(9002188,.04,1,13,1.1) X ^DD(9002188,.04,1,13,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^ACRLOCB(D0,0)):^(0),1:"") S X=DIU+$P(Y(1),U,1)
    1.4)= S DIH=$S($D(^ACRALC(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,10)=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 X ^DD(9002188,.04,1,13,89.2) S X=$P(Y(101),U,10) S D0=I(0,0) S DIU=X K Y X ^DD(9002188,.04,1,13,2.1) X ^DD(9002188,.04,1,13,2.4)
    2.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:"") S X=DIU,D0=X S:'$D(^ACRALC(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRALC(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACRALC(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,10)=DIV,DIH=9002187,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(^ACRLOCB(D0,0)):^(0),1:""),D0=$P(Y(1),U,4) S:'$D(^ACRALC(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACRALC(D0,0)):^(0),1:"")
    CREATE VALUE)= TOTAL LOCAL BUDGETS+AMOUNT
    DELETE VALUE)= TOTAL LOCAL BUDGETS-OLD ALLOCATION:AMOUNT
    FIELD)= ALLOCATION:TOTAL LOCAL BUDGETS
  • CROSS-REFERENCE:  ^^TRIGGER^9002188^.02
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRLOCB(D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002188,.04,1,14,1.1) X ^DD(9002188,.04,1,14,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALC(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALC(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(^ACRLOCB(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9002188,DIG=.02 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(^ACRLOCB(D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002188,.04,1,14,2.1) X ^DD(9002188,.04,1,14,2.4)
    2.1)= S X=DIV X ^DD(9002188,.04,1,14,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(^ACRLOCB(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9002188,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRLOCB(D0,0)):^(0),1:""),D0=$P(Y(1),U,4) S:'$D(^ACRALC(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALC(D0,0)):^(0),1:"")
    CREATE VALUE)= #.04:INTERNAL(#.02)
    DELETE VALUE)= #.04:INTERNAL(#.02)
    FIELD)= #.02
  • CROSS-REFERENCE:  ^^TRIGGER^9002188^.03
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRLOCB(D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9002188,.04,1,15,1.1) X ^DD(9002188,.04,1,15,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRALC(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALC(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(^ACRLOCB(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9002188,DIG=.03 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(^ACRLOCB(D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9002188,.04,1,15,2.1) X ^DD(9002188,.04,1,15,2.4)
    2.1)= S X=DIV X ^DD(9002188,.04,1,15,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(^ACRLOCB(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9002188,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRLOCB(D0,0)):^(0),1:""),D0=$P(Y(1),U,4) S:'$D(^ACRALC(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRALC(D0,0)):^(0),1:"")
    CREATE VALUE)= #.04:INTERNAL(#.03)
    DELETE VALUE)= #.04:INTERNAL(#.03)
    FIELD)= #.03
.05 DEPARTMENT 0;5 POINTER TO FMS DEPARTMENT/PROGRAM FILE (#9999999.62)
************************REQUIRED FIELD************************
FMS DEPARTMENT/PROGRAM(#9999999.62)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the name of the DEPARTMENT for which this account is being established.
  • CROSS-REFERENCE:  9002188^DEPT
    1)= S ^ACRLOCB("DEPT",$E(X,1,30),DA)=""
    2)= K ^ACRLOCB("DEPT",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002188^.2
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRLOCB(D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(9002188,.05,1,2,1.1) X ^DD(9002188,.05,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTPRG(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTPRG(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRLOCB(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,12)=DIV,DIH=9002188,DIG=.2 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(^ACRLOCB(D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(9002188,.05,1,2,2.1) X ^DD(9002188,.05,1,2,2.4)
    2.1)= S X=DIV X ^DD(9002188,.05,1,2,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACRLOCB(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,12)=DIV,DIH=9002188,DIG=.2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRLOCB(D0,0)):^(0),1:""),D0=$P(Y(1),U,5) S:'$D(^AUTTPRG(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTPRG(D0,0)):^(0),1:"")
    CREATE VALUE)= DEPARTMENT:NAME
    DELETE VALUE)= DEPARTMENT:NAME
    FIELD)= RECIPIENT
.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 for this DEPARTMENT ACCOUNT.
.07 NEXT YEAR'S ACCOUNT 0;7 POINTER TO FMS DEPARTMENT ACCOUNT FILE (#9002188) FMS DEPARTMENT ACCOUNT(#9002188)

  • 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:  9002188^NEXTFY
    1)= S ^ACRLOCB("NEXTFY",$E(X,1,30),DA)=""
    2)= K ^ACRLOCB("NEXTFY",$E(X,1,30),DA)
.1 TOTAL DISTRIBUTIONS 0;10 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 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 AMOUNT field of the FMS DISTRIBUTION File
.11 PERSONNEL COST 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999.99)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  OCT 16, 1997
  • HELP-PROMPT:  Type a Number between 0 and 9999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Enter the Personnel Cost for this Department Account.
.15 LAST YEAR'S ACCOUNT 0;15 POINTER TO FMS DEPARTMENT ACCOUNT FILE (#9002188) FMS DEPARTMENT ACCOUNT(#9002188)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate DEPARTMENT ACCOUNT from the list.
  • DESCRIPTION:  
    This is a pointer to the previous year's account.  This is set internally by the system and should not be edited directly.
  • CROSS-REFERENCE:  9002188^LASTFY
    1)= S ^ACRLOCB("LASTFY",$E(X,1,30),DA)=""
    2)= K ^ACRLOCB("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 the Department Account was created.
  • DESCRIPTION:  
    Enter the date the Department Account 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 person who created this entry.
  • DESCRIPTION:  
    Enter the name of the person who created this 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 CREATED
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 Department Account.
  • DESCRIPTION:  
    Enter the DHR entry for this Department Account.





.2
RECIPIENT
0;12
FREE TEXT

  • INPUT TRANSFORM:  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.
  • NOTES:  TRIGGERED by the DEPARTMENT field of the FMS DEPARTMENT ACCOUNT File





.21
DEFICIT SPENDING CONTROL
0;21
SET

  • '1' FOR ALLOW DEFICIT SPENDING;
  • '2' FOR PREVENT DEFICIT SPENDING;
  • LAST EDITED:  OCT 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the appropriate code to indicate whether or not deficit spending should be allowed for this account.





.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 department amount can be spent.
  • DESCRIPTION:  
    Enter the date the department account amount can be distributed.





.23
MULTI-YEAR ACCOUNT
0;23
SET

  • '1' FOR YES;
  • '0' FOR NO;
  • LAST EDITED:  DEC 11, 1997
  • HELP-PROMPT:  Enter the appropriate code from the list.





.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 

************************REQUIRED FIELD************************
  • '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:  9002188^ORG
    1)= S ^ACRLOCB("ORG",$E(X,1,30),DA)=""
    2)= K ^ACRLOCB("ORG",$E(X,1,30),DA)





.9
DEPARTMENT ACCOUNT AMENDED
0;9
POINTER TO FMS DEPARTMENT ACCOUNT FILE (#9002188) 

************************REQUIRED FIELD************************
FMS DEPARTMENT ACCOUNT(#9002188)
  • INPUT TRANSFORM:  S DIC("S")="I $D(ACRALCDA),$P(^ACRLOCB(+Y,0),U,4)=ACRALCDA,$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 Department Account.
  • DESCRIPTION:  
    This is a pointer to the DEPARTMENT ACCOUNT which is being amended.  Enter the original DEPARTMENT ACCOUNT which is now being increased or decreased.
  • SCREEN:  S DIC("S")="I $D(ACRALCDA),$P(^ACRLOCB(+Y,0),U,4)=ACRALCDA,$P(^(0),U,8)[""O"""
  • EXPLANATION:  ENSURE THAT DEPARTMENT ACCOUNT AMENDED IS ORIGINAL DEPARTMENT ACCOUNT.
  • CROSS-REFERENCE:  9002188^ORIG
    1)= S ^ACRLOCB("ORIG",$E(X,1,30),DA)=""
    2)= K ^ACRLOCB("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 DEPARTMENT ACCOUNT File
    TRIGGERED by the AMOUNT field of the FMS DEPARTMENT ACCOUNT 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 DEPARTMENT ACCOUNT field of the FMS REQUEST File
    TRIGGERED by the DEPARTMENT ACCOUNT field of the FMS SUPPLIES AND SERVICES File
    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 DEPARTMENT ACCOUNT field of the FMS SUPPLIES AND SERVICES File
    TRIGGERED by the TOTAL PAID field of the FMS SUPPLIES AND SERVICES File
  • CROSS-REFERENCE:  ^^TRIGGER^9002188^1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRLOCB(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIU-DIV X ^DD(9002188,3,1,2,1.4)
    1.4)= S DIH=$S($D(^ACRLOCB(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,1)=DIV,DIH=9002188,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(^ACRLOCB(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIU+X X ^DD(9002188,3,1,2,2.4)
    2.4)= S DIH=$S($D(^ACRLOCB(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,1)=DIV,DIH=9002188,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= BALANCE-SPENT
    DELETE VALUE)= BALANCE+OLD SPENT
    FIELD)= BALANCE





4
% BUDGET REMAINING

COMPUTED

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

COMPUTED

  • MUMPS CODE:  X ^DD(9002188,5,9.2) S X=X*100
    9.2 = S Y(9002188,5,2)=$S($D(^ACRLOCB(D0,0)):^(0),1:""),Y(9002188,5,1)=$S($D(^("BA")):^("BA"),1:"") S X=$P(Y(9002188,5,1),U,3),X=$S($P(Y(9002188,5,2),U,1):X/$P(Y(9002188,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 DEPARTMENT ACCOUNT field of the FMS SUPPLIES AND SERVICES File
    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:  DEC 18, 1998
  • 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 SUB ALLOWANCE field of the FMS DEPARTMENT ACCOUNT File
  • CROSS-REFERENCE:  9002188^FY
    1)= S ^ACRLOCB("FY",$E(X,1,30),DA)=""
    2)= K ^ACRLOCB("FY",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002188^CAN^MUMPS
    1)= S:$P($G(^ACRLOCB(+$G(DA),"DT")),U,9) ^ACRLOCB("CAN",X,$P(^("DT"),U,9),DA)=""
    2)= K:$P($G(^ACRLOCB(+$G(DA),"DT")),U,9) ^ACRLOCB("CAN",X,$P(^("DT"),U,9),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 SUB ALLOWANCE field of the FMS DEPARTMENT ACCOUNT File
  • CROSS-REFERENCE:  9002188^QT
    1)= S ^ACRLOCB("QT",$E(X,1,30),DA)=""
    2)= K ^ACRLOCB("QT",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002188^AD^MUMPS
    1)= S:$D(^ACRLOCB(DA,"DT"))&($P(^("DT"),U)'="")&($P(^("DT"),U,2)'="") ^ACRLOCB("AD",$P(^ACRLOCB(DA,"DT"),U),$P(^("DT"),U,2),DA)=""
    2)= K:$D(^ACRLOCB(DA,"DT"))&($P(^("DT"),U)'="")&($P(^("DT"),U,2)'="") ^ACRLOCB("AD",$P(^ACRLOCB(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 SUB ALLOWANCE field of the FMS DEPARTMENT ACCOUNT File





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 SUB ALLOWANCE field of the FMS DEPARTMENT ACCOUNT File





50
ALLOWANCE
DT;5
POINTER TO ALLOWANCE NO. FILE (#9999999.52)
ALLOWANCE NO.(#9999999.52)
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the ALLOWANCE number which is appropriate to these funds.
  • NOTES:  TRIGGERED by the SUB ALLOWANCE field of the FMS DEPARTMENT ACCOUNT File
  • CROSS-REFERENCE:  9002188^AC^MUMPS
    1)= S:$D(^ACRLOCB(DA,"DT"))&($P(^("DT"),U,5)'="")&($P(^("DT"),U)'="") ^ACRLOCB("AC",$P(^ACRLOCB(DA,"DT"),U,5),$P(^("DT"),U),DA)=""
    2)= K:$D(^ACRLOCB(DA,"DT"))&($P(^("DT"),U,5)'="")&($P(^("DT"),U)'="") ^ACRLOCB("AC",$P(^ACRLOCB(DA,"DT"),U,5),$P(^("DT"),U),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 SUB ALLOWANCE field of the FMS DEPARTMENT ACCOUNT 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 SUB ALLOWANCE field of the FMS DEPARTMENT ACCOUNT File





80
SUB-SUB-ACTIVITY
DT;8
POINTER TO SUB-SUB-ACTIVITY FILE (#9999999.56)
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 SUB ALLOWANCE field of the FMS DEPARTMENT ACCOUNT File
  • CROSS-REFERENCE:  9002188^SSA
    1)= S ^ACRLOCB("SSA",$E(X,1,30),DA)=""
    2)= K ^ACRLOCB("SSA",$E(X,1,30),DA)





90
DEFAULT CAN NO.
DT;9
POINTER TO ARMS CAN FILE (#9002186.5) 

************************REQUIRED FIELD************************
ARMS CAN(#9002186.5)
  • LAST EDITED:  OCT 02, 1997
  • HELP-PROMPT:  Enter the appropriate CAN NO. from the list.
  • DESCRIPTION:  
    Enter the CAN NO. which will be used as the default each time an item is added to a request which is generated under this department account.
  • CROSS-REFERENCE:  9002188^DCAN
    1)= S ^ACRLOCB("DCAN",$E(X,1,30),DA)=""
    2)= K ^ACRLOCB("DCAN",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002188^CAN2^MUMPS
    1)= S:$P($G(^ACRLOCB($G(DA),"DT")),U)]"" ^ACRLOCB("CAN",$P(^("DT"),U),X,DA)=""
    2)= K:$P($G(^ACRLOCB($G(DA),"DT")),U)]"" ^ACRLOCB("CAN",$P(^("DT"),U),X,DA)





100
ADDITIONAL CAN NO.
CC;0
POINTER Multiple #9002188.01
9002188.01
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a multiple field which allows the individual establishing this department account to indicate any additional CAN Numbers which can be used when spending money against this account.





110
LOCATION CODE
DT;11
POINTER TO LOCATION CODE FILE (#9999999.66)
LOCATION CODE(#9999999.66)
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the LOCATION CODE for this department.
  • CROSS-REFERENCE:  9002188^LCODE
    1)= S ^ACRLOCB("LCODE",$E(X,1,30),DA)=""
    2)= K ^ACRLOCB("LCODE",$E(X,1,30),DA)





120
ACCOUNTING CLASSIFICATION

COMPUTED

  • MUMPS CODE:  X ^DD(9002188,120,9.4) S X=X_".0000."_$S('$D(^AUTTCCT(+$P(Y(9002188,120,1),U,10),0)):"",1:$P(^(0),U,1))_"."_$S('$D(^AUTTLCOD(+$P(Y(9002188,120,1),U,11),0)):"",1:$P(^(0),U,1))
    9.2 = S Y(9002188,120,1)=$S($D(^ACRLOCB(D0,"DT")):^("DT"),1:"") S X=$S('$D(^AUTTAPPR(+$P(Y(9002188,120,1),U,4),0)):"",1:$P(^(0),U,1))_" "_$S('$D(^ACRCAN(+$P(Y(9002188,120,1),U,9),0)):"",1:$P(^(0),U,1))
    9.3 = X ^DD(9002188,120,9.2) S X=X_" "_$P(Y(9002188,120,1),U,1)_"-"_$S('$D(^AUTTALLW(+$P(Y(9002188,120,1),U,5),0)):"",1:$P(^(0),U,1))_"."_$S('$D(^AUTTBA(+$P(Y(9002188,120,1),U,6),0)):"",1:$P(^(0),U,1))
    9.4 = X ^DD(9002188,120,9.3) S X=X_"."_$S('$D(^AUTTSA(+$P(Y(9002188,120,1),U,7),0)):"",1:$P(^(0),U,1))_"."_$S('$D(^AUTTSSA(+$P(Y(9002188,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
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a calculated field which is a composite of the accounting data for this department account.





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 SUB ALLOWANCE field of the FMS DEPARTMENT ACCOUNT File





140
TRANSACTION TYPE
2;0
POINTER Multiple #9002188.02
9002188.02
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a multiple field which allows the individual establishing this department account to indicate which types of transactions can be initiated with the funds from this department account.





150
COST CENTER
DT;15
POINTER TO COST CENTER FILE (#9999999.58)
COST CENTER(#9999999.58)
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the COST CENTER for this DEPARTMENT ACCOUNT from the list of cost centers.





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.





301
PROJECT NUMBER
3;1
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 24, 1997
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the engineering project number.





600
JOURNAL VOUCHER
JV;0
Multiple #9002188.03
9002188.03
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a multiple field which allows the manager of this department account to track all JOURNAL VOUCHERS made in this account.





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
EMPLOYEE FOR ACCOUNT ACCESS
SC;0
POINTER Multiple #9002188.04
9002188.04
  • LAST EDITED:  APR 01, 1996
  • 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 APPROVAL
SC3;1
SET

  • 'Y' FOR AVAILABLE;
  • 'N' FOR UNAVAILABLE;
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter 'Y' to indicate that distribution of these funds is approved.





903
LAST NUMBER USED
1;0
Multiple #9002188.06
9002188.06
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a multiple field to allow the system to keep track of the last sequence number used by this department account for various types of transactions.







    



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