221. EPMO Open Source Coordination Office Redaction File Detail Report

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

221.1 Files compared

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

221.2 Comparison summary

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

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

221.4 Active regular expressions

No regular expressions were active.

221.5 Comparison detail

  1   CHMVACT1 ; AHJ/DEN;MA TCH VENDOR  FILE  TO  VENDORS WI TH ACTIVE  CLAIMS
  2    ;V1.0
  3    ;
  4    S ^CHMZHO LD("PROV-N O-ACTIVE-C LAIMS-NA") =""
  5    K ^CHMZHO LD("ADD12- VEN-LABELS -COUNT")
  6    K ^CHMZHO LD("ADD12- VEN-TESTIN G")
  7    K ^CHMZHO LD("ADD12- VEN-LABELS ")
  8    ;SELECT V ENDORS THA T MATCH VE NDOR COUNT S
  9   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  10    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  11    I '$D(IOZ ) S %ZIS=" N",IOP="HO ME" D HOME ^%ZIS S IO Z=IO,IOZL= IOSL,IOZW= IOM,IOZF=I OF,IOZT=IO ST,IOZN=IO N,IOZS=IOS
  12    S U="^"
  13    S X1=DT,X 2=-548 D C ^%DTC S CK DT=X ; CHA NGE DAYS C LAIMS HERE  548 DAYS= 18 MONTHS
  14    S U="^",V EN=0,CNT=0 ,CHVSN=0
  15    ;
  16    S X1=$$FM JUL(CHDT)
  17    S X2=$$FM JUL(CHDT2)
  18    ;
  19    ; 15 digi t PDI Loop
  20    S PDI=$$C EN2^CHMFPD I2(X1)_X1_ "00000000"
  21    ;S PDI="2 0"_$E(CHDT ,2,3)_"000 00000"
  22    S PDI2=$$ CEN2^CHMFP DI2(X2)_X2 _"99999999 "
  23    ;S CHVPTR =7211954
  24    S CHVPTR= 0
  25   START2 ;
  26    ;S CHVPTR =$O(^CHMPA Y("AD",CHV PTR)) G:'C HVPTR END
  27    ;Q:'$D(^C HMVEN(CHVP TR,0))
  28    S CHVPTR= $O(^CHMVEN (CHVPTR))  G:'$D(CHVP TR) END
  29    I CHVPTR= "ACITI" G  END
  30    G:'$D(^CH MVEN(CHVPT R,0)) STAR T2
  31    G:'$D(^CH MVEN(CHVPT R,1)) STAR T2
  32    S REC0=^( 0)
  33    S REC1=^( 1)
  34    ;W !,"ALL  =",CHVPTR
  35    ;NEXT LIN E BYPASS P ROVIDERS W ITH CLAIMS  FROM CHMV ACTC
  36    ;
  37    G:$D(^CHM ZHOLD("VEN D-CLAIM-NO ACTIVE-NA" ,CHVPTR))  START2
  38    ;W !,"                    SELEC TED=",CHVP TR
  39   GOOD1 ;
  40    S STATE=$ P(REC1,"^" ,4)
  41    G:'$D(STA TE) START2  ;NO STATE  CODE
  42    S NAME=$P (REC0,"^", 1)
  43    G:'$D(NAM E) START2
  44    I NAME=""  G START2
  45    I NAME="  " G START2
  46    S TIN=$P( REC0,"^",3 )
  47    G:'$D(TIN ) START2
  48    S ADD1=$P (REC1,"^", 1)
  49    S ADD2=$P (REC1,"^", 2)
  50    S CITY=$P (REC1,"^", 3)
  51    S STATE=$ P(REC1,"^" ,4)
  52    S ZIP=$P( REC1,"^",5 )
  53    I ZIP=""  S ZIP=0
  54    ;W !,CHVP TR," ",NAM E
  55    ;
  56    ;  ****** ********CH ECK FOR C/ O MEDICAL  MATRIX HER E
  57    I $E(ADD1 ,1,11)="C/ O MEDICAL"  G PUTIT
  58    I ADD1="C /O MED MAT RIX INC" G  PUTIT
  59    I ADD1="M EDICAL MAT RIX INC" G  PUTIT
  60    I $E(ADD1 ,1,16)="%  MED MATRIX  INC" G PU TIT
  61    I ADD1="M ED MATRIX  INC" G PUT IT
  62    I $E(ADD1 ,1,15)="%M ED MATRIX  INC" G PUT IT
  63    I $E(ADD1 ,1,20)="64 21 CAMP BO WIE BLVD"  G PUTIT
  64    I ADD2="C /O MED MAT RIX INC" G  PUTIT
  65    I ADD2="M EDICAL MAT RIX INC" G  PUTIT
  66    I $E(ADD2 ,1,16)="%  MED MATRIX  INC" G PU TIT
  67    I ADD2="M ED MATRIX  INC" G PUT IT
  68    I $E(ADD2 ,1,15)="%M ED MATRIX  INC" G PUT IT
  69    I $E(ADD2 ,1,20)="64 21 CAMP BO WIE BLVD"  G PUTIT
  70    I STATE=" " G START2
  71    I STATE="  " G START 2
  72    I STATE'= "" S:$D(^D IC(5,STATE ,0)) PST=$ P(^(0),"^" ,2)
  73   OUTIT ;
  74    S CNT=CNT +1
  75    S RECL=PS T_U_CITY_U _ADD1_U_AD D2_U_ZIP_U _NAME_U_CI _U_PDI
  76    ;S ^CHMZH OLD("ADD12 -VEN-LABEL S",STATE,Z IP,NAME,CN T)=RECL
  77    S ^CHMZHO LD("ADD12- VEN-LABELS ",STATE,ZI P,NAME)=RE CL
  78    S ^CHMZHO LD("ADD12- VEN-TESTIN G",VEN,NAM E,ZIP)=REC L
  79    ;
  80    ;NEXT LIN E TO SEE W HAT VENDOR  NO. PROCE SS IS AT D URING RUN
  81    S ^CHMZHO LD("ADD12- VEN-LABELS -VENDOR")= CHVPTR
  82    S ^CHMZHO LD("ADD12- VEN-LABELS -COUNT")=C NT
  83    ;W !,"                                       OUT=",CH VPTR," ",N AME
  84    G START2
  85    Q
  86   END ;
  87    ;W !,"THI S IS THE E ND OF THE  MAIN BODY  OF LOGIC"
  88    ;
  89    D ^CHMVAC TD ; DOMES TIC
  90    D ^CHMVAC TF ;FOREIG N
  91    ;D ^CHMVN LB7 ;COUNT  ALL PROVI DERS SELEC TED
  92    ;D ^CHMVN LB8 ;COUNT  ALL MEDIC AL MATRIX  BYPASSED
  93    S Y=DT D  DD^%DT S P TODAYDT=Y
  94    S Y=CHDT  D DD^%DT S  PCHDT=Y
  95    S Y=CHDT2  D DD^%DT  S PCHDT2=Y
  96    ;K ADDRLA B,BFN,CHDA TE,CHDFNI, CHDFNJ,CHD FNK,DFN,DF NDATA,FIO, J1,J2
  97    ;K NAMELA B,PCNT,PDI J,PG,RUNTI ME,STATE,S TRDAT,T,TF MDT,TMPS,U
  98    S CNTZ=1, ^CHMZHOLD( $J,"PROV2- TEXTMESS3" ,CNTZ)="", CNTZ=CNTZ+ 1
  99    S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "********* ********** ********** ********** ********** *",CNTZ=CN TZ+1
  100    S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "  PROVIDE R NAME AND  ADDRESS N O CLAIMS          ",C NTZ=CNTZ+1     
  101    S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "  IN DATE  RANGE HAS  COMPLETED  ",CNTZ=CN TZ+1
  102    S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "                                                                    ",CNTZ= CNTZ+1
  103    S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "  STARTIN G DATE RAN GE ="_PCHD T,CNTZ=CNT Z+1
  104    S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "        E NDING DATE  RANGE="_P CHDT2,CNTZ =CNTZ+1
  105    S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "                                                                      ",CNT Z=CNTZ+1
  106    S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "TODAYS DA TE="_PTODA YDT,CNTZ=C NTZ+1
  107    S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "DOMESTIC  COUNT="_DC NT,CNTZ=CN TZ+1
  108    S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "FOREIGN C OUNT="_FCN T,CNTZ=CNT Z+1
  109    S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= " (OUTPUT  FILES ON F S3BIG)                                            ",CN TZ=CNTZ+1
  110    S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "PROVIDER  DOMESTIC N AME/ADDRES S ON FS3BI G=PROVIDER NOACTDOMES TICNA.TXT" ,CNTZ=CNTZ +1
  111    S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "PROVIDER  FOREIGN NA ME/ADDRESS  ON FS3BIG =PROVIDERN OACTFOREIG NNA.TXT",C NTZ=CNTZ+1
  112    S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "YOU MUST  IMMEDIATEL Y CHANGE A ND SAVE FI LE NAME ON  FS3BIG    ",CNTZ=CNT Z+1
  113    S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "********* ********** ********** ********** ********** *",CNTZ=CN TZ+1
  114    S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= ""
  115    S XMTEXT= "^CHMZHOLD ($J,""PROV 2-TEXTMESS 3"","
  116    S XMDUZ=. 5
  117    ;S NAMDUZ =$P(^VA(20 0,DUZ,0)," ^",1)
  118    ;S LAST=$ P(NAMDUZ," ,",1)
  119    ;S FIRST= $P(NAMDUZ, ",",2)
  120    ;S NAME=L AST_", "_F IRST
  121    ;S NAMEOU T= PII            "
  122    ;S XMY(NA MEOUT)=""
  123    S XMY(DUZ )=""
  124    S XMSUB=" PROVIDER N AME AND AD DRESS " D  ^XMD ;
  125    K ^CHMZHO LD("PROV-N O-ACTIVE-C LAIMS-NA")
  126    Q
  127   EXIT Q
  128   PUTIT ;
  129    S ^CHMZHO LD("ADD1-M EDTRIX",CH VPTR)=NAME
  130    G START2
  131    Q
  132   ACTIVE ;
  133    W !,"ACTI VE CLAIMS  =",CHVPTR
  134    G START2
  135    Q
  136   FMJUL(FDT)  ;CONVERT  FM DATE TO  JULIAN DA TE
  137            N  D1,D2,D3
  138            I  '$D(FDT)  S FDT=DT
  139            S  X=$E(FDT, 1,3)_"0000 " D H^%DTC  S D2=%H
  140            S  X=FDT D H ^%DTC S D1 =%H
  141            S  D3=D1-D2+ 1 S:D3<100  D3="0"_D3  S:D3<10 D 3="0"_D3
  142            S  D3=$E(FDT ,2,3)_D3
  143            Q  D3