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

BGPM5BBW.m

Go to the documentation of this file.
BGPM5BBW ;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,16590001130 ",.02)
 ;;16590001130
 ;;9002226.02101,"1044,16590001145 ",.01)
 ;;16590001145
 ;;9002226.02101,"1044,16590001145 ",.02)
 ;;16590001145
 ;;9002226.02101,"1044,16590001156 ",.01)
 ;;16590001156
 ;;9002226.02101,"1044,16590001156 ",.02)
 ;;16590001156
 ;;9002226.02101,"1044,16590001160 ",.01)
 ;;16590001160
 ;;9002226.02101,"1044,16590001160 ",.02)
 ;;16590001160
 ;;9002226.02101,"1044,16590001172 ",.01)
 ;;16590001172
 ;;9002226.02101,"1044,16590001172 ",.02)
 ;;16590001172
 ;;9002226.02101,"1044,16590001190 ",.01)
 ;;16590001190
 ;;9002226.02101,"1044,16590001190 ",.02)
 ;;16590001190
 ;;9002226.02101,"1044,16590001215 ",.01)
 ;;16590001215
 ;;9002226.02101,"1044,16590001215 ",.02)
 ;;16590001215
 ;;9002226.02101,"1044,16590001230 ",.01)
 ;;16590001230
 ;;9002226.02101,"1044,16590001230 ",.02)
 ;;16590001230
 ;;9002226.02101,"1044,16590001256 ",.01)
 ;;16590001256
 ;;9002226.02101,"1044,16590001256 ",.02)
 ;;16590001256
 ;;9002226.02101,"1044,16590001260 ",.01)
 ;;16590001260
 ;;9002226.02101,"1044,16590001260 ",.02)
 ;;16590001260
 ;;9002226.02101,"1044,16590001272 ",.01)
 ;;16590001272
 ;;9002226.02101,"1044,16590001272 ",.02)
 ;;16590001272
 ;;9002226.02101,"1044,16590001282 ",.01)
 ;;16590001282
 ;;9002226.02101,"1044,16590001282 ",.02)
 ;;16590001282
 ;;9002226.02101,"1044,16590001290 ",.01)
 ;;16590001290
 ;;9002226.02101,"1044,16590001290 ",.02)
 ;;16590001290
 ;;9002226.02101,"1044,16590001328 ",.01)
 ;;16590001328
 ;;9002226.02101,"1044,16590001328 ",.02)
 ;;16590001328
 ;;9002226.02101,"1044,16590001330 ",.01)
 ;;16590001330
 ;;9002226.02101,"1044,16590001330 ",.02)
 ;;16590001330
 ;;9002226.02101,"1044,16590001360 ",.01)
 ;;16590001360
 ;;9002226.02101,"1044,16590001360 ",.02)
 ;;16590001360
 ;;9002226.02101,"1044,16590001390 ",.01)
 ;;16590001390
 ;;9002226.02101,"1044,16590001390 ",.02)
 ;;16590001390
 ;;9002226.02101,"1044,16590005530 ",.01)
 ;;16590005530
 ;;9002226.02101,"1044,16590005530 ",.02)
 ;;16590005530
 ;;9002226.02101,"1044,16590005560 ",.01)
 ;;16590005560
 ;;9002226.02101,"1044,16590005560 ",.02)
 ;;16590005560
 ;;9002226.02101,"1044,16590005590 ",.01)
 ;;16590005590
 ;;9002226.02101,"1044,16590005590 ",.02)
 ;;16590005590
 ;;9002226.02101,"1044,16590005615 ",.01)
 ;;16590005615
 ;;9002226.02101,"1044,16590005615 ",.02)
 ;;16590005615
 ;;9002226.02101,"1044,16590005630 ",.01)
 ;;16590005630
 ;;9002226.02101,"1044,16590005630 ",.02)
 ;;16590005630
 ;;9002226.02101,"1044,16590005660 ",.01)
 ;;16590005660
 ;;9002226.02101,"1044,16590005660 ",.02)
 ;;16590005660
 ;;9002226.02101,"1044,16590005671 ",.01)
 ;;16590005671
 ;;9002226.02101,"1044,16590005671 ",.02)
 ;;16590005671
 ;;9002226.02101,"1044,16590005690 ",.01)
 ;;16590005690
 ;;9002226.02101,"1044,16590005690 ",.02)
 ;;16590005690
 ;;9002226.02101,"1044,16590009930 ",.01)
 ;;16590009930
 ;;9002226.02101,"1044,16590009930 ",.02)
 ;;16590009930
 ;;9002226.02101,"1044,16590009960 ",.01)
 ;;16590009960
 ;;9002226.02101,"1044,16590009960 ",.02)
 ;;16590009960
 ;;9002226.02101,"1044,16590010028 ",.01)
 ;;16590010028
 ;;9002226.02101,"1044,16590010028 ",.02)
 ;;16590010028
 ;;9002226.02101,"1044,16590010030 ",.01)
 ;;16590010030
 ;;9002226.02101,"1044,16590010030 ",.02)
 ;;16590010030
 ;;9002226.02101,"1044,16590010056 ",.01)
 ;;16590010056
 ;;9002226.02101,"1044,16590010056 ",.02)
 ;;16590010056
 ;;9002226.02101,"1044,16590010060 ",.01)
 ;;16590010060
 ;;9002226.02101,"1044,16590010060 ",.02)
 ;;16590010060
 ;;9002226.02101,"1044,16590010071 ",.01)
 ;;16590010071
 ;;9002226.02101,"1044,16590010071 ",.02)
 ;;16590010071
 ;;9002226.02101,"1044,16590010090 ",.01)
 ;;16590010090
 ;;9002226.02101,"1044,16590010090 ",.02)
 ;;16590010090
 ;;9002226.02101,"1044,16590015330 ",.01)
 ;;16590015330
 ;;9002226.02101,"1044,16590015330 ",.02)
 ;;16590015330
 ;;9002226.02101,"1044,16590015360 ",.01)
 ;;16590015360
 ;;9002226.02101,"1044,16590015360 ",.02)
 ;;16590015360
 ;;9002226.02101,"1044,16590015430 ",.01)
 ;;16590015430
 ;;9002226.02101,"1044,16590015430 ",.02)
 ;;16590015430
 ;;9002226.02101,"1044,16590015445 ",.01)
 ;;16590015445
 ;;9002226.02101,"1044,16590015445 ",.02)
 ;;16590015445
 ;;9002226.02101,"1044,16590015456 ",.01)
 ;;16590015456
 ;;9002226.02101,"1044,16590015456 ",.02)
 ;;16590015456
 ;;9002226.02101,"1044,16590015460 ",.01)
 ;;16590015460
 ;;9002226.02101,"1044,16590015460 ",.02)
 ;;16590015460
 ;;9002226.02101,"1044,16590015490 ",.01)
 ;;16590015490
 ;;9002226.02101,"1044,16590015490 ",.02)
 ;;16590015490
 ;;9002226.02101,"1044,16590015530 ",.01)
 ;;16590015530
 ;;9002226.02101,"1044,16590015530 ",.02)
 ;;16590015530
 ;;9002226.02101,"1044,16590015560 ",.01)
 ;;16590015560
 ;;9002226.02101,"1044,16590015560 ",.02)
 ;;16590015560
 ;;9002226.02101,"1044,16590017130 ",.01)
 ;;16590017130
 ;;9002226.02101,"1044,16590017130 ",.02)
 ;;16590017130
 ;;9002226.02101,"1044,16590017160 ",.01)
 ;;16590017160
 ;;9002226.02101,"1044,16590017160 ",.02)
 ;;16590017160
 ;;9002226.02101,"1044,16590017171 ",.01)
 ;;16590017171
 ;;9002226.02101,"1044,16590017171 ",.02)
 ;;16590017171
 ;;9002226.02101,"1044,16590017190 ",.01)
 ;;16590017190
 ;;9002226.02101,"1044,16590017190 ",.02)
 ;;16590017190
 ;;9002226.02101,"1044,16590018115 ",.01)
 ;;16590018115
 ;;9002226.02101,"1044,16590018115 ",.02)
 ;;16590018115
 ;;9002226.02101,"1044,16590018128 ",.01)
 ;;16590018128
 ;;9002226.02101,"1044,16590018128 ",.02)
 ;;16590018128
 ;;9002226.02101,"1044,16590018130 ",.01)
 ;;16590018130
 ;;9002226.02101,"1044,16590018130 ",.02)
 ;;16590018130
 ;;9002226.02101,"1044,16590018160 ",.01)
 ;;16590018160
 ;;9002226.02101,"1044,16590018160 ",.02)
 ;;16590018160
 ;;9002226.02101,"1044,16590018182 ",.01)
 ;;16590018182
 ;;9002226.02101,"1044,16590018182 ",.02)
 ;;16590018182
 ;;9002226.02101,"1044,16590018190 ",.01)
 ;;16590018190
 ;;9002226.02101,"1044,16590018190 ",.02)
 ;;16590018190
 ;;9002226.02101,"1044,16590023115 ",.01)
 ;;16590023115
 ;;9002226.02101,"1044,16590023115 ",.02)
 ;;16590023115
 ;;9002226.02101,"1044,16590023130 ",.01)
 ;;16590023130
 ;;9002226.02101,"1044,16590023130 ",.02)
 ;;16590023130
 ;;9002226.02101,"1044,16590023145 ",.01)
 ;;16590023145
 ;;9002226.02101,"1044,16590023145 ",.02)
 ;;16590023145
 ;;9002226.02101,"1044,16590023160 ",.01)
 ;;16590023160
 ;;9002226.02101,"1044,16590023160 ",.02)
 ;;16590023160
 ;;9002226.02101,"1044,16590023182 ",.01)
 ;;16590023182
 ;;9002226.02101,"1044,16590023182 ",.02)
 ;;16590023182
 ;;9002226.02101,"1044,16590023190 ",.01)
 ;;16590023190
 ;;9002226.02101,"1044,16590023190 ",.02)
 ;;16590023190
 ;;9002226.02101,"1044,16590023215 ",.01)
 ;;16590023215
 ;;9002226.02101,"1044,16590023215 ",.02)
 ;;16590023215
 ;;9002226.02101,"1044,16590023228 ",.01)
 ;;16590023228
 ;;9002226.02101,"1044,16590023228 ",.02)
 ;;16590023228
 ;;9002226.02101,"1044,16590023230 ",.01)
 ;;16590023230
 ;;9002226.02101,"1044,16590023230 ",.02)
 ;;16590023230
 ;;9002226.02101,"1044,16590023245 ",.01)
 ;;16590023245
 ;;9002226.02101,"1044,16590023245 ",.02)
 ;;16590023245
 ;;9002226.02101,"1044,16590023260 ",.01)
 ;;16590023260
 ;;9002226.02101,"1044,16590023260 ",.02)
 ;;16590023260
 ;;9002226.02101,"1044,16590023271 ",.01)
 ;;16590023271
 ;;9002226.02101,"1044,16590023271 ",.02)
 ;;16590023271
 ;;9002226.02101,"1044,16590023290 ",.01)
 ;;16590023290
 ;;9002226.02101,"1044,16590023290 ",.02)
 ;;16590023290
 ;;9002226.02101,"1044,16590027030 ",.01)
 ;;16590027030
 ;;9002226.02101,"1044,16590027030 ",.02)
 ;;16590027030
 ;;9002226.02101,"1044,16590027060 ",.01)
 ;;16590027060
 ;;9002226.02101,"1044,16590027060 ",.02)
 ;;16590027060
 ;;9002226.02101,"1044,16590027090 ",.01)
 ;;16590027090
 ;;9002226.02101,"1044,16590027090 ",.02)
 ;;16590027090
 ;;9002226.02101,"1044,16590032215 ",.01)
 ;;16590032215
 ;;9002226.02101,"1044,16590032215 ",.02)
 ;;16590032215
 ;;9002226.02101,"1044,16590032230 ",.01)
 ;;16590032230
 ;;9002226.02101,"1044,16590032230 ",.02)
 ;;16590032230
 ;;9002226.02101,"1044,16590032256 ",.01)
 ;;16590032256
 ;;9002226.02101,"1044,16590032256 ",.02)
 ;;16590032256
 ;;9002226.02101,"1044,16590032260 ",.01)
 ;;16590032260
 ;;9002226.02101,"1044,16590032260 ",.02)
 ;;16590032260
 ;;9002226.02101,"1044,16590032272 ",.01)
 ;;16590032272
 ;;9002226.02101,"1044,16590032272 ",.02)
 ;;16590032272
 ;;9002226.02101,"1044,16590032290 ",.01)
 ;;16590032290
 ;;9002226.02101,"1044,16590032290 ",.02)
 ;;16590032290
 ;;9002226.02101,"1044,16590040630 ",.01)
 ;;16590040630
 ;;9002226.02101,"1044,16590040630 ",.02)
 ;;16590040630
 ;;9002226.02101,"1044,16590040660 ",.01)
 ;;16590040660
 ;;9002226.02101,"1044,16590040660 ",.02)
 ;;16590040660
 ;;9002226.02101,"1044,16590041610 ",.01)
 ;;16590041610
 ;;9002226.02101,"1044,16590041610 ",.02)
 ;;16590041610
 ;;9002226.02101,"1044,16590041615 ",.01)
 ;;16590041615
 ;;9002226.02101,"1044,16590041615 ",.02)
 ;;16590041615
 ;;9002226.02101,"1044,16590041630 ",.01)
 ;;16590041630
 ;;9002226.02101,"1044,16590041630 ",.02)
 ;;16590041630
 ;;9002226.02101,"1044,16590041660 ",.01)
 ;;16590041660
 ;;9002226.02101,"1044,16590041660 ",.02)
 ;;16590041660
 ;;9002226.02101,"1044,16590041672 ",.01)
 ;;16590041672
 ;;9002226.02101,"1044,16590041672 ",.02)
 ;;16590041672
 ;;9002226.02101,"1044,16590041690 ",.01)
 ;;16590041690
 ;;9002226.02101,"1044,16590041690 ",.02)
 ;;16590041690
 ;;9002226.02101,"1044,16590043530 ",.01)
 ;;16590043530
 ;;9002226.02101,"1044,16590043530 ",.02)
 ;;16590043530
 ;;9002226.02101,"1044,16590043560 ",.01)
 ;;16590043560
 ;;9002226.02101,"1044,16590043560 ",.02)
 ;;16590043560
 ;;9002226.02101,"1044,16590043590 ",.01)
 ;;16590043590
 ;;9002226.02101,"1044,16590043590 ",.02)
 ;;16590043590
 ;;9002226.02101,"1044,16590043730 ",.01)
 ;;16590043730
 ;;9002226.02101,"1044,16590043730 ",.02)
 ;;16590043730
 ;;9002226.02101,"1044,16590043760 ",.01)
 ;;16590043760
 ;;9002226.02101,"1044,16590043760 ",.02)
 ;;16590043760
 ;;9002226.02101,"1044,16590043772 ",.01)
 ;;16590043772
 ;;9002226.02101,"1044,16590043772 ",.02)
 ;;16590043772
 ;;9002226.02101,"1044,16590043790 ",.01)
 ;;16590043790
 ;;9002226.02101,"1044,16590043790 ",.02)
 ;;16590043790
 ;;9002226.02101,"1044,16590045715 ",.01)
 ;;16590045715
 ;;9002226.02101,"1044,16590045715 ",.02)
 ;;16590045715
 ;;9002226.02101,"1044,16590045728 ",.01)
 ;;16590045728
 ;;9002226.02101,"1044,16590045728 ",.02)
 ;;16590045728
 ;;9002226.02101,"1044,16590045730 ",.01)
 ;;16590045730
 ;;9002226.02101,"1044,16590045730 ",.02)
 ;;16590045730
 ;;9002226.02101,"1044,16590045745 ",.01)
 ;;16590045745
 ;;9002226.02101,"1044,16590045745 ",.02)
 ;;16590045745
 ;;9002226.02101,"1044,16590045756 ",.01)
 ;;16590045756
 ;;9002226.02101,"1044,16590045756 ",.02)
 ;;16590045756
 ;;9002226.02101,"1044,16590045760 ",.01)
 ;;16590045760
 ;;9002226.02101,"1044,16590045760 ",.02)
 ;;16590045760
 ;;9002226.02101,"1044,16590045772 ",.01)
 ;;16590045772
 ;;9002226.02101,"1044,16590045772 ",.02)
 ;;16590045772
 ;;9002226.02101,"1044,16590045790 ",.01)
 ;;16590045790
 ;;9002226.02101,"1044,16590045790 ",.02)
 ;;16590045790
 ;;9002226.02101,"1044,16590048015 ",.01)
 ;;16590048015
 ;;9002226.02101,"1044,16590048015 ",.02)
 ;;16590048015
 ;;9002226.02101,"1044,16590048030 ",.01)
 ;;16590048030
 ;;9002226.02101,"1044,16590048030 ",.02)
 ;;16590048030
 ;;9002226.02101,"1044,16590048045 ",.01)
 ;;16590048045
 ;;9002226.02101,"1044,16590048045 ",.02)
 ;;16590048045
 ;;9002226.02101,"1044,16590048060 ",.01)
 ;;16590048060
 ;;9002226.02101,"1044,16590048060 ",.02)
 ;;16590048060