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

BGP0ZD37.m

Go to the documentation of this file.
BGP0ZD37 ;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,"976,63874-0323-16 ",.02)
 ;;63874-0323-16
 ;;9002226.02101,"976,63874-0323-20 ",.01)
 ;;63874-0323-20
 ;;9002226.02101,"976,63874-0323-20 ",.02)
 ;;63874-0323-20
 ;;9002226.02101,"976,63874-0323-21 ",.01)
 ;;63874-0323-21
 ;;9002226.02101,"976,63874-0323-21 ",.02)
 ;;63874-0323-21
 ;;9002226.02101,"976,63874-0323-24 ",.01)
 ;;63874-0323-24
 ;;9002226.02101,"976,63874-0323-24 ",.02)
 ;;63874-0323-24
 ;;9002226.02101,"976,63874-0323-25 ",.01)
 ;;63874-0323-25
 ;;9002226.02101,"976,63874-0323-25 ",.02)
 ;;63874-0323-25
 ;;9002226.02101,"976,63874-0323-28 ",.01)
 ;;63874-0323-28
 ;;9002226.02101,"976,63874-0323-28 ",.02)
 ;;63874-0323-28
 ;;9002226.02101,"976,63874-0323-30 ",.01)
 ;;63874-0323-30
 ;;9002226.02101,"976,63874-0323-30 ",.02)
 ;;63874-0323-30
 ;;9002226.02101,"976,63874-0323-40 ",.01)
 ;;63874-0323-40
 ;;9002226.02101,"976,63874-0323-40 ",.02)
 ;;63874-0323-40
 ;;9002226.02101,"976,63874-0323-42 ",.01)
 ;;63874-0323-42
 ;;9002226.02101,"976,63874-0323-42 ",.02)
 ;;63874-0323-42
 ;;9002226.02101,"976,63874-0323-45 ",.01)
 ;;63874-0323-45
 ;;9002226.02101,"976,63874-0323-45 ",.02)
 ;;63874-0323-45
 ;;9002226.02101,"976,63874-0323-50 ",.01)
 ;;63874-0323-50
 ;;9002226.02101,"976,63874-0323-50 ",.02)
 ;;63874-0323-50
 ;;9002226.02101,"976,63874-0323-56 ",.01)
 ;;63874-0323-56
 ;;9002226.02101,"976,63874-0323-56 ",.02)
 ;;63874-0323-56
 ;;9002226.02101,"976,63874-0323-60 ",.01)
 ;;63874-0323-60
 ;;9002226.02101,"976,63874-0323-60 ",.02)
 ;;63874-0323-60
 ;;9002226.02101,"976,63874-0323-80 ",.01)
 ;;63874-0323-80
 ;;9002226.02101,"976,63874-0323-80 ",.02)
 ;;63874-0323-80
 ;;9002226.02101,"976,63874-0323-84 ",.01)
 ;;63874-0323-84
 ;;9002226.02101,"976,63874-0323-84 ",.02)
 ;;63874-0323-84
 ;;9002226.02101,"976,63874-0323-90 ",.01)
 ;;63874-0323-90
 ;;9002226.02101,"976,63874-0323-90 ",.02)
 ;;63874-0323-90
 ;;9002226.02101,"976,63874-0324-01 ",.01)
 ;;63874-0324-01
 ;;9002226.02101,"976,63874-0324-01 ",.02)
 ;;63874-0324-01
 ;;9002226.02101,"976,63874-0324-03 ",.01)
 ;;63874-0324-03
 ;;9002226.02101,"976,63874-0324-03 ",.02)
 ;;63874-0324-03
 ;;9002226.02101,"976,63874-0324-04 ",.01)
 ;;63874-0324-04
 ;;9002226.02101,"976,63874-0324-04 ",.02)
 ;;63874-0324-04
 ;;9002226.02101,"976,63874-0324-06 ",.01)
 ;;63874-0324-06
 ;;9002226.02101,"976,63874-0324-06 ",.02)
 ;;63874-0324-06
 ;;9002226.02101,"976,63874-0324-08 ",.01)
 ;;63874-0324-08
 ;;9002226.02101,"976,63874-0324-08 ",.02)
 ;;63874-0324-08
 ;;9002226.02101,"976,63874-0324-10 ",.01)
 ;;63874-0324-10
 ;;9002226.02101,"976,63874-0324-10 ",.02)
 ;;63874-0324-10
 ;;9002226.02101,"976,63874-0324-12 ",.01)
 ;;63874-0324-12
 ;;9002226.02101,"976,63874-0324-12 ",.02)
 ;;63874-0324-12
 ;;9002226.02101,"976,63874-0324-14 ",.01)
 ;;63874-0324-14
 ;;9002226.02101,"976,63874-0324-14 ",.02)
 ;;63874-0324-14
 ;;9002226.02101,"976,63874-0324-15 ",.01)
 ;;63874-0324-15
 ;;9002226.02101,"976,63874-0324-15 ",.02)
 ;;63874-0324-15
 ;;9002226.02101,"976,63874-0324-16 ",.01)
 ;;63874-0324-16
 ;;9002226.02101,"976,63874-0324-16 ",.02)
 ;;63874-0324-16
 ;;9002226.02101,"976,63874-0324-20 ",.01)
 ;;63874-0324-20
 ;;9002226.02101,"976,63874-0324-20 ",.02)
 ;;63874-0324-20
 ;;9002226.02101,"976,63874-0324-21 ",.01)
 ;;63874-0324-21
 ;;9002226.02101,"976,63874-0324-21 ",.02)
 ;;63874-0324-21
 ;;9002226.02101,"976,63874-0324-24 ",.01)
 ;;63874-0324-24
 ;;9002226.02101,"976,63874-0324-24 ",.02)
 ;;63874-0324-24
 ;;9002226.02101,"976,63874-0324-25 ",.01)
 ;;63874-0324-25
 ;;9002226.02101,"976,63874-0324-25 ",.02)
 ;;63874-0324-25
 ;;9002226.02101,"976,63874-0324-28 ",.01)
 ;;63874-0324-28
 ;;9002226.02101,"976,63874-0324-28 ",.02)
 ;;63874-0324-28
 ;;9002226.02101,"976,63874-0324-30 ",.01)
 ;;63874-0324-30
 ;;9002226.02101,"976,63874-0324-30 ",.02)
 ;;63874-0324-30
 ;;9002226.02101,"976,63874-0324-40 ",.01)
 ;;63874-0324-40
 ;;9002226.02101,"976,63874-0324-40 ",.02)
 ;;63874-0324-40
 ;;9002226.02101,"976,63874-0324-45 ",.01)
 ;;63874-0324-45
 ;;9002226.02101,"976,63874-0324-45 ",.02)
 ;;63874-0324-45
 ;;9002226.02101,"976,63874-0324-50 ",.01)
 ;;63874-0324-50
 ;;9002226.02101,"976,63874-0324-50 ",.02)
 ;;63874-0324-50
 ;;9002226.02101,"976,63874-0324-60 ",.01)
 ;;63874-0324-60
 ;;9002226.02101,"976,63874-0324-60 ",.02)
 ;;63874-0324-60
 ;;9002226.02101,"976,63874-0324-80 ",.01)
 ;;63874-0324-80
 ;;9002226.02101,"976,63874-0324-80 ",.02)
 ;;63874-0324-80
 ;;9002226.02101,"976,63874-0324-90 ",.01)
 ;;63874-0324-90
 ;;9002226.02101,"976,63874-0324-90 ",.02)
 ;;63874-0324-90
 ;;9002226.02101,"976,63874-0325-01 ",.01)
 ;;63874-0325-01
 ;;9002226.02101,"976,63874-0325-01 ",.02)
 ;;63874-0325-01
 ;;9002226.02101,"976,63874-0325-02 ",.01)
 ;;63874-0325-02
 ;;9002226.02101,"976,63874-0325-02 ",.02)
 ;;63874-0325-02
 ;;9002226.02101,"976,63874-0325-03 ",.01)
 ;;63874-0325-03
 ;;9002226.02101,"976,63874-0325-03 ",.02)
 ;;63874-0325-03
 ;;9002226.02101,"976,63874-0325-04 ",.01)
 ;;63874-0325-04
 ;;9002226.02101,"976,63874-0325-04 ",.02)
 ;;63874-0325-04
 ;;9002226.02101,"976,63874-0325-10 ",.01)
 ;;63874-0325-10
 ;;9002226.02101,"976,63874-0325-10 ",.02)
 ;;63874-0325-10
 ;;9002226.02101,"976,63874-0325-14 ",.01)
 ;;63874-0325-14
 ;;9002226.02101,"976,63874-0325-14 ",.02)
 ;;63874-0325-14
 ;;9002226.02101,"976,63874-0325-15 ",.01)
 ;;63874-0325-15
 ;;9002226.02101,"976,63874-0325-15 ",.02)
 ;;63874-0325-15
 ;;9002226.02101,"976,63874-0325-20 ",.01)
 ;;63874-0325-20
 ;;9002226.02101,"976,63874-0325-20 ",.02)
 ;;63874-0325-20
 ;;9002226.02101,"976,63874-0325-21 ",.01)
 ;;63874-0325-21
 ;;9002226.02101,"976,63874-0325-21 ",.02)
 ;;63874-0325-21
 ;;9002226.02101,"976,63874-0325-28 ",.01)
 ;;63874-0325-28
 ;;9002226.02101,"976,63874-0325-28 ",.02)
 ;;63874-0325-28
 ;;9002226.02101,"976,63874-0325-30 ",.01)
 ;;63874-0325-30
 ;;9002226.02101,"976,63874-0325-30 ",.02)
 ;;63874-0325-30
 ;;9002226.02101,"976,63874-0325-40 ",.01)
 ;;63874-0325-40
 ;;9002226.02101,"976,63874-0325-40 ",.02)
 ;;63874-0325-40
 ;;9002226.02101,"976,63874-0325-45 ",.01)
 ;;63874-0325-45
 ;;9002226.02101,"976,63874-0325-45 ",.02)
 ;;63874-0325-45
 ;;9002226.02101,"976,63874-0325-60 ",.01)
 ;;63874-0325-60
 ;;9002226.02101,"976,63874-0325-60 ",.02)
 ;;63874-0325-60
 ;;9002226.02101,"976,63874-0325-90 ",.01)
 ;;63874-0325-90
 ;;9002226.02101,"976,63874-0325-90 ",.02)
 ;;63874-0325-90
 ;;9002226.02101,"976,63874-0326-01 ",.01)
 ;;63874-0326-01
 ;;9002226.02101,"976,63874-0326-01 ",.02)
 ;;63874-0326-01
 ;;9002226.02101,"976,63874-0326-03 ",.01)
 ;;63874-0326-03
 ;;9002226.02101,"976,63874-0326-03 ",.02)
 ;;63874-0326-03
 ;;9002226.02101,"976,63874-0326-04 ",.01)
 ;;63874-0326-04
 ;;9002226.02101,"976,63874-0326-04 ",.02)
 ;;63874-0326-04
 ;;9002226.02101,"976,63874-0326-10 ",.01)
 ;;63874-0326-10
 ;;9002226.02101,"976,63874-0326-10 ",.02)
 ;;63874-0326-10
 ;;9002226.02101,"976,63874-0326-14 ",.01)
 ;;63874-0326-14
 ;;9002226.02101,"976,63874-0326-14 ",.02)
 ;;63874-0326-14
 ;;9002226.02101,"976,63874-0326-15 ",.01)
 ;;63874-0326-15
 ;;9002226.02101,"976,63874-0326-15 ",.02)
 ;;63874-0326-15
 ;;9002226.02101,"976,63874-0326-20 ",.01)
 ;;63874-0326-20
 ;;9002226.02101,"976,63874-0326-20 ",.02)
 ;;63874-0326-20
 ;;9002226.02101,"976,63874-0326-21 ",.01)
 ;;63874-0326-21
 ;;9002226.02101,"976,63874-0326-21 ",.02)
 ;;63874-0326-21
 ;;9002226.02101,"976,63874-0326-25 ",.01)
 ;;63874-0326-25
 ;;9002226.02101,"976,63874-0326-25 ",.02)
 ;;63874-0326-25
 ;;9002226.02101,"976,63874-0326-28 ",.01)
 ;;63874-0326-28
 ;;9002226.02101,"976,63874-0326-28 ",.02)
 ;;63874-0326-28
 ;;9002226.02101,"976,63874-0326-30 ",.01)
 ;;63874-0326-30
 ;;9002226.02101,"976,63874-0326-30 ",.02)
 ;;63874-0326-30
 ;;9002226.02101,"976,63874-0326-40 ",.01)
 ;;63874-0326-40
 ;;9002226.02101,"976,63874-0326-40 ",.02)
 ;;63874-0326-40
 ;;9002226.02101,"976,63874-0326-42 ",.01)
 ;;63874-0326-42
 ;;9002226.02101,"976,63874-0326-42 ",.02)
 ;;63874-0326-42
 ;;9002226.02101,"976,63874-0326-45 ",.01)
 ;;63874-0326-45
 ;;9002226.02101,"976,63874-0326-45 ",.02)
 ;;63874-0326-45
 ;;9002226.02101,"976,63874-0326-50 ",.01)
 ;;63874-0326-50
 ;;9002226.02101,"976,63874-0326-50 ",.02)
 ;;63874-0326-50
 ;;9002226.02101,"976,63874-0326-56 ",.01)
 ;;63874-0326-56
 ;;9002226.02101,"976,63874-0326-56 ",.02)
 ;;63874-0326-56
 ;;9002226.02101,"976,63874-0326-60 ",.01)
 ;;63874-0326-60
 ;;9002226.02101,"976,63874-0326-60 ",.02)
 ;;63874-0326-60
 ;;9002226.02101,"976,63874-0326-90 ",.01)
 ;;63874-0326-90
 ;;9002226.02101,"976,63874-0326-90 ",.02)
 ;;63874-0326-90
 ;;9002226.02101,"976,63874-0334-01 ",.01)
 ;;63874-0334-01
 ;;9002226.02101,"976,63874-0334-01 ",.02)
 ;;63874-0334-01
 ;;9002226.02101,"976,63874-0334-04 ",.01)
 ;;63874-0334-04
 ;;9002226.02101,"976,63874-0334-04 ",.02)
 ;;63874-0334-04
 ;;9002226.02101,"976,63874-0334-10 ",.01)
 ;;63874-0334-10
 ;;9002226.02101,"976,63874-0334-10 ",.02)
 ;;63874-0334-10
 ;;9002226.02101,"976,63874-0334-12 ",.01)
 ;;63874-0334-12
 ;;9002226.02101,"976,63874-0334-12 ",.02)
 ;;63874-0334-12
 ;;9002226.02101,"976,63874-0334-14 ",.01)
 ;;63874-0334-14
 ;;9002226.02101,"976,63874-0334-14 ",.02)
 ;;63874-0334-14
 ;;9002226.02101,"976,63874-0334-15 ",.01)
 ;;63874-0334-15
 ;;9002226.02101,"976,63874-0334-15 ",.02)
 ;;63874-0334-15
 ;;9002226.02101,"976,63874-0334-20 ",.01)
 ;;63874-0334-20
 ;;9002226.02101,"976,63874-0334-20 ",.02)
 ;;63874-0334-20
 ;;9002226.02101,"976,63874-0334-24 ",.01)
 ;;63874-0334-24
 ;;9002226.02101,"976,63874-0334-24 ",.02)
 ;;63874-0334-24
 ;;9002226.02101,"976,63874-0334-28 ",.01)
 ;;63874-0334-28
 ;;9002226.02101,"976,63874-0334-28 ",.02)
 ;;63874-0334-28
 ;;9002226.02101,"976,63874-0334-30 ",.01)
 ;;63874-0334-30
 ;;9002226.02101,"976,63874-0334-30 ",.02)
 ;;63874-0334-30
 ;;9002226.02101,"976,63874-0334-40 ",.01)
 ;;63874-0334-40
 ;;9002226.02101,"976,63874-0334-40 ",.02)
 ;;63874-0334-40
 ;;9002226.02101,"976,63874-0334-50 ",.01)
 ;;63874-0334-50
 ;;9002226.02101,"976,63874-0334-50 ",.02)
 ;;63874-0334-50
 ;;9002226.02101,"976,63874-0334-60 ",.01)
 ;;63874-0334-60
 ;;9002226.02101,"976,63874-0334-60 ",.02)
 ;;63874-0334-60
 ;;9002226.02101,"976,63874-0334-72 ",.01)
 ;;63874-0334-72
 ;;9002226.02101,"976,63874-0334-72 ",.02)
 ;;63874-0334-72
 ;;9002226.02101,"976,63874-0334-74 ",.01)
 ;;63874-0334-74
 ;;9002226.02101,"976,63874-0334-74 ",.02)
 ;;63874-0334-74
 ;;9002226.02101,"976,63874-0334-77 ",.01)
 ;;63874-0334-77
 ;;9002226.02101,"976,63874-0334-77 ",.02)
 ;;63874-0334-77
 ;;9002226.02101,"976,63874-0334-80 ",.01)
 ;;63874-0334-80
 ;;9002226.02101,"976,63874-0334-80 ",.02)
 ;;63874-0334-80
 ;;9002226.02101,"976,63874-0334-90 ",.01)
 ;;63874-0334-90
 ;;9002226.02101,"976,63874-0334-90 ",.02)
 ;;63874-0334-90
 ;;9002226.02101,"976,63874-0339-01 ",.01)
 ;;63874-0339-01
 ;;9002226.02101,"976,63874-0339-01 ",.02)
 ;;63874-0339-01
 ;;9002226.02101,"976,63874-0339-10 ",.01)
 ;;63874-0339-10
 ;;9002226.02101,"976,63874-0339-10 ",.02)
 ;;63874-0339-10
 ;;9002226.02101,"976,63874-0339-12 ",.01)
 ;;63874-0339-12
 ;;9002226.02101,"976,63874-0339-12 ",.02)
 ;;63874-0339-12
 ;;9002226.02101,"976,63874-0339-14 ",.01)
 ;;63874-0339-14
 ;;9002226.02101,"976,63874-0339-14 ",.02)
 ;;63874-0339-14
 ;;9002226.02101,"976,63874-0339-15 ",.01)
 ;;63874-0339-15
 ;;9002226.02101,"976,63874-0339-15 ",.02)
 ;;63874-0339-15
 ;;9002226.02101,"976,63874-0339-20 ",.01)
 ;;63874-0339-20
 ;;9002226.02101,"976,63874-0339-20 ",.02)
 ;;63874-0339-20
 ;;9002226.02101,"976,63874-0339-21 ",.01)
 ;;63874-0339-21
 ;;9002226.02101,"976,63874-0339-21 ",.02)
 ;;63874-0339-21
 ;;9002226.02101,"976,63874-0339-24 ",.01)
 ;;63874-0339-24
 ;;9002226.02101,"976,63874-0339-24 ",.02)
 ;;63874-0339-24
 ;;9002226.02101,"976,63874-0339-26 ",.01)
 ;;63874-0339-26
 ;;9002226.02101,"976,63874-0339-26 ",.02)
 ;;63874-0339-26
 ;;9002226.02101,"976,63874-0339-28 ",.01)
 ;;63874-0339-28
 ;;9002226.02101,"976,63874-0339-28 ",.02)
 ;;63874-0339-28
 ;;9002226.02101,"976,63874-0339-30 ",.01)
 ;;63874-0339-30
 ;;9002226.02101,"976,63874-0339-30 ",.02)
 ;;63874-0339-30
 ;;9002226.02101,"976,63874-0339-40 ",.01)
 ;;63874-0339-40
 ;;9002226.02101,"976,63874-0339-40 ",.02)
 ;;63874-0339-40
 ;;9002226.02101,"976,63874-0339-42 ",.01)
 ;;63874-0339-42
 ;;9002226.02101,"976,63874-0339-42 ",.02)
 ;;63874-0339-42
 ;;9002226.02101,"976,63874-0339-50 ",.01)
 ;;63874-0339-50
 ;;9002226.02101,"976,63874-0339-50 ",.02)
 ;;63874-0339-50
 ;;9002226.02101,"976,63874-0339-56 ",.01)
 ;;63874-0339-56
 ;;9002226.02101,"976,63874-0339-56 ",.02)
 ;;63874-0339-56
 ;;9002226.02101,"976,63874-0339-60 ",.01)
 ;;63874-0339-60
 ;;9002226.02101,"976,63874-0339-60 ",.02)
 ;;63874-0339-60
 ;;9002226.02101,"976,63874-0339-90 ",.01)
 ;;63874-0339-90
 ;;9002226.02101,"976,63874-0339-90 ",.02)
 ;;63874-0339-90
 ;;9002226.02101,"976,63874-0340-20 ",.01)
 ;;63874-0340-20
 ;;9002226.02101,"976,63874-0340-20 ",.02)
 ;;63874-0340-20
 ;;9002226.02101,"976,63874-0340-30 ",.01)
 ;;63874-0340-30
 ;;9002226.02101,"976,63874-0340-30 ",.02)
 ;;63874-0340-30
 ;;9002226.02101,"976,63874-0340-50 ",.01)
 ;;63874-0340-50
 ;;9002226.02101,"976,63874-0340-50 ",.02)
 ;;63874-0340-50
 ;;9002226.02101,"976,63874-0350-01 ",.01)
 ;;63874-0350-01
 ;;9002226.02101,"976,63874-0350-01 ",.02)
 ;;63874-0350-01
 ;;9002226.02101,"976,63874-0350-03 ",.01)
 ;;63874-0350-03
 ;;9002226.02101,"976,63874-0350-03 ",.02)
 ;;63874-0350-03
 ;;9002226.02101,"976,63874-0350-10 ",.01)
 ;;63874-0350-10