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 Nov 22, 2024@17:11:11 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
