22. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:33:42 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.

22.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCLMRPT.m Mon Nov 5 16:41:59 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCLMRPT.m Tue Nov 6 22:04:48 2018 UTC

22.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 140
Changed 1 2
Inserted 0 0
Removed 0 0

22.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

22.4 Active regular expressions

No regular expressions were active.

22.5 Comparison detail

  1   CHCLMRPT ; JPN CLAIM  REPORT CRE ATED FOR C R DEV00469 0-01;08/25 /08  9:15A M
  2    ;THIS IS  TO BE A RE PORT TO SH OW ALL CLA IM FROM 1/ 1/08 TO 1/ 31/08 BROK EN DOWN
  3    ;INTO A L IST THAT S HOWS PAPER  CLAIMS, O CR CLAIMS,  AND EDI C LAIMS WITH  EACH
  4    ;LIST HAV ING A TOTA L OF HOW M ANY CLAIMS  FELL INTO  EACH CATA GORY.
  5   START ;STA RT OF ROUT INE
  6    K ^CHMZHO LD("CLMRPT ")
  7    D RSTART
  8    D OUTPUT
  9    Q
  10    ;
  11   RSTART;
  12    S (PPRCLM ,OCRCLM,ED ICLM,CNT)= 0
  13    S (CHNOD0 ,CHDTE)=""
  14    S CLMNUM= 44000000
  15    W !,"PROC ESSING "
  16    F  S CLMN UM=$O(^CHM PAY(CLMNUM )) Q:CLMNU M=""  D
  17    . S CHNOD 0=$G(^CHMP AY(CLMNUM, 0))
  18    . S CHDTE =$E($P(CHN OD0,"^",25 ),1,7)  ;C LAIM CREAT ION DATE
  19    . S CNT=C NT+1
  20    . I CNT=1 00000 D PR OC
  21    . Q:CHDTE >3080131
  22    . Q:CHDTE <3080101
  23    . S CHMPD I=""
  24    . S CHMPD I=$P(^CHMP AY(CLMNUM, "PDI",1,0) ,"^",1)
  25    . S CHLAB EL=$E(CHMP DI,8,9)
  26    . S ^CHMZ HOLD("CLMR PT",CHLABE L,CNT)=CLM NUM_"^"_CH LABEL
  27    . I CHLAB EL="02" S  PPRCLM=PPR CLM+1
  28    . I CHLAB EL="03" S  PPRCLM=PPR CLM+1
  29    . I CHLAB EL="04" S  PPRCLM=PPR CLM+1
  30    . I CHLAB EL="05" S  PPRCLM=PPR CLM+1
  31    . I CHLAB EL="06" S  PPRCLM=PPR CLM+1
  32    . I CHLAB EL="07" S  PPRCLM=PPR CLM+1
  33    . I CHLAB EL="08" S  PPRCLM=PPR CLM+1
  34    . I CHLAB EL="09" S  PPRCLM=PPR CLM+1
  35    . I CHLAB EL="10" S  PPRCLM=PPR CLM+1
  36    . I CHLAB EL="50" S  PPRCLM=PPR CLM+1
  37    . I CHLAB EL="60" S  PPRCLM=PPR CLM+1
  38    . I CHLAB EL="70" S  PPRCLM=PPR CLM+1
  39    . I CHLAB EL="98" S  PPRCLM=PPR CLM+1   ;? ??  CMOP   NOT SURE I F THIS IS  PAPER OR N OT
  40    . I CHLAB EL="91" S  EDICLM=EDI CLM+1
  41    . I CHLAB EL="92" S  EDICLM=EDI CLM+1
  42    . I CHLAB EL="93" S  EDICLM=EDI CLM+1
  43    . I CHLAB EL="99" S  EDICLM=EDI CLM+1
  44    . I CHLAB EL="94" S  OCRCLM=OCR CLM+1
  45    . I CHLAB EL="95" S  OCRCLM=OCR CLM+1
  46    . I CHLAB EL="96" S  OCRCLM=OCR CLM+1
  47    Q
  48   OUTPUT ;WR ITES OUT T O SCREEN
  49    S CNT=0,L BL=0
  50    S FIO="HA CFS3"" DNS       HACdec741! ""::D:[FS3 BIG]CLMRPT .TXT"
  51    O FIO:"NW S" ;APPEND S TO FILE 
  52    U FIO W !
  53    W !!!,?10 ,"CLAIM RE PORT FOR A LL CLAIMS  BETWEEN TH E PERIOD O F"
  54    W !,?20," JAN. 1 200 8 THROUGH  JAN.31 200 8"
  55    W !!,"CLA IM NUMBER" ,?30,"CLAI M LABEL"
  56    W !,"---- --------", ?30,"----- ------"
  57    F  S LBL= $O(^CHMZHO LD("CLMRPT ",LBL)) Q: LBL=""  D
  58    . F  S CN T=$O(^CHMZ HOLD("CLMR PT",LBL,CN T)) Q:CNT= ""  D
  59    .. S CLMN UM=$P(^CHM ZHOLD("CLM RPT",LBL,C NT),"^",1) ,CLMLBL=$P (^CHMZHOLD ("CLMRPT", LBL,CNT)," ^",2)
  60    .. W !,CL MNUM,?30,C LMLBL
  61    W !!!,?10 ,"CLAIM RE PORT FOR A LL CLAIMS  BETWEEN TH E PERIOD O F"
  62    W !,?20," JAN. 1 200 8 THROUGH  JAN.31 200 8"
  63    W !!,"PAP ER CLAIMS:  ",PPRCLM
  64    W !,"OCR  CLAIMS: ", OCRCLM
  65    W !,"EDI  CLAIMS: ", EDICLM
  66    C FIO
  67    Q
  68   PROC ;
  69    W "."
  70    S CNT=0
  71    Q