Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Print Page as PDF

Sub-Field: 442.06

Package: IFCAP

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

Sub-Field: 442.06

Information

Parent File	Name	Number	Package
PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)	PROMPT PAYMENT TERMS	442.06	IFCAP

Details

Field #	Name	Loc	Type	Details
.01	PROMPT PAYMENT PERCENT	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X&(X'="NET") X I $D(X),+X=X K:X?.E1"."3N.N!(X<.01)!(X>99) X` LAST EDITED: `MAY 13, 1992` HELP-PROMPT: `Enter 'NET' or a number from .01 to 99 with up to two decimal places (ie 2 for two percent).` DESCRIPTION: `This is the prompt payment percent.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1	DAYS (TERM)	0;2	NUMBER	INPUT TRANSFORM: `K:X>60!(X<1)!(X?.E1"."1N.N) X I $D(X),+X'=X K:X'?.N2A X Q:'$D(X) S Z0=$E(X,$L(X)-1,$L(X)),X=$E(X,1,$L(X)-2)_$S("STst"[Z0:"st","NDnd"[Z0:"nd","RDrd"[Z0:"rd","THth"[Z0:"th",1:"ZZZZZ") K:$L(X)>4 X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 60, YOU MAY FOLLOW THE NUMBER BY "st","nd","rd", OR "th" TO INDICATE A DATE` DESCRIPTION: `This is the term in days for prompt payment.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	CONTRACT #	0;3	FREE TEXT	INPUT TRANSFORM: `Q:X="ALL" K:$L(X)>19!($L(X)<3)!('$D(^PRC(442,DA(1),2,"AC",X))) X I $D(X) D TERM^PRCHDIS` LAST EDITED: `APR 30, 1985` HELP-PROMPT: `ENTER AN EXISTING CONTRACT` DESCRIPTION: `This is the contract for the prompt payment terms.` EXECUTABLE HELP: `W "CHOOSE FROM: " S Z0=0 F I=0:0 S Z0=$O(^PRC(442,D0,2,"AC",Z0)) Q:Z0<0!(Z0="") W !," ",Z0` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
3	ASTR.	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-3 CHARACTERS IN LENGTH` DESCRIPTION: `This field contains internal program code that controls printed output.`