BGPMUEHD.m

BGPMUEHD ; IHS/MSC/MMT - EH Report Driver;02-Mar-2011 16:33;MGH

 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84

 ;Eligible Hospital CQM evaluation driver

PROC ;EP

 S BGPBT=$H

 D JRNL^BGPMUUTL

 S BGPJ=$J,BGPH=$H

 S BGPCHWC=0

 K ^XTMP("BGPMUHOS",BGPJ,BGPH) ; not sure if I need this Timestamp stuff or if it should be Provider Specific

 D XTMP^BGPMUUTL("BGPMUHOS","Meaningful Use Hospital CQM Report")

 ;calculate 3 years before end of each time frame

 S BGP3YE=$$FMADD^XLFDT(BGPED,-1096)

 S BGPB3YE=$$FMADD^XLFDT(BGPBED,-1096)

 D PROCCY,PROCPY,PROCBY

N ;

 S BGPET=$H

 Q

 ;

PROCCY ;EP - current time period

 S BGPBDATE=BGPBD,BGPEDATE=BGPED,BGPTIME=1

 S BGP365=BGPBDATE

 S BGPMUTF="C"

 D CALCMEAS

 Q

PROCPY ;

 S BGPBDATE=BGPPBD,BGPEDATE=BGPPED,BGPTIME=2

 S BGP365=BGPBDATE

 S BGPMUTF="P"

 D CALCMEAS

 Q

PROCBY ;

 S BGPBDATE=BGPBBD,BGPEDATE=BGPBED,BGPTIME=3

 S BGP365=BGPBDATE

 S BGPMUTF="B"

 D CALCMEAS

 Q

CALCMEAS ;

 D CALCMEAS^BGPMUDCI

 Q

ACTUPAP(P,BDATE,EDATE,B) ;EP - is this patient in user pop? - NO EXPIRED CHECKS

 I B=1,$$BEN^AUPNPAT(P,"C")'="01" Q 0  ;must be Indian/Alaskan Native

 I B=2,$$BEN^AUPNPAT(P,"C")="01" Q 0  ;must not be I/A

 Q 1

V2(P,BDATE,EDATE) ;EP

 N A,B,V,X,G,E

 I '$D(^AUPNVSIT("AC",P)) Q ""

 K ^TMP($J,"A")

 S A="^TMP($J,""A"",",B=P_"^ALL VISITS;DURING "_$$FMTE^XLFDT(BDATE)_"-"_$$FMTE^XLFDT(EDATE),E=$$START1^APCLDF(B,A)

 I '$D(^TMP($J,"A",1)) Q ""

 S (X,G)=0 F  S X=$O(^TMP($J,"A",X)) Q:X'=+X!(G>2)  S V=$P(^TMP($J,"A",X),U,5) D

 .Q:'$D(^AUPNVSIT(V,0))

 .Q:'$P(^AUPNVSIT(V,0),U,9)

 .Q:$P(^AUPNVSIT(V,0),U,11)

 .Q:"SAHO"'[$P(^AUPNVSIT(V,0),U,7)

 .Q:"V"[$P(^AUPNVSIT(V,0),U,3)

 .Q:$P(^AUPNVSIT(V,0),U,6)=""

 .S G=G+1

 .Q

 Q $S(G<2:"",1:1)

 ;

LOINC(A,B) ;

 NEW %

 S %=$P($G(^LAB(95.3,A,9999999)),U,2)

 I %]"",$D(^ATXAX(B,21,"B",%)) Q 1

 S %=$P($G(^LAB(95.3,A,0)),U)_"-"_$P($G(^LAB(95.3,A,0)),U,15)

 I $D(^ATXAX(B,21,"B",%)) Q 1

 Q ""

BQI(BQIGREF) ;PEP - iCARE

 ; Input parameters

 ; BQIGREF = Global reference to store data

 Q:BQIGREF=""

 N BGPICARE,BGPIMEAS,BGPUMTF,BGPIIEN,BGPIDATA

 S BGPBT=$H

 D JRNL^BGPMUUTL

 S BGPJ=$J,BGPH=$H

 S BGPCHWC=0

 K ^XTMP("BGPMUHOS",BGPJ,BGPH) ; not sure if I need this Timestamp stuff or if it should be Provider Specific

 D XTMP^BGPMUUTL("BGPMUHOS","Meaningful Use Hospital CQM Report")

 ;calculate 3 years before end of each time frame

 S BGP3YE=$$FMADD^XLFDT(BGPED,-1096)

 S BGPB3YE=$$FMADD^XLFDT(BGPBED,-1096)

 K BGPICARE

 D PROCCY,PROCPY

 ;Move patient data for all requested measures from array to the passed in global reference

 S BGPIMEAS=""

 F  S BGPIMEAS=$O(BGPICARE(BGPIMEAS)) Q:BGPIMEAS=""  D

 .S BGPMUTF=""

 .F  S BGPMUTF=$O(BGPICARE(BGPIMEAS,BGPMUTF)) Q:BGPMUTF=""  D

 ..S DFN=""

 ..F  S DFN=$O(BGPICARE(BGPIMEAS,BGPMUTF,DFN)) Q:DFN=""  D

 ...S BGPIDATA=$G(BGPICARE(BGPIMEAS,BGPMUTF,DFN))

 ...;Lookup indicator ID

 ...S BGPIIEN=$O(^BGPMUIND(90596.11,"C",BGPIMEAS,0))

 ...;Store into global

 ...S @BQIGREF@(DFN,BGPMUTF,BGPIIEN)=BGPIDATA

 D BQIKILL

 K BGPICARE,BGPIMEAS,BGPUMTF,BGPIIEN,BGPIDATA

 Q

