235. EPMO Open Source Coordination Office Redaction File Detail Report

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

235.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMVNLB4.m Mon Nov 5 16:40:47 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMVNLB4.m Mon Nov 5 17:51:56 2018 UTC

235.2 Comparison summary

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

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

235.4 Active regular expressions

No regular expressions were active.

235.5 Comparison detail

  1   CHMVNLB4 ; AHJ/DEN;LA BELS FOR V ENDORS CRE ATE BATCH
  2    ;V1.0
  3    ;
  4    ;SEE ZIPM ATCH TAG T O ACTIVATE  MATCH WIT H SELECTED  ZIPS
  5    D NOW^%DT C S RUNTIM E=%
  6    S Y=$E(RU NTIME,1,7)
  7    S TODAY=Y
  8    S Y=TODAY  D DD^%DT  S TODAY=Y  ;
  9    S X1=DT,X 2=-548 D C ^%DTC S CK DT=X ; CHA NGE DAYS C LAIMS HERE  548 DAYS= 18 MONTHS
  10    S U="^",V EN=0,CNT=0 ,CHVSN=0
  11    K ^CHMZHO LD("DUP-CH ECK")
  12    K ^CHMZHO LD("ADD-VE N-LABELS")
  13    K ^CHMZHO LD("ADD-ME DTRIX")
  14    S ^CHMZHO LD("PROV-N A-LABELS") =""
  15   A0 ;
  16    S VEN=$O( ^CHMPAY("A D",VEN)) G :'VEN END
  17    G A0:'$D( ^CHMVEN(VE N,0)) S RE C0=^(0)
  18    G:'($D(^C HMVEN(VEN, 1))#10) A0  S REC1=^( 1) S REC2= ^(2)
  19    G A0:$P(R EC0,"^",8) =1 G A0:$P (REC0,"^", 8)=2
  20    G:$P(REC1 ,"^",4)=""  A0
  21    S NAME=$P (REC0,"^", 1) G:NAME= "" A0
  22    S TIN=$P( REC0,"^",3 ) G A0:TIN =""
  23    S ADD1=$P (REC1,"^", 1),ADD2=$P (REC1,"^", 2)
  24    S CITY=$P (REC1,"^", 3),STATE=$ P(REC1,"^" ,4),ZIP=$P (REC1,"^", 5)
  25    ;W !,VEN, " ",NAME
  26    ;
  27    ;  ****** ********CH ECK FOR C/ O MEDICAL  MATRIX HER E
  28    I $E(ADD1 ,1,11)="C/ O MEDICAL"  S ^CHMZHO LD("ADD-ME DTRIX",VEN )=NAME G A 0
  29    I ADD1="C /O MED MAT RIX INC" S  ^CHMZHOLD ("ADD-MEDT RIX",VEN)= NAME G A0
  30    I ADD1="M EDICAL MAT RIX INC" S  ^CHMZHOLD ("ADD-MEDT RIX",VEN)= NAME G A0
  31    I $E(ADD1 ,1,16)="%  MED MATRIX  INC" S ^C HMZHOLD("A DD-MEDTRIX ",VEN)=NAM E G A0
  32    I ADD1="M ED MATRIX  INC" S ^CH MZHOLD("AD D-MEDTRIX" ,VEN)=NAME  G A0
  33    I $E(ADD1 ,1,15)="%M ED MATRIX  INC" S ^CH MZHOLD("AD D-MEDTRIX" ,VEN)=NAME  G A0
  34    I $E(ADD1 ,1,20)="64 21 CAMP BO WIE BLVD"  S ^CHMZHOL D("ADD-MED TRIX",VEN) =NAME G A0
  35    I ADD2="C /O MED MAT RIX INC" S  ^CHMZHOLD ("ADD-MEDT RIX",VEN)= NAME G A0
  36    I ADD2="M EDICAL MAT RIX INC" S  ^CHMZHOLD ("ADD-MEDT RIX",VEN)= NAME G A0
  37    I $E(ADD2 ,1,16)="%  MED MATRIX  INC" S ^C HMZHOLD("A DD-MEDTRIX ",VEN)=NAM E G A0  ;  scott doan  03.18.05
  38    I ADD2="M ED MATRIX  INC" S ^CH MZHOLD("AD D-MEDTRIX" ,VEN)=NAME  G A0
  39    I $E(ADD2 ,1,15)="%M ED MATRIX  INC" S ^CH MZHOLD("AD D-MEDTRIX" ,VEN)=NAME  G A0
  40    I $E(ADD2 ,1,20)="64 21 CAMP BO WIE BLVD"  S ^CHMZHOL D("ADD-MED TRIX",VEN) =NAME G A0
  41    ;ZIPMATCH  ;
  42    ;
  43    ;++++++++ +++++MATCH  VENDOR ZI P TO ZIPS  REQUESTED
  44    ; USE CHM RZIP1 TO L OAD ZIPS F ROM TEXT F ILE
  45    ;S MATCH= ZIP
  46    ;I $D(^CH MZHOLD("ZI P-MATCH",M ATCH)) G G OOD
  47    ;S INCNT= INCNT+1
  48    ;G A0
  49    ;GOOD ;
  50    S:CITY=""  CITY="UNK NOWN" S:AD D2="" ADD2 =" " S:ZIP ="" ZIP="  "
  51    S:ADD1=""  ADD1=" "  S NAME=$P( REC0,"^",1 )
  52    S PST="UN KNOWN" I S TATE'="" S :$D(^DIC(5 ,STATE,0))  PST=$P(^( 0),"^",2)
  53    I TIN'=""  G A0:$D(^ CHMZHOLD(" DUP-CHECK" ,TIN,ZIP))
  54    K FLAG D  COUNT G:$D (FLAG) A0
  55    S SF=0 D  SUSP G:SF  A0
  56    S CNT=CNT +1,RECL=PS T_U_CITY_U _ADD1_U_AD D2_U_ZIP_U _NAME
  57    S ^CHMZHO LD("ADD-VE N-LABELS", STATE,ZIP, NAME,CNT)= RECL
  58    S ^CHMZHO LD("PROVID ER-NA-VEN" )=VEN
  59    ;
  60    ;NEXT LIN E TO SEE W HAT VENDOR  NO. PROCE SS IS AT D URING RUN
  61    ;S ^CHMZH OLD("ADD-V EN-LABELS- VENDOR")=V EN
  62    S ^CHMZHO LD("DUP-CH ECK",TIN,Z IP)=""
  63    I '(CNT#1 000),$D(CH VSN) D VSN
  64    G A0
  65   END ;
  66    D ^CHMVND OM ;SPLIT  DOMESTIC T O FS3BIG
  67    D ^CHMVNF OR ;SPLIT  FOREIGN TO  FS3BIG
  68    S Y=TODAY  D DD^%DT  S PTODAYDT =Y
  69    S CNTZ=1, ^CHMZHOLD( $J,"PROV-T EXTMESS1", CNTZ)="",C NTZ=CNTZ+1
  70    S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" ********** ********** ********** ********** ********** ",CNTZ=CNT Z+1
  71    S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)="   PROVIDER  NAME AND  ADDRESS LI ST          ",CNTZ=CN TZ+1  
  72    S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)="   WITH 18  MONTH CLAI MS HAS  CO MPLETED    ",CNTZ=CNT Z+1
  73    S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)="                                                                                                                ",CNTZ=CN TZ+1
  74    S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" TODAYS DAT E="_PTODAY DT,CNTZ=CN TZ+1
  75    S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" DOMESTIC C OUNT="_DCN T,CNTZ=CNT Z+1
  76    S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" FOREIGN CO UNT="_FCNT ,CNTZ=CNTZ +1
  77    S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)="  (OUTPUT F ILES ON FS 3BIG)                                            ",CNT Z=CNTZ+1
  78    S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" PROVIDER D OMESTIC NA ME/ADDRESS  ON FS3BIG =PROVIDERD OMESTICNA. TXT",CNTZ= CNTZ+1
  79    S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" PROVIDER F OREIGN NAM E/ADDRESS  ON FS3BIG= PROVIDERFO REIGNNA.TX T",CNTZ=CN TZ+1
  80    S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" YOU MUST I MMEDIATELY  CHANGE FI LE NAME ON  FS3BIG    ",CNTZ=CNT Z+1
  81    S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" ********** ********** ********** ********** ********** ",CNTZ=CNT Z+1
  82    S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" "
  83    S XMTEXT= "^CHMZHOLD ($J,""PROV -TEXTMESS1 "","
  84    S XMDUZ=. 5
  85    ;S NAMDUZ =$P(^VA(20 0,DUZ,0)," ^",1)
  86    ;S LAST=$ P(NAMDUZ," ,",1)
  87    ;S FIRST= $P(NAMDUZ, ",",2)
  88    ;S NAME=L AST_", "_F IRST
  89    ;S NAMEOU T= PII            "
  90    ;S XMY(NA MEOUT)=""
  91    S XMY(DUZ )=""
  92    S XMSUB=" PROVIDER N AME AND AD DRESS " D  ^XMD ;
  93    K ^CHMZHO LD("PROV-N A-LABELS")
  94    Q
  95   EXIT Q
  96   COUNT S CL =0,CT=0
  97   C1 S CL=$O (^CHMPAY(" AD",VEN,CL )) G:'CL C 3
  98    G C1:'$D( ^CHMPAY(CL ,0))
  99    S TPDICT= 999
  100   C2 S TPDIC T=$O(^CHMP AY(CL,"PDI ",TPDICT), -1) G:'TPD ICT C1
  101    G:'$D(^CH MPAY(CL,"P DI",TPDICT ,0)) C1 S  TPDI=$P(^C HMPAY(CL," PDI",TPDIC T,0),"^",1 )
  102    ;S PDIDT= $$JULFM^CH TFLIB(TPDI )
  103    S PDIDT=$ $PDIJULFM^ CHMFPDI2(T PDI)
  104    ;W !,"VEN =",VEN,"     CL=",CL, " PDIDT=", PDIDT
  105    ;
  106    ;CHECK CL AIMS FOR 1 8 MONTHS C LAIMS
  107    G C1:PDID T<CKDT
  108    S CT=CT+1  G C1:CT<5
  109   C3 S:CT<5  FLAG=1 Q
  110   SUSP S J=0
  111   S1 S J=$O( ^CHMVEN(VE N,30,J)) G  SX:'J
  112    G S1:'$D( ^CHMVEN(VE N,30,J,0))  S CHSDS=^ (0)
  113    G S1:(+CH SDS)>DT
  114    G S1:$S(' $P(CHSDS," ^",4):0,$P (CHSDS,"^" ,4)<DT:1,1 :0)
  115    S SF=1
  116   SX Q
  117    ;
  118    ;
  119   VSN ;
  120    S CHVSN=$ O(^CHMDIC( 741900.01, CHVSN)) I  'CHVSN K C HVSN G VSN X
  121    S CHDUZ=$ S($D(^CHMD IC(741900. 01,CHVSN,0 )):$P(^(0) ,U,2),1:0)
  122    I $S('CHD UZ:1,'$D(^ VA(200,CHD UZ,0)):1,$ P(^(0),U,1 1):1,1:0)  G VSNX
  123    G VSNX:$D (^CHMDIC(7 41900.01,C HVSN,101," B",DT))
  124    G VSNX:'$ D(^CHMDIC( 741900.01, CHVSN,1))  S REC1=^(1 )
  125    S NAME="C HAMPVA PRO VIDER",TIN ="VERIFY"_ CHVSN
  126    S ADD1=$P (REC1,"^", 1),ADD2=$P (REC1,"^", 2)
  127    S CITY=$P (REC1,"^", 3),STATE=$ P(REC1,"^" ,4),ZIP=$P (REC1,"^", 5)
  128    S:CITY=""  CITY="UNK NOWN" S:AD D2="" ADD2 =" " S:ZIP ="" ZIP="  "
  129    S:ADD1=""  ADD1=" "
  130    S PST="UN KNOWN" I S TATE'="" S :$D(^DIC(5 ,STATE,0))  PST=$P(^( 0),"^",2)
  131    G VSNX:$D (^CHMZHOLD ("DUP-CHEC K",TIN,ZIP ))
  132    S CNT=CNT +1,RECL=PS T_U_CITY_U _ADD1_U_AD D2_U_ZIP_U _NAME
  133    S ^CHMZHO LD("ADD-VE N-LABELS", STATE,ZIP, NAME,CNT)= RECL
  134    S ^CHMZHO LD("DUP-CH ECK",TIN,Z IP)=""
  135    S:'$D(^CH MDIC(74190 0.01,CHVSN ,101,0)) ^ (0)="^7419 00.01101DA ^0^0"
  136    S JJ=$P(^ (0),"^",3) +1,^(0)="^ 741900.011 01DA^"_JJ_ "^"_JJ
  137    S ^CHMDIC (741900.01 ,CHVSN,101 ,JJ,0)=DT_ "^P"
  138    S ^CHMDIC (741900.01 ,CHVSN,101 ,"B",DT,JJ )=""
  139   VSNX Q
  140   PRINTIT ;
  141    W !,NAME, "  ",ADD1
  142    G A0
  143    Q
  144    Q
  145   TESTIT Q