BJPC2X.m

BJPC2X ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON JUN 23, 2008 ;

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

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 I '$O(^ATXAX("B","APCD DIABETIC RETINOPATHY DXS",0)) D ^BJPC2XA ;   APCD DIABETIC RETINOPATHY DXS

 I '$O(^ATXAX("B","APCH DIABETIC EYE EXAM CPTS",0)) D ^BJPC2XB ;   APCH DIABETIC EYE EXAM CPTS

 I '$O(^ATXAX("B","APCH GENERAL EXAM CPTS",0)) D ^BJPC2XC ;   APCH GENERAL EXAM CPTS

 I '$O(^ATXAX("B","APCH HS MAJOR PROCEDURE CPTS",0)) D ^BJPC2XD ;   APCH HS MAJOR PROCEDURE CPTS

 I '$O(^ATXAX("B","APCH HS MINOR PROCEDURE CPTS",0)) D ^BJPC2XE ;   APCH HS MINOR PROCEDURE CPTS

 I '$O(^ATXAX("B","APCH PNEUMOVAX REVAX",0)) D ^BJPC2XF ;   APCH PNEUMOVAX REVAX

 I '$O(^ATXAX("B","APCH TD CPTS",0)) D ^BJPC2XG ;   APCH TD CPTS

 I '$O(^ATXAX("B","APCL DIABETES REG COMPLICATION",0)) D ^BJPC2XH ;   APCL DIABETES REG COMPLICATION

 I '$O(^ATXAX("B","APCL DIABETES REG NEW CASE",0)) D ^BJPC2XI ;   APCL DIABETES REG NEW CASE

 I '$O(^ATXAX("B","APCL INJ AIR TRANSPORT",0)) D ^BJPC2XJ ;   APCL INJ AIR TRANSPORT

 I '$O(^ATXAX("B","APCL INJ ANIMAL RELATED",0)) D ^BJPC2XK ;   APCL INJ ANIMAL RELATED

 I '$O(^ATXAX("B","APCL INJ ASSAULTS",0)) D ^BJPC2XL ;   APCL INJ ASSAULTS

 I '$O(^ATXAX("B","APCL INJ BATTERED CHILD",0)) D ^BJPC2XM ;   APCL INJ BATTERED CHILD

 I '$O(^ATXAX("B","APCL INJ CUT",0)) D ^BJPC2XN ;   APCL INJ CUT

 I '$O(^ATXAX("B","APCL INJ DROWNING",0)) D ^BJPC2XO ;   APCL INJ DROWNING

 I '$O(^ATXAX("B","APCL INJ ENVIRONMENTAL FACTORS",0)) D ^BJPC2XP ;   APCL INJ ENVIRONMENTAL FACTORS

 I '$O(^ATXAX("B","APCL INJ FALLS",0)) D ^BJPC2XQ ;   APCL INJ FALLS

 I '$O(^ATXAX("B","APCL INJ FIRE",0)) D ^BJPC2XR ;   APCL INJ FIRE

 I '$O(^ATXAX("B","APCL INJ FIREARMS",0)) D ^BJPC2XS ;   APCL INJ FIREARMS

 I '$O(^ATXAX("B","APCL INJ MOTOR",0)) D ^BJPC2XT ;   APCL INJ MOTOR

 I '$O(^ATXAX("B","APCL INJ OTHER CAUSES",0)) D ^BJPC2XU ;   APCL INJ OTHER CAUSES

 I '$O(^ATXAX("B","APCL INJ POISONING",0)) D ^BJPC2XV ;   APCL INJ POISONING

 I '$O(^ATXAX("B","APCL INJ SPORTS",0)) D ^BJPC2XW ;   APCL INJ SPORTS

 I '$O(^ATXAX("B","APCL INJ STINGS VENOMS",0)) D ^BJPC2XX ;   APCL INJ STINGS VENOMS

 I '$O(^ATXAX("B","APCL INJ SUICIDE",0)) D ^BJPC2XY ;   APCL INJ SUICIDE

 I '$O(^ATXAX("B","APCL INJ UNDETERMINED",0)) D ^BJPC2XZ ;   APCL INJ UNDETERMINED

 Q

BJPC2X    ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON JUN 23, 2008 ;

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

 +2       ;

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

 +4       ;

