- 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 Jan 18, 2025@03:00:58 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