VAFHREG.m

VAFHREG ;ALB/JLU;Checking registration;

 ;;5.3;Registration;**91**;Jun 06, 1996

 ;

EN() ;this tag looks at what option the user is in at the time.  If it is

 ;registration, scheduling then it is assumed that the event will be

 ;picked up by the event drivers.

 ;

 N VAR

 S VAR=0 ;not a registration

 I $P($G(XQY0),"^")="DG REGISTER PATIENT" S VAR=1 G EX ;looking at the option.

 I $P($G(XQY0),"^")="DGRPT 10-10T REGISTRATION" S VAR=1 G EX

EX Q VAR

VAFHREG   ;ALB/JLU;Checking registration;

 +1       ;;5.3;Registration;**91**;Jun 06, 1996

 +2       ;

EN()      ;this tag looks at what option the user is in at the time.  If it is

 +1       ;registration, scheduling then it is assumed that the event will be

 +2       ;picked up by the event drivers.

 +3       ;

 +4        NEW VAR

 +5       ;not a registration

           SET VAR=0

 +6       ;looking at the option.

           IF $PIECE($GET(XQY0),"^")="DG REGISTER PATIENT"

               SET VAR=1

               GOTO EX

 +7        IF $PIECE($GET(XQY0),"^")="DGRPT 10-10T REGISTRATION"

               SET VAR=1

               GOTO EX

EX         QUIT VAR