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: 443.63

Package: IFCAP

AMENDMENTS(#443.6)-->443.63

Sub-Field: 443.63

Information

Parent File	Name	Number	Package
AMENDMENTS(#443.6)	DISCOUNT	443.63	IFCAP

Details

Field #	Name	Loc	Type	Details
.01	ITEM	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<1) X I $D(X) D ^PRCHDIS1` LAST EDITED: `SEP 05, 1997` HELP-PROMPT: `Enter the line item numbers as: 1,2,3,4 or 1:4 or enter a 'Q' for a quantity discount` DESCRIPTION: `This is the item discount is applied to.` `DELETE AUTHORITY: ^` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `443.63^AC^MUMPS` `1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN9^PRCHAMXC S X=PRCHX K PRCHX` `2)= I $G(PRCHNORE)=1 S FLAG=1 D EN9^PRCHAMXC` `This x-ref will update the changes multiple when ITEM DISCOUNT Add/Edit amendment changes this field.` `****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK errors.`
1	PERCENT/DOLLAR AMOUNT	0;2	NUMBER	**********************REQUIRED FIELD******************** INPUT TRANSFORM: `S X=$TR(X,",","") K:$E(X,1)="$"&(X?.E1"."3N.N)!($E(X,1)="$"&(($P(X,"$",2)<.01)!($P(X,"$",2)>999999.99))) X Q:'$D(X) Q:$E(X,1)="$" S X=+X K:X>99.99!(X<.10)!(X?.E1"."3N.N) X` LAST EDITED: `SEP 05, 1997` HELP-PROMPT: `For percentage, enter a number between .01 and 99.99. For dollar amount, enter a number between $.01 and $999999.99.` DESCRIPTION: `This is the percent/dollar amount for this discount.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `443.63^AD^MUMPS` `1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN10^PRCHAMXC S X=PRCHX K PRCHX` `2)= I $G(PRCHNORE)=1 S FLAG=1 D EN10^PRCHAMXC` `This x-ref will update the changes multiple when ITEM DISCOUNT Add/Edit amendment changes this field.` `**NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK errors.`
2	DISCOUNT AMOUNT	0;3	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999.99)!(X<1) X` LAST EDITED: `DEC 17, 1993` HELP-PROMPT: `TYPE A NUMBER BETWEEN 1 AND 9999.99` DESCRIPTION: `This is the discount amount.`
3	ITEM COUNT	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 17, 1993` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 999` DESCRIPTION: `This is the item count for this discount.`
4	CONTRACT #	0;5	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<7) X` LAST EDITED: `DEC 17, 1993` HELP-PROMPT: `ANSWER MUST BE 7-15 CHARACTERS IN LENGTH` DESCRIPTION: `This is the contract number for this discount amount.`
5	LINE ITEM	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 17, 1993` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 999` DESCRIPTION: `This is the line item for this discount amount.`