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

BGP13Y7.m

Go to the documentation of this file.
BGP13Y7 ; 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,"1101,00044-1827-02 ",.01)
 ;;00044-1827-02
 ;;9002226.02101,"1101,00044-1827-02 ",.02)
 ;;00044-1827-02
 ;;9002226.02101,"1101,00048-5912-40 ",.01)
 ;;00048-5912-40
 ;;9002226.02101,"1101,00048-5912-40 ",.02)
 ;;00048-5912-40
 ;;9002226.02101,"1101,00048-5921-80 ",.01)
 ;;00048-5921-80
 ;;9002226.02101,"1101,00048-5921-80 ",.02)
 ;;00048-5921-80
 ;;9002226.02101,"1101,00048-5922-40 ",.01)
 ;;00048-5922-40
 ;;9002226.02101,"1101,00048-5922-40 ",.02)
 ;;00048-5922-40
 ;;9002226.02101,"1101,00048-5942-40 ",.01)
 ;;00048-5942-40
 ;;9002226.02101,"1101,00048-5942-40 ",.02)
 ;;00048-5942-40
 ;;9002226.02101,"1101,00054-0100-22 ",.01)
 ;;00054-0100-22
 ;;9002226.02101,"1101,00054-0100-22 ",.02)
 ;;00054-0100-22
 ;;9002226.02101,"1101,00054-0101-20 ",.01)
 ;;00054-0101-20
 ;;9002226.02101,"1101,00054-0101-20 ",.02)
 ;;00054-0101-20
 ;;9002226.02101,"1101,00054-0101-22 ",.01)
 ;;00054-0101-22
 ;;9002226.02101,"1101,00054-0101-22 ",.02)
 ;;00054-0101-22
 ;;9002226.02101,"1101,00054-0101-28 ",.01)
 ;;00054-0101-28
 ;;9002226.02101,"1101,00054-0101-28 ",.02)
 ;;00054-0101-28
 ;;9002226.02101,"1101,00054-0102-20 ",.01)
 ;;00054-0102-20
 ;;9002226.02101,"1101,00054-0102-20 ",.02)
 ;;00054-0102-20
 ;;9002226.02101,"1101,00054-0102-22 ",.01)
 ;;00054-0102-22
 ;;9002226.02101,"1101,00054-0102-22 ",.02)
 ;;00054-0102-22
 ;;9002226.02101,"1101,00054-0102-28 ",.01)
 ;;00054-0102-28
 ;;9002226.02101,"1101,00054-0102-28 ",.02)
 ;;00054-0102-28
 ;;9002226.02101,"1101,00069-1520-68 ",.01)
 ;;00069-1520-68
 ;;9002226.02101,"1101,00069-1520-68 ",.02)
 ;;00069-1520-68
 ;;9002226.02101,"1101,00069-1530-41 ",.01)
 ;;00069-1530-41
 ;;9002226.02101,"1101,00069-1530-41 ",.02)
 ;;00069-1530-41
 ;;9002226.02101,"1101,00069-1530-68 ",.01)
 ;;00069-1530-68
 ;;9002226.02101,"1101,00069-1530-68 ",.02)
 ;;00069-1530-68
 ;;9002226.02101,"1101,00069-1530-72 ",.01)
 ;;00069-1530-72
 ;;9002226.02101,"1101,00069-1530-72 ",.02)
 ;;00069-1530-72
 ;;9002226.02101,"1101,00069-1540-41 ",.01)
 ;;00069-1540-41
 ;;9002226.02101,"1101,00069-1540-41 ",.02)
 ;;00069-1540-41
 ;;9002226.02101,"1101,00069-1540-68 ",.01)
 ;;00069-1540-68
 ;;9002226.02101,"1101,00069-1540-68 ",.02)
 ;;00069-1540-68
 ;;9002226.02101,"1101,00069-2150-30 ",.01)
 ;;00069-2150-30
 ;;9002226.02101,"1101,00069-2150-30 ",.02)
 ;;00069-2150-30
 ;;9002226.02101,"1101,00069-2160-30 ",.01)
 ;;00069-2160-30
 ;;9002226.02101,"1101,00069-2160-30 ",.02)
 ;;00069-2160-30
 ;;9002226.02101,"1101,00069-2170-30 ",.01)
 ;;00069-2170-30
 ;;9002226.02101,"1101,00069-2170-30 ",.02)
 ;;00069-2170-30
 ;;9002226.02101,"1101,00069-2180-30 ",.01)
 ;;00069-2180-30
 ;;9002226.02101,"1101,00069-2180-30 ",.02)
 ;;00069-2180-30
 ;;9002226.02101,"1101,00069-2190-30 ",.01)
 ;;00069-2190-30
 ;;9002226.02101,"1101,00069-2190-30 ",.02)
 ;;00069-2190-30
 ;;9002226.02101,"1101,00069-2250-30 ",.01)
 ;;00069-2250-30
 ;;9002226.02101,"1101,00069-2250-30 ",.02)
 ;;00069-2250-30
 ;;9002226.02101,"1101,00069-2260-30 ",.01)
 ;;00069-2260-30
 ;;9002226.02101,"1101,00069-2260-30 ",.02)
 ;;00069-2260-30
 ;;9002226.02101,"1101,00069-2270-30 ",.01)
 ;;00069-2270-30
 ;;9002226.02101,"1101,00069-2270-30 ",.02)
 ;;00069-2270-30
 ;;9002226.02101,"1101,00069-2650-41 ",.01)
 ;;00069-2650-41
 ;;9002226.02101,"1101,00069-2650-41 ",.02)
 ;;00069-2650-41
 ;;9002226.02101,"1101,00069-2650-66 ",.01)
 ;;00069-2650-66
 ;;9002226.02101,"1101,00069-2650-66 ",.02)
 ;;00069-2650-66
 ;;9002226.02101,"1101,00069-2650-72 ",.01)
 ;;00069-2650-72
 ;;9002226.02101,"1101,00069-2650-72 ",.02)
 ;;00069-2650-72
 ;;9002226.02101,"1101,00069-2660-41 ",.01)
 ;;00069-2660-41
 ;;9002226.02101,"1101,00069-2660-41 ",.02)
 ;;00069-2660-41
 ;;9002226.02101,"1101,00069-2660-66 ",.01)
 ;;00069-2660-66
 ;;9002226.02101,"1101,00069-2660-66 ",.02)
 ;;00069-2660-66
 ;;9002226.02101,"1101,00069-2660-72 ",.01)
 ;;00069-2660-72
 ;;9002226.02101,"1101,00069-2660-72 ",.02)
 ;;00069-2660-72
 ;;9002226.02101,"1101,00069-2670-41 ",.01)
 ;;00069-2670-41
 ;;9002226.02101,"1101,00069-2670-41 ",.02)
 ;;00069-2670-41
 ;;9002226.02101,"1101,00069-2670-66 ",.01)
 ;;00069-2670-66
 ;;9002226.02101,"1101,00069-2670-66 ",.02)
 ;;00069-2670-66
 ;;9002226.02101,"1101,00069-2960-30 ",.01)
 ;;00069-2960-30
 ;;9002226.02101,"1101,00069-2960-30 ",.02)
 ;;00069-2960-30
 ;;9002226.02101,"1101,00069-2970-30 ",.01)
 ;;00069-2970-30
 ;;9002226.02101,"1101,00069-2970-30 ",.02)
 ;;00069-2970-30
 ;;9002226.02101,"1101,00069-2980-30 ",.01)
 ;;00069-2980-30
 ;;9002226.02101,"1101,00069-2980-30 ",.02)
 ;;00069-2980-30
 ;;9002226.02101,"1101,00074-1149-14 ",.01)
 ;;00074-1149-14
 ;;9002226.02101,"1101,00074-1149-14 ",.02)
 ;;00074-1149-14
 ;;9002226.02101,"1101,00074-1486-14 ",.01)
 ;;00074-1486-14
 ;;9002226.02101,"1101,00074-1486-14 ",.02)
 ;;00074-1486-14
 ;;9002226.02101,"1101,00074-1625-14 ",.01)
 ;;00074-1625-14
 ;;9002226.02101,"1101,00074-1625-14 ",.02)
 ;;00074-1625-14
 ;;9002226.02101,"1101,00074-1625-54 ",.01)
 ;;00074-1625-54
 ;;9002226.02101,"1101,00074-1625-54 ",.02)
 ;;00074-1625-54
 ;;9002226.02101,"1101,00074-3045-30 ",.01)
 ;;00074-3045-30
 ;;9002226.02101,"1101,00074-3045-30 ",.02)
 ;;00074-3045-30
 ;;9002226.02101,"1101,00074-3045-90 ",.01)
 ;;00074-3045-90
 ;;9002226.02101,"1101,00074-3045-90 ",.02)
 ;;00074-3045-90
 ;;9002226.02101,"1101,00074-3061-30 ",.01)
 ;;00074-3061-30
 ;;9002226.02101,"1101,00074-3061-30 ",.02)
 ;;00074-3061-30
 ;;9002226.02101,"1101,00074-3061-90 ",.01)
 ;;00074-3061-90
 ;;9002226.02101,"1101,00074-3061-90 ",.02)
 ;;00074-3061-90
 ;;9002226.02101,"1101,00074-3062-30 ",.01)
 ;;00074-3062-30
 ;;9002226.02101,"1101,00074-3062-30 ",.02)
 ;;00074-3062-30
 ;;9002226.02101,"1101,00074-3062-90 ",.01)
 ;;00074-3062-90
 ;;9002226.02101,"1101,00074-3062-90 ",.02)
 ;;00074-3062-90
 ;;9002226.02101,"1101,00074-3063-30 ",.01)
 ;;00074-3063-30
 ;;9002226.02101,"1101,00074-3063-30 ",.02)
 ;;00074-3063-30
 ;;9002226.02101,"1101,00074-3063-90 ",.01)
 ;;00074-3063-90
 ;;9002226.02101,"1101,00074-3063-90 ",.02)
 ;;00074-3063-90
 ;;9002226.02101,"1101,00074-3064-30 ",.01)
 ;;00074-3064-30
 ;;9002226.02101,"1101,00074-3064-30 ",.02)
 ;;00074-3064-30
 ;;9002226.02101,"1101,00074-3064-90 ",.01)
 ;;00074-3064-90
 ;;9002226.02101,"1101,00074-3064-90 ",.02)
 ;;00074-3064-90
 ;;9002226.02101,"1101,00074-3069-30 ",.01)
 ;;00074-3069-30
 ;;9002226.02101,"1101,00074-3069-30 ",.02)
 ;;00074-3069-30
 ;;9002226.02101,"1101,00074-3069-90 ",.01)
 ;;00074-3069-90
 ;;9002226.02101,"1101,00074-3069-90 ",.02)
 ;;00074-3069-90
 ;;9002226.02101,"1101,00074-3287-13 ",.01)
 ;;00074-3287-13
 ;;9002226.02101,"1101,00074-3287-13 ",.02)
 ;;00074-3287-13
 ;;9002226.02101,"1101,00074-3288-13 ",.01)
 ;;00074-3288-13
 ;;9002226.02101,"1101,00074-3288-13 ",.02)
 ;;00074-3288-13
 ;;9002226.02101,"1101,00074-3289-13 ",.01)
 ;;00074-3289-13
 ;;9002226.02101,"1101,00074-3289-13 ",.02)
 ;;00074-3289-13
 ;;9002226.02101,"1101,00074-3290-13 ",.01)
 ;;00074-3290-13
 ;;9002226.02101,"1101,00074-3290-13 ",.02)
 ;;00074-3290-13
 ;;9002226.02101,"1101,00078-0364-05 ",.01)
 ;;00078-0364-05
 ;;9002226.02101,"1101,00078-0364-05 ",.02)
 ;;00078-0364-05
 ;;9002226.02101,"1101,00078-0379-05 ",.01)
 ;;00078-0379-05
 ;;9002226.02101,"1101,00078-0379-05 ",.02)
 ;;00078-0379-05
 ;;9002226.02101,"1101,00078-0384-05 ",.01)
 ;;00078-0384-05
 ;;9002226.02101,"1101,00078-0384-05 ",.02)
 ;;00078-0384-05
 ;;9002226.02101,"1101,00078-0404-05 ",.01)
 ;;00078-0404-05
 ;;9002226.02101,"1101,00078-0404-05 ",.02)
 ;;00078-0404-05
 ;;9002226.02101,"1101,00078-0405-05 ",.01)
 ;;00078-0405-05
 ;;9002226.02101,"1101,00078-0405-05 ",.02)
 ;;00078-0405-05
 ;;9002226.02101,"1101,00078-0406-05 ",.01)
 ;;00078-0406-05
 ;;9002226.02101,"1101,00078-0406-05 ",.02)
 ;;00078-0406-05
 ;;9002226.02101,"1101,00078-0488-15 ",.01)
 ;;00078-0488-15
 ;;9002226.02101,"1101,00078-0488-15 ",.02)
 ;;00078-0488-15
 ;;9002226.02101,"1101,00078-0489-15 ",.01)
 ;;00078-0489-15
 ;;9002226.02101,"1101,00078-0489-15 ",.02)
 ;;00078-0489-15
 ;;9002226.02101,"1101,00078-0490-15 ",.01)
 ;;00078-0490-15
 ;;9002226.02101,"1101,00078-0490-15 ",.02)
 ;;00078-0490-15
 ;;9002226.02101,"1101,00078-0491-15 ",.01)
 ;;00078-0491-15
 ;;9002226.02101,"1101,00078-0491-15 ",.02)
 ;;00078-0491-15
 ;;9002226.02101,"1101,00078-0559-15 ",.01)
 ;;00078-0559-15
 ;;9002226.02101,"1101,00078-0559-15 ",.02)
 ;;00078-0559-15
 ;;9002226.02101,"1101,00078-0560-15 ",.01)
 ;;00078-0560-15
 ;;9002226.02101,"1101,00078-0560-15 ",.02)
 ;;00078-0560-15
 ;;9002226.02101,"1101,00078-0561-15 ",.01)
 ;;00078-0561-15
 ;;9002226.02101,"1101,00078-0561-15 ",.02)
 ;;00078-0561-15
 ;;9002226.02101,"1101,00078-0562-15 ",.01)
 ;;00078-0562-15
 ;;9002226.02101,"1101,00078-0562-15 ",.02)
 ;;00078-0562-15
 ;;9002226.02101,"1101,00078-0563-15 ",.01)
 ;;00078-0563-15
 ;;9002226.02101,"1101,00078-0563-15 ",.02)
 ;;00078-0563-15
 ;;9002226.02101,"1101,00083-2255-30 ",.01)
 ;;00083-2255-30
 ;;9002226.02101,"1101,00083-2255-30 ",.02)
 ;;00083-2255-30
 ;;9002226.02101,"1101,00083-2260-30 ",.01)
 ;;00083-2260-30
 ;;9002226.02101,"1101,00083-2260-30 ",.02)
 ;;00083-2260-30
 ;;9002226.02101,"1101,00083-2265-30 ",.01)
 ;;00083-2265-30
 ;;9002226.02101,"1101,00083-2265-30 ",.02)
 ;;00083-2265-30
 ;;9002226.02101,"1101,00085-1701-01 ",.01)
 ;;00085-1701-01
 ;;9002226.02101,"1101,00085-1701-01 ",.02)
 ;;00085-1701-01
 ;;9002226.02101,"1101,00085-1701-02 ",.01)
 ;;00085-1701-02
 ;;9002226.02101,"1101,00085-1701-02 ",.02)
 ;;00085-1701-02
 ;;9002226.02101,"1101,00085-1701-03 ",.01)
 ;;00085-1701-03
 ;;9002226.02101,"1101,00085-1701-03 ",.02)
 ;;00085-1701-03
 ;;9002226.02101,"1101,00085-1716-01 ",.01)
 ;;00085-1716-01
 ;;9002226.02101,"1101,00085-1716-01 ",.02)
 ;;00085-1716-01
 ;;9002226.02101,"1101,00085-1716-02 ",.01)
 ;;00085-1716-02
 ;;9002226.02101,"1101,00085-1716-02 ",.02)
 ;;00085-1716-02
 ;;9002226.02101,"1101,00085-1716-03 ",.01)
 ;;00085-1716-03
 ;;9002226.02101,"1101,00085-1716-03 ",.02)
 ;;00085-1716-03
 ;;9002226.02101,"1101,00085-1722-01 ",.01)
 ;;00085-1722-01
 ;;9002226.02101,"1101,00085-1722-01 ",.02)
 ;;00085-1722-01
 ;;9002226.02101,"1101,00085-1722-02 ",.01)
 ;;00085-1722-02
 ;;9002226.02101,"1101,00085-1722-02 ",.02)
 ;;00085-1722-02
 ;;9002226.02101,"1101,00088-1771-47 ",.01)
 ;;00088-1771-47
 ;;9002226.02101,"1101,00088-1771-47 ",.02)
 ;;00088-1771-47
 ;;9002226.02101,"1101,00088-1771-55 ",.01)
 ;;00088-1771-55
 ;;9002226.02101,"1101,00088-1771-55 ",.02)
 ;;00088-1771-55
 ;;9002226.02101,"1101,00088-1771-90 ",.01)
 ;;00088-1771-90
 ;;9002226.02101,"1101,00088-1771-90 ",.02)
 ;;00088-1771-90
 ;;9002226.02101,"1101,00088-1772-47 ",.01)
 ;;00088-1772-47
 ;;9002226.02101,"1101,00088-1772-47 ",.02)
 ;;00088-1772-47
 ;;9002226.02101,"1101,00088-1772-55 ",.01)
 ;;00088-1772-55
 ;;9002226.02101,"1101,00088-1772-55 ",.02)
 ;;00088-1772-55
 ;;9002226.02101,"1101,00088-1772-90 ",.01)
 ;;00088-1772-90
 ;;9002226.02101,"1101,00088-1772-90 ",.02)
 ;;00088-1772-90
 ;;9002226.02101,"1101,00088-1777-47 ",.01)
 ;;00088-1777-47
 ;;9002226.02101,"1101,00088-1777-47 ",.02)
 ;;00088-1777-47
 ;;9002226.02101,"1101,00088-1778-47 ",.01)
 ;;00088-1778-47
 ;;9002226.02101,"1101,00088-1778-47 ",.02)
 ;;00088-1778-47
 ;;9002226.02101,"1101,00088-1779-47 ",.01)
 ;;00088-1779-47
 ;;9002226.02101,"1101,00088-1779-47 ",.02)
 ;;00088-1779-47
 ;;9002226.02101,"1101,00088-1791-47 ",.01)
 ;;00088-1791-47
 ;;9002226.02101,"1101,00088-1791-47 ",.02)
 ;;00088-1791-47
 ;;9002226.02101,"1101,00088-1792-47 ",.01)
 ;;00088-1792-47
 ;;9002226.02101,"1101,00088-1792-47 ",.02)
 ;;00088-1792-47
 ;;9002226.02101,"1101,00088-1795-30 ",.01)
 ;;00088-1795-30
 ;;9002226.02101,"1101,00088-1795-30 ",.02)
 ;;00088-1795-30
 ;;9002226.02101,"1101,00088-1795-42 ",.01)
 ;;00088-1795-42
 ;;9002226.02101,"1101,00088-1795-42 ",.02)
 ;;00088-1795-42
 ;;9002226.02101,"1101,00088-1795-49 ",.01)
 ;;00088-1795-49
 ;;9002226.02101,"1101,00088-1795-49 ",.02)
 ;;00088-1795-49
 ;;9002226.02101,"1101,00088-1796-30 ",.01)
 ;;00088-1796-30
 ;;9002226.02101,"1101,00088-1796-30 ",.02)
 ;;00088-1796-30
 ;;9002226.02101,"1101,00088-1796-42 ",.01)
 ;;00088-1796-42
 ;;9002226.02101,"1101,00088-1796-42 ",.02)
 ;;00088-1796-42
 ;;9002226.02101,"1101,00088-1796-49 ",.01)
 ;;00088-1796-49
 ;;9002226.02101,"1101,00088-1796-49 ",.02)
 ;;00088-1796-49
 ;;9002226.02101,"1101,00088-1796-90 ",.01)
 ;;00088-1796-90
 ;;9002226.02101,"1101,00088-1796-90 ",.02)
 ;;00088-1796-90
 ;;9002226.02101,"1101,00088-1797-30 ",.01)
 ;;00088-1797-30
 ;;9002226.02101,"1101,00088-1797-30 ",.02)
 ;;00088-1797-30