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 |