193. EPMO Open Source Coordination Office Redaction File Detail Report

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

193.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLIDMP.m Mon Nov 5 16:43:28 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLIDMP.m Mon Nov 5 17:50:20 2018 UTC

193.2 Comparison summary

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

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

193.4 Active regular expressions

No regular expressions were active.

193.5 Comparison detail

  1   CHMLIDMP ; CVA/JEH;CA LC IDME FA CTORS;01/2 4/04;
  2    ;
  3    D INITZ
  4    D HDR
  5    D LOOP
  6    D EPRNT
  7    D CLSE
  8    W !!,"***  End of Up dating IDM E Factors  ***"
  9    Q
  10   INITZ ;OPE N FILES AN D SET VARI ABLES
  11    S IO="HAC FS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. IDMEUPDT." _ENVIR_"]I DME_EXCPT_ RPT_"_FEFF DATE_".TXT "
  12    O IO:"NWS ":5
  13    U IO
  14    S TAB=$C( 9)
  15    D CLRVAR
  16    Q
  17   LOOP ;LOOP  THRU ^CHM ZHOLD
  18    G:'$D(^CH MZHOLD("ID ME","EXCPT N","HAC"))  LP1
  19    S CTR=0 F   S CTR=$O (^CHMZHOLD ("IDME","E XCPTN","HA C",CTR)) Q :'CTR  D
  20    .S TIN=$P (^CHMZHOLD ("IDME","E XCPTN","HA C",CTR),"^ ",1)
  21    .;S MEDNU M=$P(^CHMZ HOLD("IDME ","EXCPTN" ,"HAC",CTR ),"^",2)    ; NOT USE D
  22    .S PNAME= $P(^CHMZHO LD("IDME", "EXCPTN"," HAC",CTR), "^",3)
  23    .S PADDR= $P(^CHMZHO LD("IDME", "EXCPTN"," HAC",CTR), "^",4)
  24    .S PCITY= $P(^CHMZHO LD("IDME", "EXCPTN"," HAC",CTR), "^",5)
  25    .S PSTATE =$P(^CHMZH OLD("IDME" ,"EXCPTN", "HAC",CTR) ,"^",6)
  26    .S PZIP=$ P(^CHMZHOL D("IDME"," EXCPTN","H AC",CTR)," ^",7)
  27    .S PWAGE= $P(^CHMZHO LD("IDME", "EXCPTN"," HAC",CTR), "^",8)
  28    .S PIDME= $P(^CHMZHO LD("IDME", "EXCPTN"," HAC",CTR), "^",9)
  29    .D EPRNT
  30   LP1 ;
  31    G:'$D(^CH MZHOLD("ID ME","EXCPT N","PROV") ) LP2
  32    S CTR=0 F   S CTR=$O (^CHMZHOLD ("IDME","E XCPTN","PR OV",CTR))  Q:'CTR  D
  33    .S TIN=$P (^CHMZHOLD ("IDME","E XCPTN","PR OV",CTR)," ^",1)
  34    .S MEDNUM =$P(^CHMZH OLD("IDME" ,"EXCPTN", "PROV",CTR ),"^",2)
  35    .S PNAME= $P(^CHMZHO LD("IDME", "EXCPTN"," PROV",CTR) ,"^",3)
  36    .S PADDR= $P(^CHMZHO LD("IDME", "EXCPTN"," PROV",CTR) ,"^",4)
  37    .S PCITY= $P(^CHMZHO LD("IDME", "EXCPTN"," PROV",CTR) ,"^",5)
  38    .S PSTATE =$P(^CHMZH OLD("IDME" ,"EXCPTN", "PROV",CTR ),"^",6)
  39    .S PZIP=$ P(^CHMZHOL D("IDME"," EXCPTN","P ROV",CTR), "^",7)
  40    .S PWAGE= $P(^CHMZHO LD("IDME", "EXCPTN"," PROV",CTR) ,"^",8)
  41    .S PIDME= $P(^CHMZHO LD("IDME", "EXCPTN"," PROV",CTR) ,"^",9)
  42    .D EPRNT
  43   LP2 ;
  44    Q:'$D(^CH MZHOLD("ID ME","EXCPT N","ZIP"))
  45    S CTR=0 F   S CTR=$O (^CHMZHOLD ("IDME","E XCPTN","ZI P",CTR)) Q :'CTR  D
  46    .S TIN=$P (^CHMZHOLD ("IDME","E XCPTN","ZI P",CTR),"^ ",1)
  47    .S MEDNUM =$P(^CHMZH OLD("IDME" ,"EXCPTN", "ZIP",CTR) ,"^",2)
  48    .S PNAME= $P(^CHMZHO LD("IDME", "EXCPTN"," ZIP",CTR), "^",3)
  49    .S PADDR= $P(^CHMZHO LD("IDME", "EXCPTN"," ZIP",CTR), "^",4)
  50    .S PCITY= $P(^CHMZHO LD("IDME", "EXCPTN"," ZIP",CTR), "^",5)
  51    .S PSTATE =$P(^CHMZH OLD("IDME" ,"EXCPTN", "ZIP",CTR) ,"^",6)
  52    .S PZIP=$ P(^CHMZHOL D("IDME"," EXCPTN","Z IP",CTR)," ^",7)
  53    .S PWAGE= $P(^CHMZHO LD("IDME", "EXCPTN"," ZIP",CTR), "^",8)
  54    .S PIDME= $P(^CHMZHO LD("IDME", "EXCPTN"," ZIP",CTR), "^",9)
  55    .D EPRNT
  56    Q
  57   EPRNT ;PRI NT OUT EXC EPTION REP ORT
  58    W !,TIN,T AB,MEDNUM, TAB,PNAME, TAB,PADDR, TAB,PCITY, TAB,PSTATE ,TAB,PZIP, TAB,PWAGE, TAB,PIDME
  59    D CLRVAR
  60    Q
  61   CLSE ;CLOS E FILES AN D DELETE V ARIABLES
  62    C IO
  63    K TAB
  64    Q
  65   HDR ;SET P AGE HEADER
  66    S TIN="Ex ception Re port of Pr oviders No t Found in  Vendor Fi le" D EPRN T
  67    S Y=DT D  DD^%DT
  68    S TIN="Ru n Date: "_ Y D EPRNT
  69    D EPRNT
  70    S TIN="Ba se 9 TIN"
  71    S MEDNUM= "Medicare  Number"
  72    S PNAME=" Provider N ame"
  73    S PADDR=" Provider S treet Addr ess"
  74    S PCITY=" Provider C ity"
  75    S PSTATE= "Provider  State"
  76    S PZIP="P rovider Zi p Code"
  77    S PWAGE=" Wage Index "
  78    S PIDME=" IDME Facto r"
  79    D EPRNT
  80    Q
  81   CLRVAR ;RE SET VARIAB LES
  82    S TIN=""
  83    S MEDNUM= ""
  84    S PNAME=" "
  85    S PADDR=" "
  86    S PCITY=" "
  87    S PSTATE= ""
  88    S PZIP=""
  89    S PWAGE=" "
  90    S PIDME=" "
  91    Q