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

231.1 Files compared

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

231.2 Comparison summary

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

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

231.4 Active regular expressions

No regular expressions were active.

231.5 Comparison detail

  1   CHMVENP4 ; 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 4 :  CITI Pr oviders by  Zip Code  Physical L ocation by  FY (Zip C ode plus f our). 
  5    ;Include  all provid ers with a  PAID clai m or a rej ected clai m under th e CHAMPVA  program wi thin 
  6    ;the past  three fis cal years  (October 1 , 2003 thr ough Septe mber 30, 2 006).
  7    ;
  8    ;>Sort by  FY
  9    ;  >Sort  by Zip Cod e
  10    ;    >Sor t by Provi der's tota l billed c harges 
  11    ;?     To tal billed  charges
  12    ;?     To tal allowa ble amount
  13    ;?     To tal Amount  Paid
  14    ;?     To tal Amount  Paid for  Assignment  of Benefi ts ?No?
  15    ;?     To tal Cost S hare Amoun t
  16    ;?     To tal OHI Pa yment Amou nt
  17    ;?     To tal number  of claims  (excl pha rmacy)
  18    ;?     To tal number  of unique  beneficia ries treat ed
  19    ;?     Av erage age  of unique  beneficiar ies treate d (based o n DOS)
  20    ;
  21    ;DEVELOPE R'S NOTE:
  22    ;-select  all claims  with the  claim stat us complet e or rejec ted
  23    ;-use the  Date Dete rmined Com plete fiel d for the  FY selecti on.
  24    ;-use the  DOS for a ge calc
  25    ;-total c laim count s include  $0 paid cl aims for b ene and pr ovider pay ment
  26    ;-exclude  pharmacy  claims
  27    ;-extract ed data wi ll be save d in FS3BI G with the  file name s: CHAMPVA _VENDOR_RE PORT4.TXT
  28    ; 
  29    ;DEV01289 3 DPT RMV  DECNET
  30    
  31   QUE ;S ZTR TN="START^ CHMVENP1", ZTIO="",ZT DTH=$H
  32    ;S ZTDESC ="Generati ng CHAMPVA  Vendor Re ports"
  33    ;S ZTIO=" "
  34    ;D ^%ZTLO AD S IOP=0  D HOME^%Z IS 
  35    ;Q
  36    ;
  37   REPORT4 ;
  38    S CHCITIF G="I"   ;C ITI
  39    D BENECT   ;count un ique benes  and get t he avg age  per provi der
  40    D PDICT    ;count un ique submi ssions by  PDI type p er provide r
  41    D REJCT    ;count re j code by  rej type p er provide r
  42    D VENSORT   ;sort ve ndors by t otal bille d charges
  43    D FILE4
  44    Q
  45    ;
  46   BENECT ;co unt unique  benes and  get the a vg age per  provider
  47    Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"BENE "))
  48    S CHFY=0
  49    F  S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"BENE",C HFY)) Q:'C HFY  D
  50    .S CHZIP= ""
  51    .F  S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"BENE" ,CHFY,CHZI P)) Q:CHZI P=""  D
  52    ..S CHVEN I=0
  53    ..F  S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"BEN E",CHFY,CH ZIP,CHVENI )) Q:'CHVE NI  D
  54    ...S (CHB ENECT,CHAG ETOT,NCITI BCT,NCITIA MT)=0
  55    ...S CHDF N=0
  56    ...F  S C HDFN=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"BEN E",CHFY,CH ZIP,CHVENI ,CHDFN)) Q :'CHDFN  D
  57    ....S CHB FN=0
  58    ....F  S  CHBFN=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"BE NE",CHFY,C HZIP,CHVEN I,CHDFN,CH BFN)) Q:'C HBFN  D
  59    .....S CH BENECT=CHB ENECT+1
  60    .....S CH AGETOT=CHA GETOT+$P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "BENE",CHF Y,CHZIP,CH VENI,CHDFN ,CHBFN)),U ,1)
  61    .....I $D (^CHMZHOLD ("ZSKD_UNI Q_VENDOR", "REPORT4", "CLAIM","C ",CHFY,CHD FN,CHBFN))  D NONCITI (CHFY,CHDF N,CHBFN)
  62    ...S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"BENECT" )=CHBENECT
  63    ...S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"AVGAGE" )=CHAGETOT \CHBENECT
  64    ...S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"NCITIBC T")=NCITIB CT
  65    ...S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"NCITIAM T")=NCITIA MT
  66    Q
  67    ;
  68   PDICT ;cou nt unique  submission s by PDI t ype per pr ovider
  69    ;^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "PDI",CHFY ,CHZIP,CHV ENI,CHPDIT Y,CHPDI)=" "
  70    Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"PDI" ))
  71    S CHFY=0
  72    F  S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"PDI",CH FY)) Q:'CH FY  D
  73    .S CHZIP= ""
  74    .F  S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"PDI", CHFY,CHZIP )) Q:CHZIP =""  D
  75    ..S CHVEN I=0
  76    ..F  S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"PDI ",CHFY,CHZ IP,CHVENI) ) Q:'CHVEN I  D
  77    ...S CHPD ITY=""
  78    ...F  S C HPDITY=$O( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,"P DI",CHFY,C HZIP,CHVEN I,CHPDITY) ) Q:CHPDIT Y=""  D
  79    ....S CHP DI=0
  80    ....F  S  CHPDI=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"PD I",CHFY,CH ZIP,CHVENI ,CHPDITY,C HPDI)) Q:' CHPDI  D
  81    .....S ^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHZIP,CHV ENI,"PDITY PE",CHPDIT Y)=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"PDITYPE ",CHPDITY) )+1
  82    Q
  83    ;
  84   REJCT   ;c ount rej c ode by rej  type per  provider
  85    Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REJ" ))
  86    S CHFY=0
  87    F  S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"REJ",CH FY)) Q:'CH FY  D
  88    .S CHZIP= ""
  89    .F  S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REJ", CHFY,CHZIP )) Q:CHZIP =""  D
  90    ..S CHVEN I=0
  91    ..F  S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REJ ",CHFY,CHZ IP,CHVENI) ) Q:'CHVEN I  D
  92    ...S CHRE JCD=""
  93    ...F  S C HREJCD=$O( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,"R EJ",CHFY,C HZIP,CHVEN I,CHREJCD) ) Q:CHREJC D=""  D
  94    ....S CHI =0
  95    ....F  S  CHI=$O(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REJ" ,CHFY,CHZI P,CHVENI,C HREJCD,CHI )) Q:'CHI   D
  96    .....S ^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHZIP,CHV ENI,"REJTY PE",CHREJC D)=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"REJTYPE ",CHREJCD) )+1
  97    Q 
  98    ;
  99   CLAIMREJ(C D)
  100    ;CD=REJCD
  101    I $P($G(^ CHMDIC(741 002.22,CD, 0)),U,2)[" CLAIM DENI ED" Q 1
  102    E  Q 0
  103    ;
  104   VENSORT ;s ort vendor s by total  billed ch arges
  105    Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR"))
  106    S CHFY=0
  107    F  S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY)) Q :'CHFY  D
  108    .S CHZIP= ""
  109    .F  S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP)) Q:C HZIP=""  D
  110    ..S CHVEN I=0
  111    ..F  S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHZIP,CHV ENI)) Q:'C HVENI  D
  112    ...Q:$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHZIP,CH VENI,"TBIL LED"))=""
  113    ...S (TBI LLED,TALLO W,TPAID,TN OASGN,TCS, TOHI,TTOVE NCT,TNOASC T,TDENYCT, BENECT,AVG AGE,PAPERC T,EDICT,OC RCT,NCITIB CT,NCITIAM T)=""
  114    ...S TBIL LED=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"TBILLE D"))
  115    ...S TALL OW=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"TALLOW" ))
  116    ...S TPAI D=$G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH ZIP,CHVENI ,"TPAID"))
  117    ...S TNOA SGN=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"TNOASG N"))
  118    ...S TCS= $G(^CHMZHO LD("ZSKD_U NIQ_VENDOR ",CHCITIFG ,CHFY,CHZI P,CHVENI," TCS"))
  119    ...S TOHI =$G(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHZ IP,CHVENI, "TOHI"))
  120    ...S TTOV ENCT=$G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHZIP,CHV ENI,"TTOVE NCT"))
  121    ...S TNOA SCT=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"TNOASC T"))
  122    ...S TDEN YCT=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"TDENYC T"))
  123    ...S BENE CT=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"BENECT" ))
  124    ...S AVGA GE=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"AVGAGE" ))
  125    ...S PAPE RCT=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"PDITYP E","03"))
  126    ...S EDIC T=$G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH ZIP,CHVENI ,"PDITYPE" ,"91"))
  127    ...S OCRC T=$G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH ZIP,CHVENI ,"PDITYPE" ,"94"))
  128    ...S REJT Y=0,REJTYS =""
  129    ...F  S R EJTY=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHZIP,CHV ENI,"REJTY PE",REJTY) ) Q:'REJTY   D
  130    ....S REJ TYS=REJTYS _"("_REJTY _")="_^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"REJTYPE ",REJTY)_" ,"
  131    ...I $L(R EJTYS) I $ E(REJTYS,$ L(REJTYS)) ="," S REJ TYS=$E(REJ TYS,1,$L(R EJTYS)-1) 
  132    ...S NCIT IBCT=$G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHZIP,CHV ENI,"NCITI BCT"))
  133    ...S NCIT IAMT=$G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHZIP,CHV ENI,"NCITI AMT"))
  134    ...S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REPOR T4",CHFY,C HZIP,TBILL ED,CHVENI) =TALLOW_U_ TPAID_U_TN OASGN_U_TC S_U_TOHI_U _TTOVENCT_ U_TNOASCT_ U_TDENYCT_ U_BENECT_U _AVGAGE_U_ PAPERCT_U_ EDICT_U_OC RCT_U_REJT YS_U_NCITI BCT_U_NCIT IAMT
  135    Q
  136    ;
  137   FILE4 ;out put CHAMPV A_VENDOR_R EPORT4.TXT  to FS3BIG
  138    Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT4"))
  139    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  140    ;S FILE1= "HAC_HFS$: [ARC.ROUSA VE_"_UCI_" ]REPORT4.T XT"
  141    ;S X=$ZF( -1,"SET PR OTECTION=( W:RWED) "_ FILE1)
  142    ;S FILE1= "HACFS3"" DNS     coledec We lcome1!"": :D:[FS3BIG ]CHAMPVA_V ENDOR_REPO RT4_"_UCI_ ".TXT"
  143    S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]"  ; DEV012893  DPT 
  144    I 'HAC S  FOLDR="HAC _HFS$:[DSM MANAG]"  ; DEV012893  DPT 
  145    S FILE1=" CHAMPVA_VE NDOR_REPOR T4_"_UCI_" .TXT" ;DEV 012893 DPT  
  146    S FILE1=F OLDER_FILE 1 ;DEV0128 93 DPT 
  147    S FLDR="/ FS3BIG"  ; DEV012893  DPT 
  148     O FILE1: "NWS"
  149    U FILE1 D  WREPORT4
  150    C FILE1
  151    D FTPFILE ^CHTFLIB9( FILE1," DNS     fs3. DNS             ",FLDR,"PU T")    ;DEV012893  DPT
  152     Q
  153    ;
  154   WREPORT4   ;
  155    ;INPUT: S  ^CHMZHOLD ("ZSKD_UNI Q_VENDOR", CHCITIFG," REPORT4",C HFY,CHZIP, TBILLED,CH VENI)=TALL OW_U_TPAID _U_TNOASGN _U_TCS_U_T OHI_U_TTOV ENCT_U_TNO ASCT_U_TDE NYCT_U_BEN ECT_U_AVGA GE_U_PAPER CT_U_EDICT _U_OCRCT_U _REJTYS
  156    ;S CHFY=0
  157    ;F  S CHF Y=$O(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,"REPORT 4",CHFY))  Q:'CHFY  D
  158    Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT4"))
  159    W !,"FY^Z IP^TIN^VEN DOR NAME^T OTAL BILLE D^TOTAL AL LOWED^TOTA L PAID^TOT AL ASGN=NO ^TOTAL CS^ TOTAL OHI^ # TO PROV^ # TO BENE^ # DENIED^#  BENES^AVG  BENE AGE^ # PAPER^#  EDI^# OCR^ (REJ REASO N)=COUNT^N ON-CITI BE NE COUNT^N ON-CITI PA ID AMOUNT"
  160    S CHRPT=" REPORT4",C HCITIFG="I "
  161    F CHFY=20 04,2005,20 06 D  
  162    .;D WTITL E,RPT1HEAD
  163    .S (TOTBI LL,TOTALLO W,TOTPAID, TOTBENE,TO TCS,TOTOHI ,TOVENCT,T OBENCT,TDE NCT,TBENCT ,TAVGAGE,T PAPCT,TEDI CT,TOCRCT, VENCT)=0
  164    .S CHZIP= ""
  165    .F  S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REPOR T4",CHFY,C HZIP)) Q:C HZIP=""  D
  166    ..S TBILL ED="A"
  167    ..F  S TB ILLED=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT4",CHF Y,CHZIP,TB ILLED),-1)  Q:'TBILLE D  D
  168    ...S CHVE NI=0
  169    ...F  S C HVENI=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT4",CHF Y,CHZIP,TB ILLED,CHVE NI)) Q:'CH VENI  D
  170    ....S CHV NAME=$P($G (^CHMVEN(C HVENI,0)), U,1),CHVNA ME=$$TRIM^ CHTFLIB($E (CHVNAME,1 ,20))
  171    ....S CHT IN=$P($G(^ CHMVEN(CHV ENI,0)),U, 3) S CHTIN =CHTIN_"-" _$P(^CHMVE N(CHVENI,0 ),U,23)
  172    ....S CHZ IP4=$P($G( ^CHMVEN(CH VENI,2)),U ,5)
  173    ....S TOT BILL=TOTBI LL+TBILLED
  174    ....S TOT ALLOW=TOTA LLOW+$P($G (^CHMZHOLD ("ZSKD_UNI Q_VENDOR", CHCITIFG," REPORT4",C HFY,CHZIP, TBILLED,CH VENI)),U,1 )
  175    ....S TOT PAID=TOTPA ID+$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT4",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,2)
  176    ....S TOT BENE=TOTBE NE+$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT4",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,3)
  177    ....S TOT CS=TOTCS+$ P($G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,"REPORT 4",CHFY,CH ZIP,TBILLE D,CHVENI)) ,U,4)
  178    ....S TOT OHI=TOTOHI +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT4",CHFY, CHZIP,TBIL LED,CHVENI )),U,5)
  179    ....S TOV ENCT=TOVEN CT+$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT4",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,6)
  180    ....S TOB ENCT=TOBEN CT+$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT4",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,7)
  181    ....S TDE NCT=TDENCT +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT4",CHFY, CHZIP,TBIL LED,CHVENI )),U,8)
  182    ....S TBE NCT=TBENCT +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT4",CHFY, CHZIP,TBIL LED,CHVENI )),U,9)
  183    ....S TAV GAGE=TAVGA GE+$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT4",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,10)
  184    ....S TPA PCT=TPAPCT +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT4",CHFY, CHZIP,TBIL LED,CHVENI )),U,11)
  185    ....S TED ICT=TEDICT +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT4",CHFY, CHZIP,TBIL LED,CHVENI )),U,12)
  186    ....S TOC RCT=TOCRCT +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT4",CHFY, CHZIP,TBIL LED,CHVENI )),U,13)
  187    ....S VEN CT=VENCT+1
  188    ....S WRE C=""
  189    ....S WRE C=CHFY_U_C HZIP4_U_CH TIN_U_CHVN AME_U_$J(T BILLED,0,2 )_U_$J($P( $G(^CHMZHO LD("ZSKD_U NIQ_VENDOR ",CHCITIFG ,"REPORT4" ,CHFY,CHZI P,TBILLED, CHVENI)),U ,1),0,2)
  190    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,2),0 ,2)
  191    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,3),0 ,2)
  192    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,4),0 ,2)
  193    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,5),0 ,2)
  194    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,6),0 ,0)
  195    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,7),0 ,0)
  196    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,8),0 ,0)
  197    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,9),0 ,0)
  198    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,10), 0,0)
  199    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,11), 0,0)
  200    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,12), 0,0)
  201    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,13), 0,0)
  202    ....S WRE C=WREC_U_$ P($G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,"REPORT 4",CHFY,CH ZIP,TBILLE D,CHVENI)) ,U,14)
  203    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,15), 0,0)
  204    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,16), 0,2)
  205    ....W !,W REC
  206    Q
  207    ;
  208   NONCITI(Z1 ,Z2,Z3) ;g et non-CIT I claim be ne count a nd non-CIT I claim pa id amount  for the ve ndor
  209    ;Z1 = CHF Y
  210    ;Z2 = CHD FN
  211    ;Z3 = CHB FN
  212    ;ZCI = CL AIM IEN
  213    S ZCI=0,Z PD=0
  214    F  S ZCI= $O(^CHMZHO LD("ZSKD_U NIQ_VENDOR ","REPORT4 ","CLAIM", "C",Z1,Z2, Z3,ZCI)) Q :'ZCI  D  
  215    .S ZPD=ZP D+$P($G(^C HMPAY(ZCI, 1)),U,1)
  216    I ZPD>0 S  NCITIBCT= NCITIBCT+1 ,NCITIAMT= NCITIAMT+Z PD
  217    Q
  218    ;
  219   TESTING ;
  220    ;lists be ne's non-C ITI paid c laims and  paid amoun
  221    Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"BENE "))
  222    S CHFY=0
  223    F  S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"BENE",C HFY)) Q:'C HFY  D
  224    .S CHZIP= ""
  225    .F  S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"BENE" ,CHFY,CHZI P)) Q:CHZI P=""  D
  226    ..S CHVEN I=0
  227    ..F  S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"BEN E",CHFY,CH ZIP,CHVENI )) Q:'CHVE NI  D
  228    ...S (CHB ENECT,CHAG ETOT,NCITI BCT,NCITIA MT)=0
  229    ...S CHDF N=0
  230    ...F  S C HDFN=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"BEN E",CHFY,CH ZIP,CHVENI ,CHDFN)) Q :'CHDFN  D
  231    ....S CHB FN=0
  232    ....F  S  CHBFN=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"BE NE",CHFY,C HZIP,CHVEN I,CHDFN,CH BFN)) Q:'C HBFN  D
  233    .....S CH BENECT=CHB ENECT+1
  234    .....S CH AGETOT=CHA GETOT+$P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "BENE",CHF Y,CHZIP,CH VENI,CHDFN ,CHBFN)),U ,1)
  235    .....I $D (^CHMZHOLD ("ZSKD_UNI Q_VENDOR", "REPORT4", "CLAIM","C ",CHFY,CHD FN,CHBFN))  D  
  236    ......U 0  W !,CHFY_ U_CHZIP_U_ CHVENI_U_C HDFN_U_CHB FN
  237    ......D N ONCITI(CHF Y,CHDFN,CH BFN)
  238    ...;S ^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"BENECT ")=CHBENEC T
  239    ...;S ^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"AVGAGE ")=CHAGETO T\CHBENECT
  240    ...;S ^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"NCITIB CT")=NCITI BCT
  241    ...;S ^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"NCITIA MT")=NCITI AMT
  242    Q
  243    ;