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

228.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMVENP1.m Mon Nov 5 16:38:50 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMVENP1.m Mon Nov 5 17:51:52 2018 UTC

228.2 Comparison summary

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

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

228.4 Active regular expressions

No regular expressions were active.

228.5 Comparison detail

  1   CHMVENP1 ; 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 1 :  Non-CIT I Provider s by Zip C ode Physic al Locatio n by FY (Z ip Code pl us four). 
  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    ;Sort by  FY, Zip an d total bi lled.
  8    ;
  9    ;>Sort by  FY
  10    ;  >Sort  by Zip Cod e
  11    ;    >Sor t by Provi der's tota l billed c harges 
  12    ;?     To tal billed  charges
  13    ;?     To tal allowa ble amount
  14    ;?     To tal Amount  Paid
  15    ;?     To tal Amount  Paid for  Assignment  of Benefi ts ?No?
  16    ;?     To tal Cost S hare Amoun t
  17    ;?     To tal OHI Pa yment Amou nt
  18    ;?     To tal number  of claims  (excl pha rmacy)
  19    ;?     To tal number  of unique  beneficia ries treat ed
  20    ;?     Av erage age  of unique  beneficiar ies treate d (based o n DOS)
  21    ;
  22    ;DEVELOPE R'S NOTE:
  23    ;-select  all claims  with the  claim stat us complet e or rejec ted
  24    ;-use the  Date Dete rmined Com plete fiel d for the  FY selecti on.
  25    ;-use the  DOS for a ge calc
  26    ;-total c laim count s include  $0 paid cl aims for b ene and pr ovider pay ment
  27    ;-exclude  pharmacy  claims if  not CITI
  28    ;-extract ed data wi ll be save d in FS3BI G with the  file name s: CHAMPVA _VENDOR_RE PORT1.TXT
  29    ;                                                           CHAM PVA_VENDOR _REPORT2.T XT
  30    ;                                                           CHAM PVA_VENDOR _REPORT3.T XT
  31    ;                                                           CHAM PVA_VENDOR _REPORT4.T XT
  32    ;                                                           CHAM PVA_VENDOR _REPORT5.T XT
  33    ; 
  34    S U="^"
  35    S %DT="", X="T" D ^% DT S DT=Y
  36    S IOP=0 D  ^%ZIS
  37    I '$G(DUZ ) S DUZ=99 44
  38    ;
  39    K ^CHMZHO LD("ZSKD_U NIQ_VENDOR ")
  40   QUE S ZTRT N="START^C HMVENP1",Z TIO="",ZTD TH=$H
  41    S ZTDESC= "Generatin g CHAMPVA  Vendor Rep orts"
  42    S ZTIO=""
  43    D ^%ZTLOA D S IOP=0  D HOME^%ZI
  44    Q
  45    ;
  46   START ;
  47    D REPORT1   ;output  CHAMPVA_VE NDOR_REPOR T1.TXT to  FS3BIG
  48    D ^CHMVEN P2  ;outpu t CHAMPVA_ VENDOR_REP ORT2.TXT t o FS3BIG
  49    D ^CHMVEN P3  ;outpu t CHAMPVA_ VENDOR_REP ORT3.TXT t o FS3BIG
  50    D ^CHMVEN P4  ;outpu t CHAMPVA_ VENDOR_REP ORT4.TXT t o FS3BIG
  51    D ^CHMVEN P5  ;outpu t CHAMPVA_ VENDOR_REP ORT5.TXT t o FS3BIG
  52    D KILLVAR
  53    Q
  54    ;
  55   REPORT1 ;
  56    D GETDATA 1
  57    D BENECT   ;count un ique benes  and get t he avg age  per provi der
  58    D PDICT    ;count un ique submi ssions by  PDI type p er provide r
  59    D REJCT    ;count re j code by  rej type p er provide r
  60    D VENSORT   ;sort ve ndors by t otal bille d charges
  61    D FILE1
  62    Q
  63    ;
  64   GETDATA1 ;
  65    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  66    S BEGDT=3 031000,END DT=3060930 .999999,BE GI=1700000 0,ENDI=410 00000   ;i n HAC
  67    I UCI'="H AC" S BEGD T=3031000, ENDDT=3040 930.999999 ,BEGI=1700 0000,ENDI= 24800000    ;FY04 onl y - for te sting in n on HAC env ironments
  68    S I=BEGI
  69    F  S I=$O (^CHMPAY(I )) Q:I>END I  D
  70    .Q:'$D(^C HMPAY(I,0) )
  71    .D INITVA R
  72    .S CHSTAT US=$P($G(^ CHMPAY(I,0 )),U,2)
  73    .Q:CHSTAT US'=0&(CHS TATUS'=4)    ;skip if  status is  not Compl ete or Rej ect
  74    .Q:$P($G( ^CHMPAY(I, 0)),U,27)' =1  ;skip  if not CHA MPVA
  75    .S CHVENI =$P($G(^CH MPAY(I,0)) ,U,3) Q:'C HVENI
  76    .Q:'$D(^C HMVEN(CHVE NI,0))
  77    .S CHCLTY =$P($G(^CH MPAY(I,0)) ,U,7)
  78    .I CHCLTY =3 Q:$P($G (^CHMVEN(C HVENI,1)), U,16)'=1   ;if a phar macy claim , skip if  not CITI
  79    .S CHCLST Y="OTH"
  80    .I CHCLTY =1 S CHCLS TY="INP"
  81    .I CHCLTY =2 S CHCLS TY="OUT"
  82    .I CHCLTY =1!(CHCLTY =2) I $P($ G(^CHMVEN( CHVENI,0)) ,U,22)=1 S  CHCLSTY=" RTC"
  83    .I CHCLTY =3 S CHCLS TY="PHA"
  84    .S CHCOMP DT=$P($G(^ CHMPAY(I,0 )),U,10)
  85    .Q:CHCOMP DT<BEGDT   ;skip if n ot in date  range
  86    .Q:CHCOMP DT>ENDDT   ;skip if n ot in date  range
  87    .;Q:$P($G (^CHMPAY(I ,1)),U,1)' >0  ;skip  if no paid  amount
  88    .S CHVNAM E=$P($G(^C HMVEN(CHVE NI,0)),U,1 ) Q:CHVNAM E=""
  89    .S CHCITI FG="C" I $ P($G(^CHMV EN(CHVENI, 1)),U,16)= 1 S CHCITI FG="I"   ; CITI vendo r
  90    .S CHVNAM E=$$TRIM^C HTFLIB($E( CHVNAME,1, 20))
  91    .S CHZIP= $P($G(^CHM VEN(CHVENI ,2)),U,5)  Q:CHZIP=""
  92    .S CHZIP= $E(CHZIP,1 ,5)_" "
  93    .S CHTIN= $P(^CHMVEN (CHVENI,0) ,U,3) Q:'C HTIN  
  94    .S CHTIN= CHTIN_"-"_ $P(^CHMVEN (CHVENI,0) ,U,23)
  95    .S CHFY=$ $FYR4^CHTF LIB(CHCOMP DT)
  96    .S CHBILL ED=$P($G(^ CHMPAY(I," COMMON")), U,1)
  97    .S CHCAA= $P($G(^CHM PAY(I,"COM MON")),U,7 )
  98    .S CHPAID =$P($G(^CH MPAY(I,1)) ,U,1)
  99    .I $P($G( ^CHMPAY(I, 0)),U,5)'= 1 S CHNOAS GN=$P($G(^ CHMPAY(I,1 )),U,1) 
  100    .S CHCS=$ P($G(^CHMP AY(I,1)),U ,6)
  101    .S CHOHI= $P($G(^CHM PAY(I,1)), U,7)
  102    .;get tot al number  of claims  count
  103    .S CHTCLM CT=CHTCLMC T+1
  104    .I CHSTAT US=0 D  
  105    ..S DENYC L=1
  106    ..S ^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH ZIP,CHVENI ,"TDENYCT" )=$G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH ZIP,CHVENI ,"TDENYCT" ))+1
  107    ..S CHREJ CD="" S CH REJCD=$P($ G(^CHMPAY( I,0)),U,13
  108    ..I CHREJ CD="" D  Q :CHREJCD=" "
  109    ...S J=0
  110    ...F  S J =$O(^CHMPA Y(I,4,J))  Q:'J  D  
  111    ....S RJC D="" S RJC D=$P($G(^C HMPAY(I,4, J,0)),U,1)  Q:RJCD=""
  112    ....S RJF G=0 S RJFG =$$CLAIMRE J(RJCD)
  113    ....I RJF G S CHREJC D=RJCD
  114    ..S ^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,"REJ",C HFY,CHZIP, CHVENI,CHR EJCD,I)=""
  115    .I CHSTAT US=4,$P($G (^CHMPAY(I ,0)),U,5)= 1 S PROVCL =1 S ^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH ZIP,CHVENI ,"TTOVENCT ")=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"TTOVENC T"))+1
  116    .I CHSTAT US=4,$P($G (^CHMPAY(I ,0)),U,5)' =1 S NOASC L=1 S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"TNOASCT ")=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"TNOASCT "))+1
  117    .;
  118    .S CHDOS= $P($G(^CHM PAY(I,0)), U,8) Q:'CH DOS
  119    .S CHDFN= $P($G(^CHM PAY(I,0)), U,21) Q:'C HDFN
  120    .S CHBFN= $P($G(^CHM PAY(I,0)), U,22) Q:'C HBFN
  121    .;S CHDFN I=$O(^CHMD FN("B",CHD FN,0)) Q:' CHDFNI
  122    .;S CHBFN I=$O(^CHMD FN(CHDFNI, 100,"B",CH BFN)) Q:'C HBFNI
  123    .S CHDOB= $P($G(^AHC HVA(CHDFN, 100,CHBFN, 0)),U,3) Q :'CHDOB
  124    .S CHAGE= $$AGE^CHTF LIB(CHDOB, CHDOS)
  125    .S CHSEX= $P($G(^AHC HVA(CHDFN, 100,CHBFN, 0)),U,2)
  126    .S CHPDI= $P($G(^CHM PAY(I,0)), U,4)
  127    .I CHPDI= "" S CHPDI =$P($G(^CH MPAY(I,"PD I",1,0)),U ,1)
  128    .I $G(CHP DI)'="" S  CHPDI=$P(C HPDI,"*",1 ),CHPDITY= $E(CHPDI,8 ,9) 
  129    .I CHSTAT US=4 D     ;for Repor t3
  130    ..S ^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH ZIP,CHVENI ,"TPAIDCLC T")=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"TPAIDC LCT"))+1
  131    ..I CHCLT Y=3 S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HVENI,"PHA CT")=$G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHVENI,"P HACT"))+1  Q   ;FOR R EPORT5 IN  ^CHMVENP3
  132    ..I CHCLT Y=2 S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HVENI,"OUT CT")=$G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHVENI,"O UTCT"))+1  Q   ;FOR R EPORT3 IN  ^CHMVENP3
  133    ..I CHCLT Y=1 S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HVENI,"INP CT")=$G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHVENI,"I NPCT"))+1      ;FOR R EPORT3 IN  ^CHMVENP3
  134    ..I $P($G (^CHMPAY(I ,"COMMON") ),U,16)=10  S ^CHMZHO LD("ZSKD_U NIQ_VENDOR ",CHCITIFG ,CHFY,CHVE NI,"RTCCT" )=$G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH VENI,"RTCC T"))+1  ;F OR REPORT3  IN ^CHMVE NP3
  135    .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHZ IP,CHVENI, "TBILLED") =$G(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHZ IP,CHVENI, "TBILLED") )+CHBILLED
  136    .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHZ IP,CHVENI, "TALLOW")= $G(^CHMZHO LD("ZSKD_U NIQ_VENDOR ",CHCITIFG ,CHFY,CHZI P,CHVENI," TALLOW"))+ CHCAA
  137    .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHZ IP,CHVENI, "TPAID")=$ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, CHFY,CHZIP ,CHVENI,"T PAID"))+CH PAID
  138    .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHZ IP,CHVENI, "TNOASGN") =$G(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHZ IP,CHVENI, "TNOASGN") )+CHNOASGN
  139    .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHZ IP,CHVENI, "TCS")=$G( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,CHZIP,C HVENI,"TCS "))+CHCS
  140    .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHZ IP,CHVENI, "TOHI")=$G (^CHMZHOLD ("ZSKD_UNI Q_VENDOR", CHCITIFG,C HFY,CHZIP, CHVENI,"TO HI"))+CHOH I
  141    .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"BENE",C HFY,CHZIP, CHVENI,CHD FN,CHBFN)= CHAGE_U_CH SEX_U_CHBI LLED_U_CHC AA_U_CHPAI D_U_CHNOAS GN_U_CHCS_ U_CHOHI_U_ CHVENI        ;unique  bene
  142    .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"BENE",C HFY,CHZIP, CHVENI,CHD FN,CHBFN,I )=CHAGE_U_ CHSEX_U_CH BILLED_U_C HCAA_U_CHP AID_U_CHNO ASGN_U_CHC S_U_CHOHI_ U_CHVENI        ;uniq ue bene an d claims
  143    .I CHPDIT Y="03"!(CH PDITY="91" )!(CHPDITY ="94") S ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"PD I",CHFY,CH ZIP,CHVENI ,CHPDITY,C HPDI)=""      ;unique  PDI
  144    .;for rep ort3 and 5
  145    .I CHSTAT US=4 S ^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHCLSTY,CH VENI,"TPAI DCT")=$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHCLSTY, CHVENI,"TP AIDCT"))+1
  146    .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHC LSTY,CHVEN I,"TPAID") =$G(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHC LSTY,CHVEN I,"TPAID") )+CHPAID
  147    .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHC LSTY,CHVEN I,"BENE",C HDFN,CHBFN )=""
  148    .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHC LSTY,CHVEN I,"BENE",C HDFN,CHBFN ,I)=""  ;D ELETE AFTE R TESTING
  149    .I CHSTAT US=4 S ^CH MZHOLD("ZS KD_UNIQ_VE NDOR","REP ORT4","CLA IM",CHCITI FG,CHFY,CH DFN,CHBFN, I)=""   ;d ata needed  for repor t4
  150    Q
  151    ;
  152   BENECT ;co unt unique  benes and  get the a vg age per  provider
  153    Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"BENE "))
  154    S CHFY=0
  155    F  S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"BENE",C HFY)) Q:'C HFY  D
  156    .S CHZIP= ""
  157    .F  S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"BENE" ,CHFY,CHZI P)) Q:CHZI P=""  D
  158    ..S CHVEN I=0
  159    ..F  S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"BEN E",CHFY,CH ZIP,CHVENI )) Q:'CHVE NI  D
  160    ...S (CHB ENECT,CHAG ETOT)=0
  161    ...S CHDF N=0
  162    ...F  S C HDFN=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"BEN E",CHFY,CH ZIP,CHVENI ,CHDFN)) Q :'CHDFN  D
  163    ....S CHB FN=0
  164    ....F  S  CHBFN=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"BE NE",CHFY,C HZIP,CHVEN I,CHDFN,CH BFN)) Q:'C HBFN  D
  165    .....S CH BENECT=CHB ENECT+1
  166    .....S CH AGETOT=CHA GETOT+$P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "BENE",CHF Y,CHZIP,CH VENI,CHDFN ,CHBFN)),U ,1)
  167    ...S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"BENECT" )=CHBENECT
  168    ...I $G(C HBENECT) S  ^CHMZHOLD ("ZSKD_UNI Q_VENDOR", CHCITIFG,C HFY,CHZIP, CHVENI,"AV GAGE")=CHA GETOT\CHBE NECT
  169    Q
  170    ;
  171   PDICT ;cou nt unique  submission s by PDI t ype per pr ovider
  172    ;^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "PDI",CHFY ,CHZIP,CHV ENI,CHPDIT Y,CHPDI)=" "
  173    Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"PDI" ))
  174    S CHFY=0
  175    F  S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"PDI",CH FY)) Q:'CH FY  D
  176    .S CHZIP= ""
  177    .F  S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"PDI", CHFY,CHZIP )) Q:CHZIP =""  D
  178    ..S CHVEN I=0
  179    ..F  S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"PDI ",CHFY,CHZ IP,CHVENI) ) Q:'CHVEN I  D
  180    ...S CHPD ITY=""
  181    ...F  S C HPDITY=$O( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,"P DI",CHFY,C HZIP,CHVEN I,CHPDITY) ) Q:CHPDIT Y=""  D
  182    ....S CHP DI=0
  183    ....F  S  CHPDI=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"PD I",CHFY,CH ZIP,CHVENI ,CHPDITY,C HPDI)) Q:' CHPDI  D
  184    .....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
  185    Q
  186    ;
  187   REJCT   ;c ount rej c ode by rej  type per  provider
  188    Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REJ" ))
  189    S CHFY=0
  190    F  S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"REJ",CH FY)) Q:'CH FY  D
  191    .S CHZIP= ""
  192    .F  S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REJ", CHFY,CHZIP )) Q:CHZIP =""  D
  193    ..S CHVEN I=0
  194    ..F  S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REJ ",CHFY,CHZ IP,CHVENI) ) Q:'CHVEN I  D
  195    ...S CHRE JCD=""
  196    ...F  S C HREJCD=$O( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,"R EJ",CHFY,C HZIP,CHVEN I,CHREJCD) ) Q:CHREJC D=""  D
  197    ....S CHI =0
  198    ....F  S  CHI=$O(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REJ" ,CHFY,CHZI P,CHVENI,C HREJCD,CHI )) Q:'CHI   D
  199    .....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
  200    Q 
  201    ;
  202   CLAIMREJ(C D)
  203    ;CD=REJCD
  204    I $P($G(^ CHMDIC(741 002.22,CD, 0)),U,2)[" CLAIM DENI ED" Q 1
  205    E  Q 0
  206    ;
  207   VENSORT ;s ort vendor s by total  billed ch arges
  208    Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR"))
  209    S CHFY=0
  210    F  S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY)) Q :'CHFY  D
  211    .S CHZIP= ""
  212    .F  S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP)) Q:C HZIP=""  D
  213    ..S CHVEN I=0
  214    ..F  S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHZIP,CHV ENI)) Q:'C HVENI  D
  215    ...Q:$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHZIP,CH VENI,"TBIL LED"))=""
  216    ...S (TBI LLED,TALLO W,TPAID,TN OASGN,TCS, TOHI,TTOVE NCT,TNOASC T,TDENYCT, BENECT,AVG AGE,PAPERC T,EDICT,OC RCT)=""
  217    ...S TBIL LED=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"TBILLE D"))
  218    ...S TALL OW=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"TALLOW" ))
  219    ...S TPAI D=$G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH ZIP,CHVENI ,"TPAID"))
  220    ...S TNOA SGN=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"TNOASG N"))
  221    ...S TCS= $G(^CHMZHO LD("ZSKD_U NIQ_VENDOR ",CHCITIFG ,CHFY,CHZI P,CHVENI," TCS"))
  222    ...S TOHI =$G(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHZ IP,CHVENI, "TOHI"))
  223    ...S TTOV ENCT=$G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHZIP,CHV ENI,"TTOVE NCT"))
  224    ...S TNOA SCT=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"TNOASC T"))
  225    ...S TDEN YCT=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"TDENYC T"))
  226    ...S BENE CT=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"BENECT" ))
  227    ...S AVGA GE=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"AVGAGE" ))
  228    ...S PAPE RCT=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"PDITYP E","03"))
  229    ...S EDIC T=$G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH ZIP,CHVENI ,"PDITYPE" ,"91"))
  230    ...S OCRC T=$G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH ZIP,CHVENI ,"PDITYPE" ,"94"))
  231    ...S REJT Y=0,REJTYS =""
  232    ...F  S R EJTY=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHZIP,CHV ENI,"REJTY PE",REJTY) ) Q:'REJTY   D
  233    ....S REJ TYS=REJTYS _"("_REJTY _")="_^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"REJTYPE ",REJTY)_" ,"
  234    ...I $L(R EJTYS) I $ E(REJTYS,$ L(REJTYS)) ="," S REJ TYS=$E(REJ TYS,1,$L(R EJTYS)-1) 
  235    ...S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REPOR T1",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
  236    Q
  237    ;
  238   FILE1 ;out put CHAMPV A_VENDOR_R EPORT1.TXT  to FS3BIG
  239    Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT1"))
  240    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  241    ;S FILE1= "HAC_HFS$: [ARC.ROUSA VE_"_UCI_" ]REPORT1.T XT"
  242    ;S X=$ZF( -1,"SET PR OTECTION=( W:RWED) "_ FILE1)
  243    S FILE1=" HACFS3"" DNS     coledec We lcome1!"": :D:[FS3BIG ]CHAMPVA_V ENDOR_REPO RT1_"_UCI_ ".TXT"
  244    O FILE1:" NWS"
  245    U FILE1 D  WREPORT1
  246    C FILE1
  247    Q
  248    ;
  249   RPT1HEAD ;
  250    W !,?130, "TOTAL # O F CLAIMS"
  251    W !,"FY", ?7,"ZIP",? 19,"TIN",? 30,"VENDOR  NAME",?52 ,"TOT BILL ED",?65,"T OT ALLOW", ?78,"TOT P AID",?88," TOT NOASGN ",?104,"TO T CS",?115 ,"TOT OHI" ,?124,"TO  PROV",?136 ,"TO BENE" ,?148,"DEN IED"
  252    W ?160,"#  BENES",?1 72,"AVG AG E",?184,"#  PAPER",?1 96,"# EDI" ,?208,"# O CR",?220," (REJ REASO N)=COUNT"
  253    W !,"--", ?7,"---",? 19,"---",? 30,"------ -----",?52 ,"-------- --",?65,"- --------", ?78,"----- ---",?88," ---------- ",?104,"-- ----",?115 ,"-------" ,?124,"--- ----",?136 ,"-------" ,?148,"--- ---"
  254    W ?160,"- ------",?1 72,"------ -",?184,"- ------",?1 96,"-----" ,?208,"--- ----",?220 ,"-------- --------"
  255    W !
  256    Q
  257    ;
  258   WREPORT1   ;
  259    ;INPUT: S  ^CHMZHOLD ("ZSKD_UNI Q_VENDOR", CHCITIFG," REPORT1",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
  260    ;S CHFY=0
  261    ;F  S CHF Y=$O(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,"REPORT 1",CHFY))  Q:'CHFY  D
  262    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"
  263    S CHRPT=" REPORT1",C HCITIFG="C "
  264    F CHFY=20 04,2005,20 06 D  
  265    .;D WTITL E,RPT1HEAD
  266    .S (TOTBI LL,TOTALLO W,TOTPAID, TOTBENE,TO TCS,TOTOHI ,TOVENCT,T OBENCT,TDE NCT,TBENCT ,TAVGAGE,T PAPCT,TEDI CT,TOCRCT, VENCT)=0
  267    .S CHZIP= ""
  268    .F  S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REPOR T1",CHFY,C HZIP)) Q:C HZIP=""  D
  269    ..S TBILL ED="A"
  270    ..F  S TB ILLED=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT1",CHF Y,CHZIP,TB ILLED),-1)  Q:'TBILLE D  D
  271    ...S CHVE NI=0
  272    ...F  S C HVENI=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT1",CHF Y,CHZIP,TB ILLED,CHVE NI)) Q:'CH VENI  D
  273    ....S CHV NAME=$P($G (^CHMVEN(C HVENI,0)), U,1),CHVNA ME=$$TRIM^ CHTFLIB($E (CHVNAME,1 ,20))
  274    ....S CHT IN=$P($G(^ CHMVEN(CHV ENI,0)),U, 3)
  275    ....S CHZ IP4=$P($G( ^CHMVEN(CH VENI,2)),U ,5)
  276    ....S TOT BILL=TOTBI LL+TBILLED
  277    ....S TOT ALLOW=TOTA LLOW+$P($G (^CHMZHOLD ("ZSKD_UNI Q_VENDOR", CHCITIFG," REPORT1",C HFY,CHZIP, TBILLED,CH VENI)),U,1 )
  278    ....S TOT PAID=TOTPA ID+$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT1",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,2)
  279    ....S TOT BENE=TOTBE NE+$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT1",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,3)
  280    ....S TOT CS=TOTCS+$ P($G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,"REPORT 1",CHFY,CH ZIP,TBILLE D,CHVENI)) ,U,4)
  281    ....S TOT OHI=TOTOHI +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT1",CHFY, CHZIP,TBIL LED,CHVENI )),U,5)
  282    ....S TOV ENCT=TOVEN CT+$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT1",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,6)
  283    ....S TOB ENCT=TOBEN CT+$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT1",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,7)
  284    ....S TDE NCT=TDENCT +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT1",CHFY, CHZIP,TBIL LED,CHVENI )),U,8)
  285    ....S TBE NCT=TBENCT +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT1",CHFY, CHZIP,TBIL LED,CHVENI )),U,9)
  286    ....S TAV GAGE=TAVGA GE+$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT1",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,10)
  287    ....S TPA PCT=TPAPCT +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT1",CHFY, CHZIP,TBIL LED,CHVENI )),U,11)
  288    ....S TED ICT=TEDICT +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT1",CHFY, CHZIP,TBIL LED,CHVENI )),U,12)
  289    ....S TOC RCT=TOCRCT +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT1",CHFY, CHZIP,TBIL LED,CHVENI )),U,13)
  290    ....S VEN CT=VENCT+1
  291    ....S WRE C=""
  292    ....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 ,"REPORT1" ,CHFY,CHZI P,TBILLED, CHVENI)),U ,1),0,2)
  293    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,2),0 ,2)
  294    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,3),0 ,2)
  295    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,4),0 ,2)
  296    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,5),0 ,2)
  297    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,6),0 ,0)
  298    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,7),0 ,0)
  299    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,8),0 ,0)
  300    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,9),0 ,0)
  301    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,10), 0,0)
  302    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,11), 0,0)
  303    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,12), 0,0)
  304    ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,13), 0,0)
  305    ....S WRE C=WREC_U_$ P($G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,"REPORT 1",CHFY,CH ZIP,TBILLE D,CHVENI)) ,U,14)
  306    ....W !,W REC
  307    ....;
  308    ....;W !, CHFY,?7,CH ZIP,?19,CH TIN,?30,CH VNAME,?52, $J(TBILLED ,10,2)
  309    ....;W ?6 4,$J($P($G (^CHMZHOLD ("ZSKD_UNI Q_VENDOR", CHCITIFG," REPORT1",C HFY,CHZIP, TBILLED,CH VENI)),U,1 ),10,2)
  310    ....;W ?7 6,$J($P($G (^CHMZHOLD ("ZSKD_UNI Q_VENDOR", CHCITIFG," REPORT1",C HFY,CHZIP, TBILLED,CH VENI)),U,2 ),10,2)
  311    ....;W ?8 8,$J($P($G (^CHMZHOLD ("ZSKD_UNI Q_VENDOR", CHCITIFG," REPORT1",C HFY,CHZIP, TBILLED,CH VENI)),U,3 ),10,2)
  312    ....;W ?1 00,$J($P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT1", CHFY,CHZIP ,TBILLED,C HVENI)),U, 4),10,2)
  313    ....;W ?1 12,$J($P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT1", CHFY,CHZIP ,TBILLED,C HVENI)),U, 5),10,2)
  314    ....;W ?1 24,$J($P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT1", CHFY,CHZIP ,TBILLED,C HVENI)),U, 6),7,0)
  315    ....;W ?1 36,$J($P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT1", CHFY,CHZIP ,TBILLED,C HVENI)),U, 7),7,0)
  316    ....;W ?1 48,$J($P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT1", CHFY,CHZIP ,TBILLED,C HVENI)),U, 8),7,0)
  317    ....;W ?1 60,$J($P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT1", CHFY,CHZIP ,TBILLED,C HVENI)),U, 9),7,0)
  318    ....;W ?1 72,$J($P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT1", CHFY,CHZIP ,TBILLED,C HVENI)),U, 10),7,0)
  319    ....;W ?1 84,$J($P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT1", CHFY,CHZIP ,TBILLED,C HVENI)),U, 11),7,0)
  320    ....;W ?1 96,$J($P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT1", CHFY,CHZIP ,TBILLED,C HVENI)),U, 12),7,0)
  321    ....;W ?2 08,$J($P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT1", CHFY,CHZIP ,TBILLED,C HVENI)),U, 13),7,0)
  322    ....;W ?2 20,$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT1",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,14)
  323    .;D RPT1T AIL
  324    Q
  325    ;
  326   RPT1TAIL ;
  327    W !
  328    W !,"COLU MN TOTALS:  "
  329    W ?52,$J( TOTBILL,11 ,2)
  330    W ?64,$J( TOTALLOW,1 0,2)
  331    W ?76,$J( TOTPAID,10 ,2)
  332    W ?88,$J( TOTBENE,10 ,2)
  333    W ?100,$J (TOTCS,10, 2)
  334    W ?112,$J (TOTOHI,10 ,2)
  335    W ?124,$J (TOVENCT,7 ,0)
  336    W ?136,$J (TOBENCT,7 ,0)
  337    W ?148,$J (TDENCT,7, 0)
  338    W ?160,$J (TBENCT,7, 0)
  339    W ?172,$J (TAVGAGE,7 ,0)
  340    W ?184,$J (TPAPCT,7, 0)
  341    W ?196,$J (TEDICT,7, 0)
  342    W ?208,$J (TOCRCT,7, 0)
  343    W !!,"TOT AL NUMBER  OF UNIQUE  VENDORS FO R FY"_CHFY _": "_VENC
  344    W !!!
  345    Q
  346    ;
  347   WTITLE ;
  348    W !,"CHAM PVA VENDOR  DATA REQU EST "_CHRP T_" FOR FY "_CHFY
  349    W !
  350    Q
  351    ;
  352   INITVAR ;
  353    S (CHVCT, CHBILLED,C HCAA,CHPAI D,CHNOASGN ,CHCS,CHOH I,CHTCLMCT ,CHREJCT,C HNOASCT,CH PAIDCT,CHB ENECT,CHAV EAGE)=0
  354    S (CHVENI ,CHVNAME,C HCOMPDT,CH ZIP,CHTIN, CHNAME,CHA DR1,CHADR2 ,CHADR3,CH CITI,CHSTA TE,CHCMAC, CHVTYPE,CH CLTY)=""
  355    S (PROVCL ,DENYCL,NO ASCL,CHDFN ,CHBFN,CHD FNI,CHDOS, CHDOB,CHAG E,RJCD,RJF G,VENCT)=0
  356    S (CHSTAT US,CHVSPEC ,CHFSPOUS, CHMSPOUS,C HCHILD,CHR EJCD,CHPDI ,CHPDITY,C HSEX,CHCHT Y,REJTYS,C HADRCD)=""
  357    Q
  358    ;
  359   KILLVAR ;
  360    K I,BEGI, ENDI,BEGDT ,ENDDT,RJC D,RJFG,VEN CT,CHCITIF G
  361    K CHVCT,C HBILLED,CH CAA,CHPAID ,CHNOASGN, CHCS,CHOHI ,CHTCLMCT, CHREJCT,CH NOASCT,CHP AIDCT,CHBE NECT,CHAVE AGE
  362    K CHVENI, CHVNAME,CH COMPDT,CHZ IP,CHZIP4, CHTIN,CHNA ME,CHADR1, CHADR2,CHA DR3,CHCITI ,CHSTATE,C HCMAC,CHVT YPE
  363    K PROVCL, DENYCL,NOA SCL,CHDFN, CHBFN,CHDF NI,CHDOS,C HDOB,CHAGE ,RJCD,RJFG ,CHADRCD
  364    K CHSTATU S,CHVSPEC, CHFSPOUS,C HMSPOUS,CH CHILD,CHRE JCD,CHPDI, CHPDITY,CH SEX,CHCHTY ,REJTYS,WR EC
  365    Q
  366    ;
  367    ;******** ********** ********** ********** ********** ********** ********** ********** ********** ********** ****
  368   GENXREF ;c reates x-r ef on the  Date Deter mined Comp lete field  of ^CHMPA
  369    S XI=1000 0000,U="^"
  370    I $D(^CHM ZHOLD("CHM VENP1_LAST XREFI")) S  XI=^CHMZH OLD("CHMVE NP1_LASTXR EFI")
  371    F  S XI=$ O(^CHMPAY( XI)) Q:'XI   D
  372    .Q:$P($G( ^CHMPAY(XI ,0)),U,10) =""
  373    .S ^CHMPA Y("ZDC",$P (^CHMPAY(X I,0),U,10) ,XI)=""
  374    .S ^CHMZH OLD("CHMVE NP1_LASTXR EFI")=XI
  375    Q
  376    ;
  377   QUE2 ;run  this if th e program  stopped af ter the Re port 1 
  378    S ZTRTN=" START2^CHM VENP1",ZTI O="",ZTDTH =$H
  379    S ZTDESC= "Generatin g CHAMPVA  Vendor Rep orts 2,3,4 ,5"
  380    S ZTIO=""
  381    D ^%ZTLOA D S IOP=0  D HOME^%ZI
  382    Q
  383    ;
  384   START2 ;
  385    S U="^"
  386    S %DT="", X="T" D ^% DT S DT=Y
  387    S IOP=0 D  ^%ZIS
  388    I '$G(DUZ ) S DUZ=99 44
  389    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  390    ;
  391    Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR"))
  392    D ^CHMVEN P2  ;outpu t CHAMPVA_ VENDOR_REP ORT2.TXT t o FS3BIG
  393    D ^CHMVEN P3  ;outpu t CHAMPVA_ VENDOR_REP ORT3.TXT t o FS3BIG
  394    D ^CHMVEN P4  ;outpu t CHAMPVA_ VENDOR_REP ORT4.TXT t o FS3BIG
  395    D ^CHMVEN P5  ;outpu t CHAMPVA_ VENDOR_REP ORT5.TXT t o FS3BIG
  396    D KILLVAR
  397    ;K ^CHMZH OLD("ZSKD_ UNIQ_VENDO R")
  398    Q
  399