XUS8P758 ; BA/OAK - EHRM REVERSED LOCK ; Dec 16, 2021@08:57:44
;;8.0;KERNEL;**758**;Jul 10, 1995;Build 17
;;Per VHA Directive 2004-038, this routine should not be modified
Q
POST ;
N XUS
S XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM ADD KEY USERS",1,1)
S XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM REM KEY USERS",2,2)
S XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM ADD KEY OPTS",3,3)
S XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM REM KEY OPTS",4,4)
S XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM LIST USERS KEYS",5,5)
S XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM LIST USERS NO KEYS",6,6)
S XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM LIST OPTS KEYS",7,7)
S XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM LIST OPTS NO KEYS",8,8)
S XUS=$$ADD^XPDMENU("XUEHRM MAIN","XQLISTKEY",9,9)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUS8P758 780 printed Sep 15, 2024@21:36:12 Page 2
XUS8P758 ; BA/OAK - EHRM REVERSED LOCK ; Dec 16, 2021@08:57:44
+1 ;;8.0;KERNEL;**758**;Jul 10, 1995;Build 17
+2 ;;Per VHA Directive 2004-038, this routine should not be modified
+3 QUIT
POST ;
+1 NEW XUS
+2 SET XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM ADD KEY USERS",1,1)
+3 SET XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM REM KEY USERS",2,2)
+4 SET XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM ADD KEY OPTS",3,3)
+5 SET XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM REM KEY OPTS",4,4)
+6 SET XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM LIST USERS KEYS",5,5)
+7 SET XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM LIST USERS NO KEYS",6,6)
+8 SET XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM LIST OPTS KEYS",7,7)
+9 SET XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM LIST OPTS NO KEYS",8,8)
+10 SET XUS=$$ADD^XPDMENU("XUEHRM MAIN","XQLISTKEY",9,9)
+11 QUIT
+12 ;
