Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All
Print Page as PDF
Global: ^PRC(442.8

Package: IFCAP

Global: ^PRC(442.8


Information

FileMan FileNo FileMan Filename Package
442.8 DELIVERY SCHEDULE (ORDER) IFCAP

Description

Accessed By FileMan Db Calls, Total: 9

Package Total Routines
IFCAP 9 PRCH65    PRCHAMYB    PRCHE2    PRCHNPO7    PRCHSP1    PRCHT115    PRCHT116    PRCHT314
PRCHT315    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IFCAP 1 AMENDMENTS TO DELIVERY SCHEDULES(#441.7)[6]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
IFCAP 1 DELIVERY POINT(#410.8)[3]    

Fields, Total: 6

Field # Name Loc Type Details
.01 ORDER NUMBER (PAT) 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X),'$O(^PRC(442,"B",X,0)) K X
  • LAST EDITED:  MAY 12, 1997
  • HELP-PROMPT:  Enter entire PAT number (must be a P.O. or Requisition on the Procurement & Accounting Transactions File)
  • DESCRIPTION:  
    This is the entire PAT (Pending Accounting Transaction) number that must be a Purchase Order or Requisition on the Procurement & Accounting Transactions File.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  442.8^B
    1)= S ^PRC(442.8,"B",$E(X,1,30),DA)=""
    2)= K ^PRC(442.8,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  442.8^AC^MUMPS
    1)= I $P(^PRC(442.8,DA,0),U,2) S ^PRC(442.8,"AC",$E(X,1,30),$P(^(0),U,2),DA)=""
    2)= I $P(^PRC(442.8,DA,0),U,2) K ^PRC(442.8,"AC",$E(X,1,30),$P(^(0),U,2),DA)
    This X-REF and the "AD" X-REF in the ITEM field work together to control the "AC" X-REF, a list of ORDER NUMBER (PAT) and ITEM. Both fields must have a value for the "AC" X-REF to be created.
    For the KILL part of this X-REF to remove the "AC" X-REF the ITEM field must have some entry.
    The field at NODE 0 PIECE 2, ITEM, is the INTERNAL ENTRY NUMBER of the ITEM multiple entry within the order that this PAT number references.
  • CROSS-REFERENCE:  442.8^AF^MUMPS
    1)= I $P(^PRC(442.8,DA,0),U,3) S ^PRC(442.8,"AF",$E(X,1,30),$P(^(0),U,3),DA)=""
    2)= I $P(^PRC(442.8,DA,0),U,3) K ^PRC(442.8,"AF",$E(X,1,30),$P(^(0),U,3),DA)
    This X-REF and the "AG" X-REF in the DELIVERY DATE field work together to control the "AF" X-REF, a list of ORDER NUMBER (PAT) and DELIVERY DATE values. To SET the "AF" X-REF both fields must have data.
    To KILL the "AF" X-REF the DELIVERY DATE field must have data in it.
1 ITEM 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1)!'(X?1N.N) X I $D(X) S Z=$O(^PRC(442,"B",$P(^PRC(442.8,DA,0),U,1),0)) K:'$D(^PRC(442,+Z,2,X,0)) X K Z
  • LAST EDITED:  MAR 19, 1996
  • HELP-PROMPT:  Enter line-item number from the order (Must be an item on a Purchase Order or Requisition). Type a number between 1 and 99999.
  • DESCRIPTION:  
    This is the Line-item number for a Purchase Order or Requisition.
  • TECHNICAL DESCR:  This field contains the INTERNAL ENTRY NUMBER of the ITEM multiple entry for which this DELIVERY SCHEDULE (ORDER) belongs.
    The INPUT TRANSFORM for this field, the part checking out the ITEM record, is correctly referencing the IEN of the ITEM multiple.
  • EXECUTABLE HELP:  S Z=$O(^PRC(442,"B",$P(^PRC(442.8,DA,0),U,1),0)) Q:'Z S:$D(D) PRCHD=D S X="?",DIC="^PRC(442,"_Z_",2,",DIC(0)="QEM" D ^DIC S:$D(DIE) DIC=DIE S:$D(PRCHD) D=PRCHD K PRCHD,Z
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  442.8^AD^MUMPS
    1)= I $P(^PRC(442.8,DA,0),U,1)]"" S ^PRC(442.8,"AC",$P(^(0),U,1),X,DA)=""
    2)= I $P(^PRC(442.8,DA,0),U,1)]"" K ^PRC(442.8,"AC",$P(^(0),U,1),X,DA)
    This X-REF and the "AC" X-REF in the ORDER NUMBER (PAT) field work together to control the "AC" X-REF, a list of ORDER NUMBER (PAT) and ITEM. Both fields must contain data for the "AC" X-REF to be created.
    For the KILL part of this X-REF to remove the "AC" X-REF the ORDER NUMBER (PAT) field must have an entry.
    This field is the INTERNAL ENTRY NUMBER of an ITEM in this order.
