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

BJPC2EV1.m

Go to the documentation of this file. 
  1. BJPC2EV1 ; IHS/CMI/LAB - Non DX/PX Taxonomy Fix ; 
  1.  ;;2.0;IHS PCC SUITE;;MAY 14, 2009
  1.  ;
  1. START ;
  1.  S ATXFLG=1
  1.  D TOBACCO,TBHLTH,DMEDUC,DMADA,DMEDUC1,CESS
  1.  Q
  1. TOBACCO ;add tobacco health factor taxonomy
  1.  S BJPCDA=0 S BJPCDA=$O(^ATXAX("B","DM AUDIT TOBACCO HLTH FACTORS",BJPCDA)) I BJPCDA Q
  1.  W !,"Creating Tobacco Health factors taxonomy... "
  1.  S X="DM AUDIT TOBACCO HLTH FACTORS",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 TOBACCO HLTH FACTORS TAX" Q
  1.  S BJPCTX=+Y,$P(^ATXAX(BJPCTX,0),U,2)="DM AUDIT TOBACCO HLTH FACTORS",$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(BJPCTX,21,0)="^9002226.02101A^0^0"
  1.  S BJPCTEXT="TOB" F BJPCX=1:1:5 S X=$P($T(@BJPCTEXT+BJPCX),";;",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(BJPCTX,21,BJPCX,0)=+Y,$P(^ATXAX(BJPCTX,21,0),U,3)=BJPCX,$P(^(0),U,4)=BJPCX,^ATXAX(BJPCTX,21,"AA",+Y,BJPCX)=""
  1.  .Q
  1.  S DA=BJPCTX,DIK="^ATXAX(" D IX1^DIK
  1.  Q
  1. DMEDUC ;
  1.  S BJPCDA=0 S BJPCDA=$O(^ATXAX("B","DM AUDIT DIABETES EDUC TOPICS",BJPCDA)) I BJPCDA Q
  1.  W !,"Creating Education topics taxonomy..."
  1.  S X="DM AUDIT DIABETES 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 DIABETES EDUC TOPICS TAX" Q
  1.  S BJPCTX=+Y,$P(^ATXAX(BJPCTX,0),U,2)="DM AUDIT DIABETES 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(BJPCTX,21,0)="^9002226.02101A^0^0"
  1.  S BJPCTEXT="EDUC" F BJPCX=1:1:10 S X=$P($T(@BJPCTEXT+BJPCX),";;",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(BJPCTX,21,BJPCX,0)=+Y,$P(^ATXAX(BJPCTX,21,0),U,3)=BJPCX,$P(^(0),U,4)=BJPCX,^ATXAX(BJPCTX,21,"AA",+Y,BJPCX)=""
  1.  .Q
  1.  S DA=BJPCTX,DIK="^ATXAX(" D IX1^DIK
  1.  Q
  1. DMADA ;
  1.  S BJPCDA=0 S BJPCDA=$O(^ATXAX("B","DM AUDIT DENTAL EXAM ADA CODES",BJPCDA)) I BJPCDA Q
  1.  W !,"Creating DM ADA Codes Taxonomy..."
  1.  S X="DM AUDIT DENTAL EXAM ADA CODES",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 DENTAL EXAM ADA CODES TAX" Q
  1.  S BJPCTX=+Y,$P(^ATXAX(BJPCTX,0),U,2)="DM AUDIT DENTAL EXAM ADA CODES",$P(^(0),U,5)=DUZ,$P(^(0),U,8)=0,$P(^(0),U,9)=DT,$P(^(0),U,12)=174,$P(^(0),U,13)=0,$P(^(0),U,15)=9999999.31,^ATXAX(BJPCTX,21,0)="^9002226.02101A^0^0"
  1.  S BJPCTEXT="ADA" F BJPCX=1:1:2 S X=$P($T(@BJPCTEXT+BJPCX),";;",2),DIC="^AUTTADA(",DIC(0)="M" D ^DIC K DIC,DA,DR,DIADD,DLAYGO,DQ,DI,D1,D0 I $P(Y,U)>0 D
  1.  .S ^ATXAX(BJPCTX,21,BJPCX,0)=+Y,$P(^ATXAX(BJPCTX,21,0),U,3)=BJPCX,$P(^(0),U,4)=BJPCX,^ATXAX(BJPCTX,21,"AA",+Y,BJPCX)=""
  1.  .Q
  1.  S DA=BJPCTX,DIK="^ATXAX(" D IX1^DIK
  1.  Q
  1. TBHLTH ;tb health factors taxonomy
  1.  S BJPCDA=0 S BJPCDA=$O(^ATXAX("B","DM AUDIT TB HEALTH FACTORS",BJPCDA)) I BJPCDA Q
  1.  W !,"Creating TB HF Taxonomy... "
  1.  S X="DM AUDIT TB HEALTH FACTORS",DIC="^ATXAX(",DIC(0)="L",DIADD=1,DLAYGO=9002226 D ^DIC K DIC,DIADD,DLAYGO,DA,DR,DO,D0
  1.  I Y=-1 W !!,"ERROR IN CREATING DM AUDIT TB HLTH FACTORS TAX" Q
  1.  S BJPCTX=+Y,$P(^ATXAX(BJPCTX,0),U,2)="TB TX STATUS HLTH FACTORS",$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
  1.  S ^ATXAX(BJPCTX,21,0)="^9002226.02101A^0^0"
  1.  S BJPCTEXT="TBHF" F BJPCX=1:1:4 S X=$P($T(@BJPCTEXT+BJPCX),";;",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(BJPCTX,21,BJPCX,0)=+Y,$P(^ATXAX(BJPCTX,21,0),U,3)=BJPCX,$P(^(0),U,4)=BJPCX,^ATXAX(BJPCTX,21,"AA",+Y,BJPCX)=""
  1.  .Q
  1.  S DA=BJPCTX,DIK="^ATXAX(" D IX1^DIK
  1.  Q
  1. DMEDUC1 ;
  1.  S BJPCDA=0 S BJPCDA=$O(^ATXAX("B","DM AUDIT DIET EDUC TOPICS",BJPCDA)) I 'BJPCDA D
  1.  .W !,"Creating Education topics taxonomy..."
  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 BJPCTX=+Y,$P(^ATXAX(BJPCTX,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(BJPCTX,21,0)="^9002226.02101A^0^0"
  1.  .S BJPCTEXT="DIET" F BJPCX=1:1:6 S X=$P($T(@BJPCTEXT+BJPCX),";;",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(BJPCTX,21,BJPCX,0)=+Y,$P(^ATXAX(BJPCTX,21,0),U,3)=BJPCX,$P(^(0),U,4)=BJPCX,^ATXAX(BJPCTX,21,"AA",+Y,+Y)=""
  1.  ..Q
  1.  .S DA=BJPCTX,DIK="^ATXAX(" D IX1^DIK
  1.  S BJPCDA=0 S BJPCDA=$O(^ATXAX("B","DM AUDIT EXERCISE EDUC TOPICS",BJPCDA)) I 'BJPCDA 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 BJPCTX=+Y,$P(^ATXAX(BJPCTX,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(BJPCTX,21,0)="^9002226.02101A^0^0"
  1.  .S BJPCTEXT="EXC" F BJPCX=1:1:3 S X=$P($T(@BJPCTEXT+BJPCX),";;",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(BJPCTX,21,BJPCX,0)=+Y,$P(^ATXAX(BJPCTX,21,0),U,3)=BJPCX,$P(^(0),U,4)=BJPCX,^ATXAX(BJPCTX,21,"AA",+Y,+Y)=""
  1.  ..Q
  1.  .S DA=BJPCTX,DIK="^ATXAX(" D IX1^DIK
  1.  S BJPCDA=0 S BJPCDA=$O(^ATXAX("B","DM AUDIT OTHER EDUC TOPICS",BJPCDA)) I 'BJPCDA 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 BJPCTX=+Y,$P(^ATXAX(BJPCTX,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(BJPCTX,21,0)="^9002226.02101A^0^0"
  1.  .S BJPCTEXT="OTHER" F BJPCX=1:1:79 S X=$P($T(@BJPCTEXT+BJPCX),";;",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(BJPCTX,21,BJPCX,0)=+Y,$P(^ATXAX(BJPCTX,21,0),U,3)=BJPCX,$P(^(0),U,4)=BJPCX,^ATXAX(BJPCTX,21,"AA",+Y,+Y)=""
  1.  ..Q
  1.  .S DA=BJPCTX,DIK="^ATXAX(" D IX1^DIK
  1.  W !,"Creating Education topics taxonomy..."
  1.  S BJPCDA=0 S BJPCDA=$O(^ATXAX("B","DM AUDIT SMOKING CESS EDUC",BJPCDA)) I 'BJPCDA D
  1.  .S X="DM AUDIT SMOKING CESS EDUC",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 SMOKING CESS EDUC TAX" Q
  1.  .S BJPCTX=+Y,$P(^ATXAX(BJPCTX,0),U,2)="DM AUDIT SMOKING CESS EDUC",$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(BJPCTX,21,0)="^9002226.02101A^0^0"
  1.  .S ^ATXAX(BJPCTX,21,BJPCX,0)=+Y,$P(^ATXAX(BJPCTX,21,0),U,3)=BJPCX,$P(^(0),U,4)=BJPCX,^ATXAX(BJPCTX,21,"AA",+Y,+Y)=""
  1.  .S DA=BJPCTX,DIK="^ATXAX(" D IX1^DIK
  1.  Q
  1. CESS ;
  1.  S BJPCDA=$O(^ATXAX("B","DM AUDIT CESSATION HLTH FACTOR",0))
  1.  Q:BJPCDA  ;taxonomy already exists
  1.  W !,"Creating Tobacco Cessation Health factors taxonomy... "
  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 BJPCTX=+Y,$P(^ATXAX(BJPCTX,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(BJPCTX,21,0)="^9002226.02101A^0^0"
  1.  S BJPCTEXT="CESSHF" F BJPCX=1:1:2 S X=$P($T(@BJPCTEXT+BJPCX),";;",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(BJPCTX,21,BJPCX,0)=+Y,$P(^ATXAX(BJPCTX,21,0),U,3)=BJPCX,$P(^(0),U,4)=BJPCX,^ATXAX(BJPCTX,21,"AA",+Y,+Y)=""
  1.  .Q
  1.  S DA=BJPCTX,DIK="^ATXAX(" D IX1^DIK
  1.  Q
  1.  ;
  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.  ;;
  1. TBHF ;
  1.  ;;TB - TX UNTREATED
  1.  ;;TB - TX INCOMPLETE
  1.  ;;TB - TX COMPLETE
  1.  ;;TB - TX UNKNOWN
  1. TOB ;
  1.  ;;NON-TOBACCO USER
  1.  ;;CURRENT SMOKER
  1.  ;;CURRENT SMOKELESS
  1.  ;;PREVIOUS SMOKER
  1.  ;;PREVIOUS SMOKELESS
  1. EDUC ;
  1.  ;;DM-COMPLICATIONS
  1.  ;;DM-DIET
  1.  ;;DM-DISEASE PROCESS
  1.  ;;DM-EXERCISE
  1.  ;;DM-FOLLOW UP
  1.  ;;DM-FOOT CARE
  1.  ;;DM-GENERAL INFORMATION
  1.  ;;DM-LIFESTYLE ADAPTATIONS
  1.  ;;DM-MEDICATIONS
  1.  ;;DM-NUTRITION
  1. ADA ;
  1.  ;;0110
  1.  ;;0120
  1.  ;;0150
  1.  ;;9321
  1.  ;;9320
  1.  ;;
  1.  ;;
  1.  ;;