1 | IVM2071M ;ALB/RMM MT Cleanup Mailman Msg ; 23 DEC 2002
|
---|
2 | ;;2.0;INCOME VERIFICATION MATCH;**71**;21-OCT-94
|
---|
3 | ;
|
---|
4 | ; A MailMan message will be sent to the user when the cleanup process
|
---|
5 | ; is complete.
|
---|
6 | ;
|
---|
7 | ;
|
---|
8 | MAIL ; Send a mailman msg to user with results
|
---|
9 | N DIFROM,NODE,MSG,XMDUZ,XMSUB,XMTEXT,XMY
|
---|
10 | S XMSUB="Future Dated MT Distribution/Cleanup"
|
---|
11 | S XMDUZ="IVM*2.0*71 Distribution/Cleanup",XMY(DUZ)=""
|
---|
12 | S XMY("richard.muller@med.va.gov")=""
|
---|
13 | S XMTEXT="MSG(",NODE=0
|
---|
14 | S NODE=NODE+1,MSG(NODE)="Income Test Data (Z10) transmissions may not have"
|
---|
15 | S NODE=NODE+1,MSG(NODE)="been successfully received/uploaded for Income Tests"
|
---|
16 | S NODE=NODE+1,MSG(NODE)="where the effective date of the test has been updated"
|
---|
17 | S NODE=NODE+1,MSG(NODE)="at the HEC."
|
---|
18 | S NODE=NODE+1,MSG(NODE)=""
|
---|
19 | S NODE=NODE+1,MSG(NODE)="An IVM FINANCIAL QUERY has been transmitted to the HEC"
|
---|
20 | S NODE=NODE+1,MSG(NODE)="for each of these records."
|
---|
21 | S NODE=NODE+1,MSG(NODE)=""
|
---|
22 | S NODE=NODE+1,MSG(NODE)=$$REPEAT^XLFSTR("=",50)
|
---|
23 | S NODE=NODE+1,MSG(NODE)="Number of records processed: "_$$RJ^XLFSTR(+$G(^XTMP("IVM71",1)),12)
|
---|
24 | S NODE=NODE+1,MSG(NODE)="Number of queries transmitted: "_$$RJ^XLFSTR(+$G(^XTMP("IVM71",2)),12)
|
---|
25 | S NODE=NODE+1,MSG(NODE)=$$REPEAT^XLFSTR("=",50)
|
---|
26 | S NODE=NODE+1,MSG(NODE)=""
|
---|
27 | ;
|
---|
28 | D ^XMD
|
---|
29 | ;
|
---|
30 | Q
|
---|