- 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 Jan 18, 2025@02:47:29 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