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

BGPM5BFI.m

Go to the documentation of this file.
  1. BGPM5BFI ;IHS/MSC/MMT-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,"1084,55289091930 ",.01)
  1. ;;55289091930
  1. ;;9002226.02101,"1084,55289091930 ",.02)
  1. ;;55289091930
  1. ;;9002226.02101,"1084,55289091960 ",.01)
  1. ;;55289091960
  1. ;;9002226.02101,"1084,55289091960 ",.02)
  1. ;;55289091960
  1. ;;9002226.02101,"1084,55289091990 ",.01)
  1. ;;55289091990
  1. ;;9002226.02101,"1084,55289091990 ",.02)
  1. ;;55289091990
  1. ;;9002226.02101,"1084,55289091993 ",.01)
  1. ;;55289091993
  1. ;;9002226.02101,"1084,55289091993 ",.02)
  1. ;;55289091993
  1. ;;9002226.02101,"1084,55289091994 ",.01)
  1. ;;55289091994
  1. ;;9002226.02101,"1084,55289091994 ",.02)
  1. ;;55289091994
  1. ;;9002226.02101,"1084,55289091998 ",.01)
  1. ;;55289091998
  1. ;;9002226.02101,"1084,55289091998 ",.02)
  1. ;;55289091998
  1. ;;9002226.02101,"1084,55289093430 ",.01)
  1. ;;55289093430
  1. ;;9002226.02101,"1084,55289093430 ",.02)
  1. ;;55289093430
  1. ;;9002226.02101,"1084,55289093460 ",.01)
  1. ;;55289093460
  1. ;;9002226.02101,"1084,55289093460 ",.02)
  1. ;;55289093460
  1. ;;9002226.02101,"1084,55289093493 ",.01)
  1. ;;55289093493
  1. ;;9002226.02101,"1084,55289093493 ",.02)
  1. ;;55289093493
  1. ;;9002226.02101,"1084,55289093494 ",.01)
  1. ;;55289093494
  1. ;;9002226.02101,"1084,55289093494 ",.02)
  1. ;;55289093494
  1. ;;9002226.02101,"1084,55289093498 ",.01)
  1. ;;55289093498
  1. ;;9002226.02101,"1084,55289093498 ",.02)
  1. ;;55289093498
  1. ;;9002226.02101,"1084,55289097601 ",.01)
  1. ;;55289097601
  1. ;;9002226.02101,"1084,55289097601 ",.02)
  1. ;;55289097601
  1. ;;9002226.02101,"1084,55289097614 ",.01)
  1. ;;55289097614
  1. ;;9002226.02101,"1084,55289097614 ",.02)
  1. ;;55289097614
  1. ;;9002226.02101,"1084,55289097630 ",.01)
  1. ;;55289097630
  1. ;;9002226.02101,"1084,55289097630 ",.02)
  1. ;;55289097630
  1. ;;9002226.02101,"1084,55289097660 ",.01)
  1. ;;55289097660
  1. ;;9002226.02101,"1084,55289097660 ",.02)
  1. ;;55289097660
  1. ;;9002226.02101,"1084,55289097693 ",.01)
  1. ;;55289097693
  1. ;;9002226.02101,"1084,55289097693 ",.02)
  1. ;;55289097693
  1. ;;9002226.02101,"1084,55370014607 ",.01)
  1. ;;55370014607
  1. ;;9002226.02101,"1084,55370014607 ",.02)
  1. ;;55370014607
  1. ;;9002226.02101,"1084,55370014608 ",.01)
  1. ;;55370014608
  1. ;;9002226.02101,"1084,55370014608 ",.02)
  1. ;;55370014608
  1. ;;9002226.02101,"1084,55370014609 ",.01)
  1. ;;55370014609
  1. ;;9002226.02101,"1084,55370014609 ",.02)
  1. ;;55370014609
  1. ;;9002226.02101,"1084,55370014707 ",.01)
  1. ;;55370014707
  1. ;;9002226.02101,"1084,55370014707 ",.02)
  1. ;;55370014707
  1. ;;9002226.02101,"1084,55370014708 ",.01)
  1. ;;55370014708
  1. ;;9002226.02101,"1084,55370014708 ",.02)
  1. ;;55370014708
  1. ;;9002226.02101,"1084,55370014709 ",.01)
  1. ;;55370014709
  1. ;;9002226.02101,"1084,55370014709 ",.02)
  1. ;;55370014709
  1. ;;9002226.02101,"1084,55370014907 ",.01)
  1. ;;55370014907
  1. ;;9002226.02101,"1084,55370014907 ",.02)
  1. ;;55370014907
  1. ;;9002226.02101,"1084,55370014909 ",.01)
  1. ;;55370014909
  1. ;;9002226.02101,"1084,55370014909 ",.02)
  1. ;;55370014909
  1. ;;9002226.02101,"1084,55370046010 ",.01)
  1. ;;55370046010
  1. ;;9002226.02101,"1084,55370046010 ",.02)
  1. ;;55370046010
  1. ;;9002226.02101,"1084,55370046011 ",.01)
  1. ;;55370046011
  1. ;;9002226.02101,"1084,55370046011 ",.02)
  1. ;;55370046011
  1. ;;9002226.02101,"1084,55370046050 ",.01)
  1. ;;55370046050
  1. ;;9002226.02101,"1084,55370046050 ",.02)
  1. ;;55370046050
  1. ;;9002226.02101,"1084,55370046110 ",.01)
  1. ;;55370046110
  1. ;;9002226.02101,"1084,55370046110 ",.02)
  1. ;;55370046110
  1. ;;9002226.02101,"1084,55370046111 ",.01)
  1. ;;55370046111
  1. ;;9002226.02101,"1084,55370046111 ",.02)
  1. ;;55370046111
  1. ;;9002226.02101,"1084,55370046150 ",.01)
  1. ;;55370046150
  1. ;;9002226.02101,"1084,55370046150 ",.02)
  1. ;;55370046150
  1. ;;9002226.02101,"1084,55370046210 ",.01)
  1. ;;55370046210
  1. ;;9002226.02101,"1084,55370046210 ",.02)
  1. ;;55370046210
  1. ;;9002226.02101,"1084,55370046211 ",.01)
  1. ;;55370046211
  1. ;;9002226.02101,"1084,55370046211 ",.02)
  1. ;;55370046211
  1. ;;9002226.02101,"1084,55370046250 ",.01)
  1. ;;55370046250
  1. ;;9002226.02101,"1084,55370046250 ",.02)
  1. ;;55370046250
  1. ;;9002226.02101,"1084,55370050607 ",.01)
  1. ;;55370050607
  1. ;;9002226.02101,"1084,55370050607 ",.02)
  1. ;;55370050607
  1. ;;9002226.02101,"1084,55370050608 ",.01)
  1. ;;55370050608
  1. ;;9002226.02101,"1084,55370050608 ",.02)
  1. ;;55370050608
  1. ;;9002226.02101,"1084,55370050609 ",.01)
  1. ;;55370050609
  1. ;;9002226.02101,"1084,55370050609 ",.02)
  1. ;;55370050609
  1. ;;9002226.02101,"1084,55370059207 ",.01)
  1. ;;55370059207
  1. ;;9002226.02101,"1084,55370059207 ",.02)
  1. ;;55370059207
  1. ;;9002226.02101,"1084,55370059407 ",.01)
  1. ;;55370059407
  1. ;;9002226.02101,"1084,55370059407 ",.02)
  1. ;;55370059407
  1. ;;9002226.02101,"1084,55370059408 ",.01)
  1. ;;55370059408
  1. ;;9002226.02101,"1084,55370059408 ",.02)
  1. ;;55370059408
  1. ;;9002226.02101,"1084,55370059507 ",.01)
  1. ;;55370059507
  1. ;;9002226.02101,"1084,55370059507 ",.02)
  1. ;;55370059507
  1. ;;9002226.02101,"1084,55370059607 ",.01)
  1. ;;55370059607
  1. ;;9002226.02101,"1084,55370059607 ",.02)
  1. ;;55370059607
  1. ;;9002226.02101,"1084,55370059608 ",.01)
  1. ;;55370059608
  1. ;;9002226.02101,"1084,55370059608 ",.02)
  1. ;;55370059608
  1. ;;9002226.02101,"1084,55370075607 ",.01)
  1. ;;55370075607
  1. ;;9002226.02101,"1084,55370075607 ",.02)
  1. ;;55370075607
  1. ;;9002226.02101,"1084,55370075609 ",.01)
  1. ;;55370075609
  1. ;;9002226.02101,"1084,55370075609 ",.02)
  1. ;;55370075609
  1. ;;9002226.02101,"1084,55370075707 ",.01)
  1. ;;55370075707
  1. ;;9002226.02101,"1084,55370075707 ",.02)
  1. ;;55370075707
  1. ;;9002226.02101,"1084,55370075709 ",.01)
  1. ;;55370075709
  1. ;;9002226.02101,"1084,55370075709 ",.02)
  1. ;;55370075709
  1. ;;9002226.02101,"1084,55370075907 ",.01)
  1. ;;55370075907
  1. ;;9002226.02101,"1084,55370075907 ",.02)
  1. ;;55370075907
  1. ;;9002226.02101,"1084,55370075909 ",.01)
  1. ;;55370075909
  1. ;;9002226.02101,"1084,55370075909 ",.02)
  1. ;;55370075909
  1. ;;9002226.02101,"1084,55567011300 ",.01)
  1. ;;55567011300
  1. ;;9002226.02101,"1084,55567011300 ",.02)
  1. ;;55567011300
  1. ;;9002226.02101,"1084,55567011318 ",.01)
  1. ;;55567011318
  1. ;;9002226.02101,"1084,55567011318 ",.02)
  1. ;;55567011318
  1. ;;9002226.02101,"1084,55567011325 ",.01)
  1. ;;55567011325
  1. ;;9002226.02101,"1084,55567011325 ",.02)
  1. ;;55567011325
  1. ;;9002226.02101,"1084,55567014400 ",.01)
  1. ;;55567014400
  1. ;;9002226.02101,"1084,55567014400 ",.02)
  1. ;;55567014400
  1. ;;9002226.02101,"1084,55567014418 ",.01)
  1. ;;55567014418
  1. ;;9002226.02101,"1084,55567014418 ",.02)
  1. ;;55567014418
  1. ;;9002226.02101,"1084,55567014425 ",.01)
  1. ;;55567014425
  1. ;;9002226.02101,"1084,55567014425 ",.02)
  1. ;;55567014425
  1. ;;9002226.02101,"1084,55567014500 ",.01)
  1. ;;55567014500
  1. ;;9002226.02101,"1084,55567014500 ",.02)
  1. ;;55567014500
  1. ;;9002226.02101,"1084,55567014518 ",.01)
  1. ;;55567014518
  1. ;;9002226.02101,"1084,55567014518 ",.02)
  1. ;;55567014518
  1. ;;9002226.02101,"1084,55567014525 ",.01)
  1. ;;55567014525
  1. ;;9002226.02101,"1084,55567014525 ",.02)
  1. ;;55567014525
  1. ;;9002226.02101,"1084,55567014600 ",.01)
  1. ;;55567014600
  1. ;;9002226.02101,"1084,55567014600 ",.02)
  1. ;;55567014600
  1. ;;9002226.02101,"1084,55567014618 ",.01)
  1. ;;55567014618
  1. ;;9002226.02101,"1084,55567014618 ",.02)
  1. ;;55567014618
  1. ;;9002226.02101,"1084,55567014625 ",.01)
  1. ;;55567014625
  1. ;;9002226.02101,"1084,55567014625 ",.02)
  1. ;;55567014625
  1. ;;9002226.02101,"1084,55887017330 ",.01)
  1. ;;55887017330
  1. ;;9002226.02101,"1084,55887017330 ",.02)
  1. ;;55887017330
  1. ;;9002226.02101,"1084,55887017990 ",.01)
  1. ;;55887017990
  1. ;;9002226.02101,"1084,55887017990 ",.02)
  1. ;;55887017990
  1. ;;9002226.02101,"1084,55887021230 ",.01)
  1. ;;55887021230
  1. ;;9002226.02101,"1084,55887021230 ",.02)
  1. ;;55887021230
  1. ;;9002226.02101,"1084,55887022230 ",.01)
  1. ;;55887022230
  1. ;;9002226.02101,"1084,55887022230 ",.02)
  1. ;;55887022230
  1. ;;9002226.02101,"1084,55887022260 ",.01)
  1. ;;55887022260
  1. ;;9002226.02101,"1084,55887022260 ",.02)
  1. ;;55887022260
  1. ;;9002226.02101,"1084,55887022290 ",.01)
  1. ;;55887022290
  1. ;;9002226.02101,"1084,55887022290 ",.02)
  1. ;;55887022290
  1. ;;9002226.02101,"1084,55887033930 ",.01)
  1. ;;55887033930
  1. ;;9002226.02101,"1084,55887033930 ",.02)
  1. ;;55887033930
  1. ;;9002226.02101,"1084,55887033960 ",.01)
  1. ;;55887033960
  1. ;;9002226.02101,"1084,55887033960 ",.02)
  1. ;;55887033960
  1. ;;9002226.02101,"1084,55887033990 ",.01)
  1. ;;55887033990
  1. ;;9002226.02101,"1084,55887033990 ",.02)
  1. ;;55887033990
  1. ;;9002226.02101,"1084,55887036830 ",.01)
  1. ;;55887036830
  1. ;;9002226.02101,"1084,55887036830 ",.02)
  1. ;;55887036830
  1. ;;9002226.02101,"1084,55887036860 ",.01)
  1. ;;55887036860
  1. ;;9002226.02101,"1084,55887036860 ",.02)
  1. ;;55887036860
  1. ;;9002226.02101,"1084,55887036890 ",.01)
  1. ;;55887036890
  1. ;;9002226.02101,"1084,55887036890 ",.02)
  1. ;;55887036890
  1. ;;9002226.02101,"1084,55887036896 ",.01)
  1. ;;55887036896
  1. ;;9002226.02101,"1084,55887036896 ",.02)
  1. ;;55887036896
  1. ;;9002226.02101,"1084,55887041482 ",.01)
  1. ;;55887041482
  1. ;;9002226.02101,"1084,55887041482 ",.02)
  1. ;;55887041482
  1. ;;9002226.02101,"1084,55887041492 ",.01)
  1. ;;55887041492
  1. ;;9002226.02101,"1084,55887041492 ",.02)
  1. ;;55887041492
  1. ;;9002226.02101,"1084,55887053501 ",.01)
  1. ;;55887053501
  1. ;;9002226.02101,"1084,55887053501 ",.02)
  1. ;;55887053501
  1. ;;9002226.02101,"1084,55887053530 ",.01)
  1. ;;55887053530
  1. ;;9002226.02101,"1084,55887053530 ",.02)
  1. ;;55887053530
  1. ;;9002226.02101,"1084,55887053560 ",.01)
  1. ;;55887053560
  1. ;;9002226.02101,"1084,55887053560 ",.02)
  1. ;;55887053560
  1. ;;9002226.02101,"1084,55887053590 ",.01)
  1. ;;55887053590
  1. ;;9002226.02101,"1084,55887053590 ",.02)
  1. ;;55887053590
  1. ;;9002226.02101,"1084,55887053601 ",.01)
  1. ;;55887053601
  1. ;;9002226.02101,"1084,55887053601 ",.02)
  1. ;;55887053601
  1. ;;9002226.02101,"1084,55887053630 ",.01)
  1. ;;55887053630
  1. ;;9002226.02101,"1084,55887053630 ",.02)
  1. ;;55887053630
  1. ;;9002226.02101,"1084,55887053660 ",.01)
  1. ;;55887053660
  1. ;;9002226.02101,"1084,55887053660 ",.02)
  1. ;;55887053660
  1. ;;9002226.02101,"1084,55887053690 ",.01)
  1. ;;55887053690
  1. ;;9002226.02101,"1084,55887053690 ",.02)
  1. ;;55887053690
  1. ;;9002226.02101,"1084,55887053699 ",.01)
  1. ;;55887053699
  1. ;;9002226.02101,"1084,55887053699 ",.02)
  1. ;;55887053699
  1. ;;9002226.02101,"1084,55887057101 ",.01)
  1. ;;55887057101
  1. ;;9002226.02101,"1084,55887057101 ",.02)
  1. ;;55887057101
  1. ;;9002226.02101,"1084,55887057130 ",.01)
  1. ;;55887057130
  1. ;;9002226.02101,"1084,55887057130 ",.02)
  1. ;;55887057130
  1. ;;9002226.02101,"1084,55887057160 ",.01)
  1. ;;55887057160
  1. ;;9002226.02101,"1084,55887057160 ",.02)
  1. ;;55887057160
  1. ;;9002226.02101,"1084,55887057182 ",.01)
  1. ;;55887057182
  1. ;;9002226.02101,"1084,55887057182 ",.02)
  1. ;;55887057182
  1. ;;9002226.02101,"1084,55887057186 ",.01)
  1. ;;55887057186
  1. ;;9002226.02101,"1084,55887057186 ",.02)
  1. ;;55887057186
  1. ;;9002226.02101,"1084,55887057190 ",.01)
  1. ;;55887057190
  1. ;;9002226.02101,"1084,55887057190 ",.02)
  1. ;;55887057190
  1. ;;9002226.02101,"1084,55887057192 ",.01)
  1. ;;55887057192
  1. ;;9002226.02101,"1084,55887057192 ",.02)
  1. ;;55887057192
  1. ;;9002226.02101,"1084,55887061430 ",.01)
  1. ;;55887061430
  1. ;;9002226.02101,"1084,55887061430 ",.02)
  1. ;;55887061430
  1. ;;9002226.02101,"1084,55887061490 ",.01)
  1. ;;55887061490
  1. ;;9002226.02101,"1084,55887061490 ",.02)
  1. ;;55887061490
  1. ;;9002226.02101,"1084,55887062701 ",.01)
  1. ;;55887062701
  1. ;;9002226.02101,"1084,55887062701 ",.02)
  1. ;;55887062701
  1. ;;9002226.02101,"1084,55887062730 ",.01)
  1. ;;55887062730
  1. ;;9002226.02101,"1084,55887062730 ",.02)
  1. ;;55887062730
  1. ;;9002226.02101,"1084,55887062760 ",.01)
  1. ;;55887062760
  1. ;;9002226.02101,"1084,55887062760 ",.02)
  1. ;;55887062760
  1. ;;9002226.02101,"1084,55887062782 ",.01)
  1. ;;55887062782
  1. ;;9002226.02101,"1084,55887062782 ",.02)
  1. ;;55887062782
  1. ;;9002226.02101,"1084,55887062790 ",.01)
  1. ;;55887062790
  1. ;;9002226.02101,"1084,55887062790 ",.02)
  1. ;;55887062790
  1. ;;9002226.02101,"1084,55887062792 ",.01)
  1. ;;55887062792
  1. ;;9002226.02101,"1084,55887062792 ",.02)
  1. ;;55887062792
  1. ;;9002226.02101,"1084,55887065730 ",.01)
  1. ;;55887065730
  1. ;;9002226.02101,"1084,55887065730 ",.02)
  1. ;;55887065730
  1. ;;9002226.02101,"1084,55887065760 ",.01)
  1. ;;55887065760