START     ;

 +1       ;   APCD DIABETIC RETINOPATHY DXS

           IF '$ORDER(^ATXAX("B","APCD DIABETIC RETINOPATHY DXS",0))

               DO ^BJPC2XA

 +2       ;   APCH DIABETIC EYE EXAM CPTS

           IF '$ORDER(^ATXAX("B","APCH DIABETIC EYE EXAM CPTS",0))

               DO ^BJPC2XB

 +3       ;   APCH GENERAL EXAM CPTS

           IF '$ORDER(^ATXAX("B","APCH GENERAL EXAM CPTS",0))

               DO ^BJPC2XC

 +4       ;   APCH HS MAJOR PROCEDURE CPTS

           IF '$ORDER(^ATXAX("B","APCH HS MAJOR PROCEDURE CPTS",0))

               DO ^BJPC2XD

 +5       ;   APCH HS MINOR PROCEDURE CPTS

           IF '$ORDER(^ATXAX("B","APCH HS MINOR PROCEDURE CPTS",0))

               DO ^BJPC2XE

 +6       ;   APCH PNEUMOVAX REVAX

           IF '$ORDER(^ATXAX("B","APCH PNEUMOVAX REVAX",0))

               DO ^BJPC2XF

 +7       ;   APCH TD CPTS

           IF '$ORDER(^ATXAX("B","APCH TD CPTS",0))

               DO ^BJPC2XG

 +8       ;   APCL DIABETES REG COMPLICATION

           IF '$ORDER(^ATXAX("B","APCL DIABETES REG COMPLICATION",0))

               DO ^BJPC2XH

 +9       ;   APCL DIABETES REG NEW CASE

           IF '$ORDER(^ATXAX("B","APCL DIABETES REG NEW CASE",0))

               DO ^BJPC2XI

 +10      ;   APCL INJ AIR TRANSPORT

           IF '$ORDER(^ATXAX("B","APCL INJ AIR TRANSPORT",0))

               DO ^BJPC2XJ

 +11      ;   APCL INJ ANIMAL RELATED

           IF '$ORDER(^ATXAX("B","APCL INJ ANIMAL RELATED",0))

               DO ^BJPC2XK

 +12      ;   APCL INJ ASSAULTS

           IF '$ORDER(^ATXAX("B","APCL INJ ASSAULTS",0))

               DO ^BJPC2XL

 +13      ;   APCL INJ BATTERED CHILD

           IF '$ORDER(^ATXAX("B","APCL INJ BATTERED CHILD",0))

               DO ^BJPC2XM

 +14      ;   APCL INJ CUT

           IF '$ORDER(^ATXAX("B","APCL INJ CUT",0))

               DO ^BJPC2XN

 +15      ;   APCL INJ DROWNING

           IF '$ORDER(^ATXAX("B","APCL INJ DROWNING",0))

               DO ^BJPC2XO

 +16      ;   APCL INJ ENVIRONMENTAL FACTORS

           IF '$ORDER(^ATXAX("B","APCL INJ ENVIRONMENTAL FACTORS",0))

               DO ^BJPC2XP

 +17      ;   APCL INJ FALLS

           IF '$ORDER(^ATXAX("B","APCL INJ FALLS",0))

               DO ^BJPC2XQ

 +18      ;   APCL INJ FIRE

           IF '$ORDER(^ATXAX("B","APCL INJ FIRE",0))

               DO ^BJPC2XR

 +19      ;   APCL INJ FIREARMS

           IF '$ORDER(^ATXAX("B","APCL INJ FIREARMS",0))

               DO ^BJPC2XS

 +20      ;   APCL INJ MOTOR

           IF '$ORDER(^ATXAX("B","APCL INJ MOTOR",0))

               DO ^BJPC2XT

 +21      ;   APCL INJ OTHER CAUSES

           IF '$ORDER(^ATXAX("B","APCL INJ OTHER CAUSES",0))

               DO ^BJPC2XU

 +22      ;   APCL INJ POISONING

           IF '$ORDER(^ATXAX("B","APCL INJ POISONING",0))

               DO ^BJPC2XV

 +23      ;   APCL INJ SPORTS

           IF '$ORDER(^ATXAX("B","APCL INJ SPORTS",0))

               DO ^BJPC2XW

 +24      ;   APCL INJ STINGS VENOMS

           IF '$ORDER(^ATXAX("B","APCL INJ STINGS VENOMS",0))

               DO ^BJPC2XX

 +25      ;   APCL INJ SUICIDE

           IF '$ORDER(^ATXAX("B","APCL INJ SUICIDE",0))

               DO ^BJPC2XY

 +26      ;   APCL INJ UNDETERMINED

           IF '$ORDER(^ATXAX("B","APCL INJ UNDETERMINED",0))

               DO ^BJPC2XZ

 +27       QUIT