Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
545 bytes
|
Rev | Line | |
---|
[613] | 1 | VAFCMGB4 ;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 | ;
|
---|
| 8 | CHK ;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 | ;
|
---|
| 13 | END K RGCDI,XMDUZ,Y
|
---|
| 14 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.