172. EPMO Open Source Coordination Office Redaction File Detail Report

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

172.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLCMA8.m Mon Nov 5 16:39:14 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLCMA8.m Mon Nov 5 17:50:00 2018 UTC

172.2 Comparison summary

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

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

172.4 Active regular expressions

No regular expressions were active.

172.5 Comparison detail

  1   CHMLCMA8 ; CVA/DTP;PR INT-END OF  CMAC LOAD  WITH RECO RD COUNT;0 2/20/98  7 :52 AM
  2    ;;1.0
  3    ;CPTS #13 733 BY DTP  (13-FEB-9 8)
  4    ;   DPT P RINT TO MA IL MAN
  5   START S X= DT D DTPRT  S DATE=Y, PG=1,X=$P( $H,",",2), H=X\3600,M =X#3600\60
  6    S:M<10 M= 0_M S:H<10  H=0_M S T IME=H_M D  HEAD
  7    ;INSERT D ATA SORTS/ WRITE HERE
  8    S Y=CHBEG DT X ^DD(" DD")
  9    S XMY(DUZ )=""  ;DUZ  THAT LOAD ED CODE ;D PT
  10    ;S XMY(" PII             ")=""    ;HAC PST G ROUP ;DPT
  11    S XMDUZ=D UZ,XMSUB=" CMAC REPOR T "_$$FMTE ^XLFDT(DT, "5D") ;DPT
  12    S TEXT(1) ="This rep ort signif ies comple tion of CM AC update  for:  "_Y  ;DPT
  13    S TEXT(2) ="The tota l number o f records  read:  "_C M ;DPT
  14    S TEXT(2) ="The tota l number o f new adds :  "_CHNEW CT ;DPT
  15    S XMTEXT= "TEXT("  ; DPT
  16    I '$D(^CH MZHOLD("CM AC-DTERR") ) S TEXT(2 )=" Date D iscrepanci es Noted."  ; G END
  17    D ^XMD
  18    ;W !!,"PL EASE SAVE  THIS REPOR T FOR CMAC  UPDATE PR OGRAMMER!! !"
  19    ;W !!!!!! !,"This re port signi fies compl etion of C MAC update  for:  ",Y
  20    ;W !!,"Th e total nu mber of re cords read :  ",CM
  21    ;W !!,"Th e total nu mber of ne w adds:  " ,CHNEWCT,! !!
  22    ;I '$D(^C HMZHOLD("C MAC-DTERR" )) S TEXT( 2)=" Date  Discrepanc ies Noted. " G END
  23    S CM=0 D  HEAD1
  24   PR1 S CM=$ O(^CHMZHOL D("CMAC-DT ERR",CM))  G:'CM END
  25    S D=^CHMZ HOLD("CMAC -DTERR",CM )
  26    I $Y>56 D  HEAD,HEAD 1
  27    W !,CM,?1 2,D
  28    G PR1
  29   END Q
  30    ; 
  31   HEAD S TEX T(1)=DUZ_"  HEALTH AD MINISTRATI ON CENTER  "_" Page:  "_PG S PG= PG+1
  32    ;INSERT A PPROPRIATE  TITLE IN  NEXT LINE- CHECK TAB
  33    S TEXT(1) =TIME_" CM AC Update  Report"_$E (DT,4,7)_$ L(DATE)/2_ DATE
  34    Q
  35    ; 
  36   HEAD1 S TE XT(1)="Rec ord No."_" Recorded D ata (Wrapp ed)"_"---- ------"_"- ---------- ---------- --"
  37    Q
  38    ; 
  39   DTPRT S Y= "" Q:X'?7N   S Y=$E(X ,1,3)+1700 ,%M=+$E(X, 4,5),%D=+$ E(X,6,7)
  40    I %M S:%D  Y=$E(" ", $L(%D))_%D _", "_Y S  Y=$P($P($T (JAN),";;" ,2)," ",%M )_""_Y
  41    Q
  42   JAN ;;JAN  FEB MAR AP R MAY JUN  JUL AUG SE P OCT NOV  DEC   
  43    ;