BQIKILL ; TEMPORARY Subroutine to kill off ^TMP globals created by running measure evals without printing

 ;This routine should be removed once a better system for killing off ^TMP globals has been implemented

 K ^TMP("BGPMU0495",$J)

 K ^TMP("BGPMU0497",$J)

 K ^TMP("BGPMU0435",$J)

 K ^TMP("BGPMU0436",$J)

 K ^TMP("BGPMU0437",$J)

 K ^TMP("BGPMU0438",$J)

 K ^TMP("BGPMU0439",$J)

 K ^TMP("BGPMU0440",$J)

 K ^TMP("BGPMU0441",$J)

 K ^TMP("BGPMU0371",$J)

 K ^TMP("BGPMU0372",$J)

 K ^TMP("BGPMU0373",$J)

 K ^TMP("BGPMU0374",$J)

 K ^TMP("BGPMU0375",$J)

 K ^TMP("BGPMU0376",$J)

 Q

BGPMUEHD  ; IHS/MSC/MMT - EH Report Driver;02-Mar-2011 16:33;MGH

 +1       ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84

 +2       ;Eligible Hospital CQM evaluation driver

PROC      ;EP

 +1        SET BGPBT=$HOROLOG

 +2        DO JRNL^BGPMUUTL

 +3        SET BGPJ=$JOB

           SET BGPH=$HOROLOG

 +4        SET BGPCHWC=0

 +5       ; not sure if I need this Timestamp stuff or if it should be Provider Specific

           KILL ^XTMP("BGPMUHOS",BGPJ,BGPH)

 +6        DO XTMP^BGPMUUTL("BGPMUHOS","Meaningful Use Hospital CQM Report")

 +7       ;calculate 3 years before end of each time frame

 +8        SET BGP3YE=$$FMADD^XLFDT(BGPED,-1096)

 +9        SET BGPB3YE=$$FMADD^XLFDT(BGPBED,-1096)

 +10       DO PROCCY

           DO PROCPY

           DO PROCBY

N         ;

 +1        SET BGPET=$HOROLOG

 +2        QUIT 

 +3       ;

PROCCY    ;EP - current time period

 +1        SET BGPBDATE=BGPBD

           SET BGPEDATE=BGPED

           SET BGPTIME=1

 +2        SET BGP365=BGPBDATE

 +3        SET BGPMUTF="C"

 +4        DO CALCMEAS

 +5        QUIT 

PROCPY    ;

 +1        SET BGPBDATE=BGPPBD

           SET BGPEDATE=BGPPED

           SET BGPTIME=2

 +2        SET BGP365=BGPBDATE

 +3        SET BGPMUTF="P"

 +4        DO CALCMEAS

 +5        QUIT 

PROCBY    ;

 +1        SET BGPBDATE=BGPBBD

           SET BGPEDATE=BGPBED

           SET BGPTIME=3

 +2        SET BGP365=BGPBDATE

 +3        SET BGPMUTF="B"

 +4        DO CALCMEAS

 +5        QUIT 

CALCMEAS  ;

 +1        DO CALCMEAS^BGPMUDCI

 +2        QUIT 

ACTUPAP(P,BDATE,EDATE,B) ;EP - is this patient in user pop? - NO EXPIRED CHECKS

 +1       ;must be Indian/Alaskan Native

           IF B=1

               IF $$BEN^AUPNPAT(P,"C")'="01"

                   QUIT 0

 +2       ;must not be I/A

           IF B=2

               IF $$BEN^AUPNPAT(P,"C")="01"

                   QUIT 0

 +3        QUIT 1

