IVM289M.m

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 ---IVM289M   1697     printed  Apr 09, 2024@21:03:42                                                                                                                                                                                                     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