2 DELIVERY DATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 23, 1990
  • HELP-PROMPT:  Enter date on which delivery is to be made.
  • DESCRIPTION:  
    This is the date on which delivery of the item (s) is to be made.
  • CROSS-REFERENCE:  442.8^AG^MUMPS
    1)= I $P(^PRC(442.8,DA,0),U,1)]"" S ^PRC(442.8,"AF",$E($P(^(0),U,1),1,30),X,DA)=""
    2)= I $P(^PRC(442.8,DA,0),U,1)]"" K ^PRC(442.8,"AF",$E($P(^(0),U,1),1,30),X,DA)
    This X-REF and the "AF" X-REF in the ORDER NUMBER (PAT) field work together to control the "AF" X-REF, a list of ORDER NUMBER (PAT) and DELIVERY DATE values. To SET the "AF" X-REF both fields must have data.
    To KILL the "AF" X-REF the ORDER NUMBER (PAT) field must have data in it.
3 LOCATION FOR DELIVERY 0;4 POINTER TO DELIVERY POINT FILE (#410.8)
************************REQUIRED FIELD************************
DELIVERY POINT(#410.8)

  • LAST EDITED:  JAN 05, 1990
  • HELP-PROMPT:  Enter location to which the item should be delivered.
  • DESCRIPTION:  
    This is the location to which the item should be delivered.
4 QUANTITY TO BE DELIVERED 0;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."3N.N)!($D(PRCHQTY)&$D(PRCHTOT)&($G(PRCHTOT)+X-$P($G(^PRC(442.8,DA,0)),U,5)>$G(PRCHQTY)&(X'=0))) X
  • LAST EDITED:  NOV 20, 1996
  • HELP-PROMPT:  How many units should be delivered on this date? (Enter zero to exit option and delete this schedule)
  • DESCRIPTION:  
    This is the quantity to be delivered to the specified location on the specified date.
  • EXECUTABLE HELP:  I $D(PRCHTOT) S PRCHSUM=$G(PRCHQTY)-PRCHTOT+$P($G(^PRC(442.8,DA,0)),U,5) W ?5,"The largest valid quantity here is ",$S($G(PRCHSUM)>0:PRCHSUM,1:"0"),".",!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5 DELETE FLAG 0;6 SET
  • 'D' FOR DELETE;

  • LAST EDITED:  MAR 30, 1994
  • DESCRIPTION:  
    It is a flag to delete the Delivery Schedule, that is being displayed on the purchase order.

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #3699
  • M DATA EXTRACTOR
    		•
    ICR #6605
  • ADVANCED PROSTHETICS ACQ TOOL
    		•  ORDER NUMBER (PAT) (.01).
    Access: Read w/Fileman

    ITEM (1).
    Access: Read w/Fileman

    DELIVERY DATE (2).
    Access: Read w/Fileman

    LOCATION FOR DELIVERY (3).
    Access: Read w/Fileman

    QUANTITY TO BE DELIVERED (4).
    Access: Read w/Fileman

    DELETE FLAG (5).
    Access: Read w/Fileman

    		 'B' cross reference Used to look up by ORDER NUMBER
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All