STANDARD DATA DICTIONARY #420 -- FUND CONTROL POINT FILE 3/24/25 PAGE 1
STORED IN ^PRC(420, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.1)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains parameters that allow the IFCAP user to define and
maintain separate balances for funding at their station.
CROSS
REFERENCED BY: LEVEL OF ACCESS(A), CONTROLLING SERVICE(AC), SPECIAL CONTROL POINT(AD), INVENTORY POINT(AE), INVENTORY POINT(AF),
STATION NAME(B), CONTROL POINT USER(C), FUND(UNQ1), ADMINISTRATIVE OFFICE(UNQ25D5), PROGRAM(UNQ26),
FCP/PRJ(UNQ27), OBJECT CLASS(UNQ28), JOB(UNQ29)
420,.01 STATION NAME 0;1 POINTER TO ADMIN. ACTIVITY SITE PARAMETER FILE (#411) (Required)
INPUT TRANSFORM: S:$D(X) DINUM=X Q
LAST EDITED: APR 26, 1993
HELP-PROMPT: Enter in this field the station number for each station for which your fiscal office is responsible
DESCRIPTION: This is a pointer to the Admin. Activity Site Parameter file, #411. This field contains the station
number of each station for which your fiscal office is responsible.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 420^B
1)= S ^PRC(420,"B",$E(X,1,30),DA)=""
2)= K ^PRC(420,"B",$E(X,1,30),DA)
420,1 CONTROL POINT NAME 1;0 Multiple #420.01
LAST EDITED: FEB 04, 1993
DESCRIPTION:
This is the name of the Fund Control Point.
IDENTIFIED BY:
"D25": W:$D(^(5)) ?50,$P(^(5),U,1)
"D25.5": S %I=Y,Y=$S('$D(^(5)):"",$D(^PRCD(420.15,+$P(^(5),U,5),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(420.15,.01
,0),U,2) D Y^DIQ:Y]"" W ?59,Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
"D26": S %I=Y,Y=$S('$D(^(5)):"",$D(^PRCD(420.13,+$P(^(5),U,2),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(420.13,.01
,0),U,2) D Y^DIQ:Y]"" W ?63,Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
"D27": S %I=Y,Y=$S('$D(^(5)):"",$D(^PRCD(420.131,+$P(^(5),U,3),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(420.131,.
01,0),U,2) D Y^DIQ:Y]"" W ?70,Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
420.01,.01 CONTROL POINT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:X[""""!($A(X)=45) X K:+X=9999 X I $D(X) K:$L(X)>30!($L(X)<3)!(X'?3.4N1" "1AN.ANP) X I $D(X) D DIN
U^PRCB1A
LAST EDITED: FEB 22, 1994
HELP-PROMPT: Enter a 3 or 4 digit number, a space and the name of each control point associated with this
station. Answer must be 3 to 30 characters in length
DESCRIPTION:
This is the number, a space, and the name of each Control Point associated with this station.
TECHNICAL DESCR:
THIS IS THE NUMBER, A SPACE, AND THE NAME OF EACH CONTROL POINT ASSOCIATED WITH THIS STATION
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:420.01^B
1)= S ^PRC(420,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PRC(420,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE:420.01^C^MUMPS
1)= S ^PRC(420,DA(1),1,"C",$E($P(X," ",2,99),1,30),DA)=""
2)= K ^PRC(420,DA(1),1,"C",$E($P(X," ",2,99),1,30),DA)
This cross reference is used to set the control point name.
420.01,.5 CONTROLLING SERVICE 0;10 POINTER TO SERVICE/SECTION FILE (#49)
LAST EDITED: MAY 01, 1985
DESCRIPTION:
This is the controlling service.
CROSS-REFERENCE:420^AC
1)= S ^PRC(420,"AC",$E(X,1,30),DA(1),DA)=""
2)= K ^PRC(420,"AC",$E(X,1,30),DA(1),DA)
This cross reference is set on the number of the controlling service listed in the Service/Section
file.
420.01,1 FUND 0;2 POINTER TO PRCD FUND/APPROPRIATION CODE FILE (#420.3) (Required)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,6)=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) KEY^PRCB1A,UNQCHK^PRCB
1A(X,PRCK25D5,PRCK26,PRCK27,PRCK28,PRCK29)
LAST EDITED: OCT 06, 1994
HELP-PROMPT: Select the appropriate FUND code for this control point
DESCRIPTION: This is a pointer to the FUND/APPROPRIATION file, #420.3. This field
contains the FUND code for this control point. The FUND code is used
as an allowance element which identifies the appropriation used for the funding.
SCREEN: S DIC("S")="I $P(^(0),U,6)="""""
EXPLANATION: FUND code only, old ALD code not allowed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:420.01^AC^MUMPS
1)= S %=$S($D(^PRCD(420.3,+X,0)):^(0),1:""),%(1)=^PRC(420,DA(1),1,DA,0),$P(%(1),"^",6)=$P(%,"^",2),
$P(%(1),"^",3)=$P(%,"^",3),^(0)=%(1) K %
1.1)= S X=DIV S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^PRCD(420.3,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCD
(420.3,D0,0)):^(0),1:"") S X=$P(Y(101),U,3) S D0=Y(1)
1.4)= S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S
DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=420.0
1,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= S %=^PRC(420,DA(1),1,DA,0),$P(%,"^",3)="",$P(%,"^",6)="",^(0)=% K %
2.1)= S X=DIV S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^PRCD(420.3,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCD
(420.3,D0,0)):^(0),1:"") S X=$P(Y(101),U,3) S D0=Y(1)
2.4)= S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S
DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=420.0
1,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= #1:#2
DELETE VALUE)= #1:#2
FIELD)= APPROPRIATION SYMBOL
This cross reference is used to set the program.limitation.ana- lysis and the appropriation symbol
into the fund control point record.
CROSS-REFERENCE:^^TRIGGER^420.01^3
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(420,D0,1,D1,0)):^(0),1:"") S
X=$P(Y(1),U,6) S DIU=X K Y X ^DD(420.01,1,1,2,1.1) X ^DD(420.01,1,1,2,1.4)
1.1)= S X=DIV S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^PRCD(420.3,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCD
(420.3,D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=Y(1)
1.4)= S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99)) S
DIH=DIH_U" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(0)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=420.0
1,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(420,D0,1,D1,0)):^(0),1:"") S
X=$P(Y(1),U,6) S DIU=X K Y X ^DD(420.01,1,1,2,2.1) X ^DD(420.01,1,1,2,2.4)
2.1)= S X=DIV S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^PRCD(420.3,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCD
(420.3,D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=Y(1)
2.4)= S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99)) S
DIH=DIH_U" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(0)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=420.0
1,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= #1:#1
DELETE VALUE)= #1:#1
FIELD)= PROGRAM.LIMITATION.ANALYSIS
This cross-reference is a trigger of the PROGRAM.LIMITATION.ANALYSIS field (#3) of the CONTROL
POINT NAME sub-field (#420.01) of the FUND CONTROL POINT File (#420).
CROSS-REFERENCE:^^TRIGGER^420.01^25
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"") S
X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(420.01,1,1,3,1.1) X ^DD(420.01,1,1,3,1.4)
1.1)= S X=DIV S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^PRCD(420.3,+D0,0)
) D0=-1 S Y(101)=$S($D(^PRCD(420.3,D0,0)):^(0),1:"") S X=$P(Y(101),U,7) S D0=I(0,0) S D1=I(1,0)
1.4)= S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""),DIV=X S $P(^(5),U,1)=DIV,DIH=420.01,DIG=2
5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"") S
X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(420.01,1,1,3,2.4)
2.4)= S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""),DIV=X S $P(^(5),U,1)=DIV,DIH=420.01,DIG=2
5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= #1:#6
DELETE VALUE)= @
FIELD)= FUND
CROSS-REFERENCE:420^UNQ1^MUMPS
1)= D KEY^PRCB1A S PRCK1=X D UNQCRS^PRCB1A
2)= D KEY^PRCB1A S PRCK1=X D UNQCRK^PRCB1A
This is used for unique entry checking.
CROSS-REFERENCE:^^TRIGGER^420.01^25.2
1)= X ^DD(420.01,1,1,10,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"") S X=$P(Y(1),U
,8),X=X S DIU=X K Y X ^DD(420.01,1,1,10,1.1) X ^DD(420.01,1,1,10,1.4)
1.1)= S X=DIV S X="S X=$$DATE^PRC0C(""T"",""E""),X=$P($$DATE^PRC0C(+X,""E""),U,7)" X X
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(^PRC(420,D0,1,D1,5)):^
(5),1:"") S X=$P(Y(1),U,8)=""
1.4)= S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""),DIV=X S $P(^(5),U,8)=DIV,DIH=420.01,DIG=2
5.2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= BEGINNING=""
CREATE VALUE)= PRCMUMPS("S X=$$DATE^PRC0C(""T"",""E""),X=$P($$DATE^PRC0C(+X,""E""),U,7)")
DELETE VALUE)= NO EFFECT
FIELD)= BEG
420.01,2 APPROPRIATION SYMBOL 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<6)!'(X?.ANP) X
LAST EDITED: APR 23, 1985
HELP-PROMPT: ANSWER MUST BE 6-20 CHARACTERS IN LENGTH
DESCRIPTION:
This is the appropriation symbol.
WRITE AUTHORITY:^
NOTES: TRIGGERED by the FUND field of the CONTROL POINT NAME sub-field of the FUND CONTROL POINT File
420.01,3 PROGRAM.LIMITATION.ANALYSIS 0;6 FREE TEXT
INPUT TRANSFORM:K:$L(X)>11!($L(X)<3)!'(X?.NP) X
LAST EDITED: APR 23, 1985
HELP-PROMPT: ANSWER MUST BE 3-11 CHARACTERS IN LENGTH
DESCRIPTION: This is the program limitation analysis. It is a combination of three (3) groups of information as
defined in MP4, Part 5 regarding use of funds (e.g., 870.001.29 = medical care, all other, ADP
funds).
NOTES: TRIGGERED by the FUND field of the CONTROL POINT NAME sub-field of the FUND CONTROL POINT File
420.01,4 AUTOMATED 0;11 SET (Required)
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: MAY 02, 1985
HELP-PROMPT: Answer YES, if this control point generates their requests to A&MM through the IFCAP system, rather
than manually.
DESCRIPTION:
Enter YES if this control point generates their requests to A&MM using IFCAP.
420.01,6 CONTROL POINT USER 1;0 POINTER Multiple #420.02 (Add New Entry without Asking)
DESCRIPTION:
This is the name of the control point user.
IDENTIFIED BY: LEVEL OF ACCESS(#1)
420.02,.01 CONTROL POINT USER 0;1 POINTER TO NEW PERSON FILE (#200) (Multiply asked)
INPUT TRANSFORM:S DINUM=+X
LAST EDITED: JAN 14, 1993
HELP-PROMPT: Select the name of the individual who will be allowed to access this control point.
DESCRIPTION:
This is the name of the person who will be allowed to access this Control Point.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:420^C
1)= S ^PRC(420,"C",$E(X,1,30),DA(2),DA(1),DA)=""
2)= K ^PRC(420,"C",$E(X,1,30),DA(2),DA(1),DA)
This cross reference is set on the user, station number, and control point for every control
point which the user has access to.
420.02,1 LEVEL OF ACCESS 0;2 SET
'1' FOR CONTROL POINT OFFICIAL;
'2' FOR CONTROL POINT CLERK;
'3' FOR REQUESTOR;
LAST EDITED: JUN 06, 1986
HELP-PROMPT: 1--CONTROL POINT OFFICIAL (Has authority to approve requests) 2--CONTROL POINT CLERK (Can enter
permanent transactions) 3--REQUESTOR (Can initiate temporary requests to Control Point Clerk)
DESCRIPTION: This is the level of access for the Control Point users (i.e., 1 = Control Point Official, who
has authority to approve requests; 2 = Control Point Clerk,who can enter permanent transactions;
and 3 = Requestor, who can initiate temporary requests to the Control Point Clerk).
CROSS-REFERENCE:420^A^MUMPS
1)= S ^PRC(420,"A",DA,DA(2),DA(1),X)=""
2)= K ^PRC(420,"A",DA,DA(2),DA(1),X)
This cross reference is set on the user, station number, control point, and level of access for
every control point the user has access to.
420.02,2 RECEIVE FMS RECONCILIATION 2;1 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: MAR 23, 1994
HELP-PROMPT: Enter yes if the user should receive the FMS Reconciliation Report.
DESCRIPTION: This field is used to indicate which control point users will receive electronic mail messages
whenever transactions in FMS affect the balance in their Fund Control Point. Users coded as "y"
will be the only ones receiving these messages. However, if no users are coded "Y", all control
point officials will receive messages.
420.02,3 NOTIFICATION DESIGNEE 0;3 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: MAR 23, 1994
HELP-PROMPT: Enter yes if this control point user should receive funding bulletins.
DESCRIPTION: This is an optional field used to indicate whether the user will receive the control point
funding notification bulletins. Only users with 'Y' entered here will receive the bulletins. If
no users for this Fund Control Point have 'Y' entered, all users for this FCP will receive the
bulletins.
420.01,7 COST CENTER 2;0 POINTER Multiple #420.03
DESCRIPTION:
This is information about the cost center.
420.03,.01 COST CENTER 0;1 POINTER TO COST CENTER FILE (#420.1) (Multiply asked)
INPUT TRANSFORM:S DINUM=+X
LAST EDITED: JUL 27, 1986
HELP-PROMPT: Select each cost center applicable to this control point
DESCRIPTION:
This is a cost center applicable to this control point.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:420.03^B
1)= S ^PRC(420,DA(2),1,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^PRC(420,DA(2),1,DA(1),2,"B",$E(X,1,30),DA)
420.01,8 DESCRIPTION 3;0 WORD-PROCESSING #420.04
TECHNICAL DESCR:
THIS IS A DESCRIPTION OF THIS CONTROL POINT.
HELP-PROMPT: THIS IS A DESCRIPTION OF THE CONTROL POINT.
DESCRIPTION:
THIS IS A DESCRIPTION OF THE CONTROL POINT.
TECHNICAL DESCR:
THIS IS A DESCRIPTION OF THE CONTROL POINT.
420.01,9 ITEM DELIVERY POINTS 0;14 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 21, 1987
HELP-PROMPT: If this control point will be using the item delivery points field to track multiple delivery
points for an item enter a 1 for 'YES'.
DESCRIPTION: Enter 1 for YES if this control point will be using the item delivery points field to track
multiple delivery points for an item.
420.01,10 STATUS OF FUNDS BALANCE 0;7 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>999999999)!(X<-999999999) X
LAST EDITED: APR 23, 1985
HELP-PROMPT: TYPE A NUMBER BETWEEN -999999999 AND 999999999
DESCRIPTION:
This is the status of the funds balance for this Control Point.
420.01,11 ESTIMATED BALANCE 0;8 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>999999999)!(X<-999999999) X
LAST EDITED: APR 23, 1985
HELP-PROMPT: TYPE A NUMBER BETWEEN -999999999 AND 999999999
DESCRIPTION:
This is the estimated balance of this Control Point.
420.01,12 ALLOW ACCESS BY ALL REQUESTORS 0;9 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: JUN 25, 1986
HELP-PROMPT: Enter a 'Y' for yes if you want to allow all control point users to have requestor level
access to this control point.
DESCRIPTION:
YES allows all Control Point users to have requestor level access.
420.01,13 SPECIAL CONTROL POINT 0;12 SET
'1' FOR GENERAL POST FUND;
'2' FOR SUPPLY FUND;
'3' FOR CONSTRUCTION;
'4' FOR CANTEEN;
LAST EDITED: NOV 10, 1994
HELP-PROMPT: Controls the way a procurement document is routed through IFCAP, as well as whether Cost
Centers and BOCs are required.
DESCRIPTION:
This is the appropriate code if this is a special control point (e.g. Supply Stock Fund).
CROSS-REFERENCE:420^AD
1)= S ^PRC(420,"AD",$E(X,1,30),DA(1),DA)=""
2)= K ^PRC(420,"AD",$E(X,1,30),DA(1),DA)
This cross reference is set on one of the three types of special control point: general post
fund, supply, and CASCA/Canteen. It is set on the type, station number, and control point.
420.01,14 CP OVERCOMMIT SWITCH 0;13 SET (Required)
'0' FOR OVERCOMMIT NOT ALLOWED;
'1' FOR CURRENT QUARTER OVERCOMMIT ALLOWED;
'2' FOR FUTURE QUARTERS OVERCOMMIT ALLOWED;
'3' FOR CURRENT AND FUTURE QUARTERS OVERCOMMIT ALLOWED;
'5' FOR OVERCOMMIT ALLOWED;
LAST EDITED: JAN 05, 1995
DESCRIPTION:
NO indicates that this control point is not permitted to overcommit funds.
420.01,15 COMMITTED/OBLIGATED BALANCES 4;0 Multiple #420.06 (Add New Entry without Asking)
DESCRIPTION:
This is the Control Point official's fund balance.
420.06,.01 FISCAL YEAR 0;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>2!($L(X)<2)!'(X?2N) X I $D(X) S DINUM=X
LAST EDITED: MAR 06, 1987
HELP-PROMPT: Enter the two digit fiscal year (e.g., 86)
DESCRIPTION:
This is the two digit fiscal year (e.g., 86).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
420.06,1 1QTR UNCOMMITTED BALANCE 0;2 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X
LAST EDITED: MAR 01, 1988
HELP-PROMPT: Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits
DESCRIPTION:
This is the first quarter fund balance.
420.06,2 2QTR UNCOMMITTED BALANCE 0;3 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>999999999)!(X<-999999999) X
LAST EDITED: JUN 25, 1986
HELP-PROMPT: TYPE A NUMBER BETWEEN -999999999 AND 999999999
DESCRIPTION:
This is the second quarter fund balance.
420.06,3 3QTR UNCOMMITTED BALANCE 0;4 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>999999999)!(X<-999999999) X
LAST EDITED: JUN 25, 1986
HELP-PROMPT: TYPE A NUMBER BETWEEN -999999999 AND 999999999
DESCRIPTION:
This is the third quarter fund balance.
420.06,4 4QTR UNCOMMITTED BALANCE 0;5 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X
LAST EDITED: MAY 14, 1991
HELP-PROMPT: Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits
DESCRIPTION:
This is the fourth quarter fund balance.
420.06,5 1QTR UNOBLIGATED BALANCE 0;6 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X
LAST EDITED: MAR 01, 1988
HELP-PROMPT: Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits
DESCRIPTION:
This is the first quarter unobligated balance.
420.06,6 2QTR UNOBLIGATED BALANCE 0;7 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X
LAST EDITED: MAR 01, 1988
HELP-PROMPT: Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits
DESCRIPTION:
This is the second quarter unobligated balance.
420.06,7 3QTR UNOBLIGATED BALANCE 0;8 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X
LAST EDITED: MAR 01, 1988
HELP-PROMPT: Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits
DESCRIPTION:
This is the third quarter unobligated balance.
420.06,8 4QTR UNOBLIGATED BALANCE 0;9 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X
LAST EDITED: MAR 01, 1988
HELP-PROMPT: Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits
DESCRIPTION:
This is the fourth quarter unobligated balance.
420.06,9 1QTR SCP UNCOMMITTED BALANCE 1;2 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X
LAST EDITED: APR 25, 1989
HELP-PROMPT: Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits
DESCRIPTION:
This is the first quarter sub-control point (SCP) uncommitted balance.
420.06,10 2QTR SCP UNCOMMITTED BALANCE 1;3 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X
LAST EDITED: APR 25, 1989
HELP-PROMPT: Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits
DESCRIPTION:
This is the second quarter sub-control point (SCP) uncommitted balance.
420.06,11 3QTR SCP UNCOMMITTED BALANCE 1;4 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X
LAST EDITED: APR 25, 1989
HELP-PROMPT: Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits
DESCRIPTION:
This is the third quarter SCP uncommitted balance.
420.06,12 4QTR SCP UNCOMMITTED BALANCE 1;5 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X
LAST EDITED: APR 25, 1989
HELP-PROMPT: Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits
DESCRIPTION:
This is the fourth quarter uncommitted balance.
420.06,13 FY FCP CODE 2;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
LAST EDITED: MAR 23, 1994
HELP-PROMPT: Answer must be 1-10 characters in length.
DESCRIPTION:
This is used to store FY FCP CODE data.
420.06,14 FY FCP NAME 2;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>40!($L(X)<1) X
LAST EDITED: MAR 23, 1994
HELP-PROMPT: Answer must be 1-40 characters in length.
DESCRIPTION:
This is used to store FY FCP NAME data.
420.06,15 FY ALD/FUND CODE 2;3 POINTER TO PRCD FUND/APPROPRIATION CODE FILE (#420.3)
LAST EDITED: MAR 23, 1994
DESCRIPTION:
This is used to store FY ALD/FUND CODE data.
420.06,16 FY A/O 2;4 POINTER TO PRCD SD ADMINISTRATIVE OFFICE FILE (#420.15)
LAST EDITED: MAR 23, 1994
DESCRIPTION:
This is used to store FY A/O data.
420.06,17 FY PROGRAM 2;5 POINTER TO PRCD SD PROGRAM FILE (#420.13)
LAST EDITED: MAR 23, 1994
DESCRIPTION:
This is used to store FY PROGRAM data.
420.06,18 FY FCP/PRJ 2;6 POINTER TO PRCD SD FCP/PRJ FILE (#420.131)
LAST EDITED: MAR 23, 1994
DESCRIPTION:
This is used to store FY FCP/PRJ data.
420.06,19 FY OBJECT CLASS 2;7 POINTER TO PRCD SD OBJECT CLASS FILE (#420.132)
LAST EDITED: MAR 23, 1994
DESCRIPTION:
This is used to store FY OBJECT CLASS data.
420.06,20 FY JOB 2;8 POINTER TO PRCD SD JOB FILE (#420.133)
LAST EDITED: MAR 23, 1994
DESCRIPTION:
This is used to store FY JOB data.
420.06,21 FY APPROPRIATION SYMBOL 2;9 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X
LAST EDITED: MAR 24, 1994
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION:
This is used to store FY APPROPRIATION SYMBOL data.
420.06,22 FY FUND CODE 2;10 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
LAST EDITED: MAR 24, 1994
HELP-PROMPT: Answer must be 1-10 characters in length.
DESCRIPTION:
This is used to store FY FUND CODE data.
420.01,16 OVERCOMMIT 1358 PERMITTED 0;15 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: AUG 25, 1987
HELP-PROMPT: Enter a 'Y' for YES if this Control Point is allowed to enter 1358 authorizations and/or
liquidations in excess of the amount of the 1358.
DESCRIPTION:
Enter YES if the control point can overcommit in excess of the 1358 amount.
420.01,17 ** INVENTORY DISTRIBUTION POINT 0;16 POINTER TO GENERIC INVENTORY FILE (#445)
LAST EDITED: AUG 12, 1999
DESCRIPTION:
REPLACED BY 17.5 MULTIPLE IN PATCH PRC*5*197. ** This field will be deleted. **
420.01,17.5 INVENTORY POINT 7;0 POINTER Multiple #420.07
LAST EDITED: AUG 11, 1999
420.07,.01 INVENTORY POINT 0;1 POINTER TO GENERIC INVENTORY FILE (#445) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,3)'=""S""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 11, 1999
DESCRIPTION:
The list of all Inventory Points that may be supplied via this FCP.
SCREEN: S DIC("S")="I $P(^(0),U,3)'=""S"""
EXPLANATION: May only select primary or warehouse.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:420.07^B
1)= S ^PRC(420,DA(2),1,DA(1),7,"B",$E(X,1,30),DA)=""
2)= K ^PRC(420,DA(2),1,DA(1),7,"B",$E(X,1,30),DA)
CROSS-REFERENCE:420^AE^MUMPS
1)= S ^PRC(420,"AE",DA(2),$E(X,1,30),DA(1))=""
2)= K ^PRC(420,"AE",DA(2),$E(X,1,30),DA(1))
This cross reference is set on the station number, inventory point, and control point.
CROSS-REFERENCE:420^AF^MUMPS
1)= S ^PRC(420,"AF",DA(2),DA(1),$E(X,1,30))=""
2)= K ^PRC(420,"AF",DA(2),DA(1),$E(X,1,30))
This cross reference is set on the station number, control point and inventory point.
420.01,18 DIETETICS SUBS/SUPPLIES 0;17 SET
'1' FOR SUBSISTENCE;
'2' FOR SUPPLIES;
LAST EDITED: DEC 18, 1987
HELP-PROMPT: Used ONLY for the Dietetics Fund Control Points, to indicate whether the control point is
used to purchase Subsistence or Supplies.
DESCRIPTION: This field is used only for the Dietetics Fund Control Points, to indicate whether the
Control Point is used to purchase subsistence or supplies.
420.01,19 LOG DEPARTMENT 0;18 FREE TEXT
INPUT TRANSFORM:K:$L(X)>24!($L(X)<3)!'(X?3UN." ".E) X
LAST EDITED: JUL 27, 1989
HELP-PROMPT: Enter 3 character department identifier, a space, and the department name. This is
required on all but Supply Fund control points. ANSWER MUST BE 3-24 CHARACTERS IN LENGTH
DESCRIPTION: If there is a LOG department number associated with this Fund Control Point, enter the
three character identifier, followed by a space, then the name of the department (up to
20 characters). This field is used in generation of LOG code sheets.
Use of a LOG department number that begins with 11 will require the FCP user to enter a
Food Group for the items they order, and therefore should be used for Subsistence control
points only.
420.01,20 ACTIVE/INACTIVE 0;19 SET
'0' FOR ACTIVE;
'1' FOR INACTIVE;
LAST EDITED: AUG 24, 1993
DESCRIPTION:
Enter YES for an active control point.
420.01,21 ROLLOVER OF EOQ BALANCE 0;20 SET (Required)
'1' FOR TRANSFER FUNDS TO ANOTHER FCP;
'2' FOR SPEND AVAILABLE PRIOR FUNDS;
'3' FOR RESTRICT TO CURRENT QUARTER (DEFAULT);
LAST EDITED: JUN 17, 1994
HELP-PROMPT: Enter control point from which funds will be spent.
DESCRIPTION:
This is the rollover of the EOQ balance.
CROSS-REFERENCE:^^TRIGGER^420.01^22
1)= X ^DD(420.01,21,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(420,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U
,21),X=X S DIU=X K Y S X="" X ^DD(420.01,21,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)=$C(59)_$S($D(^DD(420.01,21,0
)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)'=1
1.4)= S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,21)=DIV,DIH=420.01,DIG=
22 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(420,D0,1,D1,0)):^(0),1:"") S
X=$P(Y(1),U,21),X=X S DIU=X K Y S X="" X ^DD(420.01,21,1,1,2.4)
2.4)= S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,21)=DIV,DIH=420.01,DIG=
22 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE CONDITION)= ROLLOVER OF EOQ BALANCE'=1
CREATE VALUE)= @
DELETE VALUE)= @
FIELD)= ROLLOVER CONTROL POINT
420.01,22 ROLLOVER CONTROL POINT 0;21 FREE TEXT
INPUT TRANSFORM:S DIC="^PRC(420,"_DA(1)_",1,",DIC(0)="EMNQZ",DIC("S")="I Y-DA,Y-9999,$P(^(0),U,12)-2" D ^
DIC K:Y<0 X I $D(X) S X=$P($G(Y(0)),U,1),X=$P(X," ") K DIC
LAST EDITED: JUN 09, 1994
HELP-PROMPT:Enter a valid control point number. INCLUDE LEADING ZERO'S
DESCRIPTION:
This is the rollover control point number.
EXECUTABLE HELP:N D,DIC S X="?" Q:'$D(^PRC(420,DA(1),1,0)) S DIC="^PRC(420,DA(1),1,",DIC(0)="QEM",DIC("S
")="I Y-DA,Y-9999,$P(^(0),U,12)-2" D ^DIC K DIC("S")
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the ROLLOVER OF EOQ BALANCE field of the CONTROL POINT NAME sub-field of the FUND
CONTROL POINT File
420.01,23 DEACTIVATED BY 0;23 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 21, 1992
DESCRIPTION:
This is the person who deactivated the control point.
420.01,24 DATE/TIME DEACTIVATED 0;24 DATE
INPUT TRANSFORM:S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 10, 1989
DESCRIPTION:
This is the date/time the control point was deactivated.
420.01,25 FUND CODE TEXT 5;1 FREE TEXT (Required)
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<1) X I $D(X) K:'$O(^PRCD(420.14,"B",X,""))
X
LAST EDITED: JUN 16, 1994
HELP-PROMPT:Enter a fund code defined in FUND file.
DESCRIPTION:
This is used to store fund code text data.
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the FUND field of the CONTROL POINT NAME sub-field of the FUND CONTROL POINT File
CROSS-REFERENCE:420.01^REQ2^MUMPS
1)= S PRCFUND=X D REQ^PRCB1A1
2)= Q
This is used for required field checking.
CROSS-REFERENCE:^^TRIGGER^420.01^25.5
1)= Q
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X="S X='PRCRQ(25.5)" X X I X S X=DI
V S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(420.01
,25,1,15,2.4)
2.4)= S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""),DIV=X S $P(^(5),U,5)=DIV,DIH=420.01,DIG=2
5.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NO EFFECT
DELETE CONDITION)= PRCMUMPS("S X='PRCRQ(25.5)")
DELETE VALUE)= @
FIELD)= ADM
CROSS-REFERENCE:^^TRIGGER^420.01^26
1)= Q
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X="S X='PRCRQ(26)" X X I X S X=DIV
S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(420.01,2
5,1,16,2.4)
2.4)= S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""),DIV=X S $P(^(5),U,2)=DIV,DIH=420.01,DIG=2
6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NO EFFECT
DELETE CONDITION)= PRCMUMPS("S X='PRCRQ(26)")
DELETE VALUE)= @
FIELD)= PROGRAM
CROSS-REFERENCE:^^TRIGGER^420.01^27
1)= Q
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X="S X='PRCRQ(27)" X X I X S X=DIV
S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(420.01,2
5,1,17,2.4)
2.4)= S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""),DIV=X S $P(^(5),U,3)=DIV,DIH=420.01,DIG=2
7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NO EFFECT
DELETE CONDITION)= PRCMUMPS("S X='PRCRQ(27)")
DELETE VALUE)= @
FIELD)= FCP/P
CROSS-REFERENCE:^^TRIGGER^420.01^28
1)= Q
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X="S X='PRCRQ(28)" X X I X S X=DIV
S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(420.01,2
5,1,18,2.4)
2.4)= S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""),DIV=X S $P(^(5),U,4)=DIV,DIH=420.01,DIG=2
8 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NO EFFECT
DELETE CONDITION)= PRCMUMPS("S X='PRCRQ(28)")
DELETE VALUE)= @
FIELD)= OB
CROSS-REFERENCE:^^TRIGGER^420.01^29
1)= Q
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X="S X='PRCRQ(29)" X X I X S X=DIV
S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(420.01,2
5,1,19,2.4)
2.4)= S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""),DIV=X S $P(^(5),U,6)=DIV,DIH=420.01,DIG=2
9 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NO EFFECT
DELETE CONDITION)= PRCMUMPS("S X='PRCRQ(29)")
DELETE VALUE)= @
FIELD)= JOB
420.01,25.2 BEGINNING BUDGET FISCAL YEAR 5;8 DATE (Required)
INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:8000101X) X
LAST EDITED: JUN 16, 1994
HELP-PROMPT:Enter a year which is used to determine, from the required fields file, the necessary data to
prompt suring the set-up of the FCP.
DESCRIPTION:
This is used to store BEGINNING BUDGET FISCAL YEAR data.
EXECUTABLE HELP:D HE^PRCB0A("BBFY")
NOTES:TRIGGERED by the FUND field of the CONTROL POINT NAME sub-field of the FUND CONTROL POINT File
CROSS-REFERENCE:420.01^REQ1^MUMPS
1)= S PRCBBFY=X D REQ^PRCB1A1
2)= Q
This is used for required field checking.
CROSS-REFERENCE:^^TRIGGER^420.01^25.5
1)= Q
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X="S X='PRCRQ(25.5)" X X I X S X=DI
V S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(420.01
,25.2,1,15,2.4)
2.4)= S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""),DIV=X S $P(^(5),U,5)=DIV,DIH=420.01,DIG=2
5.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NO EFFECT
DELETE CONDITION)= PRCMUMPS("S X='PRCRQ(25.5)")
DELETE VALUE)= @
FIELD)= ADM
CROSS-REFERENCE:^^TRIGGER^420.01^26
1)= Q
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X="S X='PRCRQ(26)" X X I X S X=DIV
S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(420.01,2
5.2,1,16,2.4)
2.4)= S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""),DIV=X S $P(^(5),U,2)=DIV,DIH=420.01,DIG=2
6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NO EFFECT
DELETE CONDITION)= PRCMUMPS("S X='PRCRQ(26)")
DELETE VALUE)= @
FIELD)= PROGRAM
CROSS-REFERENCE:^^TRIGGER^420.01^27
1)= Q
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X="S X='PRCRQ(27)" X X I X S X=DIV
S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(420.01,2
5.2,1,17,2.4)
2.4)= S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""),DIV=X S $P(^(5),U,3)=DIV,DIH=420.01,DIG=2
7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NO EFFECT
DELETE CONDITION)= PRCMUMPS("S X='PRCRQ(27)")
DELETE VALUE)= @
FIELD)= FCP
CROSS-REFERENCE:^^TRIGGER^420.01^28
1)= Q
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X="S X='PRCRQ(28)" X X I X S X=DIV
S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(420.01,2
5.2,1,18,2.4)
2.4)= S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""),DIV=X S $P(^(5),U,4)=DIV,DIH=420.01,DIG=2
8 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NO EFFECT
DELETE CONDITION)= PRCMUMPS("S X='PRCRQ(28)")
DELETE VALUE)= @
FIELD)= OBJ
CROSS-REFERENCE:^^TRIGGER^420.01^29
1)= Q
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X="S X='PRCRQ(29)" X X I X S X=DIV
S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(420.01,2
5.2,1,19,2.4)
2.4)= S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""),DIV=X S $P(^(5),U,6)=DIV,DIH=420.01,DIG=2
9 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NO EFFECT
DELETE CONDITION)= PRCMUMPS("S X='PRCRQ(29)")
DELETE VALUE)= @
FIELD)= JOB
420.01,25.5 ADMINISTRATIVE OFFICE 5;5 POINTER TO PRCD SD ADMINISTRATIVE OFFICE FILE (#420.15)
INPUT TRANSFORM:S DIC("S")="I $$STATUS^PRC0B=""A""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) KEY^PRCB1
A,UNQCHK^PRCB1A(PRCK1,X,PRCK26,PRCK27,PRCK28,PRCK29)
LAST EDITED: OCT 06, 1994
DESCRIPTION:
This is used to store ADMINISTRATIVE OFFICE data.
SCREEN:S DIC("S")="I $$STATUS^PRC0B=""A"""
EXPLANATION:Entry with active status only.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the BEGINNING BUDGET FISCAL YEAR field of the CONTROL POINT NAME sub-field of the FUND
CONTROL POINT File
TRIGGERED by the FUND CODE TEXT field of the CONTROL POINT NAME sub-field of the FUND CONTROL POINT
File
CROSS-REFERENCE:420^UNQ25D5^MUMPS
1)= D KEY^PRCB1A S PRCK25D5=" " D UNQCRK^PRCB1A S PRCK25D5=X D UNQCRS^PRCB1A
2)= D KEY^PRCB1A S PRCK25D5=X D UNQCRK^PRCB1A S PRCK25D5=" " D UNQCRS^PRCB1A
This is used for unique entry checking.
420.01,26 PROGRAM 5;2 POINTER TO PRCD SD PROGRAM FILE (#420.13)
INPUT TRANSFORM:S DIC("S")="I $$STATUS^PRC0B=""A""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) KEY^PRCB1
A,UNQCHK^PRCB1A(PRCK1,PRCK25D5,X,PRCK27,PRCK28,PRCK29)
LAST EDITED: OCT 06, 1994
DESCRIPTION:
This is used to store PROGRAM data.
SCREEN:S DIC("S")="I $$STATUS^PRC0B=""A"""
EXPLANATION:Entry with active status only.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the BEGINNING BUDGET FISCAL YEAR field of the CONTROL POINT NAME sub-field of the FUND
CONTROL POINT File
TRIGGERED by the FUND CODE TEXT field of the CONTROL POINT NAME sub-field of the FUND CONTROL POINT
File
CROSS-REFERENCE:420^UNQ26^MUMPS
1)= D KEY^PRCB1A S PRCK26=" " D UNQCRK^PRCB1A S PRCK26=X D UNQCRS^PRCB1A
2)= D KEY^PRCB1A S PRCK26=X D UNQCRK^PRCB1A S PRCK26=" " D UNQCRS^PRCB1A
This is used for unique entry checking.
420.01,27 FCP/PRJ 5;3 POINTER TO PRCD SD FCP/PRJ FILE (#420.131)
INPUT TRANSFORM:S DIC("S")="I $$STATUS^PRC0B=""A""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) KEY^PRCB1
A,UNQCHK^PRCB1A(PRCK1,PRCK25D5,PRCK26,X,PRCK28,PRCK29)
LAST EDITED: OCT 06, 1994
DESCRIPTION:
This is used to store FCP/PRJ data.
SCREEN:S DIC("S")="I $$STATUS^PRC0B=""A"""
EXPLANATION:Entry with active status only.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the BEGINNING BUDGET FISCAL YEAR field of the CONTROL POINT NAME sub-field of the FUND
CONTROL POINT File
TRIGGERED by the FUND CODE TEXT field of the CONTROL POINT NAME sub-field of the FUND CONTROL POINT
File
CROSS-REFERENCE:420^UNQ27^MUMPS
1)= D KEY^PRCB1A S PRCK27=" " D UNQCRK^PRCB1A S PRCK27=X D UNQCRS^PRCB1A
2)= D KEY^PRCB1A S PRCK27=X D UNQCRK^PRCB1A S PRCK27=" " D UNQCRS^PRCB1A
This is used for unique entry checking.
420.01,28 OBJECT CLASS 5;4 POINTER TO PRCD SD OBJECT CLASS FILE (#420.132)
INPUT TRANSFORM:S DIC("S")="I $$STATUS^PRC0B=""A""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) KEY^PRCB1
A,UNQCHK^PRCB1A(PRCK1,PRCK25D5,PRCK26,PRCK27,X,PRCK29)
LAST EDITED: OCT 06, 1994
DESCRIPTION:
This is used to store OBJECT CLASS data.
SCREEN:S DIC("S")="I $$STATUS^PRC0B=""A"""
EXPLANATION:Entry with active status only.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the BEGINNING BUDGET FISCAL YEAR field of the CONTROL POINT NAME sub-field of the FUND
CONTROL POINT File
TRIGGERED by the FUND CODE TEXT field of the CONTROL POINT NAME sub-field of the FUND CONTROL POINT
File
CROSS-REFERENCE:420^UNQ28^MUMPS
1)= D KEY^PRCB1A S PRCK28=" " D UNQCRK^PRCB1A S PRCK28=X D UNQCRS^PRCB1A
2)= D KEY^PRCB1A S PRCK28=X D UNQCRK^PRCB1A S PRCK28=" " D UNQCRS^PRCB1A
This is used for unique entry checking.
420.01,29 JOB 5;6 POINTER TO PRCD SD JOB FILE (#420.133)
INPUT TRANSFORM:S DIC("S")="I $$STATUS^PRC0B=""A""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) KEY^PRCB1
A,UNQCHK^PRCB1A(PRCK1,PRCK25D5,PRCK26,PRCK27,PRCK28,X)
LAST EDITED: OCT 06, 1994
HELP-PROMPT:Enter a valid job in job file.
DESCRIPTION:
This is used to store JOB data.
SCREEN:S DIC("S")="I $$STATUS^PRC0B=""A"""
EXPLANATION:Entry with active status only.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the BEGINNING BUDGET FISCAL YEAR field of the CONTROL POINT NAME sub-field of the FUND
CONTROL POINT File
TRIGGERED by the FUND CODE TEXT field of the CONTROL POINT NAME sub-field of the FUND CONTROL POINT
File
CROSS-REFERENCE:420^UNQ29^MUMPS
1)= D KEY^PRCB1A S PRCK29=" " D UNQCRK^PRCB1A S PRCK29=X D UNQCRS^PRCB1A
2)= D KEY^PRCB1A S PRCK29=X D UNQCRK^PRCB1A S PRCK29=" " D UNQCRS^PRCB1A
This is used for unique entry checking.
420.01,30 LAST ROLLOVER QUARTER DATE 5;7 DATE
INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:9991231X) X
LAST EDITED: APR 24, 1994
HELP-PROMPT:TYPE A DATE BETWEEN 1970 AND 12/31/2699
DESCRIPTION:
This is used to store LAST ROLLOVER QUARTER DATE data.
420.01,31 EDI AUTO RELEASE 6;1 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: MAY 20, 1996
DESCRIPTION:
This is used to release EDI orders to vendors directly without fiscal review if the data is 'Y' for
yes.
420.01,32 FCP ALL/DELIVERY ORDER SWITCH 6;2 SET
'A' FOR ALL ORDERS;
'D' FOR DELIVERY ORDERS ONLY;
LAST EDITED: JUN 24, 1996
DESCRIPTION:
This is used to release orders directly without fiscal review.
420,2 FUND RELEASING OFFICIAL 2;0 POINTER Multiple #420.05
DESCRIPTION:
This is the official authorized to release funds.
420.05,.01 FUND RELEASING OFFICIAL 0;1 POINTER TO NEW PERSON FILE (#200) (Multiply asked)
INPUT TRANSFORM: S DINUM=+X
LAST EDITED: JAN 27, 1993
HELP-PROMPT: ENTER NAME OF FISCAL EMPLOYEE AUTHORIZED TO APPROVE RELEASE OF FUNDING TRANSACTIONS TO CONTROL
POINTS.
DESCRIPTION: This is the fiscal employee authorized to approve release of funding transactions to control
points.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
420,3 STATION OVERCOMMIT SWITCH 0;2 SET
'0' FOR OVERCOMMIT NOT ALLOWED FOR ALL FCP'S;
'1' FOR CURRENT QUARTER OVERCOMMIT ALLOWED;
'2' FOR FUTURE QUARTERS OVERCOMMIT ALLOWED;
'3' FOR CURRENT AND FUTURE QUARTERS OVERCOMMIT ALLOWED;
'4' FOR INDIVIDUAL CP SWITCH USED;
'5' FOR OVERCOMMIT ALLOWED;
LAST EDITED: JAN 05, 1995
DESCRIPTION:
This is the set of codes for setting the overcommit switch for a control point.
420,3.1 STATION ROLLOVER OF EOQ BAL. 0;8 SET
'2' FOR ALL FCPs CAN SPEND PRIOR FUNDS;
'3' FOR INDIVIDUAL FCP ROLLOVER EOQ BALANCE IN EFFECT;
LAST EDITED: JUL 27, 1994
DESCRIPTION:
This is used to store roll over data.
420,4 SUPPLY FUND CAP 0;3 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
LAST EDITED: OCT 18, 1991
HELP-PROMPT: Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
DESCRIPTION:
This field contains the TOTAL SUPPLY FUND CAP for the station.
420,5 INVENTORY VALUE 0;4 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
LAST EDITED: OCT 18, 1991
HELP-PROMPT: Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
DESCRIPTION:
This field contains the current value of the inventory on hand
420,6 DUE-IN VALUE 0;5 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999.99)!(X<0) X
LAST EDITED: OCT 18, 1991
HELP-PROMPT: Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits
DESCRIPTION:
This field contains the value of all orders due in ordered under the supply fund.
420,7 TOTAL CAP AVAILABLE 0;6 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999999.99)!(X<-999999999999.99) X S Z=$G(^PRC(42
0,DA,0)) K:X'=($P(Z,U,3)-$P(Z,U,4)-$P(Z,U,5)) X K Z
LAST EDITED: OCT 18, 1991
HELP-PROMPT: Type a Dollar Amount between -999999999999.99 and 999999999999.99, 2 Decimal Digits. This value
should be equal to supply fund cap minus inventory value minus due-in value.
DESCRIPTION:
This field contains the total available cap at the station for placing orders within supply fund.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
420,8 PRINT ON DEMAND 0;7 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAR 03, 1992
HELP-PROMPT: ENTER 1 FOR YES, 0 FOR NO.
DESCRIPTION:
This field indicates whether the user wishes to print on demand, using yes or no as an entry.
TECHNICAL DESCR:
PRINT ON DEMAND
420,9 STATION OPEN QUARTER DATE 0;9 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 02, 1996
DESCRIPTION:
This is the most recent open quarter date. The date is always the first day of a quarter.
420,10 EDI ORDER RELEASE 3;1 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: MAY 20, 1996
DESCRIPTION: This is used to release EDI orders to vendors directly without fiscal review if the data is 'Y' for
yes.
420,11 SITE ALL/DELIVERY ORDER SWITCH 3;2 SET
'A' FOR ALL ORDERS;
'D' FOR DELIVERY ORDERS ONLY;
LAST EDITED: JUN 24, 1996
DESCRIPTION:
This is used to release orders directly without fiscal review.
FILES POINTED TO FIELDS
ADMIN. ACTIVITY SITE PARAMETER
(#411) STATION NAME (#.01)
COST CENTER (#420.1) COST CENTER:COST CENTER (#.01)
GENERIC INVENTORY (#445) CONTROL POINT NAME:** INVENTORY DISTRIBUTION POINT (#17)
INVENTORY POINT:INVENTORY POINT (#.01)
NEW PERSON (#200) CONTROL POINT NAME:DEACTIVATED BY (#23)
CONTROL POINT USER:CONTROL POINT USER (#.01)
FUND RELEASING OFFICIAL:FUND RELEASING OFFICIAL (#.01)
PRCD FUND/APPROPRIATION CODE
(#420.3) CONTROL POINT NAME:FUND (#1)
COMMITTED/OBLIGATED BALANCES:FY ALD/FUND CODE (#15)
PRCD SD ADMINISTRATIVE OFFICE
(#420.15) CONTROL POINT NAME:ADMINISTRATIVE OFFICE (#25.5)
COMMITTED/OBLIGATED BALANCES:FY A/O (#16)
PRCD SD FCP/PRJ (#420.131) CONTROL POINT NAME:FCP/PRJ (#27)
COMMITTED/OBLIGATED BALANCES:FY FCP/PRJ (#18)
PRCD SD JOB (#420.133) CONTROL POINT NAME:JOB (#29)
COMMITTED/OBLIGATED BALANCES:FY JOB (#20)
PRCD SD OBJECT CLASS (#420.132) CONTROL POINT NAME:OBJECT CLASS (#28)
COMMITTED/OBLIGATED BALANCES:FY OBJECT CLASS (#19)
PRCD SD PROGRAM (#420.13) CONTROL POINT NAME:PROGRAM (#26)
COMMITTED/OBLIGATED BALANCES:FY PROGRAM (#17)
SERVICE/SECTION (#49) CONTROL POINT NAME:CONTROLLING SERVICE (#.5)
INPUT TEMPLATE(S):
PRCB STATUS FUNDS APR 13, 1987 USER #0
PRCHPM DEPT EDIT APR 13, 1989 USER #0
PRCSCP MAR 25, 1989 USER #0
This input template is for enter/edit of Control Point.
PRINT TEMPLATE(S):
PRCB CPF ACC ELEMENT MAR 17, 1995@11:00 USER #0 FUND CONTROL POINT ACC. ELEMENTS LIST
PRCB CTRLPT MAR 05, 2004@16:39 USER #0 FUND CONTROL POINT LIST
PRCB FCP LIST OF MGR/USER JUN 17, 1994@14:10 USER #0 LIST OF CONTROL POINTS
PRCB FCP SUB-ACCOUNTS OCT 26, 1994@12:12 USER #0 FCP BOC LIST
PRCB MANAGER/USER LIST JUN 09, 1994@16:16 USER #0 LIST OF CONTROL POINTS
PRCXA DEC 14, 1994@14:17 USER #0 FCP BALANCE LIST
SORT TEMPLATE(S):
PRCB FCP LIST OF MGR/USER JUN 10, 1994@08:16 USER #0
SORT BY: CONTROL POINT NAME//
CONTROL POINT NAME SUB-FIELD: PROGRAM//
WITHIN PROGRAM, SORT BY: CONTROL POINT NAME//
CONTROL POINT NAME SUB-FIELD: CONTROL POINT//
PRCB FCP SUB-ACCOUNT LIST MAY 02, 1989 USER #0
SORT BY: CONTROL POINT NAME//
CONTROL POINT NAME SUB-FIELD: CONTROL POINT//
WITHIN CONTROL POINT, SORT BY: @"";S1// From '@' To '@'
PRCXA DEC 14, 1994@14:11 USER #0
SORT BY: STATION NAME//
WITHIN STATION NAME, SORT BY: CONTROL POINT NAME//
CONTROL POINT NAME SUB-FIELD: COMMITTED/OBLIGATED BALANCES//
COMMITTED/OBLIGATED BALANCES SUB-FIELD: FISCAL YEAR// (User is asked range)
FORM(S)/BLOCK(S):