- BGPMUG06 ; IHS/MSC/MMT - MI measure NQF0004 ;20-Aug-2011 14:56;DU
- ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
- ;Code to collect meaningful use report for Alcohol and Other Drug Dependence Treatment
- ENTRY ;EP
- N START,END,STRING,STRING2
- N IEN,INV,VISIT,DATA,VDATE,VALUE,FIRST,VIEN
- N CNT,NUM1,NUM2,DEN
- S (NUM1,NUM2,DEN)=0
- ;Pts must be 13 or older
- ;No need to check further if no age match
- Q:BGPAGEE<13
- S DEN=$$DEN(DFN,BGPBDATE,BGPEDATE)
- Q:'+DEN
- ;check to see if they are in the numerators
- S NUM1=$$NUM1(DFN,DEN)
- S:+NUM1 NUM2=$$NUM2(DFN,NUM1)
- D TOTAL(DFN,DEN,NUM1,NUM2)
- Q
- TOTAL(DFN,DEN,NUM1,NUM2) ;See where this patient ends up
- D:BGPAGEE<18 TOTSUB(1) ;ages 13-17
- D:BGPAGEE>17 TOTSUB(2) ;ages 18+
- D TOTSUB(3) ;all ages 13+
- Q
- TOTSUB(DENPOP) ;ADD Patient to a population's totals
- N TOTAL,PTCNT,DENCT,NUM1CT,NUM2CT,NOTNUM
- N DENSTR1,DENSTR2,NUMSTR1,NUMSTR2
- S TOTAL=$G(^TMP("BGPMU0004",$J,BGPMUTF,DENPOP,"TOT"))
- S DENCT=+$G(^TMP("BGPMU0004",$J,BGPMUTF,DENPOP,"DEN"))
- S NUM1CT=+$G(^TMP("BGPMU0004",$J,BGPMUTF,DENPOP,"NUM",1))
- S NUM2CT=+$G(^TMP("BGPMU0004",$J,BGPMUTF,DENPOP,"NUM",2))
- S NOTNUM1=+$G(^TMP("BGPMU0004",$J,BGPMUTF,DENPOP,"NOT",1))
- S NOTNUM2=+$G(^TMP("BGPMU0004",$J,BGPMUTF,DENPOP,"NOT",2))
- S PTCNT=TOTAL
- S PTCNT=PTCNT+1
- S DENCT=DENCT+1 S ^TMP("BGPMU0004",$J,BGPMUTF,DENPOP,"DEN")=DENCT
- S DENSTR1=$$DENSTR1(DEN)
- S DENSTR2=DENSTR1
- S NUMSTR1=$$NUMSTR1(NUM1)
- S NUMSTR2=$$NUMSTR2(NUM1)
- I +NUM1 D
- .S NUM1CT=NUM1CT+1 S ^TMP("BGPMU0004",$J,BGPMUTF,DENPOP,"NUM",1)=NUM1CT
- .I BGPMUTF="C" S ^TMP("BGPMU0004",$J,"PAT",BGPMUTF,DENPOP,"NUM",1,PTCNT)=DFN_U_DENSTR1_U_"M:"_NUMSTR1
- I +NUM1=0 D
- .S NOTNUM1=NOTNUM1+1 S ^TMP("BGPMU0004",$J,BGPMUTF,DENPOP,"NOT",1)=NOTNUM1
- .I BGPMUTF="C" S ^TMP("BGPMU0004",$J,"PAT",BGPMUTF,DENPOP,"NOT",1,PTCNT)=DFN_U_DENSTR1_U_"NM:"_NUMSTR1
- I +NUM2 D
- .S NUM2CT=NUM2CT+1 S ^TMP("BGPMU0004",$J,BGPMUTF,DENPOP,"NUM",2)=NUM2CT
- .I BGPMUTF="C" S ^TMP("BGPMU0004",$J,"PAT",BGPMUTF,DENPOP,"NUM",2,PTCNT)=DFN_U_DENSTR2_U_"M:"_NUMSTR2
- I +NUM2=0 D
- .S NOTNUM2=NOTNUM2+1 S ^TMP("BGPMU0004",$J,BGPMUTF,DENPOP,"NOT",2)=NOTNUM2
- .I BGPMUTF="C" S ^TMP("BGPMU0004",$J,"PAT",BGPMUTF,DENPOP,"NOT",2,PTCNT)=DFN_U_DENSTR2_U_"NM:"_NUMSTR2
- S ^TMP("BGPMU0004",$J,BGPMUTF,DENPOP,"TOT")=PTCNT
- ;Setup iCare array for patient only for the 3rd (all encompassing) population
- S:DENPOP=3 BGPICARE("MU.EP.0004.1",BGPMUTF)=1_U_+NUM1_U_0_U_DENSTR1_U_NUMSTR1
- S:DENPOP=3 BGPICARE("MU.EP.0004.2",BGPMUTF)=1_U_+NUM2_U_0_U_DENSTR2_U_NUMSTR2
- Q
- NUM1(DFN,DEN) ;Look for alcohol/drug treatment
- ;return: local VIEN array ptr ^ VISIT file ptr ^ VISIT DATE/TIME
- N FOUND,VPTR,INITDATE,VSTRT
- S FOUND=0,INITDATE=$$FMADD^XLFDT($P($P(DEN,U,2),"."),14)_".2359"
- ;quit early if DEN visit also qualifies as FIRST treatment (7th flag)
- I $P($G(VIEN($P(DEN,U,3))),U,7) S FOUND=$P(DEN,U,3)_U_$P(VIEN($P(DEN,U,3)),U,1,2)_U_U_$P(DEN,U,3) Q FOUND
- S VSTRT=$S($P(DEN,U)=2:CNT,1:($P(DEN,U,3)-1))
- F VPTR=VSTRT:-1:1 D Q:FOUND'=0
- .;make sure to avoid ED visits(3rd flag) and BH w/o Dx (6th flag)
- .I '$P(VIEN(VPTR),U,3)&'$P(VIEN(VPTR),U,6) S FOUND=$S($P(VIEN(VPTR),U,2)>INITDATE:0,1:VPTR)_U_$P(VIEN(VPTR),U,1,2)_U_VPTR Q
- Q FOUND
- NUM2(DFN,NUM1) ;Look for 2nd & 3rd alcohol/drug treatment <= 30 days after first treatment (NUM1)
- ;return just a TRUE if met since not mets will still need to display encounters
- N FOUND,VPTR,V1,FUP2DATE,TCNT,ST
- K ST
- S TCNT=0,FUP2DATE=$$FMADD^XLFDT($P($P(NUM1,U,3),"."),30)_".2359"
- S FOUND=""
- S V1=$P(NUM1,U)-1
- F VPTR=V1:-1:1 D
- .Q:$P(VIEN(VPTR),U,2)>FUP2DATE ;stop once we've gone past 30 days after FIRST
- .;make sure to avoid ED visits
- .S:'$P(VIEN(VPTR),U,3)&'$P(VIEN(VPTR),U,7) TCNT=TCNT+1
- .I TCNT>1 S FOUND=1 Q
- Q FOUND
- DEN(DFN,BDATE,EDATE) ;CHECK IF PT IS IN DENOMINATOR
- N SRCHSTRT,SRCHEND,START,END
- N ALCDX,ALCPROC,EDENC,IPENC,IPAENC,BHENC,BHPENC
- N FIRSTVST,INTVPRC,PREVDX,VPTR
- S SRCHSTRT=$$FMADD^XLFDT(EDATE,-365),SRCHEND=$$FMADD^XLFDT(EDATE,-45)
- S START=9999999-SRCHSTRT,END=9999999-SRCHEND
- S START=START_".2359"
- S CNT=0
- S FIRST=END-0.1 F S FIRST=$O(^AUPNVSIT("AA",DFN,FIRST)) Q:FIRST=""!($P(FIRST,".",1)>START) D
- .S IEN=0 F S IEN=$O(^AUPNVSIT("AA",DFN,FIRST,IEN)) Q:'+IEN D
- ..;Check provider, Only visits for chosen provider
- ..Q:'$$PRV^BGPMUUT1(IEN,BGPPROV)
- ..;Next check for Dx of AOD dependence
- ..S ALCDX=$$VSTPOV^BGPMUUT3(DFN,IEN,"BGPMU ALCOHOL DRUG DEP DX")
- ..S ALCPROC=$$VSTICD0^BGPMUUT3(DFN,IEN,"BGPMU ALCOHOL IP DETOX ICD0")
- ..S (EDENC,IPENC,IPAENC,BHENC,BHPENC)=""
- ..;check encounter codes
- ..S EDENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU ENCOUNTER ED CPT")
- ..I +EDENC&(+ALCDX) D VSTSTORE Q
- ..S IPAENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU ACUTE INPT ENC")
- ..I +IPAENC&(+ALCDX!+ALCPROC) D VSTSTORE Q
- ..S IPENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU NON-ACUTE INPT CPT")
- ..I +IPENC&(+ALCDX!+ALCPROC) D VSTSTORE Q
- ..S BHENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU ENC OUTPT BEHAVIOR HLTH")
- ..I +BHENC D VSTSTORE Q
- ..S BHPENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU ENC OUTPT BEHAVIOR POS")
- ..I +BHPENC&(+ALCDX) D VSTSTORE Q
- ;if no visits found, check entire search period for Intervention procedure, otherwise BEFORE earliest visit or Intervention
- ;set up earliest episode in either case
- S FIRSTVST=0
- I CNT=0 D
- .S INTVPRC=$$LASTPRC^BGPMUUT2(DFN,SRCHSTRT,SRCHEND,"BGPMU ALCOHOL DETOX INTV ICD0")
- .I +INTVPRC S:($P($G(^AUPNVPRC($P(INTVPRC,U,5),12)),U,4)=BGPPROV) FIRSTVST=2_U_$P(INTVPRC,U,3)_U_$P(INTVPRC,U,5) ;2 ^ Date ^ V PROC ptr
- E D
- .F VPTR=CNT:-1:1 I '$P(VIEN(VPTR),U,6) S FIRSTVST=$P(VIEN(VPTR),U,2) Q
- .Q:FIRSTVST=0
- .S INTVPRC=$$LASTPRC^BGPMUUT2(DFN,SRCHSTRT,FIRSTVST,"BGPMU ALCOHOL DETOX INTV ICD0")
- .I +INTVPRC,(($P(INTVPRC,U,3)<FIRSTVST)&($P($G(^AUPNVPRC($P(INTVPRC,U,5),12)),U,4)=BGPPROV)) S FIRSTVST=2_U_$P(INTVPRC,U,3)_U_$P(INTVPRC,U,5)
- .E S FIRSTVST=1_U_$P(VIEN(VPTR),U,2)_U_VPTR
- I FIRSTVST=0 S DEN=0 Q DEN
- ;now that the first episode is established, check to make sure a previous Dx not present in the 60 days prior
- S PREVDX=$$LASTDX^BGPMUUT2(DFN,$$FMADD^XLFDT($P(FIRSTVST,U,2),-60),$$FMADD^XLFDT($P(FIRSTVST,U,2),-2),"BGPMU ALCOHOL DRUG DEP DX")
- I +PREVDX S DEN=0 Q DEN
- S DEN=FIRSTVST
- K ALCDX,ALCPROC,EDENC,IPENC,IPAENC,BHENC,BHPENC
- Q DEN
- VSTSTORE ;Store compliant visit into array
- S CNT=CNT+1
- S VDATE=$P($G(^AUPNVSIT(IEN,0)),U,1)
- ;3rd flag = ED encounters so they can be ignored for both NUM's
- ;6th flag = may count towards subsequent treatments (Num2) but NOT for the denominator or Num 1
- ;7th flag = may count toward Den and Num 1, but NOT Num2
- S VIEN(CNT)=IEN_U_VDATE_U_+EDENC_U_$P(ALCDX,U,3)_U_$P(ALCPROC,U,3)_U_$S(+$G(BHENC):'ALCDX,1:0)_U_$S(+$G(IPAENC)!+$G(IPENC):(+ALCPROC),1:0)
- ;S VIEN(CNT)=IEN_U_VDATE_U_+EDENC_U_$P(ALCDX,U,3)_U_$P(ALCPROC,U,3)_U_$S(+$G(BHENC):'ALCDX,1:0)_U_$S(+$G(IPAENC)!+$G(IPENC):(+ALCPROC&'ALCDX),1:0)
- S STRING(CNT)=$$DATE^BGPMUUTL(VDATE)
- Q
- DENSTR1(DEN) ;generate display string for denom criteria 1 - Dx present with IP/ED visit
- N STRING,DXDT,PRCDT
- S DXDT=$S($P(DEN,U)=1:$P(VIEN($P(DEN,U,3)),U,4),1:"")
- S PRCDT=$S($P(DEN,U)=1:$P(VIEN($P(DEN,U,3)),U,5),1:"")
- I $P(DEN,U)=2 D
- .S STRING="DI:"_$$DATE^BGPMUUTL($P(DEN,U,2))
- E D
- .S STRING=$S(DXDT'="":"ADX:"_$$DATE^BGPMUUTL(DXDT),PRCDT'="":"ADI:"_$$DATE^BGPMUUTL(PRCDT),1:"")
- .S STRING=STRING_";EN:"_$$DATE^BGPMUUTL($P(VIEN($P(DEN,U,3)),U,2))
- Q STRING
- NUMSTR1(NUM1) ;generate display string for NUM 1
- Q $S($P(NUM1,U,3)'="":"FT:"_$$DATE^BGPMUUTL($P(NUM1,U,3)),1:"")
- NUMSTR2(NUM1) ;generate display string for NUM 2
- N STRING,V1,VPTR,COUNT
- S STRING="",COUNT=0
- S STRING=$S($P(NUM1,U,3)'="":"FT:"_$$DATE^BGPMUUTL($P(NUM1,U,3)),1:"")
- S V1=$P(NUM1,U,4)-1
- F VPTR=V1:-1:1 D Q:COUNT>1
- .S STRING=STRING_$S(STRING'="":";",1:"")_"ST:"_$$DATE^BGPMUUTL($P(VIEN(VPTR),U,2))
- .S COUNT=COUNT+1
- .Q:COUNT>1
- Q STRING
- BGPMUG06 ; IHS/MSC/MMT - MI measure NQF0004 ;20-Aug-2011 14:56;DU
- +1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
- +2 ;Code to collect meaningful use report for Alcohol and Other Drug Dependence Treatment
- ENTRY ;EP
- +1 NEW START,END,STRING,STRING2
- +2 NEW IEN,INV,VISIT,DATA,VDATE,VALUE,FIRST,VIEN
- +3 NEW CNT,NUM1,NUM2,DEN
- +4 SET (NUM1,NUM2,DEN)=0
- +5 ;Pts must be 13 or older
- +6 ;No need to check further if no age match
- +7 IF BGPAGEE<13
- QUIT
- +8 SET DEN=$$DEN(DFN,BGPBDATE,BGPEDATE)
- +9 IF '+DEN
- QUIT
- +10 ;check to see if they are in the numerators
- +11 SET NUM1=$$NUM1(DFN,DEN)
- +12 IF +NUM1
- SET NUM2=$$NUM2(DFN,NUM1)
- +13 DO TOTAL(DFN,DEN,NUM1,NUM2)
- +14 QUIT
- TOTAL(DFN,DEN,NUM1,NUM2) ;See where this patient ends up
- +1 ;ages 13-17
- IF BGPAGEE<18
- DO TOTSUB(1)
- +2 ;ages 18+
- IF BGPAGEE>17
- DO TOTSUB(2)
- +3 ;all ages 13+
- DO TOTSUB(3)
- +4 QUIT
- TOTSUB(DENPOP) ;ADD Patient to a population's totals
- +1 NEW TOTAL,PTCNT,DENCT,NUM1CT,NUM2CT,NOTNUM
- +2 NEW DENSTR1,DENSTR2,NUMSTR1,NUMSTR2
- +3 SET TOTAL=$GET(^TMP("BGPMU0004",$JOB,BGPMUTF,DENPOP,"TOT"))
- +4 SET DENCT=+$GET(^TMP("BGPMU0004",$JOB,BGPMUTF,DENPOP,"DEN"))
- +5 SET NUM1CT=+$GET(^TMP("BGPMU0004",$JOB,BGPMUTF,DENPOP,"NUM",1))
- +6 SET NUM2CT=+$GET(^TMP("BGPMU0004",$JOB,BGPMUTF,DENPOP,"NUM",2))
- +7 SET NOTNUM1=+$GET(^TMP("BGPMU0004",$JOB,BGPMUTF,DENPOP,"NOT",1))
- +8 SET NOTNUM2=+$GET(^TMP("BGPMU0004",$JOB,BGPMUTF,DENPOP,"NOT",2))
- +9 SET PTCNT=TOTAL
- +10 SET PTCNT=PTCNT+1
- +11 SET DENCT=DENCT+1
- SET ^TMP("BGPMU0004",$JOB,BGPMUTF,DENPOP,"DEN")=DENCT
- +12 SET DENSTR1=$$DENSTR1(DEN)
- +13 SET DENSTR2=DENSTR1
- +14 SET NUMSTR1=$$NUMSTR1(NUM1)
- +15 SET NUMSTR2=$$NUMSTR2(NUM1)
- +16 IF +NUM1
- Begin DoDot:1
- +17 SET NUM1CT=NUM1CT+1
- SET ^TMP("BGPMU0004",$JOB,BGPMUTF,DENPOP,"NUM",1)=NUM1CT
- +18 IF BGPMUTF="C"
- SET ^TMP("BGPMU0004",$JOB,"PAT",BGPMUTF,DENPOP,"NUM",1,PTCNT)=DFN_U_DENSTR1_U_"M:"_NUMSTR1
- End DoDot:1
- +19 IF +NUM1=0
- Begin DoDot:1
- +20 SET NOTNUM1=NOTNUM1+1
- SET ^TMP("BGPMU0004",$JOB,BGPMUTF,DENPOP,"NOT",1)=NOTNUM1
- +21 IF BGPMUTF="C"
- SET ^TMP("BGPMU0004",$JOB,"PAT",BGPMUTF,DENPOP,"NOT",1,PTCNT)=DFN_U_DENSTR1_U_"NM:"_NUMSTR1
- End DoDot:1
- +22 IF +NUM2
- Begin DoDot:1
- +23 SET NUM2CT=NUM2CT+1
- SET ^TMP("BGPMU0004",$JOB,BGPMUTF,DENPOP,"NUM",2)=NUM2CT
- +24 IF BGPMUTF="C"
- SET ^TMP("BGPMU0004",$JOB,"PAT",BGPMUTF,DENPOP,"NUM",2,PTCNT)=DFN_U_DENSTR2_U_"M:"_NUMSTR2
- End DoDot:1
- +25 IF +NUM2=0
- Begin DoDot:1
- +26 SET NOTNUM2=NOTNUM2+1
- SET ^TMP("BGPMU0004",$JOB,BGPMUTF,DENPOP,"NOT",2)=NOTNUM2
- +27 IF BGPMUTF="C"
- SET ^TMP("BGPMU0004",$JOB,"PAT",BGPMUTF,DENPOP,"NOT",2,PTCNT)=DFN_U_DENSTR2_U_"NM:"_NUMSTR2
- End DoDot:1
- +28 SET ^TMP("BGPMU0004",$JOB,BGPMUTF,DENPOP,"TOT")=PTCNT
- +29 ;Setup iCare array for patient only for the 3rd (all encompassing) population
- +30 IF DENPOP=3
- SET BGPICARE("MU.EP.0004.1",BGPMUTF)=1_U_+NUM1_U_0_U_DENSTR1_U_NUMSTR1
- +31 IF DENPOP=3
- SET BGPICARE("MU.EP.0004.2",BGPMUTF)=1_U_+NUM2_U_0_U_DENSTR2_U_NUMSTR2
- +32 QUIT
- NUM1(DFN,DEN) ;Look for alcohol/drug treatment
- +1 ;return: local VIEN array ptr ^ VISIT file ptr ^ VISIT DATE/TIME
- +2 NEW FOUND,VPTR,INITDATE,VSTRT
- +3 SET FOUND=0
- SET INITDATE=$$FMADD^XLFDT($PIECE($PIECE(DEN,U,2),"."),14)_".2359"
- +4 ;quit early if DEN visit also qualifies as FIRST treatment (7th flag)
- +5 IF $PIECE($GET(VIEN($PIECE(DEN,U,3))),U,7)
- SET FOUND=$PIECE(DEN,U,3)_U_$PIECE(VIEN($PIECE(DEN,U,3)),U,1,2)_U_U_$PIECE(DEN,U,3)
- QUIT FOUND
- +6 SET VSTRT=$SELECT($PIECE(DEN,U)=2:CNT,1:($PIECE(DEN,U,3)-1))
- +7 FOR VPTR=VSTRT:-1:1
- Begin DoDot:1
- +8 ;make sure to avoid ED visits(3rd flag) and BH w/o Dx (6th flag)
- +9 IF '$PIECE(VIEN(VPTR),U,3)&'$PIECE(VIEN(VPTR),U,6)
- SET FOUND=$SELECT($PIECE(VIEN(VPTR),U,2)>INITDATE:0,1:VPTR)_U_$PIECE(VIEN(VPTR),U,1,2)_U_VPTR
- QUIT
- End DoDot:1
- IF FOUND'=0
- QUIT
- +10 QUIT FOUND
- NUM2(DFN,NUM1) ;Look for 2nd & 3rd alcohol/drug treatment <= 30 days after first treatment (NUM1)
- +1 ;return just a TRUE if met since not mets will still need to display encounters
- +2 NEW FOUND,VPTR,V1,FUP2DATE,TCNT,ST
- +3 KILL ST
- +4 SET TCNT=0
- SET FUP2DATE=$$FMADD^XLFDT($PIECE($PIECE(NUM1,U,3),"."),30)_".2359"
- +5 SET FOUND=""
- +6 SET V1=$PIECE(NUM1,U)-1
- +7 FOR VPTR=V1:-1:1
- Begin DoDot:1
- +8 ;stop once we've gone past 30 days after FIRST
- IF $PIECE(VIEN(VPTR),U,2)>FUP2DATE
- QUIT
- +9 ;make sure to avoid ED visits
- +10 IF '$PIECE(VIEN(VPTR),U,3)&'$PIECE(VIEN(VPTR),U,7)
- SET TCNT=TCNT+1
- +11 IF TCNT>1
- SET FOUND=1
- QUIT
- End DoDot:1
- +12 QUIT FOUND
- DEN(DFN,BDATE,EDATE) ;CHECK IF PT IS IN DENOMINATOR
- +1 NEW SRCHSTRT,SRCHEND,START,END
- +2 NEW ALCDX,ALCPROC,EDENC,IPENC,IPAENC,BHENC,BHPENC
- +3 NEW FIRSTVST,INTVPRC,PREVDX,VPTR
- +4 SET SRCHSTRT=$$FMADD^XLFDT(EDATE,-365)
- SET SRCHEND=$$FMADD^XLFDT(EDATE,-45)
- +5 SET START=9999999-SRCHSTRT
- SET END=9999999-SRCHEND
- +6 SET START=START_".2359"
- +7 SET CNT=0
- +8 SET FIRST=END-0.1
- FOR
- SET FIRST=$ORDER(^AUPNVSIT("AA",DFN,FIRST))
- IF FIRST=""!($PIECE(FIRST,".",1)>START)
- QUIT
- Begin DoDot:1
- +9 SET IEN=0
- FOR
- SET IEN=$ORDER(^AUPNVSIT("AA",DFN,FIRST,IEN))
- IF '+IEN
- QUIT
- Begin DoDot:2
- +10 ;Check provider, Only visits for chosen provider
- +11 IF '$$PRV^BGPMUUT1(IEN,BGPPROV)
- QUIT
- +12 ;Next check for Dx of AOD dependence
- +13 SET ALCDX=$$VSTPOV^BGPMUUT3(DFN,IEN,"BGPMU ALCOHOL DRUG DEP DX")
- +14 SET ALCPROC=$$VSTICD0^BGPMUUT3(DFN,IEN,"BGPMU ALCOHOL IP DETOX ICD0")
- +15 SET (EDENC,IPENC,IPAENC,BHENC,BHPENC)=""
- +16 ;check encounter codes
- +17 SET EDENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU ENCOUNTER ED CPT")
- +18 IF +EDENC&(+ALCDX)
- DO VSTSTORE
- QUIT
- +19 SET IPAENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU ACUTE INPT ENC")
- +20 IF +IPAENC&(+ALCDX!+ALCPROC)
- DO VSTSTORE
- QUIT
- +21 SET IPENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU NON-ACUTE INPT CPT")
- +22 IF +IPENC&(+ALCDX!+ALCPROC)
- DO VSTSTORE
- QUIT
- +23 SET BHENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU ENC OUTPT BEHAVIOR HLTH")
- +24 IF +BHENC
- DO VSTSTORE
- QUIT
- +25 SET BHPENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU ENC OUTPT BEHAVIOR POS")
- +26 IF +BHPENC&(+ALCDX)
- DO VSTSTORE
- QUIT
- End DoDot:2
- End DoDot:1
- +27 ;if no visits found, check entire search period for Intervention procedure, otherwise BEFORE earliest visit or Intervention
- +28 ;set up earliest episode in either case
- +29 SET FIRSTVST=0
- +30 IF CNT=0
- Begin DoDot:1
- +31 SET INTVPRC=$$LASTPRC^BGPMUUT2(DFN,SRCHSTRT,SRCHEND,"BGPMU ALCOHOL DETOX INTV ICD0")
- +32 ;2 ^ Date ^ V PROC ptr
- IF +INTVPRC
- IF ($PIECE($GET(^AUPNVPRC($PIECE(INTVPRC,U,5),12)),U,4)=BGPPROV)
- SET FIRSTVST=2_U_$PIECE(INTVPRC,U,3)_U_$PIECE(INTVPRC,U,5)
- End DoDot:1
- +33 IF '$TEST
- Begin DoDot:1
- +34 FOR VPTR=CNT:-1:1
- IF '$PIECE(VIEN(VPTR),U,6)
- SET FIRSTVST=$PIECE(VIEN(VPTR),U,2)
- QUIT
- +35 IF FIRSTVST=0
- QUIT
- +36 SET INTVPRC=$$LASTPRC^BGPMUUT2(DFN,SRCHSTRT,FIRSTVST,"BGPMU ALCOHOL DETOX INTV ICD0")
- +37 IF +INTVPRC
- IF (($PIECE(INTVPRC,U,3)<FIRSTVST)&($PIECE($GET(^AUPNVPRC($PIECE(INTVPRC,U,5),12)),U,4)=BGPPROV))
- SET FIRSTVST=2_U_$PIECE(INTVPRC,U,3)_U_$PIECE(INTVPRC,U,5)
- +38 IF '$TEST
- SET FIRSTVST=1_U_$PIECE(VIEN(VPTR),U,2)_U_VPTR
- End DoDot:1
- +39 IF FIRSTVST=0
- SET DEN=0
- QUIT DEN
- +40 ;now that the first episode is established, check to make sure a previous Dx not present in the 60 days prior
- +41 SET PREVDX=$$LASTDX^BGPMUUT2(DFN,$$FMADD^XLFDT($PIECE(FIRSTVST,U,2),-60),$$FMADD^XLFDT($PIECE(FIRSTVST,U,2),-2),"BGPMU ALCOHOL DRUG DEP DX")
- +42 IF +PREVDX
- SET DEN=0
- QUIT DEN
- +43 SET DEN=FIRSTVST
- +44 KILL ALCDX,ALCPROC,EDENC,IPENC,IPAENC,BHENC,BHPENC
- +45 QUIT DEN
- VSTSTORE ;Store compliant visit into array
- +1 SET CNT=CNT+1
- +2 SET VDATE=$PIECE($GET(^AUPNVSIT(IEN,0)),U,1)
- +3 ;3rd flag = ED encounters so they can be ignored for both NUM's
- +4 ;6th flag = may count towards subsequent treatments (Num2) but NOT for the denominator or Num 1
- +5 ;7th flag = may count toward Den and Num 1, but NOT Num2
- +6 SET VIEN(CNT)=IEN_U_VDATE_U_+EDENC_U_$PIECE(ALCDX,U,3)_U_$PIECE(ALCPROC,U,3)_U_$SELECT(+$GET(BHENC):'ALCDX,1:0)_U_$SELECT(+$GET(IPAENC)!+$GET(IPENC):(+ALCPROC),1:0)
- +7 ;S VIEN(CNT)=IEN_U_VDATE_U_+EDENC_U_$P(ALCDX,U,3)_U_$P(ALCPROC,U,3)_U_$S(+$G(BHENC):'ALCDX,1:0)_U_$S(+$G(IPAENC)!+$G(IPENC):(+ALCPROC&'ALCDX),1:0)
- +8 SET STRING(CNT)=$$DATE^BGPMUUTL(VDATE)
- +9 QUIT
- DENSTR1(DEN) ;generate display string for denom criteria 1 - Dx present with IP/ED visit
- +1 NEW STRING,DXDT,PRCDT
- +2 SET DXDT=$SELECT($PIECE(DEN,U)=1:$PIECE(VIEN($PIECE(DEN,U,3)),U,4),1:"")
- +3 SET PRCDT=$SELECT($PIECE(DEN,U)=1:$PIECE(VIEN($PIECE(DEN,U,3)),U,5),1:"")
- +4 IF $PIECE(DEN,U)=2
- Begin DoDot:1
- +5 SET STRING="DI:"_$$DATE^BGPMUUTL($PIECE(DEN,U,2))
- End DoDot:1
- +6 IF '$TEST
- Begin DoDot:1
- +7 SET STRING=$SELECT(DXDT'="":"ADX:"_$$DATE^BGPMUUTL(DXDT),PRCDT'="":"ADI:"_$$DATE^BGPMUUTL(PRCDT),1:"")
- +8 SET STRING=STRING_";EN:"_$$DATE^BGPMUUTL($PIECE(VIEN($PIECE(DEN,U,3)),U,2))
- End DoDot:1
- +9 QUIT STRING
- NUMSTR1(NUM1) ;generate display string for NUM 1
- +1 QUIT $SELECT($PIECE(NUM1,U,3)'="":"FT:"_$$DATE^BGPMUUTL($PIECE(NUM1,U,3)),1:"")
- NUMSTR2(NUM1) ;generate display string for NUM 2
- +1 NEW STRING,V1,VPTR,COUNT
- +2 SET STRING=""
- SET COUNT=0
- +3 SET STRING=$SELECT($PIECE(NUM1,U,3)'="":"FT:"_$$DATE^BGPMUUTL($PIECE(NUM1,U,3)),1:"")
- +4 SET V1=$PIECE(NUM1,U,4)-1
- +5 FOR VPTR=V1:-1:1
- Begin DoDot:1
- +6 SET STRING=STRING_$SELECT(STRING'="":";",1:"")_"ST:"_$$DATE^BGPMUUTL($PIECE(VIEN(VPTR),U,2))
- +7 SET COUNT=COUNT+1
- +8 IF COUNT>1
- QUIT
- End DoDot:1
- IF COUNT>1
- QUIT
- +9 QUIT STRING
