Sub-Field: 442.07

Parent File	Name	Number	Package
PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)	AMENDMENT	442.07	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: `FEB 14, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99` DESCRIPTION: `This is the amendment to the purchase order.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `442.07^B` `1)= S ^PRC(442,DA(1),6,"B",$E(X,1,30),DA)=""` `2)= K ^PRC(442,DA(1),6,"B",$E(X,1,30),DA)`
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>99999999)!(X<-99999999)!(X?.E1"."3N.N) X` LAST EDITED: `MAY 02, 1985` HELP-PROMPT: `TYPE A NUMBER BETWEEN -99999999 AND 99999999` DESCRIPTION: `This is the amount changed in the amendment.`
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: `APR 29, 1994` DESCRIPTION: `This is the type of amendment.` 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 regarding the type of amendment.`
5	CONTRACTOR REQUIRED TO SIGN?	0;5	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JAN 02, 1986` DESCRIPTION: `User-entered flag for whether or not Contractor needs to sign P.O./Req.`
5.2	NUMBER OF COPIES	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 02, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 9` DESCRIPTION: `This is the number of copies of the amendment needed.`
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(PRCHNRQ) 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 making the amendment.` SCREEN: `S DIC("S")="I $D(^(400)),$P(^(400),U,1)>1 Q:$D(PRCHNRQ) 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.`
7	VALIDATION CODE	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` OUTPUT TRANSFORM: `S Y="/ES/"_$$DECODE^PRCHES6(D0,D1)` LAST EDITED: `DEC 09, 1992` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `This is the electronic signature of the purchasing agent making the agreement.` `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 09, 1992` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` DESCRIPTION: `Version of validation code`
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: `Esig code`
8	DATE SIGNED	1;3	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 09, 1992` DESCRIPTION: `This is the date the purchasing agent signed the amendment.`
9	AMENDMENT/ADJUSTMENT STATUS	1;4	POINTER TO PURCHASE ORDER STATUS FILE (#442.3)	PURCHASE ORDER STATUS(#442.3) LAST EDITED: `JUL 12, 1994` DESCRIPTION: `This is the status of the amendment/adjustment.`
10	FISCAL APPROVED BY	1;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `NOV 16, 1992` DESCRIPTION: `This is the Fiscal Service person approving the amendment.`
11	FISCAL VALIDATION CODE	1;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` OUTPUT TRANSFORM: `S Y="/ES/"_$$DECODE^PRCHES7(D0,D1)` LAST EDITED: `DEC 09, 1992` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `This is the electronic signature code of the person approving the amendment.` `UNEDITABLE`
11.5	FISCAL VALIDATION VERSION	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 09, 1992` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` DESCRIPTION: `Version of validation code`
11.7	FISCAL ESIG CODE	1;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `APR 14, 1993` HELP-PROMPT: `Answer must be 2-30 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="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 09, 1992` DESCRIPTION: `Date/time of validation of ESIG`
12	DESCRIPTION	2;0	WORD-PROCESSING #442.13	DESCRIPTION: `This is a description of the amendment.` LAST EDITED: `DEC 18, 1985` DESCRIPTION: `Description of AMENDMENT`
13	ADJUSTMENT VOUCHER	0;8	SET	LAST EDITED: `DEC 05, 1986` DESCRIPTION: `This is the adjustment voucher.`
14	CHANGES	3;0	Multiple #442.714	442.714 DESCRIPTION: `This multiple stores all the changes belonging to this amendment.` TECHNICAL DESCR: `The information within this multiple comes from file 443.6 after the amendment is obligated.`
16	JUSTIFICATION	4;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `APR 28, 1994` HELP-PROMPT: `Answer must be 1-240 characters in length.` DESCRIPTION: `The reason for amendment of the purchase order. Answer must be 1-240 characters in length.`

Customize PDF page

Package: IFCAP

PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)-->442.07

Sub-Field: 442.07

Information

Details