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.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.
Info |  Details