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