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)<2) X
JAN 23, 1991
ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
IHS
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
80.999999921^B
1)= S ^ICD9(DA(1),9999999.21,"B",$E(X,1,30),DA)=""
2)= K ^ICD9(DA(1),9999999.21,"B",$E(X,1,30),DA)
80^AIHS-TOO^MUMPS
1)= S %="^ICD9(""AIHS"",AICDI,DA(1),DA)" D S^AICDKWIC
2)= S %="^ICD9(""AIHS"",AICDI,DA(1),DA)" D K^AICDKWIC
K:$L(X)>1!($L(X)<1) X
NOV 20, 1986
DUMMY FIELD