NAME	DIAC DELETE
DESCRIPTION	This option allows deleting a policy.
CREATOR	USER,FIFTYFOUR
E ACTION PRESENT	YES
ENTRY ACTION	S DA=+$$SELECT^DIACLM Q:DA<1 D DEL^DIACLM1
EXIT ACTION	K DA
MENU TEXT	Delete a Policy
TYPE	action
UPPERCASE MENU TEXT	DELETE A POLICY
X ACTION PRESENT	YES