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

This file contains the delivery locations and dates for display on purchase orders.

Accessed By FileMan Db Calls, Total: 9

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 1

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

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | All