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