BGPMUDEL.m

BGPMUDEL ; IHS/MSC/MGH - MU Delimited output ;02-Mar-2011 14:38;DU

 ;;14.1;IHS CLINICAL REPORTING;**1**;MAY 29, 2014;Build 2

 ;

 ;

PRINT1 ;EP

 N BGPGDEV,BGPDEVOR,BGPIC

 S BGPGDEV=1

 D HEADER

 S BGPDEVOR=0 F  S BGPDEVOR=$O(^BGPMUIND(BGPMUYF,"ADO",BGPDEVOR)) Q:BGPDEVOR'=+BGPDEVOR!(BGPQUIT)  D

 .S BGPIC=$O(^BGPMUIND(BGPMUYF,"ADO",BGPDEVOR,0)) Q:BGPIC=""

 .I $D(BGPIND(BGPIC)) D PRINT2

 .Q:BGPQUIT

 K BGPGDEV

PRINTSUM ; Print summary page of all measure calculations

 D ^BGPMUPPS

 Q

 ;

SAVEDEL ;EP

 ;If screen selected do screen

 N X,C

 I BGPDELT="S" D SCREEN,EXIT Q

 ;call xbgsave to create output file

 S XBGL="BGPDATA"

 L +^BGPDATA:300 E  W:'$D(ZTQUEUED) "Unable to lock global" Q

 K ^TMP($J,"SUMMARYDEL")

 K ^BGPDATA($J) ;global for saving

 S X=0 F  S X=$O(^TMP($J,"BGPDEL",X)) Q:X'=+X  I ^TMP($J,"BGPDEL",X)'="ENDCOVERPAGE" S ^BGPDATA($J,X)=^TMP($J,"BGPDEL",X)

 I '$D(BGPGUI) D

 .S XBFLT=1,XBFN=BGPDELF_".txt",XBMED="F",XBTLE="MEANINGFUL USE 2011 DELIMITED OUTPUT",XBQ="N",XBF=0

 .D ^XBGSAVE

 .K XBFLT,XBFN,XBMED,XBTLE,XBE,XBF,X

 I $D(BGPGUI) D

 .S (C,X)=0 F  S X=$O(^BGPDATA($J,X)) Q:X'=+X  S C=C+1,^BGPGUIW(BGPGIEN,12,C,0)=^BGPDATA($J,X)

 .S ^BGPGUIW(BGPGIEN,12,0)="^90546.1912^"_C_"^"_C_"^"_DT

 L -^BGPDATA

 K ^BGPDATA($J) ;export global

 D EXIT

 Q

SCREEN ;

 S X=0 F  S X=$O(^TMP($J,"BGPDEL",X)) Q:X'=+X  W:^TMP($J,"BGPDEL",X)'="ENDCOVERPAGE" !,^TMP($J,"BGPDEL",X)

 Q

PRINT3 ;

 Q

