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

RORUTL11.m

Go to the documentation of this file. 
  1. RORUTL11 ;HCIOFO/SG - ACCESS AND SECURITY UTILITIES ; 03 Dec 2015  1:56 PM
  1.  ;;1.5;CLINICAL CASE REGISTRIES;**13,14,15,17,18,20,19,21,22,24,27,25,26,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42**;Feb 17, 2006;Build 9
  1.  ;
  1.  ;******************************************************************************
  1.  ;******************************************************************************
  1.  ;                 --- ROUTINE MODIFICATION LOG ---
  1.  ;        
  1.  ;PKG/PATCH    DATE        DEVELOPER    MODIFICATION
  1.  ;-----------  ----------  -----------  ----------------------------------------
  1.  ;ROR*1.5*13   DEC  2010   A SAUNDERS   Added tag VERSRV to return an associated
  1.  ;                                      version to the GUI during RPC call ROR
  1.  ;                                      GET M VERSION
  1.  ;ROR*1.5*14   APR  2011   A SAUNDERS   Updated version in tag VERSRV
  1.  ;ROR*1.5*15   JUN 2011    C RAY        Updated version
  1.  ;ROR*1.5*17   DEC 2011    C RAY        Updated version
  1.  ;ROR*1.5*18   MAY 2012    C RAY        Updated version
  1.  ;ROR*1.5*20   DEC 2012    C RAY        Updated version
  1.  ;ROR*1.5*19   APR 2012    K GUPTA      Updated version
  1.  ;ROR*1.5*21   AUG 2013    T KOPP       Updated version
  1.  ;ROR*1.5*22   FEB 2014    T KOPP       Updated version
  1.  ;ROR*1.5*24   DEC 2014    T KOPP       Updated version
  1.  ;ROR*1.5*27   FEB 2015    T KOPP       Updated version
  1.  ;ROR*1.5*25   MAR 2015    T KOPP       Updated version
  1.  ;ROR*1.5*26   MAY 2015    T KOPP       Updated version
  1.  ;ROR*1.5*28   APR 2016    T KOPP       Updated version
  1.  ;ROR*1.5*29   AUG 2016    T KOPP       Updated version
  1.  ;ROR*1.5*30   MAR 2017    M FERRARESE  Updated version
  1.  ;ROR*1.5*31   JUL 2017    S ALSAHHAR   Updated version
  1.  ;ROR*1.5*32   JUL 2017    S ALSAHHAR   Updated version
  1.  ;ROR*1.5*33   MAY 2018    M FERRARESE  Updated version
  1.  ;ROR*1.5*34   JAN 2019    M FERRARESE  Updated version
  1.  ;ROR*1.5*35   AUG 2019    M FERRARESE  Updated version
  1.  ;ROR*1.5*36   APR 2020    M FERRARESE  Updated version
  1.  ;ROR*1.5*37   SEP 2020    M FERRARESE  Updated version
  1.  ;ROR*1.5*38   APR 2021    F TRAXLER    Updated version
  1.  ;ROR*1.5*39   AUG 2021    M FERRARESE  Updated version
  1.  ;ROR*1.5*40   JUL 2022    F TRAXLER    Updated version
  1.  ;ROR*1.5*41   JAN 2023    F TRAXLER    Updated version
  1.  ;ROR*1.5*42   FEB 2024    F TRAXLER    Updated version
  1.  ;******************************************************************************
  1.  ; This routine uses the following IAs:
  1.  ;
  1.  ; #2055   $$ROOT^DILFD (supported)
  1.  ; #10013  ENALL^DIK (supported)
  1.  ;         
  1.  ;******************************************************************************
  1.  Q
  1.  ;
  1.  ;***** REBUILDS THE "ACL" CROSS-REFERENCE (USER ACCESS)
  1.  ;
  1.  ; Return Values:
  1.  ;       <0  Error code
  1.  ;        0  Ok
  1.  ;
  1. RNDXACL() ;
  1.  N DA,DIK,REGIEN,ROOT
  1.  S ROOT=$$ROOT^DILFD(798.1,,1)  K @ROOT@("ACL")
  1.  S REGIEN=0
  1.  F  S REGIEN=$O(@ROOT@(REGIEN))  Q:'REGIEN  D
  1.  . S DIK=$$ROOT^DILFD(798.118,","_REGIEN_","),DIK(1)=".01^ACL"
  1.  . S DA(1)=REGIEN  D ENALL^DIK
  1.  Q 0
  1.  ;
  1.  ;***** CHECKS IF THE RPC CAN BE CALLED BY THE CURRENT USER
  1.  ;
  1.  ; RPCNAME       Name of the RPC
  1.  ;
  1.  ; [REGIEN]      Registry IEN
  1.  ;
  1.  ; [FLAGS]       Flags that control the execution (can be combined):
  1.  ;                 A  Administrator Only
  1.  ;                 I  IRM Only
  1.  ;
  1.  ; Return Values:
  1.  ;       <0  Error code
  1.  ;        0  Ok
  1.  ;       >0  Access denied
  1.  ;
  1. RPCHECK(RPCNAME,REGIEN,FLAGS) ;
  1.  N ACCESS,KEY,RC
  1.  Q:$G(DUZ)'>0 $$ERROR^RORERR(-40,,,,"DUZ")
  1.  S FLAGS=$G(FLAGS),REGIEN=+$G(REGIEN)
  1.  ;---
  1.  S (ACCESS,RC)=0
  1.  D  Q:ACCESS 0
  1.  . I REGIEN  Q:$D(^ROR(798.1,"ACL",DUZ,REGIEN))<10
  1.  . E  Q:$D(^ROR(798.1,"ACL",DUZ))<10
  1.  . I FLAGS["I"  Q:'$D(^XUSEC("ROR VA IRM",DUZ))
  1.  . I FLAGS["A"  S RC=1,KEY=""  D  Q:RC
  1.  . . F  S KEY=$O(^ROR(798.1,"ACL",DUZ,REGIEN,KEY))  Q:KEY=""  D  Q:'RC
  1.  . . . I KEY?1"ROR"1.E  S:KEY["ADMIN" RC=0
  1.  . S ACCESS=1
  1.  ;---
  1.  D ACVIOLTN^RORLOG(-91,$G(REGIEN),RPCNAME)
  1.  Q 1
  1.  ;
  1.  ;***** RETURNS SERVER VERSION
  1.  ;REMOTE PROCEDURE: ROR GET M VERSION
  1.  ;
  1.  ;The purpose of this RPC is to catch when the GUI executable has been
  1.  ;upgraded AND REQUIRES an associated M patch, but the M patch has not
  1.  ;been installed yet.
  1.  ;
  1.  ; VAL n.n.n represents the CCR package version and the m patch number that
  1.  ; contains the associated M changes that the GUI is expecting.
  1.  ;
  1.  ;NOTE TO CCR MAINTENANCE TEAM: For M changes made by the maintenance team,
  1.  ;the server version below should not be modified.  The only time the server
  1.  ;version should be modified is if the GUI was changed AND there were
  1.  ;associated M changes needed for it.
  1.  ;
  1. VERSRV(VAL) ;
  1.  S VAL="1.5.42"
  1.  Q