- XUSEHRM ; BA/OAK - EHRM REVERSED LOCK ; Jan 19, 2022@03:34:43
- ;;8.0;KERNEL;**758**;Jul 10, 1995;Build 17
- ;;Per VHA Directive 2004-038, this routine should not be modified
- Q
- 1 ;Assign Replacement Program Key to ALL Users (this option needs the XUPROG Key assigned)
- D 1^XUSEHRM1
- Q
- ;
- 2 ;Remove Replacement Program Key from ALLL User (this option needs the XUPROG Key assigned)
- D 2^XUSEHRM1
- Q
- ;
- 3 ;Allocation of Security Keys
- ;D 3^XUSEHRM1
- Q
- ;
- 4 ;Deallocation of Security Keys
- ;D 4^XUSEHRM1
- Q
- ;
- 5 ;Assign Replacement Program Key to EVERSE/NEGATIVE LOCK
- D 5^XUSEHRM1
- Q
- ;
- 6 ;Remove Replacement Program Key from EVERSE/NEGATIVE LOCK
- D 6^XUSEHRM1
- Q
- ;
- 7 ;List Users Holding a Certain Program Replacement Key (our criteria adds CSV functionality)
- D 7^XUSEHRM2
- Q
- ;
- 8 ;List Users who do not have a certain Program Replacement Key
- D 8^XUSEHRM2
- Q
- 9 ;Lst Options with a Replacement Program Key
- D 9^XUSEHRM2
- Q
- ;
- 10 ;List Options that do not have a Replacement Program Key
- D 10^XUSEHRM2
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUSEHRM 1073 printed Jan 18, 2025@03:13:27 Page 2
- XUSEHRM ; BA/OAK - EHRM REVERSED LOCK ; Jan 19, 2022@03:34:43
- +1 ;;8.0;KERNEL;**758**;Jul 10, 1995;Build 17
- +2 ;;Per VHA Directive 2004-038, this routine should not be modified
- +3 QUIT
- 1 ;Assign Replacement Program Key to ALL Users (this option needs the XUPROG Key assigned)
- +1 DO 1^XUSEHRM1
- +2 QUIT
- +3 ;
- 2 ;Remove Replacement Program Key from ALLL User (this option needs the XUPROG Key assigned)
- +1 DO 2^XUSEHRM1
- +2 QUIT
- +3 ;
- 3 ;Allocation of Security Keys
- +1 ;D 3^XUSEHRM1
- +2 QUIT
- +3 ;
- 4 ;Deallocation of Security Keys
- +1 ;D 4^XUSEHRM1
- +2 QUIT
- +3 ;
- 5 ;Assign Replacement Program Key to EVERSE/NEGATIVE LOCK
- +1 DO 5^XUSEHRM1
- +2 QUIT
- +3 ;
- 6 ;Remove Replacement Program Key from EVERSE/NEGATIVE LOCK
- +1 DO 6^XUSEHRM1
- +2 QUIT
- +3 ;
- 7 ;List Users Holding a Certain Program Replacement Key (our criteria adds CSV functionality)
- +1 DO 7^XUSEHRM2
- +2 QUIT
- +3 ;
- 8 ;List Users who do not have a certain Program Replacement Key
- +1 DO 8^XUSEHRM2
- +2 QUIT
- 9 ;Lst Options with a Replacement Program Key
- +1 DO 9^XUSEHRM2
- +2 QUIT
- +3 ;
- 10 ;List Options that do not have a Replacement Program Key
- +1 DO 10^XUSEHRM2
- +2 QUIT