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

BGP52B5.m

Go to the documentation of this file.
BGP52B5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"1813,00409-1281-33 ",.02)
 ;;00409-1281-33
 ;;9002226.02101,"1813,00409-1281-35 ",.01)
 ;;00409-1281-35
 ;;9002226.02101,"1813,00409-1281-35 ",.02)
 ;;00409-1281-35
 ;;9002226.02101,"1813,00409-1316-25 ",.01)
 ;;00409-1316-25
 ;;9002226.02101,"1813,00409-1316-25 ",.02)
 ;;00409-1316-25
 ;;9002226.02101,"1813,00409-1316-32 ",.01)
 ;;00409-1316-32
 ;;9002226.02101,"1813,00409-1316-32 ",.02)
 ;;00409-1316-32
 ;;9002226.02101,"1813,00409-1316-66 ",.01)
 ;;00409-1316-66
 ;;9002226.02101,"1813,00409-1316-66 ",.02)
 ;;00409-1316-66
 ;;9002226.02101,"1813,00409-1402-12 ",.01)
 ;;00409-1402-12
 ;;9002226.02101,"1813,00409-1402-12 ",.02)
 ;;00409-1402-12
 ;;9002226.02101,"1813,00409-1402-31 ",.01)
 ;;00409-1402-31
 ;;9002226.02101,"1813,00409-1402-31 ",.02)
 ;;00409-1402-31
 ;;9002226.02101,"1813,00409-2581-02 ",.01)
 ;;00409-2581-02
 ;;9002226.02101,"1813,00409-2581-02 ",.02)
 ;;00409-2581-02
 ;;9002226.02101,"1813,00409-2584-02 ",.01)
 ;;00409-2584-02
 ;;9002226.02101,"1813,00409-2584-02 ",.02)
 ;;00409-2584-02
 ;;9002226.02101,"1813,00409-2720-01 ",.01)
 ;;00409-2720-01
 ;;9002226.02101,"1813,00409-2720-01 ",.02)
 ;;00409-2720-01
 ;;9002226.02101,"1813,00409-2720-02 ",.01)
 ;;00409-2720-02
 ;;9002226.02101,"1813,00409-2720-02 ",.02)
 ;;00409-2720-02
 ;;9002226.02101,"1813,00409-2720-03 ",.01)
 ;;00409-2720-03
 ;;9002226.02101,"1813,00409-2720-03 ",.02)
 ;;00409-2720-03
 ;;9002226.02101,"1813,00409-2721-01 ",.01)
 ;;00409-2721-01
 ;;9002226.02101,"1813,00409-2721-01 ",.02)
 ;;00409-2721-01
 ;;9002226.02101,"1813,00409-2723-01 ",.01)
 ;;00409-2723-01
 ;;9002226.02101,"1813,00409-2723-01 ",.02)
 ;;00409-2723-01
 ;;9002226.02101,"1813,00409-2723-02 ",.01)
 ;;00409-2723-02
 ;;9002226.02101,"1813,00409-2723-02 ",.02)
 ;;00409-2723-02
 ;;9002226.02101,"1813,00409-7620-03 ",.01)
 ;;00409-7620-03
 ;;9002226.02101,"1813,00409-7620-03 ",.02)
 ;;00409-7620-03
 ;;9002226.02101,"1813,00409-7620-59 ",.01)
 ;;00409-7620-59
 ;;9002226.02101,"1813,00409-7620-59 ",.02)
 ;;00409-7620-59
 ;;9002226.02101,"1813,00409-7650-62 ",.01)
 ;;00409-7650-62
 ;;9002226.02101,"1813,00409-7650-62 ",.02)
 ;;00409-7650-62
 ;;9002226.02101,"1813,00409-7651-03 ",.01)
 ;;00409-7651-03
 ;;9002226.02101,"1813,00409-7651-03 ",.02)
 ;;00409-7651-03
 ;;9002226.02101,"1813,00409-7651-62 ",.01)
 ;;00409-7651-62
 ;;9002226.02101,"1813,00409-7651-62 ",.02)
 ;;00409-7651-62
 ;;9002226.02101,"1813,00409-7760-03 ",.01)
 ;;00409-7760-03
 ;;9002226.02101,"1813,00409-7760-03 ",.02)
 ;;00409-7760-03
 ;;9002226.02101,"1813,00409-7761-03 ",.01)
 ;;00409-7761-03
 ;;9002226.02101,"1813,00409-7761-03 ",.02)
 ;;00409-7761-03
 ;;9002226.02101,"1813,00409-7793-23 ",.01)
 ;;00409-7793-23
 ;;9002226.02101,"1813,00409-7793-23 ",.02)
 ;;00409-7793-23
 ;;9002226.02101,"1813,00409-7793-62 ",.01)
 ;;00409-7793-62
 ;;9002226.02101,"1813,00409-7793-62 ",.02)
 ;;00409-7793-62
 ;;9002226.02101,"1813,00409-7794-62 ",.01)
 ;;00409-7794-62
 ;;9002226.02101,"1813,00409-7794-62 ",.02)
 ;;00409-7794-62
 ;;9002226.02101,"1813,00548-5601-00 ",.01)
 ;;00548-5601-00
 ;;9002226.02101,"1813,00548-5601-00 ",.02)
 ;;00548-5601-00
 ;;9002226.02101,"1813,00548-5602-00 ",.01)
 ;;00548-5602-00
 ;;9002226.02101,"1813,00548-5602-00 ",.02)
 ;;00548-5602-00
 ;;9002226.02101,"1813,00548-5603-00 ",.01)
 ;;00548-5603-00
 ;;9002226.02101,"1813,00548-5603-00 ",.02)
 ;;00548-5603-00
 ;;9002226.02101,"1813,00548-5604-00 ",.01)
 ;;00548-5604-00
 ;;9002226.02101,"1813,00548-5604-00 ",.02)
 ;;00548-5604-00
 ;;9002226.02101,"1813,00548-5605-00 ",.01)
 ;;00548-5605-00
 ;;9002226.02101,"1813,00548-5605-00 ",.02)
 ;;00548-5605-00
 ;;9002226.02101,"1813,00548-5606-00 ",.01)
 ;;00548-5606-00
 ;;9002226.02101,"1813,00548-5606-00 ",.02)
 ;;00548-5606-00
 ;;9002226.02101,"1813,00548-5607-00 ",.01)
 ;;00548-5607-00
 ;;9002226.02101,"1813,00548-5607-00 ",.02)
 ;;00548-5607-00
 ;;9002226.02101,"1813,00548-5631-00 ",.01)
 ;;00548-5631-00
 ;;9002226.02101,"1813,00548-5631-00 ",.02)
 ;;00548-5631-00
 ;;9002226.02101,"1813,00548-5632-00 ",.01)
 ;;00548-5632-00
 ;;9002226.02101,"1813,00548-5632-00 ",.02)
 ;;00548-5632-00
 ;;9002226.02101,"1813,00548-5633-00 ",.01)
 ;;00548-5633-00
 ;;9002226.02101,"1813,00548-5633-00 ",.02)
 ;;00548-5633-00
 ;;9002226.02101,"1813,00548-5634-00 ",.01)
 ;;00548-5634-00
 ;;9002226.02101,"1813,00548-5634-00 ",.02)
 ;;00548-5634-00
 ;;9002226.02101,"1813,00548-5635-00 ",.01)
 ;;00548-5635-00
 ;;9002226.02101,"1813,00548-5635-00 ",.02)
 ;;00548-5635-00
 ;;9002226.02101,"1813,00548-5636-00 ",.01)
 ;;00548-5636-00
 ;;9002226.02101,"1813,00548-5636-00 ",.02)
 ;;00548-5636-00
 ;;9002226.02101,"1813,00548-5637-00 ",.01)
 ;;00548-5637-00
 ;;9002226.02101,"1813,00548-5637-00 ",.02)
 ;;00548-5637-00
 ;;9002226.02101,"1813,00555-0831-02 ",.01)
 ;;00555-0831-02
 ;;9002226.02101,"1813,00555-0831-02 ",.02)
 ;;00555-0831-02
 ;;9002226.02101,"1813,00555-0831-05 ",.01)
 ;;00555-0831-05
 ;;9002226.02101,"1813,00555-0831-05 ",.02)
 ;;00555-0831-05
 ;;9002226.02101,"1813,00555-0832-02 ",.01)
 ;;00555-0832-02
 ;;9002226.02101,"1813,00555-0832-02 ",.02)
 ;;00555-0832-02
 ;;9002226.02101,"1813,00555-0832-05 ",.01)
 ;;00555-0832-05
 ;;9002226.02101,"1813,00555-0832-05 ",.02)
 ;;00555-0832-05
 ;;9002226.02101,"1813,00555-0833-02 ",.01)
 ;;00555-0833-02
 ;;9002226.02101,"1813,00555-0833-02 ",.02)
 ;;00555-0833-02
 ;;9002226.02101,"1813,00555-0833-05 ",.01)
 ;;00555-0833-05
 ;;9002226.02101,"1813,00555-0833-05 ",.02)
 ;;00555-0833-05
 ;;9002226.02101,"1813,00555-0834-02 ",.01)
 ;;00555-0834-02
 ;;9002226.02101,"1813,00555-0834-02 ",.02)
 ;;00555-0834-02
 ;;9002226.02101,"1813,00555-0835-02 ",.01)
 ;;00555-0835-02
 ;;9002226.02101,"1813,00555-0835-02 ",.02)
 ;;00555-0835-02
 ;;9002226.02101,"1813,00555-0869-02 ",.01)
 ;;00555-0869-02
 ;;9002226.02101,"1813,00555-0869-02 ",.02)
 ;;00555-0869-02
 ;;9002226.02101,"1813,00555-0869-05 ",.01)
 ;;00555-0869-05
 ;;9002226.02101,"1813,00555-0869-05 ",.02)
 ;;00555-0869-05
 ;;9002226.02101,"1813,00555-0874-02 ",.01)
 ;;00555-0874-02
 ;;9002226.02101,"1813,00555-0874-02 ",.02)
 ;;00555-0874-02
 ;;9002226.02101,"1813,00555-0874-05 ",.01)
 ;;00555-0874-05
 ;;9002226.02101,"1813,00555-0874-05 ",.02)
 ;;00555-0874-05
 ;;9002226.02101,"1813,00555-0925-02 ",.01)
 ;;00555-0925-02
 ;;9002226.02101,"1813,00555-0925-02 ",.02)
 ;;00555-0925-02
 ;;9002226.02101,"1813,00555-0926-02 ",.01)
 ;;00555-0926-02
 ;;9002226.02101,"1813,00555-0926-02 ",.02)
 ;;00555-0926-02
 ;;9002226.02101,"1813,00590-0324-35 ",.01)
 ;;00590-0324-35
 ;;9002226.02101,"1813,00590-0324-35 ",.02)
 ;;00590-0324-35
 ;;9002226.02101,"1813,00590-0324-96 ",.01)
 ;;00590-0324-96
 ;;9002226.02101,"1813,00590-0324-96 ",.02)
 ;;00590-0324-96
 ;;9002226.02101,"1813,00641-0391-12 ",.01)
 ;;00641-0391-12
 ;;9002226.02101,"1813,00641-0391-12 ",.02)
 ;;00641-0391-12
 ;;9002226.02101,"1813,00641-0391-37 ",.01)
 ;;00641-0391-37
 ;;9002226.02101,"1813,00641-0391-37 ",.02)
 ;;00641-0391-37
 ;;9002226.02101,"1813,00641-0400-12 ",.01)
 ;;00641-0400-12
 ;;9002226.02101,"1813,00641-0400-12 ",.02)
 ;;00641-0400-12
 ;;9002226.02101,"1813,00641-0400-37 ",.01)
 ;;00641-0400-37
 ;;9002226.02101,"1813,00641-0400-37 ",.02)
 ;;00641-0400-37
 ;;9002226.02101,"1813,00641-0410-12 ",.01)
 ;;00641-0410-12
 ;;9002226.02101,"1813,00641-0410-12 ",.02)
 ;;00641-0410-12
 ;;9002226.02101,"1813,00641-0410-37 ",.01)
 ;;00641-0410-37
 ;;9002226.02101,"1813,00641-0410-37 ",.02)
 ;;00641-0410-37
 ;;9002226.02101,"1813,00641-2450-30 ",.01)
 ;;00641-2450-30
 ;;9002226.02101,"1813,00641-2450-30 ",.02)
 ;;00641-2450-30
 ;;9002226.02101,"1813,00641-2450-55 ",.01)
 ;;00641-2450-55
 ;;9002226.02101,"1813,00641-2450-55 ",.02)
 ;;00641-2450-55
 ;;9002226.02101,"1813,00641-2460-30 ",.01)
 ;;00641-2460-30
 ;;9002226.02101,"1813,00641-2460-30 ",.02)
 ;;00641-2460-30
 ;;9002226.02101,"1813,00641-2460-55 ",.01)
 ;;00641-2460-55
 ;;9002226.02101,"1813,00641-2460-55 ",.02)
 ;;00641-2460-55
 ;;9002226.02101,"1813,00781-3119-01 ",.01)
 ;;00781-3119-01
 ;;9002226.02101,"1813,00781-3119-01 ",.02)
 ;;00781-3119-01
 ;;9002226.02101,"1813,00781-3119-02 ",.01)
 ;;00781-3119-02
 ;;9002226.02101,"1813,00781-3119-02 ",.02)
 ;;00781-3119-02
 ;;9002226.02101,"1813,00781-3119-03 ",.01)
 ;;00781-3119-03
 ;;9002226.02101,"1813,00781-3119-03 ",.02)
 ;;00781-3119-03
 ;;9002226.02101,"1813,00781-3119-04 ",.01)
 ;;00781-3119-04
 ;;9002226.02101,"1813,00781-3119-04 ",.02)
 ;;00781-3119-04
 ;;9002226.02101,"1813,00781-3119-05 ",.01)
 ;;00781-3119-05
 ;;9002226.02101,"1813,00781-3119-05 ",.02)
 ;;00781-3119-05
 ;;9002226.02101,"1813,00781-3119-63 ",.01)
 ;;00781-3119-63
 ;;9002226.02101,"1813,00781-3119-63 ",.02)
 ;;00781-3119-63
 ;;9002226.02101,"1813,00781-3119-64 ",.01)
 ;;00781-3119-64
 ;;9002226.02101,"1813,00781-3119-64 ",.02)
 ;;00781-3119-64
 ;;9002226.02101,"1813,00781-3119-66 ",.01)
 ;;00781-3119-66
 ;;9002226.02101,"1813,00781-3119-66 ",.02)
 ;;00781-3119-66
 ;;9002226.02101,"1813,00781-3119-68 ",.01)
 ;;00781-3119-68
 ;;9002226.02101,"1813,00781-3119-68 ",.02)
 ;;00781-3119-68
 ;;9002226.02101,"1813,00781-3119-69 ",.01)
 ;;00781-3119-69
 ;;9002226.02101,"1813,00781-3119-69 ",.02)
 ;;00781-3119-69
 ;;9002226.02101,"1813,00781-3121-04 ",.01)
 ;;00781-3121-04
 ;;9002226.02101,"1813,00781-3121-04 ",.02)
 ;;00781-3121-04
 ;;9002226.02101,"1813,00781-3121-05 ",.01)
 ;;00781-3121-05
 ;;9002226.02101,"1813,00781-3121-05 ",.02)
 ;;00781-3121-05
 ;;9002226.02101,"1813,00781-3121-68 ",.01)
 ;;00781-3121-68
 ;;9002226.02101,"1813,00781-3121-68 ",.02)
 ;;00781-3121-68
 ;;9002226.02101,"1813,00781-3121-69 ",.01)
 ;;00781-3121-69
 ;;9002226.02101,"1813,00781-3121-69 ",.02)
 ;;00781-3121-69
 ;;9002226.02101,"1813,00781-3122-93 ",.01)
 ;;00781-3122-93
 ;;9002226.02101,"1813,00781-3122-93 ",.02)
 ;;00781-3122-93
 ;;9002226.02101,"1813,00781-3133-01 ",.01)
 ;;00781-3133-01
 ;;9002226.02101,"1813,00781-3133-01 ",.02)
 ;;00781-3133-01
 ;;9002226.02101,"1813,00781-3133-63 ",.01)
 ;;00781-3133-63
 ;;9002226.02101,"1813,00781-3133-63 ",.02)
 ;;00781-3133-63
 ;;9002226.02101,"1813,00781-3224-02 ",.01)
 ;;00781-3224-02
 ;;9002226.02101,"1813,00781-3224-02 ",.02)
 ;;00781-3224-02
 ;;9002226.02101,"1813,00781-3224-64 ",.01)
 ;;00781-3224-64
 ;;9002226.02101,"1813,00781-3224-64 ",.02)
 ;;00781-3224-64
 ;;9002226.02101,"1813,00781-3356-03 ",.01)
 ;;00781-3356-03
 ;;9002226.02101,"1813,00781-3356-03 ",.02)
 ;;00781-3356-03
 ;;9002226.02101,"1813,00781-3356-66 ",.01)
 ;;00781-3356-66
 ;;9002226.02101,"1813,00781-3356-66 ",.02)
 ;;00781-3356-66
 ;;9002226.02101,"1813,00781-3428-04 ",.01)
 ;;00781-3428-04
 ;;9002226.02101,"1813,00781-3428-04 ",.02)
 ;;00781-3428-04
 ;;9002226.02101,"1813,00781-3428-68 ",.01)
 ;;00781-3428-68
 ;;9002226.02101,"1813,00781-3428-68 ",.02)
 ;;00781-3428-68
 ;;9002226.02101,"1813,00781-3500-05 ",.01)
 ;;00781-3500-05
 ;;9002226.02101,"1813,00781-3500-05 ",.02)
 ;;00781-3500-05
 ;;9002226.02101,"1813,00781-3500-69 ",.01)
 ;;00781-3500-69
 ;;9002226.02101,"1813,00781-3500-69 ",.02)
 ;;00781-3500-69
 ;;9002226.02101,"1813,00781-3612-04 ",.01)
 ;;00781-3612-04
 ;;9002226.02101,"1813,00781-3612-04 ",.02)
 ;;00781-3612-04
 ;;9002226.02101,"1813,00781-3612-68 ",.01)
 ;;00781-3612-68
 ;;9002226.02101,"1813,00781-3612-68 ",.02)
 ;;00781-3612-68
 ;;9002226.02101,"1813,00781-3655-05 ",.01)
 ;;00781-3655-05
 ;;9002226.02101,"1813,00781-3655-05 ",.02)
 ;;00781-3655-05
 ;;9002226.02101,"1813,00781-3655-69 ",.01)
 ;;00781-3655-69
 ;;9002226.02101,"1813,00781-3655-69 ",.02)
 ;;00781-3655-69
 ;;9002226.02101,"1813,00832-1211-00 ",.01)
 ;;00832-1211-00
 ;;9002226.02101,"1813,00832-1211-00 ",.02)
 ;;00832-1211-00
 ;;9002226.02101,"1813,00832-1211-01 ",.01)
 ;;00832-1211-01
 ;;9002226.02101,"1813,00832-1211-01 ",.02)
 ;;00832-1211-01
 ;;9002226.02101,"1813,00832-1211-10 ",.01)
 ;;00832-1211-10
 ;;9002226.02101,"1813,00832-1211-10 ",.02)
 ;;00832-1211-10
 ;;9002226.02101,"1813,00832-1211-89 ",.01)
 ;;00832-1211-89
 ;;9002226.02101,"1813,00832-1211-89 ",.02)
 ;;00832-1211-89
 ;;9002226.02101,"1813,00832-1212-00 ",.01)
 ;;00832-1212-00
 ;;9002226.02101,"1813,00832-1212-00 ",.02)
 ;;00832-1212-00
 ;;9002226.02101,"1813,00832-1212-01 ",.01)
 ;;00832-1212-01
 ;;9002226.02101,"1813,00832-1212-01 ",.02)
 ;;00832-1212-01
 ;;9002226.02101,"1813,00832-1212-10 ",.01)
 ;;00832-1212-10
 ;;9002226.02101,"1813,00832-1212-10 ",.02)
 ;;00832-1212-10
 ;;9002226.02101,"1813,00832-1212-89 ",.01)
 ;;00832-1212-89
 ;;9002226.02101,"1813,00832-1212-89 ",.02)
 ;;00832-1212-89
 ;;9002226.02101,"1813,00832-1213-00 ",.01)
 ;;00832-1213-00
 ;;9002226.02101,"1813,00832-1213-00 ",.02)
 ;;00832-1213-00
 ;;9002226.02101,"1813,00832-1213-01 ",.01)
 ;;00832-1213-01
 ;;9002226.02101,"1813,00832-1213-01 ",.02)
 ;;00832-1213-01
 ;;9002226.02101,"1813,00832-1213-10 ",.01)
 ;;00832-1213-10
 ;;9002226.02101,"1813,00832-1213-10 ",.02)
 ;;00832-1213-10
 ;;9002226.02101,"1813,00832-1213-89 ",.01)
 ;;00832-1213-89
 ;;9002226.02101,"1813,00832-1213-89 ",.02)
 ;;00832-1213-89
 ;;9002226.02101,"1813,00832-1214-00 ",.01)
 ;;00832-1214-00
 ;;9002226.02101,"1813,00832-1214-00 ",.02)
 ;;00832-1214-00
 ;;9002226.02101,"1813,00832-1214-01 ",.01)
 ;;00832-1214-01
 ;;9002226.02101,"1813,00832-1214-01 ",.02)
 ;;00832-1214-01
 ;;9002226.02101,"1813,00832-1214-10 ",.01)
 ;;00832-1214-10
 ;;9002226.02101,"1813,00832-1214-10 ",.02)
 ;;00832-1214-10
 ;;9002226.02101,"1813,00832-1214-89 ",.01)
 ;;00832-1214-89
 ;;9002226.02101,"1813,00832-1214-89 ",.02)
 ;;00832-1214-89