PRINT2 ;

 N X,BGPZ,BGPNODE

 S BGPGPG=0

 ;quit if no delimited output routine defined

 I '$D(^BGPMUIND(BGPMUYF,BGPIC,4)) S X="Delimited file output not currently supported for this measure" D S(X,1,1) Q

 S X=$P(^BGPMUIND(BGPMUYF,BGPIC,0),U,3) D S(X,2,1)

 ;Print out the description node if there is data in it

 S BGPNODE=12 I $D(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE))=10 D

 .S X="Measure Summary:" D S(X,2,1)

 .S BGPZ=0 F  S BGPZ=$O(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ)) Q:'BGPZ  D

 ..S X=^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ,0) D S(X,1,1)

 ;Print out the population node if there is data in it

 S BGPNODE=13 I $D(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE))=10 D

 .S X="Population:" D S(X,1,1)

 .S BGPZ=0 F  S BGPZ=$O(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ)) Q:'BGPZ  D

 ..S X=^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ,0) D S(X,1,1)

 S X="Logic:" D S(X,2,1)

 ;Print out the denominator node if there is data in it

 S BGPNODE=14 I $D(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE))=10 D

 .S X="Denominator Logic:" D S(X,2,1)

 .S X="" D S(X,1,1)

 .S BGPZ=0 F  S BGPZ=$O(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ)) Q:'BGPZ  D

 ..S X=^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ,0) D S(X,1,1)

 I $G(BGPMUT)'="H" D

 .;Print out the numerator node if there is data in it

 .S BGPNODE=15 I $D(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE))=10 D

 ..S X="Numerator Logic:" D S(X,2,1)

 ..S X="" D S(X,1,1)

 ..S BGPZ=0 F  S BGPZ=$O(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ)) Q:'BGPZ  D

 ...S X=^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ,0) D S(X,1,1)

 .;Print out the logic node if there is data in it

 .S BGPNODE=16 I $D(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE))=10 D

 ..S X="Exclusion Logic:" D S(X,2,1)

 ..S X="" D S(X,1,1)

 ..S BGPZ=0 F  S BGPZ=$O(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ))  Q:'BGPZ  D

 ...S X=^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ,0) D S(X,1,1)

 I $G(BGPMUT)="H" D

 .;Print out the logic node if there is data in it

 .S BGPNODE=16 I $D(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE))=10 D

 ..S X="Denominator Exclusion Logic:" D S(X,2,1)

 ..S X="" D S(X,1,1)

 ..S BGPZ=0 F  S BGPZ=$O(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ))  Q:'BGPZ  D

 ...S X=^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ,0) D S(X,1,1)

 .;Print out the numerator node if there is data in it

 .S BGPNODE=15 I $D(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE))=10 D

 ..S X="Numerator Logic:" D S(X,2,1)

 ..S X="" D S(X,1,1)

 ..S BGPZ=0 F  S BGPZ=$O(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ)) Q:'BGPZ  D

 ...S X=^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ,0) D S(X,1,1)

 ;Print out the Performance node if there is data in it

 S BGPNODE=17 I $D(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE))=10 D

 .S X="Performance:" D S(X,2,1)

 .S BGPZ=0 F  S BGPZ=$O(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ)) Q:'BGPZ  D

 ..S X=^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ,0) D S(X,1,1)

 ;Print out the source node if there is data in it

 S BGPNODE=18 I $D(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE))=10 D

 .S X="Measure Source:"

 .S BGPZ=0 F  S BGPZ=$O(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ)) Q:'BGPZ  D

 ..S X=X_" "_^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ,0)

 .D S(X,2,1)

CALC X ^BGPMUIND(BGPMUYF,BGPIC,4)

 Q

