VAFCMGB4 ;BIR/LTL,PTD-DEMOGRAPHIC MERGE NOTIFIER ;23 SEP 97
;;5.3;Registration;**149,392**;Aug 13, 1993
;
;NOTE: This routine notifies the members of the
; RG CIRN DEMOGRAPHIC ISSUES Mail Group upon login
; that there are patients awaiting review.
;
CHK ;Is user a member of this mail group?
S RGCDI=$$FIND1^DIC(3.8,,,"RG CIRN DEMOGRAPHIC ISSUES")
S XMDUZ=DUZ,Y=RGCDI D CHK^XMA21 I '$T G END
D:$O(^DGCN(391.98,"AST",1,0)) SET^XUS1A("!Use the Patient Data Review option to examine pending patients.")
;
END K RGCDI,XMDUZ,Y
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAFCMGB4 559 printed Oct 16, 2024@19:02:25 Page 2
VAFCMGB4 ;BIR/LTL,PTD-DEMOGRAPHIC MERGE NOTIFIER ;23 SEP 97
+1 ;;5.3;Registration;**149,392**;Aug 13, 1993
+2 ;
+3 ;NOTE: This routine notifies the members of the
+4 ; RG CIRN DEMOGRAPHIC ISSUES Mail Group upon login
+5 ; that there are patients awaiting review.
+6 ;
CHK ;Is user a member of this mail group?
+1 SET RGCDI=$$FIND1^DIC(3.8,,,"RG CIRN DEMOGRAPHIC ISSUES")
+2 SET XMDUZ=DUZ
SET Y=RGCDI
DO CHK^XMA21
IF '$TEST
GOTO END
+3 if $ORDER(^DGCN(391.98,"AST",1,0))
DO SET^XUS1A("!Use the Patient Data Review option to examine pending patients.")
+4 ;
END KILL RGCDI,XMDUZ,Y
+1 QUIT
