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