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

Package: IFCAP

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

Sub-Field: 442.03


Information

Parent File Name Number Package
PROCUREMENT & ACCOUNTING TRANSACTIONS(#442) DISCOUNT 442.03 IFCAP

Details

Field # Name Loc Type Details
.01 DISCOUNT 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 ^PRCHDIS
  • LAST EDITED:  JUL 07, 1994
  • 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 number of the discount item.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^442^15
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P(Y(1),U,14) S DIU=X K Y X ^DD(442.03,.01,1,1,1.1) X ^DD(442.03,.01,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P(Y(1),U,14)+1
    1.4)= S DIH=$S($D(^PRC(442,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,13,99)) S DIH=DIH_U" S %=$P(DIH,U,15,999),DIU=$P(DIH,U,14),^(0)=$P(DIH,U,1,13)_U_DIV_$S(%]"":U_%,1:""),DIH=442,DIG=15 D ^DICR:$N(^DD(DIH,DIG,
    1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P(Y(1),U,14) S DIU=X K Y X ^DD(442.03,.01,1,1,2.1) X ^DD(442.03,.01,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P(Y(1),U,14)-1
    2.4)= S DIH=$S($D(^PRC(442,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,13,99)) S DIH=DIH_U" S %=$P(DIH,U,15,999),DIU=$P(DIH,U,14),^(0)=$P(DIH,U,1,13)_U_DIV_$S(%]"":U_%,1:""),DIH=442,DIG=15 D ^DICR:$N(^DD(DIH,DIG,
    1,0))>0
    CREATE VALUE)= lineItem+1
    DELETE VALUE)= lineItem-1
    FIELD)= lineItem Count
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:  JUL 18, 1988
  • HELP-PROMPT:  Enter a number between .1 and 99.99 for a percent discount or enter '$' and a number from .01 to 999999.99 for a dollar discount.
  • DESCRIPTION:  
    This is the percent/dollar amount of the discount item.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 DISCOUNT AMOUNT 0;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • LAST EDITED:  SEP 26, 1989
  • HELP-PROMPT:  Calculated by routine for entering/editing a P.O. Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Amount of discount for ITEM
3 ITEM COUNT 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 13, 1985
  • 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:$L(X)>19!($L(X)<7) X
  • HELP-PROMPT:  ANSWER MUST BE 7-15 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the contract number for this discount.
5 LINE ITEM 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 05, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999
  • DESCRIPTION:  
    This is the line item number for this discount.
Info |  Details