BGPD0 ; IHS/CMI/LAB - DISPLAY IND LISTS ;
;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
;; ;
EP ;EP - CALLED FROM OPTION
D EN
Q
EOJ ;EP
K BGPTIND
Q
;; ;
EN ;EP -- main entry point for APCH HMR DISPLAY
D EN^VALM("BGP GPRA INDICATOR SELECTION")
D CLEAR^VALM1
D FULL^VALM1
W:$D(IOF) @IOF
D EOJ
Q
;
HDR ; -- header code
S VALMHDR(1)="IHS GPRA Performance Indicators"
S VALMHDR(2)="* indicates the indicator has been selected"
Q
;
INIT ; -- init variables and list array
K BGPTIND S BGPHIGH=""
S T="INDSL" F J=1:1 S X=$T(@T+J),X=$P(X,";;",2) Q:X="END" S BGPTIND(J,0)=J_")",$E(BGPTIND(J,0),5)=X,BGPTIND("IDX",J,J)="" I $D(BGPIND(J)) S BGPTIND(J,0)="*"_BGPTIND(J,0)
S (VALMCNT,BGPHIGH)=J-1
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
Q
;
EXPND ; -- expand code
Q
;
BACK ;go back to listman
D TERM^VALM0
S VALMBCK="R"
D INIT
D HDR
K DIR
K X,Y,Z,I
Q
;
ADD ;EP - add an item to the selected list - called from a protocol
W ! S DIR(0)="LO^1:"_BGPHIGH,DIR("A")="Which item(s)" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
I Y="" W !,"No items selected." G ADDX
I $D(DIRUT) W !,"No items selected." G ADDX
D FULL^VALM1 W:$D(IOF) @IOF
S BGPANS=Y,BGPC="" F BGPI=1:1 S BGPC=$P(BGPANS,",",BGPI) Q:BGPC="" S BGPIND(BGPC)=""
ADDX ;
D BACK
Q
ADDALL ;
F X=1:1:BGPHIGH S BGPIND(X)=""
D BACK
Q
;
REM ;
W ! S DIR(0)="LO^1:"_BGPHIGH,DIR("A")="Which item(s)" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
I Y="" W !,"No items selected." G ADDX
I $D(DIRUT) W !,"No items selected." G ADDX
D FULL^VALM1 W:$D(IOF) @IOF
S BGPANS=Y,BGPC="" F BGPI=1:1 S BGPC=$P(BGPANS,",",BGPI) Q:BGPC="" K BGPIND(BGPC)
REMX ;
D BACK
Q
INDSL ;;
1 ;;1 Indicator 1: Diabetes Prevalence
2 ;;1B Indicator 1B: Diabetes Prevalence using # seen w/Diabetes in past year
3 ;;2A Indicator 2A: Diabetes-Glycemic Control (simple Population)
4 ;;2B Indicator 2B: Diabetes-Glycemic Control (2 visits & first Dx > 1 yr)
5 ;;2C Indicator 2C: Diabetes-Glycemic Control (2 visits, >19 yrs, creatinine <5)
6 ;;3A Indicator 3A: Diabetes-Blood Pressure Control (simple Population)
7 ;;3B Indicator 3B: Diabetes-Blood Pressure Control (2 visits & first Dx > 1 yr)
8 ;;3C Indicator 3C: Diabetes-Blood Pressure Control (2 visits, >19 yrs, creatinine <5)
9 ;;4A Indicator 4A: Diabetes-Assessed for Dyslipidemia (simple Population)
10 ;;4B Indicator 4B: Diabetes-Assessed for Dyslipidemia (2 visits & first Dx > 1 yr)
11 ;;4C Indicator 4C: Diabetes-Assessed for Dyslipidemia (2 visits, >19 yrs, creatinine <5)
12 ;;5A Indicator 5A: Diabetes-Assessed for Nephropathy (simple Population)
13 ;;5B Indicator 5B: Diabetes-Assessed for Nephropathy (2 visits & first Dx > 1 yr)
14 ;;5C Indicator 5C: Diabetes-Assessed for Nephropathy (2 visits, >19 yrs, creatinine <5)
15 ;;6 Indicator 6: Women's Health - Pap Smear in past one year
16 ;;6a Indicator 6A: Women's Health - Pap Smear in past 3 years
17 ;;7 Indicator 7: Women's Health - Reduce Breast Cancer - Mammogram w/in 2 years
18 ;;8 Indicator 8: Child Health - Children 27 months old with 4 Well Child Visits
19 ;;12 Indicator 12: Oral Health - All patients with access to Dental Services
20 ;;13 Indicator 13: Oral Health - All Patients 6-8 and 14-15 With Dental Sealants
21 ;;14 Indicator 14: Oral Health Status - All Diabetics with access to Dental Services
22 ;;22 Indicator 22: Public Health Nursing Visits
23 ;;23 ****NOT AVAILABLE in 2002 GPRA
24 ;;24 Indicator 24: Adult Immunizations-Pneumovax and Flu Vaccine Diabetics >65 yrs
25 ;;29 Indicator 29: Obesity
26 ;;30 Indicator 30: Tobacco Prevention and Cessation
27 ;;A Indicator A: Improve Mental Health
28 ;;B Indicator B: Reduce Colorectal Cancer Death Rate
29 ;;C Indicator C: Increase Proportion of Persons Provided Diet and Exercise Instruction
30 ;;D Indicator D: Evaluate the proportion of Diabetics receiving Yearly Eye Exam
;;END
Q
BGPD0 ; IHS/CMI/LAB - DISPLAY IND LISTS ;
+1 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
+2 ;; ;
EP ;EP - CALLED FROM OPTION
+1 DO EN
+2 QUIT
EOJ ;EP
+1 KILL BGPTIND
+2 QUIT
+3 ;; ;
EN ;EP -- main entry point for APCH HMR DISPLAY
+1 DO EN^VALM("BGP GPRA INDICATOR SELECTION")
+2 DO CLEAR^VALM1
+3 DO FULL^VALM1
+4 IF $DATA(IOF)
WRITE @IOF
+5 DO EOJ
+6 QUIT
+7 ;
HDR ; -- header code
+1 SET VALMHDR(1)="IHS GPRA Performance Indicators"
+2 SET VALMHDR(2)="* indicates the indicator has been selected"
+3 QUIT
+4 ;
INIT ; -- init variables and list array
+1 KILL BGPTIND
SET BGPHIGH=""
+2 SET T="INDSL"
FOR J=1:1
SET X=$TEXT(@T+J)
SET X=$PIECE(X,";;",2)
IF X="END"
QUIT
SET BGPTIND(J,0)=J_")"
SET $EXTRACT(BGPTIND(J,0),5)=X
SET BGPTIND("IDX",J,J)=""
IF $DATA(BGPIND(J))
SET BGPTIND(J,0)="*"_BGPTIND(J,0)
+3 SET (VALMCNT,BGPHIGH)=J-1
+4 QUIT
+5 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 QUIT
+2 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
BACK ;go back to listman
+1 DO TERM^VALM0
+2 SET VALMBCK="R"
+3 DO INIT
+4 DO HDR
+5 KILL DIR
+6 KILL X,Y,Z,I
+7 QUIT
+8 ;
ADD ;EP - add an item to the selected list - called from a protocol
+1 WRITE !
SET DIR(0)="LO^1:"_BGPHIGH
SET DIR("A")="Which item(s)"
DO ^DIR
KILL DIR
IF $DATA(DUOUT)
SET DIRUT=1
+2 IF Y=""
WRITE !,"No items selected."
GOTO ADDX
+3 IF $DATA(DIRUT)
WRITE !,"No items selected."
GOTO ADDX
+4 DO FULL^VALM1
IF $DATA(IOF)
WRITE @IOF
+5 SET BGPANS=Y
SET BGPC=""
FOR BGPI=1:1
SET BGPC=$PIECE(BGPANS,",",BGPI)
IF BGPC=""
QUIT
SET BGPIND(BGPC)=""
ADDX ;
+1 DO BACK
+2 QUIT
ADDALL ;
+1 FOR X=1:1:BGPHIGH
SET BGPIND(X)=""
+2 DO BACK
+3 QUIT
+4 ;
REM ;
+1 WRITE !
SET DIR(0)="LO^1:"_BGPHIGH
SET DIR("A")="Which item(s)"
DO ^DIR
KILL DIR
IF $DATA(DUOUT)
SET DIRUT=1
+2 IF Y=""
WRITE !,"No items selected."
GOTO ADDX
+3 IF $DATA(DIRUT)
WRITE !,"No items selected."
GOTO ADDX
+4 DO FULL^VALM1
IF $DATA(IOF)
WRITE @IOF
+5 SET BGPANS=Y
SET BGPC=""
FOR BGPI=1:1
SET BGPC=$PIECE(BGPANS,",",BGPI)
IF BGPC=""
QUIT
KILL BGPIND(BGPC)
REMX ;
+1 DO BACK
+2 QUIT
INDSL ;;
1 ;;1 Indicator 1: Diabetes Prevalence
2 ;;1B Indicator 1B: Diabetes Prevalence using # seen w/Diabetes in past year
3 ;;2A Indicator 2A: Diabetes-Glycemic Control (simple Population)
4 ;;2B Indicator 2B: Diabetes-Glycemic Control (2 visits & first Dx > 1 yr)
5 ;;2C Indicator 2C: Diabetes-Glycemic Control (2 visits, >19 yrs, creatinine <5)
6 ;;3A Indicator 3A: Diabetes-Blood Pressure Control (simple Population)
7 ;;3B Indicator 3B: Diabetes-Blood Pressure Control (2 visits & first Dx > 1 yr)
8 ;;3C Indicator 3C: Diabetes-Blood Pressure Control (2 visits, >19 yrs, creatinine <5)
9 ;;4A Indicator 4A: Diabetes-Assessed for Dyslipidemia (simple Population)
10 ;;4B Indicator 4B: Diabetes-Assessed for Dyslipidemia (2 visits & first Dx > 1 yr)
11 ;;4C Indicator 4C: Diabetes-Assessed for Dyslipidemia (2 visits, >19 yrs, creatinine <5)
12 ;;5A Indicator 5A: Diabetes-Assessed for Nephropathy (simple Population)
13 ;;5B Indicator 5B: Diabetes-Assessed for Nephropathy (2 visits & first Dx > 1 yr)
14 ;;5C Indicator 5C: Diabetes-Assessed for Nephropathy (2 visits, >19 yrs, creatinine <5)
15 ;;6 Indicator 6: Women's Health - Pap Smear in past one year
16 ;;6a Indicator 6A: Women's Health - Pap Smear in past 3 years
17 ;;7 Indicator 7: Women's Health - Reduce Breast Cancer - Mammogram w/in 2 years
18 ;;8 Indicator 8: Child Health - Children 27 months old with 4 Well Child Visits
19 ;;12 Indicator 12: Oral Health - All patients with access to Dental Services
20 ;;13 Indicator 13: Oral Health - All Patients 6-8 and 14-15 With Dental Sealants
21 ;;14 Indicator 14: Oral Health Status - All Diabetics with access to Dental Services
22 ;;22 Indicator 22: Public Health Nursing Visits
23 ;;23 ****NOT AVAILABLE in 2002 GPRA
24 ;;24 Indicator 24: Adult Immunizations-Pneumovax and Flu Vaccine Diabetics >65 yrs
25 ;;29 Indicator 29: Obesity
26 ;;30 Indicator 30: Tobacco Prevention and Cessation
27 ;;A Indicator A: Improve Mental Health
28 ;;B Indicator B: Reduce Colorectal Cancer Death Rate
29 ;;C Indicator C: Increase Proportion of Persons Provided Diet and Exercise Instruction
30 ;;D Indicator D: Evaluate the proportion of Diabetics receiving Yearly Eye Exam
+1 ;;END
+2 QUIT
