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

BGP06A18.m

Go to the documentation of this file.
BGP06A18 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"974,00005-3406-23 ",.01)
 ;;00005-3406-23
 ;;9002226.02101,"974,00005-3406-23 ",.02)
 ;;00005-3406-23
 ;;9002226.02101,"974,00005-3407-23 ",.01)
 ;;00005-3407-23
 ;;9002226.02101,"974,00005-3407-23 ",.02)
 ;;00005-3407-23
 ;;9002226.02101,"974,00005-3768-31 ",.01)
 ;;00005-3768-31
 ;;9002226.02101,"974,00005-3768-31 ",.02)
 ;;00005-3768-31
 ;;9002226.02101,"974,00005-3897-18 ",.01)
 ;;00005-3897-18
 ;;9002226.02101,"974,00005-3897-18 ",.02)
 ;;00005-3897-18
 ;;9002226.02101,"974,00005-3897-23 ",.01)
 ;;00005-3897-23
 ;;9002226.02101,"974,00005-3897-23 ",.02)
 ;;00005-3897-23
 ;;9002226.02101,"974,00005-3897-60 ",.01)
 ;;00005-3897-60
 ;;9002226.02101,"974,00005-3897-60 ",.02)
 ;;00005-3897-60
 ;;9002226.02101,"974,00005-3897-94 ",.01)
 ;;00005-3897-94
 ;;9002226.02101,"974,00005-3897-94 ",.02)
 ;;00005-3897-94
 ;;9002226.02101,"974,00005-3898-40 ",.01)
 ;;00005-3898-40
 ;;9002226.02101,"974,00005-3898-40 ",.02)
 ;;00005-3898-40
 ;;9002226.02101,"974,00005-3898-42 ",.01)
 ;;00005-3898-42
 ;;9002226.02101,"974,00005-3898-42 ",.02)
 ;;00005-3898-42
 ;;9002226.02101,"974,00005-3898-46 ",.01)
 ;;00005-3898-46
 ;;9002226.02101,"974,00005-3898-46 ",.02)
 ;;00005-3898-46
 ;;9002226.02101,"974,00005-3899-23 ",.01)
 ;;00005-3899-23
 ;;9002226.02101,"974,00005-3899-23 ",.02)
 ;;00005-3899-23
 ;;9002226.02101,"974,00005-4875-23 ",.01)
 ;;00005-4875-23
 ;;9002226.02101,"974,00005-4875-23 ",.02)
 ;;00005-4875-23
 ;;9002226.02101,"974,00005-4875-34 ",.01)
 ;;00005-4875-34
 ;;9002226.02101,"974,00005-4875-34 ",.02)
 ;;00005-4875-34
 ;;9002226.02101,"974,00005-4880-23 ",.01)
 ;;00005-4880-23
 ;;9002226.02101,"974,00005-4880-23 ",.02)
 ;;00005-4880-23
 ;;9002226.02101,"974,00005-4880-34 ",.01)
 ;;00005-4880-34
 ;;9002226.02101,"974,00005-4880-34 ",.02)
 ;;00005-4880-34
 ;;9002226.02101,"974,00005-4880-61 ",.01)
 ;;00005-4880-61
 ;;9002226.02101,"974,00005-4880-61 ",.02)
 ;;00005-4880-61
 ;;9002226.02101,"974,00005-4880-65 ",.01)
 ;;00005-4880-65
 ;;9002226.02101,"974,00005-4880-65 ",.02)
 ;;00005-4880-65
 ;;9002226.02101,"974,00005-5313-56 ",.01)
 ;;00005-5313-56
 ;;9002226.02101,"974,00005-5313-56 ",.02)
 ;;00005-5313-56
 ;;9002226.02101,"974,00005-5343-23 ",.01)
 ;;00005-5343-23
 ;;9002226.02101,"974,00005-5343-23 ",.02)
 ;;00005-5343-23
 ;;9002226.02101,"974,00005-5344-18 ",.01)
 ;;00005-5344-18
 ;;9002226.02101,"974,00005-5344-18 ",.02)
 ;;00005-5344-18
 ;;9002226.02101,"974,00007-3130-01 ",.01)
 ;;00007-3130-01
 ;;9002226.02101,"974,00007-3130-01 ",.02)
 ;;00007-3130-01
 ;;9002226.02101,"974,00007-3130-16 ",.01)
 ;;00007-3130-16
 ;;9002226.02101,"974,00007-3130-16 ",.02)
 ;;00007-3130-16
 ;;9002226.02101,"974,00007-3130-76 ",.01)
 ;;00007-3130-76
 ;;9002226.02101,"974,00007-3130-76 ",.02)
 ;;00007-3130-76
 ;;9002226.02101,"974,00007-3131-16 ",.01)
 ;;00007-3131-16
 ;;9002226.02101,"974,00007-3131-16 ",.02)
 ;;00007-3131-16
 ;;9002226.02101,"974,00007-3131-76 ",.01)
 ;;00007-3131-76
 ;;9002226.02101,"974,00007-3131-76 ",.02)
 ;;00007-3131-76
 ;;9002226.02101,"974,00007-3135-05 ",.01)
 ;;00007-3135-05
 ;;9002226.02101,"974,00007-3135-05 ",.02)
 ;;00007-3135-05
 ;;9002226.02101,"974,00007-3135-76 ",.01)
 ;;00007-3135-76
 ;;9002226.02101,"974,00007-3135-76 ",.02)
 ;;00007-3135-76
 ;;9002226.02101,"974,00007-3136-05 ",.01)
 ;;00007-3136-05
 ;;9002226.02101,"974,00007-3136-05 ",.02)
 ;;00007-3136-05
 ;;9002226.02101,"974,00007-3137-05 ",.01)
 ;;00007-3137-05
 ;;9002226.02101,"974,00007-3137-05 ",.02)
 ;;00007-3137-05
 ;;9002226.02101,"974,00007-3137-76 ",.01)
 ;;00007-3137-76
 ;;9002226.02101,"974,00007-3137-76 ",.02)
 ;;00007-3137-76
 ;;9002226.02101,"974,00007-3142-04 ",.01)
 ;;00007-3142-04
 ;;9002226.02101,"974,00007-3142-04 ",.02)
 ;;00007-3142-04
 ;;9002226.02101,"974,00007-3143-04 ",.01)
 ;;00007-3143-04
 ;;9002226.02101,"974,00007-3143-04 ",.02)
 ;;00007-3143-04
 ;;9002226.02101,"974,00008-0053-05 ",.01)
 ;;00008-0053-05
 ;;9002226.02101,"974,00008-0053-05 ",.02)
 ;;00008-0053-05
 ;;9002226.02101,"974,00008-0309-03 ",.01)
 ;;00008-0309-03
 ;;9002226.02101,"974,00008-0309-03 ",.02)
 ;;00008-0309-03
 ;;9002226.02101,"974,00008-0309-06 ",.01)
 ;;00008-0309-06
 ;;9002226.02101,"974,00008-0309-06 ",.02)
 ;;00008-0309-06
 ;;9002226.02101,"974,00008-0315-04 ",.01)
 ;;00008-0315-04
 ;;9002226.02101,"974,00008-0315-04 ",.02)
 ;;00008-0315-04
 ;;9002226.02101,"974,00008-0315-09 ",.01)
 ;;00008-0315-09
 ;;9002226.02101,"974,00008-0315-09 ",.02)
 ;;00008-0315-09
 ;;9002226.02101,"974,00008-0315-10 ",.01)
 ;;00008-0315-10
 ;;9002226.02101,"974,00008-0315-10 ",.02)
 ;;00008-0315-10
 ;;9002226.02101,"974,00008-0315-23 ",.01)
 ;;00008-0315-23
 ;;9002226.02101,"974,00008-0315-23 ",.02)
 ;;00008-0315-23
 ;;9002226.02101,"974,00008-0315-25 ",.01)
 ;;00008-0315-25
 ;;9002226.02101,"974,00008-0315-25 ",.02)
 ;;00008-0315-25
 ;;9002226.02101,"974,00008-0315-27 ",.01)
 ;;00008-0315-27
 ;;9002226.02101,"974,00008-0315-27 ",.02)
 ;;00008-0315-27
 ;;9002226.02101,"974,00009-0225-01 ",.01)
 ;;00009-0225-01
 ;;9002226.02101,"974,00009-0225-01 ",.02)
 ;;00009-0225-01
 ;;9002226.02101,"974,00009-0225-02 ",.01)
 ;;00009-0225-02
 ;;9002226.02101,"974,00009-0225-02 ",.02)
 ;;00009-0225-02
 ;;9002226.02101,"974,00009-0225-03 ",.01)
 ;;00009-0225-03
 ;;9002226.02101,"974,00009-0225-03 ",.02)
 ;;00009-0225-03
 ;;9002226.02101,"974,00009-0331-02 ",.01)
 ;;00009-0331-02
 ;;9002226.02101,"974,00009-0331-02 ",.02)
 ;;00009-0331-02
 ;;9002226.02101,"974,00009-0395-02 ",.01)
 ;;00009-0395-02
 ;;9002226.02101,"974,00009-0395-02 ",.02)
 ;;00009-0395-02
 ;;9002226.02101,"974,00009-0395-13 ",.01)
 ;;00009-0395-13
 ;;9002226.02101,"974,00009-0395-13 ",.02)
 ;;00009-0395-13
 ;;9002226.02101,"974,00009-0395-14 ",.01)
 ;;00009-0395-14
 ;;9002226.02101,"974,00009-0395-14 ",.02)
 ;;00009-0395-14
 ;;9002226.02101,"974,00009-0728-05 ",.01)
 ;;00009-0728-05
 ;;9002226.02101,"974,00009-0728-05 ",.02)
 ;;00009-0728-05
 ;;9002226.02101,"974,00009-0728-09 ",.01)
 ;;00009-0728-09
 ;;9002226.02101,"974,00009-0728-09 ",.02)
 ;;00009-0728-09
 ;;9002226.02101,"974,00009-0760-04 ",.01)
 ;;00009-0760-04
 ;;9002226.02101,"974,00009-0760-04 ",.02)
 ;;00009-0760-04
 ;;9002226.02101,"974,00009-0775-20 ",.01)
 ;;00009-0775-20
 ;;9002226.02101,"974,00009-0775-20 ",.02)
 ;;00009-0775-20
 ;;9002226.02101,"974,00009-0775-26 ",.01)
 ;;00009-0775-26
 ;;9002226.02101,"974,00009-0775-26 ",.02)
 ;;00009-0775-26
 ;;9002226.02101,"974,00009-0782-01 ",.01)
 ;;00009-0782-01
 ;;9002226.02101,"974,00009-0782-01 ",.02)
 ;;00009-0782-01
 ;;9002226.02101,"974,00009-0782-03 ",.01)
 ;;00009-0782-03
 ;;9002226.02101,"974,00009-0782-03 ",.02)
 ;;00009-0782-03
 ;;9002226.02101,"974,00009-0870-21 ",.01)
 ;;00009-0870-21
 ;;9002226.02101,"974,00009-0870-21 ",.02)
 ;;00009-0870-21
 ;;9002226.02101,"974,00009-0870-26 ",.01)
 ;;00009-0870-26
 ;;9002226.02101,"974,00009-0870-26 ",.02)
 ;;00009-0870-26
 ;;9002226.02101,"974,00009-0902-11 ",.01)
 ;;00009-0902-11
 ;;9002226.02101,"974,00009-0902-11 ",.02)
 ;;00009-0902-11
 ;;9002226.02101,"974,00009-0902-18 ",.01)
 ;;00009-0902-18
 ;;9002226.02101,"974,00009-0902-18 ",.02)
 ;;00009-0902-18
 ;;9002226.02101,"974,00009-3124-01 ",.01)
 ;;00009-3124-01
 ;;9002226.02101,"974,00009-3124-01 ",.02)
 ;;00009-3124-01
 ;;9002226.02101,"974,00009-3124-03 ",.01)
 ;;00009-3124-03
 ;;9002226.02101,"974,00009-3124-03 ",.02)
 ;;00009-3124-03
 ;;9002226.02101,"974,00009-3375-01 ",.01)
 ;;00009-3375-01
 ;;9002226.02101,"974,00009-3375-01 ",.02)
 ;;00009-3375-01
 ;;9002226.02101,"974,00009-3375-02 ",.01)
 ;;00009-3375-02
 ;;9002226.02101,"974,00009-3375-02 ",.02)
 ;;00009-3375-02
 ;;9002226.02101,"974,00009-3381-01 ",.01)
 ;;00009-3381-01
 ;;9002226.02101,"974,00009-3381-01 ",.02)
 ;;00009-3381-01
 ;;9002226.02101,"974,00009-3381-02 ",.01)
 ;;00009-3381-02
 ;;9002226.02101,"974,00009-3381-02 ",.02)
 ;;00009-3381-02
 ;;9002226.02101,"974,00009-3382-02 ",.01)
 ;;00009-3382-02
 ;;9002226.02101,"974,00009-3382-02 ",.02)
 ;;00009-3382-02
 ;;9002226.02101,"974,00009-3447-01 ",.01)
 ;;00009-3447-01
 ;;9002226.02101,"974,00009-3447-01 ",.02)
 ;;00009-3447-01
 ;;9002226.02101,"974,00009-3447-03 ",.01)
 ;;00009-3447-03
 ;;9002226.02101,"974,00009-3447-03 ",.02)
 ;;00009-3447-03
 ;;9002226.02101,"974,00009-3531-01 ",.01)
 ;;00009-3531-01
 ;;9002226.02101,"974,00009-3531-01 ",.02)
 ;;00009-3531-01
 ;;9002226.02101,"974,00009-3531-02 ",.01)
 ;;00009-3531-02
 ;;9002226.02101,"974,00009-3531-02 ",.02)
 ;;00009-3531-02
 ;;9002226.02101,"974,00009-3531-03 ",.01)
 ;;00009-3531-03
 ;;9002226.02101,"974,00009-3531-03 ",.02)
 ;;00009-3531-03
 ;;9002226.02101,"974,00009-3615-01 ",.01)
 ;;00009-3615-01
 ;;9002226.02101,"974,00009-3615-01 ",.02)
 ;;00009-3615-01
 ;;9002226.02101,"974,00009-3615-02 ",.01)
 ;;00009-3615-02
 ;;9002226.02101,"974,00009-3615-02 ",.02)
 ;;00009-3615-02
 ;;9002226.02101,"974,00009-3615-03 ",.01)
 ;;00009-3615-03
 ;;9002226.02101,"974,00009-3615-03 ",.02)
 ;;00009-3615-03
 ;;9002226.02101,"974,00009-3617-01 ",.01)
 ;;00009-3617-01
 ;;9002226.02101,"974,00009-3617-01 ",.02)
 ;;00009-3617-01
 ;;9002226.02101,"974,00009-3617-02 ",.01)
 ;;00009-3617-02
 ;;9002226.02101,"974,00009-3617-02 ",.02)
 ;;00009-3617-02
 ;;9002226.02101,"974,00009-3617-03 ",.01)
 ;;00009-3617-03
 ;;9002226.02101,"974,00009-3617-03 ",.02)
 ;;00009-3617-03
 ;;9002226.02101,"974,00009-3618-01 ",.01)
 ;;00009-3618-01
 ;;9002226.02101,"974,00009-3618-01 ",.02)
 ;;00009-3618-01
 ;;9002226.02101,"974,00009-3618-02 ",.01)
 ;;00009-3618-02
 ;;9002226.02101,"974,00009-3618-02 ",.02)
 ;;00009-3618-02
 ;;9002226.02101,"974,00009-3618-03 ",.01)
 ;;00009-3618-03
 ;;9002226.02101,"974,00009-3618-03 ",.02)
 ;;00009-3618-03
 ;;9002226.02101,"974,00015-1117-50 ",.01)
 ;;00015-1117-50
 ;;9002226.02101,"974,00015-1117-50 ",.02)
 ;;00015-1117-50
 ;;9002226.02101,"974,00015-1117-80 ",.01)
 ;;00015-1117-80
 ;;9002226.02101,"974,00015-1117-80 ",.02)
 ;;00015-1117-80
 ;;9002226.02101,"974,00015-1177-19 ",.01)
 ;;00015-1177-19
 ;;9002226.02101,"974,00015-1177-19 ",.02)
 ;;00015-1177-19
 ;;9002226.02101,"974,00015-1177-21 ",.01)
 ;;00015-1177-21
 ;;9002226.02101,"974,00015-1177-21 ",.02)
 ;;00015-1177-21
 ;;9002226.02101,"974,00015-1177-60 ",.01)
 ;;00015-1177-60
 ;;9002226.02101,"974,00015-1177-60 ",.02)
 ;;00015-1177-60
 ;;9002226.02101,"974,00015-1177-80 ",.01)
 ;;00015-1177-80
 ;;9002226.02101,"974,00015-1177-80 ",.02)
 ;;00015-1177-80
 ;;9002226.02101,"974,00015-1178-80 ",.01)
 ;;00015-1178-80
 ;;9002226.02101,"974,00015-1178-80 ",.02)
 ;;00015-1178-80
 ;;9002226.02101,"974,00015-1179-80 ",.01)
 ;;00015-1179-80
 ;;9002226.02101,"974,00015-1179-80 ",.02)
 ;;00015-1179-80
 ;;9002226.02101,"974,00015-1180-78 ",.01)
 ;;00015-1180-78
 ;;9002226.02101,"974,00015-1180-78 ",.02)
 ;;00015-1180-78
 ;;9002226.02101,"974,00015-1180-79 ",.01)
 ;;00015-1180-79
 ;;9002226.02101,"974,00015-1180-79 ",.02)
 ;;00015-1180-79
 ;;9002226.02101,"974,00015-1180-80 ",.01)
 ;;00015-1180-80
 ;;9002226.02101,"974,00015-1180-80 ",.02)
 ;;00015-1180-80
 ;;9002226.02101,"974,00015-1181-78 ",.01)
 ;;00015-1181-78
 ;;9002226.02101,"974,00015-1181-78 ",.02)
 ;;00015-1181-78
 ;;9002226.02101,"974,00015-1181-79 ",.01)
 ;;00015-1181-79
 ;;9002226.02101,"974,00015-1181-79 ",.02)
 ;;00015-1181-79
 ;;9002226.02101,"974,00015-1181-80 ",.01)
 ;;00015-1181-80
 ;;9002226.02101,"974,00015-1181-80 ",.02)
 ;;00015-1181-80
 ;;9002226.02101,"974,00015-3157-96 ",.01)
 ;;00015-3157-96
 ;;9002226.02101,"974,00015-3157-96 ",.02)
 ;;00015-3157-96
 ;;9002226.02101,"974,00015-3400-95 ",.01)
 ;;00015-3400-95
 ;;9002226.02101,"974,00015-3400-95 ",.02)
 ;;00015-3400-95
 ;;9002226.02101,"974,00015-3709-95 ",.01)
 ;;00015-3709-95
 ;;9002226.02101,"974,00015-3709-95 ",.02)
 ;;00015-3709-95
 ;;9002226.02101,"974,00015-7100-28 ",.01)
 ;;00015-7100-28
 ;;9002226.02101,"974,00015-7100-28 ",.02)
 ;;00015-7100-28
 ;;9002226.02101,"974,00015-7100-98 ",.01)
 ;;00015-7100-98
 ;;9002226.02101,"974,00015-7100-98 ",.02)
 ;;00015-7100-98
 ;;9002226.02101,"974,00015-7276-75 ",.01)
 ;;00015-7276-75
 ;;9002226.02101,"974,00015-7276-75 ",.02)
 ;;00015-7276-75
 ;;9002226.02101,"974,00015-7277-60 ",.01)
 ;;00015-7277-60
 ;;9002226.02101,"974,00015-7277-60 ",.02)
 ;;00015-7277-60
 ;;9002226.02101,"974,00015-7277-75 ",.01)
 ;;00015-7277-75
 ;;9002226.02101,"974,00015-7277-75 ",.02)
 ;;00015-7277-75
 ;;9002226.02101,"974,00015-7278-62 ",.01)
 ;;00015-7278-62
 ;;9002226.02101,"974,00015-7278-62 ",.02)
 ;;00015-7278-62
 ;;9002226.02101,"974,00015-7278-73 ",.01)
 ;;00015-7278-73
 ;;9002226.02101,"974,00015-7278-73 ",.02)
 ;;00015-7278-73
 ;;9002226.02101,"974,00015-7338-12 ",.01)
 ;;00015-7338-12
 ;;9002226.02101,"974,00015-7338-12 ",.02)
 ;;00015-7338-12
 ;;9002226.02101,"974,00015-7338-33 ",.01)
 ;;00015-7338-33
 ;;9002226.02101,"974,00015-7338-33 ",.02)
 ;;00015-7338-33
 ;;9002226.02101,"974,00015-7338-99 ",.01)
 ;;00015-7338-99
 ;;9002226.02101,"974,00015-7338-99 ",.02)
 ;;00015-7338-99
 ;;9002226.02101,"974,00015-7339-12 ",.01)
 ;;00015-7339-12
 ;;9002226.02101,"974,00015-7339-12 ",.02)
 ;;00015-7339-12
 ;;9002226.02101,"974,00015-7339-31 ",.01)
 ;;00015-7339-31
 ;;9002226.02101,"974,00015-7339-31 ",.02)
 ;;00015-7339-31
 ;;9002226.02101,"974,00015-7339-97 ",.01)
 ;;00015-7339-97
 ;;9002226.02101,"974,00015-7339-97 ",.02)
 ;;00015-7339-97
 ;;9002226.02101,"974,00015-7339-99 ",.01)
 ;;00015-7339-99
 ;;9002226.02101,"974,00015-7339-99 ",.02)
 ;;00015-7339-99