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

APCLD619.m

Go to the documentation of this file.
  1. APCLD619 ; IHS/CMI/LAB - 2006 DIABETES AUDIT ;
  1. ;;2.0;IHS PCC SUITE;;MAY 14, 2009
  1. ;
  1. ;
  1. W:$D(IOF) @IOF
  1. W !!,"Checking for Taxonomies to support the 2006 Audit. ",!,"Please enter the device for printing.",!
  1. ZIS ;
  1. S XBRC="",XBRP="TAXCHK^APCLD619",XBNS="",XBRX="XIT^APCLD619"
  1. D ^XBDBQUE
  1. D XIT
  1. Q
  1. TAXCHK ;EP
  1. W:$D(IOF) @IOF
  1. K APCLQUIT
  1. W !,"Checking for Taxonomies to support the 2006 Audit...",!
  1. NEW A,APCLX,I,Y,Z,J
  1. K A
  1. S T="TAXS" F J=1:1 S Z=$T(@T+J),APCLX=$P(Z,";;",2),Y=$P(Z,";;",3) Q:APCLX="" D
  1. .I '$D(^ATXAX("B",APCLX)) S A(APCLX)=Y_"^is Missing" Q
  1. .S I=$O(^ATXAX("B",APCLX,0))
  1. .I '$D(^ATXAX(I,21,"B")) S A(APCLX)=Y_"^has no entries "
  1. S T="LAB" F J=1:1 S Z=$T(@T+J),APCLX=$P(Z,";;",2),Y=$P(Z,";;",3) Q:APCLX="" D
  1. .I '$D(^ATXLAB("B",APCLX)) S A(APCLX)=Y_"^is Missing " Q
  1. .S I=$O(^ATXLAB("B",APCLX,0))
  1. .I '$D(^ATXLAB(I,21,"B")) S A(APCLX)=Y_"^has no entries "
  1. I $Y>(IOSL-2) D PAGE
  1. I '$D(A) W !,"All taxonomies are present.",! K A,APCLX,Y,I,Z Q
  1. W !!,"In order for the 2006 Diabetes Audit to find all necessary data, several",!,"taxonomies must be established. The following taxonomies are missing or have",!,"no entries:"
  1. S APCLX="" F S APCLX=$O(A(APCLX)) Q:APCLX=""!($D(APCLQUIT)) D
  1. .I $Y>(IOSL-2) D PAGE Q:$D(APCLQUIT)
  1. .W !,$P(A(APCLX),U)," [",APCLX,"] ",$P(A(APCLX),U,2)
  1. .Q
  1. DONE ;
  1. I $E(IOST)="C",IO=IO(0) S DIR(0)="EO",DIR("A")="End of taxonomy check. HIT RETURN" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
  1. Q
  1. XIT ;EP
  1. K APCL,APCLX,APCLQUIT,APCLLINE,APCLJ,APCLX,APCLTEXT,APCL
  1. K X,Y,J
  1. Q
  1. LASTHF(P,C,BDATE,EDATE,F) ;EP - get last factor in category C for patient P
  1. I '$G(P) Q ""
  1. I $G(C)="" Q ""
  1. I $G(F)="" S F=""
  1. S C=$O(^AUTTHF("B",C,0)) ;ien of category passed
  1. I '$G(C) Q ""
  1. NEW H,D,O S H=0 K O
  1. F S H=$O(^AUTTHF("AC",C,H)) Q:'+H D
  1. . Q:'$D(^AUPNVHF("AA",P,H))
  1. . S D="" F S D=$O(^AUPNVHF("AA",P,H,D)) Q:D'=+D D
  1. .. Q:(9999999-D)>EDATE ;after time frame
  1. .. Q:(9999999-D)<BDATE ;before time frame
  1. .. S O(D)=$O(^AUPNVHF("AA",P,H,D,""))
  1. . Q
  1. S D=$O(O(0))
  1. I D="" Q D
  1. I F="F" Q $P(^AUTTHF($P(^AUPNVHF(O(D),0),U),0),U)
  1. ;
  1. Q 1
  1. ;;
  1. S APCLTEXT="TEXTD",APCL("VERSION")="3.0"
  1. F APCLJ=1:1 S APCLX=$T(@APCLTEXT+APCLJ),APCLX=$P(APCLX,";;",2) Q:APCLX="QUIT"!(APCLX="") S APCLLINE=APCLJ
  1. PRINT D ^XBCLS W:$D(IOF) @IOF
  1. F APCLJ=1:1:APCLLINE S APCLX=$T(@APCLTEXT+APCLJ),APCLX=$P(APCLX,";;",2) W !?80-$L(APCLX)\2,APCLX K APCLX
  1. W !?80-(8+$L(APCL("VERSION")))/2,"Version ",APCL("VERSION")
  1. G XIT:'$D(DUZ(2)) G:'DUZ(2) XIT S APCL("SITE")=$P(^DIC(4,DUZ(2),0),"^") W !!?80-$L(APCL("SITE"))\2,APCL("SITE")
  1. D XIT
  1. Q
  1. TEXTD ;EP
  1. ;;****************************************
  1. ;;** PCC Management Reports **
  1. ;;** 2006 Diabetes Audit Report Menu **
  1. ;;****************************************
  1. ;;QUIT
  1. PAGE ;
  1. I $E(IOST)="C",IO=IO(0) W ! S DIR(0)="EO" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S APCLQUIT="" Q
  1. Q
  1. BMIEPI(H,W) ;EP ;
  1. NEW %
  1. I H="" Q ""
  1. I W="" Q ""
  1. I 'H Q ""
  1. S W=W*.45359,H=(H*.0254),H=(H*H),%=(W/H),%=$J(%,4,1)
  1. Q %
  1. TAXS ;
  1. ;;SURVEILLANCE DIABETES;;Diabetes Diagnoses Codes
  1. ;;SURVEILLANCE HYPERTENSION;;Hypertension Diagnoses Codes
  1. ;;SURVEILLANCE TUBERCULOSIS;;Tuberculosis Diagnoses Codes
  1. ;;DM AUDIT DEPRESSIVE DISORDERS;;Depressive Disorders Diagnoses Codes
  1. ;;DM AUDIT DIET EDUC TOPICS;;Diabetes Diet Education Topics
  1. ;;DM AUDIT EXERCISE EDUC TOPICS;;Diabetes Excercise Education Topics
  1. ;;DM AUDIT OTHER EDUC TOPICS;;Other Diabetes Education Topics
  1. ;;DM AUDIT SMOKING CESS EDUC;;Smoking Cess Education Topics
  1. ;;DM AUDIT TOBACCO HLTH FACTORS;;Tobacco Health Factors
  1. ;;DM AUDIT PROBLEM SMOKING DXS;;Smoking related diagnoses for Problem List
  1. ;;DM AUDIT PROBLEM HTN DIAGNOSES;;Hypertension Diagnoses
  1. ;;DM AUDIT PROBLEM DIABETES DX;;Diabetes Diagnoses
  1. ;;DM AUDIT SMOKING RELATED DXS;;Smoking related diagnoses for POVs
  1. ;;DM AUDIT CESSATION HLTH FACTOR;;Smoking Cessation Health Factors
  1. ;;DM AUDIT TB HEALTH FACTORS;;TB Status Health Factors
  1. ;;DM AUDIT INSULIN DRUGS;;Insulin Drug Taxonomy
  1. ;;DM AUDIT SULFONYLUREA DRUGS;;Sulfonylurea Drug Taxonomy
  1. ;;DM AUDIT METFORMIN DRUGS;;Metformin Drug Taxonomy
  1. ;;DM AUDIT ACARBOSE DRUGS;;Acarbose Drug Taxonomy
  1. ;;DM AUDIT LIPID LOWERING DRUGS;;Lipid Lowering Drug Taxonomy
  1. ;;DM AUDIT STATIN DRUGS;;Statin Drug Taxonomy
  1. ;;DM AUDIT GLITAZONE DRUGS;;Glitzaone Drug Taxonomy
  1. ;;DM AUDIT ACE INHIBITORS;;ACE Inhibitor Drug Taxonomy
  1. ;;DM AUDIT ASPIRIN DRUGS;;Aspirin Drug Taxonomy
  1. ;;DM AUDIT ANTI-PLATELET DRUGS;;Anti-Platelet Drug Taxonomy
  1. ;;DM AUDIT SDM PROVIDERS;;SDM providers Taxonomy
  1. ;;DM AUDIT TYPE II DXS;;Type II Diagnoses
  1. ;;DM AUDIT TYPE I DXS;;Type I Diagnoses
  1. ;;
  1. LAB ;
  1. ;;DM AUDIT URINE PROTEIN TAX;;Urine Protein Lab Taxonomy
  1. ;;DM AUDIT MICROALBUMINURIA TAX;;Microalbuminuia Lab Taxonomy
  1. ;;DM AUDIT HGB A1C TAX;;HGB A1C Lab Taxonomy
  1. ;;DM AUDIT CREATININE TAX;;Creatinine Lab Taxonomy
  1. ;;DM AUDIT CHOLESTEROL TAX;;Cholesterol Lab Taxonomy
  1. ;;DM AUDIT LDL CHOLESTEROL TAX;;LDL Cholesterol Lab Taxonomy
  1. ;;DM AUDIT HDL TAX;;HDL Lab Taxonomy
  1. ;;DM AUDIT TRIGLYCERIDE TAX;;Triglyceride Lab Taxonomy
  1. ;;DM AUDIT URINALYSIS TAX;;Urinalysis Lab Taxonomy
  1. ;;DM AUDIT A/C RATIO TAX;;A/C RATIO Lab Taxonomy
  1. ;;