112. EPMO Open Source Coordination Office Redaction File Detail Report

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

112.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMHMS11.m Mon Nov 5 16:45:16 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMHMS11.m Mon Nov 5 17:47:47 2018 UTC

112.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 5 226
Changed 4 8
Inserted 0 0
Removed 0 0

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

112.4 Active regular expressions

No regular expressions were active.

112.5 Comparison detail

  1   CHMHMS11 ; HAC/JSG;HM S INSURANC E VERIFICA TION (RETU RN FILE NA ME);09/09/ 08 10:10AM
  2            ; DEV004972- 03;Add HMS  Return Fi le name. T he File na me is nece ssary to  
  3            ; process th e Return F ile to pri nt the dis crepancy r eport: HMS  Insurance
  4            ; Verificati on Report  (CHMHMS05) .                                          
  5            ; If %BTF is  defined &  true, the  routine b ranches to  BTF and c onstructs 
  6            ; a test (du mmy) HMS R eturn file .  Only a  valid opti on in DEV  and TST.  
  7            ; Called by:  CHMHMS01                                                        
  8            ; DEV005641- 01;JSG;HMS  Return Fi le process ing & test  return fi le build. 
  9   ADD(XN) ;( Xport Numb er);
  10           I  XN'>0 D DE RR("Activa ted export  required. ") Q
  11           S  EI=$$FINDX (XN,"HMS_I NS_VER")
  12           I  '$D(^CHMZH OLD("HMS_I NS_VER",EI ),X) D DER R("Not a v alid expor t.") Q
  13           I  $P(X,U,2)= "" D DERR( "Build in  progress." ) Q
  14           I  $P(X,U,4)= 4 D DERR(" Processing  in progre ss.") Q
  15   A5      D  SCROLL S D TM=8,DBM=2 1 X CHMAR  S DY=7,DX= 1 X XY
  16           S  HMSXC=$P(X ,U),HMSXF= $P(X,U,2)
  17           I  $D(%BTF),% BTF D BTF  G U1                    ;Go buil d a test r eturn file
  18        S HMS XR=$P(X,U, 3),HMSXS=$ P(X,U,4)
  19        W !,$ J(XN,2),?4 ,$$SLASH(E I),?14,$J( HMSXC,5)
  20           S  HMSXS=$P(" PRF^PDR^CO M",U,HMSXS )
  21           W  ?21,HMSXF, ?49,HMSXS, ?55,$E(HMS XR,1,25)
  22   A7      W  !!,"        CORRECT E XPORT?: Y  // " D CSB RS^CHSC2
  23           Q: $D(DFOUT)! $D(DUOUT)  U I Y="" S  Y="Y" W Y  G A8
  24           G  A7:"YyNn"' [Y S:$A(Y) '<96 Y=$C( $A(Y)-32)  Q:Y'="Y" 
  25   A8      W  !!,"ENTER  RETURN FIL E NAME: ", HMSXR," //  " D CSBRS ^CHSC2
  26           Q: $D(DFOUT)! $D(DUOUT)  U S:Y="" Y =HMSXR
  27           G  A8:Y=""
  28             ;S XFILE=" HACFS3"" DNS     decnet HAC dec741!"": :D:[Fs3big .HMS_Insur ance_File] "
  29           ;S  XFILE=XFI LE_Y
  30           ;O  XFILE:"R"
  31           ;U  XFILE R Z  C XFILE
  32           X  ^%ZOSF("UC I") S UCI= $P(Y,",",1 )
  33           S  FILENM2=Y
  34           S  FIO="HAC_H FS$:[SCR.T EMP_FILES] "_FILENM2
  35           I  UCI'="HAC"  S FIO="HA C_HFS$:[DS MMANAG.CHA MPVA]"_FIL ENM2
  36          D FTPFILE^ CHTFLIB9(F IO," DNS     fs3. DNS             ","/FS3BIG .HMS_Insur ance_File" ,"GET")
  37        X "D  $SYSTEM.Pr ocess.SetZ EOF(1)"
  38        I '$$ OPENFIRD^C HTFLIB9(.F IO,"FIO")  Q
  39           U  FIO R Z G: $$STATUS^% ZISH A8END
  40   A8END   D  CLOSEF^CHT FLIB9(FIO, "FIO")
  41           X  "D $SYSTEM .Process.S etZEOF(0)"        
  42           I  $E(^CHMZHO LD("HMS_IN S_VER",EI, 1,0),1,6)' =$E(Z,1,6)  D  H 2 G  A5
  43           .W  !!,"The t racking nu mbers in t he records  in the sp ecified fi le do not"
  44           .W  !,"match  those of t he selecte d Export."
  45           S  HMSXR=Y
  46           D  SCROLL S D TM=8,DBM=2 1 X CHMAR  S DY=7,DX= 1 X XY
  47           W  !,$J(XN,2) ,?4,$$SLAS H(EI),?14, $J(HMSXC,5 )
  48           W  ?21,HMSXF, ?49,HMSXS, ?55,$E(HMS XR,1,25)
  49   A9      W  !!,"UPDATE  EXPORT WI TH RETURN  FILENAME?:  Y // " D  CSBRS^CHSC 2
  50           Q: $D(DFOUT)! $D(DUOUT)  U I Y="" S  Y="Y" W Y  G UPDATE
  51           G  A9:"YyNn"' [Y S:$A(Y) '<96 Y=$C( $A(Y)-32)  G A9:Y'="Y "
  52   UPDATE  S  $P(^CHMZHO LD("HMS_IN S_VER",EI) ,U,3)=HMSX R
  53           S  $P(^CHMZHO LD("HMS_IN S_VER",EI) ,U,4)=2
  54           W  !!,"Export  updated."
  55   U1      K  %BTF R !!, "Type <Ent er> to con tinue: ",X :600 Q
  56           ;- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ;
  57   DERR(T) ;( Text) Disp lay error  message:
  58           W  "   ?? ",$ C(7),T,?50 ," " H 2 Q
  59   FINDX(E,F)  ;(Export  Index,File  heading); Find expor t to delet e:
  60               N XF S (X ,XF)=0
  61               F I=1:1 S  X=$O(^CHM ZHOLD(F,X) ) Q:X'>0   I I=E S XF =X Q
  62               Q XF                               ;Return  subscript , if found
  63   PXY(R,C) ; Position c urser
  64            S  DY=R,(DX, $X)=C X XY  Q 1
  65   SCROLL ;Bl ank area;
  66          S D TM=9,DBM=2 1 X CHMAR  D RNGECLR^ CHSC1(8,20 ,XY,CHEOL)  Q
  67   SLASH(D) ; Format dat e with "/" s
  68            Q  $S(D<1:"" ,1:$E(D,4, 5)_"/"_$E( D,6,7)_"/" _$E(D,2,3) )
  69           ;- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ;
  70   BTF     ;B uild test  HMS return  file base d on curre ntly activ ated expor t          ;
  71           ;C an only be  called fr om DEV or  TST namesp aces                             ;
  72   OHI     ;L ist of tes t Other He alth Insur ance provi ders                             ;
  73           ;A ETNA;
  74           ;B C/BS;
  75           ;A MERICAN PO STAL WORKE RS UNION;
  76           ;M VP HEALTHC ARE;
  77           ;U NITED HEAL THCARE;
  78           ;A NTHEM BC/B S KYO;
  79           ;A ARP - UNIT ED HEALTHC ARE;
  80           ;A MERICAN RE PUBLIC INS URANCE;
  81           ;P RINCIPAL M UTUAL;
  82           ;M AILHANDLER S INSURANC E;
  83           ;C IGNA;
  84           ;H UMANA;
  85   TOC     ;H MO|PPO|MED ICARE SUPP LEMENT|POS |MAJOR MED ICAL;
  86           N  TFILE,RFIL E,XST,OHI, TOC,ED,XD, NTC
  87           ;S  TFILE="HM S_REPLY_"_ $E(TODAY,2 ,7)_"_"_CH UCI_".TXT"
  88           W  !!,"Creati ng test (d ummy) HMS  Return Fil e: ",TFILE
  89             ;S RFILE=" HACFS3"" DNS     decnet HAC dec741!"": :D:[Fs3big .HMS_Insur ance_File] "
  90           ;S  RFILE=RFI LE_TFILE
  91           ;O  RFILE:"NW S"
  92           ;O  FIO C FIO :"D"
  93           ;O  FIO:"NWV"
  94           X  ^%ZOSF("UC I") S UCI= $P(Y,",",1 )
  95           S  FILENM2="H MS_REPLY_" _$E(TODAY, 2,7)_"_"_C HUCI_".TXT "
  96           S  FIO="HAC_H FS$:[SCR.T EMP_FILES] "_FILENM2
  97           I  UCI'="HAC"  S FIO="HA C_HFS$:[DS MMANAG.CHA MPVA]"_FIL ENM2
  98           X  "D $SYSTEM .Process.S etZEOF(1)"
  99           I  '$$OPENFIW R^CHTFLIB9 (.FIO,"FIO ") Q
  100           F  I=1:10:HMS XC D
  101           .S  X=^CHMZHO LD("HMS_IN S_VER",EI, I,0)
  102           .S  XST=$P(X, U,12),X=$P (X,U,1,6)
  103           .S  OHI=$P($T (OHI+($R(1 2)+1)),";" ,2) I $E(O HI,1,2)="B C" S OHI=O HI_" "_XST
  104           .S  TOC=$P($P ($T(TOC)," ;",2),"|", $R(5)+1)
  105           .S  ED=$$FMAD D^DILIBF(T ODAY,-$R(3 65*3)+1)\1  ;Fake cov erage effe ctive date
  106           .S  XD=$$FMAD D^DILIBF(T ODAY,$R(36 5*2)+1)\1  ;Fake cove rage expir ation date
  107           .S  ED=$E(ED, 4,5)_"/"_$ E(ED,6,7)_ "/20"_$E(E D,2,3)
  108           .S  XD=$E(XD, 4,5)_"/"_$ E(XD,6,7)_ "/20"_$E(X D,2,3)
  109           .S :$I(NTC) X =X_U_OHI_U _ED_U_XD_U _TOC
  110           .U  FIO W X,!
  111           D  CLOSEF^CHT FLIB9(FIO, "FIO")
  112           X  "D $SYSTEM .Process.S etZEOF(0)"
  113             D FTPFILE^ CHTFLIB9(F IO," DNS     fs3. DNS             ","/FS3BIG .HMS_Insur ance_File" ,"PUT")
  114           ;C  RFILE
  115           W  !!,"Return  file plac ed in the  HMS_Insura nce_File f older on F s3big."
  116           W  !,"Number  of test re turn recor ds created : ",NTC
  117           Q