INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""XUMGR"",DUZ))!$D(^VA(200,DUZ,19.5,+Y,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 11, 2002
HELP-PROMPT: Please enter a menu-type option.
DESCRIPTION:
This is an option which is merged with the users primary menu and XUCOMMAND option, giving the user this option on all of her/his menus.
SCREEN: S DIC("S")="I $D(^XUSEC(""XUMGR"",DUZ))!$D(^VA(200,DUZ,19.5,+Y,0))"
EXPLANATION: YOU MUST HAVE XUMGR OR HAVE BEEN DELEGATED THAT OPTION.
AUDIT: YES, ALWAYS
CROSS-REFERENCE: 200^AD
1)= S ^VA(200,"AD",$E(X,1,30),DA(1),DA)=""
2)= K ^VA(200,"AD",$E(X,1,30),DA(1),DA)
CROSS-REFERENCE: 200^AOA^MUMPS
1)= S ^VA(200,DA(1),203.1)=$H
2)= S ^VA(200,DA(1),203.1)=$H
3)= Updates the timestamp field.
CROSS-REFERENCE: 200.03^AOB^MUMPS
1)= D REDOXP^XQ7
2)= Q
This cross reference checks for whether this entry creates a new entry in the compiled menu tree in XUTL("XQO", If it is a new entry then a flag will be set by the code in XQ7 in the "AT" cross reference of the option
file (^DIC(19,"AT", to cause the menu tree to be generated.
CROSS-REFERENCE: 200.03^B
1)= S ^VA(200,DA(1),203,"B",$E(X,1,30),DA)=""
2)= K ^VA(200,DA(1),203,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 200.03^AC^MUMPS
1)= D CONTCL^XUSTERM1(DA(1))
2)= D CONTCL^XUSTERM1(DA(1))
3)= Clear Continue
This X-ref calls code to clear the following fields LAST OPTION ACCESSED (202.1) and LAST OPTION MAIN MENU (202.2). This is too keep users from getting asked to continue if there menu has changed.