248. EPMO Open Source Coordination Office Redaction File Detail Report

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.

248.1 Files compared

# 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

248.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 126
Changed 2 10
Inserted 0 0
Removed 0 0

248.3 Comparison options

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

248.4 Active regular expressions

No regular expressions were active.

248.5 Comparison detail

  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("
P II                   ")=""
  60    ;S XMY(" PII                               ")= ""
  61    ;S XMY("
P II                        ")=""
  62    ;S XMY(" P 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