AGSECCHK.m

AGSECCHK ;IHS/ASDS/EFG - SECURITY CHECK ROUTINE FOR PATIENT REG  

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 ;

 ;THIS ROUTINE IS USED TO SEARCH THE NEW PERSON FILE TO SEE IF THE

 ;USER HAS THE PROPER SECURITY KEY FOR WHATEVER REASON. PASS IT

 ;THE NAME OF THE SECURITY KEY (KEY) TO SEARCH FOR AND THE RESULT

 ;(HIT) WILL CONTAIN A "Y" OR "N" TO INDICATE IF IT WAS FOUND

 ;OR NOT.

 ;

EN(KEY,HIT) ;

 S HIT="N"

 I $D(^XUSEC(KEY,DUZ)) S HIT="Y"      ;SECURITY KEY FOUND

 E  S HIT="N"

 Q

AGSECCHK  ;IHS/ASDS/EFG - SECURITY CHECK ROUTINE FOR PATIENT REG  

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 +2       ;

 +3       ;THIS ROUTINE IS USED TO SEARCH THE NEW PERSON FILE TO SEE IF THE

 +4       ;USER HAS THE PROPER SECURITY KEY FOR WHATEVER REASON. PASS IT

 +5       ;THE NAME OF THE SECURITY KEY (KEY) TO SEARCH FOR AND THE RESULT

 +6       ;(HIT) WILL CONTAIN A "Y" OR "N" TO INDICATE IF IT WAS FOUND

 +7       ;OR NOT.

 +8       ;

EN(KEY,HIT) ;

 +1        SET HIT="N"

 +2       ;SECURITY KEY FOUND

           IF $DATA(^XUSEC(KEY,DUZ))

               SET HIT="Y"

 +3       IF '$TEST

               SET HIT="N"

 +4        QUIT