source: FOIAVistA/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQAUT.m@ 1535

Last change on this file since 1535 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 602 bytes
Line 
1VAQAUT ;ALB/JRP - USER AUTHENTIFICATION ROUTINES;23-FEB-93
2 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
3VRFYUSER(DUZ) ;USER VERIFICATION USING ELECTRONIC SIGNATURE
4 ;INPUT : DUZ - User's IFN in the NEW PERSON file
5 ;OUTPUT : 0 - Successful verification
6 ; -1 - User not verified
7 ; -2 - Bad input
8 ; -3 - User does not have an electronic signature on file
9 ;
10 ;CHECK INPUT
11 S DUZ=$G(DUZ)
12 Q:(DUZ="") -2
13 Q:('$D(^VA(200,DUZ))) -2
14 ;DECLARE VARIABLES
15 N X,X1
16 ;VERIFY USER (KERNEL API)
17 D SIG^XUSESIG
18 ;NO SIGNATURE ON FILE
19 Q:('$D(X)) -3
20 ;NOT VERIFIED
21 Q:(X1="") -1
22 ;VERIFIED
23 Q 0
Note: See TracBrowser for help on using the repository browser.