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

BGP47W4.m

Go to the documentation of this file.
BGP47W4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"493,00178-0101-02 ",.01)
 ;;00178-0101-02
 ;;9002226.02101,"493,00178-0101-02 ",.02)
 ;;00178-0101-02
 ;;9002226.02101,"493,00223-7605-10 ",.01)
 ;;00223-7605-10
 ;;9002226.02101,"493,00223-7605-10 ",.02)
 ;;00223-7605-10
 ;;9002226.02101,"493,00223-7606-10 ",.01)
 ;;00223-7606-10
 ;;9002226.02101,"493,00223-7606-10 ",.02)
 ;;00223-7606-10
 ;;9002226.02101,"493,00223-7607-10 ",.01)
 ;;00223-7607-10
 ;;9002226.02101,"493,00223-7607-10 ",.02)
 ;;00223-7607-10
 ;;9002226.02101,"493,00245-0008-35 ",.01)
 ;;00245-0008-35
 ;;9002226.02101,"493,00245-0008-35 ",.02)
 ;;00245-0008-35
 ;;9002226.02101,"493,00245-0880-30 ",.01)
 ;;00245-0880-30
 ;;9002226.02101,"493,00245-0880-30 ",.02)
 ;;00245-0880-30
 ;;9002226.02101,"493,00245-0880-89 ",.01)
 ;;00245-0880-89
 ;;9002226.02101,"493,00245-0880-89 ",.02)
 ;;00245-0880-89
 ;;9002226.02101,"493,00245-0881-30 ",.01)
 ;;00245-0881-30
 ;;9002226.02101,"493,00245-0881-30 ",.02)
 ;;00245-0881-30
 ;;9002226.02101,"493,00245-0881-89 ",.01)
 ;;00245-0881-89
 ;;9002226.02101,"493,00245-0881-89 ",.02)
 ;;00245-0881-89
 ;;9002226.02101,"493,00245-0882-30 ",.01)
 ;;00245-0882-30
 ;;9002226.02101,"493,00245-0882-30 ",.02)
 ;;00245-0882-30
 ;;9002226.02101,"493,00245-0882-89 ",.01)
 ;;00245-0882-89
 ;;9002226.02101,"493,00245-0882-89 ",.02)
 ;;00245-0882-89
 ;;9002226.02101,"493,00247-0242-30 ",.01)
 ;;00247-0242-30
 ;;9002226.02101,"493,00247-0242-30 ",.02)
 ;;00247-0242-30
 ;;9002226.02101,"493,00247-0243-21 ",.01)
 ;;00247-0243-21
 ;;9002226.02101,"493,00247-0243-21 ",.02)
 ;;00247-0243-21
 ;;9002226.02101,"493,00247-0243-30 ",.01)
 ;;00247-0243-30
 ;;9002226.02101,"493,00247-0243-30 ",.02)
 ;;00247-0243-30
 ;;9002226.02101,"493,00247-0249-00 ",.01)
 ;;00247-0249-00
 ;;9002226.02101,"493,00247-0249-00 ",.02)
 ;;00247-0249-00
 ;;9002226.02101,"493,00247-0249-15 ",.01)
 ;;00247-0249-15
 ;;9002226.02101,"493,00247-0249-15 ",.02)
 ;;00247-0249-15
 ;;9002226.02101,"493,00247-0249-30 ",.01)
 ;;00247-0249-30
 ;;9002226.02101,"493,00247-0249-30 ",.02)
 ;;00247-0249-30
 ;;9002226.02101,"493,00247-0249-60 ",.01)
 ;;00247-0249-60
 ;;9002226.02101,"493,00247-0249-60 ",.02)
 ;;00247-0249-60
 ;;9002226.02101,"493,00247-0249-90 ",.01)
 ;;00247-0249-90
 ;;9002226.02101,"493,00247-0249-90 ",.02)
 ;;00247-0249-90
 ;;9002226.02101,"493,00247-0250-00 ",.01)
 ;;00247-0250-00
 ;;9002226.02101,"493,00247-0250-00 ",.02)
 ;;00247-0250-00
 ;;9002226.02101,"493,00247-0250-28 ",.01)
 ;;00247-0250-28
 ;;9002226.02101,"493,00247-0250-28 ",.02)
 ;;00247-0250-28
 ;;9002226.02101,"493,00247-0250-30 ",.01)
 ;;00247-0250-30
 ;;9002226.02101,"493,00247-0250-30 ",.02)
 ;;00247-0250-30
 ;;9002226.02101,"493,00247-0251-00 ",.01)
 ;;00247-0251-00
 ;;9002226.02101,"493,00247-0251-00 ",.02)
 ;;00247-0251-00
 ;;9002226.02101,"493,00247-0251-01 ",.01)
 ;;00247-0251-01
 ;;9002226.02101,"493,00247-0251-01 ",.02)
 ;;00247-0251-01
 ;;9002226.02101,"493,00247-0251-30 ",.01)
 ;;00247-0251-30
 ;;9002226.02101,"493,00247-0251-30 ",.02)
 ;;00247-0251-30
 ;;9002226.02101,"493,00247-0251-60 ",.01)
 ;;00247-0251-60
 ;;9002226.02101,"493,00247-0251-60 ",.02)
 ;;00247-0251-60
 ;;9002226.02101,"493,00247-0251-90 ",.01)
 ;;00247-0251-90
 ;;9002226.02101,"493,00247-0251-90 ",.02)
 ;;00247-0251-90
 ;;9002226.02101,"493,00247-0975-05 ",.01)
 ;;00247-0975-05
 ;;9002226.02101,"493,00247-0975-05 ",.02)
 ;;00247-0975-05
 ;;9002226.02101,"493,00247-0975-10 ",.01)
 ;;00247-0975-10
 ;;9002226.02101,"493,00247-0975-10 ",.02)
 ;;00247-0975-10
 ;;9002226.02101,"493,00247-1226-30 ",.01)
 ;;00247-1226-30
 ;;9002226.02101,"493,00247-1226-30 ",.02)
 ;;00247-1226-30
 ;;9002226.02101,"493,00247-1702-01 ",.01)
 ;;00247-1702-01
 ;;9002226.02101,"493,00247-1702-01 ",.02)
 ;;00247-1702-01
 ;;9002226.02101,"493,00247-1702-28 ",.01)
 ;;00247-1702-28
 ;;9002226.02101,"493,00247-1702-28 ",.02)
 ;;00247-1702-28
 ;;9002226.02101,"493,00247-1703-28 ",.01)
 ;;00247-1703-28
 ;;9002226.02101,"493,00247-1703-28 ",.02)
 ;;00247-1703-28
 ;;9002226.02101,"493,00247-1960-15 ",.01)
 ;;00247-1960-15
 ;;9002226.02101,"493,00247-1960-15 ",.02)
 ;;00247-1960-15
 ;;9002226.02101,"493,00247-1960-30 ",.01)
 ;;00247-1960-30
 ;;9002226.02101,"493,00247-1960-30 ",.02)
 ;;00247-1960-30
 ;;9002226.02101,"493,00247-2156-30 ",.01)
 ;;00247-2156-30
 ;;9002226.02101,"493,00247-2156-30 ",.02)
 ;;00247-2156-30
 ;;9002226.02101,"493,00247-2281-05 ",.01)
 ;;00247-2281-05
 ;;9002226.02101,"493,00247-2281-05 ",.02)
 ;;00247-2281-05
 ;;9002226.02101,"493,00339-5981-12 ",.01)
 ;;00339-5981-12
 ;;9002226.02101,"493,00339-5981-12 ",.02)
 ;;00339-5981-12
 ;;9002226.02101,"493,00339-5983-12 ",.01)
 ;;00339-5983-12
 ;;9002226.02101,"493,00339-5983-12 ",.02)
 ;;00339-5983-12
 ;;9002226.02101,"493,00339-5985-12 ",.01)
 ;;00339-5985-12
 ;;9002226.02101,"493,00339-5985-12 ",.02)
 ;;00339-5985-12
 ;;9002226.02101,"493,00339-6073-12 ",.01)
 ;;00339-6073-12
 ;;9002226.02101,"493,00339-6073-12 ",.02)
 ;;00339-6073-12
 ;;9002226.02101,"493,00339-6074-12 ",.01)
 ;;00339-6074-12
 ;;9002226.02101,"493,00339-6074-12 ",.02)
 ;;00339-6074-12
 ;;9002226.02101,"493,00339-6075-12 ",.01)
 ;;00339-6075-12
 ;;9002226.02101,"493,00339-6075-12 ",.02)
 ;;00339-6075-12
 ;;9002226.02101,"493,00378-1452-01 ",.01)
 ;;00378-1452-01
 ;;9002226.02101,"493,00378-1452-01 ",.02)
 ;;00378-1452-01
 ;;9002226.02101,"493,00378-1452-05 ",.01)
 ;;00378-1452-05
 ;;9002226.02101,"493,00378-1452-05 ",.02)
 ;;00378-1452-05
 ;;9002226.02101,"493,00378-1454-01 ",.01)
 ;;00378-1454-01
 ;;9002226.02101,"493,00378-1454-01 ",.02)
 ;;00378-1454-01
 ;;9002226.02101,"493,00378-1454-05 ",.01)
 ;;00378-1454-05
 ;;9002226.02101,"493,00378-1454-05 ",.02)
 ;;00378-1454-05
 ;;9002226.02101,"493,00378-1458-01 ",.01)
 ;;00378-1458-01
 ;;9002226.02101,"493,00378-1458-01 ",.02)
 ;;00378-1458-01
 ;;9002226.02101,"493,00378-1458-05 ",.01)
 ;;00378-1458-05
 ;;9002226.02101,"493,00378-1458-05 ",.02)
 ;;00378-1458-05
 ;;9002226.02101,"493,00378-1458-77 ",.01)
 ;;00378-1458-77
 ;;9002226.02101,"493,00378-1458-77 ",.02)
 ;;00378-1458-77
 ;;9002226.02101,"493,00378-3349-99 ",.01)
 ;;00378-3349-99
 ;;9002226.02101,"493,00378-3349-99 ",.02)
 ;;00378-3349-99
 ;;9002226.02101,"493,00378-3350-99 ",.01)
 ;;00378-3350-99
 ;;9002226.02101,"493,00378-3350-99 ",.02)
 ;;00378-3350-99
 ;;9002226.02101,"493,00378-3351-99 ",.01)
 ;;00378-3351-99
 ;;9002226.02101,"493,00378-3351-99 ",.02)
 ;;00378-3351-99
 ;;9002226.02101,"493,00378-3352-99 ",.01)
 ;;00378-3352-99
 ;;9002226.02101,"493,00378-3352-99 ",.02)
 ;;00378-3352-99
 ;;9002226.02101,"493,00378-3360-99 ",.01)
 ;;00378-3360-99
 ;;9002226.02101,"493,00378-3360-99 ",.02)
 ;;00378-3360-99
 ;;9002226.02101,"493,00378-3361-99 ",.01)
 ;;00378-3361-99
 ;;9002226.02101,"493,00378-3361-99 ",.02)
 ;;00378-3361-99
 ;;9002226.02101,"493,00378-3566-01 ",.01)
 ;;00378-3566-01
 ;;9002226.02101,"493,00378-3566-01 ",.02)
 ;;00378-3566-01
 ;;9002226.02101,"493,00378-3567-01 ",.01)
 ;;00378-3567-01
 ;;9002226.02101,"493,00378-3567-01 ",.02)
 ;;00378-3567-01
 ;;9002226.02101,"493,00378-3568-22 ",.01)
 ;;00378-3568-22
 ;;9002226.02101,"493,00378-3568-22 ",.02)
 ;;00378-3568-22
 ;;9002226.02101,"493,00378-3568-93 ",.01)
 ;;00378-3568-93
 ;;9002226.02101,"493,00378-3568-93 ",.02)
 ;;00378-3568-93
 ;;9002226.02101,"493,00378-3568-99 ",.01)
 ;;00378-3568-99
 ;;9002226.02101,"493,00378-3568-99 ",.02)
 ;;00378-3568-99
 ;;9002226.02101,"493,00378-3569-22 ",.01)
 ;;00378-3569-22
 ;;9002226.02101,"493,00378-3569-22 ",.02)
 ;;00378-3569-22
 ;;9002226.02101,"493,00378-3569-93 ",.01)
 ;;00378-3569-93
 ;;9002226.02101,"493,00378-3569-93 ",.02)
 ;;00378-3569-93
 ;;9002226.02101,"493,00378-3569-99 ",.01)
 ;;00378-3569-99
 ;;9002226.02101,"493,00378-3569-99 ",.02)
 ;;00378-3569-99
 ;;9002226.02101,"493,00378-4551-01 ",.01)
 ;;00378-4551-01
 ;;9002226.02101,"493,00378-4551-01 ",.02)
 ;;00378-4551-01
 ;;9002226.02101,"493,00378-4553-01 ",.01)
 ;;00378-4553-01
 ;;9002226.02101,"493,00378-4553-01 ",.02)
 ;;00378-4553-01
 ;;9002226.02101,"493,00378-5215-53 ",.01)
 ;;00378-5215-53
 ;;9002226.02101,"493,00378-5215-53 ",.02)
 ;;00378-5215-53
 ;;9002226.02101,"493,00421-0158-01 ",.01)
 ;;00421-0158-01
 ;;9002226.02101,"493,00421-0158-01 ",.02)
 ;;00421-0158-01
 ;;9002226.02101,"493,00421-0748-01 ",.01)
 ;;00421-0748-01
 ;;9002226.02101,"493,00421-0748-01 ",.02)
 ;;00421-0748-01
 ;;9002226.02101,"493,00421-0768-01 ",.01)
 ;;00421-0768-01
 ;;9002226.02101,"493,00421-0768-01 ",.02)
 ;;00421-0768-01
 ;;9002226.02101,"493,00421-1259-01 ",.01)
 ;;00421-1259-01
 ;;9002226.02101,"493,00421-1259-01 ",.02)
 ;;00421-1259-01
 ;;9002226.02101,"493,00430-0023-24 ",.01)
 ;;00430-0023-24
 ;;9002226.02101,"493,00430-0023-24 ",.02)
 ;;00430-0023-24
 ;;9002226.02101,"493,00430-0024-24 ",.01)
 ;;00430-0024-24
 ;;9002226.02101,"493,00430-0024-24 ",.02)
 ;;00430-0024-24
 ;;9002226.02101,"493,00430-0145-14 ",.01)
 ;;00430-0145-14
 ;;9002226.02101,"493,00430-0145-14 ",.02)
 ;;00430-0145-14
 ;;9002226.02101,"493,00430-0145-23 ",.01)
 ;;00430-0145-23
 ;;9002226.02101,"493,00430-0145-23 ",.02)
 ;;00430-0145-23
 ;;9002226.02101,"493,00430-0389-24 ",.01)
 ;;00430-0389-24
 ;;9002226.02101,"493,00430-0389-24 ",.02)
 ;;00430-0389-24
 ;;9002226.02101,"493,00430-0390-24 ",.01)
 ;;00430-0390-24
 ;;9002226.02101,"493,00430-0390-24 ",.02)
 ;;00430-0390-24
 ;;9002226.02101,"493,00430-0391-24 ",.01)
 ;;00430-0391-24
 ;;9002226.02101,"493,00430-0391-24 ",.02)
 ;;00430-0391-24
 ;;9002226.02101,"493,00430-0470-15 ",.01)
 ;;00430-0470-15
 ;;9002226.02101,"493,00430-0470-15 ",.02)
 ;;00430-0470-15
 ;;9002226.02101,"493,00430-0471-15 ",.01)
 ;;00430-0471-15
 ;;9002226.02101,"493,00430-0471-15 ",.02)
 ;;00430-0471-15
 ;;9002226.02101,"493,00430-0472-03 ",.01)
 ;;00430-0472-03
 ;;9002226.02101,"493,00430-0472-03 ",.02)
 ;;00430-0472-03
 ;;9002226.02101,"493,00430-0472-07 ",.01)
 ;;00430-0472-07
 ;;9002226.02101,"493,00430-0472-07 ",.02)
 ;;00430-0472-07
 ;;9002226.02101,"493,00430-0478-01 ",.01)
 ;;00430-0478-01
 ;;9002226.02101,"493,00430-0478-01 ",.02)
 ;;00430-0478-01
 ;;9002226.02101,"493,00430-0478-02 ",.01)
 ;;00430-0478-02
 ;;9002226.02101,"493,00430-0478-02 ",.02)
 ;;00430-0478-02
 ;;9002226.02101,"493,00430-0544-14 ",.01)
 ;;00430-0544-14
 ;;9002226.02101,"493,00430-0544-14 ",.02)
 ;;00430-0544-14
 ;;9002226.02101,"493,00430-0544-23 ",.01)
 ;;00430-0544-23
 ;;9002226.02101,"493,00430-0544-23 ",.02)
 ;;00430-0544-23
 ;;9002226.02101,"493,00430-0720-24 ",.01)
 ;;00430-0720-24
 ;;9002226.02101,"493,00430-0720-24 ",.02)
 ;;00430-0720-24
 ;;9002226.02101,"493,00430-0721-24 ",.01)
 ;;00430-0721-24
 ;;9002226.02101,"493,00430-0721-24 ",.02)
 ;;00430-0721-24
 ;;9002226.02101,"493,00430-0722-24 ",.01)
 ;;00430-0722-24
 ;;9002226.02101,"493,00430-0722-24 ",.02)
 ;;00430-0722-24
 ;;9002226.02101,"493,00430-0979-03 ",.01)
 ;;00430-0979-03
 ;;9002226.02101,"493,00430-0979-03 ",.02)
 ;;00430-0979-03
 ;;9002226.02101,"493,00430-6201-40 ",.01)
 ;;00430-6201-40
 ;;9002226.02101,"493,00430-6201-40 ",.02)
 ;;00430-6201-40
 ;;9002226.02101,"493,00430-6202-40 ",.01)
 ;;00430-6202-40
 ;;9002226.02101,"493,00430-6202-40 ",.02)
 ;;00430-6202-40
 ;;9002226.02101,"493,00440-8171-90 ",.01)
 ;;00440-8171-90
 ;;9002226.02101,"493,00440-8171-90 ",.02)
 ;;00440-8171-90
 ;;9002226.02101,"493,00456-0784-10 ",.01)
 ;;00456-0784-10
 ;;9002226.02101,"493,00456-0784-10 ",.02)
 ;;00456-0784-10
 ;;9002226.02101,"493,00456-1021-10 ",.01)
 ;;00456-1021-10
 ;;9002226.02101,"493,00456-1021-10 ",.02)
 ;;00456-1021-10
 ;;9002226.02101,"493,00482-4900-02 ",.01)
 ;;00482-4900-02
 ;;9002226.02101,"493,00482-4900-02 ",.02)
 ;;00482-4900-02
 ;;9002226.02101,"493,00555-0719-51 ",.01)
 ;;00555-0719-51
 ;;9002226.02101,"493,00555-0719-51 ",.02)
 ;;00555-0719-51
 ;;9002226.02101,"493,00555-0719-54 ",.01)
 ;;00555-0719-54
 ;;9002226.02101,"493,00555-0719-54 ",.02)
 ;;00555-0719-54
 ;;9002226.02101,"493,00555-0720-51 ",.01)
 ;;00555-0720-51
 ;;9002226.02101,"493,00555-0720-51 ",.02)
 ;;00555-0720-51
 ;;9002226.02101,"493,00555-0720-54 ",.01)
 ;;00555-0720-54
 ;;9002226.02101,"493,00555-0720-54 ",.02)
 ;;00555-0720-54
 ;;9002226.02101,"493,00555-0727-02 ",.01)
 ;;00555-0727-02
 ;;9002226.02101,"493,00555-0727-02 ",.02)
 ;;00555-0727-02
 ;;9002226.02101,"493,00555-0728-02 ",.01)
 ;;00555-0728-02
 ;;9002226.02101,"493,00555-0728-02 ",.02)
 ;;00555-0728-02
 ;;9002226.02101,"493,00555-0729-02 ",.01)
 ;;00555-0729-02
 ;;9002226.02101,"493,00555-0729-02 ",.02)
 ;;00555-0729-02
 ;;9002226.02101,"493,00555-0886-02 ",.01)
 ;;00555-0886-02
 ;;9002226.02101,"493,00555-0886-02 ",.02)
 ;;00555-0886-02
 ;;9002226.02101,"493,00555-0886-04 ",.01)
 ;;00555-0886-04
 ;;9002226.02101,"493,00555-0886-04 ",.02)
 ;;00555-0886-04
 ;;9002226.02101,"493,00555-0887-02 ",.01)
 ;;00555-0887-02
 ;;9002226.02101,"493,00555-0887-02 ",.02)
 ;;00555-0887-02
 ;;9002226.02101,"493,00555-0887-04 ",.01)
 ;;00555-0887-04
 ;;9002226.02101,"493,00555-0887-04 ",.02)
 ;;00555-0887-04
 ;;9002226.02101,"493,00555-0899-02 ",.01)
 ;;00555-0899-02
 ;;9002226.02101,"493,00555-0899-02 ",.02)
 ;;00555-0899-02
 ;;9002226.02101,"493,00574-0870-05 ",.01)
 ;;00574-0870-05
 ;;9002226.02101,"493,00574-0870-05 ",.02)
 ;;00574-0870-05
 ;;9002226.02101,"493,00574-0872-05 ",.01)
 ;;00574-0872-05
 ;;9002226.02101,"493,00574-0872-05 ",.02)
 ;;00574-0872-05
 ;;9002226.02101,"493,00591-0031-04 ",.01)
 ;;00591-0031-04
 ;;9002226.02101,"493,00591-0031-04 ",.02)
 ;;00591-0031-04