HEADER ;DELIMITED HEADER

 S Y="Cover Page" D S(Y,1,1)

 S Y="*** IHS Stage 1 Meaningful Use ***" D S(Y,2,1)

 S Y="*** "_$S($G(BGPMUT)'="H":"Eligible Professional (EP)",1:"Hospital")_" Clinical Quality Measures Report ***" D S(Y,1,1)

 S Y="CRS 2014, Version 14.1 Patch 1" D S(Y,1,1)

 S Y="Date Report Run: "_$$FMTE^XLFDT(DT) D S(Y,1,1)

 S Y="Site where Run: "_$P(^DIC(4,DUZ(2),0),U) D S(Y,1,1)

 S Y="Report Generated by: "_$P($G(^VA(200,DUZ,0)),U,1) D S(Y,1,1)

 S Y="Report Period: "_$$FMTE^XLFDT(BGPBD)_" to "_$$FMTE^XLFDT(BGPED) D S(Y,1,1)

 S Y="Previous Period: "_$$FMTE^XLFDT(BGPPBD)_" to "_$$FMTE^XLFDT(BGPPED) D S(Y,1,1)

 S Y="Baseline Period: "_$$FMTE^XLFDT(BGPBBD)_" to "_$$FMTE^XLFDT(BGPBED) D S(Y,1,1)

 S Y="" D S(Y,1,1)

 I $G(BGPMUT)'="H" S Y="Measures: Stage 1 Meaningful Use Eligible Professional (EP) "_$S(BGPINDT="C":"Core Measures",BGPINDT="A":"Alternate Core",BGPINDT="M":"Menu Set Measures",1:"Selected Measures") D S(Y,1,1)

 I $G(BGPMUT)="H" D

 .S Y="Measures: Stage 1 Meaningful Use Eligible Hospital (EH) and" D S(Y,1,1)

 .S Y="Critical Access Hospital (CAH) Clinical Quality Measures" D S(Y,1,1)

 I $G(BGPMUT)="P" S Y="Population: "_$S(BGPBEN=1:"AI/AN Only",BGPBEN=2:"Non-AI/AN",BGPBEN=3:"All Patients",1:"") D S(Y,2,1)

 I $G(BGPMUT)'="H" D

 .S Y="Eligible Professional (EP): "_$P(^VA(200,BGPPROV,0),U) D S(Y,2,1)

 I $G(BGPMUT)="H" D

 .S Y="Population: "_$S(BGPBEN=1:"AI/AN Only",BGPBEN=2:"Non-AI/AN",BGPBEN=3:"All Patients",1:"")

 .D S(Y,2,1)

 .S Y="Eligible Hospital: "_$$LOC^BGPMUEH()_", "_$$GET1^DIQ(4,DUZ(2)_",",1.03)_", "_$$GET1^DIQ(4,DUZ(2)_",",.02)

 .D S(Y,1,1)

 D ENDTIME

 I $G(BGPMUT)'="H" D

 .S Y="Warning:  The Meaningful Use reports do not verify that the EP selected for" D S(Y,2,1)

 .S Y="the reports meets the CMS EHR Incentive Program eligibility criteria.  The" D S(Y,1,1)

 .S Y="EP must make that determination." D S(Y,1,1)

 I $G(BGPMUT)'="H" D

 .S Y="This report includes the EP "_$S(BGPINDT="C":"core",BGPINDT="A":"alternate",BGPINDT="M":"menu set",1:"selected")_" clinical quality measures for" D S(Y,2,1)

 .S Y="Stage 1 Meaningful Use." D S(Y,1,1)

 I $G(BGPMUT)="H" D

 .S Y="This report includes the eligible hospital and critical access hospital" D S(Y,2,1)

 .S Y="clinical quality measures for Stage 1 Meaningful Use." D S(Y,1,1)

 I $G(BGPMUT)'="H" D

 .S Y="For the first Meaningful Use payment year, the reporting period is any" D S(Y,2,1)

 .S Y="consecutive 90-days during a calendar year (Jan 1- Dec 31).  For all" D S(Y,1,1)

 .S Y="subsequent years, the reporting period is the entire calendar year." D S(Y,1,1)

 I $G(BGPMUT)="H" D

 .S Y="For the first Meaningful Use payment year, the reporting period is any" D S(Y,2,1)

 .S Y="consecutive 90-days during a federal fiscal year (Oct 1 - Sep 30).  For all" D S(Y,1,1)

 .S Y="subsequent years, the reporting period is the entire federal fiscal year." D S(Y,1,1)

 ;

 S Y="The report will provide a description of the measure, and explanations for" D S(Y,2,1)

 S Y="the denominator(s), numerator(s) and exclusions (if applicable)" D S(Y,1,1)

 S Y="and the measure logic." D S(Y,1,1)

 S Y="The measure results are contained in tabular form with the following column" D S(Y,2,1)

 S Y="headings:" D S(Y,1,1)

 S Y="REPORT %  PREV YR %    CHG FROM  BASE %  CHG" D S(Y,1,1)

 S Y="PERIOD    PERIOD       PREV YR   YR      BASE %" D S(Y,1,1)

 I $G(BGPMUT)'="H" D

 .S Y="When a report is run for a 90-day period, the PREV YR PERIOD is the same 90-day" D S(Y,2,1)

 .S Y="period for the previous calendar year and the BASE YR is the same 90-day period" D S(Y,1,1)

 .S Y="for the base calendar year selected.  For example, a report run with Apr 1, 2010" D S(Y,1,1)

 .S Y="through Jun 30, 2010 as the REPORT PERIOD and a base year of 2008 will include" D S(Y,1,1)

 .S Y="data from Apr 1, 2009 through Jun 30, 2009 in the PREV YR PERIOD and Apr 1, 2008" D S(Y,1,1)

 .S Y="through Jun 30, 2008 in the BASE YR." D S(Y,1,1)

 I $G(BGPMUT)="H" D

 .S Y="When a report is run for a 90-day period, the PREV YR PERIOD is the same 90-day" D S(Y,2,1)

 .S Y="period for the previous fiscal year and the BASE YR is the same 90-day" D S(Y,1,1)

 .S Y="period for the base fiscal year selected.  For example, a report run" D S(Y,1,1)

 .S Y="with Apr 1, 2010 through Jun 30, 2010 as the REPORT PERIOD and a base year of" D S(Y,1,1)

 .S Y="2008 will include data from Apr 1, 2009 through Jun 30, 2009 in the PREV YR" D S(Y,1,1)

 .S Y="PERIOD and Apr 1, 2008 through Jun 30, 2008 in the BASE YR." D S(Y,1,1)

 Q

EXIT ;

 K ^TMP($J)

 Q

ENDTIME ;

 I $D(BGPET) S BGPTS=(86400*($P(BGPET,",")-$P(BGPBT,",")))+($P(BGPET,",",2)-$P(BGPBT,",",2)),BGPHR=$P(BGPTS/3600,".") S:BGPHR="" BGPHR=0 D

 .S BGPTS=BGPTS-(BGPHR*3600),BGPM=$P(BGPTS/60,".") S:BGPM="" BGPM=0 S BGPTS=BGPTS-(BGPM*60),BGPS=BGPTS S X="RUN TIME (H.M.S): "_BGPHR_"."_BGPM_"."_BGPS D S(X,2,1)

 Q

CTR(X,Y) ;EP - Center

 Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X

 ;----------

USR() ;EP - Return user

 Q $S($G(DUZ):$S($D(^VA(200,DUZ,0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")

 ;----------

S(Y,F,P) ;EP set up array

 I '$G(F) S F=0

 NEW %,Z

 S Z=""

 S %=$P($G(^TMP($J,"BGPDEL",0)),U)

 F Z=1:1:F S %=%+1 S ^TMP($J,"BGPDEL",%)=""

 S $P(^TMP($J,"BGPDEL",0),U)=%

 I '$D(^TMP($J,"BGPDEL",%)) S ^TMP($J,"BGPDEL",%)=""

 S $P(^TMP($J,"BGPDEL",%),U,P)=Y

 Q

C(X,X2,X3) ;

 D COMMA^%DTC

 Q X

BGPMUDEL  ; IHS/MSC/MGH - MU Delimited output ;02-Mar-2011 14:38;DU

 +1       ;;14.1;IHS CLINICAL REPORTING;**1**;MAY 29, 2014;Build 2

 +2       ;

 +3       ;

PRINT1    ;EP

 +1        NEW BGPGDEV,BGPDEVOR,BGPIC

 +2        SET BGPGDEV=1

 +3        DO HEADER

 +4        SET BGPDEVOR=0

           FOR 

               SET BGPDEVOR=$ORDER(^BGPMUIND(BGPMUYF,"ADO",BGPDEVOR))

               IF BGPDEVOR'=+BGPDEVOR!(BGPQUIT)

                   QUIT 

               Begin DoDot:1

 +5                SET BGPIC=$ORDER(^BGPMUIND(BGPMUYF,"ADO",BGPDEVOR,0))

                   IF BGPIC=""

                       QUIT 

 +6                IF $DATA(BGPIND(BGPIC))

                       DO PRINT2

 +7                IF BGPQUIT

                       QUIT 

               End DoDot:1

 +8        KILL BGPGDEV

PRINTSUM  ; Print summary page of all measure calculations

 +1        DO ^BGPMUPPS

 +2        QUIT 

 +3       ;

SAVEDEL   ;EP

 +1       ;If screen selected do screen

 +2        NEW X,C

 +3        IF BGPDELT="S"

               DO SCREEN

               DO EXIT

               QUIT 

 +4       ;call xbgsave to create output file

 +5        SET XBGL="BGPDATA"

 +6        LOCK +^BGPDATA:300

          IF '$TEST

               IF '$DATA(ZTQUEUED)

                   WRITE "Unable to lock global"

               QUIT 

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

 +8       ;global for saving

           KILL ^BGPDATA($JOB)

 +9        SET X=0

           FOR 

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

               IF X'=+X

                   QUIT 

               IF ^TMP($JOB,"BGPDEL",X)'="ENDCOVERPAGE"

                   SET ^BGPDATA($JOB,X)=^TMP($JOB,"BGPDEL",X)

 +10       IF '$DATA(BGPGUI)

               Begin DoDot:1

 +11               SET XBFLT=1

                   SET XBFN=BGPDELF_".txt"

                   SET XBMED="F"

                   SET XBTLE="MEANINGFUL USE 2011 DELIMITED OUTPUT"

                   SET XBQ="N"

                   SET XBF=0

 +12               DO ^XBGSAVE

 +13               KILL XBFLT,XBFN,XBMED,XBTLE,XBE,XBF,X

               End DoDot:1

 +14       IF $DATA(BGPGUI)

               Begin DoDot:1

 +15               SET (C,X)=0

                   FOR 

                       SET X=$ORDER(^BGPDATA($JOB,X))

                       IF X'=+X

                           QUIT 

                       SET C=C+1

                       SET ^BGPGUIW(BGPGIEN,12,C,0)=^BGPDATA($JOB,X)

 +16               SET ^BGPGUIW(BGPGIEN,12,0)="^90546.1912^"_C_"^"_C_"^"_DT

               End DoDot:1

 +17       LOCK -^BGPDATA

 +18      ;export global

           KILL ^BGPDATA($JOB)

 +19       DO EXIT

 +20       QUIT 

SCREEN    ;

 +1        SET X=0

           FOR 

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

               IF X'=+X

                   QUIT 

               IF ^TMP($JOB,"BGPDEL",X)'="ENDCOVERPAGE"

                   WRITE !,^TMP($JOB,"BGPDEL",X)

 +2        QUIT 

PRINT3    ;

 +1        QUIT 

PRINT2    ;

 +1        NEW X,BGPZ,BGPNODE

 +2        SET BGPGPG=0

 +3       ;quit if no delimited output routine defined

 +4        IF '$DATA(^BGPMUIND(BGPMUYF,BGPIC,4))

               SET X="Delimited file output not currently supported for this measure"

               DO S(X,1,1)

               QUIT 

 +5        SET X=$PIECE(^BGPMUIND(BGPMUYF,BGPIC,0),U,3)

           DO S(X,2,1)

 +6       ;Print out the description node if there is data in it

 +7        SET BGPNODE=12

           IF $DATA(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE))=10

               Begin DoDot:1

 +8                SET X="Measure Summary:"

                   DO S(X,2,1)

 +9                SET BGPZ=0

                   FOR 

                       SET BGPZ=$ORDER(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ))

                       IF 'BGPZ

                           QUIT 

                       Begin DoDot:2

 +10                       SET X=^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ,0)

                           DO S(X,1,1)

                       End DoDot:2

               End DoDot:1

 +11      ;Print out the population node if there is data in it

 +12       SET BGPNODE=13

           IF $DATA(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE))=10

               Begin DoDot:1

 +13               SET X="Population:"

                   DO S(X,1,1)

 +14               SET BGPZ=0

                   FOR 

                       SET BGPZ=$ORDER(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ))

                       IF 'BGPZ

                           QUIT 

                       Begin DoDot:2

 +15                       SET X=^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ,0)

                           DO S(X,1,1)

                       End DoDot:2

               End DoDot:1

 +16       SET X="Logic:"

           DO S(X,2,1)

 +17      ;Print out the denominator node if there is data in it

 +18       SET BGPNODE=14

           IF $DATA(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE))=10

               Begin DoDot:1

 +19               SET X="Denominator Logic:"

                   DO S(X,2,1)

 +20               SET X=""

                   DO S(X,1,1)

 +21               SET BGPZ=0

                   FOR 

                       SET BGPZ=$ORDER(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ))

                       IF 'BGPZ

                           QUIT 

                       Begin DoDot:2

 +22                       SET X=^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ,0)

                           DO S(X,1,1)

                       End DoDot:2

               End DoDot:1

 +23       IF $GET(BGPMUT)'="H"

               Begin DoDot:1

 +24      ;Print out the numerator node if there is data in it

 +25               SET BGPNODE=15

                   IF $DATA(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE))=10

                       Begin DoDot:2

 +26                       SET X="Numerator Logic:"

                           DO S(X,2,1)

 +27                       SET X=""

                           DO S(X,1,1)

 +28                       SET BGPZ=0

                           FOR 

                               SET BGPZ=$ORDER(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ))

                               IF 'BGPZ

                                   QUIT 

                               Begin DoDot:3

 +29                               SET X=^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ,0)

                                   DO S(X,1,1)

                               End DoDot:3

                       End DoDot:2

 +30      ;Print out the logic node if there is data in it

 +31               SET BGPNODE=16

                   IF $DATA(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE))=10

                       Begin DoDot:2

 +32                       SET X="Exclusion Logic:"

                           DO S(X,2,1)

 +33                       SET X=""

                           DO S(X,1,1)

 +34                       SET BGPZ=0

                           FOR 

                               SET BGPZ=$ORDER(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ))

                               IF 'BGPZ

                                   QUIT 

                               Begin DoDot:3

 +35                               SET X=^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ,0)

                                   DO S(X,1,1)

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +36       IF $GET(BGPMUT)="H"

               Begin DoDot:1

 +37      ;Print out the logic node if there is data in it

 +38               SET BGPNODE=16

                   IF $DATA(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE))=10

                       Begin DoDot:2

 +39                       SET X="Denominator Exclusion Logic:"

                           DO S(X,2,1)

 +40                       SET X=""

                           DO S(X,1,1)

 +41                       SET BGPZ=0

                           FOR 

                               SET BGPZ=$ORDER(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ))

                               IF 'BGPZ

                                   QUIT 

                               Begin DoDot:3

 +42                               SET X=^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ,0)

                                   DO S(X,1,1)

                               End DoDot:3

                       End DoDot:2

 +43      ;Print out the numerator node if there is data in it

 +44               SET BGPNODE=15

                   IF $DATA(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE))=10

                       Begin DoDot:2

 +45                       SET X="Numerator Logic:"

                           DO S(X,2,1)

 +46                       SET X=""

                           DO S(X,1,1)

 +47                       SET BGPZ=0

                           FOR 

                               SET BGPZ=$ORDER(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ))

                               IF 'BGPZ

                                   QUIT 

                               Begin DoDot:3

 +48                               SET X=^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ,0)

                                   DO S(X,1,1)

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +49      ;Print out the Performance node if there is data in it

 +50       SET BGPNODE=17

           IF $DATA(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE))=10

               Begin DoDot:1

 +51               SET X="Performance:"

                   DO S(X,2,1)

 +52               SET BGPZ=0

                   FOR 

                       SET BGPZ=$ORDER(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ))

                       IF 'BGPZ

                           QUIT 

                       Begin DoDot:2

 +53                       SET X=^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ,0)

                           DO S(X,1,1)

                       End DoDot:2

               End DoDot:1

 +54      ;Print out the source node if there is data in it

 +55       SET BGPNODE=18

           IF $DATA(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE))=10

               Begin DoDot:1

 +56               SET X="Measure Source:"

 +57               SET BGPZ=0

                   FOR 

                       SET BGPZ=$ORDER(^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ))

                       IF 'BGPZ

                           QUIT 

                       Begin DoDot:2

 +58                       SET X=X_" "_^BGPMUIND(BGPMUYF,BGPIC,BGPNODE,BGPZ,0)

                       End DoDot:2

 +59               DO S(X,2,1)

               End DoDot:1

