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

XUS8P758.m

Go to the documentation of this file.
  1. XUS8P758 ; BA/OAK - EHRM REVERSED LOCK ; Dec 16, 2021@08:57:44
  1. ;;8.0;KERNEL;**758**;Jul 10, 1995;Build 17
  1. ;;Per VHA Directive 2004-038, this routine should not be modified
  1. Q
  1. POST ;
  1. N XUS
  1. S XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM ADD KEY USERS",1,1)
  1. S XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM REM KEY USERS",2,2)
  1. S XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM ADD KEY OPTS",3,3)
  1. S XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM REM KEY OPTS",4,4)
  1. S XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM LIST USERS KEYS",5,5)
  1. S XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM LIST USERS NO KEYS",6,6)
  1. S XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM LIST OPTS KEYS",7,7)
  1. S XUS=$$ADD^XPDMENU("XUEHRM MAIN","XUEHRM LIST OPTS NO KEYS",8,8)
  1. S XUS=$$ADD^XPDMENU("XUEHRM MAIN","XQLISTKEY",9,9)
  1. Q
  1. ;