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

Package: Utility Tables

Global: ^AUTTALLW


Information

FileMan FileNo FileMan Filename Package
9999999.52 ALLOWANCE NO. Utility Tables

Description

Directly Accessed By Routines, Total: 12

Package Total Routines
Commitment Register 12 ACRALC    ACRALT    ACRFCAA    ACRFDTP2    ACRFDTP4    ACRFFDH    ACRFODOC    ACRFPSS
ACRFSOF1    ACRFTV1    ACRLOC    ACRPALW    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Commitment Register 2 ACRFNY2    ACRFNY3    
NCR Financial System 1 AFSHTBUP    

Pointed To By FileMan Files, Total: 6

Package Total FileMan Files
Commitment Register 5 FMS SUB-ALLOWANCE(#9002187)[50]    FMS ALLOWANCE(#9002186)[50]    FMS DISTRIBUTION(#9002191)[.08]    FMS DEPARTMENT ACCOUNT(#9002188)[50]    FMS REQUEST(#9002189)[.08]    
Utility Tables 1 SUB-SUB-ACTIVITY(#9999999.56)[.05]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Utility Tables 2 ACCOUNTING POINT(#9999999.69)[.02]    BUDGET ACTIVITY(#9999999.54)[.03]    

Fields, Total: 8

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

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<5)!'(X'?1P.E) X
  • LAST EDITED:  NOV 08, 1988
  • HELP-PROMPT:  ANSWER MUST BE 5-11 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Enter the number that identifies this allowance.
  • DELETE TEST:  .01,0)= I 1
  • CROSS-REFERENCE:  9999999.52^B
    1)= S ^AUTTALLW("B",$E(X,1,30),DA)=""
    2)= K ^AUTTALLW("B",$E(X,1,30),DA)
.02 ACCOUNTING POINT 0;2 POINTER TO ACCOUNTING POINT FILE (#9999999.69) ACCOUNTING POINT(#9999999.69)

  • LAST EDITED:  MAR 13, 1990
  • HELP-PROMPT:  What accounting point is responsible for this allowance number?
.03 ACTIVITY 0;3 POINTER TO BUDGET ACTIVITY FILE (#9999999.54) BUDGET ACTIVITY(#9999999.54)

  • LAST EDITED:  MAR 13, 1990
1 ALLOWANCE YTD 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:  MAR 13, 1990
  • HELP-PROMPT:  THIS IS A TRIGGERED FIELD. DO NOT EDIT.
  • NOTES:  TRIGGERED by the AMOUNT field of the FMS ALLOWANCE File
    TRIGGERED by the ALLOWANCE field of the FMS ALLOWANCE File
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.52^4
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTALLW(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9999999.52,1,1,1,1.1) X ^DD(9999999.52,1,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^AUTTALLW(D0,"BA")):^("BA"),1:"") S X=DIV-$P(Y(1),U,5)
    1.4)= S DIH=$S($D(^AUTTALLW(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,4)=DIV,DIH=9999999.52,DIG=4 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(^AUTTALLW(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9999999.52,1,1,1,2.1) X ^DD(9999999.52,1,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^AUTTALLW(D0,"BA")):^("BA"),1:"") S X=X+$P(Y(1),U,5)
    2.4)= S DIH=$S($D(^AUTTALLW(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,4)=DIV,DIH=9999999.52,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= ALLOWANCE YTD-TOTAL OBLIGATIONS
    DELETE VALUE)= OLD ALLOWANCE YTD+TOTAL OBLIGATIONS
    FIELD)= BALANCE
2 REQUESTED YTD 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:  MAR 13, 1990
  • HELP-PROMPT:  THIS IS A TRIGGERED FIELD. DO NOT EDIT.
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.52^5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTALLW(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9999999.52,2,1,1,1.1) X ^DD(9999999.52,2,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^AUTTALLW(D0,"BA")):^("BA"),1:"") S X=DIV+$P(Y(1),U,3)
    1.4)= S DIH=$S($D(^AUTTALLW(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,5)=DIV,DIH=9999999.52,DIG=5 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(^AUTTALLW(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9999999.52,2,1,1,2.1) X ^DD(9999999.52,2,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^AUTTALLW(D0,"BA")):^("BA"),1:"") S X=X-$P(Y(1),U,3)
    2.4)= S DIH=$S($D(^AUTTALLW(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,5)=DIV,DIH=9999999.52,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= REQUESTED YTD+SPENT YTD
    DELETE VALUE)= OLD REQUESTED YTD-SPENT YTD
    FIELD)= TOTAL OBLIGATIONS
3 SPENT YTD 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:  MAR 13, 1990
  • HELP-PROMPT:  THIS IS A TRIGGERED FIELD. DO NOT EDIT.
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.52^5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTALLW(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9999999.52,3,1,1,1.1) X ^DD(9999999.52,3,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^AUTTALLW(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,2)+DIV
    1.4)= S DIH=$S($D(^AUTTALLW(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,5)=DIV,DIH=9999999.52,DIG=5 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(^AUTTALLW(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9999999.52,3,1,1,2.1) X ^DD(9999999.52,3,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^AUTTALLW(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,2)-X
    2.4)= S DIH=$S($D(^AUTTALLW(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,5)=DIV,DIH=9999999.52,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= REQUESTED YTD+SPENT YTD
    DELETE VALUE)= REQUESTED YTD-OLD SPENT YTD
    FIELD)= TOTAL OBLIGATIONS
4 BALANCE BA;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999.99)!(X<-999999999.99) X
  • LAST EDITED:  MAY 05, 1993
  • HELP-PROMPT:  THIS IS A TRIGGERED FIELD. DO NOT EDIT.
    UNEDITABLE
  • NOTES:  TRIGGERED by the ALLOWANCE YTD field of the ALLOWANCE NO. File
    TRIGGERED by the TOTAL OBLIGATIONS field of the ALLOWANCE NO. File
5 TOTAL OBLIGATIONS BA;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999.99)!(X<-999999999.99) X
  • LAST EDITED:  MAR 13, 1990
  • HELP-PROMPT:  THIS IS A TRIGGERED FIELD. DO NOT EDIT.
  • NOTES:  TRIGGERED by the REQUESTED YTD field of the ALLOWANCE NO. File
    TRIGGERED by the SPENT YTD field of the ALLOWANCE NO. File
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.52^4
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTALLW(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9999999.52,5,1,1,1.1) X ^DD(9999999.52,5,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^AUTTALLW(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,1)-DIV
    1.4)= S DIH=$S($D(^AUTTALLW(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,4)=DIV,DIH=9999999.52,DIG=4 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(^AUTTALLW(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9999999.52,5,1,1,2.1) X ^DD(9999999.52,5,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^AUTTALLW(D0,"BA")):^("BA"),1:"") S X=$P(Y(1),U,1)+X
    2.4)= S DIH=$S($D(^AUTTALLW(DIV(0),"BA")):^("BA"),1:""),DIV=X S $P(^("BA"),U,4)=DIV,DIH=9999999.52,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= ALLOWANCE YTD-TOTAL OBLIGATIONS
    DELETE VALUE)= ALLOWANCE YTD+OLD TOTAL OBLIGATIONS
    FIELD)= BALANCE
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All