| 1 | IVM289M ;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 | ;
|
|---|
| 7 | MAIL ; 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 | ;
|
|---|
| 16 | BLDHD ; 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 | ;
|
|---|
| 22 | BLDBDY ; 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 | ;
|
|---|
| 34 | SNDMSG ; Send the MailMan message
|
|---|
| 35 | D ^XMD
|
|---|
| 36 | ;
|
|---|
| 37 | Q
|
|---|
