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

BGP06B14.m

Go to the documentation of this file.
BGP06B14 ;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,"975,00247-0372-30 ",.01)
 ;;00247-0372-30
 ;;9002226.02101,"975,00247-0372-30 ",.02)
 ;;00247-0372-30
 ;;9002226.02101,"975,00247-0372-52 ",.01)
 ;;00247-0372-52
 ;;9002226.02101,"975,00247-0372-52 ",.02)
 ;;00247-0372-52
 ;;9002226.02101,"975,00247-0372-60 ",.01)
 ;;00247-0372-60
 ;;9002226.02101,"975,00247-0372-60 ",.02)
 ;;00247-0372-60
 ;;9002226.02101,"975,00247-0614-20 ",.01)
 ;;00247-0614-20
 ;;9002226.02101,"975,00247-0614-20 ",.02)
 ;;00247-0614-20
 ;;9002226.02101,"975,00247-0614-30 ",.01)
 ;;00247-0614-30
 ;;9002226.02101,"975,00247-0614-30 ",.02)
 ;;00247-0614-30
 ;;9002226.02101,"975,00247-0614-50 ",.01)
 ;;00247-0614-50
 ;;9002226.02101,"975,00247-0614-50 ",.02)
 ;;00247-0614-50
 ;;9002226.02101,"975,00247-0614-60 ",.01)
 ;;00247-0614-60
 ;;9002226.02101,"975,00247-0614-60 ",.02)
 ;;00247-0614-60
 ;;9002226.02101,"975,00247-0614-90 ",.01)
 ;;00247-0614-90
 ;;9002226.02101,"975,00247-0614-90 ",.02)
 ;;00247-0614-90
 ;;9002226.02101,"975,00247-0615-00 ",.01)
 ;;00247-0615-00
 ;;9002226.02101,"975,00247-0615-00 ",.02)
 ;;00247-0615-00
 ;;9002226.02101,"975,00247-0615-04 ",.01)
 ;;00247-0615-04
 ;;9002226.02101,"975,00247-0615-04 ",.02)
 ;;00247-0615-04
 ;;9002226.02101,"975,00247-0615-07 ",.01)
 ;;00247-0615-07
 ;;9002226.02101,"975,00247-0615-07 ",.02)
 ;;00247-0615-07
 ;;9002226.02101,"975,00247-0615-10 ",.01)
 ;;00247-0615-10
 ;;9002226.02101,"975,00247-0615-10 ",.02)
 ;;00247-0615-10
 ;;9002226.02101,"975,00247-0615-12 ",.01)
 ;;00247-0615-12
 ;;9002226.02101,"975,00247-0615-12 ",.02)
 ;;00247-0615-12
 ;;9002226.02101,"975,00247-0615-15 ",.01)
 ;;00247-0615-15
 ;;9002226.02101,"975,00247-0615-15 ",.02)
 ;;00247-0615-15
 ;;9002226.02101,"975,00247-0615-30 ",.01)
 ;;00247-0615-30
 ;;9002226.02101,"975,00247-0615-30 ",.02)
 ;;00247-0615-30
 ;;9002226.02101,"975,00247-0615-52 ",.01)
 ;;00247-0615-52
 ;;9002226.02101,"975,00247-0615-52 ",.02)
 ;;00247-0615-52
 ;;9002226.02101,"975,00247-0615-60 ",.01)
 ;;00247-0615-60
 ;;9002226.02101,"975,00247-0615-60 ",.02)
 ;;00247-0615-60
 ;;9002226.02101,"975,00247-0615-90 ",.01)
 ;;00247-0615-90
 ;;9002226.02101,"975,00247-0615-90 ",.02)
 ;;00247-0615-90
 ;;9002226.02101,"975,00247-0644-00 ",.01)
 ;;00247-0644-00
 ;;9002226.02101,"975,00247-0644-00 ",.02)
 ;;00247-0644-00
 ;;9002226.02101,"975,00247-0644-03 ",.01)
 ;;00247-0644-03
 ;;9002226.02101,"975,00247-0644-03 ",.02)
 ;;00247-0644-03
 ;;9002226.02101,"975,00247-0644-07 ",.01)
 ;;00247-0644-07
 ;;9002226.02101,"975,00247-0644-07 ",.02)
 ;;00247-0644-07
 ;;9002226.02101,"975,00247-0644-10 ",.01)
 ;;00247-0644-10
 ;;9002226.02101,"975,00247-0644-10 ",.02)
 ;;00247-0644-10
 ;;9002226.02101,"975,00247-0644-14 ",.01)
 ;;00247-0644-14
 ;;9002226.02101,"975,00247-0644-14 ",.02)
 ;;00247-0644-14
 ;;9002226.02101,"975,00247-0644-28 ",.01)
 ;;00247-0644-28
 ;;9002226.02101,"975,00247-0644-28 ",.02)
 ;;00247-0644-28
 ;;9002226.02101,"975,00247-0644-30 ",.01)
 ;;00247-0644-30
 ;;9002226.02101,"975,00247-0644-30 ",.02)
 ;;00247-0644-30
 ;;9002226.02101,"975,00247-0644-60 ",.01)
 ;;00247-0644-60
 ;;9002226.02101,"975,00247-0644-60 ",.02)
 ;;00247-0644-60
 ;;9002226.02101,"975,00247-0675-03 ",.01)
 ;;00247-0675-03
 ;;9002226.02101,"975,00247-0675-03 ",.02)
 ;;00247-0675-03
 ;;9002226.02101,"975,00247-0675-07 ",.01)
 ;;00247-0675-07
 ;;9002226.02101,"975,00247-0675-07 ",.02)
 ;;00247-0675-07
 ;;9002226.02101,"975,00247-0675-08 ",.01)
 ;;00247-0675-08
 ;;9002226.02101,"975,00247-0675-08 ",.02)
 ;;00247-0675-08
 ;;9002226.02101,"975,00247-0675-14 ",.01)
 ;;00247-0675-14
 ;;9002226.02101,"975,00247-0675-14 ",.02)
 ;;00247-0675-14
 ;;9002226.02101,"975,00247-0675-30 ",.01)
 ;;00247-0675-30
 ;;9002226.02101,"975,00247-0675-30 ",.02)
 ;;00247-0675-30
 ;;9002226.02101,"975,00247-0675-33 ",.01)
 ;;00247-0675-33
 ;;9002226.02101,"975,00247-0675-33 ",.02)
 ;;00247-0675-33
 ;;9002226.02101,"975,00247-0675-90 ",.01)
 ;;00247-0675-90
 ;;9002226.02101,"975,00247-0675-90 ",.02)
 ;;00247-0675-90
 ;;9002226.02101,"975,00247-0676-07 ",.01)
 ;;00247-0676-07
 ;;9002226.02101,"975,00247-0676-07 ",.02)
 ;;00247-0676-07
 ;;9002226.02101,"975,00247-0676-14 ",.01)
 ;;00247-0676-14
 ;;9002226.02101,"975,00247-0676-14 ",.02)
 ;;00247-0676-14
 ;;9002226.02101,"975,00247-0676-30 ",.01)
 ;;00247-0676-30
 ;;9002226.02101,"975,00247-0676-30 ",.02)
 ;;00247-0676-30
 ;;9002226.02101,"975,00247-0676-60 ",.01)
 ;;00247-0676-60
 ;;9002226.02101,"975,00247-0676-60 ",.02)
 ;;00247-0676-60
 ;;9002226.02101,"975,00247-0677-07 ",.01)
 ;;00247-0677-07
 ;;9002226.02101,"975,00247-0677-07 ",.02)
 ;;00247-0677-07
 ;;9002226.02101,"975,00247-0677-14 ",.01)
 ;;00247-0677-14
 ;;9002226.02101,"975,00247-0677-14 ",.02)
 ;;00247-0677-14
 ;;9002226.02101,"975,00247-0677-30 ",.01)
 ;;00247-0677-30
 ;;9002226.02101,"975,00247-0677-30 ",.02)
 ;;00247-0677-30
 ;;9002226.02101,"975,00247-0677-60 ",.01)
 ;;00247-0677-60
 ;;9002226.02101,"975,00247-0677-60 ",.02)
 ;;00247-0677-60
 ;;9002226.02101,"975,00247-0773-00 ",.01)
 ;;00247-0773-00
 ;;9002226.02101,"975,00247-0773-00 ",.02)
 ;;00247-0773-00
 ;;9002226.02101,"975,00247-0773-30 ",.01)
 ;;00247-0773-30
 ;;9002226.02101,"975,00247-0773-30 ",.02)
 ;;00247-0773-30
 ;;9002226.02101,"975,00247-0773-90 ",.01)
 ;;00247-0773-90
 ;;9002226.02101,"975,00247-0773-90 ",.02)
 ;;00247-0773-90
 ;;9002226.02101,"975,00247-0808-07 ",.01)
 ;;00247-0808-07
 ;;9002226.02101,"975,00247-0808-07 ",.02)
 ;;00247-0808-07
 ;;9002226.02101,"975,00247-0808-14 ",.01)
 ;;00247-0808-14
 ;;9002226.02101,"975,00247-0808-14 ",.02)
 ;;00247-0808-14
 ;;9002226.02101,"975,00247-0808-30 ",.01)
 ;;00247-0808-30
 ;;9002226.02101,"975,00247-0808-30 ",.02)
 ;;00247-0808-30
 ;;9002226.02101,"975,00247-0809-07 ",.01)
 ;;00247-0809-07
 ;;9002226.02101,"975,00247-0809-07 ",.02)
 ;;00247-0809-07
 ;;9002226.02101,"975,00247-0809-14 ",.01)
 ;;00247-0809-14
 ;;9002226.02101,"975,00247-0809-14 ",.02)
 ;;00247-0809-14
 ;;9002226.02101,"975,00247-0809-30 ",.01)
 ;;00247-0809-30
 ;;9002226.02101,"975,00247-0809-30 ",.02)
 ;;00247-0809-30
 ;;9002226.02101,"975,00247-0810-07 ",.01)
 ;;00247-0810-07
 ;;9002226.02101,"975,00247-0810-07 ",.02)
 ;;00247-0810-07
 ;;9002226.02101,"975,00247-0810-14 ",.01)
 ;;00247-0810-14
 ;;9002226.02101,"975,00247-0810-14 ",.02)
 ;;00247-0810-14
 ;;9002226.02101,"975,00247-0810-30 ",.01)
 ;;00247-0810-30
 ;;9002226.02101,"975,00247-0810-30 ",.02)
 ;;00247-0810-30
 ;;9002226.02101,"975,00247-0815-00 ",.01)
 ;;00247-0815-00
 ;;9002226.02101,"975,00247-0815-00 ",.02)
 ;;00247-0815-00
 ;;9002226.02101,"975,00247-0815-30 ",.01)
 ;;00247-0815-30
 ;;9002226.02101,"975,00247-0815-30 ",.02)
 ;;00247-0815-30
 ;;9002226.02101,"975,00247-0853-04 ",.01)
 ;;00247-0853-04
 ;;9002226.02101,"975,00247-0853-04 ",.02)
 ;;00247-0853-04
 ;;9002226.02101,"975,00247-0853-06 ",.01)
 ;;00247-0853-06
 ;;9002226.02101,"975,00247-0853-06 ",.02)
 ;;00247-0853-06
 ;;9002226.02101,"975,00247-0853-08 ",.01)
 ;;00247-0853-08
 ;;9002226.02101,"975,00247-0853-08 ",.02)
 ;;00247-0853-08
 ;;9002226.02101,"975,00247-0853-30 ",.01)
 ;;00247-0853-30
 ;;9002226.02101,"975,00247-0853-30 ",.02)
 ;;00247-0853-30
 ;;9002226.02101,"975,00247-0853-60 ",.01)
 ;;00247-0853-60
 ;;9002226.02101,"975,00247-0853-60 ",.02)
 ;;00247-0853-60
 ;;9002226.02101,"975,00247-0853-90 ",.01)
 ;;00247-0853-90
 ;;9002226.02101,"975,00247-0853-90 ",.02)
 ;;00247-0853-90
 ;;9002226.02101,"975,00247-1035-60 ",.01)
 ;;00247-1035-60
 ;;9002226.02101,"975,00247-1035-60 ",.02)
 ;;00247-1035-60
 ;;9002226.02101,"975,00247-1035-90 ",.01)
 ;;00247-1035-90
 ;;9002226.02101,"975,00247-1035-90 ",.02)
 ;;00247-1035-90
 ;;9002226.02101,"975,00247-1060-50 ",.01)
 ;;00247-1060-50
 ;;9002226.02101,"975,00247-1060-50 ",.02)
 ;;00247-1060-50
 ;;9002226.02101,"975,00247-1060-60 ",.01)
 ;;00247-1060-60
 ;;9002226.02101,"975,00247-1060-60 ",.02)
 ;;00247-1060-60
 ;;9002226.02101,"975,00247-1177-07 ",.01)
 ;;00247-1177-07
 ;;9002226.02101,"975,00247-1177-07 ",.02)
 ;;00247-1177-07
 ;;9002226.02101,"975,00247-1177-30 ",.01)
 ;;00247-1177-30
 ;;9002226.02101,"975,00247-1177-30 ",.02)
 ;;00247-1177-30
 ;;9002226.02101,"975,00247-1201-00 ",.01)
 ;;00247-1201-00
 ;;9002226.02101,"975,00247-1201-00 ",.02)
 ;;00247-1201-00
 ;;9002226.02101,"975,00247-1201-30 ",.01)
 ;;00247-1201-30
 ;;9002226.02101,"975,00247-1201-30 ",.02)
 ;;00247-1201-30
 ;;9002226.02101,"975,00247-1232-30 ",.01)
 ;;00247-1232-30
 ;;9002226.02101,"975,00247-1232-30 ",.02)
 ;;00247-1232-30
 ;;9002226.02101,"975,00247-1233-30 ",.01)
 ;;00247-1233-30
 ;;9002226.02101,"975,00247-1233-30 ",.02)
 ;;00247-1233-30
 ;;9002226.02101,"975,00247-1242-30 ",.01)
 ;;00247-1242-30
 ;;9002226.02101,"975,00247-1242-30 ",.02)
 ;;00247-1242-30
 ;;9002226.02101,"975,00247-1243-30 ",.01)
 ;;00247-1243-30
 ;;9002226.02101,"975,00247-1243-30 ",.02)
 ;;00247-1243-30
 ;;9002226.02101,"975,00258-3695-01 ",.01)
 ;;00258-3695-01
 ;;9002226.02101,"975,00258-3695-01 ",.02)
 ;;00258-3695-01
 ;;9002226.02101,"975,00258-3695-05 ",.01)
 ;;00258-3695-05
 ;;9002226.02101,"975,00258-3695-05 ",.02)
 ;;00258-3695-05
 ;;9002226.02101,"975,00258-3696-01 ",.01)
 ;;00258-3696-01
 ;;9002226.02101,"975,00258-3696-01 ",.02)
 ;;00258-3696-01
 ;;9002226.02101,"975,00258-3696-10 ",.01)
 ;;00258-3696-10
 ;;9002226.02101,"975,00258-3696-10 ",.02)
 ;;00258-3696-10
 ;;9002226.02101,"975,00258-3697-01 ",.01)
 ;;00258-3697-01
 ;;9002226.02101,"975,00258-3697-01 ",.02)
 ;;00258-3697-01
 ;;9002226.02101,"975,00258-3697-10 ",.01)
 ;;00258-3697-10
 ;;9002226.02101,"975,00258-3697-10 ",.02)
 ;;00258-3697-10
 ;;9002226.02101,"975,00302-0251-01 ",.01)
 ;;00302-0251-01
 ;;9002226.02101,"975,00302-0251-01 ",.02)
 ;;00302-0251-01
 ;;9002226.02101,"975,00302-3541-01 ",.01)
 ;;00302-3541-01
 ;;9002226.02101,"975,00302-3541-01 ",.02)
 ;;00302-3541-01
 ;;9002226.02101,"975,00302-4940-01 ",.01)
 ;;00302-4940-01
 ;;9002226.02101,"975,00302-4940-01 ",.02)
 ;;00302-4940-01
 ;;9002226.02101,"975,00302-4943-01 ",.01)
 ;;00302-4943-01
 ;;9002226.02101,"975,00302-4943-01 ",.02)
 ;;00302-4943-01
 ;;9002226.02101,"975,00310-0040-10 ",.01)
 ;;00310-0040-10
 ;;9002226.02101,"975,00310-0040-10 ",.02)
 ;;00310-0040-10
 ;;9002226.02101,"975,00310-0040-34 ",.01)
 ;;00310-0040-34
 ;;9002226.02101,"975,00310-0040-34 ",.02)
 ;;00310-0040-34
 ;;9002226.02101,"975,00310-0041-10 ",.01)
 ;;00310-0041-10
 ;;9002226.02101,"975,00310-0041-10 ",.02)
 ;;00310-0041-10
 ;;9002226.02101,"975,00310-0041-34 ",.01)
 ;;00310-0041-34
 ;;9002226.02101,"975,00310-0041-34 ",.02)
 ;;00310-0041-34
 ;;9002226.02101,"975,00310-0041-39 ",.01)
 ;;00310-0041-39
 ;;9002226.02101,"975,00310-0041-39 ",.02)
 ;;00310-0041-39
 ;;9002226.02101,"975,00310-0042-10 ",.01)
 ;;00310-0042-10
 ;;9002226.02101,"975,00310-0042-10 ",.02)
 ;;00310-0042-10
 ;;9002226.02101,"975,00310-0043-10 ",.01)
 ;;00310-0043-10
 ;;9002226.02101,"975,00310-0043-10 ",.02)
 ;;00310-0043-10
 ;;9002226.02101,"975,00310-0045-10 ",.01)
 ;;00310-0045-10
 ;;9002226.02101,"975,00310-0045-10 ",.02)
 ;;00310-0045-10
 ;;9002226.02101,"975,00310-0045-34 ",.01)
 ;;00310-0045-34
 ;;9002226.02101,"975,00310-0045-34 ",.02)
 ;;00310-0045-34
 ;;9002226.02101,"975,00310-0045-39 ",.01)
 ;;00310-0045-39
 ;;9002226.02101,"975,00310-0045-39 ",.02)
 ;;00310-0045-39
 ;;9002226.02101,"975,00310-0045-50 ",.01)
 ;;00310-0045-50
 ;;9002226.02101,"975,00310-0045-50 ",.02)
 ;;00310-0045-50
 ;;9002226.02101,"975,00310-0047-10 ",.01)
 ;;00310-0047-10
 ;;9002226.02101,"975,00310-0047-10 ",.02)
 ;;00310-0047-10
 ;;9002226.02101,"975,00310-0047-30 ",.01)
 ;;00310-0047-30
 ;;9002226.02101,"975,00310-0047-30 ",.02)
 ;;00310-0047-30
 ;;9002226.02101,"975,00332-2120-09 ",.01)
 ;;00332-2120-09
 ;;9002226.02101,"975,00332-2120-09 ",.02)
 ;;00332-2120-09
 ;;9002226.02101,"975,00332-2120-15 ",.01)
 ;;00332-2120-15
 ;;9002226.02101,"975,00332-2120-15 ",.02)
 ;;00332-2120-15
 ;;9002226.02101,"975,00332-2122-09 ",.01)
 ;;00332-2122-09
 ;;9002226.02101,"975,00332-2122-09 ",.02)
 ;;00332-2122-09
 ;;9002226.02101,"975,00332-2124-09 ",.01)
 ;;00332-2124-09
 ;;9002226.02101,"975,00332-2124-09 ",.02)
 ;;00332-2124-09
 ;;9002226.02101,"975,00332-2124-15 ",.01)
 ;;00332-2124-15
 ;;9002226.02101,"975,00332-2124-15 ",.02)
 ;;00332-2124-15
 ;;9002226.02101,"975,00332-2126-09 ",.01)
 ;;00332-2126-09
 ;;9002226.02101,"975,00332-2126-09 ",.02)
 ;;00332-2126-09
 ;;9002226.02101,"975,00332-2128-09 ",.01)
 ;;00332-2128-09
 ;;9002226.02101,"975,00332-2128-09 ",.02)
 ;;00332-2128-09
 ;;9002226.02101,"975,00364-2109-01 ",.01)
 ;;00364-2109-01
 ;;9002226.02101,"975,00364-2109-01 ",.02)
 ;;00364-2109-01
 ;;9002226.02101,"975,00364-2109-02 ",.01)
 ;;00364-2109-02
 ;;9002226.02101,"975,00364-2109-02 ",.02)
 ;;00364-2109-02
 ;;9002226.02101,"975,00364-2110-01 ",.01)
 ;;00364-2110-01
 ;;9002226.02101,"975,00364-2110-01 ",.02)
 ;;00364-2110-01
 ;;9002226.02101,"975,00364-2110-02 ",.01)
 ;;00364-2110-02
 ;;9002226.02101,"975,00364-2110-02 ",.02)
 ;;00364-2110-02
 ;;9002226.02101,"975,00364-2113-01 ",.01)
 ;;00364-2113-01
 ;;9002226.02101,"975,00364-2113-01 ",.02)
 ;;00364-2113-01
 ;;9002226.02101,"975,00364-2114-01 ",.01)
 ;;00364-2114-01
 ;;9002226.02101,"975,00364-2114-01 ",.02)
 ;;00364-2114-01
 ;;9002226.02101,"975,00364-2114-02 ",.01)
 ;;00364-2114-02
 ;;9002226.02101,"975,00364-2114-02 ",.02)
 ;;00364-2114-02
 ;;9002226.02101,"975,00364-2115-01 ",.01)
 ;;00364-2115-01
 ;;9002226.02101,"975,00364-2115-01 ",.02)
 ;;00364-2115-01