XUVERIFY |
Verify Access & Verify codes Calling this routine
from the top gives an interactive request for the users Access and/or Verify
codes.
The variables % and %DUZ must be set before running this program % - may
equal "A","V" OR both "AV"
%DUZ - must equal the users DUZ
After the program is run % will return -1,0,1,2
if %=-1 an "^" was entered if %=0 an "?" was entered
if %=1 the Code typed was correct
if %=2 the Code was typed incorrectly
|
VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
% |
Both |
On input % - may equal "A","V" OR both "AV"
On return
if %=-1 an "^" was entered
if %=0 an "?" was entered
if %=1 the Code typed was correct
if %=2 the Code was typed incorrectly
|
|
|
|
%DUZ |
Input |
%DUZ - must equal the users DUZ
|
|
$$CHKAV |
This entry point accepts a string containing the
access and verify codes entered by the user, delimited by a semi-colon; the
pointer to the user in the New Person file #200 is returned if successfully
validated, otherwise a zero is returned. Usage S
USER=$$CHKAV^XUVERIFY(ACCESS_";"_VERIFY)
|
VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
AVCODE |
Input |
This value is the access and verify codes entered by
the user, delimited by a semi-colon.
|
$$CHKAV |
Output |
The IEN to file 200 is returned if successful,
otherwise zero.
|
|