Select the objects that you wish to see in the downloaded PDF
D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
JAN 16, 1990
Enter the children associated with this order.
These are the orders which compose this entry and have this entry in the Parent field.
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
100.002^AL^MUMPS
1)= S P=$P(^OR(100,DA(1),0),"^",2),P2=$P(^(0),"^",8),P1=$S($D(^(3)):$P(^(3),"^",4),1:"") I P,P1,P2 S ^OR(100,"AL",P,P1,P2,DA,DA(1))=""
2)= S P=$P(^OR(100,DA(1),0),"^",2),P2=$P(^(0),"^",8),P1=$S($D(^(3)):$P(^(3),"^",4),1:"") I P,P1,P2 K ^OR(100,"AL",P,P1,P2,DA,DA(1))