Produced by Araxis Merge on 11/9/2018 12:34:08 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 | CHMSXCCT.m | Mon Nov 5 16:45:12 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMSXCCT.m | Mon Nov 5 17:51:34 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 158 |
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 | CHMSXCCT ; | |
2 | ;;1.0;CHA MPVA SYSTE M;;APR 16, 2012; | |
3 | ;YJK MTN0 14844 REPO RT FOR DAI LY SXC PAY MENT AMOUN T FROM FMS ACCEPT/RE JECT FILE | |
4 | START ;USE QUEA^CHBP RD TO QUE ROUTINE TO RUN IN BA CKGROUND | |
5 | S IO="HAC _HFS$:[DSM MANAG.CHAM PVA]S741CH 22.1PART", U="^" | |
6 | ;S IO="HA C_HFS$:[DS MMANAG.CHA MPVA]S741C H22_YUN.1P ART",U="^" | |
7 | I $$ENVIR ^CHTFLIB'= "LIVE" S I O="HAC_HFS $:[DSMMANA G.CHAMPVA] S741CH22_" _$$ENVIR^C HTFLIB_".1 PART",U="^ " | |
8 | S ST=$P($ H,",",2) | |
9 | K ^CHMZHO LD("SXC AC CEPT") | |
10 | A ;S $ZE=" ",$ZT="A" | |
11 | S $ZE="" S $ZT="A" ; JEH | |
12 | Q:$P($H," ,",2)-ST>1 80 O IO:" R":5 | |
13 | Q:$TEST=0 ; JEH 7 /19/06 - T his quits process if file not available | |
14 | ;G:$P($H, ",",2)-ST> 180 E1 O I O:"R" | |
15 | A1 S $ZE=" ",$ZT="END ^ZYJKRPTS" | |
16 | O IO:"R": 5 ;JEH 5 /30/07 FIX | |
17 | F U IO R REC Q:$E( REC,33,36) ="SUSF" | |
18 | ;REPLACE %DTC WITH DATE CONVE RT TO CATC H YEAR 200 0 | |
19 | S X=$E(RE C,9,16) S %DT="P" D ^%DT S RD= Y K %DT | |
20 | S HDRDT=X | |
21 | S:'$D(^CH MSNA(74100 8.26,0)) ^ CHMSNA(741 008.26,0)= "CHAMPVA F MS ACCEPT/ REJECT FIL ES^741008. 26D^0^0" | |
22 | ;W !,"ACC EPT/REJCT FOR: "_RD | |
23 | S (COU NT,TOTAMT) =0 | |
24 | A2 ; | |
25 | U IO R REC | |
26 | S CHST AT=$E(REC, 1) | |
27 | S CHREF=$ E(REC,61,6 2) ; | |
28 | G:(CHSTAT '="A") A2 | |
29 | G:(CHREF' ="SO") A2 ; 'SO' = LINE_ITEM/ CLAIM LEVE L | |
30 | S (CHDOCI D,CHCLM)=" " | |
31 | S CHDOCID =$E(REC,4, 14) | |
32 | G:'$D( ^CHMSNA(74 1008.2,"AE ",CHDOCID) ) A2 ; SK IP IF NOT VENDOR DAT A | |
33 | S X=+$E(R EC,44,58) | |
34 | S CHAMT=0 | |
35 | S:X'=0 CH AMT=$E(X,1 ,($L(X)-2) )_"."_$E(X ,($L(X)-1) ,$L(X)) | |
36 | S CHCLM=$ E(REC,25,3 1) | |
37 | S CI=$ O(^CHMPAY( "B",CHCLM, "")) | |
38 | I '$D( CI)!(CI="" ) G A2 | |
39 | G:('$D (^CHMPAY(C I,"ZEMC"," SXC"))) A2 | |
40 | A3 ; | |
41 | S ^CHMZHO LD("SXC AC CEPT",CHCL M)=CI_U_CH AMT_U_CHDO CID | |
42 | S COUNT=C OUNT+1 | |
43 | S TOTAMT= TOTAMT+CHA MT | |
44 | G A2 | |
45 | END ; | |
46 | C IO | |
47 | I $ZE'["E NDOFFILE" D ^%ET Q | |
48 | ;K ^CHMZH OLD("SXC A CCEPT") | |
49 | ;W !!!!," TOTAL AMOU NT FOR "_H DRDT_" = " _TOTAMT | |
50 | ;W !,"TOT AL CLAIM C OUNT = "_C OUNT,!! | |
51 | ||
52 | S CNT= 1,^TMP($J, "SXC-COUNT ",CNT)="", CNT=CNT+1 | |
53 | S ^TMP ($J,"SXC-C OUNT",CNT) =" SXC cla ims counts for accep t file ret urned on " _HDRDT_":" ,CNT=CNT+1 | |
54 | S ^TMP ($J,"SXC-C OUNT",CNT) =" ",CNT=C NT+1 | |
55 | S ^TMP($J ,"SXC-COUN T",CNT)=" TOTAL AMOUNT = " _TOTAMT,CN T=CNT+1 | |
56 | S ^TMP($J ,"SXC-COUN T",CNT)=" TOTAL CLAIM COUN T = "_COUN T,CNT=CNT+ 1 | |
57 | S ^TMP($J ,"SXC-COUN T",CNT)=" ",CNT=CNT+ 1 | |
58 | I $$ENVIR ^CHTFLIB() ="LIVE" S XMDUZ=.5,X MY(" P I I ")="",XMY( " PII ")="",XMY( " PII ")="",XMY( " PII ")="" | |
59 | ;I $$ENVI R^CHTFLIB( )'="LIVE" S XMDUZ=.5 ,XMY(DUZ)= "" | |
60 | S XMTEXT= "^TMP($J," "SXC-COUNT ""," | |
61 | S XMSUB=" SXC CLAIMS ACCEPTED ==> TEST" D ^XMD | |
62 | ||
63 | K CHAMT,T OTAMT,CNT, CI,CHCLM,C HDOCID,CHR EF,CHSTAT, HDRDT | |
64 | Q | |
65 | QUEA ;QUE THIS ROUTI NE MANUALL Y. | |
66 | I '$D(DUZ ) S DUZ=40 6865,DUZ(0 )="@" | |
67 | D NOW^%DT C S DT=X | |
68 | S DTIME=3 00 | |
69 | S U="^" | |
70 | S CHFIO=" " | |
71 | S ZTRTN=" START^ZYJK RPTS",ZTDE SC="SXC BA TCH_ACCEPT REPORT" | |
72 | S ZTIO="" ,ZTSAVE("C HFIO")="" | |
73 | D ^%ZTLOA D | |
74 | Q | |
75 | ENVIR() ;F UNCTION TO DETERMINE SYSTEM RU NNING ON ;JEH 5/20/ 08 TT #DEV 003699-1 | |
76 | N AYGSYS | |
77 | S AYGSYS= $P(^XTV(89 89.3,1,0), U) S AYGSY S=$P(^DIC( 4.2,AYGSYS ,0),U) | |
78 | S AYGSYS= $P(AYGSYS, ".") | |
79 | S AYGSYS= $S(AYGSYS= "HAC":"LIV E",1:AYGSY S) | |
80 | Q AYGSYS |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.