Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMRCMENU

GMRCMENU.m

Go to the documentation of this file.
  1. GMRCMENU ;SLC/DCM - Select List Manager menu for user characteristics ;5/20/98 14:20
  1. ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
  1. EN ;Find user access characteristics and set up variables for menu's
  1. ;to be displayed by XQORM
  1. ;GMRCACTM=protocol name of action menu for user
  1. ;^TMP("GMRC",$J,"CURRENT","MENU") is the hijack protocol
  1. D EN^GMRCACTM
  1. S ^TMP("GMRC",$J,"CURRENT","MENU")=$O(^ORD(101,"B",GMRCACTM,0))_";ORD(101,"
  1. S XQORM("HIJACK")=^TMP("GMRC",$J,"CURRENT","MENU"),XQORM(0)="3AD"
  1. S GMRCOPT=""
  1. Q