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

BGP72G6.m

Go to the documentation of this file.
  1. BGP72G6 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1905,00409-1152-78 ",.01)
  1. ;;00409-1152-78
  1. ;;9002226.02101,"1905,00409-1152-78 ",.02)
  1. ;;00409-1152-78
  1. ;;9002226.02101,"1905,00409-1280-31 ",.01)
  1. ;;00409-1280-31
  1. ;;9002226.02101,"1905,00409-1280-31 ",.02)
  1. ;;00409-1280-31
  1. ;;9002226.02101,"1905,00409-1280-32 ",.01)
  1. ;;00409-1280-32
  1. ;;9002226.02101,"1905,00409-1280-32 ",.02)
  1. ;;00409-1280-32
  1. ;;9002226.02101,"1905,00409-1280-33 ",.01)
  1. ;;00409-1280-33
  1. ;;9002226.02101,"1905,00409-1280-33 ",.02)
  1. ;;00409-1280-33
  1. ;;9002226.02101,"1905,00409-1280-35 ",.01)
  1. ;;00409-1280-35
  1. ;;9002226.02101,"1905,00409-1280-35 ",.02)
  1. ;;00409-1280-35
  1. ;;9002226.02101,"1905,00409-1281-31 ",.01)
  1. ;;00409-1281-31
  1. ;;9002226.02101,"1905,00409-1281-31 ",.02)
  1. ;;00409-1281-31
  1. ;;9002226.02101,"1905,00409-1281-32 ",.01)
  1. ;;00409-1281-32
  1. ;;9002226.02101,"1905,00409-1281-32 ",.02)
  1. ;;00409-1281-32
  1. ;;9002226.02101,"1905,00409-1281-33 ",.01)
  1. ;;00409-1281-33
  1. ;;9002226.02101,"1905,00409-1281-33 ",.02)
  1. ;;00409-1281-33
  1. ;;9002226.02101,"1905,00409-1281-35 ",.01)
  1. ;;00409-1281-35
  1. ;;9002226.02101,"1905,00409-1281-35 ",.02)
  1. ;;00409-1281-35
  1. ;;9002226.02101,"1905,00409-1316-25 ",.01)
  1. ;;00409-1316-25
  1. ;;9002226.02101,"1905,00409-1316-25 ",.02)
  1. ;;00409-1316-25
  1. ;;9002226.02101,"1905,00409-1316-32 ",.01)
  1. ;;00409-1316-32
  1. ;;9002226.02101,"1905,00409-1316-32 ",.02)
  1. ;;00409-1316-32
  1. ;;9002226.02101,"1905,00409-1316-66 ",.01)
  1. ;;00409-1316-66
  1. ;;9002226.02101,"1905,00409-1316-66 ",.02)
  1. ;;00409-1316-66
  1. ;;9002226.02101,"1905,00409-1402-12 ",.01)
  1. ;;00409-1402-12
  1. ;;9002226.02101,"1905,00409-1402-12 ",.02)
  1. ;;00409-1402-12
  1. ;;9002226.02101,"1905,00409-1402-31 ",.01)
  1. ;;00409-1402-31
  1. ;;9002226.02101,"1905,00409-1402-31 ",.02)
  1. ;;00409-1402-31
  1. ;;9002226.02101,"1905,00409-2581-02 ",.01)
  1. ;;00409-2581-02
  1. ;;9002226.02101,"1905,00409-2581-02 ",.02)
  1. ;;00409-2581-02
  1. ;;9002226.02101,"1905,00409-2584-02 ",.01)
  1. ;;00409-2584-02
  1. ;;9002226.02101,"1905,00409-2584-02 ",.02)
  1. ;;00409-2584-02
  1. ;;9002226.02101,"1905,00409-2720-01 ",.01)
  1. ;;00409-2720-01
  1. ;;9002226.02101,"1905,00409-2720-01 ",.02)
  1. ;;00409-2720-01
  1. ;;9002226.02101,"1905,00409-2720-02 ",.01)
  1. ;;00409-2720-02
  1. ;;9002226.02101,"1905,00409-2720-02 ",.02)
  1. ;;00409-2720-02
  1. ;;9002226.02101,"1905,00409-2720-03 ",.01)
  1. ;;00409-2720-03
  1. ;;9002226.02101,"1905,00409-2720-03 ",.02)
  1. ;;00409-2720-03
  1. ;;9002226.02101,"1905,00409-2721-01 ",.01)
  1. ;;00409-2721-01
  1. ;;9002226.02101,"1905,00409-2721-01 ",.02)
  1. ;;00409-2721-01
  1. ;;9002226.02101,"1905,00409-2723-01 ",.01)
  1. ;;00409-2723-01
  1. ;;9002226.02101,"1905,00409-2723-01 ",.02)
  1. ;;00409-2723-01
  1. ;;9002226.02101,"1905,00409-2723-02 ",.01)
  1. ;;00409-2723-02
  1. ;;9002226.02101,"1905,00409-2723-02 ",.02)
  1. ;;00409-2723-02
  1. ;;9002226.02101,"1905,00409-7620-03 ",.01)
  1. ;;00409-7620-03
  1. ;;9002226.02101,"1905,00409-7620-03 ",.02)
  1. ;;00409-7620-03
  1. ;;9002226.02101,"1905,00409-7620-13 ",.01)
  1. ;;00409-7620-13
  1. ;;9002226.02101,"1905,00409-7620-13 ",.02)
  1. ;;00409-7620-13
  1. ;;9002226.02101,"1905,00409-7620-49 ",.01)
  1. ;;00409-7620-49
  1. ;;9002226.02101,"1905,00409-7620-49 ",.02)
  1. ;;00409-7620-49
  1. ;;9002226.02101,"1905,00409-7620-59 ",.01)
  1. ;;00409-7620-59
  1. ;;9002226.02101,"1905,00409-7620-59 ",.02)
  1. ;;00409-7620-59
  1. ;;9002226.02101,"1905,00409-7650-52 ",.01)
  1. ;;00409-7650-52
  1. ;;9002226.02101,"1905,00409-7650-52 ",.02)
  1. ;;00409-7650-52
  1. ;;9002226.02101,"1905,00409-7650-62 ",.01)
  1. ;;00409-7650-62
  1. ;;9002226.02101,"1905,00409-7650-62 ",.02)
  1. ;;00409-7650-62
  1. ;;9002226.02101,"1905,00409-7651-03 ",.01)
  1. ;;00409-7651-03
  1. ;;9002226.02101,"1905,00409-7651-03 ",.02)
  1. ;;00409-7651-03
  1. ;;9002226.02101,"1905,00409-7651-13 ",.01)
  1. ;;00409-7651-13
  1. ;;9002226.02101,"1905,00409-7651-13 ",.02)
  1. ;;00409-7651-13
  1. ;;9002226.02101,"1905,00409-7651-52 ",.01)
  1. ;;00409-7651-52
  1. ;;9002226.02101,"1905,00409-7651-52 ",.02)
  1. ;;00409-7651-52
  1. ;;9002226.02101,"1905,00409-7651-62 ",.01)
  1. ;;00409-7651-62
  1. ;;9002226.02101,"1905,00409-7651-62 ",.02)
  1. ;;00409-7651-62
  1. ;;9002226.02101,"1905,00409-7760-03 ",.01)
  1. ;;00409-7760-03
  1. ;;9002226.02101,"1905,00409-7760-03 ",.02)
  1. ;;00409-7760-03
  1. ;;9002226.02101,"1905,00409-7760-13 ",.01)
  1. ;;00409-7760-13
  1. ;;9002226.02101,"1905,00409-7760-13 ",.02)
  1. ;;00409-7760-13
  1. ;;9002226.02101,"1905,00409-7761-03 ",.01)
  1. ;;00409-7761-03
  1. ;;9002226.02101,"1905,00409-7761-03 ",.02)
  1. ;;00409-7761-03
  1. ;;9002226.02101,"1905,00409-7761-13 ",.01)
  1. ;;00409-7761-13
  1. ;;9002226.02101,"1905,00409-7761-13 ",.02)
  1. ;;00409-7761-13
  1. ;;9002226.02101,"1905,00409-7793-13 ",.01)
  1. ;;00409-7793-13
  1. ;;9002226.02101,"1905,00409-7793-13 ",.02)
  1. ;;00409-7793-13
  1. ;;9002226.02101,"1905,00409-7793-52 ",.01)
  1. ;;00409-7793-52
  1. ;;9002226.02101,"1905,00409-7793-52 ",.02)
  1. ;;00409-7793-52
  1. ;;9002226.02101,"1905,00409-7793-62 ",.01)
  1. ;;00409-7793-62
  1. ;;9002226.02101,"1905,00409-7793-62 ",.02)
  1. ;;00409-7793-62
  1. ;;9002226.02101,"1905,00409-7794-52 ",.01)
  1. ;;00409-7794-52
  1. ;;9002226.02101,"1905,00409-7794-52 ",.02)
  1. ;;00409-7794-52
  1. ;;9002226.02101,"1905,00409-7794-62 ",.01)
  1. ;;00409-7794-62
  1. ;;9002226.02101,"1905,00409-7794-62 ",.02)
  1. ;;00409-7794-62
  1. ;;9002226.02101,"1905,00548-5601-00 ",.01)
  1. ;;00548-5601-00
  1. ;;9002226.02101,"1905,00548-5601-00 ",.02)
  1. ;;00548-5601-00
  1. ;;9002226.02101,"1905,00548-5602-00 ",.01)
  1. ;;00548-5602-00
  1. ;;9002226.02101,"1905,00548-5602-00 ",.02)
  1. ;;00548-5602-00
  1. ;;9002226.02101,"1905,00548-5603-00 ",.01)
  1. ;;00548-5603-00
  1. ;;9002226.02101,"1905,00548-5603-00 ",.02)
  1. ;;00548-5603-00
  1. ;;9002226.02101,"1905,00548-5604-00 ",.01)
  1. ;;00548-5604-00
  1. ;;9002226.02101,"1905,00548-5604-00 ",.02)
  1. ;;00548-5604-00
  1. ;;9002226.02101,"1905,00548-5605-00 ",.01)
  1. ;;00548-5605-00
  1. ;;9002226.02101,"1905,00548-5605-00 ",.02)
  1. ;;00548-5605-00
  1. ;;9002226.02101,"1905,00548-5606-00 ",.01)
  1. ;;00548-5606-00
  1. ;;9002226.02101,"1905,00548-5606-00 ",.02)
  1. ;;00548-5606-00
  1. ;;9002226.02101,"1905,00548-5607-00 ",.01)
  1. ;;00548-5607-00
  1. ;;9002226.02101,"1905,00548-5607-00 ",.02)
  1. ;;00548-5607-00
  1. ;;9002226.02101,"1905,00548-5631-00 ",.01)
  1. ;;00548-5631-00
  1. ;;9002226.02101,"1905,00548-5631-00 ",.02)
  1. ;;00548-5631-00
  1. ;;9002226.02101,"1905,00548-5632-00 ",.01)
  1. ;;00548-5632-00
  1. ;;9002226.02101,"1905,00548-5632-00 ",.02)
  1. ;;00548-5632-00
  1. ;;9002226.02101,"1905,00548-5633-00 ",.01)
  1. ;;00548-5633-00
  1. ;;9002226.02101,"1905,00548-5633-00 ",.02)
  1. ;;00548-5633-00
  1. ;;9002226.02101,"1905,00548-5634-00 ",.01)
  1. ;;00548-5634-00
  1. ;;9002226.02101,"1905,00548-5634-00 ",.02)
  1. ;;00548-5634-00
  1. ;;9002226.02101,"1905,00548-5635-00 ",.01)
  1. ;;00548-5635-00
  1. ;;9002226.02101,"1905,00548-5635-00 ",.02)
  1. ;;00548-5635-00
  1. ;;9002226.02101,"1905,00548-5636-00 ",.01)
  1. ;;00548-5636-00
  1. ;;9002226.02101,"1905,00548-5636-00 ",.02)
  1. ;;00548-5636-00
  1. ;;9002226.02101,"1905,00548-5637-00 ",.01)
  1. ;;00548-5637-00
  1. ;;9002226.02101,"1905,00548-5637-00 ",.02)
  1. ;;00548-5637-00
  1. ;;9002226.02101,"1905,00555-0831-02 ",.01)
  1. ;;00555-0831-02
  1. ;;9002226.02101,"1905,00555-0831-02 ",.02)
  1. ;;00555-0831-02
  1. ;;9002226.02101,"1905,00555-0831-05 ",.01)
  1. ;;00555-0831-05
  1. ;;9002226.02101,"1905,00555-0831-05 ",.02)
  1. ;;00555-0831-05
  1. ;;9002226.02101,"1905,00555-0832-02 ",.01)
  1. ;;00555-0832-02
  1. ;;9002226.02101,"1905,00555-0832-02 ",.02)
  1. ;;00555-0832-02
  1. ;;9002226.02101,"1905,00555-0832-05 ",.01)
  1. ;;00555-0832-05
  1. ;;9002226.02101,"1905,00555-0832-05 ",.02)
  1. ;;00555-0832-05
  1. ;;9002226.02101,"1905,00555-0833-02 ",.01)
  1. ;;00555-0833-02
  1. ;;9002226.02101,"1905,00555-0833-02 ",.02)
  1. ;;00555-0833-02
  1. ;;9002226.02101,"1905,00555-0833-05 ",.01)
  1. ;;00555-0833-05
  1. ;;9002226.02101,"1905,00555-0833-05 ",.02)
  1. ;;00555-0833-05
  1. ;;9002226.02101,"1905,00555-0834-02 ",.01)
  1. ;;00555-0834-02
  1. ;;9002226.02101,"1905,00555-0834-02 ",.02)
  1. ;;00555-0834-02
  1. ;;9002226.02101,"1905,00555-0835-02 ",.01)
  1. ;;00555-0835-02
  1. ;;9002226.02101,"1905,00555-0835-02 ",.02)
  1. ;;00555-0835-02
  1. ;;9002226.02101,"1905,00555-0869-02 ",.01)
  1. ;;00555-0869-02
  1. ;;9002226.02101,"1905,00555-0869-02 ",.02)
  1. ;;00555-0869-02
  1. ;;9002226.02101,"1905,00555-0869-05 ",.01)
  1. ;;00555-0869-05
  1. ;;9002226.02101,"1905,00555-0869-05 ",.02)
  1. ;;00555-0869-05
  1. ;;9002226.02101,"1905,00555-0874-02 ",.01)
  1. ;;00555-0874-02
  1. ;;9002226.02101,"1905,00555-0874-02 ",.02)
  1. ;;00555-0874-02
  1. ;;9002226.02101,"1905,00555-0874-05 ",.01)
  1. ;;00555-0874-05
  1. ;;9002226.02101,"1905,00555-0874-05 ",.02)
  1. ;;00555-0874-05
  1. ;;9002226.02101,"1905,00555-0925-02 ",.01)
  1. ;;00555-0925-02
  1. ;;9002226.02101,"1905,00555-0925-02 ",.02)
  1. ;;00555-0925-02
  1. ;;9002226.02101,"1905,00555-0926-02 ",.01)
  1. ;;00555-0926-02
  1. ;;9002226.02101,"1905,00555-0926-02 ",.02)
  1. ;;00555-0926-02
  1. ;;9002226.02101,"1905,00590-0324-35 ",.01)
  1. ;;00590-0324-35
  1. ;;9002226.02101,"1905,00590-0324-35 ",.02)
  1. ;;00590-0324-35
  1. ;;9002226.02101,"1905,00590-0324-96 ",.01)
  1. ;;00590-0324-96
  1. ;;9002226.02101,"1905,00590-0324-96 ",.02)
  1. ;;00590-0324-96
  1. ;;9002226.02101,"1905,00641-0391-12 ",.01)
  1. ;;00641-0391-12
  1. ;;9002226.02101,"1905,00641-0391-12 ",.02)
  1. ;;00641-0391-12
  1. ;;9002226.02101,"1905,00641-0391-37 ",.01)
  1. ;;00641-0391-37
  1. ;;9002226.02101,"1905,00641-0391-37 ",.02)
  1. ;;00641-0391-37
  1. ;;9002226.02101,"1905,00641-0400-12 ",.01)
  1. ;;00641-0400-12
  1. ;;9002226.02101,"1905,00641-0400-12 ",.02)
  1. ;;00641-0400-12
  1. ;;9002226.02101,"1905,00641-0400-37 ",.01)
  1. ;;00641-0400-37
  1. ;;9002226.02101,"1905,00641-0400-37 ",.02)
  1. ;;00641-0400-37
  1. ;;9002226.02101,"1905,00641-0410-12 ",.01)
  1. ;;00641-0410-12
  1. ;;9002226.02101,"1905,00641-0410-12 ",.02)
  1. ;;00641-0410-12
  1. ;;9002226.02101,"1905,00641-0410-37 ",.01)
  1. ;;00641-0410-37
  1. ;;9002226.02101,"1905,00641-0410-37 ",.02)
  1. ;;00641-0410-37
  1. ;;9002226.02101,"1905,00641-2450-30 ",.01)
  1. ;;00641-2450-30
  1. ;;9002226.02101,"1905,00641-2450-30 ",.02)
  1. ;;00641-2450-30
  1. ;;9002226.02101,"1905,00641-2450-55 ",.01)
  1. ;;00641-2450-55
  1. ;;9002226.02101,"1905,00641-2450-55 ",.02)
  1. ;;00641-2450-55
  1. ;;9002226.02101,"1905,00641-2460-30 ",.01)
  1. ;;00641-2460-30
  1. ;;9002226.02101,"1905,00641-2460-30 ",.02)
  1. ;;00641-2460-30
  1. ;;9002226.02101,"1905,00641-2460-55 ",.01)
  1. ;;00641-2460-55
  1. ;;9002226.02101,"1905,00641-2460-55 ",.02)
  1. ;;00641-2460-55
  1. ;;9002226.02101,"1905,00703-8510-21 ",.01)
  1. ;;00703-8510-21
  1. ;;9002226.02101,"1905,00703-8510-21 ",.02)
  1. ;;00703-8510-21
  1. ;;9002226.02101,"1905,00703-8510-23 ",.01)
  1. ;;00703-8510-23
  1. ;;9002226.02101,"1905,00703-8510-23 ",.02)
  1. ;;00703-8510-23
  1. ;;9002226.02101,"1905,00703-8530-21 ",.01)
  1. ;;00703-8530-21
  1. ;;9002226.02101,"1905,00703-8530-21 ",.02)
  1. ;;00703-8530-21
  1. ;;9002226.02101,"1905,00703-8530-23 ",.01)
  1. ;;00703-8530-23
  1. ;;9002226.02101,"1905,00703-8530-23 ",.02)
  1. ;;00703-8530-23
  1. ;;9002226.02101,"1905,00703-8540-21 ",.01)
  1. ;;00703-8540-21
  1. ;;9002226.02101,"1905,00703-8540-21 ",.02)
  1. ;;00703-8540-21
  1. ;;9002226.02101,"1905,00703-8540-23 ",.01)
  1. ;;00703-8540-23
  1. ;;9002226.02101,"1905,00703-8540-23 ",.02)
  1. ;;00703-8540-23
  1. ;;9002226.02101,"1905,00703-8560-21 ",.01)
  1. ;;00703-8560-21
  1. ;;9002226.02101,"1905,00703-8560-21 ",.02)
  1. ;;00703-8560-21
  1. ;;9002226.02101,"1905,00703-8560-23 ",.01)
  1. ;;00703-8560-23
  1. ;;9002226.02101,"1905,00703-8560-23 ",.02)
  1. ;;00703-8560-23
  1. ;;9002226.02101,"1905,00703-8580-21 ",.01)
  1. ;;00703-8580-21
  1. ;;9002226.02101,"1905,00703-8580-21 ",.02)
  1. ;;00703-8580-21
  1. ;;9002226.02101,"1905,00703-8580-23 ",.01)
  1. ;;00703-8580-23
  1. ;;9002226.02101,"1905,00703-8580-23 ",.02)
  1. ;;00703-8580-23
  1. ;;9002226.02101,"1905,00703-8610-21 ",.01)
  1. ;;00703-8610-21
  1. ;;9002226.02101,"1905,00703-8610-21 ",.02)
  1. ;;00703-8610-21
  1. ;;9002226.02101,"1905,00703-8610-23 ",.01)
  1. ;;00703-8610-23
  1. ;;9002226.02101,"1905,00703-8610-23 ",.02)
  1. ;;00703-8610-23
  1. ;;9002226.02101,"1905,00703-8680-21 ",.01)
  1. ;;00703-8680-21
  1. ;;9002226.02101,"1905,00703-8680-21 ",.02)
  1. ;;00703-8680-21
  1. ;;9002226.02101,"1905,00703-8680-23 ",.01)
  1. ;;00703-8680-23