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