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

BGPM5BFT.m

Go to the documentation of this file.
BGPM5BFT ;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,63552033060 ",.02)
 ;;63552033060
 ;;9002226.02101,"1084,63629125501 ",.01)
 ;;63629125501
 ;;9002226.02101,"1084,63629125501 ",.02)
 ;;63629125501
 ;;9002226.02101,"1084,63629125502 ",.01)
 ;;63629125502
 ;;9002226.02101,"1084,63629125502 ",.02)
 ;;63629125502
 ;;9002226.02101,"1084,63629139201 ",.01)
 ;;63629139201
 ;;9002226.02101,"1084,63629139201 ",.02)
 ;;63629139201
 ;;9002226.02101,"1084,63629139202 ",.01)
 ;;63629139202
 ;;9002226.02101,"1084,63629139202 ",.02)
 ;;63629139202
 ;;9002226.02101,"1084,63629139203 ",.01)
 ;;63629139203
 ;;9002226.02101,"1084,63629139203 ",.02)
 ;;63629139203
 ;;9002226.02101,"1084,63629139301 ",.01)
 ;;63629139301
 ;;9002226.02101,"1084,63629139301 ",.02)
 ;;63629139301
 ;;9002226.02101,"1084,63629139302 ",.01)
 ;;63629139302
 ;;9002226.02101,"1084,63629139302 ",.02)
 ;;63629139302
 ;;9002226.02101,"1084,63629139303 ",.01)
 ;;63629139303
 ;;9002226.02101,"1084,63629139303 ",.02)
 ;;63629139303
 ;;9002226.02101,"1084,63629139304 ",.01)
 ;;63629139304
 ;;9002226.02101,"1084,63629139304 ",.02)
 ;;63629139304
 ;;9002226.02101,"1084,63629139401 ",.01)
 ;;63629139401
 ;;9002226.02101,"1084,63629139401 ",.02)
 ;;63629139401
 ;;9002226.02101,"1084,63629139402 ",.01)
 ;;63629139402
 ;;9002226.02101,"1084,63629139402 ",.02)
 ;;63629139402
 ;;9002226.02101,"1084,63629139403 ",.01)
 ;;63629139403
 ;;9002226.02101,"1084,63629139403 ",.02)
 ;;63629139403
 ;;9002226.02101,"1084,63629139501 ",.01)
 ;;63629139501
 ;;9002226.02101,"1084,63629139501 ",.02)
 ;;63629139501
 ;;9002226.02101,"1084,63629139502 ",.01)
 ;;63629139502
 ;;9002226.02101,"1084,63629139502 ",.02)
 ;;63629139502
 ;;9002226.02101,"1084,63629139503 ",.01)
 ;;63629139503
 ;;9002226.02101,"1084,63629139503 ",.02)
 ;;63629139503
 ;;9002226.02101,"1084,63629139504 ",.01)
 ;;63629139504
 ;;9002226.02101,"1084,63629139504 ",.02)
 ;;63629139504
 ;;9002226.02101,"1084,63629139505 ",.01)
 ;;63629139505
 ;;9002226.02101,"1084,63629139505 ",.02)
 ;;63629139505
 ;;9002226.02101,"1084,63629139601 ",.01)
 ;;63629139601
 ;;9002226.02101,"1084,63629139601 ",.02)
 ;;63629139601
 ;;9002226.02101,"1084,63629139602 ",.01)
 ;;63629139602
 ;;9002226.02101,"1084,63629139602 ",.02)
 ;;63629139602
 ;;9002226.02101,"1084,63629139701 ",.01)
 ;;63629139701
 ;;9002226.02101,"1084,63629139701 ",.02)
 ;;63629139701
 ;;9002226.02101,"1084,63629139702 ",.01)
 ;;63629139702
 ;;9002226.02101,"1084,63629139702 ",.02)
 ;;63629139702
 ;;9002226.02101,"1084,63629139703 ",.01)
 ;;63629139703
 ;;9002226.02101,"1084,63629139703 ",.02)
 ;;63629139703
 ;;9002226.02101,"1084,63629139704 ",.01)
 ;;63629139704
 ;;9002226.02101,"1084,63629139704 ",.02)
 ;;63629139704
 ;;9002226.02101,"1084,63629139705 ",.01)
 ;;63629139705
 ;;9002226.02101,"1084,63629139705 ",.02)
 ;;63629139705
 ;;9002226.02101,"1084,63629139706 ",.01)
 ;;63629139706
 ;;9002226.02101,"1084,63629139706 ",.02)
 ;;63629139706
 ;;9002226.02101,"1084,63629139707 ",.01)
 ;;63629139707
 ;;9002226.02101,"1084,63629139707 ",.02)
 ;;63629139707
 ;;9002226.02101,"1084,63629139801 ",.01)
 ;;63629139801
 ;;9002226.02101,"1084,63629139801 ",.02)
 ;;63629139801
 ;;9002226.02101,"1084,63629139802 ",.01)
 ;;63629139802
 ;;9002226.02101,"1084,63629139802 ",.02)
 ;;63629139802
 ;;9002226.02101,"1084,63629139803 ",.01)
 ;;63629139803
 ;;9002226.02101,"1084,63629139803 ",.02)
 ;;63629139803
 ;;9002226.02101,"1084,63629279301 ",.01)
 ;;63629279301
 ;;9002226.02101,"1084,63629279301 ",.02)
 ;;63629279301
 ;;9002226.02101,"1084,63629279302 ",.01)
 ;;63629279302
 ;;9002226.02101,"1084,63629279302 ",.02)
 ;;63629279302
 ;;9002226.02101,"1084,63629279303 ",.01)
 ;;63629279303
 ;;9002226.02101,"1084,63629279303 ",.02)
 ;;63629279303
 ;;9002226.02101,"1084,63629279304 ",.01)
 ;;63629279304
 ;;9002226.02101,"1084,63629279304 ",.02)
 ;;63629279304
 ;;9002226.02101,"1084,63629279305 ",.01)
 ;;63629279305
 ;;9002226.02101,"1084,63629279305 ",.02)
 ;;63629279305
 ;;9002226.02101,"1084,63629288301 ",.01)
 ;;63629288301
 ;;9002226.02101,"1084,63629288301 ",.02)
 ;;63629288301
 ;;9002226.02101,"1084,63629288302 ",.01)
 ;;63629288302
 ;;9002226.02101,"1084,63629288302 ",.02)
 ;;63629288302
 ;;9002226.02101,"1084,63629288303 ",.01)
 ;;63629288303
 ;;9002226.02101,"1084,63629288303 ",.02)
 ;;63629288303
 ;;9002226.02101,"1084,63629288304 ",.01)
 ;;63629288304
 ;;9002226.02101,"1084,63629288304 ",.02)
 ;;63629288304
 ;;9002226.02101,"1084,63629288305 ",.01)
 ;;63629288305
 ;;9002226.02101,"1084,63629288305 ",.02)
 ;;63629288305
 ;;9002226.02101,"1084,63629290701 ",.01)
 ;;63629290701
 ;;9002226.02101,"1084,63629290701 ",.02)
 ;;63629290701
 ;;9002226.02101,"1084,63629290702 ",.01)
 ;;63629290702
 ;;9002226.02101,"1084,63629290702 ",.02)
 ;;63629290702
 ;;9002226.02101,"1084,63629304301 ",.01)
 ;;63629304301
 ;;9002226.02101,"1084,63629304301 ",.02)
 ;;63629304301
 ;;9002226.02101,"1084,63629304302 ",.01)
 ;;63629304302
 ;;9002226.02101,"1084,63629304302 ",.02)
 ;;63629304302
 ;;9002226.02101,"1084,63629315801 ",.01)
 ;;63629315801
 ;;9002226.02101,"1084,63629315801 ",.02)
 ;;63629315801
 ;;9002226.02101,"1084,63629315802 ",.01)
 ;;63629315802
 ;;9002226.02101,"1084,63629315802 ",.02)
 ;;63629315802
 ;;9002226.02101,"1084,63629315803 ",.01)
 ;;63629315803
 ;;9002226.02101,"1084,63629315803 ",.02)
 ;;63629315803
 ;;9002226.02101,"1084,63629399801 ",.01)
 ;;63629399801
 ;;9002226.02101,"1084,63629399801 ",.02)
 ;;63629399801
 ;;9002226.02101,"1084,63739011601 ",.01)
 ;;63739011601
 ;;9002226.02101,"1084,63739011601 ",.02)
 ;;63739011601
 ;;9002226.02101,"1084,63739011603 ",.01)
 ;;63739011603
 ;;9002226.02101,"1084,63739011603 ",.02)
 ;;63739011603
 ;;9002226.02101,"1084,63739011610 ",.01)
 ;;63739011610
 ;;9002226.02101,"1084,63739011610 ",.02)
 ;;63739011610
 ;;9002226.02101,"1084,63739011710 ",.01)
 ;;63739011710
 ;;9002226.02101,"1084,63739011710 ",.02)
 ;;63739011710
 ;;9002226.02101,"1084,63739011810 ",.01)
 ;;63739011810
 ;;9002226.02101,"1084,63739011810 ",.02)
 ;;63739011810
 ;;9002226.02101,"1084,63739011910 ",.01)
 ;;63739011910
 ;;9002226.02101,"1084,63739011910 ",.02)
 ;;63739011910
 ;;9002226.02101,"1084,63739029910 ",.01)
 ;;63739029910
 ;;9002226.02101,"1084,63739029910 ",.02)
 ;;63739029910
 ;;9002226.02101,"1084,63739030010 ",.01)
 ;;63739030010
 ;;9002226.02101,"1084,63739030010 ",.02)
 ;;63739030010
 ;;9002226.02101,"1084,63739030110 ",.01)
 ;;63739030110
 ;;9002226.02101,"1084,63739030110 ",.02)
 ;;63739030110
 ;;9002226.02101,"1084,63874031601 ",.01)
 ;;63874031601
 ;;9002226.02101,"1084,63874031601 ",.02)
 ;;63874031601
 ;;9002226.02101,"1084,63874031602 ",.01)
 ;;63874031602
 ;;9002226.02101,"1084,63874031602 ",.02)
 ;;63874031602
 ;;9002226.02101,"1084,63874031604 ",.01)
 ;;63874031604
 ;;9002226.02101,"1084,63874031604 ",.02)
 ;;63874031604
 ;;9002226.02101,"1084,63874031605 ",.01)
 ;;63874031605
 ;;9002226.02101,"1084,63874031605 ",.02)
 ;;63874031605
 ;;9002226.02101,"1084,63874031610 ",.01)
 ;;63874031610
 ;;9002226.02101,"1084,63874031610 ",.02)
 ;;63874031610
 ;;9002226.02101,"1084,63874031612 ",.01)
 ;;63874031612
 ;;9002226.02101,"1084,63874031612 ",.02)
 ;;63874031612
 ;;9002226.02101,"1084,63874031614 ",.01)
 ;;63874031614
 ;;9002226.02101,"1084,63874031614 ",.02)
 ;;63874031614
 ;;9002226.02101,"1084,63874031615 ",.01)
 ;;63874031615
 ;;9002226.02101,"1084,63874031615 ",.02)
 ;;63874031615
 ;;9002226.02101,"1084,63874031620 ",.01)
 ;;63874031620
 ;;9002226.02101,"1084,63874031620 ",.02)
 ;;63874031620
 ;;9002226.02101,"1084,63874031621 ",.01)
 ;;63874031621
 ;;9002226.02101,"1084,63874031621 ",.02)
 ;;63874031621
 ;;9002226.02101,"1084,63874031624 ",.01)
 ;;63874031624
 ;;9002226.02101,"1084,63874031624 ",.02)
 ;;63874031624
 ;;9002226.02101,"1084,63874031628 ",.01)
 ;;63874031628
 ;;9002226.02101,"1084,63874031628 ",.02)
 ;;63874031628
 ;;9002226.02101,"1084,63874031630 ",.01)
 ;;63874031630
 ;;9002226.02101,"1084,63874031630 ",.02)
 ;;63874031630
 ;;9002226.02101,"1084,63874031650 ",.01)
 ;;63874031650
 ;;9002226.02101,"1084,63874031650 ",.02)
 ;;63874031650
 ;;9002226.02101,"1084,63874031660 ",.01)
 ;;63874031660
 ;;9002226.02101,"1084,63874031660 ",.02)
 ;;63874031660
 ;;9002226.02101,"1084,63874031681 ",.01)
 ;;63874031681
 ;;9002226.02101,"1084,63874031681 ",.02)
 ;;63874031681
 ;;9002226.02101,"1084,63874031690 ",.01)
 ;;63874031690
 ;;9002226.02101,"1084,63874031690 ",.02)
 ;;63874031690
 ;;9002226.02101,"1084,63874031701 ",.01)
 ;;63874031701
 ;;9002226.02101,"1084,63874031701 ",.02)
 ;;63874031701
 ;;9002226.02101,"1084,63874031702 ",.01)
 ;;63874031702
 ;;9002226.02101,"1084,63874031702 ",.02)
 ;;63874031702
 ;;9002226.02101,"1084,63874031704 ",.01)
 ;;63874031704
 ;;9002226.02101,"1084,63874031704 ",.02)
 ;;63874031704
 ;;9002226.02101,"1084,63874031710 ",.01)
 ;;63874031710
 ;;9002226.02101,"1084,63874031710 ",.02)
 ;;63874031710
 ;;9002226.02101,"1084,63874031712 ",.01)
 ;;63874031712
 ;;9002226.02101,"1084,63874031712 ",.02)
 ;;63874031712
 ;;9002226.02101,"1084,63874031714 ",.01)
 ;;63874031714
 ;;9002226.02101,"1084,63874031714 ",.02)
 ;;63874031714
 ;;9002226.02101,"1084,63874031715 ",.01)
 ;;63874031715
 ;;9002226.02101,"1084,63874031715 ",.02)
 ;;63874031715
 ;;9002226.02101,"1084,63874031720 ",.01)
 ;;63874031720
 ;;9002226.02101,"1084,63874031720 ",.02)
 ;;63874031720
 ;;9002226.02101,"1084,63874031724 ",.01)
 ;;63874031724
 ;;9002226.02101,"1084,63874031724 ",.02)
 ;;63874031724
 ;;9002226.02101,"1084,63874031728 ",.01)
 ;;63874031728
 ;;9002226.02101,"1084,63874031728 ",.02)
 ;;63874031728
 ;;9002226.02101,"1084,63874031730 ",.01)
 ;;63874031730
 ;;9002226.02101,"1084,63874031730 ",.02)
 ;;63874031730
 ;;9002226.02101,"1084,63874031740 ",.01)
 ;;63874031740
 ;;9002226.02101,"1084,63874031740 ",.02)
 ;;63874031740
 ;;9002226.02101,"1084,63874031750 ",.01)
 ;;63874031750
 ;;9002226.02101,"1084,63874031750 ",.02)
 ;;63874031750
 ;;9002226.02101,"1084,63874031760 ",.01)
 ;;63874031760
 ;;9002226.02101,"1084,63874031760 ",.02)
 ;;63874031760
 ;;9002226.02101,"1084,63874031790 ",.01)
 ;;63874031790
 ;;9002226.02101,"1084,63874031790 ",.02)
 ;;63874031790
 ;;9002226.02101,"1084,63874043201 ",.01)
 ;;63874043201
 ;;9002226.02101,"1084,63874043201 ",.02)
 ;;63874043201
 ;;9002226.02101,"1084,63874043202 ",.01)
 ;;63874043202
 ;;9002226.02101,"1084,63874043202 ",.02)
 ;;63874043202
 ;;9002226.02101,"1084,63874043204 ",.01)
 ;;63874043204
 ;;9002226.02101,"1084,63874043204 ",.02)
 ;;63874043204
 ;;9002226.02101,"1084,63874043210 ",.01)
 ;;63874043210
 ;;9002226.02101,"1084,63874043210 ",.02)
 ;;63874043210
 ;;9002226.02101,"1084,63874043214 ",.01)
 ;;63874043214
 ;;9002226.02101,"1084,63874043214 ",.02)
 ;;63874043214
 ;;9002226.02101,"1084,63874043220 ",.01)
 ;;63874043220
 ;;9002226.02101,"1084,63874043220 ",.02)
 ;;63874043220
 ;;9002226.02101,"1084,63874043221 ",.01)
 ;;63874043221
 ;;9002226.02101,"1084,63874043221 ",.02)
 ;;63874043221
 ;;9002226.02101,"1084,63874043224 ",.01)
 ;;63874043224
 ;;9002226.02101,"1084,63874043224 ",.02)
 ;;63874043224
 ;;9002226.02101,"1084,63874043228 ",.01)
 ;;63874043228
 ;;9002226.02101,"1084,63874043228 ",.02)
 ;;63874043228
 ;;9002226.02101,"1084,63874043230 ",.01)
 ;;63874043230
 ;;9002226.02101,"1084,63874043230 ",.02)
 ;;63874043230
 ;;9002226.02101,"1084,63874043250 ",.01)
 ;;63874043250
 ;;9002226.02101,"1084,63874043250 ",.02)
 ;;63874043250
 ;;9002226.02101,"1084,63874043260 ",.01)
 ;;63874043260
 ;;9002226.02101,"1084,63874043260 ",.02)
 ;;63874043260