NAME	XT-OPTION TEST
DESCRIPTION	This is for in-house testing of options only. It allows the selection ofan option from the OPTION file and then executes it.No security checks are performed, therefore, this option should only be given to programmers.
CREATOR	USER,ONE
E ACTION PRESENT	YES
ENTRY ACTION	S DIC=19,DIC(0)="AEMQZ",DIC("A")="Option entry to test: ",DIC("S")="I $P(^(0),U)'[""XUPROG""" D ^DIC K DIC I Y>0 S XQY=+Y,XQUR=$P(Y,U,2),XQDIC="U",XQY0=^DIC(19,XQY,0),^("T")=^XUTL("XQ",$J,"T")-1 G M0^XQ
LOCK	XUMGR
MENU TEXT	Test an option not in your menu
TIMESTAMP	53824,50375
TIMESTAMP OF PRIMARY MENU	54318,55009
TYPE	action
UPPERCASE MENU TEXT	TEST AN OPTION NOT IN YOUR MEN
X ACTION PRESENT	YES