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

Package: IFCAP

MONTHLY ACCRUAL(#440.7)-->440.701

Sub-Field: 440.701


Information

Parent File Name Number Package
MONTHLY ACCRUAL(#440.7) DOCUMENT LINE 440.701 IFCAP

Details

Field # Name Loc Type Details
.01 LINE ID 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  JUL 03, 1997
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
  • DESCRIPTION:  
    This is the document line id.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the COST CENTER field of the DOCUMENT LINE sub-field of the MONTHLY ACCRUAL File
    TRIGGERED by the BOC field of the DOCUMENT LINE sub-field of the MONTHLY ACCRUAL File
  • CROSS-REFERENCE:  440.701^B
    1)= S ^PRCH(440.7,DA(1),50,"B",X,DA)=""
    2)= K ^PRCH(440.7,DA(1),50,"B",X,DA)
  • CROSS-REFERENCE:  440.701^MACC^MUMPS
    1)= S:$P(X,"/",4)]"" ^PRCH(440.7,DA(1),50,"MACC",$P(X,"/",4),DA)=""
    2)= K:$P(X,"/",4)]"" ^PRCH(440.7,DA(1),50,"MACC",$P(X,"/",4),DA)
    This is an index by ACC code.
1 UNPAID AMOUNT 0;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-99999999) X
  • LAST EDITED:  SEP 13, 1996
  • HELP-PROMPT:  Type a Dollar Amount between -99999999 and 999999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the unpaid amount for purchase card orders.
2 UNRECONCILED AMOUNT 0;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-99999999) X
  • LAST EDITED:  SEP 13, 1996
  • HELP-PROMPT:  Type a Dollar Amount between -99999999 and 999999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the unreconciled total amount of a specific month in file 440.6.
3 FCP NUMBER 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  SEP 16, 1996
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    This is the fund control point number.
4 EDITED ACCRUAL AMOUNT 0;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999)!(X<-99999999) X
  • LAST EDITED:  NOV 05, 1996
  • HELP-PROMPT:  Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the accrual amount edited by user.
5 COST CENTER 0;6 POINTER TO COST CENTER FILE (#420.1) COST CENTER(#420.1)

  • LAST EDITED:  JAN 10, 1997
  • DESCRIPTION:  
    This is a cost center data
  • CROSS-REFERENCE:  ^^TRIGGER^440.701^.01
    1)= X ^DD(440.701,5,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(440.701,5,1,1,1.1) X ^DD(440.701,5,1,1,1.4)
    1.1)= S X=DIV X ^DD(440.701,5,1,1,49.3) S X=$P(Y(8),Y(9),Y(10),X) S Y=X,X=Y(7),X=X_Y
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X X ^DD(440.701,5,1,1,69.2) S X=$S('$D(^PRCD(420.1,+Y(0),0)):"",1:$P(^(0),U,1)),Y(5)=X S X=" ",Y(6)=X S X=1,X=$P(Y(5),Y(6),X) S Y=X,X=Y(4),X=X'=Y
    1.4)= S DIH=$S($D(^PRCH(440.7,DIV(0),50,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,1)=DIV,DIH=440.701,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= X ^DD(440.701,5,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(440.701,5,1,1,2.1) X ^DD(440.701,5,1,1,2.4)
    2.1)= S X=DIV X ^DD(440.701,5,1,1,59.2) S X=$P(Y(5),Y(6),Y(7),X) S Y=X,X=Y(4),X=X_Y
    2.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"") S X=$P(Y(1),U,1),Y(2)=X S X="/",Y(3)=X S X=5,X=$P(Y(2),Y(3),X)]""
    2.4)= S DIH=$S($D(^PRCH(440.7,DIV(0),50,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,1)=DIV,DIH=440.701,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S X=DIU,Y(1)=X S X="/",Y(2)=X S X=1,Y(3)=X S X=4,X=$P(Y(1),Y(2),Y(3),X)_"/",Y(4)=X S X=$S('$D(^PRCD(420.1,+DIV,0)):"",1:$P(^(0),U,1)),Y(5)=X S X=" ",Y(6)=X S X=1
    49.3)= X ^DD(440.701,5,1,1,49.2) S X=$P(Y(5),Y(6),X) S Y=X,X=Y(4),X=X_Y_"/",Y(7)=X S X=DIU,Y(8)=X S X="/",Y(9)=X S X=6,Y(10)=X S X=999
    59.2)= S X=DIU,Y(1)=X S X="/",Y(2)=X S X=1,Y(3)=X S X=4,X=$P(Y(1),Y(2),Y(3),X)_"//",Y(4)=X S X=DIU,Y(5)=X S X="/",Y(6)=X S X=6,Y(7)=X S X=999
    69.2)= S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"") S X=$P(Y(1),U,1),Y(2)=X S X="/",Y(3)=X S X=5,X=$P(Y(2),Y(3),X),Y(4)=X
    CREATE CONDITION)= $P(LINE ID,"/",5)'=$P(COST CENTER," ",1)
    CREATE VALUE)= $P(LINE ID,"/",1,4)_"/"_$P(COST CENTER," ",1)_"/"_$P(LINE ID,"/",6,999)
    DELETE CONDITION)= $P(LINE ID,"/",5)]""
    DELETE VALUE)= $P(LINE ID,"/",1,4)_"//"_$P(LINE ID,"/",6,999)
    FIELD)= LINE ID
    This is a trigger cross-reference.
6 BOC 0;7 POINTER TO BUDGET OBJECT CODE FILE (#420.2) BUDGET OBJECT CODE(#420.2)

  • LAST EDITED:  JAN 10, 1997
  • DESCRIPTION:  
    This is a BOC data.
  • CROSS-REFERENCE:  ^^TRIGGER^440.701^.01
    1)= X ^DD(440.701,6,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(440.701,6,1,1,1.1) X ^DD(440.701,6,1,1,1.4)
    1.1)= S X=DIV X ^DD(440.701,6,1,1,49.2) S X=$P(Y(5),Y(6),X) S Y=X,X=Y(4),X=X_Y
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X X ^DD(440.701,6,1,1,69.2) S X=$S('$D(^PRCD(420.2,+Y(0),0)):"",1:$P(^(0),U,1)),Y(5)=X S X=" ",Y(6)=X S X=1,X=$P(Y(5),Y(6),X) S Y=X,X=Y(4),X=X'=Y
    1.4)= S DIH=$S($D(^PRCH(440.7,DIV(0),50,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,1)=DIV,DIH=440.701,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= X ^DD(440.701,6,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(440.701,6,1,1,2.1) X ^DD(440.701,6,1,1,2.4)
    2.1)= S X=DIV S X=DIU,Y(1)=X S X="/",Y(2)=X S X=1,Y(3)=X S X=5,X=$P(Y(1),Y(2),Y(3),X)_"/"
    2.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"") S X=$P(Y(1),U,1),Y(2)=X S X="/",Y(3)=X S X=6,X=$P(Y(2),Y(3),X)]""
    2.4)= S DIH=$S($D(^PRCH(440.7,DIV(0),50,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,1)=DIV,DIH=440.701,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S X=DIU,Y(1)=X S X="/",Y(2)=X S X=1,Y(3)=X S X=5,X=$P(Y(1),Y(2),Y(3),X)_"/",Y(4)=X S X=$S('$D(^PRCD(420.2,+DIV,0)):"",1:$P(^(0),U,1)),Y(5)=X S X=" ",Y(6)=X S X=1
    69.2)= S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"") S X=$P(Y(1),U,1),Y(2)=X S X="/",Y(3)=X S X=6,X=$P(Y(2),Y(3),X),Y(4)=X
    CREATE CONDITION)= $P(LINE ID,"/",6)'=$P(BOC," ",1)
    CREATE VALUE)= $P(LINE ID,"/",1,5)_"/"_$P(BOC," ",1)
    DELETE CONDITION)= $P(LINE ID,"/",6)]""
    DELETE VALUE)= $P(LINE ID,"/",1,5)_"/"
    FIELD)= LINE ID
    This is a trigger cross-reference.
Info |  Details