Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IVM2071M

IVM2071M.m

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