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

BGP13V4.m

Go to the documentation of this file.
BGP13V4 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+1
 F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X=""  S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;9002226.02101,"368,00078-0435-61 ",.02)
 ;;00078-0435-61
 ;;9002226.02101,"368,00078-0480-42 ",.01)
 ;;00078-0480-42
 ;;9002226.02101,"368,00078-0480-42 ",.02)
 ;;00078-0480-42
 ;;9002226.02101,"368,00078-0480-62 ",.01)
 ;;00078-0480-62
 ;;9002226.02101,"368,00078-0480-62 ",.02)
 ;;00078-0480-62
 ;;9002226.02101,"368,00078-0481-42 ",.01)
 ;;00078-0481-42
 ;;9002226.02101,"368,00078-0481-42 ",.02)
 ;;00078-0481-42
 ;;9002226.02101,"368,00078-0481-62 ",.01)
 ;;00078-0481-62
 ;;9002226.02101,"368,00078-0481-62 ",.02)
 ;;00078-0481-62
 ;;9002226.02101,"368,00083-2310-01 ",.01)
 ;;00083-2310-01
 ;;9002226.02101,"368,00083-2310-01 ",.02)
 ;;00083-2310-01
 ;;9002226.02101,"368,00083-2310-08 ",.01)
 ;;00083-2310-08
 ;;9002226.02101,"368,00083-2310-08 ",.02)
 ;;00083-2310-08
 ;;9002226.02101,"368,00083-2310-62 ",.01)
 ;;00083-2310-62
 ;;9002226.02101,"368,00083-2310-62 ",.02)
 ;;00083-2310-62
 ;;9002226.02101,"368,00083-2320-01 ",.01)
 ;;00083-2320-01
 ;;9002226.02101,"368,00083-2320-01 ",.02)
 ;;00083-2320-01
 ;;9002226.02101,"368,00083-2320-08 ",.01)
 ;;00083-2320-08
 ;;9002226.02101,"368,00083-2320-08 ",.02)
 ;;00083-2320-08
 ;;9002226.02101,"368,00083-2320-62 ",.01)
 ;;00083-2320-62
 ;;9002226.02101,"368,00083-2320-62 ",.02)
 ;;00083-2320-62
 ;;9002226.02101,"368,00083-2325-01 ",.01)
 ;;00083-2325-01
 ;;9002226.02101,"368,00083-2325-01 ",.02)
 ;;00083-2325-01
 ;;9002226.02101,"368,00083-2325-08 ",.01)
 ;;00083-2325-08
 ;;9002226.02101,"368,00083-2325-08 ",.02)
 ;;00083-2325-08
 ;;9002226.02101,"368,00083-2326-01 ",.01)
 ;;00083-2326-01
 ;;9002226.02101,"368,00083-2326-01 ",.02)
 ;;00083-2326-01
 ;;9002226.02101,"368,00083-2326-08 ",.01)
 ;;00083-2326-08
 ;;9002226.02101,"368,00083-2326-08 ",.02)
 ;;00083-2326-08
 ;;9002226.02101,"368,00083-2327-01 ",.01)
 ;;00083-2327-01
 ;;9002226.02101,"368,00083-2327-01 ",.02)
 ;;00083-2327-01
 ;;9002226.02101,"368,00083-2327-08 ",.01)
 ;;00083-2327-08
 ;;9002226.02101,"368,00083-2327-08 ",.02)
 ;;00083-2327-08
 ;;9002226.02101,"368,00083-2328-01 ",.01)
 ;;00083-2328-01
 ;;9002226.02101,"368,00083-2328-01 ",.02)
 ;;00083-2328-01
 ;;9002226.02101,"368,00083-2328-08 ",.01)
 ;;00083-2328-08
 ;;9002226.02101,"368,00083-2328-08 ",.02)
 ;;00083-2328-08
 ;;9002226.02101,"368,00087-0021-41 ",.01)
 ;;00087-0021-41
 ;;9002226.02101,"368,00087-0021-41 ",.02)
 ;;00087-0021-41
 ;;9002226.02101,"368,00087-0756-01 ",.01)
 ;;00087-0756-01
 ;;9002226.02101,"368,00087-0756-01 ",.02)
 ;;00087-0756-01
 ;;9002226.02101,"368,00087-0756-48 ",.01)
 ;;00087-0756-48
 ;;9002226.02101,"368,00087-0756-48 ",.02)
 ;;00087-0756-48
 ;;9002226.02101,"368,00093-5140-01 ",.01)
 ;;00093-5140-01
 ;;9002226.02101,"368,00093-5140-01 ",.02)
 ;;00093-5140-01
 ;;9002226.02101,"368,00093-5140-56 ",.01)
 ;;00093-5140-56
 ;;9002226.02101,"368,00093-5140-56 ",.02)
 ;;00093-5140-56
 ;;9002226.02101,"368,00093-5141-01 ",.01)
 ;;00093-5141-01
 ;;9002226.02101,"368,00093-5141-01 ",.02)
 ;;00093-5141-01
 ;;9002226.02101,"368,00093-5141-56 ",.01)
 ;;00093-5141-56
 ;;9002226.02101,"368,00093-5141-56 ",.02)
 ;;00093-5141-56
 ;;9002226.02101,"368,00093-5142-56 ",.01)
 ;;00093-5142-56
 ;;9002226.02101,"368,00093-5142-56 ",.02)
 ;;00093-5142-56
 ;;9002226.02101,"368,00093-5171-19 ",.01)
 ;;00093-5171-19
 ;;9002226.02101,"368,00093-5171-19 ",.02)
 ;;00093-5171-19
 ;;9002226.02101,"368,00093-5171-20 ",.01)
 ;;00093-5171-20
 ;;9002226.02101,"368,00093-5171-20 ",.02)
 ;;00093-5171-20
 ;;9002226.02101,"368,00093-5171-44 ",.01)
 ;;00093-5171-44
 ;;9002226.02101,"368,00093-5171-44 ",.02)
 ;;00093-5171-44
 ;;9002226.02101,"368,00093-5172-19 ",.01)
 ;;00093-5172-19
 ;;9002226.02101,"368,00093-5172-19 ",.02)
 ;;00093-5172-19
 ;;9002226.02101,"368,00093-5172-20 ",.01)
 ;;00093-5172-20
 ;;9002226.02101,"368,00093-5172-20 ",.02)
 ;;00093-5172-20
 ;;9002226.02101,"368,00093-5172-44 ",.01)
 ;;00093-5172-44
 ;;9002226.02101,"368,00093-5172-44 ",.02)
 ;;00093-5172-44
 ;;9002226.02101,"368,00093-5455-28 ",.01)
 ;;00093-5455-28
 ;;9002226.02101,"368,00093-5455-28 ",.02)
 ;;00093-5455-28
 ;;9002226.02101,"368,00093-5455-42 ",.01)
 ;;00093-5455-42
 ;;9002226.02101,"368,00093-5455-42 ",.02)
 ;;00093-5455-42
 ;;9002226.02101,"368,00149-0470-01 ",.01)
 ;;00149-0470-01
 ;;9002226.02101,"368,00149-0470-01 ",.02)
 ;;00149-0470-01
 ;;9002226.02101,"368,00149-0470-03 ",.01)
 ;;00149-0470-03
 ;;9002226.02101,"368,00149-0470-03 ",.02)
 ;;00149-0470-03
 ;;9002226.02101,"368,00149-0471-01 ",.01)
 ;;00149-0471-01
 ;;9002226.02101,"368,00149-0471-01 ",.02)
 ;;00149-0471-01
 ;;9002226.02101,"368,00149-0471-03 ",.01)
 ;;00149-0471-03
 ;;9002226.02101,"368,00149-0471-03 ",.02)
 ;;00149-0471-03
 ;;9002226.02101,"368,00149-0472-01 ",.01)
 ;;00149-0472-01
 ;;9002226.02101,"368,00149-0472-01 ",.02)
 ;;00149-0472-01
 ;;9002226.02101,"368,00149-0472-04 ",.01)
 ;;00149-0472-04
 ;;9002226.02101,"368,00149-0472-04 ",.02)
 ;;00149-0472-04
 ;;9002226.02101,"368,00149-0475-01 ",.01)
 ;;00149-0475-01
 ;;9002226.02101,"368,00149-0475-01 ",.02)
 ;;00149-0475-01
 ;;9002226.02101,"368,00149-0477-01 ",.01)
 ;;00149-0477-01
 ;;9002226.02101,"368,00149-0477-01 ",.02)
 ;;00149-0477-01
 ;;9002226.02101,"368,00149-0478-01 ",.01)
 ;;00149-0478-01
 ;;9002226.02101,"368,00149-0478-01 ",.02)
 ;;00149-0478-01
 ;;9002226.02101,"368,00149-0478-03 ",.01)
 ;;00149-0478-03
 ;;9002226.02101,"368,00149-0478-03 ",.02)
 ;;00149-0478-03
 ;;9002226.02101,"368,00149-0491-04 ",.01)
 ;;00149-0491-04
 ;;9002226.02101,"368,00149-0491-04 ",.02)
 ;;00149-0491-04
 ;;9002226.02101,"368,00169-5174-01 ",.01)
 ;;00169-5174-01
 ;;9002226.02101,"368,00169-5174-01 ",.02)
 ;;00169-5174-01
 ;;9002226.02101,"368,00169-5174-02 ",.01)
 ;;00169-5174-02
 ;;9002226.02101,"368,00169-5174-02 ",.02)
 ;;00169-5174-02
 ;;9002226.02101,"368,00169-5175-10 ",.01)
 ;;00169-5175-10
 ;;9002226.02101,"368,00169-5175-10 ",.02)
 ;;00169-5175-10
 ;;9002226.02101,"368,00169-5175-11 ",.01)
 ;;00169-5175-11
 ;;9002226.02101,"368,00169-5175-11 ",.02)
 ;;00169-5175-11
 ;;9002226.02101,"368,00182-0662-63 ",.01)
 ;;00182-0662-63
 ;;9002226.02101,"368,00182-0662-63 ",.02)
 ;;00182-0662-63
 ;;9002226.02101,"368,00182-1805-63 ",.01)
 ;;00182-1805-63
 ;;9002226.02101,"368,00182-1805-63 ",.02)
 ;;00182-1805-63
 ;;9002226.02101,"368,00182-1976-01 ",.01)
 ;;00182-1976-01
 ;;9002226.02101,"368,00182-1976-01 ",.02)
 ;;00182-1976-01
 ;;9002226.02101,"368,00182-1977-01 ",.01)
 ;;00182-1977-01
 ;;9002226.02101,"368,00182-1977-01 ",.02)
 ;;00182-1977-01
 ;;9002226.02101,"368,00182-1978-01 ",.01)
 ;;00182-1978-01
 ;;9002226.02101,"368,00182-1978-01 ",.02)
 ;;00182-1978-01
 ;;9002226.02101,"368,00182-2648-01 ",.01)
 ;;00182-2648-01
 ;;9002226.02101,"368,00182-2648-01 ",.02)
 ;;00182-2648-01
 ;;9002226.02101,"368,00182-2649-01 ",.01)
 ;;00182-2649-01
 ;;9002226.02101,"368,00182-2649-01 ",.02)
 ;;00182-2649-01
 ;;9002226.02101,"368,00182-2650-01 ",.01)
 ;;00182-2650-01
 ;;9002226.02101,"368,00182-2650-01 ",.02)
 ;;00182-2650-01
 ;;9002226.02101,"368,00223-7602-10 ",.01)
 ;;00223-7602-10
 ;;9002226.02101,"368,00223-7602-10 ",.02)
 ;;00223-7602-10
 ;;9002226.02101,"368,00223-7605-10 ",.01)
 ;;00223-7605-10
 ;;9002226.02101,"368,00223-7605-10 ",.02)
 ;;00223-7605-10
 ;;9002226.02101,"368,00223-7606-10 ",.01)
 ;;00223-7606-10
 ;;9002226.02101,"368,00223-7606-10 ",.02)
 ;;00223-7606-10
 ;;9002226.02101,"368,00223-7607-10 ",.01)
 ;;00223-7607-10
 ;;9002226.02101,"368,00223-7607-10 ",.02)
 ;;00223-7607-10
 ;;9002226.02101,"368,00245-0008-35 ",.01)
 ;;00245-0008-35
 ;;9002226.02101,"368,00245-0008-35 ",.02)
 ;;00245-0008-35
 ;;9002226.02101,"368,00245-0880-30 ",.01)
 ;;00245-0880-30
 ;;9002226.02101,"368,00245-0880-30 ",.02)
 ;;00245-0880-30
 ;;9002226.02101,"368,00245-0880-89 ",.01)
 ;;00245-0880-89
 ;;9002226.02101,"368,00245-0880-89 ",.02)
 ;;00245-0880-89
 ;;9002226.02101,"368,00245-0881-30 ",.01)
 ;;00245-0881-30
 ;;9002226.02101,"368,00245-0881-30 ",.02)
 ;;00245-0881-30
 ;;9002226.02101,"368,00245-0881-89 ",.01)
 ;;00245-0881-89
 ;;9002226.02101,"368,00245-0881-89 ",.02)
 ;;00245-0881-89
 ;;9002226.02101,"368,00245-0882-30 ",.01)
 ;;00245-0882-30
 ;;9002226.02101,"368,00245-0882-30 ",.02)
 ;;00245-0882-30
 ;;9002226.02101,"368,00245-0882-89 ",.01)
 ;;00245-0882-89
 ;;9002226.02101,"368,00245-0882-89 ",.02)
 ;;00245-0882-89
 ;;9002226.02101,"368,00247-0242-30 ",.01)
 ;;00247-0242-30
 ;;9002226.02101,"368,00247-0242-30 ",.02)
 ;;00247-0242-30
 ;;9002226.02101,"368,00247-0243-21 ",.01)
 ;;00247-0243-21
 ;;9002226.02101,"368,00247-0243-21 ",.02)
 ;;00247-0243-21
 ;;9002226.02101,"368,00247-0243-30 ",.01)
 ;;00247-0243-30
 ;;9002226.02101,"368,00247-0243-30 ",.02)
 ;;00247-0243-30
 ;;9002226.02101,"368,00247-0249-00 ",.01)
 ;;00247-0249-00
 ;;9002226.02101,"368,00247-0249-00 ",.02)
 ;;00247-0249-00
 ;;9002226.02101,"368,00247-0249-15 ",.01)
 ;;00247-0249-15
 ;;9002226.02101,"368,00247-0249-15 ",.02)
 ;;00247-0249-15
 ;;9002226.02101,"368,00247-0249-30 ",.01)
 ;;00247-0249-30
 ;;9002226.02101,"368,00247-0249-30 ",.02)
 ;;00247-0249-30
 ;;9002226.02101,"368,00247-0249-60 ",.01)
 ;;00247-0249-60
 ;;9002226.02101,"368,00247-0249-60 ",.02)
 ;;00247-0249-60
 ;;9002226.02101,"368,00247-0249-90 ",.01)
 ;;00247-0249-90
 ;;9002226.02101,"368,00247-0249-90 ",.02)
 ;;00247-0249-90
 ;;9002226.02101,"368,00247-0250-00 ",.01)
 ;;00247-0250-00
 ;;9002226.02101,"368,00247-0250-00 ",.02)
 ;;00247-0250-00
 ;;9002226.02101,"368,00247-0250-28 ",.01)
 ;;00247-0250-28
 ;;9002226.02101,"368,00247-0250-28 ",.02)
 ;;00247-0250-28
 ;;9002226.02101,"368,00247-0250-30 ",.01)
 ;;00247-0250-30
 ;;9002226.02101,"368,00247-0250-30 ",.02)
 ;;00247-0250-30
 ;;9002226.02101,"368,00247-0251-00 ",.01)
 ;;00247-0251-00
 ;;9002226.02101,"368,00247-0251-00 ",.02)
 ;;00247-0251-00
 ;;9002226.02101,"368,00247-0251-01 ",.01)
 ;;00247-0251-01
 ;;9002226.02101,"368,00247-0251-01 ",.02)
 ;;00247-0251-01
 ;;9002226.02101,"368,00247-0251-30 ",.01)
 ;;00247-0251-30
 ;;9002226.02101,"368,00247-0251-30 ",.02)
 ;;00247-0251-30
 ;;9002226.02101,"368,00247-0251-60 ",.01)
 ;;00247-0251-60
 ;;9002226.02101,"368,00247-0251-60 ",.02)
 ;;00247-0251-60
 ;;9002226.02101,"368,00247-0251-90 ",.01)
 ;;00247-0251-90
 ;;9002226.02101,"368,00247-0251-90 ",.02)
 ;;00247-0251-90
 ;;9002226.02101,"368,00247-0975-05 ",.01)
 ;;00247-0975-05
 ;;9002226.02101,"368,00247-0975-05 ",.02)
 ;;00247-0975-05
 ;;9002226.02101,"368,00247-0975-10 ",.01)
 ;;00247-0975-10
 ;;9002226.02101,"368,00247-0975-10 ",.02)
 ;;00247-0975-10
 ;;9002226.02101,"368,00247-1226-30 ",.01)
 ;;00247-1226-30
 ;;9002226.02101,"368,00247-1226-30 ",.02)
 ;;00247-1226-30
 ;;9002226.02101,"368,00247-1702-01 ",.01)
 ;;00247-1702-01
 ;;9002226.02101,"368,00247-1702-01 ",.02)
 ;;00247-1702-01
 ;;9002226.02101,"368,00247-1702-28 ",.01)
 ;;00247-1702-28
 ;;9002226.02101,"368,00247-1702-28 ",.02)
 ;;00247-1702-28
 ;;9002226.02101,"368,00247-1703-28 ",.01)
 ;;00247-1703-28
 ;;9002226.02101,"368,00247-1703-28 ",.02)
 ;;00247-1703-28
 ;;9002226.02101,"368,00247-1960-15 ",.01)
 ;;00247-1960-15
 ;;9002226.02101,"368,00247-1960-15 ",.02)
 ;;00247-1960-15
 ;;9002226.02101,"368,00247-1960-30 ",.01)
 ;;00247-1960-30
 ;;9002226.02101,"368,00247-1960-30 ",.02)
 ;;00247-1960-30
 ;;9002226.02101,"368,00247-2156-30 ",.01)
 ;;00247-2156-30
 ;;9002226.02101,"368,00247-2156-30 ",.02)
 ;;00247-2156-30
 ;;9002226.02101,"368,00247-2281-05 ",.01)
 ;;00247-2281-05
 ;;9002226.02101,"368,00247-2281-05 ",.02)
 ;;00247-2281-05
 ;;9002226.02101,"368,00339-5981-12 ",.01)
 ;;00339-5981-12
 ;;9002226.02101,"368,00339-5981-12 ",.02)
 ;;00339-5981-12
 ;;9002226.02101,"368,00339-5983-12 ",.01)
 ;;00339-5983-12
 ;;9002226.02101,"368,00339-5983-12 ",.02)
 ;;00339-5983-12
 ;;9002226.02101,"368,00339-5985-12 ",.01)
 ;;00339-5985-12
 ;;9002226.02101,"368,00339-5985-12 ",.02)
 ;;00339-5985-12
 ;;9002226.02101,"368,00339-6073-12 ",.01)
 ;;00339-6073-12
 ;;9002226.02101,"368,00339-6073-12 ",.02)
 ;;00339-6073-12
 ;;9002226.02101,"368,00339-6074-12 ",.01)
 ;;00339-6074-12
 ;;9002226.02101,"368,00339-6074-12 ",.02)
 ;;00339-6074-12
 ;;9002226.02101,"368,00339-6075-12 ",.01)
 ;;00339-6075-12
 ;;9002226.02101,"368,00339-6075-12 ",.02)
 ;;00339-6075-12
 ;;9002226.02101,"368,00364-2601-01 ",.01)
 ;;00364-2601-01
 ;;9002226.02101,"368,00364-2601-01 ",.02)
 ;;00364-2601-01
 ;;9002226.02101,"368,00378-1452-01 ",.01)
 ;;00378-1452-01
 ;;9002226.02101,"368,00378-1452-01 ",.02)
 ;;00378-1452-01
 ;;9002226.02101,"368,00378-1452-05 ",.01)
 ;;00378-1452-05
 ;;9002226.02101,"368,00378-1452-05 ",.02)
 ;;00378-1452-05