Produced by Araxis Merge on 11/9/2018 12:34:11 AM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMXMM06.m | Mon Nov 5 16:42:29 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMXMM06.m | Mon Nov 5 17:52:59 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 96 |
Changed | 1 | 2 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | CHMXMM06 ; CVA/DTP;MS G TO FISCA L RE: VOID /CANCELED CLAIM;10/1 7/03 9:06 AM | |
2 | ;;1.0; | |
3 | S DUZHOLD =DUZ,DUZ=. 5,(NUM,PTX )=0 | |
4 | G END:'$D (^XMB(3.8, "B","DCU") ) | |
5 | A1 S NUM=$ O(^XMB(3.8 ,"B","DCU" ,NUM)) G E ND:'NUM | |
6 | A11 S PTX= $O(^XMB(3. 8,NUM,1,PT X)) G STAR T:'PTX | |
7 | S RDUZ=$P (^XMB(3.8, NUM,1,PTX, 0),"^",1) | |
8 | S XMY(RDU Z)="" | |
9 | G A11 | |
10 | START S XM Y(" PII ")="" | |
11 | S CHTXTNM ="CMTEXT" D TEXT | |
12 | S CHTXTNM ="VOID" D TEXT | |
13 | D CLMNUM | |
14 | D MAIL | |
15 | END S DUZ= DUZHOLD | |
16 | K CHTXTNM ,HOLDJ,JJ, TIMES,LEN, SPACE,^UTI LITY($J,"E DI VOID CL M") | |
17 | K NUM,PTX ,DOMN,RDUZ ,DUZHOLD,X MY,XMSUB,X MTEXT,XMDU Z,CHMXCLM | |
18 | Q | |
19 | ; | |
20 | TEXT F I=1 :1 S X=$P( $T(@(CHTXT NM)+I),";" ,2) Q:X="E ND" S:$E( X,1,5)=" To:" X=X_" DCU GROU P" D BUILD | |
21 | Q | |
22 | ; | |
23 | BUILD D SP ACE I '$D( ^UTILITY($ J,"EDI VOI D CLM",1)) S HOLDJ=0 | |
24 | S JJ=HOLD J+1,^UTILI TY($J,"EDI VOID CLM" ,1,JJ,0)=X ,HOLDJ=JJ Q | |
25 | ; | |
26 | SPACE S LE N=$L(X) S TIMES=74-L EN,SPACE=" " F II=1:1 :TIMES S S PACE=SPACE _" " | |
27 | S X=X_SPA CE Q | |
28 | ; | |
29 | CLMNUM S X ="The clai m number i s: "_CHMX CLM D BUIL D | |
30 | Q | |
31 | ; | |
32 | MAIL S XMS UB="POS RE COUP ON VO IDED EDI C LM",XMDUZ= DUZ | |
33 | S XMTEXT= "^UTILITY( $J,""EDI V OID CLM"", 1,",U="^" D ^XMD | |
34 | Q | |
35 | CMTEXT ; | |
36 | ;From: C IO, Health Administr ation Cent er | |
37 | ; | |
38 | ;Subj: P ossible Re coupment o n Voided/C ancelled C laim | |
39 | ; | |
40 | ; To: | |
41 | ;END | |
42 | VOID ; | |
43 | ; | |
44 | ; An X 12 EDI bat ch process ed today r evealed th e followin g claim | |
45 | ; was voided or cancelled by the pro vider (see below). This | |
46 | ; clai m may need to be rec ouped by t he DCU. P lease cont act CIO | |
47 | ; if y ou believe this mess age to be in error. | |
48 | ;END | |
49 | ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.