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

BGPM5BFH.m

Go to the documentation of this file.
BGPM5BFH ;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,55111043078 ",.02)
 ;;55111043078
 ;;9002226.02101,"1084,55111043101 ",.01)
 ;;55111043101
 ;;9002226.02101,"1084,55111043101 ",.02)
 ;;55111043101
 ;;9002226.02101,"1084,55111043105 ",.01)
 ;;55111043105
 ;;9002226.02101,"1084,55111043105 ",.02)
 ;;55111043105
 ;;9002226.02101,"1084,55111043130 ",.01)
 ;;55111043130
 ;;9002226.02101,"1084,55111043130 ",.02)
 ;;55111043130
 ;;9002226.02101,"1084,55111043160 ",.01)
 ;;55111043160
 ;;9002226.02101,"1084,55111043160 ",.02)
 ;;55111043160
 ;;9002226.02101,"1084,55111043178 ",.01)
 ;;55111043178
 ;;9002226.02101,"1084,55111043178 ",.02)
 ;;55111043178
 ;;9002226.02101,"1084,55111069501 ",.01)
 ;;55111069501
 ;;9002226.02101,"1084,55111069501 ",.02)
 ;;55111069501
 ;;9002226.02101,"1084,55111069505 ",.01)
 ;;55111069505
 ;;9002226.02101,"1084,55111069505 ",.02)
 ;;55111069505
 ;;9002226.02101,"1084,55111069510 ",.01)
 ;;55111069510
 ;;9002226.02101,"1084,55111069510 ",.02)
 ;;55111069510
 ;;9002226.02101,"1084,55111069601 ",.01)
 ;;55111069601
 ;;9002226.02101,"1084,55111069601 ",.02)
 ;;55111069601
 ;;9002226.02101,"1084,55111069605 ",.01)
 ;;55111069605
 ;;9002226.02101,"1084,55111069605 ",.02)
 ;;55111069605
 ;;9002226.02101,"1084,55111069610 ",.01)
 ;;55111069610
 ;;9002226.02101,"1084,55111069610 ",.02)
 ;;55111069610
 ;;9002226.02101,"1084,55111069701 ",.01)
 ;;55111069701
 ;;9002226.02101,"1084,55111069701 ",.02)
 ;;55111069701
 ;;9002226.02101,"1084,55111069705 ",.01)
 ;;55111069705
 ;;9002226.02101,"1084,55111069705 ",.02)
 ;;55111069705
 ;;9002226.02101,"1084,55111069710 ",.01)
 ;;55111069710
 ;;9002226.02101,"1084,55111069710 ",.02)
 ;;55111069710
 ;;9002226.02101,"1084,55154053400 ",.01)
 ;;55154053400
 ;;9002226.02101,"1084,55154053400 ",.02)
 ;;55154053400
 ;;9002226.02101,"1084,55154053404 ",.01)
 ;;55154053404
 ;;9002226.02101,"1084,55154053404 ",.02)
 ;;55154053404
 ;;9002226.02101,"1084,55154053406 ",.01)
 ;;55154053406
 ;;9002226.02101,"1084,55154053406 ",.02)
 ;;55154053406
 ;;9002226.02101,"1084,55154167509 ",.01)
 ;;55154167509
 ;;9002226.02101,"1084,55154167509 ",.02)
 ;;55154167509
 ;;9002226.02101,"1084,55154167609 ",.01)
 ;;55154167609
 ;;9002226.02101,"1084,55154167609 ",.02)
 ;;55154167609
 ;;9002226.02101,"1084,55154205800 ",.01)
 ;;55154205800
 ;;9002226.02101,"1084,55154205800 ",.02)
 ;;55154205800
 ;;9002226.02101,"1084,55154317500 ",.01)
 ;;55154317500
 ;;9002226.02101,"1084,55154317500 ",.02)
 ;;55154317500
 ;;9002226.02101,"1084,55154317504 ",.01)
 ;;55154317504
 ;;9002226.02101,"1084,55154317504 ",.02)
 ;;55154317504
 ;;9002226.02101,"1084,55154317506 ",.01)
 ;;55154317506
 ;;9002226.02101,"1084,55154317506 ",.02)
 ;;55154317506
 ;;9002226.02101,"1084,55154343709 ",.01)
 ;;55154343709
 ;;9002226.02101,"1084,55154343709 ",.02)
 ;;55154343709
 ;;9002226.02101,"1084,55154375001 ",.01)
 ;;55154375001
 ;;9002226.02101,"1084,55154375001 ",.02)
 ;;55154375001
 ;;9002226.02101,"1084,55154455609 ",.01)
 ;;55154455609
 ;;9002226.02101,"1084,55154455609 ",.02)
 ;;55154455609
 ;;9002226.02101,"1084,55154455709 ",.01)
 ;;55154455709
 ;;9002226.02101,"1084,55154455709 ",.02)
 ;;55154455709
 ;;9002226.02101,"1084,55154456103 ",.01)
 ;;55154456103
 ;;9002226.02101,"1084,55154456103 ",.02)
 ;;55154456103
 ;;9002226.02101,"1084,55154507000 ",.01)
 ;;55154507000
 ;;9002226.02101,"1084,55154507000 ",.02)
 ;;55154507000
 ;;9002226.02101,"1084,55154522400 ",.01)
 ;;55154522400
 ;;9002226.02101,"1084,55154522400 ",.02)
 ;;55154522400
 ;;9002226.02101,"1084,55154522407 ",.01)
 ;;55154522407
 ;;9002226.02101,"1084,55154522407 ",.02)
 ;;55154522407
 ;;9002226.02101,"1084,55154542209 ",.01)
 ;;55154542209
 ;;9002226.02101,"1084,55154542209 ",.02)
 ;;55154542209
 ;;9002226.02101,"1084,55154547600 ",.01)
 ;;55154547600
 ;;9002226.02101,"1084,55154547600 ",.02)
 ;;55154547600
 ;;9002226.02101,"1084,55154547607 ",.01)
 ;;55154547607
 ;;9002226.02101,"1084,55154547607 ",.02)
 ;;55154547607
 ;;9002226.02101,"1084,55154548700 ",.01)
 ;;55154548700
 ;;9002226.02101,"1084,55154548700 ",.02)
 ;;55154548700
 ;;9002226.02101,"1084,55154548707 ",.01)
 ;;55154548707
 ;;9002226.02101,"1084,55154548707 ",.02)
 ;;55154548707
 ;;9002226.02101,"1084,55154558800 ",.01)
 ;;55154558800
 ;;9002226.02101,"1084,55154558800 ",.02)
 ;;55154558800
 ;;9002226.02101,"1084,55154566200 ",.01)
 ;;55154566200
 ;;9002226.02101,"1084,55154566200 ",.02)
 ;;55154566200
 ;;9002226.02101,"1084,55154585003 ",.01)
 ;;55154585003
 ;;9002226.02101,"1084,55154585003 ",.02)
 ;;55154585003
 ;;9002226.02101,"1084,55154599204 ",.01)
 ;;55154599204
 ;;9002226.02101,"1084,55154599204 ",.02)
 ;;55154599204
 ;;9002226.02101,"1084,55154599206 ",.01)
 ;;55154599206
 ;;9002226.02101,"1084,55154599206 ",.02)
 ;;55154599206
 ;;9002226.02101,"1084,55154619000 ",.01)
 ;;55154619000
 ;;9002226.02101,"1084,55154619000 ",.02)
 ;;55154619000
 ;;9002226.02101,"1084,55154619600 ",.01)
 ;;55154619600
 ;;9002226.02101,"1084,55154619600 ",.02)
 ;;55154619600
 ;;9002226.02101,"1084,55154622408 ",.01)
 ;;55154622408
 ;;9002226.02101,"1084,55154622408 ",.02)
 ;;55154622408
 ;;9002226.02101,"1084,55154622409 ",.01)
 ;;55154622409
 ;;9002226.02101,"1084,55154622409 ",.02)
 ;;55154622409
 ;;9002226.02101,"1084,55154623809 ",.01)
 ;;55154623809
 ;;9002226.02101,"1084,55154623809 ",.02)
 ;;55154623809
 ;;9002226.02101,"1084,55154665703 ",.01)
 ;;55154665703
 ;;9002226.02101,"1084,55154665703 ",.02)
 ;;55154665703
 ;;9002226.02101,"1084,55154827009 ",.01)
 ;;55154827009
 ;;9002226.02101,"1084,55154827009 ",.02)
 ;;55154827009
 ;;9002226.02101,"1084,55160012201 ",.01)
 ;;55160012201
 ;;9002226.02101,"1084,55160012201 ",.02)
 ;;55160012201
 ;;9002226.02101,"1084,55160012205 ",.01)
 ;;55160012205
 ;;9002226.02101,"1084,55160012205 ",.02)
 ;;55160012205
 ;;9002226.02101,"1084,55160012301 ",.01)
 ;;55160012301
 ;;9002226.02101,"1084,55160012301 ",.02)
 ;;55160012301
 ;;9002226.02101,"1084,55160012305 ",.01)
 ;;55160012305
 ;;9002226.02101,"1084,55160012305 ",.02)
 ;;55160012305
 ;;9002226.02101,"1084,55160014301 ",.01)
 ;;55160014301
 ;;9002226.02101,"1084,55160014301 ",.02)
 ;;55160014301
 ;;9002226.02101,"1084,55160014305 ",.01)
 ;;55160014305
 ;;9002226.02101,"1084,55160014305 ",.02)
 ;;55160014305
 ;;9002226.02101,"1084,55160014401 ",.01)
 ;;55160014401
 ;;9002226.02101,"1084,55160014401 ",.02)
 ;;55160014401
 ;;9002226.02101,"1084,55160014501 ",.01)
 ;;55160014501
 ;;9002226.02101,"1084,55160014501 ",.02)
 ;;55160014501
 ;;9002226.02101,"1084,55288124301 ",.01)
 ;;55288124301
 ;;9002226.02101,"1084,55288124301 ",.02)
 ;;55288124301
 ;;9002226.02101,"1084,55288125201 ",.01)
 ;;55288125201
 ;;9002226.02101,"1084,55288125201 ",.02)
 ;;55288125201
 ;;9002226.02101,"1084,55289006690 ",.01)
 ;;55289006690
 ;;9002226.02101,"1084,55289006690 ",.02)
 ;;55289006690
 ;;9002226.02101,"1084,55289006697 ",.01)
 ;;55289006697
 ;;9002226.02101,"1084,55289006697 ",.02)
 ;;55289006697
 ;;9002226.02101,"1084,55289017142 ",.01)
 ;;55289017142
 ;;9002226.02101,"1084,55289017142 ",.02)
 ;;55289017142
 ;;9002226.02101,"1084,55289018797 ",.01)
 ;;55289018797
 ;;9002226.02101,"1084,55289018797 ",.02)
 ;;55289018797
 ;;9002226.02101,"1084,55289026590 ",.01)
 ;;55289026590
 ;;9002226.02101,"1084,55289026590 ",.02)
 ;;55289026590
 ;;9002226.02101,"1084,55289028130 ",.01)
 ;;55289028130
 ;;9002226.02101,"1084,55289028130 ",.02)
 ;;55289028130
 ;;9002226.02101,"1084,55289028160 ",.01)
 ;;55289028160
 ;;9002226.02101,"1084,55289028160 ",.02)
 ;;55289028160
 ;;9002226.02101,"1084,55289028186 ",.01)
 ;;55289028186
 ;;9002226.02101,"1084,55289028186 ",.02)
 ;;55289028186
 ;;9002226.02101,"1084,55289028190 ",.01)
 ;;55289028190
 ;;9002226.02101,"1084,55289028190 ",.02)
 ;;55289028190
 ;;9002226.02101,"1084,55289030193 ",.01)
 ;;55289030193
 ;;9002226.02101,"1084,55289030193 ",.02)
 ;;55289030193
 ;;9002226.02101,"1084,55289038430 ",.01)
 ;;55289038430
 ;;9002226.02101,"1084,55289038430 ",.02)
 ;;55289038430
 ;;9002226.02101,"1084,55289038460 ",.01)
 ;;55289038460
 ;;9002226.02101,"1084,55289038460 ",.02)
 ;;55289038460
 ;;9002226.02101,"1084,55289038486 ",.01)
 ;;55289038486
 ;;9002226.02101,"1084,55289038486 ",.02)
 ;;55289038486
 ;;9002226.02101,"1084,55289038490 ",.01)
 ;;55289038490
 ;;9002226.02101,"1084,55289038490 ",.02)
 ;;55289038490
 ;;9002226.02101,"1084,55289038493 ",.01)
 ;;55289038493
 ;;9002226.02101,"1084,55289038493 ",.02)
 ;;55289038493
 ;;9002226.02101,"1084,55289038494 ",.01)
 ;;55289038494
 ;;9002226.02101,"1084,55289038494 ",.02)
 ;;55289038494
 ;;9002226.02101,"1084,55289060630 ",.01)
 ;;55289060630
 ;;9002226.02101,"1084,55289060630 ",.02)
 ;;55289060630
 ;;9002226.02101,"1084,55289060690 ",.01)
 ;;55289060690
 ;;9002226.02101,"1084,55289060690 ",.02)
 ;;55289060690
 ;;9002226.02101,"1084,55289061514 ",.01)
 ;;55289061514
 ;;9002226.02101,"1084,55289061514 ",.02)
 ;;55289061514
 ;;9002226.02101,"1084,55289061530 ",.01)
 ;;55289061530
 ;;9002226.02101,"1084,55289061530 ",.02)
 ;;55289061530
 ;;9002226.02101,"1084,55289061560 ",.01)
 ;;55289061560
 ;;9002226.02101,"1084,55289061560 ",.02)
 ;;55289061560
 ;;9002226.02101,"1084,55289061586 ",.01)
 ;;55289061586
 ;;9002226.02101,"1084,55289061586 ",.02)
 ;;55289061586
 ;;9002226.02101,"1084,55289061590 ",.01)
 ;;55289061590
 ;;9002226.02101,"1084,55289061590 ",.02)
 ;;55289061590
 ;;9002226.02101,"1084,55289061593 ",.01)
 ;;55289061593
 ;;9002226.02101,"1084,55289061593 ",.02)
 ;;55289061593
 ;;9002226.02101,"1084,55289061594 ",.01)
 ;;55289061594
 ;;9002226.02101,"1084,55289061594 ",.02)
 ;;55289061594
 ;;9002226.02101,"1084,55289061598 ",.01)
 ;;55289061598
 ;;9002226.02101,"1084,55289061598 ",.02)
 ;;55289061598
 ;;9002226.02101,"1084,55289077907 ",.01)
 ;;55289077907
 ;;9002226.02101,"1084,55289077907 ",.02)
 ;;55289077907
 ;;9002226.02101,"1084,55289080614 ",.01)
 ;;55289080614
 ;;9002226.02101,"1084,55289080614 ",.02)
 ;;55289080614
 ;;9002226.02101,"1084,55289080630 ",.01)
 ;;55289080630
 ;;9002226.02101,"1084,55289080630 ",.02)
 ;;55289080630
 ;;9002226.02101,"1084,55289080660 ",.01)
 ;;55289080660
 ;;9002226.02101,"1084,55289080660 ",.02)
 ;;55289080660
 ;;9002226.02101,"1084,55289080686 ",.01)
 ;;55289080686
 ;;9002226.02101,"1084,55289080686 ",.02)
 ;;55289080686
 ;;9002226.02101,"1084,55289080690 ",.01)
 ;;55289080690
 ;;9002226.02101,"1084,55289080690 ",.02)
 ;;55289080690
 ;;9002226.02101,"1084,55289089201 ",.01)
 ;;55289089201
 ;;9002226.02101,"1084,55289089201 ",.02)
 ;;55289089201
 ;;9002226.02101,"1084,55289089214 ",.01)
 ;;55289089214
 ;;9002226.02101,"1084,55289089214 ",.02)
 ;;55289089214
 ;;9002226.02101,"1084,55289089215 ",.01)
 ;;55289089215
 ;;9002226.02101,"1084,55289089215 ",.02)
 ;;55289089215
 ;;9002226.02101,"1084,55289089230 ",.01)
 ;;55289089230
 ;;9002226.02101,"1084,55289089230 ",.02)
 ;;55289089230
 ;;9002226.02101,"1084,55289089260 ",.01)
 ;;55289089260
 ;;9002226.02101,"1084,55289089260 ",.02)
 ;;55289089260
 ;;9002226.02101,"1084,55289089286 ",.01)
 ;;55289089286
 ;;9002226.02101,"1084,55289089286 ",.02)
 ;;55289089286
 ;;9002226.02101,"1084,55289089290 ",.01)
 ;;55289089290
 ;;9002226.02101,"1084,55289089290 ",.02)
 ;;55289089290
 ;;9002226.02101,"1084,55289089293 ",.01)
 ;;55289089293
 ;;9002226.02101,"1084,55289089293 ",.02)
 ;;55289089293
 ;;9002226.02101,"1084,55289089297 ",.01)
 ;;55289089297
 ;;9002226.02101,"1084,55289089297 ",.02)
 ;;55289089297
 ;;9002226.02101,"1084,55289089298 ",.01)
 ;;55289089298
 ;;9002226.02101,"1084,55289089298 ",.02)
 ;;55289089298