source: WorldVistAEHR/trunk/r/INCOME_VERIFICATION_MATCH-IVM/IVM2071M.m@ 1046

Last change on this file since 1046 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1IVM2071M ;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 ;
8MAIL ; 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
Note: See TracBrowser for help on using the repository browser.