CALC       XECUTE ^BGPMUIND(BGPMUYF,BGPIC,4)

 +1        QUIT 

HEADER    ;DELIMITED HEADER

 +1        SET Y="Cover Page"

           DO S(Y,1,1)

 +2        SET Y="*** IHS Stage 1 Meaningful Use ***"

           DO S(Y,2,1)

 +3        SET Y="*** "_$SELECT($GET(BGPMUT)'="H":"Eligible Professional (EP)",1:"Hospital")_" Clinical Quality Measures Report ***"

           DO S(Y,1,1)

 +4        SET Y="CRS 2014, Version 14.1 Patch 1"

           DO S(Y,1,1)

 +5        SET Y="Date Report Run: "_$$FMTE^XLFDT(DT)

           DO S(Y,1,1)

 +6        SET Y="Site where Run: "_$PIECE(^DIC(4,DUZ(2),0),U)

           DO S(Y,1,1)

 +7        SET Y="Report Generated by: "_$PIECE($GET(^VA(200,DUZ,0)),U,1)

           DO S(Y,1,1)

 +8        SET Y="Report Period: "_$$FMTE^XLFDT(BGPBD)_" to "_$$FMTE^XLFDT(BGPED)

           DO S(Y,1,1)

 +9        SET Y="Previous Period: "_$$FMTE^XLFDT(BGPPBD)_" to "_$$FMTE^XLFDT(BGPPED)

           DO S(Y,1,1)

 +10       SET Y="Baseline Period: "_$$FMTE^XLFDT(BGPBBD)_" to "_$$FMTE^XLFDT(BGPBED)

           DO S(Y,1,1)

 +11       SET Y=""

           DO S(Y,1,1)

 +12       IF $GET(BGPMUT)'="H"

               SET Y="Measures: Stage 1 Meaningful Use Eligible Professional (EP) "_$SELECT(BGPINDT="C":"Core Measures",BGPINDT="A":"Alternate Core",BGPINDT="M":"Menu Set Measures",1:"Selected Measures")

               DO S(Y,1,1)

 +13       IF $GET(BGPMUT)="H"

               Begin DoDot:1

 +14               SET Y="Measures: Stage 1 Meaningful Use Eligible Hospital (EH) and"

                   DO S(Y,1,1)

 +15               SET Y="Critical Access Hospital (CAH) Clinical Quality Measures"

                   DO S(Y,1,1)

               End DoDot:1

 +16       IF $GET(BGPMUT)="P"

               SET Y="Population: "_$SELECT(BGPBEN=1:"AI/AN Only",BGPBEN=2:"Non-AI/AN",BGPBEN=3:"All Patients",1:"")

               DO S(Y,2,1)

 +17       IF $GET(BGPMUT)'="H"

               Begin DoDot:1

 +18               SET Y="Eligible Professional (EP): "_$PIECE(^VA(200,BGPPROV,0),U)

                   DO S(Y,2,1)

               End DoDot:1

 +19       IF $GET(BGPMUT)="H"

               Begin DoDot:1

 +20               SET Y="Population: "_$SELECT(BGPBEN=1:"AI/AN Only",BGPBEN=2:"Non-AI/AN",BGPBEN=3:"All Patients",1:"")

 +21               DO S(Y,2,1)

 +22               SET Y="Eligible Hospital: "_$$LOC^BGPMUEH()_", "_$$GET1^DIQ(4,DUZ(2)_",",1.03)_", "_$$GET1^DIQ(4,DUZ(2)_",",.02)

 +23               DO S(Y,1,1)

               End DoDot:1

 +24       DO ENDTIME

 +25       IF $GET(BGPMUT)'="H"

               Begin DoDot:1

 +26               SET Y="Warning:  The Meaningful Use reports do not verify that the EP selected for"

                   DO S(Y,2,1)

 +27               SET Y="the reports meets the CMS EHR Incentive Program eligibility criteria.  The"

                   DO S(Y,1,1)

 +28               SET Y="EP must make that determination."

                   DO S(Y,1,1)

               End DoDot:1

 +29       IF $GET(BGPMUT)'="H"

               Begin DoDot:1

 +30               SET Y="This report includes the EP "_$SELECT(BGPINDT="C":"core",BGPINDT="A":"alternate",BGPINDT="M":"menu set",1:"selected")_" clinical quality measures for"

                   DO S(Y,2,1)

 +31               SET Y="Stage 1 Meaningful Use."

                   DO S(Y,1,1)

               End DoDot:1

 +32       IF $GET(BGPMUT)="H"

               Begin DoDot:1

 +33               SET Y="This report includes the eligible hospital and critical access hospital"

                   DO S(Y,2,1)

 +34               SET Y="clinical quality measures for Stage 1 Meaningful Use."

                   DO S(Y,1,1)

               End DoDot:1

 +35       IF $GET(BGPMUT)'="H"

               Begin DoDot:1

 +36               SET Y="For the first Meaningful Use payment year, the reporting period is any"

                   DO S(Y,2,1)

 +37               SET Y="consecutive 90-days during a calendar year (Jan 1- Dec 31).  For all"

                   DO S(Y,1,1)

 +38               SET Y="subsequent years, the reporting period is the entire calendar year."

                   DO S(Y,1,1)

               End DoDot:1

 +39       IF $GET(BGPMUT)="H"

               Begin DoDot:1

 +40               SET Y="For the first Meaningful Use payment year, the reporting period is any"

                   DO S(Y,2,1)

 +41               SET Y="consecutive 90-days during a federal fiscal year (Oct 1 - Sep 30).  For all"

                   DO S(Y,1,1)

 +42               SET Y="subsequent years, the reporting period is the entire federal fiscal year."

                   DO S(Y,1,1)

               End DoDot:1

 +43      ;

 +44       SET Y="The report will provide a description of the measure, and explanations for"

           DO S(Y,2,1)

 +45       SET Y="the denominator(s), numerator(s) and exclusions (if applicable)"

           DO S(Y,1,1)

 +46       SET Y="and the measure logic."

           DO S(Y,1,1)

 +47       SET Y="The measure results are contained in tabular form with the following column"

           DO S(Y,2,1)

 +48       SET Y="headings:"

           DO S(Y,1,1)