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

232.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMVENP5.m Mon Nov 5 16:41:29 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMVENP5.m Mon Nov 5 17:51:55 2018 UTC

232.2 Comparison summary

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

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

232.4 Active regular expressions

No regular expressions were active.

232.5 Comparison detail

  1   CHMVENP5 ; HAC/SKD -  GENERATES  CHAMPVA VE NDOR DATA  REQUEST RE PORTS - CI TI ONLY
  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 5 : CITI cla ims only,  includes p harmacy cl aims
  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    ;       ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," PHACT")    ;pharmacy  claim coun t
  13    ;
  14    ;output:  ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,CHCLSTY ,CHVENI,"B ENECT")
  15    ;         ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,"R EPORT3",CH FY,CHCLSTY ,BCT,CHVEN I)=BCT_U_C HPAIDCT_U_ CHPAID
  16    ;          FS3BIG\CH AMPVA_VEND OR_REPORT5 .TXT
  17    ;          
  18    ;all bene s are coun ted but di d not incl ude reject ed claims.   only pai d CITI cla ims (claim  status=Co mplete) ar e counted.
  19    ;DEV01289 3 DPT REMO VE DECNET
  20    ;
  21   START5 ;
  22    S CHCITIF G="I"
  23    D GETDATA 5
  24    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) ;DEV0 12893 DPT
  25    ;S FILE3= "HACFS3"" DNS     coledec We lcome1!"": :D:[FS3BIG ]CHAMPVA_V ENDOR_REPO RT5_"_UCI_ ".TXT"
  26    S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]" ;D EV012893 D PT
  27    I UCI'="H AC" S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]" ;DEV012 893 DPT
  28    S FILE3=" CHAMPVA_VE NDOR_REPOR T5_"_UCI_" .TXT" ;DEV 012893 DPT
  29    S FILE3=F OLDER_FILE 3 ;DEV0128 93 DPT
  30    S FLDR="/ FS3BIG" ;D EV012893 D PT
  31    O FILE3:" NWS"
  32    U FILE3 D  WREPORT5
  33    C FILE3
  34    D FTPFILE ^CHTFLIB9( FILE3," DNS     fs3. DNS             ",FLDR,"PU T")    ;DEV012893  DPT
  35    Q
  36    ;
  37   GETDATA5 ;
  38    ;INPUT: ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHCLSTY, CHVENI,"BE NE",CHDFN, CHBFN)=""    ;GEN IN  ^CHMVENP1
  39    Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG))
  40    K ^CHMZHO LD("ZSKD_U NIQ_VENDOR ",CHCITIFG ,"REPORT5" )
  41    S CHFY=0
  42    F  S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY)) Q :'CHFY  D
  43    .F CHCLST Y="INP","O UT","RTC"  D
  44    ..S CHVEN I=0
  45    ..F  S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHCLSTY,C HVENI)) Q: 'CHVENI  D
  46    ...K ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HCLSTY,CHV ENI,"BENEC T")
  47    ...S CHDF N=0
  48    ...F  S C HDFN=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHCLSTY,C HVENI,"BEN E",CHDFN))  Q:'CHDFN   D
  49    ....S CHB FN=0
  50    ....F  S  CHBFN=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHCLSTY, CHVENI,"BE NE",CHDFN, CHBFN)) Q: 'CHBFN  D
  51    .....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
  52    ;SORT ON  BENE COUNT
  53    S CHFY=0
  54    F  S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY)) Q :'CHFY  D
  55    .F CHCLST Y="INP","O UT","RTC"  D
  56    ..S CHVEN I=0
  57    ..F  S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHCLSTY,C HVENI)) Q: 'CHVENI  D
  58    ...S (BCT ,CHPAIDCT, CHPAID)=0
  59    ...S BCT= $G(^CHMZHO LD("ZSKD_U NIQ_VENDOR ",CHCITIFG ,CHFY,CHCL STY,CHVENI ,"BENECT") )
  60    ...S CHPA IDCT=$G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHCLSTY,C HVENI,"TPA IDCT"))
  61    ...S CHPA ID=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HCLSTY,CHV ENI,"TPAID "))
  62    ...S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REPOR T5",CHFY,C HCLSTY,BCT ,CHVENI)=B CT_U_CHPAI DCT_U_CHPA ID
  63    Q
  64    ;
  65   WREPORT5 ;
  66    ;input:   ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,CHCLSTY ,"BENECT", BCT,CHVENI )=BENECT_U _CHPAIDCT_ U_CHPAID
  67    ;output:  FS3BIG\CHA MPVA_VENDO R_REPORT5. TXT
  68    ;
  69    Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT5"))
  70    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^PH ARM CLAIM  COUNT"
  71    F CHFY=20 04,2005,20 06 D 
  72    .F CHCLST Y="INP","O UT","RTC", "PHA" D
  73    ..S BCT=" A",TOPCT=0
  74    ..F  S BC T=$O(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,"REPORT 5",CHFY,CH CLSTY,BCT) ,-1) Q:'BC T  Q:$G(TO PCT)>99  D   
  75    ...S CHVE N1=0
  76    ...F  S C HVENI=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT5",CHF Y,CHCLSTY, BCT,CHVENI )) Q:'CHVE NI  Q:$G(T OPCT)>99   D  
  77    ....S (CH TIN,CHVNAM E,CHVENTY, CHMCNO,CHP LAD1,CHPLA D2,CHPLCIT Y,CHPLST,C HPLZIP)=""
  78    ....S (CH PAIDCT,CHP AID,INPBEN CT,OUTBENC T,RTCBENCT ,CHOPCLCT, CHIPCLCT,C HRTCLCT)=0
  79    ....S CHT IN=$P(^CHM VEN(CHVENI ,0),U,3) S  CHTIN=CHT IN_"-"_$P( ^CHMVEN(CH VENI,0),U, 23)
  80    ....S CHV NAME=$P($G (^CHMVEN(C HVENI,0)), U,1),CHVNA ME=$$TRIM^ CHTFLIB($E (CHVNAME,1 ,20))
  81    ....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)
  82    ....S CHM CNO=$$GETM CNO^CHMVEN P3(CHVENI)
  83    ....S CHP LAD1=$P($G (^CHMVEN(C HVENI,2)), U,1)
  84    ....S CHP LAD2=$P($G (^CHMVEN(C HVENI,2)), U,2)
  85    ....S CHP LCITY=$P($ G(^CHMVEN( CHVENI,2)) ,U,3)
  86    ....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)
  87    ....S CHP LZIP=$P($G (^CHMVEN(C HVENI,2)), U,5)
  88    ....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)
  89    ....S CHP AIDCT=$P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT5", CHFY,CHCLS TY,BCT,CHV ENI)),U,2)
  90    ....S CHP AID=$P($G( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,"R EPORT5",CH FY,CHCLSTY ,BCT,CHVEN I)),U,3)
  91    ....S CHO PCLCT=$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," OUTCT"))
  92    ....S CHI PCLCT=$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," INPCT"))
  93    ....S CHR TCLCT=$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," RTCCT"))
  94    ....S CHP HCLCT=$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," PHACT"))
  95    ....;S OU TBENCT=$G( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,"OUT",C HVENI,"BEN ECT"))
  96    ....;S IN PBENCT=$G( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,CHCLSTY ,CHVENI,"B ENECT"))
  97    ....;S RT CBENCT=$G( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,"RTC",C HVENI,"BEN ECT"))
  98    ....S TOP CT=TOPCT+1
  99    ....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)_U_$J (CHPHCLCT, 0,0)
  100    Q 
  101    ;
  102