Select the objects that you wish to see in the downloaded PDF
S %DT="ETX" D ^%DT S X=Y K:Y<1 X
FEB 25, 1997
1,0)= D EN^DDIOL("Deletions are not allowed due to PFOP Migration!!","","!?5,$C(7)") I 1
1,0)= D:'$G(XUMF) EN^DDIOL("Additions are not allowed due to PFOP Migration!!","","!?5,$C(7)") I +$G(XUMF)
470.9^B
1)= S ^PRPF(470.9,"B",$E(X,1,30),DA)=""
2)= K ^PRPF(470.9,"B",$E(X,1,30),DA)
470.9^AC^MUMPS
1)= I X=0 S ^PRPF(470.9,"AC",(10000000-$P(^PRPF(470.9,DA,0),"^")),DA)=""
2)= K ^PRPF(470.9,"AC",(10000000-$P(^PRPF(470.9,DA,0),"^")),DA)
This cross reference is used to create a reverse index for date of last archive.
S %DT="EX" D ^%DT S X=Y K:Y<1 X
MAR 09, 1992