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

SDESCLINICUTIL.m

Go to the documentation of this file.
  1. SDESCLINICUTIL ;ALB/MGD - VISTA SCHEDULING CLINIC UTILITIES ;NOV 12, 2021
  1. ;;5.3;Scheduling;**801**;Aug 13, 1993;Build 13
  1. ;;Per VHA Directive 6402, this routine should not be modified
  1. ;
  1. PRIVUSR(CLINIC,USER) ;Does the user have access to the Restricted clinic
  1. ; It is assumed that all validation has been done prior to calling this utility
  1. N RETURN,I
  1. S RETURN=0
  1. I $G(^SC(CLINIC,"SDPROT"))'="Y" S RETURN=1
  1. E D
  1. .S I=0
  1. .F S I=$O(^SC(CLINIC,"SDPRIV",I)) Q:I="" D Q:RETURN
  1. ..I +$G(^SC(CLINIC,"SDPRIV",I,0))=USER S RETURN=1
  1. Q RETURN