Global: ^PRC(441.7

FileMan FileNo	FileMan Filename	Package
441.7	AMENDMENTS TO DELIVERY SCHEDULES	IFCAP

Directly Accessed By Routines, Total: 10

Package	Total	Routines
IFCAP	10	ITEM ITEM SPECIFIC INFORMATION PRCHAMU PRCHAMXH PRCHAMYB PRCHDEL PRCHLINE PRCHMA0 PRCHRQITM ^PRC(441.7

Accessed By FileMan Db Calls, Total: 3

Package	Total	Routines
IFCAP	3	PRCHAMXH PRCHAMYB PRCHMA0

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
IFCAP	2	DELIVERY SCHEDULE (ORDER)(#442.8)[6] DELIVERY POINT(#410.8)[3]

Fields, Total: 7

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) K:X[""""!($A(X)=45) X` LAST EDITED: `APR 11, 1994` HELP-PROMPT: `Enter entire PAT number` DESCRIPTION: `This is the entire PAT (Pending Accounting Transaction) number that must be a Purchase Order or Requisition.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `441.7^AG^MUMPS` `1)= I $P(^PRC(441.7,DA,0),U,2) S ^PRC(441.7,"AG",$E(X,1,30),$P(^(0),U,2),DA)=""` `2)= I $P(^PRC(441.7,DA,0),U,2) K ^PRC(441.7,"AG",$E(X,1,30),$P(^(0),U,2),DA)` `This x-ref and the "AH" x-ref in the ITEM field work together to control the "AG" x-ref, a list of ORDER NUMBER (PAT) and ITEM. Both fields must have a value for the "AG" x-ref to be created. The ITEM field must have a` `value to remove the "AG" x-ref.` CROSS-REFERENCE: `441.7^B` `1)= S ^PRC(441.7,"B",$E(X,1,30),DA)=""` `2)= K ^PRC(441.7,"B",$E(X,1,30),DA)`
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(443.6,"B",$P(^PRC(441.7,DA,0),U,1),0)) K:'$D(^PRC(443.6,+Z,2,X,0)) X K Z` LAST EDITED: `APR 08, 1997` 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.` EXECUTABLE HELP: `S:$D(D) PRCHD=D S X="?",DIC="^PRC(443.6,"_PRCHPO_",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: `441.7^AH^MUMPS` `1)= I $P(^PRC(441.7,DA,0),U,1)]"" S ^PRC(441.7,"AG",$P(^(0),U,1),X,DA)=""` `2)= I $P(^PRC(441.7,DA,0),U,1)]"" K ^PRC(441.7,"AG",$P(^(0),U,1),X,DA)` `This x-ref and the "AG" x-ref in the ORDER NUMBER (PAT) field work together to control the "AG" x-ref, a list of ORDER NUMBER (PAT) and ITEM. Both fields must contain data for the "AG" x-ref to be created. The ORDER` `NUMBER (PAT) field must have data to remove the "AG" x-ref.`
2	DELIVERY DATE	0;3	DATE	**********************REQUIRED FIELD******************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 21, 1997` 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.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `441.7^AC^MUMPS` `1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN6^PRCHAMXE Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I "22,23"[PRCHAMDA S PRCHX=X,X=0 D EN2^PRCHAMXE S X=PRCHX K PRCHX` `2)= I $G(PRCHNORE)=1,"22,23"[PRCHAMDA S FLAG=1 D EN2^PRCHAMXE` `This x-ref will set the old value in the CHANGES multiple. If there was no previous value for this field or this is a new field the old value is set to '0'. If there was a previous value for this field that becomes the` `old value.` `**NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.`
3	LOCATION FOR DELIVERY	0;4	POINTER TO DELIVERY POINT FILE (#410.8)	**********************REQUIRED FIELD******************** DELIVERY POINT(#410.8) LAST EDITED: `FEB 21, 1997` HELP-PROMPT: `Enter location to which the item should be delivered.` DESCRIPTION: `This is the location to which the item should be delivered.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `441.7^AD^MUMPS` `1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN7^PRCHAMXE Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I "22,23"[PRCHAMDA S PRCHX=X,X=0 D EN3^PRCHAMXE S X=PRCHX K PRCHX` `2)= I $G(PRCHNORE)=1,"22,23"[PRCHAMDA S FLAG=1 D EN3^PRCHAMXE` `This x-ref will set the old value in the CHANGES multiple. If there was no previous value for this field or this is a new field the old value is set to '0'. If there was a previous value for this field that becomes the` `old value.` `**NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.`
4	QTY TO BE DELIVERED	0;5	NUMBER	**********************REQUIRED FIELD******************** INPUT TRANSFORM: `K:+X'=X!(X>999999.99)!(X<0)!(X?.E1"."3N.N)!($D(PRCHQTY)&$D(PRCHTOT)&($G(PRCHTOT)+X-$P($G(^PRC(441.7,DA,0)),U,5)>$G(PRCHQTY)&(X'=0))) X` LAST EDITED: `FEB 21, 1997` 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(441.7,DA,0)),U,5) W !,"The largest valid quantity here is ",$S($G(PRCHSUM)>0:PRCHSUM,1:"0"),".",!` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `441.7^AE^MUMPS` `1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN8^PRCHAMXE Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I "22,23"[PRCHAMDA S PRCHX=X,X=0 D EN4^PRCHAMXE S X=PRCHX K PRCHX` `2)= I $G(PRCHNORE)=1,"22,23"[PRCHAMDA S FLAG=1 D EN4^PRCHAMXE` `This x-ref will set the old value in the CHANGES multiple. If there was no previous value for this field or this is a new field the old value is set to '0'. If there was a previous value for this field that becomes the` `old value.` `**NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.`
5	DELETE FLAG	0;6	SET	'D' FOR DELETE; LAST EDITED: `MAR 07, 1994` DESCRIPTION: `It is a flag to delete the amendments to delivery schedules.`
6	PERMANENT ENTRY	0;7	POINTER TO DELIVERY SCHEDULE (ORDER) FILE (#442.8)	DELIVERY SCHEDULE (ORDER)(#442.8) LAST EDITED: `APR 01, 1994` DESCRIPTION: `It is a permanent corresponding entry in File 442.8`

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #3696	M DATA EXTRACTOR

External References

Name	Field # of Occurrence
^%DT	2+1
^DIC	1(HELP )
Y^DIQ	IDZ2+1
EN2^PRCHAMXE	2(XREF 1S), 2(XREF 1K)
EN3^PRCHAMXE	3(XREF 1S), 3(XREF 1K)
EN4^PRCHAMXE	4(XREF 1S), 4(XREF 1K)
EN6^PRCHAMXE	2(XREF 1S)
EN7^PRCHAMXE	3(XREF 1S)
EN8^PRCHAMXE	4(XREF 1S)
FLAG^PRCHMA	2(XREF 1S), 3(XREF 1S), 4(XREF 1S)

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(410.8	IDZ2+1
^PRC(441.7 - [#441.7]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1+1, 1(XREF 2S), 1(XREF 2K), 4+1, 4(HELP )
^PRC(443.6 - [#443.6]	1+1
^PRCS(410.8 - [#410.8]	IDZ2+1

Naked Globals

Name	Field # of Occurrence
^(0	IDZ1+1, IDZ2+1, IDZ3+1, IDZ4+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 2S), 1(XREF 2K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	2+1*
%I	IDZ2+1*!
>> C	IDZ2+1*
>> D	1(HELP )
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1+1, 1(XREF 2S), 1(XREF 2K), 4+1, 4(HELP )
>> DIC	IDZ2+1, 1(HELP )
>> DIC(0	1(HELP )
>> DIE	1(HELP )
>> FLAG	2(XREF 1K), 3(XREF 1K), 4(XREF 1K)
>> PRCHAMDA	2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 4(XREF 1K)
PRCHD	1(HELP )
>> PRCHNORE	2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 4(XREF 1K)
>> PRCHPO	1(HELP )
>> PRCHQTY	4+1, 4(HELP )
>> PRCHSUM	4(HELP )
>> PRCHTOT	4+1, 4(HELP )
PRCHX	2(XREF 1S), 3(XREF 1S), 4(XREF 1S)
U	IDZ1+1, IDZ2+1, IDZ3+1, IDZ4+1, .01(XREF 1S), .01(XREF 1K), 1+1, 1(XREF 2S), 1(XREF 2K), 4+1 , 4(HELP )
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1+1!, 1(HELP ), 1(XREF 2S), 1(XREF 2K), 2+1*! , 2(XREF 1S), 3(XREF 1S), 4+1!, 4(XREF 1S)
>> Y	IDZ2+1*, 2+1
Z	1+1*!, 1(HELP )

Customize PDF page

Package: IFCAP

Global: ^PRC(441.7

Information

Description

Directly Accessed By Routines, Total: 10

Accessed By FileMan Db Calls, Total: 3

Pointer To FileMan Files, Total: 2

Fields, Total: 7

ICR, Total: 1

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: