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: 430.01

Package: Accounts Receivable

ACCOUNTS RECEIVABLE(#430)-->430.01

Sub-Field: 430.01


Information

Parent File Name Number Package
ACCOUNTS RECEIVABLE(#430) FISCAL YEAR 430.01 Accounts Receivable

Details

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

  • INPUT TRANSFORM:  K:X'?2N X I $D(X) S DINUM=$S(+X<70:"3"_X,1:"2"_X)
  • LAST EDITED:  AUG 15, 1988
  • HELP-PROMPT:  Enter the two digit code for the Fiscal Year. For bills with more than one FY, complete the first entry, then enter the second at the next 'FISCAL YEAR //' prompt.
  • DESCRIPTION:  
    This is the 2-digit code representing the Fiscal Year, for instance, 89 stands for Fiscal Year 1989. Bills may have data for more than one Fiscal year.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  430.01^B
    1)= S ^PRCA(430,DA(1),2,"B",$E(X,1,30),DA)=""
    2)= K ^PRCA(430,DA(1),2,"B",$E(X,1,30),DA)
    This cross-reference is used for look-up and sorts of the Fiscal Years for the bill.
1 CURR.PRIN.BAL. 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-9999.99) X
  • LAST EDITED:  NOV 05, 1987
  • HELP-PROMPT:  Type a Dollar Amount between -9999.99 and 999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the current principal balance for the Fiscal Year.
  • NOTES:  TRIGGERED by the FY ORIGINAL AMOUNT field of the FISCAL YEAR sub-field of the ACCOUNTS RECEIVABLE File
2 PAT REF NO. 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  AUG 15, 1997
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    ***This field is obsolete with version 4.5 and will be deleted with an upcoming cleanup patch.
3 APPROPRIATION SYMBOL 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) D EN1^PRCHPAT
  • LAST EDITED:  MAR 31, 1988
  • HELP-PROMPT:  Enter the Appropriation with a space instead of the Fiscal Year (ie. 36 2431)
  • DESCRIPTION:  
    This is the accounting symbol that represents the annual appropriation for this bill.
  • EXECUTABLE HELP:  S PRCALD("APPR")="",DIC="^PRCD(420.3,",DIC(0)="QE",D="C",Z0=$P(^PRCA(430,DA(1),2,DA,0),U,1),DIC("S")="I $P(^(0),U,5)]""""" D DQ^DICQ K PRCALD("APPR"),DIC,Z0
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  430^AJ^MUMPS
    1)= S Z0=$P(^PRCA(430,DA(1),2,DA,0),U,4) S:$E(Z0,3)?1N Z0=$E(Z0,1,2)_" "_$E(Z0,4,7) S $P(^PRCA(430,DA(1),0),U,18)=Z0 K Z0
    2)= Q
    This cross reference sets the Appropriation Symbol field 18 to the non year appropriation symbol entered for this Fiscal Year.
4 ALD CODE 0;5 POINTER TO PRCD FUND/APPROPRIATION CODE FILE (#420.3) PRCD FUND/APPROPRIATION CODE(#420.3)

  • LAST EDITED:  OCT 02, 1987
  • HELP-PROMPT:  Enter the first few characters of an ALD Code, then choose appropriate code from listing.
  • DESCRIPTION:  
    This is a pointer to the ALD Code File (Appropriation/Limitation/Department). New entries are not allowed.
5 CALM CODE DONE 0;6 SET
  • '1' FOR NOT DONE;
  • '2' FOR DONE;

  • LAST EDITED:  SEP 01, 1988
  • HELP-PROMPT:  Enter 2 for 'DONE' or 1 for 'NOT DONE'
  • DESCRIPTION:  
    This is a set of codes, indicating whether or not a CALM code sheet has been completed.
7 FY ORIGINAL AMOUNT 0;8 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999.99)!(X<0) X
  • LAST EDITED:  APR 25, 2008
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the original amount of the charges for this Fiscal Year.
  • CROSS-REFERENCE:  ^^TRIGGER^430.01^1
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRCA(430,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(430.01,7,1,1,1.4)
    1.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(^PRCA(430,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,2)=""
    1.4)= S DIH=$S($D(^PRCA(430,DIV(0),2,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=430.01,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRCA(430,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(430.01,7,1,1,2.1) X ^DD(430.01,7,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^PRCA(430,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,2)-X
    2.4)= S DIH=$S($D(^PRCA(430,DIV(0),2,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=430.01,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))
    CREATE CONDITION)= CURR.PRIN.BAL.=""
    CREATE VALUE)= CURR.PRIN.BAL.+FY ORIGINAL AMOUNT
    DELETE VALUE)= CURR.PRIN.BAL-OLD FY ORIGINAL AMOUNT
    FIELD)= CURR.PRIN.BAL.
    This cross reference triggers the Curr.Prin.Bal field #1.
Info |  Details