Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Fields |  ICR |  Found Entries  | All
Print Page as PDF
Global: ^PRCD(420.3

Package: IFCAP

Global: ^PRCD(420.3


Information

FileMan FileNo FileMan Filename Package
420.3 PRCD FUND/APPROPRIATION CODE IFCAP

Description

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Accounts Receivable 2 PRCAP310    PRCAP338    
IFCAP 1 PRCHPAT    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
Accounts Receivable 2 ACCOUNTS RECEIVABLE(#430)[#430.01(4)]    ACCOUNTS RECEIVABLE CATEGORY(#430.2)[4]    
IFCAP 1 FUND CONTROL POINT(#420)[#420.01(1), #420.06(15)]    

Fields, Total: 8

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

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!(X?1P.E) X I $D(X) K:'$O(^PRCD(420.14,"B",X,"")) X
  • LAST EDITED:  JUL 13, 1994
  • HELP-PROMPT:  Enter a fund code defined in FUND file.
  • DESCRIPTION:  
    This is fund code defined in fund file (420.14).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  420.3^B
    1)= S ^PRCD(420.3,"B",$E(X,1,30),DA)=""
    2)= K ^PRCD(420.3,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^420.3^6
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCD(420.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(420.3,.01,1,2,1.4)
    1.4)= S DIH=$S($D(^PRCD(420.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=420.3,DIG=6 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(^PRCD(420.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(420.3,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^PRCD(420.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=420.3,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NAME
    DELETE VALUE)= @
    FIELD)= FUND CODE
1 PROGRAM.LIM.ANALYSIS ACCOUNT 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<3)!(X'?.NP) X
  • LAST EDITED:  AUG 27, 1986
  • HELP-PROMPT:  ENTER THE PROGRAM, LIMITATION AND ANALYSIS ACCOUNT NUMBERS APPLICABLE TO THIS APPROPRIATION AS A STRING (E.G., 870.001.01). ANSWER MUST BE 3-11 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the program, limitation, and analysis account numbers applicable to this appropriation.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 APPROPRIATION 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>24!($L(X)<6)!(X'?.ANP) X
  • LAST EDITED:  SEP 25, 1992
  • HELP-PROMPT:  Enter the applicable appropriation data (e.g., 36_0160.001.01 or 36_/_0161.001(016) ). Answer must be 6-24 characters.
  • DESCRIPTION:  
    This is the applicable appropriation code.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  420.3^D
    1)= S ^PRCD(420.3,"D",$E(X,1,30),DA)=""
    2)= K ^PRCD(420.3,"D",$E(X,1,30),DA)
    This cross reference is set on the appropriation.
3 FY PATTERN 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<2) X
  • LAST EDITED:  AUG 26, 1986
  • HELP-PROMPT:  ENTER YALD CODE. Replace Current FY with "x" and second FY with "y".
  • DESCRIPTION:  
    This is the fiscal year (FY) associated with the Appropriation Limitation Department (YALD) code. The current FY is indicated with an "x" and the second FY with a "y".
4 APPROP. PATTERN FOR A/R SVC 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>24!($L(X)<4) X
  • LAST EDITED:  JAN 07, 1988
  • HELP-PROMPT:  Enter the appropriation symbol, with a space for the Fiscal Year. (ie 36 2431)
  • DESCRIPTION:  
    This is the appropriation pattern for the Accounts Receivable Service.
  • CROSS-REFERENCE:  420.3^C
    1)= S ^PRCD(420.3,"C",$E(X,1,30),DA)=""
    2)= K ^PRCD(420.3,"C",$E(X,1,30),DA)
    This cross reference is set on the appropriation pattern for A/R Service.
5 ALD CODE 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  JUL 06, 1994
  • HELP-PROMPT:  Enter the ALD (appropriation, limitation, department) code in accordance with MP-4, Part V, Chapter 12. Answer must be 2-3 characters.
  • DESCRIPTION:  
    This is used to store ALD CODE data.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  420.3^AC
    1)= S ^PRCD(420.3,"AC",$E(X,1,30),DA)=""
    2)= K ^PRCD(420.3,"AC",$E(X,1,30),DA)
6 FUND CODE 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1) X I $D(X) K:'$O(^PRCD(420.14,"B",X,"")) X
  • LAST EDITED:  JUL 12, 1994
  • HELP-PROMPT:  Enter a fund code defined in FUND file.
  • DESCRIPTION:  
    This is used to store FUND CODE data.
    WRITE AUTHORITY: ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the FUND field of the PRCD FUND/APPROPRIATION CODE File
7 REVOLVING FUND 0;8 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 06, 1995
  • DESCRIPTION:  
    This is a revolving fund indicator.

Found Entries, Total: 9

FUND: 0160A1    FUND: 0160A7    FUND: 0152A1    FUND: 0152A7    FUND: 0162A1    FUND: 0162A7    FUND: 528713    FUND: 528714    
FUND: 0160R1    

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #808
  • Accounts Receivable
    		•
    ICR #7237
  • ADVANCED PROSTHETICS ACQ TOOL
    		•  FUND (.01).
    Access: Read w/Fileman

    REVOLVING FUND (7).
    Access: Read w/Fileman

    		 'B' cross reference - used to look up the file #420.3entrybased on FUND (#.01) value
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Fields |  ICR |  Found Entries  | All