Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BATLRP1

BATLRP1.m

Go to the documentation of this file. 
  1. BATLRP1 ; IHS/CMI/LAB - DISPLAY IND LISTS ;
  1.  ;;1.0;IHS ASTHMA REGISTER;;FEB 19, 2003
  1.  ;; ;
  1. EP ;EP - CALLED FROM OPTION
  1.  D EN
  1.  Q
  1. EOJ ;EP
  1.  K ^TMP($J,"ASTHMA PATIENTS")
  1.  Q
  1.  ;; ;
  1. EN ;EP -- main entry point for LIST OF PATIENTS
  1.  K BATPATS
  1.  D EN^VALM("BAT REMINDER LETTER LIST")
  1.  D CLEAR^VALM1
  1.  D FULL^VALM1
  1.  W:$D(IOF) @IOF
  1.  D EOJ
  1.  Q
  1.  ;
  1. HDR ; -- header code
  1.  S VALMHDR(1)="Patient List for Reminder Letter"
  1.  S VALMHDR(2)="* indicates the patient has been selected"
  1.  S VALMHDR(3)=" "
  1.  S VALMHDR(4)="   PATIENT NAME",$E(VALMHDR(4),40)="HRN",$E(VALMHDR(4),48)="DOB",$E(VALMHDR(4),63)="LAST ASTHMA VISIT"
  1.  ;
  1.  Q
  1. INIT ; -- init variables and list array
  1.  K ^TMP($J,"ASTHMA PATIENTS") S BATHIGH="",BATCNT=0
  1.  S BATP=0 F  S BATP=$O(^BATREG(BATP)) Q:BATP'=+BATP  D
  1.  .Q:$$DOD^AUPNPAT(BATP)]""
  1.  .I $P(^BATREG(BATP,0),U,2)'="A"&($P(^BATREG(BATP,0),U,2)'="U") Q
  1.  .S BATL=$$LASTAV^BATU(BATP,2)
  1.  .S BATD=$$FMDIFF^XLFDT(DT,BATL)
  1.  .Q:BATD<180
  1.  .S BATCNT=BATCNT+1
  1.  .S X=BATCNT_")  "_$P(^DPT(BATP,0),U),$E(X,40)=$$HRN^AUPNPAT(BATP,DUZ(2)),$E(X,48)=$$FMTE^XLFDT($P(^DPT(BATP,0),U,3)),$E(X,63)=$$FMTE^XLFDT($$LASTAV^BATU(BATP,2))
  1.  .I $D(BATPATS(BATCNT)) S X="*"_X
  1.  .S ^TMP($J,"ASTHMA PATIENTS",BATCNT,0)=X,^TMP($J,"ASTHMA PATIENTS","IDX",BATCNT,BATCNT)=BATP
  1.  .Q
  1.  S (VALMCNT,BATHIGH)=BATCNT
  1.  Q
  1.  ;
  1. HELP ; -- help code
  1.  S X="?" D DISP^XQORM1 W !!
  1.  Q
  1.  ;
  1. EXIT ; -- exit code
  1.  Q
  1.  ;
  1. EXPND ; -- expand code
  1.  Q
  1.  ;
  1. BACK ;go back to listman
  1.  D TERM^VALM0
  1.  S VALMBCK="R"
  1.  D INIT
  1.  D HDR
  1.  K DIR
  1.  K X,Y,Z,I
  1.  Q
  1.  ;
  1. ADD ;EP - add an patient to the selected list - called from a protocol
  1.  W ! S DIR(0)="LO^1:"_BATHIGH,DIR("A")="Which patient(s)" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
  1.  I Y="" W !,"No patients selected." G ADDX
  1.  I $D(DIRUT) W !,"No patients selected." G ADDX
  1.  D FULL^VALM1 W:$D(IOF) @IOF
  1.  S BATANS=Y,BATC="" F BATI=1:1 S BATC=$P(BATANS,",",BATI) Q:BATC=""  S BATPATS(BATC)=^TMP($J,"ASTHMA PATIENTS","IDX",BATC,BATC)
  1. ADDX ;
  1.  D BACK
  1.  Q
  1. ADDALL ;
  1.  F X=1:1:BATHIGH S BATPATS(X)=^TMP($J,"ASTHMA PATIENTS","IDX",X,X)
  1.  D BACK
  1.  Q
  1.  ;
  1. REM ;
  1.  W ! S DIR(0)="LO^1:"_BATHIGH,DIR("A")="Which patient(s)" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
  1.  I Y="" W !,"No patients selected." G ADDX
  1.  I $D(DIRUT) W !,"No patients selected." G ADDX
  1.  D FULL^VALM1 W:$D(IOF) @IOF
  1.  S BATANS=Y,BATC="" F BATI=1:1 S BATC=$P(BATANS,",",BATI) Q:BATC=""  K BATPATS(BATC)
  1. REMX ;
  1.  D BACK
  1.  Q
  1. INDSL ;;
  1. 1 ;;1   Indicator 1:  Diabetes Prevalence
  1. 2 ;;1B  Indicator 1B: Diabetes Prevalence using # seen w/Diabetes in past year
  1. 3 ;;2A  Indicator 2A: Diabetes-Glycemic Control (simple Population)
  1. 4 ;;2B  Indicator 2B: Diabetes-Glycemic Control (2 visits & first Dx > 1 yr)
  1. 5 ;;2C  Indicator 2C: Diabetes-Glycemic Control (2 visits, >19 yrs, creatinine <5)
  1. 6 ;;3A  Indicator 3A: Diabetes-Blood Pressure Control (simple Population)
  1. 7 ;;3B  Indicator 3B: Diabetes-Blood Pressure Control (2 visits & first Dx > 1 yr)
  1. 8 ;;3C  Indicator 3C: Diabetes-Blood Pressure Control (2 visits, >19 yrs, creatinine <5)
  1. 9 ;;4A  Indicator 4A: Diabetes-Assessed for Dyslipidemia (simple Population)
  1. 10 ;;4B  Indicator 4B: Diabetes-Assessed for Dyslipidemia (2 visits & first Dx > 1 yr)
  1. 11 ;;4C  Indicator 4C: Diabetes-Assessed for Dyslipidemia (2 visits, >19 yrs, creatinine <5)
  1. 12 ;;5A  Indicator 5A: Diabetes-Assessed for Nephropathy (simple Population)
  1. 13 ;;5B  Indicator 5B: Diabetes-Assessed for Nephropathy (2 visits & first Dx > 1 yr)
  1. 14 ;;5C  Indicator 5C: Diabetes-Assessed for Nephropathy (2 visits, >19 yrs, creatinine <5)
  1. 15 ;;6   Indicator 6: Women's Health - Pap Smear in past one year
  1. 16 ;;6a  Indicator 6A: Women's Health - Pap Smear in past 3 years
  1. 17 ;;7   Indicator 7: Women's Health - Reduce Breast Cancer - Mammogram w/in 2 years
  1. 18 ;;8   Indicator 8: Child Health - Children 27 months old with 4 Well Child Visits
  1. 19 ;;12  Indicator 12: Oral Health - All patients with access to Dental Services
  1. 20 ;;13  Indicator 13:  Oral Health - All Patients 6-8 and 14-15 With Dental Sealants
  1. 21 ;;14  Indicator 14:  Oral Health Status - All Diabetics with access to Dental Services
  1. 22 ;;22  Indicator 22:  Public Health Nursing Visits
  1. 23 ;;23  ****NOT AVAILABLE in 2002 GPRA
  1. 24 ;;24  Indicator 24: Adult Immunizations-Pneumovax and Flu Vaccine Diabetics >65 yrs
  1. 25 ;;29  Indicator 29:  Obesity
  1. 26 ;;30  Indicator 30: Tobacco Prevention and Cessation
  1. 27 ;;A   Indicator A: Improve Mental Health
  1. 28 ;;B   Indicator B: Reduce Colorectal Cancer Death Rate
  1. 29 ;;C   Indicator C: Increase Proportion of Persons Provided Diet and Exercise Instruction
  1. 30 ;;D   Indicator D: Evaluate the proportion of Diabetics receiving Yearly Eye Exam
  1.  ;;END
  1.  Q