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.08

Package: IFCAP

PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)-->442.01-->442.08

Sub-Field: 442.08


Information

Parent File Name Number Package
442.01 DATE RECEIVED 442.08 IFCAP

Details

Field # Name Loc Type Details
.01 DATE RECEIVED 0;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 30, 1986
  • DESCRIPTION:  
    This is the date the item was received.
  • CROSS-REFERENCE:  442.01^AB
    1)= S ^PRC(442,DA(2),2,"AB",$E(X,1,30),DA(1),DA)=""
    2)= K ^PRC(442,DA(2),2,"AB",$E(X,1,30),DA(1),DA)
    This X-REF keeps a non-lookup list of all the DATE RECEIVED for each partial receipt of an item within a PO.
1 QTY BEING RECEIVED 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 05, 1986
  • HELP-PROMPT:  Enter the quantity (a number between .01 and 999,999 with up to two decimal places)
  • DESCRIPTION:  
    This is the quantity of the item being received.
  • CROSS-REFERENCE:  ^^TRIGGER^442.01^11
    1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2),1:"") S X=$P(Y(1),U,8) S DIU=X K Y X ^DD(442.08,1,1,1,1.1) X ^DD(442.08,1,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2),1:"") S X=$P(Y(1),U,8)+DIV
    1.4)= S DIH=$S($D(^PRC(442,DIV(0),2,DIV(1),2)):^(2),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99)) S DIH=DIH_U" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(2)=$P(DIH,U,1,7)_U_DIV_$S(%]"":U_%,1:""),DIH=442.01,DIG=11 D ^DICR:$N(^DD(
    DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2),1:"") S X=$P(Y(1),U,8) S DIU=X K Y X ^DD(442.08,1,1,1,2.1) X ^DD(442.08,1,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2),1:"") S X=$P(Y(1),U,8)-DIV
    2.4)= S DIH=$S($D(^PRC(442,DIV(0),2,DIV(1),2)):^(2),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99)) S DIH=DIH_U" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(2)=$P(DIH,U,1,7)_U_DIV_$S(%]"":U_%,1:""),DIH=442.01,DIG=11 D ^DICR:$N(^DD(
    DIH,DIG,1,0))>0
    CREATE VALUE)= QUANTITY PREVIOUSLY+QUANTITY
    DELETE VALUE)= QUANTITY PREVIOUSLY-QUANTITY
    FIELD)= QUANTITY PREVIOUSLY RECEIVED
2 AMOUNT 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  MAY 02, 1985
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 99999999
  • DESCRIPTION:  
    This is the amount for the quantity being received.
3 PARTIAL NUMBER 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 01, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99
  • DESCRIPTION:  
    This is the partial shipment number.
  • CROSS-REFERENCE:  442.08^AC
    1)= S ^PRC(442,DA(2),2,DA(1),3,"AC",$E(X,1,30),DA)=""
    2)= K ^PRC(442,DA(2),2,DA(1),3,"AC",$E(X,1,30),DA)
    This X-REF is a non-lookup list of all PARTIAL NUMBERs for all receipts within each ITEM for this PO.
4 DISCOUNTED AMOUNT 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."4N.N) X
  • LAST EDITED:  MAR 01, 1986
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 99999999
  • DESCRIPTION:  
    This is the discounted amount.
5 RECEIVING CODE SHEET NO. 0;6 POINTER TO CALM/LOG CODE SHEET FILE (#423) CALM/LOG CODE SHEET(#423)

  • LAST EDITED:  MAR 29, 1989
  • HELP-PROMPT:  Pointer to CALM/LOG Code Sheet file (423) for the LOG Receipts code sheet created for the receipt of this line/item.
  • DESCRIPTION:  
    This is the receiving code sheet number.
6 ADJUSTED QUANTITY RECEIVED 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  NOV 25, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the QUANTITY RECEIVED after an adjustment voucher is done on the purchase order.
7 ADJUSTED AMOUNT 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 18, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
  • DESCRIPTION:  
    The dollar amount adjusted after doing an adjustment voucher on the purchase order.
Info |  Details