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.