Select the objects that you wish to see in the downloaded PDF
S DINUM=X Q
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9009013^B
1)= S ^ADGIC("B",$E(X,1,30),DA)=""
2)= K ^ADGIC("B",$E(X,1,30),DA)
S X=$S($D(^AUPNPAT(D0,41,DUZ(2),0)):$P(^(0),"^",2),1:"")
APR 01, 1988