| [613] | 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
|
|---|
