12. EPMO Open Source Coordination Office Redaction File Detail Report

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

12.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHBPF91.m Mon Nov 5 16:42:53 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHBPF91.m Tue Nov 6 21:33:31 2018 UTC

12.2 Comparison summary

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

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

12.4 Active regular expressions

No regular expressions were active.

12.5 Comparison detail

  1   CHBPF91 ;C VA/AEB;REM OVE CLAIMS  IN THE PS Q;01/02/93   11:41 AM
  2    ;V1.0
  3   START ;
  4    S CHQERR= " DN S
"
  5    S QUEDT=0 ,STAT=1,CT =0
  6   A1 S QUEDT =$O(^CHMPS Q("D",STAT ,QUEDT)) G :'QUEDT EN D
  7    S QUEPT=0
  8   A2 S QUEPT =$O(^CHMPS Q("D",STAT ,QUEDT,QUE PT)) G:'QU EPT A1
  9    I '$D(^CH MPSQ(QUEPT ,0)) G A2
  10    S REC=^CH MPSQ(QUEPT ,0),CLMPT= $P(REC,U,2 ),ERROR=$P (REC,U,5)
  11    I (ERROR[ CHQERR) D   G A2
  12    .S CLPTR= $P(^CHMPSQ (QUEPT,0), "^",2)
  13    .S DIK="^ CHMPSQ(",D A=QUEPT D  ^DIK K DIK ,DA
  14    .S CHMQNA M="CHMPSQ( ",CHMOUT=" " K CHMIN  D ^CHMIS04 1
  15    .S CT=CT+ 1
  16    .D PRCLMS
  17    .Q
  18    G A2
  19   END I STAT =1 S STAT= 2,QUEDT=0  G A1
  20    W !,"TOTA L NUMBER O F CLAIMS W ORKED ",CT
  21    K REC,CT, CLMPT,CLMN UM,QUEDT,Q UEPT,STAT
  22    Q
  23   PRCLMS ;se nd claim t hru benefi t calc
  24    Q
  25    S CLM=CLP TR
  26    ;D ^CHMFU TLD   ; DE LETION OF  CALCULATIO N FACTORS    SET CLM  = CLMPTR
  27    S CLNM=""  S CLNM=$P (^CHMPAY(C LM,0),"^", 1)
  28    S X1=CLM  D PROGTYP^ CHFCD001   ;SET CLAIM  PARAMETER S
  29    K CHMFCLM S
  30    S CHMFCLM S(CLNM)=CL
  31    ;D QUE2^C HFCDUTL    ; Submissi on queued  for check  data and b enefit cal c
  32    K CHMFCLM S
  33    Q
  34