STANDARD DATA DICTIONARY #420.1 -- COST CENTER FILE 9/29/25 PAGE 1
STORED IN ^PRCD(420.1, (679 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.1)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains codes used by Fiscal service to subdivide funding
and spending information by area of usage.
FILE SCREEN (SCR-node) : X $S(('$D(PRCFA("REACTIVATE"))&('$D(PRCFA("ALL")))):"I +$P(^(0),U,2)=0",$D(PRCFA("REACTIVATE")):"I $P(^(0)
,U,2)=1",1:"I 1")
POINTED TO BY: COST CENTER field (#.01) of the COST CENTER sub-field (#420.03) of the CONTROL POINT NAME sub-field (#420.01) of the
FUND CONTROL POINT File (#420)
COST CENTER #1 field (#116) of the CALM/LOG CODE SHEET File (#423)
COST CENTER #2 field (#116.4) of the CALM/LOG CODE SHEET File (#423)
COST CENTER 3 field (#116.8) of the CALM/LOG CODE SHEET File (#423)
COST CENTER 4 field (#117.3) of the CALM/LOG CODE SHEET File (#423)
P&R COST CENTER field (#.01) of the P&R CC (1-7) sub-field (#423.0117) of the CALM/LOG CODE SHEET File (#423)
TO COST CENTER #1 field (#1) of the 946 LINE NUMBER sub-field (#423.15) of the CALM/LOG CODE SHEET File (#423)
TO COST CENTER #2 field (#3) of the 946 LINE NUMBER sub-field (#423.15) of the CALM/LOG CODE SHEET File (#423)
COST CENTER field (#5) of the DOCUMENT LINE sub-field (#440.701) of the MONTHLY ACCRUAL File (#440.7)
COST CENTER field (#.9) of the GENERIC INVENTORY File (#445)
COST CENTER field (#3) of the DSS UNIT File (#724)
*COST CENTER field (#36) of the EQUIPMENT INV. File (#6914)
*NEW COST CENTER field (#106) of the FR DOCUMENT LOG File (#6915.6)
COST CENTER field (#5) of the ENG EMPLOYEE File (#6929)
CROSS
REFERENCED BY: DEACTIVATED COST CENTER(AC), NAME(B), NAME(C), NAME(D)
420.1,.01 NAME 0;1 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45)!($L(X)>79)!($L(X)<4)!'((X?4N1" "1AN.ANP)!(X?6N1" "1AN.ANP)) X I $D(X) S DINUM=+
X
LAST EDITED: SEP 15, 1994
HELP-PROMPT: Enter the 6 digit cost center number, a space and the cost center name. Answer must be 4-79
characters in length (no decimal allowed)
DESCRIPTION:
This is the 6 digit cost center number, a space and the cost center name.
DELETE TEST: .01,0)= I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 420.1^B
1)= S ^PRCD(420.1,"B",$E(X,1,30),DA)=""
2)= K ^PRCD(420.1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 420.1^C^MUMPS
1)= S:$E($P(X," ",2,99),1,30)]"" ^PRCD(420.1,"C",$E($P(X," ",2,99),1,30),DA)=""
2)= K:$E($P(X," ",2,99),1,30)]"" ^PRCD(420.1,"C",$E($P(X," ",2,99),1,30),DA)
This cross reference is set on the cost center.
CROSS-REFERENCE: 420.1^D^MUMPS
1)= S ^PRCD(420.1,"D",X#1000,DA)=""
2)= K ^PRCD(420.1,"D",X#1000,DA)
This cross reference is set on the modulus of the cost center number using 1000 as divisor.
420.1,.5 DEACTIVATED COST CENTER 0;2 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: AUG 26, 1988
DESCRIPTION:
YES indicates if this is a deactivated cost center.
CROSS-REFERENCE: 420.1^AC^MUMPS
1)= I X=1 S $P(^PRCD(420.1,DA,0),"^",3,4)=DUZ_"^"_DT
2)= S $P(^PRCD(420.1,DA,0),"^",3,4)="^"
This cross reference sets the deactivating user and the deactivation time on the cost center
record.
420.1,.6 DEACTIVATED BY 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 21, 1992
DESCRIPTION:
This is the name of the person who deactivated the control point.
UNEDITABLE
420.1,.7 DATE/TIME DEACTIVATED 0;4 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 26, 1988
DESCRIPTION:
This is the date/time the cost center was deactivated.
UNEDITABLE
420.1,1 BOC 1;0 POINTER Multiple #420.11
LAST EDITED: MAY 06, 1994
DESCRIPTION:
This is the budget object code for this cost center.
420.11,.01 BOC 0;1 POINTER TO BUDGET OBJECT CODE FILE (#420.2) (Multiply asked)
INPUT TRANSFORM: S DINUM=+X
LAST EDITED: MAY 06, 1994
HELP-PROMPT: Select each BOC applicable to this cost center
DESCRIPTION:
This is the budget object code for this cost center.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 420.11^B
1)= S ^PRCD(420.1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PRCD(420.1,DA(1),1,"B",$E(X,1,30),DA)
420.1,2 DESCRIPTION 2;0 WORD-PROCESSING #420.12
DESCRIPTION:
This is a description of the cost center (optional field).
HELP-PROMPT: ENTER A DESCRIPTION FOR THIS COST CENTER
DESCRIPTION:
This is a description of the cost center (optional field).
FILES POINTED TO FIELDS
BUDGET OBJECT CODE (#420.2) BOC:BOC (#.01)
NEW PERSON (#200) DEACTIVATED BY (#.6)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
PRCB CC LISTING AUG 08, 1989 USER #0 COST CENTER LISTING (**=DEACTIVATED)
PRCB CC LISTING W/SUBACCT OCT 26, 1994@13:38 USER #0 COST CENTER LIST-WITH ASSOC. BOC
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):