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 | Fields | ICR | Found Entries | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | 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.

Directly Accessed By Routines, Total: 21

Package	Total	Routines
IFCAP	15	PRC0C ^PRCD(420.3 CONTROL POINT NAME ITEM SPECIFIC INFORMATION PRC0G PRC5B1 PRC5B2 PRCB1A3 PRCB1F1 PRCB1G1 PRCB1GE1 PRCFALD PRCH0A PRCSEZ PRCSUT
Accounts Receivable	5	PRCACLM PRCALM PRCAP338 PRCAPAT PRCATO8
Kernel	1	FILE

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 ACQUISITION 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

External References

Name	Field # of Occurrence
^DICR	.01(XREF 2n1.4), .01(XREF 2n2.4)

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.01(XREF 2n1.4), .01(XREF 2n2.4)
^DD(420.3	.01(XREF 2S), .01(XREF 2K)
^PRCD(420.14 - [#420.14]	.01+1, 6+1
^PRCD(420.3 - [#420.3]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K) , 5(XREF 1S), 5(XREF 1K)

Naked Globals

Name	Field # of Occurrence
^(0	IDWRITE+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D0	.01(XREF 2S), .01(XREF 2K)
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K), 5(XREF 1S), 5(XREF 1K)
>> DIG	.01(XREF 2n1.4), .01(XREF 2n2.4)
>> DIH	.01(XREF 2n1.4), .01(XREF 2n2.4)
>> DIU	.01(XREF 2S), .01(XREF 2K)
DIV	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)
DIV(0	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)
>> PRCALD("APPR"	IDWRITE+1
U	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), 1+1!, 2+1!, 2(XREF 1S) , 2(XREF 1K), 3+1!, 4+1!, 4(XREF 1S), 4(XREF 1K), 5+1!, 5(XREF 1S), 5(XREF 1K), 6+1!
Y	.01(XREF 2S), .01(XREF 2K)
Y(1	.01(XREF 2S), .01(XREF 2K)

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Fields | ICR | Found Entries | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All