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

BGP82U5.m

Go to the documentation of this file.
BGP82U5 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"1905,00075-2915-02 ",.01)
 ;;00075-2915-02
 ;;9002226.02101,"1905,00075-2915-02 ",.02)
 ;;00075-2915-02
 ;;9002226.02101,"1905,00075-8013-01 ",.01)
 ;;00075-8013-01
 ;;9002226.02101,"1905,00075-8013-01 ",.02)
 ;;00075-8013-01
 ;;9002226.02101,"1905,00075-8013-10 ",.01)
 ;;00075-8013-10
 ;;9002226.02101,"1905,00075-8013-10 ",.02)
 ;;00075-8013-10
 ;;9002226.02101,"1905,00075-8014-01 ",.01)
 ;;00075-8014-01
 ;;9002226.02101,"1905,00075-8014-01 ",.02)
 ;;00075-8014-01
 ;;9002226.02101,"1905,00075-8014-10 ",.01)
 ;;00075-8014-10
 ;;9002226.02101,"1905,00075-8014-10 ",.02)
 ;;00075-8014-10
 ;;9002226.02101,"1905,00075-8016-01 ",.01)
 ;;00075-8016-01
 ;;9002226.02101,"1905,00075-8016-01 ",.02)
 ;;00075-8016-01
 ;;9002226.02101,"1905,00075-8016-10 ",.01)
 ;;00075-8016-10
 ;;9002226.02101,"1905,00075-8016-10 ",.02)
 ;;00075-8016-10
 ;;9002226.02101,"1905,00075-8018-01 ",.01)
 ;;00075-8018-01
 ;;9002226.02101,"1905,00075-8018-01 ",.02)
 ;;00075-8018-01
 ;;9002226.02101,"1905,00075-8018-10 ",.01)
 ;;00075-8018-10
 ;;9002226.02101,"1905,00075-8018-10 ",.02)
 ;;00075-8018-10
 ;;9002226.02101,"1905,00075-8020-01 ",.01)
 ;;00075-8020-01
 ;;9002226.02101,"1905,00075-8020-01 ",.02)
 ;;00075-8020-01
 ;;9002226.02101,"1905,00075-8020-10 ",.01)
 ;;00075-8020-10
 ;;9002226.02101,"1905,00075-8020-10 ",.02)
 ;;00075-8020-10
 ;;9002226.02101,"1905,00075-8022-01 ",.01)
 ;;00075-8022-01
 ;;9002226.02101,"1905,00075-8022-01 ",.02)
 ;;00075-8022-01
 ;;9002226.02101,"1905,00075-8022-10 ",.01)
 ;;00075-8022-10
 ;;9002226.02101,"1905,00075-8022-10 ",.02)
 ;;00075-8022-10
 ;;9002226.02101,"1905,00075-8025-01 ",.01)
 ;;00075-8025-01
 ;;9002226.02101,"1905,00075-8025-01 ",.02)
 ;;00075-8025-01
 ;;9002226.02101,"1905,00075-8025-10 ",.01)
 ;;00075-8025-10
 ;;9002226.02101,"1905,00075-8025-10 ",.02)
 ;;00075-8025-10
 ;;9002226.02101,"1905,00075-8030-01 ",.01)
 ;;00075-8030-01
 ;;9002226.02101,"1905,00075-8030-01 ",.02)
 ;;00075-8030-01
 ;;9002226.02101,"1905,00093-1712-01 ",.01)
 ;;00093-1712-01
 ;;9002226.02101,"1905,00093-1712-01 ",.02)
 ;;00093-1712-01
 ;;9002226.02101,"1905,00093-1712-10 ",.01)
 ;;00093-1712-10
 ;;9002226.02101,"1905,00093-1712-10 ",.02)
 ;;00093-1712-10
 ;;9002226.02101,"1905,00093-1713-01 ",.01)
 ;;00093-1713-01
 ;;9002226.02101,"1905,00093-1713-01 ",.02)
 ;;00093-1713-01
 ;;9002226.02101,"1905,00093-1713-10 ",.01)
 ;;00093-1713-10
 ;;9002226.02101,"1905,00093-1713-10 ",.02)
 ;;00093-1713-10
 ;;9002226.02101,"1905,00093-1714-01 ",.01)
 ;;00093-1714-01
 ;;9002226.02101,"1905,00093-1714-01 ",.02)
 ;;00093-1714-01
 ;;9002226.02101,"1905,00093-1714-10 ",.01)
 ;;00093-1714-10
 ;;9002226.02101,"1905,00093-1714-10 ",.02)
 ;;00093-1714-10
 ;;9002226.02101,"1905,00093-1715-01 ",.01)
 ;;00093-1715-01
 ;;9002226.02101,"1905,00093-1715-01 ",.02)
 ;;00093-1715-01
 ;;9002226.02101,"1905,00093-1716-01 ",.01)
 ;;00093-1716-01
 ;;9002226.02101,"1905,00093-1716-01 ",.02)
 ;;00093-1716-01
 ;;9002226.02101,"1905,00093-1716-10 ",.01)
 ;;00093-1716-10
 ;;9002226.02101,"1905,00093-1716-10 ",.02)
 ;;00093-1716-10
 ;;9002226.02101,"1905,00093-1718-01 ",.01)
 ;;00093-1718-01
 ;;9002226.02101,"1905,00093-1718-01 ",.02)
 ;;00093-1718-01
 ;;9002226.02101,"1905,00093-1719-01 ",.01)
 ;;00093-1719-01
 ;;9002226.02101,"1905,00093-1719-01 ",.02)
 ;;00093-1719-01
 ;;9002226.02101,"1905,00093-1720-01 ",.01)
 ;;00093-1720-01
 ;;9002226.02101,"1905,00093-1720-01 ",.02)
 ;;00093-1720-01
 ;;9002226.02101,"1905,00093-1721-01 ",.01)
 ;;00093-1721-01
 ;;9002226.02101,"1905,00093-1721-01 ",.02)
 ;;00093-1721-01
 ;;9002226.02101,"1905,00093-1721-10 ",.01)
 ;;00093-1721-10
 ;;9002226.02101,"1905,00093-1721-10 ",.02)
 ;;00093-1721-10
 ;;9002226.02101,"1905,00264-9567-10 ",.01)
 ;;00264-9567-10
 ;;9002226.02101,"1905,00264-9567-10 ",.02)
 ;;00264-9567-10
 ;;9002226.02101,"1905,00264-9577-10 ",.01)
 ;;00264-9577-10
 ;;9002226.02101,"1905,00264-9577-10 ",.02)
 ;;00264-9577-10
 ;;9002226.02101,"1905,00264-9587-20 ",.01)
 ;;00264-9587-20
 ;;9002226.02101,"1905,00264-9587-20 ",.02)
 ;;00264-9587-20
 ;;9002226.02101,"1905,00264-9872-10 ",.01)
 ;;00264-9872-10
 ;;9002226.02101,"1905,00264-9872-10 ",.02)
 ;;00264-9872-10
 ;;9002226.02101,"1905,00338-0431-03 ",.01)
 ;;00338-0431-03
 ;;9002226.02101,"1905,00338-0431-03 ",.02)
 ;;00338-0431-03
 ;;9002226.02101,"1905,00338-0433-04 ",.01)
 ;;00338-0433-04
 ;;9002226.02101,"1905,00338-0433-04 ",.02)
 ;;00338-0433-04
 ;;9002226.02101,"1905,00406-2052-01 ",.01)
 ;;00406-2052-01
 ;;9002226.02101,"1905,00406-2052-01 ",.02)
 ;;00406-2052-01
 ;;9002226.02101,"1905,00406-2052-10 ",.01)
 ;;00406-2052-10
 ;;9002226.02101,"1905,00406-2052-10 ",.02)
 ;;00406-2052-10
 ;;9002226.02101,"1905,00406-2053-01 ",.01)
 ;;00406-2053-01
 ;;9002226.02101,"1905,00406-2053-01 ",.02)
 ;;00406-2053-01
 ;;9002226.02101,"1905,00406-2053-10 ",.01)
 ;;00406-2053-10
 ;;9002226.02101,"1905,00406-2053-10 ",.02)
 ;;00406-2053-10
 ;;9002226.02101,"1905,00406-2054-01 ",.01)
 ;;00406-2054-01
 ;;9002226.02101,"1905,00406-2054-01 ",.02)
 ;;00406-2054-01
 ;;9002226.02101,"1905,00406-2054-10 ",.01)
 ;;00406-2054-10
 ;;9002226.02101,"1905,00406-2054-10 ",.02)
 ;;00406-2054-10
 ;;9002226.02101,"1905,00406-2055-01 ",.01)
 ;;00406-2055-01
 ;;9002226.02101,"1905,00406-2055-01 ",.02)
 ;;00406-2055-01
 ;;9002226.02101,"1905,00406-2055-10 ",.01)
 ;;00406-2055-10
 ;;9002226.02101,"1905,00406-2055-10 ",.02)
 ;;00406-2055-10
 ;;9002226.02101,"1905,00406-2056-01 ",.01)
 ;;00406-2056-01
 ;;9002226.02101,"1905,00406-2056-01 ",.02)
 ;;00406-2056-01
 ;;9002226.02101,"1905,00406-2056-10 ",.01)
 ;;00406-2056-10
 ;;9002226.02101,"1905,00406-2056-10 ",.02)
 ;;00406-2056-10
 ;;9002226.02101,"1905,00406-2059-01 ",.01)
 ;;00406-2059-01
 ;;9002226.02101,"1905,00406-2059-01 ",.02)
 ;;00406-2059-01
 ;;9002226.02101,"1905,00406-2064-01 ",.01)
 ;;00406-2064-01
 ;;9002226.02101,"1905,00406-2064-01 ",.02)
 ;;00406-2064-01
 ;;9002226.02101,"1905,00406-2064-10 ",.01)
 ;;00406-2064-10
 ;;9002226.02101,"1905,00406-2064-10 ",.02)
 ;;00406-2064-10
 ;;9002226.02101,"1905,00409-1316-32 ",.01)
 ;;00409-1316-32
 ;;9002226.02101,"1905,00409-1316-32 ",.02)
 ;;00409-1316-32
 ;;9002226.02101,"1905,00409-1402-12 ",.01)
 ;;00409-1402-12
 ;;9002226.02101,"1905,00409-1402-12 ",.02)
 ;;00409-1402-12
 ;;9002226.02101,"1905,00409-2720-01 ",.01)
 ;;00409-2720-01
 ;;9002226.02101,"1905,00409-2720-01 ",.02)
 ;;00409-2720-01
 ;;9002226.02101,"1905,00409-2720-02 ",.01)
 ;;00409-2720-02
 ;;9002226.02101,"1905,00409-2720-02 ",.02)
 ;;00409-2720-02
 ;;9002226.02101,"1905,00409-2720-03 ",.01)
 ;;00409-2720-03
 ;;9002226.02101,"1905,00409-2720-03 ",.02)
 ;;00409-2720-03
 ;;9002226.02101,"1905,00409-2721-01 ",.01)
 ;;00409-2721-01
 ;;9002226.02101,"1905,00409-2721-01 ",.02)
 ;;00409-2721-01
 ;;9002226.02101,"1905,00409-2723-01 ",.01)
 ;;00409-2723-01
 ;;9002226.02101,"1905,00409-2723-01 ",.02)
 ;;00409-2723-01
 ;;9002226.02101,"1905,00409-2723-02 ",.01)
 ;;00409-2723-02
 ;;9002226.02101,"1905,00409-2723-02 ",.02)
 ;;00409-2723-02
 ;;9002226.02101,"1905,00409-7620-03 ",.01)
 ;;00409-7620-03
 ;;9002226.02101,"1905,00409-7620-03 ",.02)
 ;;00409-7620-03
 ;;9002226.02101,"1905,00409-7620-13 ",.01)
 ;;00409-7620-13
 ;;9002226.02101,"1905,00409-7620-13 ",.02)
 ;;00409-7620-13
 ;;9002226.02101,"1905,00409-7620-49 ",.01)
 ;;00409-7620-49
 ;;9002226.02101,"1905,00409-7620-49 ",.02)
 ;;00409-7620-49
 ;;9002226.02101,"1905,00409-7620-59 ",.01)
 ;;00409-7620-59
 ;;9002226.02101,"1905,00409-7620-59 ",.02)
 ;;00409-7620-59
 ;;9002226.02101,"1905,00409-7650-52 ",.01)
 ;;00409-7650-52
 ;;9002226.02101,"1905,00409-7650-52 ",.02)
 ;;00409-7650-52
 ;;9002226.02101,"1905,00409-7650-62 ",.01)
 ;;00409-7650-62
 ;;9002226.02101,"1905,00409-7650-62 ",.02)
 ;;00409-7650-62
 ;;9002226.02101,"1905,00409-7651-03 ",.01)
 ;;00409-7651-03
 ;;9002226.02101,"1905,00409-7651-03 ",.02)
 ;;00409-7651-03
 ;;9002226.02101,"1905,00409-7651-13 ",.01)
 ;;00409-7651-13
 ;;9002226.02101,"1905,00409-7651-13 ",.02)
 ;;00409-7651-13
 ;;9002226.02101,"1905,00409-7651-52 ",.01)
 ;;00409-7651-52
 ;;9002226.02101,"1905,00409-7651-52 ",.02)
 ;;00409-7651-52
 ;;9002226.02101,"1905,00409-7651-62 ",.01)
 ;;00409-7651-62
 ;;9002226.02101,"1905,00409-7651-62 ",.02)
 ;;00409-7651-62
 ;;9002226.02101,"1905,00409-7760-03 ",.01)
 ;;00409-7760-03
 ;;9002226.02101,"1905,00409-7760-03 ",.02)
 ;;00409-7760-03
 ;;9002226.02101,"1905,00409-7760-13 ",.01)
 ;;00409-7760-13
 ;;9002226.02101,"1905,00409-7760-13 ",.02)
 ;;00409-7760-13
 ;;9002226.02101,"1905,00409-7761-03 ",.01)
 ;;00409-7761-03
 ;;9002226.02101,"1905,00409-7761-03 ",.02)
 ;;00409-7761-03
 ;;9002226.02101,"1905,00409-7761-13 ",.01)
 ;;00409-7761-13
 ;;9002226.02101,"1905,00409-7761-13 ",.02)
 ;;00409-7761-13
 ;;9002226.02101,"1905,00409-7793-13 ",.01)
 ;;00409-7793-13
 ;;9002226.02101,"1905,00409-7793-13 ",.02)
 ;;00409-7793-13
 ;;9002226.02101,"1905,00409-7793-52 ",.01)
 ;;00409-7793-52
 ;;9002226.02101,"1905,00409-7793-52 ",.02)
 ;;00409-7793-52
 ;;9002226.02101,"1905,00409-7793-62 ",.01)
 ;;00409-7793-62
 ;;9002226.02101,"1905,00409-7793-62 ",.02)
 ;;00409-7793-62
 ;;9002226.02101,"1905,00409-7794-52 ",.01)
 ;;00409-7794-52
 ;;9002226.02101,"1905,00409-7794-52 ",.02)
 ;;00409-7794-52
 ;;9002226.02101,"1905,00409-7794-62 ",.01)
 ;;00409-7794-62
 ;;9002226.02101,"1905,00409-7794-62 ",.02)
 ;;00409-7794-62
 ;;9002226.02101,"1905,00548-5601-00 ",.01)
 ;;00548-5601-00
 ;;9002226.02101,"1905,00548-5601-00 ",.02)
 ;;00548-5601-00
 ;;9002226.02101,"1905,00548-5602-00 ",.01)
 ;;00548-5602-00
 ;;9002226.02101,"1905,00548-5602-00 ",.02)
 ;;00548-5602-00
 ;;9002226.02101,"1905,00548-5603-00 ",.01)
 ;;00548-5603-00
 ;;9002226.02101,"1905,00548-5603-00 ",.02)
 ;;00548-5603-00
 ;;9002226.02101,"1905,00548-5604-00 ",.01)
 ;;00548-5604-00
 ;;9002226.02101,"1905,00548-5604-00 ",.02)
 ;;00548-5604-00
 ;;9002226.02101,"1905,00548-5605-00 ",.01)
 ;;00548-5605-00
 ;;9002226.02101,"1905,00548-5605-00 ",.02)
 ;;00548-5605-00
 ;;9002226.02101,"1905,00548-5606-00 ",.01)
 ;;00548-5606-00
 ;;9002226.02101,"1905,00548-5606-00 ",.02)
 ;;00548-5606-00
 ;;9002226.02101,"1905,00548-5607-00 ",.01)
 ;;00548-5607-00
 ;;9002226.02101,"1905,00548-5607-00 ",.02)
 ;;00548-5607-00
 ;;9002226.02101,"1905,00548-5631-00 ",.01)
 ;;00548-5631-00
 ;;9002226.02101,"1905,00548-5631-00 ",.02)
 ;;00548-5631-00
 ;;9002226.02101,"1905,00548-5632-00 ",.01)
 ;;00548-5632-00
 ;;9002226.02101,"1905,00548-5632-00 ",.02)
 ;;00548-5632-00
 ;;9002226.02101,"1905,00548-5633-00 ",.01)
 ;;00548-5633-00
 ;;9002226.02101,"1905,00548-5633-00 ",.02)
 ;;00548-5633-00
 ;;9002226.02101,"1905,00548-5634-00 ",.01)
 ;;00548-5634-00
 ;;9002226.02101,"1905,00548-5634-00 ",.02)
 ;;00548-5634-00
 ;;9002226.02101,"1905,00548-5635-00 ",.01)
 ;;00548-5635-00
 ;;9002226.02101,"1905,00548-5635-00 ",.02)
 ;;00548-5635-00
 ;;9002226.02101,"1905,00548-5636-00 ",.01)
 ;;00548-5636-00
 ;;9002226.02101,"1905,00548-5636-00 ",.02)
 ;;00548-5636-00
 ;;9002226.02101,"1905,00548-5637-00 ",.01)
 ;;00548-5637-00
 ;;9002226.02101,"1905,00548-5637-00 ",.02)
 ;;00548-5637-00
 ;;9002226.02101,"1905,00555-0831-02 ",.01)
 ;;00555-0831-02
 ;;9002226.02101,"1905,00555-0831-02 ",.02)
 ;;00555-0831-02
 ;;9002226.02101,"1905,00555-0831-05 ",.01)
 ;;00555-0831-05
 ;;9002226.02101,"1905,00555-0831-05 ",.02)
 ;;00555-0831-05
 ;;9002226.02101,"1905,00555-0832-02 ",.01)
 ;;00555-0832-02
 ;;9002226.02101,"1905,00555-0832-02 ",.02)
 ;;00555-0832-02
 ;;9002226.02101,"1905,00555-0832-05 ",.01)
 ;;00555-0832-05
 ;;9002226.02101,"1905,00555-0832-05 ",.02)
 ;;00555-0832-05
 ;;9002226.02101,"1905,00555-0833-02 ",.01)
 ;;00555-0833-02