source: WorldVistAEHR/trunk/r/INCOME_VERIFICATION_MATCH-IVM/IVM289M.m@ 1800

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

initial load of WorldVistAEHR
File size: 1.6 KB
Line 
1IVM289M ;ALB/RMM IVM Patient File Xref Cleanup Mailman Msg ; 01/27/2004
2 ;;2.0;INCOME VERIFICATION MATCH;**89**:21-OCT-94
3 ;
4 ; This routine was created to handle MailMan message for the
5 ; Cleanup in Patch IVM*2*89
6 ;
7MAIL ; Send a mailman msg to user with results
8 N DIFROM,%,X,XMDUZ,XMSUB,XMTEXT,XMY,Y,MSG
9 N LNCNT
10 ;
11 K ^TMP("IVM289",$J)
12 S XMSUB="IVM Patient File Xref Cleanup"
13 S XMDUZ="IVM Cleanup Package",XMY(DUZ)=""
14 S XMTEXT="MSG("
15 ;
16BLDHD ; Build the message head section of the report
17 S LNCNT=0
18 S LNCNT=LNCNT+1,MSG(LNCNT)=" IVM Patient File Xref Cleanup"
19 S LNCNT=LNCNT+1,MSG(LNCNT)=" Patch IVM*2.0*89 Post Install"
20 S LNCNT=LNCNT+1,MSG(LNCNT)=$$REPEAT^XLFSTR("=",50)
21 ;
22BLDBDY ; Build the data section of the report
23 S LNCNT=LNCNT+1,MSG(LNCNT)=" Recap of Purged Xrefs for Future Dated"
24 S LNCNT=LNCNT+1,MSG(LNCNT)=" Income Tests"
25 S LNCNT=LNCNT+1,MSG(LNCNT)=$$REPEAT^XLFSTR("-",50)
26 S LNCNT=LNCNT+1,MSG(LNCNT)=" Invalid 301.5 record pointers: "_$$RJ^XLFSTR($FN(^XTMP("IVM289",0,"IVM"),","),6)
27 S LNCNT=LNCNT+1,MSG(LNCNT)=" Invalid 408.31 record pointers: "_$$RJ^XLFSTR($FN(^XTMP("IVM289",0,"DGMT"),","),6)
28 S LNCNT=LNCNT+1,MSG(LNCNT)=" Duplicate xref entries: "_$$RJ^XLFSTR($FN(^XTMP("IVM289",0,"DUP"),","),6)
29 S LNCNT=LNCNT+1,MSG(LNCNT)=$$REPEAT^XLFSTR("-",50)
30 S LNCNT=LNCNT+1,MSG(LNCNT)=" Total xrefs checked: "_$$RJ^XLFSTR($FN(^XTMP("IVM289",0,"TOT"),","),6)
31 S LNCNT=LNCNT+1,MSG(LNCNT)=" Total xrefs deleted: "_$$RJ^XLFSTR($FN(^XTMP("IVM289",0,"DEL"),","),6)
32 S LNCNT=LNCNT+1,MSG(LNCNT)=$$REPEAT^XLFSTR("-",50)
33 ;
34SNDMSG ; Send the MailMan message
35 D ^XMD
36 ;
37 Q
Note: See TracBrowser for help on using the repository browser.