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

BGPM5BBI.m

Go to the documentation of this file.
BGPM5BBI ;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,00093452201 ",.02)
 ;;00093452201
 ;;9002226.02101,"1044,00093452205 ",.01)
 ;;00093452205
 ;;9002226.02101,"1044,00093452205 ",.02)
 ;;00093452205
 ;;9002226.02101,"1044,00093452250 ",.01)
 ;;00093452250
 ;;9002226.02101,"1044,00093452250 ",.02)
 ;;00093452250
 ;;9002226.02101,"1044,00093452301 ",.01)
 ;;00093452301
 ;;9002226.02101,"1044,00093452301 ",.02)
 ;;00093452301
 ;;9002226.02101,"1044,00093452305 ",.01)
 ;;00093452305
 ;;9002226.02101,"1044,00093452305 ",.02)
 ;;00093452305
 ;;9002226.02101,"1044,00093452308 ",.01)
 ;;00093452308
 ;;9002226.02101,"1044,00093452308 ",.02)
 ;;00093452308
 ;;9002226.02101,"1044,00093474001 ",.01)
 ;;00093474001
 ;;9002226.02101,"1044,00093474001 ",.02)
 ;;00093474001
 ;;9002226.02101,"1044,00093474010 ",.01)
 ;;00093474010
 ;;9002226.02101,"1044,00093474010 ",.02)
 ;;00093474010
 ;;9002226.02101,"1044,00093474019 ",.01)
 ;;00093474019
 ;;9002226.02101,"1044,00093474019 ",.02)
 ;;00093474019
 ;;9002226.02101,"1044,00093474093 ",.01)
 ;;00093474093
 ;;9002226.02101,"1044,00093474093 ",.02)
 ;;00093474093
 ;;9002226.02101,"1044,00093474101 ",.01)
 ;;00093474101
 ;;9002226.02101,"1044,00093474101 ",.02)
 ;;00093474101
 ;;9002226.02101,"1044,00093474105 ",.01)
 ;;00093474105
 ;;9002226.02101,"1044,00093474105 ",.02)
 ;;00093474105
 ;;9002226.02101,"1044,00093474119 ",.01)
 ;;00093474119
 ;;9002226.02101,"1044,00093474119 ",.02)
 ;;00093474119
 ;;9002226.02101,"1044,00093474150 ",.01)
 ;;00093474150
 ;;9002226.02101,"1044,00093474150 ",.02)
 ;;00093474150
 ;;9002226.02101,"1044,00093474193 ",.01)
 ;;00093474193
 ;;9002226.02101,"1044,00093474193 ",.02)
 ;;00093474193
 ;;9002226.02101,"1044,00093474201 ",.01)
 ;;00093474201
 ;;9002226.02101,"1044,00093474201 ",.02)
 ;;00093474201
 ;;9002226.02101,"1044,00093474205 ",.01)
 ;;00093474205
 ;;9002226.02101,"1044,00093474205 ",.02)
 ;;00093474205
 ;;9002226.02101,"1044,00093474219 ",.01)
 ;;00093474219
 ;;9002226.02101,"1044,00093474219 ",.02)
 ;;00093474219
 ;;9002226.02101,"1044,00093474250 ",.01)
 ;;00093474250
 ;;9002226.02101,"1044,00093474250 ",.02)
 ;;00093474250
 ;;9002226.02101,"1044,00093474293 ",.01)
 ;;00093474293
 ;;9002226.02101,"1044,00093474293 ",.02)
 ;;00093474293
 ;;9002226.02101,"1044,00093711456 ",.01)
 ;;00093711456
 ;;9002226.02101,"1044,00093711456 ",.02)
 ;;00093711456
 ;;9002226.02101,"1044,00093711498 ",.01)
 ;;00093711498
 ;;9002226.02101,"1044,00093711498 ",.02)
 ;;00093711498
 ;;9002226.02101,"1044,00093711556 ",.01)
 ;;00093711556
 ;;9002226.02101,"1044,00093711556 ",.02)
 ;;00093711556
 ;;9002226.02101,"1044,00093711598 ",.01)
 ;;00093711598
 ;;9002226.02101,"1044,00093711598 ",.02)
 ;;00093711598
 ;;9002226.02101,"1044,00093711656 ",.01)
 ;;00093711656
 ;;9002226.02101,"1044,00093711656 ",.02)
 ;;00093711656
 ;;9002226.02101,"1044,00093711698 ",.01)
 ;;00093711698
 ;;9002226.02101,"1044,00093711698 ",.02)
 ;;00093711698
 ;;9002226.02101,"1044,00093712156 ",.01)
 ;;00093712156
 ;;9002226.02101,"1044,00093712156 ",.02)
 ;;00093712156
 ;;9002226.02101,"1044,00093712198 ",.01)
 ;;00093712198
 ;;9002226.02101,"1044,00093712198 ",.02)
 ;;00093712198
 ;;9002226.02101,"1044,00093717556 ",.01)
 ;;00093717556
 ;;9002226.02101,"1044,00093717556 ",.02)
 ;;00093717556
 ;;9002226.02101,"1044,00093717610 ",.01)
 ;;00093717610
 ;;9002226.02101,"1044,00093717610 ",.02)
 ;;00093717610
 ;;9002226.02101,"1044,00093717656 ",.01)
 ;;00093717656
 ;;9002226.02101,"1044,00093717656 ",.02)
 ;;00093717656
 ;;9002226.02101,"1044,00093717710 ",.01)
 ;;00093717710
 ;;9002226.02101,"1044,00093717710 ",.02)
 ;;00093717710
 ;;9002226.02101,"1044,00093717756 ",.01)
 ;;00093717756
 ;;9002226.02101,"1044,00093717756 ",.02)
 ;;00093717756
 ;;9002226.02101,"1044,00093718356 ",.01)
 ;;00093718356
 ;;9002226.02101,"1044,00093718356 ",.02)
 ;;00093718356
 ;;9002226.02101,"1044,00093718398 ",.01)
 ;;00093718398
 ;;9002226.02101,"1044,00093718398 ",.02)
 ;;00093718398
 ;;9002226.02101,"1044,00093718456 ",.01)
 ;;00093718456
 ;;9002226.02101,"1044,00093718456 ",.02)
 ;;00093718456
 ;;9002226.02101,"1044,00093718498 ",.01)
 ;;00093718498
 ;;9002226.02101,"1044,00093718498 ",.02)
 ;;00093718498
 ;;9002226.02101,"1044,00093718810 ",.01)
 ;;00093718810
 ;;9002226.02101,"1044,00093718810 ",.02)
 ;;00093718810
 ;;9002226.02101,"1044,00093718856 ",.01)
 ;;00093718856
 ;;9002226.02101,"1044,00093718856 ",.02)
 ;;00093718856
 ;;9002226.02101,"1044,00093719801 ",.01)
 ;;00093719801
 ;;9002226.02101,"1044,00093719801 ",.02)
 ;;00093719801
 ;;9002226.02101,"1044,00093719805 ",.01)
 ;;00093719805
 ;;9002226.02101,"1044,00093719805 ",.02)
 ;;00093719805
 ;;9002226.02101,"1044,00093719819 ",.01)
 ;;00093719819
 ;;9002226.02101,"1044,00093719819 ",.02)
 ;;00093719819
 ;;9002226.02101,"1044,00093719856 ",.01)
 ;;00093719856
 ;;9002226.02101,"1044,00093719856 ",.02)
 ;;00093719856
 ;;9002226.02101,"1044,00093719893 ",.01)
 ;;00093719893
 ;;9002226.02101,"1044,00093719893 ",.02)
 ;;00093719893
 ;;9002226.02101,"1044,00093720619 ",.01)
 ;;00093720619
 ;;9002226.02101,"1044,00093720619 ",.02)
 ;;00093720619
 ;;9002226.02101,"1044,00093720656 ",.01)
 ;;00093720656
 ;;9002226.02101,"1044,00093720656 ",.02)
 ;;00093720656
 ;;9002226.02101,"1044,00093720693 ",.01)
 ;;00093720693
 ;;9002226.02101,"1044,00093720693 ",.02)
 ;;00093720693
 ;;9002226.02101,"1044,00093720719 ",.01)
 ;;00093720719
 ;;9002226.02101,"1044,00093720719 ",.02)
 ;;00093720719
 ;;9002226.02101,"1044,00093720756 ",.01)
 ;;00093720756
 ;;9002226.02101,"1044,00093720756 ",.02)
 ;;00093720756
 ;;9002226.02101,"1044,00093720793 ",.01)
 ;;00093720793
 ;;9002226.02101,"1044,00093720793 ",.02)
 ;;00093720793
 ;;9002226.02101,"1044,00093720819 ",.01)
 ;;00093720819
 ;;9002226.02101,"1044,00093720819 ",.02)
 ;;00093720819
 ;;9002226.02101,"1044,00093720856 ",.01)
 ;;00093720856
 ;;9002226.02101,"1044,00093720856 ",.02)
 ;;00093720856
 ;;9002226.02101,"1044,00093720893 ",.01)
 ;;00093720893
 ;;9002226.02101,"1044,00093720893 ",.02)
 ;;00093720893
 ;;9002226.02101,"1044,00093730318 ",.01)
 ;;00093730318
 ;;9002226.02101,"1044,00093730318 ",.02)
 ;;00093730318
 ;;9002226.02101,"1044,00093730365 ",.01)
 ;;00093730365
 ;;9002226.02101,"1044,00093730365 ",.02)
 ;;00093730365
 ;;9002226.02101,"1044,00093730418 ",.01)
 ;;00093730418
 ;;9002226.02101,"1044,00093730418 ",.02)
 ;;00093730418
 ;;9002226.02101,"1044,00093730465 ",.01)
 ;;00093730465
 ;;9002226.02101,"1044,00093730465 ",.02)
 ;;00093730465
 ;;9002226.02101,"1044,00093730502 ",.01)
 ;;00093730502
 ;;9002226.02101,"1044,00093730502 ",.02)
 ;;00093730502
 ;;9002226.02101,"1044,00093730565 ",.01)
 ;;00093730565
 ;;9002226.02101,"1044,00093730565 ",.02)
 ;;00093730565
 ;;9002226.02101,"1044,00093738001 ",.01)
 ;;00093738001
 ;;9002226.02101,"1044,00093738001 ",.02)
 ;;00093738001
 ;;9002226.02101,"1044,00093738070 ",.01)
 ;;00093738070
 ;;9002226.02101,"1044,00093738070 ",.02)
 ;;00093738070
 ;;9002226.02101,"1044,00093738101 ",.01)
 ;;00093738101
 ;;9002226.02101,"1044,00093738101 ",.02)
 ;;00093738101
 ;;9002226.02101,"1044,00093738197 ",.01)
 ;;00093738197
 ;;9002226.02101,"1044,00093738197 ",.02)
 ;;00093738197
 ;;9002226.02101,"1044,00093738201 ",.01)
 ;;00093738201
 ;;9002226.02101,"1044,00093738201 ",.02)
 ;;00093738201
 ;;9002226.02101,"1044,00093738283 ",.01)
 ;;00093738283
 ;;9002226.02101,"1044,00093738283 ",.02)
 ;;00093738283
 ;;9002226.02101,"1044,00093738301 ",.01)
 ;;00093738301
 ;;9002226.02101,"1044,00093738301 ",.02)
 ;;00093738301
 ;;9002226.02101,"1044,00093738396 ",.01)
 ;;00093738396
 ;;9002226.02101,"1044,00093738396 ",.02)
 ;;00093738396
 ;;9002226.02101,"1044,00093738456 ",.01)
 ;;00093738456
 ;;9002226.02101,"1044,00093738456 ",.02)
 ;;00093738456
 ;;9002226.02101,"1044,00093738498 ",.01)
 ;;00093738498
 ;;9002226.02101,"1044,00093738498 ",.02)
 ;;00093738498
 ;;9002226.02101,"1044,00093738556 ",.01)
 ;;00093738556
 ;;9002226.02101,"1044,00093738556 ",.02)
 ;;00093738556
 ;;9002226.02101,"1044,00093738598 ",.01)
 ;;00093738598
 ;;9002226.02101,"1044,00093738598 ",.02)
 ;;00093738598
 ;;9002226.02101,"1044,00093738656 ",.01)
 ;;00093738656
 ;;9002226.02101,"1044,00093738656 ",.02)
 ;;00093738656
 ;;9002226.02101,"1044,00093738698 ",.01)
 ;;00093738698
 ;;9002226.02101,"1044,00093738698 ",.02)
 ;;00093738698
 ;;9002226.02101,"1044,00093751556 ",.01)
 ;;00093751556
 ;;9002226.02101,"1044,00093751556 ",.02)
 ;;00093751556
 ;;9002226.02101,"1044,00093751598 ",.01)
 ;;00093751598
 ;;9002226.02101,"1044,00093751598 ",.02)
 ;;00093751598
 ;;9002226.02101,"1044,00121067805 ",.01)
 ;;00121067805
 ;;9002226.02101,"1044,00121067805 ",.02)
 ;;00121067805
 ;;9002226.02101,"1044,00121067812 ",.01)
 ;;00121067812
 ;;9002226.02101,"1044,00121067812 ",.02)
 ;;00121067812
 ;;9002226.02101,"1044,00121067816 ",.01)
 ;;00121067816
 ;;9002226.02101,"1044,00121067816 ",.02)
 ;;00121067816
 ;;9002226.02101,"1044,00121067825 ",.01)
 ;;00121067825
 ;;9002226.02101,"1044,00121067825 ",.02)
 ;;00121067825
 ;;9002226.02101,"1044,00131326532 ",.01)
 ;;00131326532
 ;;9002226.02101,"1044,00131326532 ",.02)
 ;;00131326532
 ;;9002226.02101,"1044,00131326546 ",.01)
 ;;00131326546
 ;;9002226.02101,"1044,00131326546 ",.02)
 ;;00131326546
 ;;9002226.02101,"1044,00131326632 ",.01)
 ;;00131326632
 ;;9002226.02101,"1044,00131326632 ",.02)
 ;;00131326632
 ;;9002226.02101,"1044,00131326646 ",.01)
 ;;00131326646
 ;;9002226.02101,"1044,00131326646 ",.02)
 ;;00131326646
 ;;9002226.02101,"1044,00131326732 ",.01)
 ;;00131326732
 ;;9002226.02101,"1044,00131326732 ",.02)
 ;;00131326732
 ;;9002226.02101,"1044,00131326746 ",.01)
 ;;00131326746
 ;;9002226.02101,"1044,00131326746 ",.02)
 ;;00131326746
 ;;9002226.02101,"1044,00131326832 ",.01)
 ;;00131326832
 ;;9002226.02101,"1044,00131326832 ",.02)
 ;;00131326832
 ;;9002226.02101,"1044,00131326846 ",.01)
 ;;00131326846
 ;;9002226.02101,"1044,00131326846 ",.02)
 ;;00131326846
 ;;9002226.02101,"1044,00143958005 ",.01)
 ;;00143958005
 ;;9002226.02101,"1044,00143958005 ",.02)
 ;;00143958005
 ;;9002226.02101,"1044,00143958009 ",.01)
 ;;00143958009
 ;;9002226.02101,"1044,00143958009 ",.02)
 ;;00143958009
 ;;9002226.02101,"1044,00143958030 ",.01)
 ;;00143958030
 ;;9002226.02101,"1044,00143958030 ",.02)
 ;;00143958030
 ;;9002226.02101,"1044,00143958090 ",.01)
 ;;00143958090
 ;;9002226.02101,"1044,00143958090 ",.02)
 ;;00143958090
 ;;9002226.02101,"1044,00143958105 ",.01)
 ;;00143958105
 ;;9002226.02101,"1044,00143958105 ",.02)
 ;;00143958105
 ;;9002226.02101,"1044,00143958109 ",.01)
 ;;00143958109
 ;;9002226.02101,"1044,00143958109 ",.02)
 ;;00143958109
 ;;9002226.02101,"1044,00143958130 ",.01)
 ;;00143958130
 ;;9002226.02101,"1044,00143958130 ",.02)
 ;;00143958130
 ;;9002226.02101,"1044,00143958190 ",.01)
 ;;00143958190
 ;;9002226.02101,"1044,00143958190 ",.02)
 ;;00143958190
 ;;9002226.02101,"1044,00143958209 ",.01)
 ;;00143958209
 ;;9002226.02101,"1044,00143958209 ",.02)
 ;;00143958209
 ;;9002226.02101,"1044,00143958230 ",.01)
 ;;00143958230
 ;;9002226.02101,"1044,00143958230 ",.02)
 ;;00143958230
 ;;9002226.02101,"1044,00143958290 ",.01)
 ;;00143958290
 ;;9002226.02101,"1044,00143958290 ",.02)
 ;;00143958290
 ;;9002226.02101,"1044,00143995601 ",.01)
 ;;00143995601
 ;;9002226.02101,"1044,00143995601 ",.02)
 ;;00143995601
 ;;9002226.02101,"1044,00143995605 ",.01)
 ;;00143995605
 ;;9002226.02101,"1044,00143995605 ",.02)
 ;;00143995605
 ;;9002226.02101,"1044,00143995630 ",.01)
 ;;00143995630
 ;;9002226.02101,"1044,00143995630 ",.02)
 ;;00143995630