Select the objects that you wish to see in the downloaded PDF
S DIC("S")="I +$G(^DIC(4,+Y,99))=+$P($$SITE^VASITE,U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
SEP 16, 1999
S DIC("S")="I +$G(^DIC(4,+Y,99))=+$P($$SITE^VASITE,U,3)"
Allows only divisions related to site.
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER