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

Package: IFCAP

AMENDMENTS(#443.6)-->443.67

Sub-Field: 443.67


Information

Parent File Name Number Package
AMENDMENTS(#443.6) AMENDMENT 443.67 IFCAP

Details

Field # Name Loc Type Details
.01 AMENDMENT 0;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
  • LAST EDITED:  MAR 29, 1994
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99
  • DESCRIPTION:  
    This is the amendment number.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  443.67^B
    1)= S ^PRC(443.6,DA(1),6,"B",$E(X,1,30),DA)=""
    2)= K ^PRC(443.6,DA(1),6,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^443.67^15
    1)= X ^DD(443.67,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(443.6,D0,6,D1,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(443.67,.01,1,2,1.1) X ^DD(443.67,.01,1,2,1.4)
    1.1)= S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S X=X,X1=X,X2=+7,X="" D C^%DTC:X1
    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(443.6,D0,6,D1,0)):^(0),1:"") S X=$P(Y(1),U,12)=""
    1.4)= S DIH=$S($D(^PRC(443.6,DIV(0),6,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,12)=DIV,DIH=443.67,DIG=15 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= DELETION DATE=""
    CREATE VALUE)= NOW+7
    DELETE VALUE)= NO EFFECT
    FIELD)= DELETION DATE
    This TRIGGERED x-ref will enter the date and time that this amendment should disappear. The person entering this amendment has 7 days to finish and sign off this amendment. If this amendment is not signed off within 7
    days this 'potential' amendment will be removed as though it was never entered.
1 EFFECTIVE DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    This is the effective date of the amendment.
2 AMOUNT CHANGED 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999.99)!(X<-9999999.99)!(X?.E1"."3N.N) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -9999999.99 AND 9999999.99
  • DESCRIPTION:  
    This is the amount changed.
3 AUTHORITY 0;4 POINTER TO TYPE OF AMENDMENT FILE (#442.2)
************************REQUIRED FIELD************************
TYPE OF AMENDMENT(#442.2)

  • INPUT TRANSFORM:  S DIC("S")=$S('$D(PRCHREQ):"I Y<10",1:"I Y>10,Y<20") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 06, 1994
  • HELP-PROMPT:  This is the AUTHORITY type.
  • DESCRIPTION:  
    This is the AUTHORITY type.
  • SCREEN:  S DIC("S")=$S('$D(PRCHREQ):"I Y<10",1:"I Y>10,Y<20")
  • EXPLANATION:  CHOOSE A,B,C,D OR E
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4 TYPE COMMENTS 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>150!($L(X)<3) X
  • LAST EDITED:  JAN 09, 1986
  • HELP-PROMPT:  ANSWER MUST BE 3-150 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    These are comments about the type amendment.
5 CONTRACTOR REQUIRED TO SIGN? 0;5 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JAN 02, 1986
  • DESCRIPTION:  
    YES indicates if the contractor is required to sign.
5.2 NUMBER OF COPIES 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 9
  • DESCRIPTION:  
    This indicates the number of copies required.
6 PA/PPM/AUTHORIZED BUYER 1;1 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^(400)),$P(^(400),U,1)>1 Q:$D(PRCHREQ) I $P(^(400),U,1)>2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 11, 1996
  • DESCRIPTION:  
    This is the purchasing agent for this amendment.
  • SCREEN:  S DIC("S")="I $D(^(400)),$P(^(400),U,1)>1 Q:$D(PRCHREQ) I $P(^(400),U,1)>2"
  • EXPLANATION:  Must be a PPM Official or Manager for Requisitions, a Purchasing Agent or Manager for P.O.s.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
7 VALIDATION CODE 1;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • OUTPUT TRANSFORM:  S Y="/ES/"_$$DECODE^PRCHES10(D0,D1)
  • LAST EDITED:  JAN 19, 1993
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
  • DESCRIPTION:  
    This is the electronic signature of the purchasing agent.
    UNEDITABLE
7.5 VALIDATION VERSION 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 18, 1992
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    Version of validation of ESIG
7.7 ESIG CODE 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<2) X
  • LAST EDITED:  APR 12, 1993
  • HELP-PROMPT:  Answer must be 2-10 characters in length.
  • DESCRIPTION:  
    Encoded value used by IFCAP security utilities when confirming the integrity of this record.
8 DATE SIGNED 1;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 09, 1986
  • DESCRIPTION:  
    This is the date the amendment was signed.
9 AMENDMENT/ADJUSTMENT STATUS 1;4 POINTER TO PURCHASE ORDER STATUS FILE (#442.3) PURCHASE ORDER STATUS(#442.3)

  • INPUT TRANSFORM:  D STAT^PRCHINQ
  • LAST EDITED:  JUN 02, 1996
  • DESCRIPTION:  
    This is a pointer to the Purchase Order Status File (442.3). It indicates the status of the amendment/adjustment.
  • SCREEN:  S DIC("S")="D STAT1^PRCHINQ"
  • EXPLANATION:  Enter the status the purchase will have after it is amended.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  443.6^D^MUMPS
    1)= S ^PRC(443.6,"D",DA(1),X,DA)=""
    2)= K ^PRC(443.6,"D",DA(1),X,DA)
    Thjis x-ref allows looking up on the AMENDMENT/ADJUSTMENT STATUS.
10 FISCAL APPROVED BY 1;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 21, 1993
  • DESCRIPTION:  
    This is the official giving fiscal approval.
11 FISCAL VALIDATION CODE 1;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JAN 12, 1993
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    The code for validating the ESIG
11.5 FISCAL VALIDATION VERSION 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 12, 1993
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    Version of validation of ESIG
11.7 FISCAL ESIG CODE 1;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<3) X
  • LAST EDITED:  APR 12, 1993
  • HELP-PROMPT:  Answer must be 3-10 characters in length.
  • DESCRIPTION:  
    Encoded value used by IFCAP security utilities when confirming the integrity of this record.
