Select the objects that you wish to see in the downloaded PDF
S DIC("S")="I $P(^(0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
APR 02, 1993
Identify the reason(s) why the unauthorized claim was disapproved.
Reason why claim was not approved.
Reason for disapproval is only prompted if the disposition type is other
than APPROVED. If the disposition was changed to APPROVED, all disapproval reason will be
S DIC("S")="I $P(^(0),U,2)"
Select only active disapproval reasons if the unauthorized claim has a disposition of other than approved.
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1)= S ^FB583(DA(1),"D","B",$E(X,1,30),DA)=""
2)= K ^FB583(DA(1),"D","B",$E(X,1,30),DA)