230. EPMO Open Source Coordination Office Redaction File Detail Report

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

230.1 Files compared

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

230.2 Comparison summary

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

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

230.4 Active regular expressions

No regular expressions were active.

230.5 Comparison detail

  1   CHMVENP3 ; HAC/SKD -  GENERATES  CHAMPVA VE NDOR DATA  REQUEST RE PORTS
  2    ;This inf ormation i s needed b y J.D. Fai rey, Offic e the Dire ctor, to p erform con tractual o bligations
  3    ;
  4    ;Report 3 :
  5    ;input: ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHCLSTY, CHVENI,"TP AIDCT")=TP AID CL COU NT  ;GENER ATED IN ^C HMVENP1
  6    ;       ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHCLSTY, CHVENI,"TP AID")=TPAI D AMT      ;GENERATED  IN ^CHMVE NP1
  7    ;       ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHCLSTY, CHVENI,"BE NE",CHDFN, CHBFN)=""   ;GENERATE D IN ^CHMV ENP1
  8    ;
  9    ;       ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," OUTCT")    ;outpaitie nt claim c ount
  10    ;       ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," INPCT")    ;inpaitien t claim co unt
  11    ;       ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," RTCCT")    ;RTC claim  count
  12    ;
  13    ;output:  ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,CHCLSTY ,CHVENI,"B ENECT")
  14    ;         ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,"R EPORT3",CH FY,CHCLSTY ,BCT,CHVEN I)=BCT_U_C HPAIDCT_U_ CHPAID
  15    ;          FS3BIG\CH AMPVA_VEND OR_REPORT3 .TXT
  16    ;DEV01289 3 DPT RMV  DECNET
  17    ;
  18   START3 ;
  19    S CHCITIF G="C"
  20    D GETDATA 3
  21    ;S FILE3= "HACFS3"" DNS     coledec We lcome1!"": :D:[FS3BIG ]CHAMPVA_V ENDOR_REPO RT3_"_UCI_ ".TXT"
  22     X ^%ZOSF ("UCI") S  UCI=$P(Y," ,",1) ;DEV 012893 DPT    
  23    S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]"  ; DEV012893  DPT 
  24    I 'HAC S  FOLDR="HAC _HFS$:[DSM MANAG]"  ; DEV012893  DPT 
  25    S FILE3=" CHAMPVA_VE NDOR_REPOR T3_"_UCI_" .TXT" ;DEV 012893 DPT  
  26    S FLDR="/ FS3BIG" ;D EV012893 D PT 
  27    S FIL3E3= FOLDER_FIL E3 ;DEV012 893 DPT 
  28    O FILE3:" NWS"
  29    U FILE3 D  WREPORT3
  30    C FILE3
  31    D FTPFILE ^CHTFLIB9( FILE3," DNS     fs3. DNS             ",FLDR,"PU T")    ;DEV012893  DPT
  32    Q
  33    ;
  34   GETDATA3 ;
  35    ;INPUT: ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHCLSTY, CHVENI,"BE NE",CHDFN, CHBFN)=""    ;GEN IN  ^CHMVENP1
  36    Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR","C") )
  37    K ^CHMZHO LD("ZSKD_U NIQ_VENDOR ","C","REP ORT3")
  38    S CHCITIF G="C"
  39    S CHFY=0
  40    F  S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY)) Q :'CHFY  D
  41    .F CHCLST Y="INP","O UT","RTC"  D
  42    ..S CHVEN I=0
  43    ..F  S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHCLSTY,C HVENI)) Q: 'CHVENI  D
  44    ...K ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HCLSTY,CHV ENI,"BENEC T")
  45    ...S CHDF N=0
  46    ...F  S C HDFN=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHCLSTY,C HVENI,"BEN E",CHDFN))  Q:'CHDFN   D
  47    ....S CHB FN=0
  48    ....F  S  CHBFN=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHCLSTY, CHVENI,"BE NE",CHDFN, CHBFN)) Q: 'CHBFN  D
  49    .....S ^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHCLSTY,C HVENI,"BEN ECT")=$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHCLSTY, CHVENI,"BE NECT"))+1
  50    ;SORT ON  BENE COUNT
  51    S CHFY=0
  52    F  S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY)) Q :'CHFY  D
  53    .F CHCLST Y="INP","O UT","RTC"  D
  54    ..S CHVEN I=0
  55    ..F  S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHCLSTY,C HVENI)) Q: 'CHVENI  D
  56    ...S (BCT ,CHPAIDCT, CHPAID)=0
  57    ...S BCT= $G(^CHMZHO LD("ZSKD_U NIQ_VENDOR ",CHCITIFG ,CHFY,CHCL STY,CHVENI ,"BENECT") )
  58    ...S CHPA IDCT=$G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHCLSTY,C HVENI,"TPA IDCT"))
  59    ...S CHPA ID=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HCLSTY,CHV ENI,"TPAID "))
  60    ...S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REPOR T3",CHFY,C HCLSTY,BCT ,CHVENI)=B CT_U_CHPAI DCT_U_CHPA ID
  61    Q
  62    ;
  63   WREPORT3 ;
  64    ;input:   ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,CHCLSTY ,"BENECT", BCT,CHVENI )=BENECT_U _CHPAIDCT_ U_CHPAID
  65    ;output:  FS3BIG\CHA MPVA_VENDO R_REPORT3. TXT
  66    ;
  67    Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR","C", "REPORT3") )
  68    W !,"ORDE R NO^FY^SE RVICE TYPE ^TIN^VENDO R NAME^FAC ILITY TYPE ^MEDICARE  NO^PL ADDR ESS 1^PL A DDRESS 2^C ITY^STATE^ ZIP^# CLAI MS PAID^TO TAL PAID^B ENE COUNT^ OUT CLAIM  COUNT^INP  CLAIM COUN T^RTC CLAI M COUNT"
  69    S CHCITIF G="C"
  70    F CHFY=20 04,2005,20 06 D 
  71    .F CHCLST Y="INP","O UT","RTC"  D
  72    ..S BCT=" A",TOPCT=0
  73    ..F  S BC T=$O(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,"REPORT 3",CHFY,CH CLSTY,BCT) ,-1) Q:'BC T  Q:$G(TO PCT)>99  D   
  74    ...S CHVE N1=0
  75    ...F  S C HVENI=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT3",CHF Y,CHCLSTY, BCT,CHVENI )) Q:'CHVE NI  Q:$G(T OPCT)>99   D  
  76    ....S (CH TIN,CHVNAM E,CHVENTY, CHMCNO,CHP LAD1,CHPLA D2,CHPLCIT Y,CHPLST,C HPLZIP)=""
  77    ....S (CH PAIDCT,CHP AID,INPBEN CT,OUTBENC T,RTCBENCT ,CHOPCLCT, CHIPCLCT,C HRTCLCT)=0
  78    ....S CHT IN=$P(^CHM VEN(CHVENI ,0),U,3) S  CHTIN=CHT IN_"-"_$P( ^CHMVEN(CH VENI,0),U, 23)
  79    ....S CHV NAME=$P($G (^CHMVEN(C HVENI,0)), U,1),CHVNA ME=$$TRIM^ CHTFLIB($E (CHVNAME,1 ,20))
  80    ....S CHV ENTY=$P($G (^CHMVEN(C HVENI,1)), U,7) I $G( CHVENTY) S  CHVENTY=$ E($P($G(^C HMDIC(7410 02.11,CHVE NTY,0)),U, 2),1,15)
  81    ....S CHM CNO=$$GETM CNO(CHVENI )
  82    ....S CHP LAD1=$P($G (^CHMVEN(C HVENI,2)), U,1)
  83    ....S CHP LAD2=$P($G (^CHMVEN(C HVENI,2)), U,2)
  84    ....S CHP LCITY=$P($ G(^CHMVEN( CHVENI,2)) ,U,3)
  85    ....S CHP LST=$P($G( ^CHMVEN(CH VENI,2)),U ,4) I $G(C HPLST) S C HPLST=$P($ G(^DIC(5,C HPLST,0)), U,2)
  86    ....S CHP LZIP=$P($G (^CHMVEN(C HVENI,2)), U,5)
  87    ....S CHV ENTY=$P($G (^CHMVEN(C HVENI,1)), U,7) I $G( CHVENTY) S  CHVENTY=$ E($P($G(^C HMDIC(7410 02.11,CHVE NTY,0)),U, 2),1,15)
  88    ....S CHP AIDCT=$P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT3", CHFY,CHCLS TY,BCT,CHV ENI)),U,2)
  89    ....S CHP AID=$P($G( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,"R EPORT3",CH FY,CHCLSTY ,BCT,CHVEN I)),U,3)
  90    ....S CHO PCLCT=$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," OUTCT"))
  91    ....S CHI PCLCT=$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," INPCT"))
  92    ....S CHR TCLCT=$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," RTCCT"))
  93    ....;S OU TBENCT=$G( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,"OUT",C HVENI,"BEN ECT"))
  94    ....;S IN PBENCT=$G( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,CHCLSTY ,CHVENI,"B ENECT"))
  95    ....;S RT CBENCT=$G( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,"RTC",C HVENI,"BEN ECT"))
  96    ....S TOP CT=TOPCT+1
  97    ....W !,T OPCT_U_CHF Y_U_CHCLST Y_U_CHTIN_ U_CHVNAME_ U_CHVENTY_ U_CHMCNO_U _CHPLAD1_U _CHPLAD2_U _CHPLCITY_ U_CHPLST_U _CHPLZIP_U _$J(CHPAID CT,0,0)_U_ $J(CHPAID, 0,2)_U_$J( BCT,0,0)_U _$J(CHOPCL CT,0,0)_U_ $J(CHIPCLC T,0,0)_U_$ J(CHRTCLCT ,0,0)
  98    Q 
  99    ;
  100   GETMCNO(ZV ) ;
  101    ;ZV=VENDO R IEN
  102    S J=0,MC= ""
  103    F  S J=$O (^CHMVEN(Z V,400,J))  Q:'J  D
  104    .Q:$G(^CH MVEN(ZV,40 0,J,0))=""
  105    .Q:$G(^CH MVEN(ZV,40 0,J,0))="9 99999"
  106    .S MC=MC_ $G(^CHMVEN (ZV,400,J, 0))_","
  107    I $L(MC)  S MC=$E(MC ,1,($L(MC) -1))
  108    Q MC
  109    ;