- BGPDT ; IHS/CMI/LAB - 2001 DIABETES AUDIT ;
- ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
- ;
- ;
- W:$D(IOF) @IOF
- W !!,"Checking for Taxonomies to support the GPRA Report. ",!,"Please enter the device for printing.",!
- ZIS ;
- S XBRC="",XBRP="TAXCHK^BGPDT",XBNS="",XBRX="XIT^BGPDT"
- D ^XBDBQUE
- D XIT
- Q
- TAXCHK ;EP
- ;W:$D(IOF) @IOF
- K BGPQUIT
- W !,"Checking for Taxonomies to support the GPRA Report...",!
- NEW A,BGPX,I,Y,Z,J
- K A
- S T="TAXS" F J=1:1 S Z=$T(@T+J),BGPX=$P(Z,";;",2),Y=$P(Z,";;",3) Q:BGPX="" D
- .I '$D(^ATXAX("B",BGPX)) S A(BGPX)=Y_"^is Missing" Q
- .S I=$O(^ATXAX("B",BGPX,0))
- .I '$D(^ATXAX(I,21,"B")) S A(BGPX)=Y_"^has no entries "
- S T="LAB" F J=1:1 S Z=$T(@T+J),BGPX=$P(Z,";;",2),Y=$P(Z,";;",3) Q:BGPX="" D
- .I '$D(^ATXLAB("B",BGPX)) S A(BGPX)=Y_"^is Missing " Q
- .S I=$O(^ATXLAB("B",BGPX,0))
- .I '$D(^ATXLAB(I,21,"B")) S A(BGPX)=Y_"^has no entries "
- I '$D(A) W !,"All taxonomies are present.",! K A,BGPX,Y,I,Z D DONE Q
- W !!,"In order for the GPRA Report to find all necessary data, several",!,"taxonomies must be established. The following taxonomies are missing or have",!,"no entries:"
- S BGPX="" F S BGPX=$O(A(BGPX)) Q:BGPX=""!($D(BGPQUIT)) D
- .I $Y>(IOSL-2) D PAGE Q:$D(BGPQUIT)
- .W !,$P(A(BGPX),U)," [",BGPX,"] ",$P(A(BGPX),U,2)
- .Q
- DONE ;
- K BGPQUIT
- I $E(IOST)="C",IO=IO(0) S DIR(0)="EO",DIR("A")="End of taxonomy check. PRESS ENTER" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
- Q
- XIT ;EP
- K BGP,BGPX,BGPQUIT,BGPLINE,BGPJ,BGPX,BGPTEXT,BGP
- K X,Y,J
- Q
- PAGE ;
- I $E(IOST)="C",IO=IO(0) W ! S DIR(0)="EO" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S BGPQUIT="" Q
- Q
- TAXS ;
- ;;SURVEILLANCE DIABETES;;Diabetes Diagnoses Codes
- ;;BGP PRIMARY PROVIDER DISC;;Taxonomy of Primary Care Provider Disciplines
- ;;BGP CPT PAP;;Pap CPTs Taxonomy
- ;;BGP CPT MAMMOGRAM;;Mammogram CPTs Taxonomy
- ;;BGP CPT FLU;;Flu CPTs Taxonomy
- ;;BGP PRIMARY CARE CLINICS;;Primary Care clinics Taxonomy
- ;;BGP DENTAL SEALANT OP SITES;;Dental sealant Operative Sites Taxonomy
- ;;BGP DEPRESSIVE DISORDERS;;Depressive Disorders ICD9 Diagnosis Taxonomy
- ;;BGP GPRA EX EDUC TOPICS;;Exercise Education Topics Taxonomy
- ;;
- LAB ;
- ;;BGP GPRA FOB TESTS;;FOBT Lab Tests Taxonomy
- ;;DM AUDIT URINE PROTEIN TAX;;Urine Protein Lab Taxonomy
- ;;DM AUDIT MICROALBUMINURIA TAX;;Microalbuminuia Lab Taxonomy
- ;;DM AUDIT HGB A1C TAX;;HGB A1C Lab Taxonomy
- ;;DM AUDIT GLUCOSE TESTS TAX;;Glucose Tests Taxonomy
- ;;DM AUDIT LIPID PROFILE TAX;;Lipid Profile Lab Taxonomy
- ;;DM AUDIT CHOLESTEROL TAX;;Cholesterol Lab Taxonomy
- ;;DM AUDIT LDL CHOLESTEROL TAX;;LDL Cholesterol Lab Taxonomy
- ;;DM AUDIT HDL TAX;;HDL Lab Taxonomy
- ;;DM AUDIT TRIGLYCERIDE TAX;;Triglyceride Lab Taxonomy
- ;;
- BGPDT ; IHS/CMI/LAB - 2001 DIABETES AUDIT ;
- +1 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
- +2 ;
- +3 ;
- +4 IF $DATA(IOF)
- WRITE @IOF
- +5 WRITE !!,"Checking for Taxonomies to support the GPRA Report. ",!,"Please enter the device for printing.",!
- ZIS ;
- +1 SET XBRC=""
- SET XBRP="TAXCHK^BGPDT"
- SET XBNS=""
- SET XBRX="XIT^BGPDT"
- +2 DO ^XBDBQUE
- +3 DO XIT
- +4 QUIT
- TAXCHK ;EP
- +1 ;W:$D(IOF) @IOF
- +2 KILL BGPQUIT
- +3 WRITE !,"Checking for Taxonomies to support the GPRA Report...",!
- +4 NEW A,BGPX,I,Y,Z,J
- +5 KILL A
- +6 SET T="TAXS"
- FOR J=1:1
- SET Z=$TEXT(@T+J)
- SET BGPX=$PIECE(Z,";;",2)
- SET Y=$PIECE(Z,";;",3)
- IF BGPX=""
- QUIT
- Begin DoDot:1
- +7 IF '$DATA(^ATXAX("B",BGPX))
- SET A(BGPX)=Y_"^is Missing"
- QUIT
- +8 SET I=$ORDER(^ATXAX("B",BGPX,0))
- +9 IF '$DATA(^ATXAX(I,21,"B"))
- SET A(BGPX)=Y_"^has no entries "
- End DoDot:1
- +10 SET T="LAB"
- FOR J=1:1
- SET Z=$TEXT(@T+J)
- SET BGPX=$PIECE(Z,";;",2)
- SET Y=$PIECE(Z,";;",3)
- IF BGPX=""
- QUIT
- Begin DoDot:1
- +11 IF '$DATA(^ATXLAB("B",BGPX))
- SET A(BGPX)=Y_"^is Missing "
- QUIT
- +12 SET I=$ORDER(^ATXLAB("B",BGPX,0))
- +13 IF '$DATA(^ATXLAB(I,21,"B"))
- SET A(BGPX)=Y_"^has no entries "
- End DoDot:1
- +14 IF '$DATA(A)
- WRITE !,"All taxonomies are present.",!
- KILL A,BGPX,Y,I,Z
- DO DONE
- QUIT
- +15 WRITE !!,"In order for the GPRA Report to find all necessary data, several",!,"taxonomies must be established. The following taxonomies are missing or have",!,"no entries:"
- +16 SET BGPX=""
- FOR
- SET BGPX=$ORDER(A(BGPX))
- IF BGPX=""!($DATA(BGPQUIT))
- QUIT
- Begin DoDot:1
- +17 IF $Y>(IOSL-2)
- DO PAGE
- IF $DATA(BGPQUIT)
- QUIT
- +18 WRITE !,$PIECE(A(BGPX),U)," [",BGPX,"] ",$PIECE(A(BGPX),U,2)
- +19 QUIT
- End DoDot:1
- DONE ;
- +1 KILL BGPQUIT
- +2 IF $EXTRACT(IOST)="C"
- IF IO=IO(0)
- SET DIR(0)="EO"
- SET DIR("A")="End of taxonomy check. PRESS ENTER"
- DO ^DIR
- KILL DIR
- IF $DATA(DUOUT)
- SET DIRUT=1
- +3 QUIT
- XIT ;EP
- +1 KILL BGP,BGPX,BGPQUIT,BGPLINE,BGPJ,BGPX,BGPTEXT,BGP
- +2 KILL X,Y,J
- +3 QUIT
- PAGE ;
- +1 IF $EXTRACT(IOST)="C"
- IF IO=IO(0)
- WRITE !
- SET DIR(0)="EO"
- DO ^DIR
- KILL DIR
- IF Y=0!(Y="^")!($DATA(DTOUT))
- SET BGPQUIT=""
- QUIT
- +2 QUIT
- TAXS ;
- +1 ;;SURVEILLANCE DIABETES;;Diabetes Diagnoses Codes
- +2 ;;BGP PRIMARY PROVIDER DISC;;Taxonomy of Primary Care Provider Disciplines
- +3 ;;BGP CPT PAP;;Pap CPTs Taxonomy
- +4 ;;BGP CPT MAMMOGRAM;;Mammogram CPTs Taxonomy
- +5 ;;BGP CPT FLU;;Flu CPTs Taxonomy
- +6 ;;BGP PRIMARY CARE CLINICS;;Primary Care clinics Taxonomy
- +7 ;;BGP DENTAL SEALANT OP SITES;;Dental sealant Operative Sites Taxonomy
- +8 ;;BGP DEPRESSIVE DISORDERS;;Depressive Disorders ICD9 Diagnosis Taxonomy
- +9 ;;BGP GPRA EX EDUC TOPICS;;Exercise Education Topics Taxonomy
- +10 ;;
- LAB ;
- +1 ;;BGP GPRA FOB TESTS;;FOBT Lab Tests Taxonomy
- +2 ;;DM AUDIT URINE PROTEIN TAX;;Urine Protein Lab Taxonomy
- +3 ;;DM AUDIT MICROALBUMINURIA TAX;;Microalbuminuia Lab Taxonomy
- +4 ;;DM AUDIT HGB A1C TAX;;HGB A1C Lab Taxonomy
- +5 ;;DM AUDIT GLUCOSE TESTS TAX;;Glucose Tests Taxonomy
- +6 ;;DM AUDIT LIPID PROFILE TAX;;Lipid Profile Lab Taxonomy
- +7 ;;DM AUDIT CHOLESTEROL TAX;;Cholesterol Lab Taxonomy
- +8 ;;DM AUDIT LDL CHOLESTEROL TAX;;LDL Cholesterol Lab Taxonomy
- +9 ;;DM AUDIT HDL TAX;;HDL Lab Taxonomy
- +10 ;;DM AUDIT TRIGLYCERIDE TAX;;Triglyceride Lab Taxonomy
- +11 ;;
