Produced by Araxis Merge on 11/9/2018 12:34:15 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 | CHMXWR01.m | Mon Nov 5 16:40:38 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMXWR01.m | Mon Nov 5 17:53:56 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 112 |
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 | CHMXWR01 ;HAC /FWP; Prin t the HAC EOB Reason Codes & X 12 Crosswa lk ;08/26/ 08 | |
2 | ;Usi ng the Glo bals ^CHMX DIC(741201 .77; ^CHMX DIC(741201 .16; ^CHMD IC(741002. 22 | |
3 | ;FWP ;MTN005433 ;08/26/08; EXPORTS CR OSSWALK CO DES TO FS3 BIG.MARYAN N.HAC_EOB_ X12_XWALK. TXT | |
4 | ;FWP ;DEV005433 -02;09/02/ 08;RENAME ^ZFWP005 T O ^CHMXWR0 1 TO MOVE TO TST | |
5 | ; | |
6 | CARCCODE ;Exp ort Claim Adjustment Reason Co de Numbers and Descr iptions: | |
7 | D NO W^%DTC ; Set curent Date / Ti me | |
8 | S IO FILE="HAC_ EOB_X12_Xw alk_"_X_". TXT" | |
9 | S XFILE="H ACFS3"" DNS decnet HAC dec741!"": :D:" | |
10 | S XFILE =XFILE_"[F s3big.Mary ann]" | |
11 | S XFILE =XFILE_IOF ILE | |
12 | S IDX=" ", RC=0, I ND="" | |
13 | O XFILE :"NWS" DO INIT,HEADE R,DETAIL C XFILE | |
14 | Q | |
15 | ; | |
16 | INIT ;Set up ex port heade r: | |
17 | ;Active S tatus; | |
18 | ;HAC R sn cd; | |
19 | ;HAC R sn cd Desc ; | |
20 | ;Claim Adj Grp c d#1; | |
21 | ;Claim Adj Rsn c d#1; | |
22 | ;Claim Adj Rsn c d Desc; | |
23 | ;Claim Rmrk cd#1 ; | |
24 | ;Claim Rmrk cd#2 ; | |
25 | S HDR= "" | |
26 | F I=1: 1:8 S X=$T (INIT+I),X =$P(X,";", 2),HDR=HDR _X I I<8 S HDR=HDR_$ C(9) | |
27 | Q | |
28 | ; | |
29 | HEADER ;E xport head er: | |
30 | U XFIL E W HDR,! | |
31 | Q | |
32 | ;----- ---------- ---------- ---------- ---------- -----; | |
33 | ; | |
34 | DETAIL ; Loop throu gh array, get a code , send to export fil e: | |
35 | F S R C=$O(^CHMX DIC(741201 .77,"B",RC )) Q:RC'>0 D | |
36 | .S IDX =$O(^CHMXD IC(741201. 77,"B",RC, 0)) | |
37 | .I IDX >0 D OUTPU T(RC,IDX) | |
38 | Q | |
39 | ;----- ---------- ---------- ---------- ---------- -----; | |
40 | OUTPUT(R,I ) ;Put a row out to file: | |
41 | S HRC=$P( ^CHMXDIC(7 41201.77,I ,0),"^",1) ; Ge t HAC Reas on code | |
42 | S I22=$O( ^CHMDIC(74 1002.22,"B ",HRC,0)) ; Get new I22 xr ef | |
43 | S HRCDESC =$P(^CHMDI C(741002.2 2,I22,0)," ^",2) ; Get HA C Rsn code Descripti on | |
44 | S IND=($P (^CHMDIC(7 41002.22,I 22,0),"^", 3)) ; Se t Active S tatus flag | |
45 | I IND'="" S IND=$S( IND=0:"A", 1:"N") ; Mark I ND (Indica tor) flag | |
46 | S CAGC 1=$P(^CHMX DIC(741201 .77,I,0)," ^",2) ; Get Claim Adj Group code #1 | |
47 | S CARC 1=$P(^CHMX DIC(741201 .77,I,0)," ^",3) ; Get Claim Adj Reason cod e #1 | |
48 | S CARC DESC="" I CARC1'="" D ; Ini tialize va riables | |
49 | .Q:'$D (^CHMXDIC( 741201.16, "B",CARC1) ) ; Quit if pointe r is null | |
50 | .S I16 =$O(^CHMXD IC(741201. 16,"B",CAR C1,0)) ; Get the Desc, only if da ta exists | |
51 | .S CAR CDESC=$P(^ CHMXDIC(74 1201.16,I1 6,0),"^",2 ) ; Get Clm Adj R sn cd Desc , using I1 6 pointer | |
52 | S CRC1 =$P(^CHMXD IC(741201. 77,I,0),"^ ",6) ; Get Claim Rema rk code #1 | |
53 | S CRC2 =$P(^CHMXD IC(741201. 77,I,0),"^ ",7) ; Get Claim Rema rk code #2 | |
54 | ; Writ e data lin e | |
55 | U XFIL E W IND_$C (9)_HRC_$C (9)_HRCDES C_$C(9)_CA GC1_$C(9)_ CARC1_$C(9 )_CARCDESC _$C(9)_CRC 1_$C(9)_CR C2,! | |
56 | Q | |
57 | ;----- ---------- ---------- ---------- ---------- -----; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.