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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAFHREG 460 printed Oct 16, 2024@19:04:21 Page 2
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
