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

BGPM5AWB.m

Go to the documentation of this file.
  1. BGPM5AWB ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1033,58016096484 ",.01)
  1. ;;58016096484
  1. ;;9002226.02101,"1033,58016096484 ",.02)
  1. ;;58016096484
  1. ;;9002226.02101,"1033,58016096487 ",.01)
  1. ;;58016096487
  1. ;;9002226.02101,"1033,58016096487 ",.02)
  1. ;;58016096487
  1. ;;9002226.02101,"1033,58016096489 ",.01)
  1. ;;58016096489
  1. ;;9002226.02101,"1033,58016096489 ",.02)
  1. ;;58016096489
  1. ;;9002226.02101,"1033,58016096490 ",.01)
  1. ;;58016096490
  1. ;;9002226.02101,"1033,58016096490 ",.02)
  1. ;;58016096490
  1. ;;9002226.02101,"1033,58016096491 ",.01)
  1. ;;58016096491
  1. ;;9002226.02101,"1033,58016096491 ",.02)
  1. ;;58016096491
  1. ;;9002226.02101,"1033,58016096492 ",.01)
  1. ;;58016096492
  1. ;;9002226.02101,"1033,58016096492 ",.02)
  1. ;;58016096492
  1. ;;9002226.02101,"1033,58016096493 ",.01)
  1. ;;58016096493
  1. ;;9002226.02101,"1033,58016096493 ",.02)
  1. ;;58016096493
  1. ;;9002226.02101,"1033,58016096496 ",.01)
  1. ;;58016096496
  1. ;;9002226.02101,"1033,58016096496 ",.02)
  1. ;;58016096496
  1. ;;9002226.02101,"1033,58016096497 ",.01)
  1. ;;58016096497
  1. ;;9002226.02101,"1033,58016096497 ",.02)
  1. ;;58016096497
  1. ;;9002226.02101,"1033,58016096498 ",.01)
  1. ;;58016096498
  1. ;;9002226.02101,"1033,58016096498 ",.02)
  1. ;;58016096498
  1. ;;9002226.02101,"1033,58016096499 ",.01)
  1. ;;58016096499
  1. ;;9002226.02101,"1033,58016096499 ",.02)
  1. ;;58016096499
  1. ;;9002226.02101,"1033,58016100001 ",.01)
  1. ;;58016100001
  1. ;;9002226.02101,"1033,58016100001 ",.02)
  1. ;;58016100001
  1. ;;9002226.02101,"1033,58016100201 ",.01)
  1. ;;58016100201
  1. ;;9002226.02101,"1033,58016100201 ",.02)
  1. ;;58016100201
  1. ;;9002226.02101,"1033,58016100401 ",.01)
  1. ;;58016100401
  1. ;;9002226.02101,"1033,58016100401 ",.02)
  1. ;;58016100401
  1. ;;9002226.02101,"1033,58016100501 ",.01)
  1. ;;58016100501
  1. ;;9002226.02101,"1033,58016100501 ",.02)
  1. ;;58016100501
  1. ;;9002226.02101,"1033,58016100601 ",.01)
  1. ;;58016100601
  1. ;;9002226.02101,"1033,58016100601 ",.02)
  1. ;;58016100601
  1. ;;9002226.02101,"1033,58016100701 ",.01)
  1. ;;58016100701
  1. ;;9002226.02101,"1033,58016100701 ",.02)
  1. ;;58016100701
  1. ;;9002226.02101,"1033,58016101901 ",.01)
  1. ;;58016101901
  1. ;;9002226.02101,"1033,58016101901 ",.02)
  1. ;;58016101901
  1. ;;9002226.02101,"1033,58016102101 ",.01)
  1. ;;58016102101
  1. ;;9002226.02101,"1033,58016102101 ",.02)
  1. ;;58016102101
  1. ;;9002226.02101,"1033,58016102301 ",.01)
  1. ;;58016102301
  1. ;;9002226.02101,"1033,58016102301 ",.02)
  1. ;;58016102301
  1. ;;9002226.02101,"1033,58016102401 ",.01)
  1. ;;58016102401
  1. ;;9002226.02101,"1033,58016102401 ",.02)
  1. ;;58016102401
  1. ;;9002226.02101,"1033,58016102501 ",.01)
  1. ;;58016102501
  1. ;;9002226.02101,"1033,58016102501 ",.02)
  1. ;;58016102501
  1. ;;9002226.02101,"1033,58016102601 ",.01)
  1. ;;58016102601
  1. ;;9002226.02101,"1033,58016102601 ",.02)
  1. ;;58016102601
  1. ;;9002226.02101,"1033,58016102701 ",.01)
  1. ;;58016102701
  1. ;;9002226.02101,"1033,58016102701 ",.02)
  1. ;;58016102701
  1. ;;9002226.02101,"1033,58016102801 ",.01)
  1. ;;58016102801
  1. ;;9002226.02101,"1033,58016102801 ",.02)
  1. ;;58016102801
  1. ;;9002226.02101,"1033,58016102901 ",.01)
  1. ;;58016102901
  1. ;;9002226.02101,"1033,58016102901 ",.02)
  1. ;;58016102901
  1. ;;9002226.02101,"1033,58016103101 ",.01)
  1. ;;58016103101
  1. ;;9002226.02101,"1033,58016103101 ",.02)
  1. ;;58016103101
  1. ;;9002226.02101,"1033,58016103201 ",.01)
  1. ;;58016103201
  1. ;;9002226.02101,"1033,58016103201 ",.02)
  1. ;;58016103201
  1. ;;9002226.02101,"1033,58016103301 ",.01)
  1. ;;58016103301
  1. ;;9002226.02101,"1033,58016103301 ",.02)
  1. ;;58016103301
  1. ;;9002226.02101,"1033,58016103401 ",.01)
  1. ;;58016103401
  1. ;;9002226.02101,"1033,58016103401 ",.02)
  1. ;;58016103401
  1. ;;9002226.02101,"1033,58016103501 ",.01)
  1. ;;58016103501
  1. ;;9002226.02101,"1033,58016103501 ",.02)
  1. ;;58016103501
  1. ;;9002226.02101,"1033,58016104501 ",.01)
  1. ;;58016104501
  1. ;;9002226.02101,"1033,58016104501 ",.02)
  1. ;;58016104501
  1. ;;9002226.02101,"1033,58016104601 ",.01)
  1. ;;58016104601
  1. ;;9002226.02101,"1033,58016104601 ",.02)
  1. ;;58016104601
  1. ;;9002226.02101,"1033,58016419201 ",.01)
  1. ;;58016419201
  1. ;;9002226.02101,"1033,58016419201 ",.02)
  1. ;;58016419201
  1. ;;9002226.02101,"1033,58016419301 ",.01)
  1. ;;58016419301
  1. ;;9002226.02101,"1033,58016419301 ",.02)
  1. ;;58016419301
  1. ;;9002226.02101,"1033,58016478601 ",.01)
  1. ;;58016478601
  1. ;;9002226.02101,"1033,58016478601 ",.02)
  1. ;;58016478601
  1. ;;9002226.02101,"1033,58016479001 ",.01)
  1. ;;58016479001
  1. ;;9002226.02101,"1033,58016479001 ",.02)
  1. ;;58016479001
  1. ;;9002226.02101,"1033,58016483401 ",.01)
  1. ;;58016483401
  1. ;;9002226.02101,"1033,58016483401 ",.02)
  1. ;;58016483401
  1. ;;9002226.02101,"1033,58016484201 ",.01)
  1. ;;58016484201
  1. ;;9002226.02101,"1033,58016484201 ",.02)
  1. ;;58016484201
  1. ;;9002226.02101,"1033,58016486901 ",.01)
  1. ;;58016486901
  1. ;;9002226.02101,"1033,58016486901 ",.02)
  1. ;;58016486901
  1. ;;9002226.02101,"1033,58016487301 ",.01)
  1. ;;58016487301
  1. ;;9002226.02101,"1033,58016487301 ",.02)
  1. ;;58016487301
  1. ;;9002226.02101,"1033,58016499001 ",.01)
  1. ;;58016499001
  1. ;;9002226.02101,"1033,58016499001 ",.02)
  1. ;;58016499001
  1. ;;9002226.02101,"1033,58016556101 ",.01)
  1. ;;58016556101
  1. ;;9002226.02101,"1033,58016556101 ",.02)
  1. ;;58016556101
  1. ;;9002226.02101,"1033,58087008060 ",.01)
  1. ;;58087008060
  1. ;;9002226.02101,"1033,58087008060 ",.02)
  1. ;;58087008060
  1. ;;9002226.02101,"1033,58087008140 ",.01)
  1. ;;58087008140
  1. ;;9002226.02101,"1033,58087008140 ",.02)
  1. ;;58087008140
  1. ;;9002226.02101,"1033,58087008206 ",.01)
  1. ;;58087008206
  1. ;;9002226.02101,"1033,58087008206 ",.02)
  1. ;;58087008206
  1. ;;9002226.02101,"1033,58087008220 ",.01)
  1. ;;58087008220
  1. ;;9002226.02101,"1033,58087008220 ",.02)
  1. ;;58087008220
  1. ;;9002226.02101,"1033,58864002801 ",.01)
  1. ;;58864002801
  1. ;;9002226.02101,"1033,58864002801 ",.02)
  1. ;;58864002801
  1. ;;9002226.02101,"1033,58864002830 ",.01)
  1. ;;58864002830
  1. ;;9002226.02101,"1033,58864002830 ",.02)
  1. ;;58864002830
  1. ;;9002226.02101,"1033,58864002840 ",.01)
  1. ;;58864002840
  1. ;;9002226.02101,"1033,58864002840 ",.02)
  1. ;;58864002840
  1. ;;9002226.02101,"1033,58864002850 ",.01)
  1. ;;58864002850
  1. ;;9002226.02101,"1033,58864002850 ",.02)
  1. ;;58864002850
  1. ;;9002226.02101,"1033,58864002921 ",.01)
  1. ;;58864002921
  1. ;;9002226.02101,"1033,58864002921 ",.02)
  1. ;;58864002921
  1. ;;9002226.02101,"1033,58864002930 ",.01)
  1. ;;58864002930
  1. ;;9002226.02101,"1033,58864002930 ",.02)
  1. ;;58864002930
  1. ;;9002226.02101,"1033,58864002940 ",.01)
  1. ;;58864002940
  1. ;;9002226.02101,"1033,58864002940 ",.02)
  1. ;;58864002940
  1. ;;9002226.02101,"1033,58864003328 ",.01)
  1. ;;58864003328
  1. ;;9002226.02101,"1033,58864003328 ",.02)
  1. ;;58864003328
  1. ;;9002226.02101,"1033,58864003340 ",.01)
  1. ;;58864003340
  1. ;;9002226.02101,"1033,58864003340 ",.02)
  1. ;;58864003340
  1. ;;9002226.02101,"1033,58864007201 ",.01)
  1. ;;58864007201
  1. ;;9002226.02101,"1033,58864007201 ",.02)
  1. ;;58864007201
  1. ;;9002226.02101,"1033,58864007230 ",.01)
  1. ;;58864007230
  1. ;;9002226.02101,"1033,58864007230 ",.02)
  1. ;;58864007230
  1. ;;9002226.02101,"1033,58864007240 ",.01)
  1. ;;58864007240
  1. ;;9002226.02101,"1033,58864007240 ",.02)
  1. ;;58864007240
  1. ;;9002226.02101,"1033,58864007301 ",.01)
  1. ;;58864007301
  1. ;;9002226.02101,"1033,58864007301 ",.02)
  1. ;;58864007301
  1. ;;9002226.02101,"1033,58864007320 ",.01)
  1. ;;58864007320
  1. ;;9002226.02101,"1033,58864007320 ",.02)
  1. ;;58864007320
  1. ;;9002226.02101,"1033,58864007328 ",.01)
  1. ;;58864007328
  1. ;;9002226.02101,"1033,58864007328 ",.02)
  1. ;;58864007328
  1. ;;9002226.02101,"1033,58864007330 ",.01)
  1. ;;58864007330
  1. ;;9002226.02101,"1033,58864007330 ",.02)
  1. ;;58864007330
  1. ;;9002226.02101,"1033,58864007340 ",.01)
  1. ;;58864007340
  1. ;;9002226.02101,"1033,58864007340 ",.02)
  1. ;;58864007340
  1. ;;9002226.02101,"1033,58864007356 ",.01)
  1. ;;58864007356
  1. ;;9002226.02101,"1033,58864007356 ",.02)
  1. ;;58864007356
  1. ;;9002226.02101,"1033,58864007440 ",.01)
  1. ;;58864007440
  1. ;;9002226.02101,"1033,58864007440 ",.02)
  1. ;;58864007440
  1. ;;9002226.02101,"1033,58864014928 ",.01)
  1. ;;58864014928
  1. ;;9002226.02101,"1033,58864014928 ",.02)
  1. ;;58864014928
  1. ;;9002226.02101,"1033,58864014940 ",.01)
  1. ;;58864014940
  1. ;;9002226.02101,"1033,58864014940 ",.02)
  1. ;;58864014940
  1. ;;9002226.02101,"1033,58864015030 ",.01)
  1. ;;58864015030
  1. ;;9002226.02101,"1033,58864015030 ",.02)
  1. ;;58864015030
  1. ;;9002226.02101,"1033,58864018910 ",.01)
  1. ;;58864018910
  1. ;;9002226.02101,"1033,58864018910 ",.02)
  1. ;;58864018910
  1. ;;9002226.02101,"1033,58864018912 ",.01)
  1. ;;58864018912
  1. ;;9002226.02101,"1033,58864018912 ",.02)
  1. ;;58864018912
  1. ;;9002226.02101,"1033,58864018914 ",.01)
  1. ;;58864018914
  1. ;;9002226.02101,"1033,58864018914 ",.02)
  1. ;;58864018914
  1. ;;9002226.02101,"1033,58864018920 ",.01)
  1. ;;58864018920
  1. ;;9002226.02101,"1033,58864018920 ",.02)
  1. ;;58864018920
  1. ;;9002226.02101,"1033,58864018928 ",.01)
  1. ;;58864018928
  1. ;;9002226.02101,"1033,58864018928 ",.02)
  1. ;;58864018928
  1. ;;9002226.02101,"1033,58864018930 ",.01)
  1. ;;58864018930
  1. ;;9002226.02101,"1033,58864018930 ",.02)
  1. ;;58864018930
  1. ;;9002226.02101,"1033,58864019012 ",.01)
  1. ;;58864019012
  1. ;;9002226.02101,"1033,58864019012 ",.02)
  1. ;;58864019012
  1. ;;9002226.02101,"1033,58864019014 ",.01)
  1. ;;58864019014
  1. ;;9002226.02101,"1033,58864019014 ",.02)
  1. ;;58864019014
  1. ;;9002226.02101,"1033,58864019020 ",.01)
  1. ;;58864019020
  1. ;;9002226.02101,"1033,58864019020 ",.02)
  1. ;;58864019020
  1. ;;9002226.02101,"1033,58864019028 ",.01)
  1. ;;58864019028
  1. ;;9002226.02101,"1033,58864019028 ",.02)
  1. ;;58864019028
  1. ;;9002226.02101,"1033,58864019030 ",.01)
  1. ;;58864019030
  1. ;;9002226.02101,"1033,58864019030 ",.02)
  1. ;;58864019030
  1. ;;9002226.02101,"1033,58864019528 ",.01)
  1. ;;58864019528
  1. ;;9002226.02101,"1033,58864019528 ",.02)
  1. ;;58864019528
  1. ;;9002226.02101,"1033,58864019540 ",.01)
  1. ;;58864019540
  1. ;;9002226.02101,"1033,58864019540 ",.02)
  1. ;;58864019540
  1. ;;9002226.02101,"1033,58864037940 ",.01)
  1. ;;58864037940
  1. ;;9002226.02101,"1033,58864037940 ",.02)
  1. ;;58864037940
  1. ;;9002226.02101,"1033,58864047806 ",.01)
  1. ;;58864047806
  1. ;;9002226.02101,"1033,58864047806 ",.02)
  1. ;;58864047806
  1. ;;9002226.02101,"1033,58864047810 ",.01)
  1. ;;58864047810
  1. ;;9002226.02101,"1033,58864047810 ",.02)
  1. ;;58864047810
  1. ;;9002226.02101,"1033,58864047814 ",.01)
  1. ;;58864047814
  1. ;;9002226.02101,"1033,58864047814 ",.02)
  1. ;;58864047814
  1. ;;9002226.02101,"1033,58864047817 ",.01)
  1. ;;58864047817
  1. ;;9002226.02101,"1033,58864047817 ",.02)
  1. ;;58864047817
  1. ;;9002226.02101,"1033,58864047820 ",.01)
  1. ;;58864047820
  1. ;;9002226.02101,"1033,58864047820 ",.02)
  1. ;;58864047820
  1. ;;9002226.02101,"1033,58864047830 ",.01)
  1. ;;58864047830
  1. ;;9002226.02101,"1033,58864047830 ",.02)
  1. ;;58864047830
  1. ;;9002226.02101,"1033,58864049340 ",.01)
  1. ;;58864049340
  1. ;;9002226.02101,"1033,58864049340 ",.02)
  1. ;;58864049340
  1. ;;9002226.02101,"1033,58864049398 ",.01)
  1. ;;58864049398
  1. ;;9002226.02101,"1033,58864049398 ",.02)
  1. ;;58864049398
  1. ;;9002226.02101,"1033,58864060740 ",.01)
  1. ;;58864060740
  1. ;;9002226.02101,"1033,58864060740 ",.02)
  1. ;;58864060740
  1. ;;9002226.02101,"1033,58864060760 ",.01)
  1. ;;58864060760
  1. ;;9002226.02101,"1033,58864060760 ",.02)
  1. ;;58864060760
  1. ;;9002226.02101,"1033,58864061228 ",.01)
  1. ;;58864061228
  1. ;;9002226.02101,"1033,58864061228 ",.02)
  1. ;;58864061228
  1. ;;9002226.02101,"1033,58864061230 ",.01)
  1. ;;58864061230
  1. ;;9002226.02101,"1033,58864061230 ",.02)
  1. ;;58864061230
  1. ;;9002226.02101,"1033,58864061240 ",.01)
  1. ;;58864061240
  1. ;;9002226.02101,"1033,58864061240 ",.02)
  1. ;;58864061240
  1. ;;9002226.02101,"1033,58864061740 ",.01)
  1. ;;58864061740
  1. ;;9002226.02101,"1033,58864061740 ",.02)
  1. ;;58864061740
  1. ;;9002226.02101,"1033,58864067530 ",.01)
  1. ;;58864067530
  1. ;;9002226.02101,"1033,58864067530 ",.02)
  1. ;;58864067530
  1. ;;9002226.02101,"1033,58864067540 ",.01)
  1. ;;58864067540
  1. ;;9002226.02101,"1033,58864067540 ",.02)
  1. ;;58864067540
  1. ;;9002226.02101,"1033,58864068840 ",.01)
  1. ;;58864068840
  1. ;;9002226.02101,"1033,58864068840 ",.02)
  1. ;;58864068840
  1. ;;9002226.02101,"1033,58864076720 ",.01)
  1. ;;58864076720