11.8 FISCAL VALIDATION DATE 1;8 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 12, 1993
  • DESCRIPTION:  
    Date/time of validation of ESIG
12 DESCRIPTION 2;0 WORD-PROCESSING #443.701

  • DESCRIPTION:  
    This is the description of the amendment.
13 ADJUSTMENT VOUCHER 0;8 SET
  • 'Y' FOR YES;

  • LAST EDITED:  DEC 05, 1986
  • DESCRIPTION:  
    This is the adjustment voucher.
14 CHANGES 3;0 Multiple #443.6714 443.6714

  • LAST EDITED:  DEC 16, 1993
  • DESCRIPTION:  
    Each entry in this multiple will contain all the information about one field that the user is amending.
  • TECHNICAL DESCR:  Each change entered from an amendment edit will create an entry in this multiple.
    The way an entry is captured may be by using the 'KILL' part of a cross-reference or by having the routine that does the amendment also enter the proper value into the changes multiple.
    This changes multiple will store the value of the field being changed only if this is the first entry for this field within this amendment. If this field hasn't been used before, its value is 'null', the value stored in
    the changes record will be '0'.
15 DELETION DATE 0;12 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 10, 1996
  • DESCRIPTION:  This is the time when the amendment will be deleted if there is no action for 4 days. The PA assigned to this amendment has 4 days from this time to complete and sign off this amendment. If this amendment isn't signed
    off within the 4 day window, this record of the user's amendment will be deleted from file 443.6 and no changes will be made into file 442.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the AMENDMENT field of the AMENDMENT sub-field of the AMENDMENTS File
16 JUSTIFICATION 4;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<1) X
  • LAST EDITED:  MAR 08, 1994
  • HELP-PROMPT:  Answer must be 1-240 characters in length.
  • DESCRIPTION:  
    The reason for amending the purchase order. Answer must be 1-240 characters in length.
Info |  Details