- 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 Jan 18, 2025@03:13:11 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 ;