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

BGP0ZD16.m

Go to the documentation of this file.
BGP0ZD16 ;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,52555-0205-10 ",.02)
 ;;52555-0205-10
 ;;9002226.02101,"976,52555-0972-01 ",.01)
 ;;52555-0972-01
 ;;9002226.02101,"976,52555-0972-01 ",.02)
 ;;52555-0972-01
 ;;9002226.02101,"976,52555-0973-01 ",.01)
 ;;52555-0973-01
 ;;9002226.02101,"976,52555-0973-01 ",.02)
 ;;52555-0973-01
 ;;9002226.02101,"976,52555-0973-05 ",.01)
 ;;52555-0973-05
 ;;9002226.02101,"976,52555-0973-05 ",.02)
 ;;52555-0973-05
 ;;9002226.02101,"976,52595-0196-10 ",.01)
 ;;52595-0196-10
 ;;9002226.02101,"976,52595-0196-10 ",.02)
 ;;52595-0196-10
 ;;9002226.02101,"976,52959-0015-30 ",.01)
 ;;52959-0015-30
 ;;9002226.02101,"976,52959-0015-30 ",.02)
 ;;52959-0015-30
 ;;9002226.02101,"976,52959-0016-20 ",.01)
 ;;52959-0016-20
 ;;9002226.02101,"976,52959-0016-20 ",.02)
 ;;52959-0016-20
 ;;9002226.02101,"976,52959-0016-30 ",.01)
 ;;52959-0016-30
 ;;9002226.02101,"976,52959-0016-30 ",.02)
 ;;52959-0016-30
 ;;9002226.02101,"976,52959-0066-00 ",.01)
 ;;52959-0066-00
 ;;9002226.02101,"976,52959-0066-00 ",.02)
 ;;52959-0066-00
 ;;9002226.02101,"976,52959-0066-07 ",.01)
 ;;52959-0066-07
 ;;9002226.02101,"976,52959-0066-07 ",.02)
 ;;52959-0066-07
 ;;9002226.02101,"976,52959-0066-10 ",.01)
 ;;52959-0066-10
 ;;9002226.02101,"976,52959-0066-10 ",.02)
 ;;52959-0066-10
 ;;9002226.02101,"976,52959-0066-18 ",.01)
 ;;52959-0066-18
 ;;9002226.02101,"976,52959-0066-18 ",.02)
 ;;52959-0066-18
 ;;9002226.02101,"976,52959-0066-20 ",.01)
 ;;52959-0066-20
 ;;9002226.02101,"976,52959-0066-20 ",.02)
 ;;52959-0066-20
 ;;9002226.02101,"976,52959-0066-30 ",.01)
 ;;52959-0066-30
 ;;9002226.02101,"976,52959-0066-30 ",.02)
 ;;52959-0066-30
 ;;9002226.02101,"976,52959-0067-20 ",.01)
 ;;52959-0067-20
 ;;9002226.02101,"976,52959-0067-20 ",.02)
 ;;52959-0067-20
 ;;9002226.02101,"976,52959-0067-30 ",.01)
 ;;52959-0067-30
 ;;9002226.02101,"976,52959-0067-30 ",.02)
 ;;52959-0067-30
 ;;9002226.02101,"976,52959-0075-00 ",.01)
 ;;52959-0075-00
 ;;9002226.02101,"976,52959-0075-00 ",.02)
 ;;52959-0075-00
 ;;9002226.02101,"976,52959-0075-02 ",.01)
 ;;52959-0075-02
 ;;9002226.02101,"976,52959-0075-02 ",.02)
 ;;52959-0075-02
 ;;9002226.02101,"976,52959-0075-10 ",.01)
 ;;52959-0075-10
 ;;9002226.02101,"976,52959-0075-10 ",.02)
 ;;52959-0075-10
 ;;9002226.02101,"976,52959-0075-12 ",.01)
 ;;52959-0075-12
 ;;9002226.02101,"976,52959-0075-12 ",.02)
 ;;52959-0075-12
 ;;9002226.02101,"976,52959-0075-15 ",.01)
 ;;52959-0075-15
 ;;9002226.02101,"976,52959-0075-15 ",.02)
 ;;52959-0075-15
 ;;9002226.02101,"976,52959-0075-16 ",.01)
 ;;52959-0075-16
 ;;9002226.02101,"976,52959-0075-16 ",.02)
 ;;52959-0075-16
 ;;9002226.02101,"976,52959-0075-20 ",.01)
 ;;52959-0075-20
 ;;9002226.02101,"976,52959-0075-20 ",.02)
 ;;52959-0075-20
 ;;9002226.02101,"976,52959-0075-21 ",.01)
 ;;52959-0075-21
 ;;9002226.02101,"976,52959-0075-21 ",.02)
 ;;52959-0075-21
 ;;9002226.02101,"976,52959-0075-30 ",.01)
 ;;52959-0075-30
 ;;9002226.02101,"976,52959-0075-30 ",.02)
 ;;52959-0075-30
 ;;9002226.02101,"976,52959-0075-40 ",.01)
 ;;52959-0075-40
 ;;9002226.02101,"976,52959-0075-40 ",.02)
 ;;52959-0075-40
 ;;9002226.02101,"976,52959-0075-60 ",.01)
 ;;52959-0075-60
 ;;9002226.02101,"976,52959-0075-60 ",.02)
 ;;52959-0075-60
 ;;9002226.02101,"976,52959-0075-90 ",.01)
 ;;52959-0075-90
 ;;9002226.02101,"976,52959-0075-90 ",.02)
 ;;52959-0075-90
 ;;9002226.02101,"976,52959-0076-00 ",.01)
 ;;52959-0076-00
 ;;9002226.02101,"976,52959-0076-00 ",.02)
 ;;52959-0076-00
 ;;9002226.02101,"976,52959-0076-02 ",.01)
 ;;52959-0076-02
 ;;9002226.02101,"976,52959-0076-02 ",.02)
 ;;52959-0076-02
 ;;9002226.02101,"976,52959-0076-04 ",.01)
 ;;52959-0076-04
 ;;9002226.02101,"976,52959-0076-04 ",.02)
 ;;52959-0076-04
 ;;9002226.02101,"976,52959-0076-20 ",.01)
 ;;52959-0076-20
 ;;9002226.02101,"976,52959-0076-20 ",.02)
 ;;52959-0076-20
 ;;9002226.02101,"976,52959-0076-21 ",.01)
 ;;52959-0076-21
 ;;9002226.02101,"976,52959-0076-21 ",.02)
 ;;52959-0076-21
 ;;9002226.02101,"976,52959-0076-24 ",.01)
 ;;52959-0076-24
 ;;9002226.02101,"976,52959-0076-24 ",.02)
 ;;52959-0076-24
 ;;9002226.02101,"976,52959-0076-25 ",.01)
 ;;52959-0076-25
 ;;9002226.02101,"976,52959-0076-25 ",.02)
 ;;52959-0076-25
 ;;9002226.02101,"976,52959-0076-30 ",.01)
 ;;52959-0076-30
 ;;9002226.02101,"976,52959-0076-30 ",.02)
 ;;52959-0076-30
 ;;9002226.02101,"976,52959-0076-40 ",.01)
 ;;52959-0076-40
 ;;9002226.02101,"976,52959-0076-40 ",.02)
 ;;52959-0076-40
 ;;9002226.02101,"976,52959-0076-45 ",.01)
 ;;52959-0076-45
 ;;9002226.02101,"976,52959-0076-45 ",.02)
 ;;52959-0076-45
 ;;9002226.02101,"976,52959-0076-50 ",.01)
 ;;52959-0076-50
 ;;9002226.02101,"976,52959-0076-50 ",.02)
 ;;52959-0076-50
 ;;9002226.02101,"976,52959-0076-60 ",.01)
 ;;52959-0076-60
 ;;9002226.02101,"976,52959-0076-60 ",.02)
 ;;52959-0076-60
 ;;9002226.02101,"976,52959-0076-90 ",.01)
 ;;52959-0076-90
 ;;9002226.02101,"976,52959-0076-90 ",.02)
 ;;52959-0076-90
 ;;9002226.02101,"976,52959-0077-00 ",.01)
 ;;52959-0077-00
 ;;9002226.02101,"976,52959-0077-00 ",.02)
 ;;52959-0077-00
 ;;9002226.02101,"976,52959-0077-02 ",.01)
 ;;52959-0077-02
 ;;9002226.02101,"976,52959-0077-02 ",.02)
 ;;52959-0077-02
 ;;9002226.02101,"976,52959-0077-04 ",.01)
 ;;52959-0077-04
 ;;9002226.02101,"976,52959-0077-04 ",.02)
 ;;52959-0077-04
 ;;9002226.02101,"976,52959-0077-10 ",.01)
 ;;52959-0077-10
 ;;9002226.02101,"976,52959-0077-10 ",.02)
 ;;52959-0077-10
 ;;9002226.02101,"976,52959-0077-12 ",.01)
 ;;52959-0077-12
 ;;9002226.02101,"976,52959-0077-12 ",.02)
 ;;52959-0077-12
 ;;9002226.02101,"976,52959-0077-14 ",.01)
 ;;52959-0077-14
 ;;9002226.02101,"976,52959-0077-14 ",.02)
 ;;52959-0077-14
 ;;9002226.02101,"976,52959-0077-15 ",.01)
 ;;52959-0077-15
 ;;9002226.02101,"976,52959-0077-15 ",.02)
 ;;52959-0077-15
 ;;9002226.02101,"976,52959-0077-16 ",.01)
 ;;52959-0077-16
 ;;9002226.02101,"976,52959-0077-16 ",.02)
 ;;52959-0077-16
 ;;9002226.02101,"976,52959-0077-18 ",.01)
 ;;52959-0077-18
 ;;9002226.02101,"976,52959-0077-18 ",.02)
 ;;52959-0077-18
 ;;9002226.02101,"976,52959-0077-20 ",.01)
 ;;52959-0077-20
 ;;9002226.02101,"976,52959-0077-20 ",.02)
 ;;52959-0077-20
 ;;9002226.02101,"976,52959-0077-21 ",.01)
 ;;52959-0077-21
 ;;9002226.02101,"976,52959-0077-21 ",.02)
 ;;52959-0077-21
 ;;9002226.02101,"976,52959-0077-24 ",.01)
 ;;52959-0077-24
 ;;9002226.02101,"976,52959-0077-24 ",.02)
 ;;52959-0077-24
 ;;9002226.02101,"976,52959-0077-25 ",.01)
 ;;52959-0077-25
 ;;9002226.02101,"976,52959-0077-25 ",.02)
 ;;52959-0077-25
 ;;9002226.02101,"976,52959-0077-28 ",.01)
 ;;52959-0077-28
 ;;9002226.02101,"976,52959-0077-28 ",.02)
 ;;52959-0077-28
 ;;9002226.02101,"976,52959-0077-30 ",.01)
 ;;52959-0077-30
 ;;9002226.02101,"976,52959-0077-30 ",.02)
 ;;52959-0077-30
 ;;9002226.02101,"976,52959-0077-40 ",.01)
 ;;52959-0077-40
 ;;9002226.02101,"976,52959-0077-40 ",.02)
 ;;52959-0077-40
 ;;9002226.02101,"976,52959-0077-42 ",.01)
 ;;52959-0077-42
 ;;9002226.02101,"976,52959-0077-42 ",.02)
 ;;52959-0077-42
 ;;9002226.02101,"976,52959-0077-45 ",.01)
 ;;52959-0077-45
 ;;9002226.02101,"976,52959-0077-45 ",.02)
 ;;52959-0077-45
 ;;9002226.02101,"976,52959-0077-50 ",.01)
 ;;52959-0077-50
 ;;9002226.02101,"976,52959-0077-50 ",.02)
 ;;52959-0077-50
 ;;9002226.02101,"976,52959-0077-60 ",.01)
 ;;52959-0077-60
 ;;9002226.02101,"976,52959-0077-60 ",.02)
 ;;52959-0077-60
 ;;9002226.02101,"976,52959-0077-90 ",.01)
 ;;52959-0077-90
 ;;9002226.02101,"976,52959-0077-90 ",.02)
 ;;52959-0077-90
 ;;9002226.02101,"976,52959-0080-20 ",.01)
 ;;52959-0080-20
 ;;9002226.02101,"976,52959-0080-20 ",.02)
 ;;52959-0080-20
 ;;9002226.02101,"976,52959-0080-21 ",.01)
 ;;52959-0080-21
 ;;9002226.02101,"976,52959-0080-21 ",.02)
 ;;52959-0080-21
 ;;9002226.02101,"976,52959-0080-30 ",.01)
 ;;52959-0080-30
 ;;9002226.02101,"976,52959-0080-30 ",.02)
 ;;52959-0080-30
 ;;9002226.02101,"976,52959-0080-40 ",.01)
 ;;52959-0080-40
 ;;9002226.02101,"976,52959-0080-40 ",.02)
 ;;52959-0080-40
 ;;9002226.02101,"976,52959-0081-00 ",.01)
 ;;52959-0081-00
 ;;9002226.02101,"976,52959-0081-00 ",.02)
 ;;52959-0081-00
 ;;9002226.02101,"976,52959-0081-20 ",.01)
 ;;52959-0081-20
 ;;9002226.02101,"976,52959-0081-20 ",.02)
 ;;52959-0081-20
 ;;9002226.02101,"976,52959-0081-21 ",.01)
 ;;52959-0081-21
 ;;9002226.02101,"976,52959-0081-21 ",.02)
 ;;52959-0081-21
 ;;9002226.02101,"976,52959-0081-30 ",.01)
 ;;52959-0081-30
 ;;9002226.02101,"976,52959-0081-30 ",.02)
 ;;52959-0081-30
 ;;9002226.02101,"976,52959-0081-40 ",.01)
 ;;52959-0081-40
 ;;9002226.02101,"976,52959-0081-40 ",.02)
 ;;52959-0081-40
 ;;9002226.02101,"976,52959-0082-07 ",.01)
 ;;52959-0082-07
 ;;9002226.02101,"976,52959-0082-07 ",.02)
 ;;52959-0082-07
 ;;9002226.02101,"976,52959-0082-14 ",.01)
 ;;52959-0082-14
 ;;9002226.02101,"976,52959-0082-14 ",.02)
 ;;52959-0082-14
 ;;9002226.02101,"976,52959-0082-15 ",.01)
 ;;52959-0082-15
 ;;9002226.02101,"976,52959-0082-15 ",.02)
 ;;52959-0082-15
 ;;9002226.02101,"976,52959-0082-20 ",.01)
 ;;52959-0082-20
 ;;9002226.02101,"976,52959-0082-20 ",.02)
 ;;52959-0082-20
 ;;9002226.02101,"976,52959-0082-21 ",.01)
 ;;52959-0082-21
 ;;9002226.02101,"976,52959-0082-21 ",.02)
 ;;52959-0082-21
 ;;9002226.02101,"976,52959-0082-30 ",.01)
 ;;52959-0082-30
 ;;9002226.02101,"976,52959-0082-30 ",.02)
 ;;52959-0082-30
 ;;9002226.02101,"976,52959-0082-60 ",.01)
 ;;52959-0082-60
 ;;9002226.02101,"976,52959-0082-60 ",.02)
 ;;52959-0082-60
 ;;9002226.02101,"976,52959-0095-28 ",.01)
 ;;52959-0095-28
 ;;9002226.02101,"976,52959-0095-28 ",.02)
 ;;52959-0095-28
 ;;9002226.02101,"976,52959-0095-30 ",.01)
 ;;52959-0095-30
 ;;9002226.02101,"976,52959-0095-30 ",.02)
 ;;52959-0095-30
 ;;9002226.02101,"976,52959-0110-20 ",.01)
 ;;52959-0110-20
 ;;9002226.02101,"976,52959-0110-20 ",.02)
 ;;52959-0110-20
 ;;9002226.02101,"976,52959-0110-30 ",.01)
 ;;52959-0110-30
 ;;9002226.02101,"976,52959-0110-30 ",.02)
 ;;52959-0110-30
 ;;9002226.02101,"976,52959-0111-14 ",.01)
 ;;52959-0111-14
 ;;9002226.02101,"976,52959-0111-14 ",.02)
 ;;52959-0111-14
 ;;9002226.02101,"976,52959-0111-20 ",.01)
 ;;52959-0111-20
 ;;9002226.02101,"976,52959-0111-20 ",.02)
 ;;52959-0111-20
 ;;9002226.02101,"976,52959-0111-28 ",.01)
 ;;52959-0111-28
 ;;9002226.02101,"976,52959-0111-28 ",.02)
 ;;52959-0111-28
 ;;9002226.02101,"976,52959-0111-30 ",.01)
 ;;52959-0111-30
 ;;9002226.02101,"976,52959-0111-30 ",.02)
 ;;52959-0111-30
 ;;9002226.02101,"976,52959-0111-40 ",.01)
 ;;52959-0111-40
 ;;9002226.02101,"976,52959-0111-40 ",.02)
 ;;52959-0111-40
 ;;9002226.02101,"976,52959-0111-60 ",.01)
 ;;52959-0111-60
 ;;9002226.02101,"976,52959-0111-60 ",.02)
 ;;52959-0111-60
 ;;9002226.02101,"976,52959-0161-30 ",.01)
 ;;52959-0161-30
 ;;9002226.02101,"976,52959-0161-30 ",.02)
 ;;52959-0161-30
 ;;9002226.02101,"976,52959-0161-42 ",.01)
 ;;52959-0161-42
 ;;9002226.02101,"976,52959-0161-42 ",.02)
 ;;52959-0161-42
 ;;9002226.02101,"976,52959-0190-20 ",.01)
 ;;52959-0190-20
 ;;9002226.02101,"976,52959-0190-20 ",.02)
 ;;52959-0190-20
 ;;9002226.02101,"976,52959-0190-28 ",.01)
 ;;52959-0190-28
 ;;9002226.02101,"976,52959-0190-28 ",.02)
 ;;52959-0190-28
 ;;9002226.02101,"976,52959-0190-30 ",.01)
 ;;52959-0190-30
 ;;9002226.02101,"976,52959-0190-30 ",.02)
 ;;52959-0190-30
 ;;9002226.02101,"976,52959-0190-40 ",.01)
 ;;52959-0190-40
 ;;9002226.02101,"976,52959-0190-40 ",.02)
 ;;52959-0190-40
 ;;9002226.02101,"976,52959-0190-60 ",.01)
 ;;52959-0190-60
 ;;9002226.02101,"976,52959-0190-60 ",.02)
 ;;52959-0190-60
 ;;9002226.02101,"976,52959-0191-00 ",.01)
 ;;52959-0191-00
 ;;9002226.02101,"976,52959-0191-00 ",.02)
 ;;52959-0191-00
 ;;9002226.02101,"976,52959-0191-02 ",.01)
 ;;52959-0191-02
 ;;9002226.02101,"976,52959-0191-02 ",.02)
 ;;52959-0191-02
 ;;9002226.02101,"976,52959-0191-10 ",.01)
 ;;52959-0191-10
 ;;9002226.02101,"976,52959-0191-10 ",.02)
 ;;52959-0191-10
 ;;9002226.02101,"976,52959-0191-14 ",.01)
 ;;52959-0191-14
 ;;9002226.02101,"976,52959-0191-14 ",.02)
 ;;52959-0191-14
 ;;9002226.02101,"976,52959-0191-15 ",.01)
 ;;52959-0191-15
 ;;9002226.02101,"976,52959-0191-15 ",.02)
 ;;52959-0191-15
 ;;9002226.02101,"976,52959-0191-20 ",.01)
 ;;52959-0191-20
 ;;9002226.02101,"976,52959-0191-20 ",.02)
 ;;52959-0191-20
 ;;9002226.02101,"976,52959-0191-28 ",.01)
 ;;52959-0191-28
 ;;9002226.02101,"976,52959-0191-28 ",.02)
 ;;52959-0191-28
 ;;9002226.02101,"976,52959-0191-30 ",.01)
 ;;52959-0191-30
 ;;9002226.02101,"976,52959-0191-30 ",.02)
 ;;52959-0191-30
 ;;9002226.02101,"976,52959-0191-40 ",.01)
 ;;52959-0191-40
 ;;9002226.02101,"976,52959-0191-40 ",.02)
 ;;52959-0191-40
 ;;9002226.02101,"976,52959-0191-42 ",.01)
 ;;52959-0191-42
 ;;9002226.02101,"976,52959-0191-42 ",.02)
 ;;52959-0191-42
 ;;9002226.02101,"976,52959-0191-60 ",.01)
 ;;52959-0191-60
 ;;9002226.02101,"976,52959-0191-60 ",.02)
 ;;52959-0191-60
 ;;9002226.02101,"976,52959-0192-00 ",.01)
 ;;52959-0192-00
 ;;9002226.02101,"976,52959-0192-00 ",.02)
 ;;52959-0192-00
 ;;9002226.02101,"976,52959-0192-10 ",.01)
 ;;52959-0192-10
 ;;9002226.02101,"976,52959-0192-10 ",.02)
 ;;52959-0192-10
 ;;9002226.02101,"976,52959-0192-14 ",.01)
 ;;52959-0192-14
 ;;9002226.02101,"976,52959-0192-14 ",.02)
 ;;52959-0192-14
 ;;9002226.02101,"976,52959-0192-15 ",.01)
 ;;52959-0192-15
 ;;9002226.02101,"976,52959-0192-15 ",.02)
 ;;52959-0192-15
 ;;9002226.02101,"976,52959-0192-20 ",.01)
 ;;52959-0192-20
 ;;9002226.02101,"976,52959-0192-20 ",.02)
 ;;52959-0192-20
 ;;9002226.02101,"976,52959-0192-28 ",.01)
 ;;52959-0192-28