Sub-Field: 440.33

Parent File	Name	Number	Package
VENDOR EDIT(#440.3)	CONTRACT NUMBER	440.33	IFCAP

Details

Field #	Name	Loc	Type	Details
.01	CONTRACT NUMBER	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>19!($L(X)<7) X` LAST EDITED: `JUL 12, 1986` HELP-PROMPT: `ANSWER MUST BE 7-19 CHARACTERS IN LENGTH` DESCRIPTION: `This is the contract number.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `440.33^B` `1)= S ^PRC(440.3,DA(1),4,"B",$E(X,1,30),DA)=""` `2)= K ^PRC(440.3,DA(1),4,"B",$E(X,1,30),DA)`
1	EXPIRATION DATE	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 22, 1986` DESCRIPTION: `This is the expiration date of the vendor contract.`
2	CONTRACT TERMS	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3) X` LAST EDITED: `APR 05, 1986` HELP-PROMPT: `ANSWER MUST BE 3-50 CHARACTERS IN LENGTH` DESCRIPTION: `These are the contract terms.`
3	PROMPT PAYMENT TERMS %	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X` LAST EDITED: `MAR 04, 1986` HELP-PROMPT: `ANSWER MUST BE 1-5 CHARACTERS IN LENGTH` DESCRIPTION: `These are the prompt payment terms.`
4	PROMPT PAYMENT TERMS DAYS	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>60)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 04, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 60` DESCRIPTION: `These are the prompt payment terms number of days.`