Sub-Field: 441.04

Parent File	Name	Number	Package
441.03	PURCHASE ORDER	441.04	IFCAP

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PURCHASE ORDER	0;1	POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)	PROCUREMENT & ACCOUNTING TRANSACTIONS(#442) INPUT TRANSFORM: `I $D(X) S DINUM=+X` LAST EDITED: `OCT 13, 1988` DESCRIPTION: `This is the purchase order number.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `441.04^AC^MUMPS` `1)= S Z=$S($D(^PRC(442,DA,1)):+$P(^(1),"^",15),1:0),^PRC(441,DA(2),4,DA(1),1,"AC",9999999-Z,DA)="" K Z` `2)= S Z=$S($D(^PRC(442,DA,1)):+$P(^(1),"^",15),1:0) K ^PRC(441,DA(2),4,DA(1),1,"AC",9999999-Z,DA),Z` `This X-REF lists all PURCHASE ORDER entries in the reverse P.O. DATE order. This allows the most recently ordered POs for each vendor to be found first.`

PURCHASE ORDER

0;1

POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)

INPUT TRANSFORM: I $D(X) S DINUM=+X
LAST EDITED: OCT 13, 1988
DESCRIPTION:
This is the purchase order number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 441.04^AC^MUMPS
1)= S Z=$S($D(^PRC(442,DA,1)):+$P(^(1),"^",15),1:0),^PRC(441,DA(2),4,DA(1),1,"AC",9999999-Z,DA)="" K Z
2)= S Z=$S($D(^PRC(442,DA,1)):+$P(^(1),"^",15),1:0) K ^PRC(441,DA(2),4,DA(1),1,"AC",9999999-Z,DA),Z
This X-REF lists all PURCHASE ORDER entries in the reverse P.O. DATE order. This allows the most recently ordered POs for each vendor to be found first.