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

APCLP7.m

Go to the documentation of this file.
  1. APCLP7 ; IHS/CMI/LAB - apcl patch 7 ;
  1. ;;2.0;IHS PCC SUITE;;MAY 14, 2009
  1. ;
  1. PRE ;EP - pre init
  1. D RENAME^XPDMENU("APCL M DM AUDIT","APCL M MAIN DM MENU")
  1. Q
  1. EN ;
  1. S ATXFLG=1
  1. D ^APCLP71X
  1. D ^APCLP72
  1. D ^APCLP73
  1. D ^APCLP74
  1. D ^APCLP75
  1. D ^APCLP76
  1. S ATXFLG=1
  1. D CESS
  1. D DRUGS
  1. D SDM
  1. D DMEDUC
  1. D LAB
  1. XIT ;
  1. D EN^XBVK("APCL"),EN^XBVK("ATX")
  1. Q
  1. ;
  1. LAB ;
  1. S APCLX="DM AUDIT CREATININE TAX" D LAB1
  1. S APCLX="DM AUDIT CHOLESTEROL TAX" D LAB1
  1. S APCLX="DM AUDIT GLUCOSE TESTS TAX" D LAB1
  1. S APCLX="DM AUDIT URINE PROTEIN TAX" D LAB1
  1. S APCLX="DM AUDIT HGB A1C TAX" D LAB1
  1. S APCLX="DM AUDIT TRIGLYCERIDE TAX" D LAB1
  1. S APCLX="DM AUDIT URINALYSIS TAX" D LAB1
  1. S APCLX="DM AUDIT MICROALBUMINURIA TAX" D LAB1
  1. S APCLX="DM AUDIT AST TAX" D LAB1
  1. S APCLX="DM AUDIT ALT TAX" D LAB1
  1. S APCLX="DM AUDIT LDL CHOLESTEROL TAX" D LAB1
  1. Q
  1. LAB1 ;
  1. W !,"Creating ",APCLX," Taxonomy..."
  1. S APCLDA=$O(^ATXLAB("B",APCLX,0))
  1. Q:APCLDA ;taxonomy already exisits
  1. S X=APCLX,DIC="^ATXLAB(",DIC(0)="L",DIADD=1,DLAYGO=9002228 D ^DIC K DIC,DA,DIADD,DLAYGO,I
  1. I Y=-1 W !!,"ERROR IN CREATING ",APCLX," TAX" Q
  1. S APCLTX=+Y,$P(^ATXLAB(APCLTX,0),U,2)=APCLX,$P(^(0),U,5)=DUZ,$P(^(0),U,6)=DT,$P(^(0),U,8)="B",$P(^(0),U,9)=60,^ATXLAB(APCLTX,21,0)="^9002228.02101PA^0^0"
  1. S DA=APCLTX,DIK="^ATXAX(" D IX1^DIK
  1. Q
  1. DRUGS ;set up drug taxonomies
  1. S APCLX="DM AUDIT ACE INHIBITORS" D DRUG1
  1. S APCLX="DM AUDIT INSULIN DRUGS" D DRUG1
  1. S APCLX="DM AUDIT SELF MONITOR DRUGS" D DRUG1
  1. S APCLX="DM AUDIT SULFONYLUREA DRUGS" D DRUG1
  1. S APCLX="DM AUDIT METFORMIN DRUGS" D DRUG1
  1. S APCLX="DM AUDIT ACARBOSE DRUGS" D DRUG1
  1. S APCLX="DM AUDIT TROGLITAZONE DRUGS" D DRUG1
  1. S APCLX="DM AUDIT ASPIRIN DRUGS" D DRUG1
  1. Q
  1. DRUG1 ;
  1. W !,"Creating ",APCLX," Taxonomy..."
  1. S APCLDA=$O(^ATXAX("B",APCLX,0))
  1. Q:APCLDA ;taxonomy already exisits
  1. S X=APCLX,DIC="^ATXAX(",DIC(0)="L",DIADD=1,DLAYGO=9002226 D ^DIC K DIC,DA,DIADD,DLAYGO,I
  1. I Y=-1 W !!,"ERROR IN CREATING ",APCLX," TAX" Q
  1. S APCLTX=+Y,$P(^ATXAX(APCLTX,0),U,2)=APCLX,$P(^(0),U,5)=DUZ,$P(^(0),U,8)=0,$P(^(0),U,9)=DT,$P(^(0),U,12)=173,$P(^(0),U,13)=0,$P(^(0),U,15)=50,^ATXAX(APCLTX,21,0)="^9002226.02101A^0^0"
  1. S DA=APCLTX,DIK="^ATXAX(" D IX1^DIK
  1. Q
  1. SDM ;
  1. W !,"Creating DM SDM Provider Taxonomy..."
  1. S APCLDA=$O(^ATXAX("B","DM AUDIT SDM PROVIDERS",0))
  1. Q:APCLDA ;taxonomy already exisits
  1. S X="DM AUDIT SDM PROVIDERS",DIC="^ATXAX(",DIC(0)="L",DIADD=1,DLAYGO=9002226 D ^DIC K DIC,DA,DIADD,DLAYGO,I
  1. I Y=-1 W !!,"ERROR IN CREATING DM AUDIT SDM PROVIDERS TAX" Q
  1. S APCLTX=+Y,$P(^ATXAX(APCLTX,0),U,2)="DM AUDIT SDM PROVIDERS",$P(^(0),U,5)=DUZ,$P(^(0),U,8)=0,$P(^(0),U,9)=DT,$P(^(0),U,12)=209,$P(^(0),U,13)=0,$P(^(0),U,15)=16,^ATXAX(APCLTX,21,0)="^9002226.02101A^0^0"
  1. S DA=APCLTX,DIK="^ATXAX(" D IX1^DIK
  1. Q
  1. CESS ;
  1. W !,"Creating Tobacco Cessation Health factors taxonomy... "
  1. S APCLDA=$O(^ATXAX("B","DM AUDIT CESSATION HLTH FACTOR",0))
  1. Q:APCLDA ;taxonomy already exists
  1. S X="DM AUDIT CESSATION HLTH FACTOR",DIC="^ATXAX(",DIC(0)="L",DIADD=1,DLAYGO=9002226 D ^DIC K DIC,DA,DIADD,DLAYGO,I
  1. I Y=-1 W !!,"ERROR IN CREATING DM AUDIT CESSATION HLTH FACTORS TAX" Q
  1. S APCLTX=+Y,$P(^ATXAX(APCLTX,0),U,2)="DM AUDIT CESSATION HLTH FACTOR",$P(^(0),U,5)=DUZ,$P(^(0),U,8)=0,$P(^(0),U,9)=DT,$P(^(0),U,12)=78,$P(^(0),U,13)=0,$P(^(0),U,15)=9999999.64,^ATXAX(APCLTX,21,0)="^9002226.02101A^0^0"
  1. S APCLTEXT="CESSHF" F APCLX=1:1:2 S X=$P($T(@APCLTEXT+APCLX),";;",2),DIC="^AUTTHF(",DIC(0)="M" D ^DIC K DIC,DA,DR,DIADD,DLAYGO,DQ,DI,D1,D0 I $P(Y,U)>0 D
  1. .S ^ATXAX(APCLTX,21,APCLX,0)=+Y,$P(^ATXAX(APCLTX,21,0),U,3)=APCLX,$P(^(0),U,4)=APCLX,^ATXAX(APCLTX,21,"AA",+Y,+Y)=""
  1. .Q
  1. S DA=APCLTX,DIK="^ATXAX(" D IX1^DIK
  1. Q
  1. ;
  1. DMEDUC ;
  1. W !,"Creating Education topics taxonomy..."
  1. S APCLDA=0 S APCLDA=$O(^ATXAX("B","DM AUDIT DIET EDUC TOPICS",APCLDA)) I 'APCLDA D
  1. .S X="DM AUDIT DIET EDUC TOPICS",DIC="^ATXAX(",DIC(0)="L",DIADD=1,DLAYGO=9002226 D ^DIC K DIC,DA,DIADD,DLAYGO,I
  1. .I Y=-1 W !!,"ERROR IN CREATING DM AUDIT DIET EDUC TOPICS TAX" Q
  1. .S APCLTX=+Y,$P(^ATXAX(APCLTX,0),U,2)="DM AUDIT DIET EDUC TOPICS",$P(^(0),U,5)=DUZ,$P(^(0),U,8)=0,$P(^(0),U,9)=DT,$P(^(0),U,12)=280,$P(^(0),U,13)=0,$P(^(0),U,15)=9999999.09,^ATXAX(APCLTX,21,0)="^9002226.02101A^0^0"
  1. .S APCLTEXT="DIET" F APCLX=1:1:6 S X=$P($T(@APCLTEXT+APCLX),";;",2),DIC="^AUTTEDT(",DIC(0)="M" D ^DIC K DIC,DA,DR,DIADD,DLAYGO,DQ,DI,D1,D0 I $P(Y,U)>0 D
  1. ..S ^ATXAX(APCLTX,21,APCLX,0)=+Y,$P(^ATXAX(APCLTX,21,0),U,3)=APCLX,$P(^(0),U,4)=APCLX,^ATXAX(APCLTX,21,"AA",+Y,+Y)=""
  1. ..Q
  1. .S DA=APCLTX,DIK="^ATXAX(" D IX1^DIK
  1. S APCLDA=0 S APCLDA=$O(^ATXAX("B","DM AUDIT EXERCISE EDUC TOPICS",APCLDA)) I 'APCLDA D
  1. .S X="DM AUDIT EXERCISE EDUC TOPICS",DIC="^ATXAX(",DIC(0)="L",DIADD=1,DLAYGO=9002226 D ^DIC K DIC,DA,DIADD,DLAYGO,I
  1. .I Y=-1 W !!,"ERROR IN CREATING DM AUDIT EXERCISE EDUC TOPICS TAX" Q
  1. .S APCLTX=+Y,$P(^ATXAX(APCLTX,0),U,2)="DM AUDIT EXERCISE EDUC TOPICS",$P(^(0),U,5)=DUZ,$P(^(0),U,8)=0,$P(^(0),U,9)=DT,$P(^(0),U,12)=280,$P(^(0),U,13)=0,$P(^(0),U,15)=9999999.09,^ATXAX(APCLTX,21,0)="^9002226.02101A^0^0"
  1. .S APCLTEXT="EXC" F APCLX=1:1:3 S X=$P($T(@APCLTEXT+APCLX),";;",2),DIC="^AUTTEDT(",DIC(0)="M" D ^DIC K DIC,DA,DR,DIADD,DLAYGO,DQ,DI,D1,D0 I $P(Y,U)>0 D
  1. ..S ^ATXAX(APCLTX,21,APCLX,0)=+Y,$P(^ATXAX(APCLTX,21,0),U,3)=APCLX,$P(^(0),U,4)=APCLX,^ATXAX(APCLTX,21,"AA",+Y,+Y)=""
  1. ..Q
  1. .S DA=APCLTX,DIK="^ATXAX(" D IX1^DIK
  1. S APCLDA=0 S APCLDA=$O(^ATXAX("B","DM AUDIT OTHER EDUC TOPICS",APCLDA)) I 'APCLDA D
  1. .S X="DM AUDIT OTHER EDUC TOPICS",DIC="^ATXAX(",DIC(0)="L",DIADD=1,DLAYGO=9002226 D ^DIC K DIC,DA,DIADD,DLAYGO,I
  1. .I Y=-1 W !!,"ERROR IN CREATING DM AUDIT OTHER EDUC TOPICS TAX" Q
  1. .S APCLTX=+Y,$P(^ATXAX(APCLTX,0),U,2)="DM AUDIT OTHER EDUC TOPICS",$P(^(0),U,5)=DUZ,$P(^(0),U,8)=0,$P(^(0),U,9)=DT,$P(^(0),U,12)=280,$P(^(0),U,13)=0,$P(^(0),U,15)=9999999.09,^ATXAX(APCLTX,21,0)="^9002226.02101A^0^0"
  1. .S APCLTEXT="OTHER" F APCLX=1:1:79 S X=$P($T(@APCLTEXT+APCLX),";;",2),DIC="^AUTTEDT(",DIC(0)="M" D ^DIC K DIC,DA,DR,DIADD,DLAYGO,DQ,DI,D1,D0 I $P(Y,U)>0 D
  1. ..S ^ATXAX(APCLTX,21,APCLX,0)=+Y,$P(^ATXAX(APCLTX,21,0),U,3)=APCLX,$P(^(0),U,4)=APCLX,^ATXAX(APCLTX,21,"AA",+Y,+Y)=""
  1. ..Q
  1. .S DA=APCLTX,DIK="^ATXAX(" D IX1^DIK
  1. Q
  1. CESSHF ;;
  1. ;;CESSATION-SMOKELESS
  1. ;;CESSATION-SMOKER
  1. ;;
  1. DIET ;
  1. ;;DIABETES NUTRITION
  1. ;;DM-DIET
  1. ;;DM-NUTRITION
  1. ;;DM DIET
  1. ;;DM-CHOLESTEROL NU EDUCATION
  1. ;;DM NUTRITION PROTEIN
  1. ;;
  1. EXC ;;
  1. ;;DM-EXERCISE
  1. ;;DM EXERCISE
  1. ;;DIABETES EXERCISE
  1. ;;
  1. OTHER ;
  1. ;;DM-DISEASE PROCESS
  1. ;;DM DISEASE PROCESS
  1. ;;DM-FOLLOW UP
  1. ;;DM FOLLOWUP
  1. ;;DM-FOOT CARE
  1. ;;DM FOOT CARE
  1. ;;DIABETES FOOT CARE
  1. ;;DM-GENERAL INFORMATION
  1. ;;DM-INFORMATION
  1. ;;DIABETES GENERAL INFORMATION
  1. ;;DM-LIFESTYLE ADAPTATIONS
  1. ;;DM LIFESTYLE ADAPTATIONS
  1. ;;DM-MEDICATIONS
  1. ;;DM MEDICATIONS
  1. ;;DIABETES MEDICATIONS
  1. ;;DM-KNOW YOUR NUMBER
  1. ;;DM-PSYCH ED
  1. ;;DM-COMPLICATIONS
  1. ;;DM UTI
  1. ;;DM SMOKING CESSATION
  1. ;;DM SELF MONITORING TEST TAPES
  1. ;;DM SELF MONITORING CHEM STRIPS
  1. ;;DM PREGNANCY COUNSELING
  1. ;;DM NEUROPATHY
  1. ;;DM NEPHROPATHY
  1. ;;DM-NEPHROPATHY
  1. ;;DM-NEUROPATHY
  1. ;;DM-ORAL AGENTS
  1. ;;DM-RETINOPATHY/EYE
  1. ;;DM-SELF-GLUCOSE
  1. ;;DM-SEXUAL/REPRODUCTIVE
  1. ;;DM-SICK DAY MANAGEMENT
  1. ;;DM-WEIGHT CONTROL
  1. ;;DM HYPERTENSION
  1. ;;DM GESTATIONAL
  1. ;;DM EMOTIONAL ASPECTS
  1. ;;DM COMPLICATIONS
  1. ;;DIABETIC RETINOPATHY TEACHING
  1. ;;DIABETES-SICK DAYS
  1. ;;DIABETES DENTAL HYGIENE
  1. ;;DM - GLUCOMETER USE
  1. ;;DM MODULE 1
  1. ;;DM MODULE 10
  1. ;;DM MODULE 11
  1. ;;DM MODULE 12
  1. ;;DM MODULE 13
  1. ;;DM MODULE 14
  1. ;;DM MODULE 15
  1. ;;DM MODULE 16
  1. ;;DM MODULE 17
  1. ;;DM MODULE 18
  1. ;;DM MODULE 2
  1. ;;DM MODULE 3
  1. ;;DM MODULE 4
  1. ;;DM MODULE 5
  1. ;;DM MODULE 6
  1. ;;DM MODULE 7
  1. ;;DM MODULE 8
  1. ;;DM MODULE 9
  1. ;;DM WELLNESS 1
  1. ;;DM WELLNESS 2
  1. ;;DM WELLNESS 3
  1. ;;DM WELLNESS 4
  1. ;;DM WELLNESS 5
  1. ;;DM WELLNESS 6
  1. ;;DM WELLNESS 7
  1. ;;DM WELLNESS 8
  1. ;;DM-HOME MANAGEMENT
  1. ;;DM-KIDNEY DISEASE
  1. ;;DM-PATIENT LITERATURE
  1. ;;DM-PREVENTION
  1. ;;DM-CARDIOVASCULAR PROBLEMS
  1. ;;DM-TREATMENT
  1. ;;DM-DENTAL
  1. ;;DM-HYPERGLYCEMIA
  1. ;;DM-HYPOGLYCEMIA
  1. ;;DM-INFECTION
  1. ;;DM-INFORMATIN
  1. ;;DM-INSULIN ADMINISTRATION
  1. ;;