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

225.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMVENC1.m Mon Nov 5 16:39:55 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMVENC1.m Mon Nov 5 17:51:49 2018 UTC

225.2 Comparison summary

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

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

225.4 Active regular expressions

No regular expressions were active.

225.5 Comparison detail

  1   CHMVENC1 ; AHJ/DEN;LA BELS FOR V ENDORS CRE ATE BATCH
  2    ;V1.0
  3    ;
  4    ;SELECT V ENDORS THA T MATCH VE NDOR COUNT S
  5   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  6    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  7    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
  8    S U="^"
  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("ADD1-V EN-LABELS" )
  13    K ^CHMZHO LD("TEST-A DD1-VEN-LA BELS")
  14    K ^CHMZHO LD("ADD1-V EN-LABELS" ,"STATUS")
  15    K ^CHMZHO LD("ADD1-V EN-LABELS" ,"DONE")
  16    K ^CHMZHO LD("ADD1-M EDTRIX")
  17    S ^CHMZHO LD("PROV-N A-OPT-INP- NA")=""
  18    K ^CHMZHO LD("ADD1-V EN-LABELS- COUNT")
  19    S VENNO=0
  20   A0 ;
  21    S VENNO=$ O(^CHMZHOL D("VEND-CL AIM-COUNT- NA",VENNO) ) G:'VENNO  END
  22    S VENDATA =^CHMZHOLD ("VEND-CLA IM-COUNT-N A",VENNO)
  23    S VENINP= $P(VENDATA ,"^",1)
  24    S VENOPT= $P(VENDATA ,"^",2)
  25    ; (VENINP <1)&(VENOP T<6) G A0  ;NEED TO R EQUEST INP UT FROM US ER HERE
  26    I (VENINP >INPCCNT)& (VENOPT>OP TCCNT) G G OOD1
  27    G A0
  28   GOOD1 ;
  29    S VEN=VEN NO
  30    S VEN=$O( ^CHMPAY("A D",VEN)) G :'VEN END
  31    G A0:'$D( ^CHMVEN(VE N,0)) S RE C0=^(0)
  32    ;G:'($D(^ CHMVEN(VEN ,1))#10) A
  33    S REC1=^( 1) S REC2= ^(2)
  34    I VEN=591 488 G A0
  35    I VEN=446 667 G A0
  36    I VEN=715 8715 G A0
  37    ;NEXT LIN E VENDOR I NACTIVE OR  DELETE
  38    ;G A0:$P( REC0,"^",8 )=1 G A0:$ P(REC0,"^" ,8)=2
  39    G:$P(REC1 ,"^",4)=""  A0
  40    ;I $P(REC 1,"^",4)=" " S STATE= 0
  41    S NAME=$P (REC0,"^", 1) G:NAME= "" A0
  42    S TIN=$P( REC0,"^",3 ) G A0:TIN =""
  43    S ADD1=$P (REC1,"^", 1)
  44    S ADD2=$P (REC1,"^", 2)
  45    S CITY=$P (REC1,"^", 3)
  46    S STATE=$ P(REC1,"^" ,4)
  47    S ZIP=$P( REC1,"^",5 )
  48    I ZIP=""  S ZIP=0
  49    ;W !,VEN, " ",NAME
  50    ;
  51    ;  ****** ********CH ECK FOR C/ O MEDICAL  MATRIX HER E
  52    I $E(ADD1 ,1,11)="C/ O MEDICAL"  G PUTIT
  53    I ADD1="C /O MED MAT RIX INC" G  PUTIT
  54    I ADD1="M EDICAL MAT RIX INC" G  PUTIT
  55    I $E(ADD1 ,1,16)="%  MED MATRIX  INC" G PU TIT
  56    I ADD1="M ED MATRIX  INC" G PUT IT
  57    I $E(ADD1 ,1,15)="%M ED MATRIX  INC" G PUT IT
  58    I $E(ADD1 ,1,20)="64 21 CAMP BO WIE BLVD"  G PUTIT
  59    I ADD2="C /O MED MAT RIX INC" G  PUTIT
  60    I ADD2="M EDICAL MAT RIX INC" G  PUTIT
  61    I $E(ADD2 ,1,16)="%  MED MATRIX  INC" G PU TIT  ; sco tt doan 03 .18.05
  62    I ADD2="M ED MATRIX  INC" G PUT IT
  63    I $E(ADD2 ,1,15)="%M ED MATRIX  INC" G PUT IT
  64    I $E(ADD2 ,1,20)="64 21 CAMP BO WIE BLVD"  G PUTIT
  65    I STATE'= "" S:$D(^D IC(5,STATE ,0)) PST=$ P(^(0),"^" ,2)
  66    S CNT=CNT +1
  67    S RECL=PS T_U_CITY_U _ADD1_U_AD D2_U_ZIP_U _NAME
  68    S ^CHMZHO LD("ADD1-V EN-LABELS" ,STATE,ZIP ,NAME,CNT) =RECL
  69   OUTIT ;
  70    ;
  71    ;NEXT LIN E TO SEE W HAT VENDOR  NO. PROCE SS IS AT D URING RUN
  72    S ^CHMZHO LD("ADD1-V EN-LABELS- VENDOR")=V EN
  73    S ^CHMZHO LD("ADD1-V EN-LABELS- COUNT")=CN T
  74    G A0
  75   END ;
  76    D ^CHMVEN D1 ; DOMES TIC
  77    D ^CHMVEN F1 ;FOREIG N
  78    ;D ^CHMVN LB7 ;COUNT  ALL PROVI DERS SELEC TED
  79    ;D ^CHMVN LB8 ;COUNT  ALL MEDIC AL MATRIX  BYPASSED
  80    S Y=DT D  DD^%DT S P TODAYDT=Y
  81    S Y=CHDT  D DD^%DT S  PCHDT=Y
  82    S Y=CHDT2  D DD^%DT  S PCHDT2=Y
  83    ;K ADDRLA B,BFN,CHDA TE,CHDFNI, CHDFNJ,CHD FNK,DFN,DF NDATA,FIO, J1,J2
  84    ;K NAMELA B,PCNT,PDI J,PG,RUNTI ME,STATE,S TRDAT,T,TF MDT,TMPS,U
  85    S CNTZ=1, ^CHMZHOLD( $J,"PROV1- TEXTMESS2" ,CNTZ)="", CNTZ=CNTZ+ 1
  86    S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "********* ********** ********** ********** ********** *",CNTZ=CN TZ+1
  87    S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "  PROVIDE R NAME AND  ADDRESS L IST WITH          ",C NTZ=CNTZ+1     
  88    S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "  IN/OUTP ATIENT CLA IMS IN DAT E RANGE HA S COMPLETE D",CNTZ=CN TZ+1
  89    S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "                                                                                    ", CNTZ=CNTZ+ 1
  90    S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "  STARTIN G DATE RAN GE ="_PCHD T,CNTZ=CNT Z+1
  91    S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "        E NDING DATE  RANGE="_P CHDT2,CNTZ =CNTZ+1
  92    S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "  INPATIE NT CLAIMS  STARTING R ANGE COUNT ="_INPCCNT ,CNTZ=CNTZ +1
  93    S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "  OUTPATI ENT CLAIMS  STARTING  RANGE COUN T="_OPTCCN T,CNTZ=CNT Z+1
  94    S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "                                                                                         ",CNTZ=C NTZ+1
  95    S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "TODAYS DA TE="_PTODA YDT,CNTZ=C NTZ+1
  96    S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "DOMESTIC  COUNT="_DC NT,CNTZ=CN TZ+1
  97    S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "FOREIGN C OUNT="_FCN T,CNTZ=CNT Z+1
  98    S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= " (OUTPUT  FILES ON F S3BIG)                                            ",CN TZ=CNTZ+1
  99    S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "PROVIDER  DOMESTIC N AME/ADDRES S ON FS3BI G=PROVIDER SELDOMESTI CNA.TXT",C NTZ=CNTZ+1
  100    S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "PROVIDER  FOREIGN NA ME/ADDRESS  ON FS3BIG =PROVIDERS ELFOREIGNN A.TXT",CNT Z=CNTZ+1
  101    S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "YOU MUST  IMMEDIATEL Y CHANGE A ND SAVE FI LE NAME ON  FS3BIG    ",CNTZ=CNT Z+1
  102    S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= ""
  103    S XMTEXT= "^CHMZHOLD ($J,""PROV 1-TEXTMESS 2"","
  104    S XMDUZ=. 5
  105    ;S NAMDUZ =$P(^VA(20 0,DUZ,0)," ^",1)
  106    ;S LAST=$ P(NAMDUZ," ,",1)
  107    ;S FIRST= $P(NAMDUZ, ",",2)
  108    ;S NAME=L AST_", "_F IRST
  109    ;S NAMEOU T= PII            "
  110    ;S XMY(NA MEOUT)=""
  111    S XMY(DUZ )=""
  112    S XMSUB=" PROVIDER N AME AND AD DRESS " D  ^XMD ;
  113    K ^CHMZHO LD("PROV-N A-OPT-INP- NA")
  114    Q
  115   EXIT Q
  116   PUTIT ;
  117    S ^CHMZHO LD("ADD1-M EDTRIX",VE N)=NAME G  A0
  118    Q
  119   PRINTIT ;
  120    W !,NAME, "  ",ADD1
  121    G A0
  122    Q
  123    Q
  124   TESTIT Q