BJPC2U.m

BJPC2U ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 17, 2009;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 I '$O(^ATXAX("B","SURVEILLANCE HYPERTENSION",0)) D ^BJPC2UA ;   SURVEILLANCE HYPERTENSION

 I '$O(^ATXAX("B","SURVEILLANCE HYSTERECTOMY",0)) D ^BJPC2UB ;   SURVEILLANCE HYSTERECTOMY

 I '$O(^ATXAX("B","SURVEILLANCE OBESITY",0)) D ^BJPC2UC ;   SURVEILLANCE OBESITY

 I '$O(^ATXAX("B","SURVEILLANCE PHYSICAL EXAM",0)) D ^BJPC2UD ;   SURVEILLANCE PHYSICAL EXAM

 I '$O(^ATXAX("B","SURVEILLANCE PNEUMOCOCCAL RISK",0)) D ^BJPC2UE ;   SURVEILLANCE PNEUMOCOCCAL RISK

 I '$O(^ATXAX("B","SURVEILLANCE SIGMOIDOSCOPY",0)) D ^BJPC2UF ;   SURVEILLANCE SIGMOIDOSCOPY

 I '$O(^ATXAX("B","SURVEILLANCE TUBERCULOSIS",0)) D ^BJPC2UG ;   SURVEILLANCE TUBERCULOSIS

 I '$O(^ATXAX("B","BGP ASTHMA DXS",0)) D ^BJPC2UH ;   BGP ASTHMA DXS

 I '$O(^ATXAX("B","APCH ASTHMA EXACERBATION DXS",0)) D ^BJPC2UI ;   APCH ASTHMA EXACERBATION DXS

 D ^BJPC2UJ ;   BAT ASTHMA CONTROLLER NDC

 D ^BJPC2UK ;   BAT ASTHMA INHLD STEROIDS NDC

 D ^BJPC2UL ;   BAT ASTHMA LEUKOTRIENE NDC

 D ^BJPC2UM ;   BAT ASTHMA SHRT ACT INHLR NDC

 D ^BJPC2UN ;   BAT ASTHMA SHRT ACT RELV NDC

 Q

BJPC2U    ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 17, 2009;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;

 +3       ; See referenced routines to see taxonomies being loaded.

 +4       ;

START     ;

 +1       ;   SURVEILLANCE HYPERTENSION

           IF '$ORDER(^ATXAX("B","SURVEILLANCE HYPERTENSION",0))

               DO ^BJPC2UA

 +2       ;   SURVEILLANCE HYSTERECTOMY

           IF '$ORDER(^ATXAX("B","SURVEILLANCE HYSTERECTOMY",0))

               DO ^BJPC2UB

 +3       ;   SURVEILLANCE OBESITY

           IF '$ORDER(^ATXAX("B","SURVEILLANCE OBESITY",0))

               DO ^BJPC2UC

 +4       ;   SURVEILLANCE PHYSICAL EXAM

           IF '$ORDER(^ATXAX("B","SURVEILLANCE PHYSICAL EXAM",0))

               DO ^BJPC2UD

 +5       ;   SURVEILLANCE PNEUMOCOCCAL RISK

           IF '$ORDER(^ATXAX("B","SURVEILLANCE PNEUMOCOCCAL RISK",0))

               DO ^BJPC2UE

 +6       ;   SURVEILLANCE SIGMOIDOSCOPY

           IF '$ORDER(^ATXAX("B","SURVEILLANCE SIGMOIDOSCOPY",0))

               DO ^BJPC2UF

 +7       ;   SURVEILLANCE TUBERCULOSIS

           IF '$ORDER(^ATXAX("B","SURVEILLANCE TUBERCULOSIS",0))

               DO ^BJPC2UG

 +8       ;   BGP ASTHMA DXS

           IF '$ORDER(^ATXAX("B","BGP ASTHMA DXS",0))

               DO ^BJPC2UH

 +9       ;   APCH ASTHMA EXACERBATION DXS

           IF '$ORDER(^ATXAX("B","APCH ASTHMA EXACERBATION DXS",0))

               DO ^BJPC2UI

 +10      ;   BAT ASTHMA CONTROLLER NDC

           DO ^BJPC2UJ

 +11      ;   BAT ASTHMA INHLD STEROIDS NDC

           DO ^BJPC2UK

 +12      ;   BAT ASTHMA LEUKOTRIENE NDC

           DO ^BJPC2UL

 +13      ;   BAT ASTHMA SHRT ACT INHLR NDC

           DO ^BJPC2UM

 +14      ;   BAT ASTHMA SHRT ACT RELV NDC

           DO ^BJPC2UN

 +15       QUIT