284. EPMO Open Source Coordination Office Redaction File Detail Report

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

284.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHXPORT2.m Mon Nov 5 16:39:03 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHXPORT2.m Mon Nov 5 17:55:52 2018 UTC

284.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 212
Changed 2 4
Inserted 0 0
Removed 0 0

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

284.4 Active regular expressions

No regular expressions were active.

284.5 Comparison detail

  1   CHXPORT2 ; JSG;HMS IN SURANCE VE RIFICATION  BENEFICIA RY FILE EX PORT (QUEU ED);09/04/ 08
  2            ; Requiremen ts defined  by: DEV00 4972-03 &  BAT004972- 01     
  3            ; DEV012893  1/14/2014  DGC - MODI FY DECNET  WRITE
  4            ; MTN024265  09/23/15 S BB - Fix t he DECNET  routines t hat have a  typo
  5            ;                 
  6            ; Keys: HMS,  FS3BIG, e xport, ext ract, TOC                                     
  7            ; Exports cu rrent CHAM PVA eligib le benefic iaries wit h at least  one paid    
  8            ; claim whos e current  OHI type o f coverage  is 1 (NO  OHI) or 8  (OHI?).      
  9            ; Called by:  CHMHMS01                                                           
  10            I  HMSXN'>0  D DERR("Ac tivate New  Export Fi le.") Q
  11            S  U="^",DEL =U D NOW^% DTC S TODA Y=X                     ;Set del imiter, da te
  12            S  EI=$$FIND X(HMSXN,"H MS_INS_VER ")
  13            I  EI D DERR ("Export a lready exi sts; Activ ate New Ex port File. ") Q
  14            I F $D(^CHMZ HOLD("HMS_ INS_VER",T ODAY)) {
  15              D DERR("Ex port for T oday exist s; delete  it to reru n.") Q }
  16            S  ZTRTN="HM S^CHXPORT2 ",ZTDTH=$H  D VARSAVE ,^%ZTLOAD                   ;Que ue
  17            S  IOP="HOME " D HOME^% ZIS
  18            W  "uild ini tiated ... ",?53," "  R X:5
  19            K  %TF D NOW ^%DTC S TO DAY=X Q
  20            ;
  21   DERR(T) W  "   ?? ",$ C(7),T H 2  Q                       ;(Text)  Display e rror messa ge
  22   FINDX(E,F)  ;(Export  Index,File  heading); Find expor t to delet e:
  23               N XF S (X ,XF)=0
  24               F I=1:1 S  X=$O(^CHM ZHOLD(F,X) ) Q:X'>0   I I=E S XF =X Q
  25               Q XF                               ;Return  subscript , if found
  26   VARSAVE ;S ave variab les for qu eued job:
  27           S  CHFIO=$G(I ON),ZTIO=" ",PAR=$LB( DEL,TODAY)
  28           S  ZTDESC="HM S Insuranc e Verifica tion File  Export"
  29           I  $D(%TF),%T F S ZTSAVE ("%TF")=""
  30           S  (ZTSAVE("C HFIO"),ZTS AVE("U"),Z TSAVE("PAR "))="" Q
  31           ;
  32   HMS ;Scan  sponsor/be neficiarie s to find  TOCs = 1 o r 8:
  33       S DEL= $LI(PAR,1) ,TODAY=$LI (PAR,2)                                          ;Unpa ck
  34       K ^CHM ZHOLD("HMS _INS_VER", TODAY),RN
  35       IF $D( %TF),%TF {  S ^CHMZHO LD("HMS_IN S_VER",TOD AY,0)=1 }
  36   DFN ;CHAMP VA Payment  Sponsor/B eneficiary
  37       S SI=0 ,TWOYRS=TO DAY-20000, SC=0                                ;Define  2 years a go
  38   H1  S SI=$ O(^CHMDFN( SI)) G HMS IO:SI'>0                               ;Spo nsor point er
  39       I $D(% TF),%TF G  HMSIO:SC>1 999                              ;Stop @ 2K , if testi ng
  40       G H1:' $D(^CHMDFN (SI,0),DFN ) S DFN=$P (DFN,U)                      ;Sp onsor numb er
  41       G H1:D FN="" S BJ =0                                          ;Skip, if  no sponsor  #
  42   H2  S BJ=$ O(^CHMDFN( SI,100,BJ) ) G H1:BJ' >0                             ; Bene point er
  43       G H2:' $D(^CHMDFN (SI,100,BJ ,0),BFN) S  BFN=$P(BF N,U)                  ;Bene numb er
  44       G H2:B FN=""                                                                    ;Wh y?
  45       G H2:' $D(^AHCHVA (DFN,100,B FN,0),BR)  S BR1=$G(^ (1))     ; Skip, if ' in bene fi le
  46       G H2:$ P(BR,U,5)' ="EA"                                          ;Skip,  if 'eligib le
  47       G H2:' $$PAID                                   ;S kip, if no  paid clai m in 2 yea rs
  48       G H2:$ $OHI                                                            ; Skip, if O HI
  49       S $P(^ CHMZHOLD(" HMS_INS_VE R",TODAY), U)=$I(RN)                         ;Count be ne
  50       S ^CHM ZHOLD("HMS _INS_VER", TODAY,RN)= DFN_U_BFN                ;Save s ponsor, be ne
  51       S TN=$ E(TODAY,2, 7)_$E("000 00",1,5-$L (RN))_RN                ;Set tra cking numb er
  52       S ^CHM ZHOLD("HMS _INS_VER", TODAY,RN,0 )=TN_DEL_$ $BDATA(BR, BR1,DEL)   ;Save reco rd
  53       S SC=S C+1
  54       G H2                                                                     ;Get anoth er
  55   PAID() ;Ha s bene had  paid clai m within p ast 2 year s?:
  56          S K =999999999                                                    ;St art from e nd
  57   P1     S K =$O(^CHMDF N(SI,100,B J,100,K),- 1) Q:K'>0  0 ;Kth cla im, quit F alse if no ne
  58          G P 1:'$D(^CHM DFN(SI,100 ,BJ,100,K, 0),CNP)             ; Get Claim  Number Ind ex
  59          G P 1:'$D(^CHM PAY(CNP,0) ,PR0)                        ;Sk ip, 'in CH AMPVA CLAI MS
  60          G P 1:$P(PR0,U ,2)'=4                                         ;Skip,  if 'comple te
  61          G P 1:'$D(^CHM PAY(CNP,1) ,PR1)                      ;Skip , if no pa yment reco rd
  62          G P 1:$P(PR1,U )'>0                                        ;Skip, if  nothing pa id
  63          Q:$ P(PR1,U,4) >TWOYRS 1                      ; True, if p ay date wi thin 2 yea rs
  64          G P 1                                                              ;C heck anoth er
  65          ;
  66   OHI() ;Doe s bene hav e OHI?:
  67         N KD
  68         Q:'$ D(^CHMDFN( SI,100,BJ, 2,0),K) 0                                        ;No O HI
  69         S KD =$O(^CHMDF N(SI,100,B J,2,"B",99 99999),-1)  Q:KD'>0 0             ;No entri es
  70         S K= $O(^CHMDFN (SI,100,BJ ,2,"B",KD, 0)) Q:K'>0  0                     ;No entri es
  71         Q:'$ D(^CHMDFN( SI,100,BJ, 2,K,0),COH I) 0                      ;Lates t OHI reco rd
  72         S TO C=$P(COHI, U,3)                                         ;Get type  of covera ge
  73         Q $S (TOC=1:0,T OC=8:0,1:1 )                            ;Tr ue = 'OHI,  False = O HI
  74         ;
  75   BDATA(N0,N 1,T) ;(Nod e 0,Node 1 );Pack ben e data: -- ---------- ---------- ---------- -;
  76                   N L,F ,M,SSN,DOB ,SEX,A1,A2 ,A3,CTY,ST E,ZIP,NAM                         ;
  77                   S NAM =$P(N0,U), L=$$LAST(N AM),F=$$FI RST(NAM),M =$$MIDDLE( NAM)        ;
  78                   S SSN =$P(N0,U,9 ),DOB=$P(N 0,U,3),SEX =$P(N0,U,2 ),DOB=$$DF D(DOB,"/")  ;
  79                   S A1= $P(N1,U),A 2=$P(N1,U, 2),A3="",Z IP=$P(N1,U ,5)                    ;
  80                   S CTY =$P(N1,U,3 ),CTY=$$TR IM^XLFSTR( CTY,"R","  ")                     ;
  81                   S STE =$P(N1,U,4 ) I STE'=" " S STE=$P (^DIC(5,ST E,0),U,2)              ;
  82                   Q L_T _F_T_M_T_S SN_T_DOB_T _SEX_T_A1_ T_A2_T_A3_ T_CTY_T_ST E_T_ZIP     ;
  83                   ;Retu rn packed  bene data  ---------- ---------- ---------- ---------- -;
  84   LAST(N) Q  $P(N,",")                                            ; (Name);Par se last na me
  85   FIRST(N) Q  $P($$TRIM ^XLFSTR($P (N,",",2), "L")," ")          ;( Name);Pars e first na me
  86   MIDDLE(N)  Q $P($$TRI M^XLFSTR($ P(N,",",2) ,"L")," ", 2)     ;(N ame);Parse  middle na me
  87   DFD(D,S) Q  $E(D,4,5) _S_$E(D,6, 7)_S_$S($E (D)=2:"19" ,1:"20")_$ E(D,2,3)   ;Format da te
  88   HMSIO ;Put  accumulat ed data to  printer o r file:
  89         X ^% ZOSF("UCI" ) S CHUCI= $P(Y,",")                                ;G et namespa ce
  90      S IOFIL E="HMSXPOR T_"_$E(TOD AY,2,7)_"_ "_($P($H," ,",2)\60)_ "_"_CHUCI
  91      S $P(^C HMZHOLD("H MS_INS_VER ",TODAY),U ,2)=IOFILE ,$P(^(TODA Y),U,5)=DU Z
  92        ;S XFILE=" HACFS3"" DNS     decnet HAC dec741!"": :D:[Fs3big .HMS_Insur ance_File] "  DGC 1/1 4/2014 DEV 012893 - B EGIN
  93      ;S XFIL E=XFILE_IO FILE_".TXT "
  94      ;O XFIL E:"NWS"
  95      X ^%ZOS F("UCI")   S UCI=$P(Y ,",",1)
  96      X "D $S YSTEM.Proc ess.SetZEO F(1)" ;DGC  7/30/2015  DEV012893
  97      S FILEN M2=XFILE_I OFILE_".TX T"
  98      S XFILE ="$DISKSCR ATCH:[TEMP _FILES]"_F ILENM2
  99      I UCI'= "HAC" S XF ILE="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 2
  100      I '$$OP ENFIWR^CHT FLIB9(.XFI LE,"XFILE" )  X "D $S YSTEM.Proc ess.SetZEO F(0)" Q ;D GC 7/30/20 15 DEV0128 93
  101      S RN=$P (^CHMZHOLD ("HMS_INS_ VER",TODAY ),U)              ;Ge t number o f records
  102         F I= 1:1:RN U X FILE W ^CH MZHOLD("HM S_INS_VER" ,TODAY,I,0 ),!     ;W rite recor ds
  103      ;C XFIL E
  104      D CLOSE F^CHTFLIB9 (XFILE."XF ILE")
  105      X "D $S YSTEM.Proc ess.SetZEO F(0)" ;DGC  7/30/2015  DEV012893
  106        D FTPFILE^ CHTFLIB9(X FILE," DNS     fs3. DNS             ","Fs3big/ HMS_Insura nce_File", "PUT") ;DG C 1/14/13  DEV012893  - END
  107      S $P(^C HMZHOLD("H MS_INS_VER ",TODAY),U ,4)=1       ;Status:  pending re turn file
  108         Q