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

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

initial load of FOIAVistA 6/30/08 version

File size: 545 bytes
Line 
1VAFCMGB4 ;BIR/LTL,PTD-DEMOGRAPHIC MERGE NOTIFIER ;23 SEP 97
2 ;;5.3;Registration;**149,392**;Aug 13, 1993
3 ;
4 ;NOTE: This routine notifies the members of the
5 ; RG CIRN DEMOGRAPHIC ISSUES Mail Group upon login
6 ; that there are patients awaiting review.
7 ;
8CHK ;Is user a member of this mail group?
9 S RGCDI=$$FIND1^DIC(3.8,,,"RG CIRN DEMOGRAPHIC ISSUES")
10 S XMDUZ=DUZ,Y=RGCDI D CHK^XMA21 I '$T G END
11 D:$O(^DGCN(391.98,"AST",1,0)) SET^XUS1A("!Use the Patient Data Review option to examine pending patients.")
12 ;
13END K RGCDI,XMDUZ,Y
14 Q
Note: See TracBrowser for help on using the repository browser.