- IVM289M ;ALB/RMM IVM Patient File Xref Cleanup Mailman Msg ; 01/27/2004
- ;;2.0;INCOME VERIFICATION MATCH;**89**:21-OCT-94
- ;
- ; This routine was created to handle MailMan message for the
- ; Cleanup in Patch IVM*2*89
- ;
- MAIL ; Send a mailman msg to user with results
- N DIFROM,%,X,XMDUZ,XMSUB,XMTEXT,XMY,Y,MSG
- N LNCNT
- ;
- K ^TMP("IVM289",$J)
- S XMSUB="IVM Patient File Xref Cleanup"
- S XMDUZ="IVM Cleanup Package",XMY(DUZ)=""
- S XMTEXT="MSG("
- ;
- BLDHD ; Build the message head section of the report
- S LNCNT=0
- S LNCNT=LNCNT+1,MSG(LNCNT)=" IVM Patient File Xref Cleanup"
- S LNCNT=LNCNT+1,MSG(LNCNT)=" Patch IVM*2.0*89 Post Install"
- S LNCNT=LNCNT+1,MSG(LNCNT)=$$REPEAT^XLFSTR("=",50)
- ;
- BLDBDY ; Build the data section of the report
- S LNCNT=LNCNT+1,MSG(LNCNT)=" Recap of Purged Xrefs for Future Dated"
- S LNCNT=LNCNT+1,MSG(LNCNT)=" Income Tests"
- S LNCNT=LNCNT+1,MSG(LNCNT)=$$REPEAT^XLFSTR("-",50)
- S LNCNT=LNCNT+1,MSG(LNCNT)=" Invalid 301.5 record pointers: "_$$RJ^XLFSTR($FN(^XTMP("IVM289",0,"IVM"),","),6)
- S LNCNT=LNCNT+1,MSG(LNCNT)=" Invalid 408.31 record pointers: "_$$RJ^XLFSTR($FN(^XTMP("IVM289",0,"DGMT"),","),6)
- S LNCNT=LNCNT+1,MSG(LNCNT)=" Duplicate xref entries: "_$$RJ^XLFSTR($FN(^XTMP("IVM289",0,"DUP"),","),6)
- S LNCNT=LNCNT+1,MSG(LNCNT)=$$REPEAT^XLFSTR("-",50)
- S LNCNT=LNCNT+1,MSG(LNCNT)=" Total xrefs checked: "_$$RJ^XLFSTR($FN(^XTMP("IVM289",0,"TOT"),","),6)
- S LNCNT=LNCNT+1,MSG(LNCNT)=" Total xrefs deleted: "_$$RJ^XLFSTR($FN(^XTMP("IVM289",0,"DEL"),","),6)
- S LNCNT=LNCNT+1,MSG(LNCNT)=$$REPEAT^XLFSTR("-",50)
- ;
- SNDMSG ; Send the MailMan message
- D ^XMD
- ;
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIVM289M 1697 printed Mar 13, 2025@21:05:06 Page 2
- IVM289M ;ALB/RMM IVM Patient File Xref Cleanup Mailman Msg ; 01/27/2004
- +1 ;;2.0;INCOME VERIFICATION MATCH;**89**:21-OCT-94
- +2 ;
- +3 ; This routine was created to handle MailMan message for the
- +4 ; Cleanup in Patch IVM*2*89
- +5 ;
- MAIL ; Send a mailman msg to user with results
- +1 NEW DIFROM,%,X,XMDUZ,XMSUB,XMTEXT,XMY,Y,MSG
- +2 NEW LNCNT
- +3 ;
- +4 KILL ^TMP("IVM289",$JOB)
- +5 SET XMSUB="IVM Patient File Xref Cleanup"
- +6 SET XMDUZ="IVM Cleanup Package"
- SET XMY(DUZ)=""
- +7 SET XMTEXT="MSG("
- +8 ;
- BLDHD ; Build the message head section of the report
- +1 SET LNCNT=0
- +2 SET LNCNT=LNCNT+1
- SET MSG(LNCNT)=" IVM Patient File Xref Cleanup"
- +3 SET LNCNT=LNCNT+1
- SET MSG(LNCNT)=" Patch IVM*2.0*89 Post Install"
- +4 SET LNCNT=LNCNT+1
- SET MSG(LNCNT)=$$REPEAT^XLFSTR("=",50)
- +5 ;
- BLDBDY ; Build the data section of the report
- +1 SET LNCNT=LNCNT+1
- SET MSG(LNCNT)=" Recap of Purged Xrefs for Future Dated"
- +2 SET LNCNT=LNCNT+1
- SET MSG(LNCNT)=" Income Tests"
- +3 SET LNCNT=LNCNT+1
- SET MSG(LNCNT)=$$REPEAT^XLFSTR("-",50)
- +4 SET LNCNT=LNCNT+1
- SET MSG(LNCNT)=" Invalid 301.5 record pointers: "_$$RJ^XLFSTR($FNUMBER(^XTMP("IVM289",0,"IVM"),","),6)
- +5 SET LNCNT=LNCNT+1
- SET MSG(LNCNT)=" Invalid 408.31 record pointers: "_$$RJ^XLFSTR($FNUMBER(^XTMP("IVM289",0,"DGMT"),","),6)
- +6 SET LNCNT=LNCNT+1
- SET MSG(LNCNT)=" Duplicate xref entries: "_$$RJ^XLFSTR($FNUMBER(^XTMP("IVM289",0,"DUP"),","),6)
- +7 SET LNCNT=LNCNT+1
- SET MSG(LNCNT)=$$REPEAT^XLFSTR("-",50)
- +8 SET LNCNT=LNCNT+1
- SET MSG(LNCNT)=" Total xrefs checked: "_$$RJ^XLFSTR($FNUMBER(^XTMP("IVM289",0,"TOT"),","),6)
- +9 SET LNCNT=LNCNT+1
- SET MSG(LNCNT)=" Total xrefs deleted: "_$$RJ^XLFSTR($FNUMBER(^XTMP("IVM289",0,"DEL"),","),6)
- +10 SET LNCNT=LNCNT+1
- SET MSG(LNCNT)=$$REPEAT^XLFSTR("-",50)
- +11 ;
- SNDMSG ; Send the MailMan message
- +1 DO ^XMD
- +2 ;
- +3 QUIT
