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.
  1. BGPM5BBO ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1044,00440709230 ",.02)
  1. ;;00440709230
  1. ;;9002226.02101,"1044,00440709260 ",.01)
  1. ;;00440709260
  1. ;;9002226.02101,"1044,00440709260 ",.02)
  1. ;;00440709260
  1. ;;9002226.02101,"1044,00440709290 ",.01)
  1. ;;00440709290
  1. ;;9002226.02101,"1044,00440709290 ",.02)
  1. ;;00440709290
  1. ;;9002226.02101,"1044,00440709291 ",.01)
  1. ;;00440709291
  1. ;;9002226.02101,"1044,00440709291 ",.02)
  1. ;;00440709291
  1. ;;9002226.02101,"1044,00440709294 ",.01)
  1. ;;00440709294
  1. ;;9002226.02101,"1044,00440709294 ",.02)
  1. ;;00440709294
  1. ;;9002226.02101,"1044,00440752130 ",.01)
  1. ;;00440752130
  1. ;;9002226.02101,"1044,00440752130 ",.02)
  1. ;;00440752130
  1. ;;9002226.02101,"1044,00440752190 ",.01)
  1. ;;00440752190
  1. ;;9002226.02101,"1044,00440752190 ",.02)
  1. ;;00440752190
  1. ;;9002226.02101,"1044,00440857520 ",.01)
  1. ;;00440857520
  1. ;;9002226.02101,"1044,00440857520 ",.02)
  1. ;;00440857520
  1. ;;9002226.02101,"1044,00440857530 ",.01)
  1. ;;00440857530
  1. ;;9002226.02101,"1044,00440857530 ",.02)
  1. ;;00440857530
  1. ;;9002226.02101,"1044,00440857560 ",.01)
  1. ;;00440857560
  1. ;;9002226.02101,"1044,00440857560 ",.02)
  1. ;;00440857560
  1. ;;9002226.02101,"1044,00440857590 ",.01)
  1. ;;00440857590
  1. ;;9002226.02101,"1044,00440857590 ",.02)
  1. ;;00440857590
  1. ;;9002226.02101,"1044,00440857630 ",.01)
  1. ;;00440857630
  1. ;;9002226.02101,"1044,00440857630 ",.02)
  1. ;;00440857630
  1. ;;9002226.02101,"1044,00440857660 ",.01)
  1. ;;00440857660
  1. ;;9002226.02101,"1044,00440857660 ",.02)
  1. ;;00440857660
  1. ;;9002226.02101,"1044,00480005601 ",.01)
  1. ;;00480005601
  1. ;;9002226.02101,"1044,00480005601 ",.02)
  1. ;;00480005601
  1. ;;9002226.02101,"1044,00480005701 ",.01)
  1. ;;00480005701
  1. ;;9002226.02101,"1044,00480005701 ",.02)
  1. ;;00480005701
  1. ;;9002226.02101,"1044,00480007201 ",.01)
  1. ;;00480007201
  1. ;;9002226.02101,"1044,00480007201 ",.02)
  1. ;;00480007201
  1. ;;9002226.02101,"1044,00480019901 ",.01)
  1. ;;00480019901
  1. ;;9002226.02101,"1044,00480019901 ",.02)
  1. ;;00480019901
  1. ;;9002226.02101,"1044,00480063701 ",.01)
  1. ;;00480063701
  1. ;;9002226.02101,"1044,00480063701 ",.02)
  1. ;;00480063701
  1. ;;9002226.02101,"1044,00480063710 ",.01)
  1. ;;00480063710
  1. ;;9002226.02101,"1044,00480063710 ",.02)
  1. ;;00480063710
  1. ;;9002226.02101,"1044,00480063801 ",.01)
  1. ;;00480063801
  1. ;;9002226.02101,"1044,00480063801 ",.02)
  1. ;;00480063801
  1. ;;9002226.02101,"1044,00480063810 ",.01)
  1. ;;00480063810
  1. ;;9002226.02101,"1044,00480063810 ",.02)
  1. ;;00480063810
  1. ;;9002226.02101,"1044,00480069501 ",.01)
  1. ;;00480069501
  1. ;;9002226.02101,"1044,00480069501 ",.02)
  1. ;;00480069501
  1. ;;9002226.02101,"1044,00480078806 ",.01)
  1. ;;00480078806
  1. ;;9002226.02101,"1044,00480078806 ",.02)
  1. ;;00480078806
  1. ;;9002226.02101,"1044,00480095601 ",.01)
  1. ;;00480095601
  1. ;;9002226.02101,"1044,00480095601 ",.02)
  1. ;;00480095601
  1. ;;9002226.02101,"1044,00480095801 ",.01)
  1. ;;00480095801
  1. ;;9002226.02101,"1044,00480095801 ",.02)
  1. ;;00480095801
  1. ;;9002226.02101,"1044,00480096001 ",.01)
  1. ;;00480096001
  1. ;;9002226.02101,"1044,00480096001 ",.02)
  1. ;;00480096001
  1. ;;9002226.02101,"1044,00480104201 ",.01)
  1. ;;00480104201
  1. ;;9002226.02101,"1044,00480104201 ",.02)
  1. ;;00480104201
  1. ;;9002226.02101,"1044,00480104301 ",.01)
  1. ;;00480104301
  1. ;;9002226.02101,"1044,00480104301 ",.02)
  1. ;;00480104301
  1. ;;9002226.02101,"1044,00480711456 ",.01)
  1. ;;00480711456
  1. ;;9002226.02101,"1044,00480711456 ",.02)
  1. ;;00480711456
  1. ;;9002226.02101,"1044,00480711498 ",.01)
  1. ;;00480711498
  1. ;;9002226.02101,"1044,00480711498 ",.02)
  1. ;;00480711498
  1. ;;9002226.02101,"1044,00480711556 ",.01)
  1. ;;00480711556
  1. ;;9002226.02101,"1044,00480711556 ",.02)
  1. ;;00480711556
  1. ;;9002226.02101,"1044,00480711598 ",.01)
  1. ;;00480711598
  1. ;;9002226.02101,"1044,00480711598 ",.02)
  1. ;;00480711598
  1. ;;9002226.02101,"1044,00480711656 ",.01)
  1. ;;00480711656
  1. ;;9002226.02101,"1044,00480711656 ",.02)
  1. ;;00480711656
  1. ;;9002226.02101,"1044,00480711698 ",.01)
  1. ;;00480711698
  1. ;;9002226.02101,"1044,00480711698 ",.02)
  1. ;;00480711698
  1. ;;9002226.02101,"1044,00480712156 ",.01)
  1. ;;00480712156
  1. ;;9002226.02101,"1044,00480712156 ",.02)
  1. ;;00480712156
  1. ;;9002226.02101,"1044,00480712198 ",.01)
  1. ;;00480712198
  1. ;;9002226.02101,"1044,00480712198 ",.02)
  1. ;;00480712198
  1. ;;9002226.02101,"1044,00480717510 ",.01)
  1. ;;00480717510
  1. ;;9002226.02101,"1044,00480717510 ",.02)
  1. ;;00480717510
  1. ;;9002226.02101,"1044,00480717556 ",.01)
  1. ;;00480717556
  1. ;;9002226.02101,"1044,00480717556 ",.02)
  1. ;;00480717556
  1. ;;9002226.02101,"1044,00480717599 ",.01)
  1. ;;00480717599
  1. ;;9002226.02101,"1044,00480717599 ",.02)
  1. ;;00480717599
  1. ;;9002226.02101,"1044,00480717610 ",.01)
  1. ;;00480717610
  1. ;;9002226.02101,"1044,00480717610 ",.02)
  1. ;;00480717610
  1. ;;9002226.02101,"1044,00480717656 ",.01)
  1. ;;00480717656
  1. ;;9002226.02101,"1044,00480717656 ",.02)
  1. ;;00480717656
  1. ;;9002226.02101,"1044,00480717699 ",.01)
  1. ;;00480717699
  1. ;;9002226.02101,"1044,00480717699 ",.02)
  1. ;;00480717699
  1. ;;9002226.02101,"1044,00480717710 ",.01)
  1. ;;00480717710
  1. ;;9002226.02101,"1044,00480717710 ",.02)
  1. ;;00480717710
  1. ;;9002226.02101,"1044,00480717756 ",.01)
  1. ;;00480717756
  1. ;;9002226.02101,"1044,00480717756 ",.02)
  1. ;;00480717756
  1. ;;9002226.02101,"1044,00480717799 ",.01)
  1. ;;00480717799
  1. ;;9002226.02101,"1044,00480717799 ",.02)
  1. ;;00480717799
  1. ;;9002226.02101,"1044,00480718356 ",.01)
  1. ;;00480718356
  1. ;;9002226.02101,"1044,00480718356 ",.02)
  1. ;;00480718356
  1. ;;9002226.02101,"1044,00480718398 ",.01)
  1. ;;00480718398
  1. ;;9002226.02101,"1044,00480718398 ",.02)
  1. ;;00480718398
  1. ;;9002226.02101,"1044,00480718456 ",.01)
  1. ;;00480718456
  1. ;;9002226.02101,"1044,00480718456 ",.02)
  1. ;;00480718456
  1. ;;9002226.02101,"1044,00480718498 ",.01)
  1. ;;00480718498
  1. ;;9002226.02101,"1044,00480718498 ",.02)
  1. ;;00480718498
  1. ;;9002226.02101,"1044,00480718810 ",.01)
  1. ;;00480718810
  1. ;;9002226.02101,"1044,00480718810 ",.02)
  1. ;;00480718810
  1. ;;9002226.02101,"1044,00480718856 ",.01)
  1. ;;00480718856
  1. ;;9002226.02101,"1044,00480718856 ",.02)
  1. ;;00480718856
  1. ;;9002226.02101,"1044,00480719856 ",.01)
  1. ;;00480719856
  1. ;;9002226.02101,"1044,00480719856 ",.02)
  1. ;;00480719856
  1. ;;9002226.02101,"1044,00480720656 ",.01)
  1. ;;00480720656
  1. ;;9002226.02101,"1044,00480720656 ",.02)
  1. ;;00480720656
  1. ;;9002226.02101,"1044,00480720756 ",.01)
  1. ;;00480720756
  1. ;;9002226.02101,"1044,00480720756 ",.02)
  1. ;;00480720756
  1. ;;9002226.02101,"1044,00480720856 ",.01)
  1. ;;00480720856
  1. ;;9002226.02101,"1044,00480720856 ",.02)
  1. ;;00480720856
  1. ;;9002226.02101,"1044,00480730318 ",.01)
  1. ;;00480730318
  1. ;;9002226.02101,"1044,00480730318 ",.02)
  1. ;;00480730318
  1. ;;9002226.02101,"1044,00480730365 ",.01)
  1. ;;00480730365
  1. ;;9002226.02101,"1044,00480730365 ",.02)
  1. ;;00480730365
  1. ;;9002226.02101,"1044,00480730418 ",.01)
  1. ;;00480730418
  1. ;;9002226.02101,"1044,00480730418 ",.02)
  1. ;;00480730418
  1. ;;9002226.02101,"1044,00480730465 ",.01)
  1. ;;00480730465
  1. ;;9002226.02101,"1044,00480730465 ",.02)
  1. ;;00480730465
  1. ;;9002226.02101,"1044,00480730502 ",.01)
  1. ;;00480730502
  1. ;;9002226.02101,"1044,00480730502 ",.02)
  1. ;;00480730502
  1. ;;9002226.02101,"1044,00480730565 ",.01)
  1. ;;00480730565
  1. ;;9002226.02101,"1044,00480730565 ",.02)
  1. ;;00480730565
  1. ;;9002226.02101,"1044,00480738001 ",.01)
  1. ;;00480738001
  1. ;;9002226.02101,"1044,00480738001 ",.02)
  1. ;;00480738001
  1. ;;9002226.02101,"1044,00480738101 ",.01)
  1. ;;00480738101
  1. ;;9002226.02101,"1044,00480738101 ",.02)
  1. ;;00480738101
  1. ;;9002226.02101,"1044,00480738201 ",.01)
  1. ;;00480738201
  1. ;;9002226.02101,"1044,00480738201 ",.02)
  1. ;;00480738201
  1. ;;9002226.02101,"1044,00480738301 ",.01)
  1. ;;00480738301
  1. ;;9002226.02101,"1044,00480738301 ",.02)
  1. ;;00480738301
  1. ;;9002226.02101,"1044,00480751556 ",.01)
  1. ;;00480751556
  1. ;;9002226.02101,"1044,00480751556 ",.02)
  1. ;;00480751556
  1. ;;9002226.02101,"1044,00480751598 ",.01)
  1. ;;00480751598
  1. ;;9002226.02101,"1044,00480751598 ",.02)
  1. ;;00480751598
  1. ;;9002226.02101,"1044,00490011400 ",.01)
  1. ;;00490011400
  1. ;;9002226.02101,"1044,00490011400 ",.02)
  1. ;;00490011400
  1. ;;9002226.02101,"1044,00490011401 ",.01)
  1. ;;00490011401
  1. ;;9002226.02101,"1044,00490011401 ",.02)
  1. ;;00490011401
  1. ;;9002226.02101,"1044,00490011402 ",.01)
  1. ;;00490011402
  1. ;;9002226.02101,"1044,00490011402 ",.02)
  1. ;;00490011402
  1. ;;9002226.02101,"1044,00490011403 ",.01)
  1. ;;00490011403
  1. ;;9002226.02101,"1044,00490011403 ",.02)
  1. ;;00490011403
  1. ;;9002226.02101,"1044,00490011404 ",.01)
  1. ;;00490011404
  1. ;;9002226.02101,"1044,00490011404 ",.02)
  1. ;;00490011404
  1. ;;9002226.02101,"1044,00490011405 ",.01)
  1. ;;00490011405
  1. ;;9002226.02101,"1044,00490011405 ",.02)
  1. ;;00490011405
  1. ;;9002226.02101,"1044,00490011430 ",.01)
  1. ;;00490011430
  1. ;;9002226.02101,"1044,00490011430 ",.02)
  1. ;;00490011430
  1. ;;9002226.02101,"1044,00490011460 ",.01)
  1. ;;00490011460
  1. ;;9002226.02101,"1044,00490011460 ",.02)
  1. ;;00490011460
  1. ;;9002226.02101,"1044,00490011490 ",.01)
  1. ;;00490011490
  1. ;;9002226.02101,"1044,00490011490 ",.02)
  1. ;;00490011490
  1. ;;9002226.02101,"1044,00490703400 ",.01)
  1. ;;00490703400
  1. ;;9002226.02101,"1044,00490703400 ",.02)
  1. ;;00490703400
  1. ;;9002226.02101,"1044,00490703401 ",.01)
  1. ;;00490703401
  1. ;;9002226.02101,"1044,00490703401 ",.02)
  1. ;;00490703401
  1. ;;9002226.02101,"1044,00490703402 ",.01)
  1. ;;00490703402
  1. ;;9002226.02101,"1044,00490703402 ",.02)
  1. ;;00490703402
  1. ;;9002226.02101,"1044,00490703403 ",.01)
  1. ;;00490703403
  1. ;;9002226.02101,"1044,00490703403 ",.02)
  1. ;;00490703403
  1. ;;9002226.02101,"1044,00490703404 ",.01)
  1. ;;00490703404
  1. ;;9002226.02101,"1044,00490703404 ",.02)
  1. ;;00490703404
  1. ;;9002226.02101,"1044,00490703405 ",.01)
  1. ;;00490703405
  1. ;;9002226.02101,"1044,00490703405 ",.02)
  1. ;;00490703405
  1. ;;9002226.02101,"1044,00490703406 ",.01)
  1. ;;00490703406
  1. ;;9002226.02101,"1044,00490703406 ",.02)
  1. ;;00490703406
  1. ;;9002226.02101,"1044,00490703407 ",.01)
  1. ;;00490703407
  1. ;;9002226.02101,"1044,00490703407 ",.02)
  1. ;;00490703407
  1. ;;9002226.02101,"1044,00490703408 ",.01)
  1. ;;00490703408
  1. ;;9002226.02101,"1044,00490703408 ",.02)
  1. ;;00490703408
  1. ;;9002226.02101,"1044,00490703409 ",.01)
  1. ;;00490703409
  1. ;;9002226.02101,"1044,00490703409 ",.02)
  1. ;;00490703409
  1. ;;9002226.02101,"1044,00490703410 ",.01)
  1. ;;00490703410
  1. ;;9002226.02101,"1044,00490703410 ",.02)
  1. ;;00490703410
  1. ;;9002226.02101,"1044,00490703412 ",.01)
  1. ;;00490703412
  1. ;;9002226.02101,"1044,00490703412 ",.02)
  1. ;;00490703412
  1. ;;9002226.02101,"1044,00490703414 ",.01)
  1. ;;00490703414
  1. ;;9002226.02101,"1044,00490703414 ",.02)
  1. ;;00490703414
  1. ;;9002226.02101,"1044,00490703415 ",.01)
  1. ;;00490703415
  1. ;;9002226.02101,"1044,00490703415 ",.02)
  1. ;;00490703415
  1. ;;9002226.02101,"1044,00490703416 ",.01)
  1. ;;00490703416
  1. ;;9002226.02101,"1044,00490703416 ",.02)
  1. ;;00490703416
  1. ;;9002226.02101,"1044,00490703418 ",.01)
  1. ;;00490703418
  1. ;;9002226.02101,"1044,00490703418 ",.02)
  1. ;;00490703418
  1. ;;9002226.02101,"1044,00490703420 ",.01)
  1. ;;00490703420
  1. ;;9002226.02101,"1044,00490703420 ",.02)
  1. ;;00490703420
  1. ;;9002226.02101,"1044,00490703421 ",.01)
  1. ;;00490703421
  1. ;;9002226.02101,"1044,00490703421 ",.02)
  1. ;;00490703421
  1. ;;9002226.02101,"1044,00490703424 ",.01)
  1. ;;00490703424
  1. ;;9002226.02101,"1044,00490703424 ",.02)
  1. ;;00490703424
  1. ;;9002226.02101,"1044,00490703425 ",.01)
  1. ;;00490703425
  1. ;;9002226.02101,"1044,00490703425 ",.02)
  1. ;;00490703425
  1. ;;9002226.02101,"1044,00490703426 ",.01)
  1. ;;00490703426
  1. ;;9002226.02101,"1044,00490703426 ",.02)
  1. ;;00490703426
  1. ;;9002226.02101,"1044,00490703427 ",.01)
  1. ;;00490703427
  1. ;;9002226.02101,"1044,00490703427 ",.02)
  1. ;;00490703427
  1. ;;9002226.02101,"1044,00490703428 ",.01)
  1. ;;00490703428
  1. ;;9002226.02101,"1044,00490703428 ",.02)
  1. ;;00490703428
  1. ;;9002226.02101,"1044,00490703430 ",.01)
  1. ;;00490703430
  1. ;;9002226.02101,"1044,00490703430 ",.02)
  1. ;;00490703430
  1. ;;9002226.02101,"1044,00490703432 ",.01)
  1. ;;00490703432
  1. ;;9002226.02101,"1044,00490703432 ",.02)
  1. ;;00490703432