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

BGPM5BDS.m

Go to the documentation of this file.
BGPM5BDS ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"1044,63874056030 ",.02)
 ;;63874056030
 ;;9002226.02101,"1044,63874056040 ",.01)
 ;;63874056040
 ;;9002226.02101,"1044,63874056040 ",.02)
 ;;63874056040
 ;;9002226.02101,"1044,63874056060 ",.01)
 ;;63874056060
 ;;9002226.02101,"1044,63874056060 ",.02)
 ;;63874056060
 ;;9002226.02101,"1044,63874056090 ",.01)
 ;;63874056090
 ;;9002226.02101,"1044,63874056090 ",.02)
 ;;63874056090
 ;;9002226.02101,"1044,63874057301 ",.01)
 ;;63874057301
 ;;9002226.02101,"1044,63874057301 ",.02)
 ;;63874057301
 ;;9002226.02101,"1044,63874057304 ",.01)
 ;;63874057304
 ;;9002226.02101,"1044,63874057304 ",.02)
 ;;63874057304
 ;;9002226.02101,"1044,63874057310 ",.01)
 ;;63874057310
 ;;9002226.02101,"1044,63874057310 ",.02)
 ;;63874057310
 ;;9002226.02101,"1044,63874057314 ",.01)
 ;;63874057314
 ;;9002226.02101,"1044,63874057314 ",.02)
 ;;63874057314
 ;;9002226.02101,"1044,63874057315 ",.01)
 ;;63874057315
 ;;9002226.02101,"1044,63874057315 ",.02)
 ;;63874057315
 ;;9002226.02101,"1044,63874057320 ",.01)
 ;;63874057320
 ;;9002226.02101,"1044,63874057320 ",.02)
 ;;63874057320
 ;;9002226.02101,"1044,63874057321 ",.01)
 ;;63874057321
 ;;9002226.02101,"1044,63874057321 ",.02)
 ;;63874057321
 ;;9002226.02101,"1044,63874057328 ",.01)
 ;;63874057328
 ;;9002226.02101,"1044,63874057328 ",.02)
 ;;63874057328
 ;;9002226.02101,"1044,63874057330 ",.01)
 ;;63874057330
 ;;9002226.02101,"1044,63874057330 ",.02)
 ;;63874057330
 ;;9002226.02101,"1044,63874057360 ",.01)
 ;;63874057360
 ;;9002226.02101,"1044,63874057360 ",.02)
 ;;63874057360
 ;;9002226.02101,"1044,63874057372 ",.01)
 ;;63874057372
 ;;9002226.02101,"1044,63874057372 ",.02)
 ;;63874057372
 ;;9002226.02101,"1044,63874057374 ",.01)
 ;;63874057374
 ;;9002226.02101,"1044,63874057374 ",.02)
 ;;63874057374
 ;;9002226.02101,"1044,63874057377 ",.01)
 ;;63874057377
 ;;9002226.02101,"1044,63874057377 ",.02)
 ;;63874057377
 ;;9002226.02101,"1044,63874057390 ",.01)
 ;;63874057390
 ;;9002226.02101,"1044,63874057390 ",.02)
 ;;63874057390
 ;;9002226.02101,"1044,63874057401 ",.01)
 ;;63874057401
 ;;9002226.02101,"1044,63874057401 ",.02)
 ;;63874057401
 ;;9002226.02101,"1044,63874057404 ",.01)
 ;;63874057404
 ;;9002226.02101,"1044,63874057404 ",.02)
 ;;63874057404
 ;;9002226.02101,"1044,63874057410 ",.01)
 ;;63874057410
 ;;9002226.02101,"1044,63874057410 ",.02)
 ;;63874057410
 ;;9002226.02101,"1044,63874057414 ",.01)
 ;;63874057414
 ;;9002226.02101,"1044,63874057414 ",.02)
 ;;63874057414
 ;;9002226.02101,"1044,63874057420 ",.01)
 ;;63874057420
 ;;9002226.02101,"1044,63874057420 ",.02)
 ;;63874057420
 ;;9002226.02101,"1044,63874057421 ",.01)
 ;;63874057421
 ;;9002226.02101,"1044,63874057421 ",.02)
 ;;63874057421
 ;;9002226.02101,"1044,63874057428 ",.01)
 ;;63874057428
 ;;9002226.02101,"1044,63874057428 ",.02)
 ;;63874057428
 ;;9002226.02101,"1044,63874057430 ",.01)
 ;;63874057430
 ;;9002226.02101,"1044,63874057430 ",.02)
 ;;63874057430
 ;;9002226.02101,"1044,63874057460 ",.01)
 ;;63874057460
 ;;9002226.02101,"1044,63874057460 ",.02)
 ;;63874057460
 ;;9002226.02101,"1044,63874057472 ",.01)
 ;;63874057472
 ;;9002226.02101,"1044,63874057472 ",.02)
 ;;63874057472
 ;;9002226.02101,"1044,63874057474 ",.01)
 ;;63874057474
 ;;9002226.02101,"1044,63874057474 ",.02)
 ;;63874057474
 ;;9002226.02101,"1044,63874057477 ",.01)
 ;;63874057477
 ;;9002226.02101,"1044,63874057477 ",.02)
 ;;63874057477
 ;;9002226.02101,"1044,63874057490 ",.01)
 ;;63874057490
 ;;9002226.02101,"1044,63874057490 ",.02)
 ;;63874057490
 ;;9002226.02101,"1044,63874058001 ",.01)
 ;;63874058001
 ;;9002226.02101,"1044,63874058001 ",.02)
 ;;63874058001
 ;;9002226.02101,"1044,63874058014 ",.01)
 ;;63874058014
 ;;9002226.02101,"1044,63874058014 ",.02)
 ;;63874058014
 ;;9002226.02101,"1044,63874058015 ",.01)
 ;;63874058015
 ;;9002226.02101,"1044,63874058015 ",.02)
 ;;63874058015
 ;;9002226.02101,"1044,63874058020 ",.01)
 ;;63874058020
 ;;9002226.02101,"1044,63874058020 ",.02)
 ;;63874058020
 ;;9002226.02101,"1044,63874058030 ",.01)
 ;;63874058030
 ;;9002226.02101,"1044,63874058030 ",.02)
 ;;63874058030
 ;;9002226.02101,"1044,63874058060 ",.01)
 ;;63874058060
 ;;9002226.02101,"1044,63874058060 ",.02)
 ;;63874058060
 ;;9002226.02101,"1044,63874058090 ",.01)
 ;;63874058090
 ;;9002226.02101,"1044,63874058090 ",.02)
 ;;63874058090
 ;;9002226.02101,"1044,63874077501 ",.01)
 ;;63874077501
 ;;9002226.02101,"1044,63874077501 ",.02)
 ;;63874077501
 ;;9002226.02101,"1044,63874077512 ",.01)
 ;;63874077512
 ;;9002226.02101,"1044,63874077512 ",.02)
 ;;63874077512
 ;;9002226.02101,"1044,63874077515 ",.01)
 ;;63874077515
 ;;9002226.02101,"1044,63874077515 ",.02)
 ;;63874077515
 ;;9002226.02101,"1044,63874077520 ",.01)
 ;;63874077520
 ;;9002226.02101,"1044,63874077520 ",.02)
 ;;63874077520
 ;;9002226.02101,"1044,63874077530 ",.01)
 ;;63874077530
 ;;9002226.02101,"1044,63874077530 ",.02)
 ;;63874077530
 ;;9002226.02101,"1044,63874082801 ",.01)
 ;;63874082801
 ;;9002226.02101,"1044,63874082801 ",.02)
 ;;63874082801
 ;;9002226.02101,"1044,63874082804 ",.01)
 ;;63874082804
 ;;9002226.02101,"1044,63874082804 ",.02)
 ;;63874082804
 ;;9002226.02101,"1044,63874082814 ",.01)
 ;;63874082814
 ;;9002226.02101,"1044,63874082814 ",.02)
 ;;63874082814
 ;;9002226.02101,"1044,63874082820 ",.01)
 ;;63874082820
 ;;9002226.02101,"1044,63874082820 ",.02)
 ;;63874082820
 ;;9002226.02101,"1044,63874082821 ",.01)
 ;;63874082821
 ;;9002226.02101,"1044,63874082821 ",.02)
 ;;63874082821
 ;;9002226.02101,"1044,63874082828 ",.01)
 ;;63874082828
 ;;9002226.02101,"1044,63874082828 ",.02)
 ;;63874082828
 ;;9002226.02101,"1044,63874082830 ",.01)
 ;;63874082830
 ;;9002226.02101,"1044,63874082830 ",.02)
 ;;63874082830
 ;;9002226.02101,"1044,63874082860 ",.01)
 ;;63874082860
 ;;9002226.02101,"1044,63874082860 ",.02)
 ;;63874082860
 ;;9002226.02101,"1044,63874082890 ",.01)
 ;;63874082890
 ;;9002226.02101,"1044,63874082890 ",.02)
 ;;63874082890
 ;;9002226.02101,"1044,63874103301 ",.01)
 ;;63874103301
 ;;9002226.02101,"1044,63874103301 ",.02)
 ;;63874103301
 ;;9002226.02101,"1044,63874103303 ",.01)
 ;;63874103303
 ;;9002226.02101,"1044,63874103303 ",.02)
 ;;63874103303
 ;;9002226.02101,"1044,63874103304 ",.01)
 ;;63874103304
 ;;9002226.02101,"1044,63874103304 ",.02)
 ;;63874103304
 ;;9002226.02101,"1044,63874103306 ",.01)
 ;;63874103306
 ;;9002226.02101,"1044,63874103306 ",.02)
 ;;63874103306
 ;;9002226.02101,"1044,63874105301 ",.01)
 ;;63874105301
 ;;9002226.02101,"1044,63874105301 ",.02)
 ;;63874105301
 ;;9002226.02101,"1044,63874105302 ",.01)
 ;;63874105302
 ;;9002226.02101,"1044,63874105302 ",.02)
 ;;63874105302
 ;;9002226.02101,"1044,63874105303 ",.01)
 ;;63874105303
 ;;9002226.02101,"1044,63874105303 ",.02)
 ;;63874105303
 ;;9002226.02101,"1044,63874105304 ",.01)
 ;;63874105304
 ;;9002226.02101,"1044,63874105304 ",.02)
 ;;63874105304
 ;;9002226.02101,"1044,63874105305 ",.01)
 ;;63874105305
 ;;9002226.02101,"1044,63874105305 ",.02)
 ;;63874105305
 ;;9002226.02101,"1044,63874105306 ",.01)
 ;;63874105306
 ;;9002226.02101,"1044,63874105306 ",.02)
 ;;63874105306
 ;;9002226.02101,"1044,63874105308 ",.01)
 ;;63874105308
 ;;9002226.02101,"1044,63874105308 ",.02)
 ;;63874105308
 ;;9002226.02101,"1044,63874105309 ",.01)
 ;;63874105309
 ;;9002226.02101,"1044,63874105309 ",.02)
 ;;63874105309
 ;;9002226.02101,"1044,63874107906 ",.01)
 ;;63874107906
 ;;9002226.02101,"1044,63874107906 ",.02)
 ;;63874107906
 ;;9002226.02101,"1044,63874108003 ",.01)
 ;;63874108003
 ;;9002226.02101,"1044,63874108003 ",.02)
 ;;63874108003
 ;;9002226.02101,"1044,63874108006 ",.01)
 ;;63874108006
 ;;9002226.02101,"1044,63874108006 ",.02)
 ;;63874108006
 ;;9002226.02101,"1044,63874108101 ",.01)
 ;;63874108101
 ;;9002226.02101,"1044,63874108101 ",.02)
 ;;63874108101
 ;;9002226.02101,"1044,63874109703 ",.01)
 ;;63874109703
 ;;9002226.02101,"1044,63874109703 ",.02)
 ;;63874109703
 ;;9002226.02101,"1044,63874109803 ",.01)
 ;;63874109803
 ;;9002226.02101,"1044,63874109803 ",.02)
 ;;63874109803
 ;;9002226.02101,"1044,63874111301 ",.01)
 ;;63874111301
 ;;9002226.02101,"1044,63874111301 ",.02)
 ;;63874111301
 ;;9002226.02101,"1044,63874111303 ",.01)
 ;;63874111303
 ;;9002226.02101,"1044,63874111303 ",.02)
 ;;63874111303
 ;;9002226.02101,"1044,63874111306 ",.01)
 ;;63874111306
 ;;9002226.02101,"1044,63874111306 ",.02)
 ;;63874111306
 ;;9002226.02101,"1044,63874112506 ",.01)
 ;;63874112506
 ;;9002226.02101,"1044,63874112506 ",.02)
 ;;63874112506
 ;;9002226.02101,"1044,63874114603 ",.01)
 ;;63874114603
 ;;9002226.02101,"1044,63874114603 ",.02)
 ;;63874114603
 ;;9002226.02101,"1044,63874114606 ",.01)
 ;;63874114606
 ;;9002226.02101,"1044,63874114606 ",.02)
 ;;63874114606
 ;;9002226.02101,"1044,63874115103 ",.01)
 ;;63874115103
 ;;9002226.02101,"1044,63874115103 ",.02)
 ;;63874115103
 ;;9002226.02101,"1044,63874115503 ",.01)
 ;;63874115503
 ;;9002226.02101,"1044,63874115503 ",.02)
 ;;63874115503
 ;;9002226.02101,"1044,63874115700 ",.01)
 ;;63874115700
 ;;9002226.02101,"1044,63874115700 ",.02)
 ;;63874115700
 ;;9002226.02101,"1044,63874115703 ",.01)
 ;;63874115703
 ;;9002226.02101,"1044,63874115703 ",.02)
 ;;63874115703
 ;;9002226.02101,"1044,63874115803 ",.01)
 ;;63874115803
 ;;9002226.02101,"1044,63874115803 ",.02)
 ;;63874115803
 ;;9002226.02101,"1044,64038000901 ",.01)
 ;;64038000901
 ;;9002226.02101,"1044,64038000901 ",.02)
 ;;64038000901
 ;;9002226.02101,"1044,64038000930 ",.01)
 ;;64038000930
 ;;9002226.02101,"1044,64038000930 ",.02)
 ;;64038000930
 ;;9002226.02101,"1044,64038001001 ",.01)
 ;;64038001001
 ;;9002226.02101,"1044,64038001001 ",.02)
 ;;64038001001
 ;;9002226.02101,"1044,64038001030 ",.01)
 ;;64038001030
 ;;9002226.02101,"1044,64038001030 ",.02)
 ;;64038001030
 ;;9002226.02101,"1044,64579000600 ",.01)
 ;;64579000600
 ;;9002226.02101,"1044,64579000600 ",.02)
 ;;64579000600
 ;;9002226.02101,"1044,64579000601 ",.01)
 ;;64579000601
 ;;9002226.02101,"1044,64579000601 ",.02)
 ;;64579000601
 ;;9002226.02101,"1044,64579025000 ",.01)
 ;;64579025000
 ;;9002226.02101,"1044,64579025000 ",.02)
 ;;64579025000
 ;;9002226.02101,"1044,64579025001 ",.01)
 ;;64579025001
 ;;9002226.02101,"1044,64579025001 ",.02)
 ;;64579025001
 ;;9002226.02101,"1044,64679055901 ",.01)
 ;;64679055901
 ;;9002226.02101,"1044,64679055901 ",.02)
 ;;64679055901
 ;;9002226.02101,"1044,64679056001 ",.01)
 ;;64679056001
 ;;9002226.02101,"1044,64679056001 ",.02)
 ;;64679056001
 ;;9002226.02101,"1044,64679056101 ",.01)
 ;;64679056101
 ;;9002226.02101,"1044,64679056101 ",.02)
 ;;64679056101
 ;;9002226.02101,"1044,64679071601 ",.01)
 ;;64679071601
 ;;9002226.02101,"1044,64679071601 ",.02)
 ;;64679071601
 ;;9002226.02101,"1044,64679071602 ",.01)
 ;;64679071602
 ;;9002226.02101,"1044,64679071602 ",.02)
 ;;64679071602
 ;;9002226.02101,"1044,64679071603 ",.01)
 ;;64679071603
 ;;9002226.02101,"1044,64679071603 ",.02)
 ;;64679071603
 ;;9002226.02101,"1044,64679071604 ",.01)
 ;;64679071604
 ;;9002226.02101,"1044,64679071604 ",.02)
 ;;64679071604
 ;;9002226.02101,"1044,64679071605 ",.01)
 ;;64679071605
 ;;9002226.02101,"1044,64679071605 ",.02)
 ;;64679071605
 ;;9002226.02101,"1044,64679071701 ",.01)
 ;;64679071701
 ;;9002226.02101,"1044,64679071701 ",.02)
 ;;64679071701
 ;;9002226.02101,"1044,64679071702 ",.01)
 ;;64679071702
 ;;9002226.02101,"1044,64679071702 ",.02)
 ;;64679071702
 ;;9002226.02101,"1044,64679071703 ",.01)
 ;;64679071703
 ;;9002226.02101,"1044,64679071703 ",.02)
 ;;64679071703
 ;;9002226.02101,"1044,64679071704 ",.01)
 ;;64679071704
 ;;9002226.02101,"1044,64679071704 ",.02)
 ;;64679071704