38 lines
1.6 KiB
Mathematica
38 lines
1.6 KiB
Mathematica
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
|