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

This file contains all ALD codes specified in MP4 Part V. In addition it contains the appropriation symbol associated with the ALD code and a pattern necessary to create the YALD code for the 921 transaction.

Accessed By FileMan Db Calls, Total: 3

Pointed To By FileMan Files, Total: 3

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

ICR, Total: 2

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Fields | ICR | Found Entries | All