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

VAQAUT.m

Go to the documentation of this file.
  1. VAQAUT ;ALB/JRP - USER AUTHENTIFICATION ROUTINES;23-FEB-93
  1. ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
  1. VRFYUSER(DUZ) ;USER VERIFICATION USING ELECTRONIC SIGNATURE
  1. ;INPUT : DUZ - User's IFN in the NEW PERSON file
  1. ;OUTPUT : 0 - Successful verification
  1. ; -1 - User not verified
  1. ; -2 - Bad input
  1. ; -3 - User does not have an electronic signature on file
  1. ;
  1. ;CHECK INPUT
  1. S DUZ=$G(DUZ)
  1. Q:(DUZ="") -2
  1. Q:('$D(^VA(200,DUZ))) -2
  1. ;DECLARE VARIABLES
  1. N X,X1
  1. ;VERIFY USER (KERNEL API)
  1. D SIG^XUSESIG
  1. ;NO SIGNATURE ON FILE
  1. Q:('$D(X)) -3
  1. ;NOT VERIFIED
  1. Q:(X1="") -1
  1. ;VERIFIED
  1. Q 0