V2(P,BDATE,EDATE) ;EP

 +1        NEW A,B,V,X,G,E

 +2        IF '$DATA(^AUPNVSIT("AC",P))

               QUIT ""

 +3        KILL ^TMP($JOB,"A")

 +4        SET A="^TMP($J,""A"","

           SET B=P_"^ALL VISITS;DURING "_$$FMTE^XLFDT(BDATE)_"-"_$$FMTE^XLFDT(EDATE)

           SET E=$$START1^APCLDF(B,A)

 +5        IF '$DATA(^TMP($JOB,"A",1))

               QUIT ""

 +6        SET (X,G)=0

           FOR 

               SET X=$ORDER(^TMP($JOB,"A",X))

               IF X'=+X!(G>2)

                   QUIT 

               SET V=$PIECE(^TMP($JOB,"A",X),U,5)

               Begin DoDot:1

 +7                IF '$DATA(^AUPNVSIT(V,0))

                       QUIT 

 +8                IF '$PIECE(^AUPNVSIT(V,0),U,9)

                       QUIT 

 +9                IF $PIECE(^AUPNVSIT(V,0),U,11)

                       QUIT 

 +10               IF "SAHO"'[$PIECE(^AUPNVSIT(V,0),U,7)

                       QUIT 

 +11               IF "V"[$PIECE(^AUPNVSIT(V,0),U,3)

                       QUIT 

 +12               IF $PIECE(^AUPNVSIT(V,0),U,6)=""

                       QUIT 

 +13               SET G=G+1

 +14               QUIT 

               End DoDot:1

 +15       QUIT $SELECT(G<2:"",1:1)

 +16      ;

LOINC(A,B) ;

 +1        NEW %

 +2        SET %=$PIECE($GET(^LAB(95.3,A,9999999)),U,2)

 +3        IF %]""

               IF $DATA(^ATXAX(B,21,"B",%))

                   QUIT 1

 +4        SET %=$PIECE($GET(^LAB(95.3,A,0)),U)_"-"_$PIECE($GET(^LAB(95.3,A,0)),U,15)

 +5        IF $DATA(^ATXAX(B,21,"B",%))

               QUIT 1

 +6        QUIT ""

BQI(BQIGREF) ;PEP - iCARE

 +1       ; Input parameters

 +2       ; BQIGREF = Global reference to store data

 +3        IF BQIGREF=""

               QUIT 

 +4        NEW BGPICARE,BGPIMEAS,BGPUMTF,BGPIIEN,BGPIDATA

 +5        SET BGPBT=$HOROLOG

 +6        DO JRNL^BGPMUUTL

 +7        SET BGPJ=$JOB

           SET BGPH=$HOROLOG

 +8        SET BGPCHWC=0

 +9       ; not sure if I need this Timestamp stuff or if it should be Provider Specific

           KILL ^XTMP("BGPMUHOS",BGPJ,BGPH)

 +10       DO XTMP^BGPMUUTL("BGPMUHOS","Meaningful Use Hospital CQM Report")

 +11      ;calculate 3 years before end of each time frame

 +12       SET BGP3YE=$$FMADD^XLFDT(BGPED,-1096)

 +13       SET BGPB3YE=$$FMADD^XLFDT(BGPBED,-1096)

 +14       KILL BGPICARE

 +15       DO PROCCY

           DO PROCPY

 +16      ;Move patient data for all requested measures from array to the passed in global reference

 +17       SET BGPIMEAS=""

 +18       FOR 

               SET BGPIMEAS=$ORDER(BGPICARE(BGPIMEAS))

               IF BGPIMEAS=""

                   QUIT 

               Begin DoDot:1

 +19               SET BGPMUTF=""

 +20               FOR 

                       SET BGPMUTF=$ORDER(BGPICARE(BGPIMEAS,BGPMUTF))

                       IF BGPMUTF=""

                           QUIT 

                       Begin DoDot:2

 +21                       SET DFN=""

 +22                       FOR 

                               SET DFN=$ORDER(BGPICARE(BGPIMEAS,BGPMUTF,DFN))

                               IF DFN=""

                                   QUIT 

                               Begin DoDot:3

 +23                               SET BGPIDATA=$GET(BGPICARE(BGPIMEAS,BGPMUTF,DFN))

 +24      ;Lookup indicator ID

 +25                               SET BGPIIEN=$ORDER(^BGPMUIND(90596.11,"C",BGPIMEAS,0))

 +26      ;Store into global

 +27                               SET @BQIGREF@(DFN,BGPMUTF,BGPIIEN)=BGPIDATA

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +28       DO BQIKILL

 +29       KILL BGPICARE,BGPIMEAS,BGPUMTF,BGPIIEN,BGPIDATA

 +30       QUIT 

BQIKILL   ; TEMPORARY Subroutine to kill off ^TMP globals created by running measure evals without printing

 +1       ;This routine should be removed once a better system for killing off ^TMP globals has been implemented

 +2        KILL ^TMP("BGPMU0495",$JOB)

 +3        KILL ^TMP("BGPMU0497",$JOB)

 +4        KILL ^TMP("BGPMU0435",$JOB)

 +5        KILL ^TMP("BGPMU0436",$JOB)

 +6        KILL ^TMP("BGPMU0437",$JOB)

 +7        KILL ^TMP("BGPMU0438",$JOB)

 +8        KILL ^TMP("BGPMU0439",$JOB)

 +9        KILL ^TMP("BGPMU0440",$JOB)

 +10       KILL ^TMP("BGPMU0441",$JOB)

 +11       KILL ^TMP("BGPMU0371",$JOB)

 +12       KILL ^TMP("BGPMU0372",$JOB)

 +13       KILL ^TMP("BGPMU0373",$JOB)

 +14       KILL ^TMP("BGPMU0374",$JOB)

 +15       KILL ^TMP("BGPMU0375",$JOB)

 +16       KILL ^TMP("BGPMU0376",$JOB)

 +17       QUIT