Select the objects that you wish to see in the downloaded PDF
K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
JUL 21, 1992
Enter a Reason Code from 1 to 999, whole numbers only.
This is the numeric code identifying the ISMS reason message.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1)= S ^PRCF(423.4,"B",$E(X,1,30),DA)=""
2)= K ^PRCF(423.4,"B",$E(X,1,30),DA)
JUL 22, 1992
Enter a Reason Code (1-40 characters).
This is the text of the ISMS message giving a reason for an action.
Enter the status of this Reason Code.
This is a code indicating the status of an ISMS reason message.