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

BGPM5AXE.m

Go to the documentation of this file.
BGPM5AXE ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,68788904603 ",.02)
 ;;68788904603
 ;;9002226.02101,"1033,68788905502 ",.01)
 ;;68788905502
 ;;9002226.02101,"1033,68788905502 ",.02)
 ;;68788905502
 ;;9002226.02101,"1033,68788906302 ",.01)
 ;;68788906302
 ;;9002226.02101,"1033,68788906302 ",.02)
 ;;68788906302
 ;;9002226.02101,"1033,68788906303 ",.01)
 ;;68788906303
 ;;9002226.02101,"1033,68788906303 ",.02)
 ;;68788906303
 ;;9002226.02101,"1033,68788906304 ",.01)
 ;;68788906304
 ;;9002226.02101,"1033,68788906304 ",.02)
 ;;68788906304
 ;;9002226.02101,"1033,68788906801 ",.01)
 ;;68788906801
 ;;9002226.02101,"1033,68788906801 ",.02)
 ;;68788906801
 ;;9002226.02101,"1033,68788906802 ",.01)
 ;;68788906802
 ;;9002226.02101,"1033,68788906802 ",.02)
 ;;68788906802
 ;;9002226.02101,"1033,68788907303 ",.01)
 ;;68788907303
 ;;9002226.02101,"1033,68788907303 ",.02)
 ;;68788907303
 ;;9002226.02101,"1033,68788907701 ",.01)
 ;;68788907701
 ;;9002226.02101,"1033,68788907701 ",.02)
 ;;68788907701
 ;;9002226.02101,"1033,68788907702 ",.01)
 ;;68788907702
 ;;9002226.02101,"1033,68788907702 ",.02)
 ;;68788907702
 ;;9002226.02101,"1033,68788908502 ",.01)
 ;;68788908502
 ;;9002226.02101,"1033,68788908502 ",.02)
 ;;68788908502
 ;;9002226.02101,"1033,68788908503 ",.01)
 ;;68788908503
 ;;9002226.02101,"1033,68788908503 ",.02)
 ;;68788908503
 ;;9002226.02101,"1033,68788908601 ",.01)
 ;;68788908601
 ;;9002226.02101,"1033,68788908601 ",.02)
 ;;68788908601
 ;;9002226.02101,"1033,68788908602 ",.01)
 ;;68788908602
 ;;9002226.02101,"1033,68788908602 ",.02)
 ;;68788908602
 ;;9002226.02101,"1033,68788908603 ",.01)
 ;;68788908603
 ;;9002226.02101,"1033,68788908603 ",.02)
 ;;68788908603
 ;;9002226.02101,"1033,68820000310 ",.01)
 ;;68820000310
 ;;9002226.02101,"1033,68820000310 ",.02)
 ;;68820000310
 ;;9002226.02101,"1033,68820000311 ",.01)
 ;;68820000311
 ;;9002226.02101,"1033,68820000311 ",.02)
 ;;68820000311
 ;;9002226.02101,"1033,68820000312 ",.01)
 ;;68820000312
 ;;9002226.02101,"1033,68820000312 ",.02)
 ;;68820000312
 ;;9002226.02101,"1033,68820000410 ",.01)
 ;;68820000410
 ;;9002226.02101,"1033,68820000410 ",.02)
 ;;68820000410
 ;;9002226.02101,"1033,68820000411 ",.01)
 ;;68820000411
 ;;9002226.02101,"1033,68820000411 ",.02)
 ;;68820000411
 ;;9002226.02101,"1033,68820000412 ",.01)
 ;;68820000412
 ;;9002226.02101,"1033,68820000412 ",.02)
 ;;68820000412
 ;;9002226.02101,"1033,68820000503 ",.01)
 ;;68820000503
 ;;9002226.02101,"1033,68820000503 ",.02)
 ;;68820000503
 ;;9002226.02101,"1033,68820000507 ",.01)
 ;;68820000507
 ;;9002226.02101,"1033,68820000507 ",.02)
 ;;68820000507
 ;;9002226.02101,"1033,68820000603 ",.01)
 ;;68820000603
 ;;9002226.02101,"1033,68820000603 ",.02)
 ;;68820000603
 ;;9002226.02101,"1033,68820000703 ",.01)
 ;;68820000703
 ;;9002226.02101,"1033,68820000703 ",.02)
 ;;68820000703
 ;;9002226.02101,"1033,68820000803 ",.01)
 ;;68820000803
 ;;9002226.02101,"1033,68820000803 ",.02)
 ;;68820000803
 ;;9002226.02101,"1033,68820000807 ",.01)
 ;;68820000807
 ;;9002226.02101,"1033,68820000807 ",.02)
 ;;68820000807
 ;;9002226.02101,"1033,68820000901 ",.01)
 ;;68820000901
 ;;9002226.02101,"1033,68820000901 ",.02)
 ;;68820000901
 ;;9002226.02101,"1033,68820000903 ",.01)
 ;;68820000903
 ;;9002226.02101,"1033,68820000903 ",.02)
 ;;68820000903
 ;;9002226.02101,"1033,68820001001 ",.01)
 ;;68820001001
 ;;9002226.02101,"1033,68820001001 ",.02)
 ;;68820001001
 ;;9002226.02101,"1033,68820001003 ",.01)
 ;;68820001003
 ;;9002226.02101,"1033,68820001003 ",.02)
 ;;68820001003
 ;;9002226.02101,"1033,68820001101 ",.01)
 ;;68820001101
 ;;9002226.02101,"1033,68820001101 ",.02)
 ;;68820001101
 ;;9002226.02101,"1033,68820001103 ",.01)
 ;;68820001103
 ;;9002226.02101,"1033,68820001103 ",.02)
 ;;68820001103
 ;;9002226.02101,"1033,68820001201 ",.01)
 ;;68820001201
 ;;9002226.02101,"1033,68820001201 ",.02)
 ;;68820001201
 ;;9002226.02101,"1033,68820001203 ",.01)
 ;;68820001203
 ;;9002226.02101,"1033,68820001203 ",.02)
 ;;68820001203
 ;;9002226.02101,"1033,68820001301 ",.01)
 ;;68820001301
 ;;9002226.02101,"1033,68820001301 ",.02)
 ;;68820001301
 ;;9002226.02101,"1033,68820001401 ",.01)
 ;;68820001401
 ;;9002226.02101,"1033,68820001401 ",.02)
 ;;68820001401
 ;;9002226.02101,"1033,68820001501 ",.01)
 ;;68820001501
 ;;9002226.02101,"1033,68820001501 ",.02)
 ;;68820001501
 ;;9002226.02101,"1033,68820001610 ",.01)
 ;;68820001610
 ;;9002226.02101,"1033,68820001610 ",.02)
 ;;68820001610
 ;;9002226.02101,"1033,68820001612 ",.01)
 ;;68820001612
 ;;9002226.02101,"1033,68820001612 ",.02)
 ;;68820001612
 ;;9002226.02101,"1033,68820001708 ",.01)
 ;;68820001708
 ;;9002226.02101,"1033,68820001708 ",.02)
 ;;68820001708
 ;;9002226.02101,"1033,68820001710 ",.01)
 ;;68820001710
 ;;9002226.02101,"1033,68820001710 ",.02)
 ;;68820001710
 ;;9002226.02101,"1033,68820001712 ",.01)
 ;;68820001712
 ;;9002226.02101,"1033,68820001712 ",.02)
 ;;68820001712
 ;;9002226.02101,"1033,68820001815 ",.01)
 ;;68820001815
 ;;9002226.02101,"1033,68820001815 ",.02)
 ;;68820001815
 ;;9002226.02101,"1033,68820001816 ",.01)
 ;;68820001816
 ;;9002226.02101,"1033,68820001816 ",.02)
 ;;68820001816
 ;;9002226.02101,"1033,68820001817 ",.01)
 ;;68820001817
 ;;9002226.02101,"1033,68820001817 ",.02)
 ;;68820001817
 ;;9002226.02101,"1033,68820001915 ",.01)
 ;;68820001915
 ;;9002226.02101,"1033,68820001915 ",.02)
 ;;68820001915
 ;;9002226.02101,"1033,68820001916 ",.01)
 ;;68820001916
 ;;9002226.02101,"1033,68820001916 ",.02)
 ;;68820001916
 ;;9002226.02101,"1033,68820001917 ",.01)
 ;;68820001917
 ;;9002226.02101,"1033,68820001917 ",.02)
 ;;68820001917
 ;;9002226.02101,"1033,68820002317 ",.01)
 ;;68820002317
 ;;9002226.02101,"1033,68820002317 ",.02)
 ;;68820002317
 ;;9002226.02101,"1033,68820002318 ",.01)
 ;;68820002318
 ;;9002226.02101,"1033,68820002318 ",.02)
 ;;68820002318
 ;;9002226.02101,"1033,68820002417 ",.01)
 ;;68820002417
 ;;9002226.02101,"1033,68820002417 ",.02)
 ;;68820002417
 ;;9002226.02101,"1033,68820002418 ",.01)
 ;;68820002418
 ;;9002226.02101,"1033,68820002418 ",.02)
 ;;68820002418
 ;;9002226.02101,"1033,68820004305 ",.01)
 ;;68820004305
 ;;9002226.02101,"1033,68820004305 ",.02)
 ;;68820004305
 ;;9002226.02101,"1033,68820004308 ",.01)
 ;;68820004308
 ;;9002226.02101,"1033,68820004308 ",.02)
 ;;68820004308
 ;;9002226.02101,"1033,68820004310 ",.01)
 ;;68820004310
 ;;9002226.02101,"1033,68820004310 ",.02)
 ;;68820004310
 ;;9002226.02101,"1033,68820004312 ",.01)
 ;;68820004312
 ;;9002226.02101,"1033,68820004312 ",.02)
 ;;68820004312
 ;;9002226.02101,"1033,68820004415 ",.01)
 ;;68820004415
 ;;9002226.02101,"1033,68820004415 ",.02)
 ;;68820004415
 ;;9002226.02101,"1033,68820004417 ",.01)
 ;;68820004417
 ;;9002226.02101,"1033,68820004417 ",.02)
 ;;68820004417
 ;;9002226.02101,"1033,68820004515 ",.01)
 ;;68820004515
 ;;9002226.02101,"1033,68820004515 ",.02)
 ;;68820004515
 ;;9002226.02101,"1033,68820004516 ",.01)
 ;;68820004516
 ;;9002226.02101,"1033,68820004516 ",.02)
 ;;68820004516
 ;;9002226.02101,"1033,68820004517 ",.01)
 ;;68820004517
 ;;9002226.02101,"1033,68820004517 ",.02)
 ;;68820004517
 ;;9002226.02101,"1033,68820004707 ",.01)
 ;;68820004707
 ;;9002226.02101,"1033,68820004707 ",.02)
 ;;68820004707
 ;;9002226.02101,"1033,68820004803 ",.01)
 ;;68820004803
 ;;9002226.02101,"1033,68820004803 ",.02)
 ;;68820004803
 ;;9002226.02101,"1033,68820006303 ",.01)
 ;;68820006303
 ;;9002226.02101,"1033,68820006303 ",.02)
 ;;68820006303
 ;;9002226.02101,"1033,68820006306 ",.01)
 ;;68820006306
 ;;9002226.02101,"1033,68820006306 ",.02)
 ;;68820006306
 ;;9002226.02101,"1033,68820006309 ",.01)
 ;;68820006309
 ;;9002226.02101,"1033,68820006309 ",.02)
 ;;68820006309
 ;;9002226.02101,"1033,68820006312 ",.01)
 ;;68820006312
 ;;9002226.02101,"1033,68820006312 ",.02)
 ;;68820006312
 ;;9002226.02101,"1033,68820006319 ",.01)
 ;;68820006319
 ;;9002226.02101,"1033,68820006319 ",.02)
 ;;68820006319
 ;;9002226.02101,"1033,68820006417 ",.01)
 ;;68820006417
 ;;9002226.02101,"1033,68820006417 ",.02)
 ;;68820006417
 ;;9002226.02101,"1033,68820006437 ",.01)
 ;;68820006437
 ;;9002226.02101,"1033,68820006437 ",.02)
 ;;68820006437
 ;;9002226.02101,"1033,68820006517 ",.01)
 ;;68820006517
 ;;9002226.02101,"1033,68820006517 ",.02)
 ;;68820006517
 ;;9002226.02101,"1033,68820006537 ",.01)
 ;;68820006537
 ;;9002226.02101,"1033,68820006537 ",.02)
 ;;68820006537
 ;;9002226.02101,"1033,68820006605 ",.01)
 ;;68820006605
 ;;9002226.02101,"1033,68820006605 ",.02)
 ;;68820006605
 ;;9002226.02101,"1033,68820006705 ",.01)
 ;;68820006705
 ;;9002226.02101,"1033,68820006705 ",.02)
 ;;68820006705
 ;;9002226.02101,"1033,68820006710 ",.01)
 ;;68820006710
 ;;9002226.02101,"1033,68820006710 ",.02)
 ;;68820006710
 ;;9002226.02101,"1033,68820008305 ",.01)
 ;;68820008305
 ;;9002226.02101,"1033,68820008305 ",.02)
 ;;68820008305
 ;;9002226.02101,"1033,68820008309 ",.01)
 ;;68820008309
 ;;9002226.02101,"1033,68820008309 ",.02)
 ;;68820008309
 ;;9002226.02101,"1033,68820008405 ",.01)
 ;;68820008405
 ;;9002226.02101,"1033,68820008405 ",.02)
 ;;68820008405
 ;;9002226.02101,"1033,68820008409 ",.01)
 ;;68820008409
 ;;9002226.02101,"1033,68820008409 ",.02)
 ;;68820008409
 ;;9002226.02101,"1033,68950000601 ",.01)
 ;;68950000601
 ;;9002226.02101,"1033,68950000601 ",.02)
 ;;68950000601
 ;;9002226.02101,"1033,68950000602 ",.01)
 ;;68950000602
 ;;9002226.02101,"1033,68950000602 ",.02)
 ;;68950000602