Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 420.01

Package: IFCAP

FUND CONTROL POINT(#420)-->420.01

Sub-Field: 420.01


Information

Parent File Name Number Package
FUND CONTROL POINT(#420) CONTROL POINT NAME 420.01 IFCAP

Details

Field # Name Loc Type Details
.01 CONTROL POINT 0;1 FREE TEXT

  • 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 DINU^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.
.5 CONTROLLING SERVICE 0;10 POINTER TO SERVICE/SECTION FILE (#49) SERVICE/SECTION(#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.
1 FUND 0;2 POINTER TO PRCD FUND/APPROPRIATION CODE FILE (#420.3)
************************REQUIRED FIELD************************
PRCD FUND/APPROPRIATION CODE(#420.3)

  • 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^PRCB1A(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.01,DIG=2 D ^DICR:$N(^DD(D
    IH,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.01,DIG=2 D ^DICR:$N(^DD(D
    IH,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.01,DIG=3 D ^DICR:$N(^DD(D
    IH,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.01,DIG=3 D ^DICR:$N(^DD(D
    IH,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=25 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=25 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=25.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
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
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
4 AUTOMATED 0;11 SET
************************REQUIRED FIELD************************
  • '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.
6 CONTROL POINT USER 1;0 POINTER Multiple #420.02 420.02

  • DESCRIPTION:  
    This is the name of the control point user.
  • IDENTIFIED BY:  LEVEL OF ACCESS(#1)
7 COST CENTER 2;0 POINTER Multiple #420.03 420.03

  • DESCRIPTION:  
    This is information about the cost center.
8 DESCRIPTION 3;0 WORD-PROCESSING #420.04

  • DESCRIPTION:  
    This is a description of this Control Point.
  • TECHNICAL DESCR:  
    THIS IS A DESCRIPTION OF THIS CONTROL POINT.
9 ITEM DELIVERY POINTS 0;14 SET

  • 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.
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.
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.
12 ALLOW ACCESS BY ALL REQUESTORS 0;9 SET

  • 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.
13 SPECIAL CONTROL POINT 0;12 SET

  • 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.
14 CP OVERCOMMIT SWITCH 0;13 SET
************************REQUIRED FIELD************************

  • LAST EDITED:  JAN 05, 1995
  • DESCRIPTION:  
    NO indicates that this control point is not permitted to overcommit funds.
15 COMMITTED/OBLIGATED BALANCES 4;0 Multiple #420.06 420.06

  • DESCRIPTION:  
    This is the Control Point official's fund balance.
16 OVERCOMMIT 1358 PERMITTED 0;15 SET

  • 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.
17 ** INVENTORY DISTRIBUTION POINT 0;16 POINTER TO GENERIC INVENTORY FILE (#445) GENERIC INVENTORY(#445)

  • LAST EDITED:  AUG 12, 1999
  • DESCRIPTION:  
    REPLACED BY 17.5 MULTIPLE IN PATCH PRC*5*197.  ** This field will be deleted. **
17.5 INVENTORY POINT 7;0 POINTER Multiple #420.07 420.07

  • LAST EDITED:  AUG 11, 1999
18 DIETETICS SUBS/SUPPLIES 0;17 SET

  • 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.
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.
20 ACTIVE/INACTIVE 0;19 SET

  • LAST EDITED:  AUG 24, 1993
  • DESCRIPTION:  
    Enter YES for an active control point.
21 ROLLOVER OF EOQ BALANCE 0;20 SET
************************REQUIRED FIELD************************

  • 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
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
23 DEACTIVATED BY 0;23 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 21, 1992
  • DESCRIPTION:  
    This is the person who deactivated the control point.
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.
25 FUND CODE TEXT 5;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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=DIV 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=25.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,25,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=26 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,25,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=27 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,25,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=28 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,25,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=29 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE CONDITION)= PRCMUMPS("S X='PRCRQ(29)")
    DELETE VALUE)= @
    FIELD)= JOB
25.2 BEGINNING BUDGET FISCAL YEAR 5;8 DATE
************************REQUIRED FIELD************************

  • 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=DIV 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=25.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,25.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=26 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,25.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=27 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,25.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=28 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,25.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=29 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE CONDITION)= PRCMUMPS("S X='PRCRQ(29)")
    DELETE VALUE)= @
    FIELD)= JOB
25.5 ADMINISTRATIVE OFFICE 5;5 POINTER TO PRCD SD ADMINISTRATIVE OFFICE FILE (#420.15) PRCD SD ADMINISTRATIVE OFFICE(#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^PRCB1A,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.
26 PROGRAM 5;2 POINTER TO PRCD SD PROGRAM FILE (#420.13) PRCD SD PROGRAM(#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^PRCB1A,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.
27 FCP/PRJ 5;3 POINTER TO PRCD SD FCP/PRJ FILE (#420.131) PRCD SD FCP/PRJ(#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^PRCB1A,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.
28 OBJECT CLASS 5;4 POINTER TO PRCD SD OBJECT CLASS FILE (#420.132) PRCD SD OBJECT CLASS(#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^PRCB1A,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.
29 JOB 5;6 POINTER TO PRCD SD JOB FILE (#420.133) PRCD SD JOB(#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^PRCB1A,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.
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.
31 EDI AUTO RELEASE 6;1 SET

  • 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.
32 FCP ALL/DELIVERY ORDER SWITCH 6;2 SET

  • LAST EDITED:  JUN 24, 1996
  • DESCRIPTION:  
    This is used to release orders directly without fiscal review.
Info |  Details |  All