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

BGP53I42.m

Go to the documentation of this file.
BGP53I42 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 23, 2015;
 ;;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,"734,49999-0080-28 ",.02)
 ;;49999-0080-28
 ;;9002226.02101,"734,49999-0080-30 ",.01)
 ;;49999-0080-30
 ;;9002226.02101,"734,49999-0080-30 ",.02)
 ;;49999-0080-30
 ;;9002226.02101,"734,49999-0080-40 ",.01)
 ;;49999-0080-40
 ;;9002226.02101,"734,49999-0080-40 ",.02)
 ;;49999-0080-40
 ;;9002226.02101,"734,49999-0096-04 ",.01)
 ;;49999-0096-04
 ;;9002226.02101,"734,49999-0096-04 ",.02)
 ;;49999-0096-04
 ;;9002226.02101,"734,49999-0096-06 ",.01)
 ;;49999-0096-06
 ;;9002226.02101,"734,49999-0096-06 ",.02)
 ;;49999-0096-06
 ;;9002226.02101,"734,49999-0117-20 ",.01)
 ;;49999-0117-20
 ;;9002226.02101,"734,49999-0117-20 ",.02)
 ;;49999-0117-20
 ;;9002226.02101,"734,49999-0120-20 ",.01)
 ;;49999-0120-20
 ;;9002226.02101,"734,49999-0120-20 ",.02)
 ;;49999-0120-20
 ;;9002226.02101,"734,49999-0120-28 ",.01)
 ;;49999-0120-28
 ;;9002226.02101,"734,49999-0120-28 ",.02)
 ;;49999-0120-28
 ;;9002226.02101,"734,49999-0120-40 ",.01)
 ;;49999-0120-40
 ;;9002226.02101,"734,49999-0120-40 ",.02)
 ;;49999-0120-40
 ;;9002226.02101,"734,49999-0126-11 ",.01)
 ;;49999-0126-11
 ;;9002226.02101,"734,49999-0126-11 ",.02)
 ;;49999-0126-11
 ;;9002226.02101,"734,49999-0126-14 ",.01)
 ;;49999-0126-14
 ;;9002226.02101,"734,49999-0126-14 ",.02)
 ;;49999-0126-14
 ;;9002226.02101,"734,49999-0126-20 ",.01)
 ;;49999-0126-20
 ;;9002226.02101,"734,49999-0126-20 ",.02)
 ;;49999-0126-20
 ;;9002226.02101,"734,49999-0126-30 ",.01)
 ;;49999-0126-30
 ;;9002226.02101,"734,49999-0126-30 ",.02)
 ;;49999-0126-30
 ;;9002226.02101,"734,49999-0126-56 ",.01)
 ;;49999-0126-56
 ;;9002226.02101,"734,49999-0126-56 ",.02)
 ;;49999-0126-56
 ;;9002226.02101,"734,49999-0164-10 ",.01)
 ;;49999-0164-10
 ;;9002226.02101,"734,49999-0164-10 ",.02)
 ;;49999-0164-10
 ;;9002226.02101,"734,49999-0168-00 ",.01)
 ;;49999-0168-00
 ;;9002226.02101,"734,49999-0168-00 ",.02)
 ;;49999-0168-00
 ;;9002226.02101,"734,49999-0168-50 ",.01)
 ;;49999-0168-50
 ;;9002226.02101,"734,49999-0168-50 ",.02)
 ;;49999-0168-50
 ;;9002226.02101,"734,49999-0168-80 ",.01)
 ;;49999-0168-80
 ;;9002226.02101,"734,49999-0168-80 ",.02)
 ;;49999-0168-80
 ;;9002226.02101,"734,49999-0177-20 ",.01)
 ;;49999-0177-20
 ;;9002226.02101,"734,49999-0177-20 ",.02)
 ;;49999-0177-20
 ;;9002226.02101,"734,49999-0191-00 ",.01)
 ;;49999-0191-00
 ;;9002226.02101,"734,49999-0191-00 ",.02)
 ;;49999-0191-00
 ;;9002226.02101,"734,49999-0191-50 ",.01)
 ;;49999-0191-50
 ;;9002226.02101,"734,49999-0191-50 ",.02)
 ;;49999-0191-50
 ;;9002226.02101,"734,49999-0191-80 ",.01)
 ;;49999-0191-80
 ;;9002226.02101,"734,49999-0191-80 ",.02)
 ;;49999-0191-80
 ;;9002226.02101,"734,49999-0199-30 ",.01)
 ;;49999-0199-30
 ;;9002226.02101,"734,49999-0199-30 ",.02)
 ;;49999-0199-30
 ;;9002226.02101,"734,49999-0213-20 ",.01)
 ;;49999-0213-20
 ;;9002226.02101,"734,49999-0213-20 ",.02)
 ;;49999-0213-20
 ;;9002226.02101,"734,49999-0224-00 ",.01)
 ;;49999-0224-00
 ;;9002226.02101,"734,49999-0224-00 ",.02)
 ;;49999-0224-00
 ;;9002226.02101,"734,49999-0224-14 ",.01)
 ;;49999-0224-14
 ;;9002226.02101,"734,49999-0224-14 ",.02)
 ;;49999-0224-14
 ;;9002226.02101,"734,49999-0224-30 ",.01)
 ;;49999-0224-30
 ;;9002226.02101,"734,49999-0224-30 ",.02)
 ;;49999-0224-30
 ;;9002226.02101,"734,49999-0224-40 ",.01)
 ;;49999-0224-40
 ;;9002226.02101,"734,49999-0224-40 ",.02)
 ;;49999-0224-40
 ;;9002226.02101,"734,49999-0246-20 ",.01)
 ;;49999-0246-20
 ;;9002226.02101,"734,49999-0246-20 ",.02)
 ;;49999-0246-20
 ;;9002226.02101,"734,49999-0260-15 ",.01)
 ;;49999-0260-15
 ;;9002226.02101,"734,49999-0260-15 ",.02)
 ;;49999-0260-15
 ;;9002226.02101,"734,49999-0261-00 ",.01)
 ;;49999-0261-00
 ;;9002226.02101,"734,49999-0261-00 ",.02)
 ;;49999-0261-00
 ;;9002226.02101,"734,49999-0261-20 ",.01)
 ;;49999-0261-20
 ;;9002226.02101,"734,49999-0261-20 ",.02)
 ;;49999-0261-20
 ;;9002226.02101,"734,49999-0267-28 ",.01)
 ;;49999-0267-28
 ;;9002226.02101,"734,49999-0267-28 ",.02)
 ;;49999-0267-28
 ;;9002226.02101,"734,49999-0267-30 ",.01)
 ;;49999-0267-30
 ;;9002226.02101,"734,49999-0267-30 ",.02)
 ;;49999-0267-30
 ;;9002226.02101,"734,49999-0267-40 ",.01)
 ;;49999-0267-40
 ;;9002226.02101,"734,49999-0267-40 ",.02)
 ;;49999-0267-40
 ;;9002226.02101,"734,49999-0290-06 ",.01)
 ;;49999-0290-06
 ;;9002226.02101,"734,49999-0290-06 ",.02)
 ;;49999-0290-06
 ;;9002226.02101,"734,49999-0290-07 ",.01)
 ;;49999-0290-07
 ;;9002226.02101,"734,49999-0290-07 ",.02)
 ;;49999-0290-07
 ;;9002226.02101,"734,49999-0290-10 ",.01)
 ;;49999-0290-10
 ;;9002226.02101,"734,49999-0290-10 ",.02)
 ;;49999-0290-10
 ;;9002226.02101,"734,49999-0290-20 ",.01)
 ;;49999-0290-20
 ;;9002226.02101,"734,49999-0290-20 ",.02)
 ;;49999-0290-20
 ;;9002226.02101,"734,49999-0290-21 ",.01)
 ;;49999-0290-21
 ;;9002226.02101,"734,49999-0290-21 ",.02)
 ;;49999-0290-21
 ;;9002226.02101,"734,49999-0290-30 ",.01)
 ;;49999-0290-30
 ;;9002226.02101,"734,49999-0290-30 ",.02)
 ;;49999-0290-30
 ;;9002226.02101,"734,49999-0309-20 ",.01)
 ;;49999-0309-20
 ;;9002226.02101,"734,49999-0309-20 ",.02)
 ;;49999-0309-20
 ;;9002226.02101,"734,49999-0309-30 ",.01)
 ;;49999-0309-30
 ;;9002226.02101,"734,49999-0309-30 ",.02)
 ;;49999-0309-30
 ;;9002226.02101,"734,49999-0315-00 ",.01)
 ;;49999-0315-00
 ;;9002226.02101,"734,49999-0315-00 ",.02)
 ;;49999-0315-00
 ;;9002226.02101,"734,49999-0325-50 ",.01)
 ;;49999-0325-50
 ;;9002226.02101,"734,49999-0325-50 ",.02)
 ;;49999-0325-50
 ;;9002226.02101,"734,49999-0325-75 ",.01)
 ;;49999-0325-75
 ;;9002226.02101,"734,49999-0325-75 ",.02)
 ;;49999-0325-75
 ;;9002226.02101,"734,49999-0332-20 ",.01)
 ;;49999-0332-20
 ;;9002226.02101,"734,49999-0332-20 ",.02)
 ;;49999-0332-20
 ;;9002226.02101,"734,49999-0333-06 ",.01)
 ;;49999-0333-06
 ;;9002226.02101,"734,49999-0333-06 ",.02)
 ;;49999-0333-06
 ;;9002226.02101,"734,49999-0333-10 ",.01)
 ;;49999-0333-10
 ;;9002226.02101,"734,49999-0333-10 ",.02)
 ;;49999-0333-10
 ;;9002226.02101,"734,49999-0333-14 ",.01)
 ;;49999-0333-14
 ;;9002226.02101,"734,49999-0333-14 ",.02)
 ;;49999-0333-14
 ;;9002226.02101,"734,49999-0333-20 ",.01)
 ;;49999-0333-20
 ;;9002226.02101,"734,49999-0333-20 ",.02)
 ;;49999-0333-20
 ;;9002226.02101,"734,49999-0334-00 ",.01)
 ;;49999-0334-00
 ;;9002226.02101,"734,49999-0334-00 ",.02)
 ;;49999-0334-00
 ;;9002226.02101,"734,49999-0334-01 ",.01)
 ;;49999-0334-01
 ;;9002226.02101,"734,49999-0334-01 ",.02)
 ;;49999-0334-01
 ;;9002226.02101,"734,49999-0334-06 ",.01)
 ;;49999-0334-06
 ;;9002226.02101,"734,49999-0334-06 ",.02)
 ;;49999-0334-06
 ;;9002226.02101,"734,49999-0334-10 ",.01)
 ;;49999-0334-10
 ;;9002226.02101,"734,49999-0334-10 ",.02)
 ;;49999-0334-10
 ;;9002226.02101,"734,49999-0334-14 ",.01)
 ;;49999-0334-14
 ;;9002226.02101,"734,49999-0334-14 ",.02)
 ;;49999-0334-14
 ;;9002226.02101,"734,49999-0334-20 ",.01)
 ;;49999-0334-20
 ;;9002226.02101,"734,49999-0334-20 ",.02)
 ;;49999-0334-20
 ;;9002226.02101,"734,49999-0334-28 ",.01)
 ;;49999-0334-28
 ;;9002226.02101,"734,49999-0334-28 ",.02)
 ;;49999-0334-28
 ;;9002226.02101,"734,49999-0334-30 ",.01)
 ;;49999-0334-30
 ;;9002226.02101,"734,49999-0334-30 ",.02)
 ;;49999-0334-30
 ;;9002226.02101,"734,49999-0356-00 ",.01)
 ;;49999-0356-00
 ;;9002226.02101,"734,49999-0356-00 ",.02)
 ;;49999-0356-00
 ;;9002226.02101,"734,49999-0365-50 ",.01)
 ;;49999-0365-50
 ;;9002226.02101,"734,49999-0365-50 ",.02)
 ;;49999-0365-50
 ;;9002226.02101,"734,49999-0407-20 ",.01)
 ;;49999-0407-20
 ;;9002226.02101,"734,49999-0407-20 ",.02)
 ;;49999-0407-20
 ;;9002226.02101,"734,49999-0417-10 ",.01)
 ;;49999-0417-10
 ;;9002226.02101,"734,49999-0417-10 ",.02)
 ;;49999-0417-10
 ;;9002226.02101,"734,49999-0418-02 ",.01)
 ;;49999-0418-02
 ;;9002226.02101,"734,49999-0418-02 ",.02)
 ;;49999-0418-02
 ;;9002226.02101,"734,49999-0418-07 ",.01)
 ;;49999-0418-07
 ;;9002226.02101,"734,49999-0418-07 ",.02)
 ;;49999-0418-07
 ;;9002226.02101,"734,49999-0418-10 ",.01)
 ;;49999-0418-10
 ;;9002226.02101,"734,49999-0418-10 ",.02)
 ;;49999-0418-10
 ;;9002226.02101,"734,49999-0418-30 ",.01)
 ;;49999-0418-30
 ;;9002226.02101,"734,49999-0418-30 ",.02)
 ;;49999-0418-30
 ;;9002226.02101,"734,49999-0418-50 ",.01)
 ;;49999-0418-50
 ;;9002226.02101,"734,49999-0418-50 ",.02)
 ;;49999-0418-50
 ;;9002226.02101,"734,49999-0455-05 ",.01)
 ;;49999-0455-05
 ;;9002226.02101,"734,49999-0455-05 ",.02)
 ;;49999-0455-05
 ;;9002226.02101,"734,49999-0455-10 ",.01)
 ;;49999-0455-10
 ;;9002226.02101,"734,49999-0455-10 ",.02)
 ;;49999-0455-10
 ;;9002226.02101,"734,49999-0455-30 ",.01)
 ;;49999-0455-30
 ;;9002226.02101,"734,49999-0455-30 ",.02)
 ;;49999-0455-30
 ;;9002226.02101,"734,49999-0503-20 ",.01)
 ;;49999-0503-20
 ;;9002226.02101,"734,49999-0503-20 ",.02)
 ;;49999-0503-20
 ;;9002226.02101,"734,49999-0504-28 ",.01)
 ;;49999-0504-28
 ;;9002226.02101,"734,49999-0504-28 ",.02)
 ;;49999-0504-28
 ;;9002226.02101,"734,49999-0505-07 ",.01)
 ;;49999-0505-07
 ;;9002226.02101,"734,49999-0505-07 ",.02)
 ;;49999-0505-07
 ;;9002226.02101,"734,49999-0505-20 ",.01)
 ;;49999-0505-20
 ;;9002226.02101,"734,49999-0505-20 ",.02)
 ;;49999-0505-20
 ;;9002226.02101,"734,49999-0505-28 ",.01)
 ;;49999-0505-28
 ;;9002226.02101,"734,49999-0505-28 ",.02)
 ;;49999-0505-28
 ;;9002226.02101,"734,49999-0541-00 ",.01)
 ;;49999-0541-00
 ;;9002226.02101,"734,49999-0541-00 ",.02)
 ;;49999-0541-00
 ;;9002226.02101,"734,49999-0541-28 ",.01)
 ;;49999-0541-28
 ;;9002226.02101,"734,49999-0541-28 ",.02)
 ;;49999-0541-28
 ;;9002226.02101,"734,49999-0556-00 ",.01)
 ;;49999-0556-00
 ;;9002226.02101,"734,49999-0556-00 ",.02)
 ;;49999-0556-00
 ;;9002226.02101,"734,49999-0556-50 ",.01)
 ;;49999-0556-50
 ;;9002226.02101,"734,49999-0556-50 ",.02)
 ;;49999-0556-50
 ;;9002226.02101,"734,49999-0557-30 ",.01)
 ;;49999-0557-30
 ;;9002226.02101,"734,49999-0557-30 ",.02)
 ;;49999-0557-30
 ;;9002226.02101,"734,49999-0557-42 ",.01)
 ;;49999-0557-42
 ;;9002226.02101,"734,49999-0557-42 ",.02)
 ;;49999-0557-42
 ;;9002226.02101,"734,49999-0582-15 ",.01)
 ;;49999-0582-15
 ;;9002226.02101,"734,49999-0582-15 ",.02)
 ;;49999-0582-15
 ;;9002226.02101,"734,49999-0586-01 ",.01)
 ;;49999-0586-01
 ;;9002226.02101,"734,49999-0586-01 ",.02)
 ;;49999-0586-01
 ;;9002226.02101,"734,49999-0586-10 ",.01)
 ;;49999-0586-10
 ;;9002226.02101,"734,49999-0586-10 ",.02)
 ;;49999-0586-10
 ;;9002226.02101,"734,49999-0649-10 ",.01)
 ;;49999-0649-10
 ;;9002226.02101,"734,49999-0649-10 ",.02)
 ;;49999-0649-10
 ;;9002226.02101,"734,49999-0649-20 ",.01)
 ;;49999-0649-20
 ;;9002226.02101,"734,49999-0649-20 ",.02)
 ;;49999-0649-20
 ;;9002226.02101,"734,49999-0649-30 ",.01)
 ;;49999-0649-30
 ;;9002226.02101,"734,49999-0649-30 ",.02)
 ;;49999-0649-30
 ;;9002226.02101,"734,49999-0649-60 ",.01)
 ;;49999-0649-60
 ;;9002226.02101,"734,49999-0649-60 ",.02)
 ;;49999-0649-60
 ;;9002226.02101,"734,49999-0649-90 ",.01)
 ;;49999-0649-90
 ;;9002226.02101,"734,49999-0649-90 ",.02)
 ;;49999-0649-90
 ;;9002226.02101,"734,49999-0651-30 ",.01)
 ;;49999-0651-30
 ;;9002226.02101,"734,49999-0651-30 ",.02)
 ;;49999-0651-30
 ;;9002226.02101,"734,49999-0713-00 ",.01)
 ;;49999-0713-00
 ;;9002226.02101,"734,49999-0713-00 ",.02)
 ;;49999-0713-00
 ;;9002226.02101,"734,49999-0766-20 ",.01)
 ;;49999-0766-20
 ;;9002226.02101,"734,49999-0766-20 ",.02)
 ;;49999-0766-20
 ;;9002226.02101,"734,49999-0766-28 ",.01)
 ;;49999-0766-28
 ;;9002226.02101,"734,49999-0766-28 ",.02)
 ;;49999-0766-28
 ;;9002226.02101,"734,49999-0785-20 ",.01)
 ;;49999-0785-20
 ;;9002226.02101,"734,49999-0785-20 ",.02)
 ;;49999-0785-20
 ;;9002226.02101,"734,49999-0786-06 ",.01)
 ;;49999-0786-06
 ;;9002226.02101,"734,49999-0786-06 ",.02)
 ;;49999-0786-06
 ;;9002226.02101,"734,49999-0810-00 ",.01)
 ;;49999-0810-00
 ;;9002226.02101,"734,49999-0810-00 ",.02)
 ;;49999-0810-00
 ;;9002226.02101,"734,49999-0904-14 ",.01)
 ;;49999-0904-14
 ;;9002226.02101,"734,49999-0904-14 ",.02)
 ;;49999-0904-14
 ;;9002226.02101,"734,49999-0904-20 ",.01)
 ;;49999-0904-20
 ;;9002226.02101,"734,49999-0904-20 ",.02)
 ;;49999-0904-20
 ;;9002226.02101,"734,49999-0983-00 ",.01)
 ;;49999-0983-00
 ;;9002226.02101,"734,49999-0983-00 ",.02)
 ;;49999-0983-00
 ;;9002226.02101,"734,50111-0767-28 ",.01)
 ;;50111-0767-28
 ;;9002226.02101,"734,50111-0767-28 ",.02)
 ;;50111-0767-28
 ;;9002226.02101,"734,50111-0787-10 ",.01)
 ;;50111-0787-10
 ;;9002226.02101,"734,50111-0787-10 ",.02)
 ;;50111-0787-10
 ;;9002226.02101,"734,50111-0787-51 ",.01)
 ;;50111-0787-51
 ;;9002226.02101,"734,50111-0787-51 ",.02)
 ;;50111-0787-51
 ;;9002226.02101,"734,50111-0787-52 ",.01)
 ;;50111-0787-52
 ;;9002226.02101,"734,50111-0787-52 ",.02)
 ;;50111-0787-52
 ;;9002226.02101,"734,50111-0787-66 ",.01)
 ;;50111-0787-66
 ;;9002226.02101,"734,50111-0787-66 ",.02)
 ;;50111-0787-66
 ;;9002226.02101,"734,50111-0788-10 ",.01)
 ;;50111-0788-10
 ;;9002226.02101,"734,50111-0788-10 ",.02)
 ;;50111-0788-10
 ;;9002226.02101,"734,50111-0788-52 ",.01)
 ;;50111-0788-52
 ;;9002226.02101,"734,50111-0788-52 ",.02)
 ;;50111-0788-52
 ;;9002226.02101,"734,50111-0788-55 ",.01)
 ;;50111-0788-55
 ;;9002226.02101,"734,50111-0788-55 ",.02)
 ;;50111-0788-55
 ;;9002226.02101,"734,50111-0788-67 ",.01)
 ;;50111-0788-67
 ;;9002226.02101,"734,50111-0788-67 ",.02)
 ;;50111-0788-67
 ;;9002226.02101,"734,50111-0789-10 ",.01)
 ;;50111-0789-10
 ;;9002226.02101,"734,50111-0789-10 ",.02)
 ;;50111-0789-10
 ;;9002226.02101,"734,50111-0791-20 ",.01)
 ;;50111-0791-20
 ;;9002226.02101,"734,50111-0791-20 ",.02)
 ;;50111-0791-20
 ;;9002226.02101,"734,50111-0792-22 ",.01)
 ;;50111-0792-22