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 Oct 16, 2024@18:13:04 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
