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@domain.ext")=""
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIVM2071M 1292 printed Dec 13, 2024@02:00:34 Page 2
IVM2071M ;ALB/RMM MT Cleanup Mailman Msg ; 23 DEC 2002
+1 ;;2.0;INCOME VERIFICATION MATCH;**71**;21-OCT-94
+2 ;
+3 ; A MailMan message will be sent to the user when the cleanup process
+4 ; is complete.
+5 ;
+6 ;
MAIL ; Send a mailman msg to user with results
+1 NEW DIFROM,NODE,MSG,XMDUZ,XMSUB,XMTEXT,XMY
+2 SET XMSUB="Future Dated MT Distribution/Cleanup"
+3 SET XMDUZ="IVM*2.0*71 Distribution/Cleanup"
SET XMY(DUZ)=""
+4 SET XMY("richard.muller@domain.ext")=""
+5 SET XMTEXT="MSG("
SET NODE=0
+6 SET NODE=NODE+1
SET MSG(NODE)="Income Test Data (Z10) transmissions may not have"
+7 SET NODE=NODE+1
SET MSG(NODE)="been successfully received/uploaded for Income Tests"
+8 SET NODE=NODE+1
SET MSG(NODE)="where the effective date of the test has been updated"
+9 SET NODE=NODE+1
SET MSG(NODE)="at the HEC."
+10 SET NODE=NODE+1
SET MSG(NODE)=""
+11 SET NODE=NODE+1
SET MSG(NODE)="An IVM FINANCIAL QUERY has been transmitted to the HEC"
+12 SET NODE=NODE+1
SET MSG(NODE)="for each of these records."
+13 SET NODE=NODE+1
SET MSG(NODE)=""
+14 SET NODE=NODE+1
SET MSG(NODE)=$$REPEAT^XLFSTR("=",50)
+15 SET NODE=NODE+1
SET MSG(NODE)="Number of records processed: "_$$RJ^XLFSTR(+$GET(^XTMP("IVM71",1)),12)
+16 SET NODE=NODE+1
SET MSG(NODE)="Number of queries transmitted: "_$$RJ^XLFSTR(+$GET(^XTMP("IVM71",2)),12)
+17 SET NODE=NODE+1
SET MSG(NODE)=$$REPEAT^XLFSTR("=",50)
+18 SET NODE=NODE+1
SET MSG(NODE)=""
+19 ;
+20 DO ^XMD
+21 ;
+22 QUIT
