- 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 Feb 18, 2025@23:50:36 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