GMRCMENU ;SLC/DCM - Select List Manager menu for user characteristics ;5/20/98 14:20
;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
EN ;Find user access characteristics and set up variables for menu's
;to be displayed by XQORM
;GMRCACTM=protocol name of action menu for user
;^TMP("GMRC",$J,"CURRENT","MENU") is the hijack protocol
D EN^GMRCACTM
S ^TMP("GMRC",$J,"CURRENT","MENU")=$O(^ORD(101,"B",GMRCACTM,0))_";ORD(101,"
S XQORM("HIJACK")=^TMP("GMRC",$J,"CURRENT","MENU"),XQORM(0)="3AD"
S GMRCOPT=""
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCMENU 527 printed Dec 13, 2024@01:46:16 Page 2
+1 ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
EN ;Find user access characteristics and set up variables for menu's
+1 ;to be displayed by XQORM
+2 ;GMRCACTM=protocol name of action menu for user
+3 ;^TMP("GMRC",$J,"CURRENT","MENU") is the hijack protocol
+4 DO EN^GMRCACTM
+5 SET ^TMP("GMRC",$JOB,"CURRENT","MENU")=$ORDER(^ORD(101,"B",GMRCACTM,0))_";ORD(101,"
+6 SET XQORM("HIJACK")=^TMP("GMRC",$JOB,"CURRENT","MENU")
SET XQORM(0)="3AD"
+7 SET GMRCOPT=""
+8 QUIT
