LHSRPC ;ALB/BNT - LIGHTHOUSE RPCS ;30-MAR-2021
;;1.0;LIGHTHOUSE;****;30-MAR-2021;Build 9
;;Per VA Directive 6402, this routine should not be modified.
;
;
; External References DBIA#
; ------------------- -----
; $$ACCESS^XQCHK 10078
;
Q
;
OPT(RETURN,USER,OPTION) ; RPC: LHS CHECK OPTION ACCESS
; Input: USER = DUZ of user being checked for access
; OPTION = IEN or NAME of entry in the OPTION file #19
;
; -1:no such user in the New Person File
; -2: User terminated or has no access code
; -3: no such option in the Option File
; 0: no access found in any menu tree the user owns
;
; All other cases return a 4-piece string stating
; access ^ menu tree IEN ^ a set of codes ^ key
;
; O^tree^codes^key: No access because of locks (see XQCODES below)
; where 'tree' is the menu where access WOULD be allowed
; and 'key' is the key preventing access
; 1^OpIEN^^: Access allowed through Primary Menu
; 2^OpIEN^codes^: Access found in the Common Options
; 3^OpIEN^codes^: Access found in top level of secondary option
; 4^OpIEN^codes^: Access through a the secondary menu tree OpIEN.
;
; XQCODES can contain:
; N=No Primary Menu in the User File (warning only)
; L=Locked and the user does not have the key (forces 0 in first piece)
; R=Reverse lock and user has the key (forces 0 in first piece)
;
S RETURN=$$ACCESS^XQCHK(USER,OPTION)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLHSRPC 1488 printed Dec 13, 2024@02:09:54 Page 2
LHSRPC ;ALB/BNT - LIGHTHOUSE RPCS ;30-MAR-2021
+1 ;;1.0;LIGHTHOUSE;****;30-MAR-2021;Build 9
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ;
+5 ; External References DBIA#
+6 ; ------------------- -----
+7 ; $$ACCESS^XQCHK 10078
+8 ;
+9 QUIT
+10 ;
OPT(RETURN,USER,OPTION) ; RPC: LHS CHECK OPTION ACCESS
+1 ; Input: USER = DUZ of user being checked for access
+2 ; OPTION = IEN or NAME of entry in the OPTION file #19
+3 ;
+4 ; -1:no such user in the New Person File
+5 ; -2: User terminated or has no access code
+6 ; -3: no such option in the Option File
+7 ; 0: no access found in any menu tree the user owns
+8 ;
+9 ; All other cases return a 4-piece string stating
+10 ; access ^ menu tree IEN ^ a set of codes ^ key
+11 ;
+12 ; O^tree^codes^key: No access because of locks (see XQCODES below)
+13 ; where 'tree' is the menu where access WOULD be allowed
+14 ; and 'key' is the key preventing access
+15 ; 1^OpIEN^^: Access allowed through Primary Menu
+16 ; 2^OpIEN^codes^: Access found in the Common Options
+17 ; 3^OpIEN^codes^: Access found in top level of secondary option
+18 ; 4^OpIEN^codes^: Access through a the secondary menu tree OpIEN.
+19 ;
+20 ; XQCODES can contain:
+21 ; N=No Primary Menu in the User File (warning only)
+22 ; L=Locked and the user does not have the key (forces 0 in first piece)
+23 ; R=Reverse lock and user has the key (forces 0 in first piece)
+24 ;
+25 SET RETURN=$$ACCESS^XQCHK(USER,OPTION)
+26 QUIT
