Select the objects that you wish to see in the downloaded PDF
K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
IHS
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
80.1999999921^B
1)= S ^ICD0(DA(1),9999999.21,"B",$E(X,1,30),DA)=""
2)= K ^ICD0(DA(1),9999999.21,"B",$E(X,1,30),DA)
80.1^AIHS-TOO^MUMPS
1)= S %="^ICD0(""AIHS"",AICDI,DA(1),DA)" D S^AICDKWIC
2)= S %="^ICD0(""AIHS"",AICDI,DA(1),DA)" D K^AICDKWIC