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 | CHMXMM07.m | Mon Nov 5 16:43:04 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMXMM07.m | Mon Nov 5 17:53:00 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 126 |
Changed | 2 | 10 |
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 | CHMXMM07 ; HAC/RKN;Au to process 837's rep ort/email; 06/17/04 | |
2 | ;;V1.0;;R KN | |
3 | ;Schedule to start at 1230PM MONDAY-SAT URDAY | |
4 | ; | |
5 | ; | |
6 | INIT D NOW ^%DTC | |
7 | S CURDTE= $E(%,2,7), RPTTIME=$E (%,9,14),R PTDTE=$E(% ,4,5)_"/"_ $E(%,6,7)_ "/20"_$E(% ,2,3),CRED TE=0,PDTM= 0,PROCTIME =0,PROCDTE =0,BATNUM= 0,CLMCNT=0 ,BIVAL=0,B REC0=0,BRE C80=0,CKTC NT=0,BATCN T=0,CLMDOL S=0,VERTYP E=0,EDIOCR ="",SUBMTR ="" | |
8 | S CHNB=2, ZML(CHNB)= "",BATDTE= $E(%,1,7) | |
9 | ; | |
10 | GETBAT S B ATDTE=$O(^ CHMXCL("B" ,BATDTE)) | |
11 | S BATNUM= $O(^CHMXCL ("B",BATDT E,BATNUM)) -1 | |
12 | ; | |
13 | S EPROCDT E=$E(CURDT E,3,4)_"/" _$E(CURDTE ,5,6)_"/"_ $E(CURDTE, 1,2) | |
14 | ; | |
15 | STRT1 I '$ D(BATNUM) G END | |
16 | S BATNUM= $O(^CHMXCL A("B",BATN UM)) G:'BA TNUM SENDS UC | |
17 | S CREDTE= 0,PDTM=0,P ROCTIME=0, PROCDTE=0, CLMCNT=0,B IVAL=0,BRE C0=0,BREC8 0=0,CKTCNT =0,BATCNT= 0,CLMDOLS= 0,VERTYPE= 0,EDIOCR=" " | |
18 | S BIVAL=$ O(^CHMXCLA ("B",BATNU M,BIVAL)), BREC0=^CHM XCLA(BIVAL ,0),BREC80 =^CHMXCLA( BIVAL,80), VERTYPE=$P (BREC0,"^" ,13),EDIOC R=$P(^CHMX CLA(BIVAL, 80),"^",7) | |
19 | ; | |
20 | CKEDI I ED IOCR'=0 G STRT1 ; Check for & process edi batche s only | |
21 | S SUBMTR= $P(^CHMXCL A(BIVAL,1) ,"^",2),CR EDTE=$E($P (^CHMXCL(B ATNUM,0)," ^",1),2,7) ,PDTM=$P(^ CHMXCL(BAT NUM,0),"^" ,1),PROCDT E=$E(PDTM, 4,5)_"/"_$ E(PDTM,6,7 )_"/20"_$E (PDTM,2,3) ,PROCTIME= $E(PDTM,9, 14),PDTM=$ P(^CHMXCL( BATNUM,0), "^",1) | |
22 | S CLMCNT= $P(^CHMXCL (BATNUM,0) ,"^",2),CK TCNT=$P(^C HMXCL(BATN UM,0),"^", 3) | |
23 | ; | |
24 | FAILBAT I '$D(^CHMXC L(BATNUM,8 0)) D G S TRT1 | |
25 | .S FAILFL G=0 | |
26 | .I $E(VER TYPE,12,15 )="96A1" S VER2="96A 1 INSTITUT IONAL" | |
27 | .I $E(VER TYPE,12,15 )="97A1" S VER2="97A 1 DENTAL" | |
28 | .I $E(VER TYPE,12,15 )="98A1" S VER2="98A 1 PROFESSI ONAL" | |
29 | .I EDIOCR =0 S EDIOC R2="EDI" | |
30 | .I EDIOCR =1 S EDIOC R2="OCR" | |
31 | .D MMSUC | |
32 | .Q | |
33 | S BATCNT= $P(^CHMXCL (BATNUM,80 ),"^",3),C LMDOLS=$P( ^CHMXCL(BA TNUM,80)," ^",4) | |
34 | ; | |
35 | CKDTE I CR EDTE'=BATD TE=$E(%,2, 7) G STRT1 | |
36 | I $E(VERT YPE,12,15) ="96A1" S VER2="96A1 INSTITUTI ONAL" | |
37 | I $E(VERT YPE,12,15) ="97A1" S VER2="97A1 DENTAL" | |
38 | I $E(VERT YPE,12,15) ="98A1" S VER2="98A1 PROFESSIO NAL" | |
39 | I EDIOCR= 0 S EDIOCR 2="EDI" | |
40 | I EDIOCR= 1 S EDIOCR 2="OCR" | |
41 | ; | |
42 | MMSUC S ZM L(CHNB)="" ,CHNB=CHNB +1 | |
43 | I '$D(FAI LFLG) S ZM L(CHNB)="* ***** Suce ssful Suc essful Su cessful ** ****",CHNB =CHNB+1 | |
44 | I $D(FAIL FLG) S ZML (CHNB)="** **** FAILE D FAILED F AILED FAIL ED FAILED FAILED *** ***",CHNB= CHNB+1 | |
45 | S ZML(CHN B)="",CHNB =CHNB+1,ZM L(CHNB)="B ATCH NUMBE R......... .......... .: "_BATNU M,CHNB=CHN B+1,ZML(CH NB)="DATE/ TIME FILE OPENED.... .......: " _PROCDTE_" @"_PROCTIM E,CHNB=CHN B+1,ZML(CH NB)="NUMBE R OF TRANS ACTIONS (A 005)...: " _CLMCNT,CH NB=CHNB+1 | |
46 | S ZML(CHN B)="CHECK TRANSACTIO N COUNT (A 999)..: "_ CKTCNT,CHN B=CHNB+1 | |
47 | I '$D(FAI LFLG) S ZM L(CHNB)="T OTAL HAC C LAIMS/BATC H......... .: "_BATCN T,CHNB=CHN B+1 | |
48 | I '$D(FAI LFLG) S ZM L(CHNB)="T OTAL CLM D OLLARS/BAT CH........ .: "_CLMDO LS,CHNB=CH NB+1 | |
49 | S ZML(CHN B)="VERSIO N-FUNCTION AL TYPE NO ......: "_ VER2,CHNB= CHNB+1,ZML (CHNB)="ED -OCR FLAG. .......... .......... : "_EDIOCR 2,CHNB=CHN B+1,ZML(CH NB)="SUBMI TTER...... .......... .......: " _SUBMTR,CH NB=CHNB+1 | |
50 | S ZML(CHN B)="HAC_HF S$:[KERMIT ]......... ...: "_CHF IO,CHNB=CH NB+1 | |
51 | K FAILFLG | |
52 | G STRT1 | |
53 | Q | |
54 | ; | |
55 | SENDSUC S XMDUZ=.5 | |
56 | S XMY("27 4577")="" | |
57 | S XMY(" PII ")="" | |
58 | S XMY("24 6183")="" | |
59 | S XMY("
|
|
60 | ;S XMY(" PII ")= "" | |
61 | ;S XMY("
|
|
62 | ;S XMY(" P I I ")="" | |
63 | S XMTEXT= "ZML(",XMS UB="837 Pr ocessed Ba tches for "_EPROCDTE | |
64 | D ^XMD | |
65 | ; | |
66 | END K CURD TE,RPTTIME ,RPTDTE,CR EDTE,PDTM, PROCTIME,P ROCDTE,BAT NUM,CLMCNT ,BIVAL,BRE C0,BREC80, CKTCNT,BAT CNT,CLMDOL S,VERTYPE, EDIOCR,SUB MTR,EPROCD TE,CHNB,ED IOCR2,VER2 ,XMDUZ,XMZ ,ZML,XMDUN ,FCHNB,XMT EXT,XMY,BA TDTE | |
67 | ; | |
68 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.