|
Last change
on this file since 1093 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
545 bytes
|
| Line | |
|---|
| 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.
