STANDARD DATA DICTIONARY #442.8 -- DELIVERY SCHEDULE (ORDER) FILE 3/24/25 PAGE 1
STORED IN ^PRC(442.8, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.1)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the delivery locations and dates for display on purchase orders.
FILE SCREEN (SCR-node) : X $S('$D(PRCHPONO):"I 1",'$D(PRCHDA):"I $P(^(0),U,1)=PRCHPONO",1:"I $P(^(0),U,1)=PRCHPONO,$P(^(0),U,2)=PRC
HDA")
APPLICATION GROUP(S): PRC
IDENTIFIED BY: DELIVERY DATE (#2)[R], LOCATION FOR DELIVERY (#3)[R]
"A1": W " ",$P(^(0),U,2)
"Z1": W ?60,"DELV.QTY:",$J($P(^(0),U,5),6)
POINTED TO BY: PERMANENT ENTRY field (#6) of the AMENDMENTS TO DELIVERY SCHEDULES File (#441.7)
CROSS
REFERENCED BY: ORDER NUMBER (PAT)(AC), ITEM(AD), ORDER NUMBER (PAT)(AF), DELIVERY DATE(AG), ORDER NUMBER (PAT)(B)
442.8,.01 ORDER NUMBER (PAT) 0;1 FREE TEXT (Required)
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.
442.8,1 ITEM 0;2 FREE TEXT (Required)
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(4
42.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.
442.8,2 DELIVERY DATE 0;3 DATE (Required)
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.
442.8,3 LOCATION FOR DELIVERY 0;4 POINTER TO DELIVERY POINT FILE (#410.8) (Required)
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.
442.8,4 QUANTITY TO BE DELIVERED 0;5 NUMBER (Required)
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 qu
antity here is ",$S($G(PRCHSUM)>0:PRCHSUM,1:"0"),".",!
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442.8,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.
FILES POINTED TO FIELDS
DELIVERY POINT (#410.8) LOCATION FOR DELIVERY (#3)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):