VAQAUT ;ALB/JRP - USER AUTHENTIFICATION ROUTINES;23-FEB-93
;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
VRFYUSER(DUZ) ;USER VERIFICATION USING ELECTRONIC SIGNATURE
;INPUT : DUZ - User's IFN in the NEW PERSON file
;OUTPUT : 0 - Successful verification
; -1 - User not verified
; -2 - Bad input
; -3 - User does not have an electronic signature on file
;
;CHECK INPUT
S DUZ=$G(DUZ)
Q:(DUZ="") -2
Q:('$D(^VA(200,DUZ))) -2
;DECLARE VARIABLES
N X,X1
;VERIFY USER (KERNEL API)
D SIG^XUSESIG
;NO SIGNATURE ON FILE
Q:('$D(X)) -3
;NOT VERIFIED
Q:(X1="") -1
;VERIFIED
Q 0
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAQAUT 625 printed Sep 02, 2024@19:09:53 Page 2
VAQAUT ;ALB/JRP - USER AUTHENTIFICATION ROUTINES;23-FEB-93
+1 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
VRFYUSER(DUZ) ;USER VERIFICATION USING ELECTRONIC SIGNATURE
+1 ;INPUT : DUZ - User's IFN in the NEW PERSON file
+2 ;OUTPUT : 0 - Successful verification
+3 ; -1 - User not verified
+4 ; -2 - Bad input
+5 ; -3 - User does not have an electronic signature on file
+6 ;
+7 ;CHECK INPUT
+8 SET DUZ=$GET(DUZ)
+9 if (DUZ="")
QUIT -2
+10 if ('$DATA(^VA(200,DUZ)))
QUIT -2
+11 ;DECLARE VARIABLES
+12 NEW X,X1
+13 ;VERIFY USER (KERNEL API)
+14 DO SIG^XUSESIG
+15 ;NO SIGNATURE ON FILE
+16 if ('$DATA(X))
QUIT -3
+17 ;NOT VERIFIED
+18 if (X1="")
QUIT -1
+19 ;VERIFIED
+20 QUIT 0