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

LHSRPC.m

Go to the documentation of this file. 
  1. LHSRPC ;ALB/BNT - LIGHTHOUSE RPCS ;30-MAR-2021
  1.  ;;1.0;LIGHTHOUSE;****;30-MAR-2021;Build 9
  1.  ;;Per VA Directive 6402, this routine should not be modified.
  1.  ;
  1.  ;
  1.  ; External References          DBIA#
  1.  ; -------------------          -----
  1.  ; $$ACCESS^XQCHK               10078
  1.  ;
  1.  Q
  1.  ;
  1. OPT(RETURN,USER,OPTION) ; RPC: LHS CHECK OPTION ACCESS
  1.  ; Input: USER   = DUZ of user being checked for access
  1.  ;        OPTION = IEN or NAME of entry in the OPTION file #19
  1.  ;
  1.  ; -1:no such user in the New Person File 
  1.  ; -2: User terminated or has no access code 
  1.  ; -3: no such option in the Option File 
  1.  ; 0: no access found in any menu tree the user owns 
  1.  ; 
  1.  ;     All other cases return a 4-piece string stating 
  1.  ;     access ^ menu tree IEN ^ a set of codes ^ key 
  1.  ; 
  1.  ; O^tree^codes^key: No access because of locks (see XQCODES below) 
  1.  ;   where 'tree' is the menu where access WOULD be allowed 
  1.  ;   and 'key' is the key preventing access 
  1.  ; 1^OpIEN^^: Access allowed through Primary Menu 
  1.  ; 2^OpIEN^codes^: Access found in the Common Options 
  1.  ; 3^OpIEN^codes^: Access found in top level of secondary option 
  1.  ; 4^OpIEN^codes^: Access through a the secondary menu tree OpIEN.  
  1.  ;
  1.  ; XQCODES can contain: 
  1.  ;   N=No Primary Menu in the User File (warning only) 
  1.  ;   L=Locked and the user does not have the key (forces 0 in first piece) 
  1.  ;   R=Reverse lock and user has the key (forces 0 in first piece) 
  1.  ;
  1.  S RETURN=$$ACCESS^XQCHK(USER,OPTION)
  1.  Q