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

BGPM5BBO.m

Go to the documentation of this file.
BGPM5BBO ;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,00440709230 ",.02)
 ;;00440709230
 ;;9002226.02101,"1044,00440709260 ",.01)
 ;;00440709260
 ;;9002226.02101,"1044,00440709260 ",.02)
 ;;00440709260
 ;;9002226.02101,"1044,00440709290 ",.01)
 ;;00440709290
 ;;9002226.02101,"1044,00440709290 ",.02)
 ;;00440709290
 ;;9002226.02101,"1044,00440709291 ",.01)
 ;;00440709291
 ;;9002226.02101,"1044,00440709291 ",.02)
 ;;00440709291
 ;;9002226.02101,"1044,00440709294 ",.01)
 ;;00440709294
 ;;9002226.02101,"1044,00440709294 ",.02)
 ;;00440709294
 ;;9002226.02101,"1044,00440752130 ",.01)
 ;;00440752130
 ;;9002226.02101,"1044,00440752130 ",.02)
 ;;00440752130
 ;;9002226.02101,"1044,00440752190 ",.01)
 ;;00440752190
 ;;9002226.02101,"1044,00440752190 ",.02)
 ;;00440752190
 ;;9002226.02101,"1044,00440857520 ",.01)
 ;;00440857520
 ;;9002226.02101,"1044,00440857520 ",.02)
 ;;00440857520
 ;;9002226.02101,"1044,00440857530 ",.01)
 ;;00440857530
 ;;9002226.02101,"1044,00440857530 ",.02)
 ;;00440857530
 ;;9002226.02101,"1044,00440857560 ",.01)
 ;;00440857560
 ;;9002226.02101,"1044,00440857560 ",.02)
 ;;00440857560
 ;;9002226.02101,"1044,00440857590 ",.01)
 ;;00440857590
 ;;9002226.02101,"1044,00440857590 ",.02)
 ;;00440857590
 ;;9002226.02101,"1044,00440857630 ",.01)
 ;;00440857630
 ;;9002226.02101,"1044,00440857630 ",.02)
 ;;00440857630
 ;;9002226.02101,"1044,00440857660 ",.01)
 ;;00440857660
 ;;9002226.02101,"1044,00440857660 ",.02)
 ;;00440857660
 ;;9002226.02101,"1044,00480005601 ",.01)
 ;;00480005601
 ;;9002226.02101,"1044,00480005601 ",.02)
 ;;00480005601
 ;;9002226.02101,"1044,00480005701 ",.01)
 ;;00480005701
 ;;9002226.02101,"1044,00480005701 ",.02)
 ;;00480005701
 ;;9002226.02101,"1044,00480007201 ",.01)
 ;;00480007201
 ;;9002226.02101,"1044,00480007201 ",.02)
 ;;00480007201
 ;;9002226.02101,"1044,00480019901 ",.01)
 ;;00480019901
 ;;9002226.02101,"1044,00480019901 ",.02)
 ;;00480019901
 ;;9002226.02101,"1044,00480063701 ",.01)
 ;;00480063701
 ;;9002226.02101,"1044,00480063701 ",.02)
 ;;00480063701
 ;;9002226.02101,"1044,00480063710 ",.01)
 ;;00480063710
 ;;9002226.02101,"1044,00480063710 ",.02)
 ;;00480063710
 ;;9002226.02101,"1044,00480063801 ",.01)
 ;;00480063801
 ;;9002226.02101,"1044,00480063801 ",.02)
 ;;00480063801
 ;;9002226.02101,"1044,00480063810 ",.01)
 ;;00480063810
 ;;9002226.02101,"1044,00480063810 ",.02)
 ;;00480063810
 ;;9002226.02101,"1044,00480069501 ",.01)
 ;;00480069501
 ;;9002226.02101,"1044,00480069501 ",.02)
 ;;00480069501
 ;;9002226.02101,"1044,00480078806 ",.01)
 ;;00480078806
 ;;9002226.02101,"1044,00480078806 ",.02)
 ;;00480078806
 ;;9002226.02101,"1044,00480095601 ",.01)
 ;;00480095601
 ;;9002226.02101,"1044,00480095601 ",.02)
 ;;00480095601
 ;;9002226.02101,"1044,00480095801 ",.01)
 ;;00480095801
 ;;9002226.02101,"1044,00480095801 ",.02)
 ;;00480095801
 ;;9002226.02101,"1044,00480096001 ",.01)
 ;;00480096001
 ;;9002226.02101,"1044,00480096001 ",.02)
 ;;00480096001
 ;;9002226.02101,"1044,00480104201 ",.01)
 ;;00480104201
 ;;9002226.02101,"1044,00480104201 ",.02)
 ;;00480104201
 ;;9002226.02101,"1044,00480104301 ",.01)
 ;;00480104301
 ;;9002226.02101,"1044,00480104301 ",.02)
 ;;00480104301
 ;;9002226.02101,"1044,00480711456 ",.01)
 ;;00480711456
 ;;9002226.02101,"1044,00480711456 ",.02)
 ;;00480711456
 ;;9002226.02101,"1044,00480711498 ",.01)
 ;;00480711498
 ;;9002226.02101,"1044,00480711498 ",.02)
 ;;00480711498
 ;;9002226.02101,"1044,00480711556 ",.01)
 ;;00480711556
 ;;9002226.02101,"1044,00480711556 ",.02)
 ;;00480711556
 ;;9002226.02101,"1044,00480711598 ",.01)
 ;;00480711598
 ;;9002226.02101,"1044,00480711598 ",.02)
 ;;00480711598
 ;;9002226.02101,"1044,00480711656 ",.01)
 ;;00480711656
 ;;9002226.02101,"1044,00480711656 ",.02)
 ;;00480711656
 ;;9002226.02101,"1044,00480711698 ",.01)
 ;;00480711698
 ;;9002226.02101,"1044,00480711698 ",.02)
 ;;00480711698
 ;;9002226.02101,"1044,00480712156 ",.01)
 ;;00480712156
 ;;9002226.02101,"1044,00480712156 ",.02)
 ;;00480712156
 ;;9002226.02101,"1044,00480712198 ",.01)
 ;;00480712198
 ;;9002226.02101,"1044,00480712198 ",.02)
 ;;00480712198
 ;;9002226.02101,"1044,00480717510 ",.01)
 ;;00480717510
 ;;9002226.02101,"1044,00480717510 ",.02)
 ;;00480717510
 ;;9002226.02101,"1044,00480717556 ",.01)
 ;;00480717556
 ;;9002226.02101,"1044,00480717556 ",.02)
 ;;00480717556
 ;;9002226.02101,"1044,00480717599 ",.01)
 ;;00480717599
 ;;9002226.02101,"1044,00480717599 ",.02)
 ;;00480717599
 ;;9002226.02101,"1044,00480717610 ",.01)
 ;;00480717610
 ;;9002226.02101,"1044,00480717610 ",.02)
 ;;00480717610
 ;;9002226.02101,"1044,00480717656 ",.01)
 ;;00480717656
 ;;9002226.02101,"1044,00480717656 ",.02)
 ;;00480717656
 ;;9002226.02101,"1044,00480717699 ",.01)
 ;;00480717699
 ;;9002226.02101,"1044,00480717699 ",.02)
 ;;00480717699
 ;;9002226.02101,"1044,00480717710 ",.01)
 ;;00480717710
 ;;9002226.02101,"1044,00480717710 ",.02)
 ;;00480717710
 ;;9002226.02101,"1044,00480717756 ",.01)
 ;;00480717756
 ;;9002226.02101,"1044,00480717756 ",.02)
 ;;00480717756
 ;;9002226.02101,"1044,00480717799 ",.01)
 ;;00480717799
 ;;9002226.02101,"1044,00480717799 ",.02)
 ;;00480717799
 ;;9002226.02101,"1044,00480718356 ",.01)
 ;;00480718356
 ;;9002226.02101,"1044,00480718356 ",.02)
 ;;00480718356
 ;;9002226.02101,"1044,00480718398 ",.01)
 ;;00480718398
 ;;9002226.02101,"1044,00480718398 ",.02)
 ;;00480718398
 ;;9002226.02101,"1044,00480718456 ",.01)
 ;;00480718456
 ;;9002226.02101,"1044,00480718456 ",.02)
 ;;00480718456
 ;;9002226.02101,"1044,00480718498 ",.01)
 ;;00480718498
 ;;9002226.02101,"1044,00480718498 ",.02)
 ;;00480718498
 ;;9002226.02101,"1044,00480718810 ",.01)
 ;;00480718810
 ;;9002226.02101,"1044,00480718810 ",.02)
 ;;00480718810
 ;;9002226.02101,"1044,00480718856 ",.01)
 ;;00480718856
 ;;9002226.02101,"1044,00480718856 ",.02)
 ;;00480718856
 ;;9002226.02101,"1044,00480719856 ",.01)
 ;;00480719856
 ;;9002226.02101,"1044,00480719856 ",.02)
 ;;00480719856
 ;;9002226.02101,"1044,00480720656 ",.01)
 ;;00480720656
 ;;9002226.02101,"1044,00480720656 ",.02)
 ;;00480720656
 ;;9002226.02101,"1044,00480720756 ",.01)
 ;;00480720756
 ;;9002226.02101,"1044,00480720756 ",.02)
 ;;00480720756
 ;;9002226.02101,"1044,00480720856 ",.01)
 ;;00480720856
 ;;9002226.02101,"1044,00480720856 ",.02)
 ;;00480720856
 ;;9002226.02101,"1044,00480730318 ",.01)
 ;;00480730318
 ;;9002226.02101,"1044,00480730318 ",.02)
 ;;00480730318
 ;;9002226.02101,"1044,00480730365 ",.01)
 ;;00480730365
 ;;9002226.02101,"1044,00480730365 ",.02)
 ;;00480730365
 ;;9002226.02101,"1044,00480730418 ",.01)
 ;;00480730418
 ;;9002226.02101,"1044,00480730418 ",.02)
 ;;00480730418
 ;;9002226.02101,"1044,00480730465 ",.01)
 ;;00480730465
 ;;9002226.02101,"1044,00480730465 ",.02)
 ;;00480730465
 ;;9002226.02101,"1044,00480730502 ",.01)
 ;;00480730502
 ;;9002226.02101,"1044,00480730502 ",.02)
 ;;00480730502
 ;;9002226.02101,"1044,00480730565 ",.01)
 ;;00480730565
 ;;9002226.02101,"1044,00480730565 ",.02)
 ;;00480730565
 ;;9002226.02101,"1044,00480738001 ",.01)
 ;;00480738001
 ;;9002226.02101,"1044,00480738001 ",.02)
 ;;00480738001
 ;;9002226.02101,"1044,00480738101 ",.01)
 ;;00480738101
 ;;9002226.02101,"1044,00480738101 ",.02)
 ;;00480738101
 ;;9002226.02101,"1044,00480738201 ",.01)
 ;;00480738201
 ;;9002226.02101,"1044,00480738201 ",.02)
 ;;00480738201
 ;;9002226.02101,"1044,00480738301 ",.01)
 ;;00480738301
 ;;9002226.02101,"1044,00480738301 ",.02)
 ;;00480738301
 ;;9002226.02101,"1044,00480751556 ",.01)
 ;;00480751556
 ;;9002226.02101,"1044,00480751556 ",.02)
 ;;00480751556
 ;;9002226.02101,"1044,00480751598 ",.01)
 ;;00480751598
 ;;9002226.02101,"1044,00480751598 ",.02)
 ;;00480751598
 ;;9002226.02101,"1044,00490011400 ",.01)
 ;;00490011400
 ;;9002226.02101,"1044,00490011400 ",.02)
 ;;00490011400
 ;;9002226.02101,"1044,00490011401 ",.01)
 ;;00490011401
 ;;9002226.02101,"1044,00490011401 ",.02)
 ;;00490011401
 ;;9002226.02101,"1044,00490011402 ",.01)
 ;;00490011402
 ;;9002226.02101,"1044,00490011402 ",.02)
 ;;00490011402
 ;;9002226.02101,"1044,00490011403 ",.01)
 ;;00490011403
 ;;9002226.02101,"1044,00490011403 ",.02)
 ;;00490011403
 ;;9002226.02101,"1044,00490011404 ",.01)
 ;;00490011404
 ;;9002226.02101,"1044,00490011404 ",.02)
 ;;00490011404
 ;;9002226.02101,"1044,00490011405 ",.01)
 ;;00490011405
 ;;9002226.02101,"1044,00490011405 ",.02)
 ;;00490011405
 ;;9002226.02101,"1044,00490011430 ",.01)
 ;;00490011430
 ;;9002226.02101,"1044,00490011430 ",.02)
 ;;00490011430
 ;;9002226.02101,"1044,00490011460 ",.01)
 ;;00490011460
 ;;9002226.02101,"1044,00490011460 ",.02)
 ;;00490011460
 ;;9002226.02101,"1044,00490011490 ",.01)
 ;;00490011490
 ;;9002226.02101,"1044,00490011490 ",.02)
 ;;00490011490
 ;;9002226.02101,"1044,00490703400 ",.01)
 ;;00490703400
 ;;9002226.02101,"1044,00490703400 ",.02)
 ;;00490703400
 ;;9002226.02101,"1044,00490703401 ",.01)
 ;;00490703401
 ;;9002226.02101,"1044,00490703401 ",.02)
 ;;00490703401
 ;;9002226.02101,"1044,00490703402 ",.01)
 ;;00490703402
 ;;9002226.02101,"1044,00490703402 ",.02)
 ;;00490703402
 ;;9002226.02101,"1044,00490703403 ",.01)
 ;;00490703403
 ;;9002226.02101,"1044,00490703403 ",.02)
 ;;00490703403
 ;;9002226.02101,"1044,00490703404 ",.01)
 ;;00490703404
 ;;9002226.02101,"1044,00490703404 ",.02)
 ;;00490703404
 ;;9002226.02101,"1044,00490703405 ",.01)
 ;;00490703405
 ;;9002226.02101,"1044,00490703405 ",.02)
 ;;00490703405
 ;;9002226.02101,"1044,00490703406 ",.01)
 ;;00490703406
 ;;9002226.02101,"1044,00490703406 ",.02)
 ;;00490703406
 ;;9002226.02101,"1044,00490703407 ",.01)
 ;;00490703407
 ;;9002226.02101,"1044,00490703407 ",.02)
 ;;00490703407
 ;;9002226.02101,"1044,00490703408 ",.01)
 ;;00490703408
 ;;9002226.02101,"1044,00490703408 ",.02)
 ;;00490703408
 ;;9002226.02101,"1044,00490703409 ",.01)
 ;;00490703409
 ;;9002226.02101,"1044,00490703409 ",.02)
 ;;00490703409
 ;;9002226.02101,"1044,00490703410 ",.01)
 ;;00490703410
 ;;9002226.02101,"1044,00490703410 ",.02)
 ;;00490703410
 ;;9002226.02101,"1044,00490703412 ",.01)
 ;;00490703412
 ;;9002226.02101,"1044,00490703412 ",.02)
 ;;00490703412
 ;;9002226.02101,"1044,00490703414 ",.01)
 ;;00490703414
 ;;9002226.02101,"1044,00490703414 ",.02)
 ;;00490703414
 ;;9002226.02101,"1044,00490703415 ",.01)
 ;;00490703415
 ;;9002226.02101,"1044,00490703415 ",.02)
 ;;00490703415
 ;;9002226.02101,"1044,00490703416 ",.01)
 ;;00490703416
 ;;9002226.02101,"1044,00490703416 ",.02)
 ;;00490703416
 ;;9002226.02101,"1044,00490703418 ",.01)
 ;;00490703418
 ;;9002226.02101,"1044,00490703418 ",.02)
 ;;00490703418
 ;;9002226.02101,"1044,00490703420 ",.01)
 ;;00490703420
 ;;9002226.02101,"1044,00490703420 ",.02)
 ;;00490703420
 ;;9002226.02101,"1044,00490703421 ",.01)
 ;;00490703421
 ;;9002226.02101,"1044,00490703421 ",.02)
 ;;00490703421
 ;;9002226.02101,"1044,00490703424 ",.01)
 ;;00490703424
 ;;9002226.02101,"1044,00490703424 ",.02)
 ;;00490703424
 ;;9002226.02101,"1044,00490703425 ",.01)
 ;;00490703425
 ;;9002226.02101,"1044,00490703425 ",.02)
 ;;00490703425
 ;;9002226.02101,"1044,00490703426 ",.01)
 ;;00490703426
 ;;9002226.02101,"1044,00490703426 ",.02)
 ;;00490703426
 ;;9002226.02101,"1044,00490703427 ",.01)
 ;;00490703427
 ;;9002226.02101,"1044,00490703427 ",.02)
 ;;00490703427
 ;;9002226.02101,"1044,00490703428 ",.01)
 ;;00490703428
 ;;9002226.02101,"1044,00490703428 ",.02)
 ;;00490703428
 ;;9002226.02101,"1044,00490703430 ",.01)
 ;;00490703430
 ;;9002226.02101,"1044,00490703430 ",.02)
 ;;00490703430
 ;;9002226.02101,"1044,00490703432 ",.01)
 ;;00490703432
 ;;9002226.02101,"1044,00490703432 ",.02)
 ;;00490703432