source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/VAFHREG.m@ 1489

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

initial load of WorldVistAEHR

File size: 448 bytes
Line 
1VAFHREG ;ALB/JLU;Checking registration;
2 ;;5.3;Registration;**91**;Jun 06, 1996
3 ;
4EN() ;this tag looks at what option the user is in at the time. If it is
5 ;registration, scheduling then it is assumed that the event will be
6 ;picked up by the event drivers.
7 ;
8 N VAR
9 S VAR=0 ;not a registration
10 I $P($G(XQY0),"^")="DG REGISTER PATIENT" S VAR=1 G EX ;looking at the option.
11 I $P($G(XQY0),"^")="DGRPT 10-10T REGISTRATION" S VAR=1 G EX
12EX Q VAR
Note: See TracBrowser for help on using the repository browser.