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

BGPM5AXC.m

Go to the documentation of this file.
BGPM5AXC ;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,68330000410 ",.02)
 ;;68330000410
 ;;9002226.02101,"1033,68330000510 ",.01)
 ;;68330000510
 ;;9002226.02101,"1033,68330000510 ",.02)
 ;;68330000510
 ;;9002226.02101,"1033,68330000610 ",.01)
 ;;68330000610
 ;;9002226.02101,"1033,68330000610 ",.02)
 ;;68330000610
 ;;9002226.02101,"1033,68330001410 ",.01)
 ;;68330001410
 ;;9002226.02101,"1033,68330001410 ",.02)
 ;;68330001410
 ;;9002226.02101,"1033,68330001425 ",.01)
 ;;68330001425
 ;;9002226.02101,"1033,68330001425 ",.02)
 ;;68330001425
 ;;9002226.02101,"1033,68330001525 ",.01)
 ;;68330001525
 ;;9002226.02101,"1033,68330001525 ",.02)
 ;;68330001525
 ;;9002226.02101,"1033,68330001610 ",.01)
 ;;68330001610
 ;;9002226.02101,"1033,68330001610 ",.02)
 ;;68330001610
 ;;9002226.02101,"1033,68330001710 ",.01)
 ;;68330001710
 ;;9002226.02101,"1033,68330001710 ",.02)
 ;;68330001710
 ;;9002226.02101,"1033,68330002610 ",.01)
 ;;68330002610
 ;;9002226.02101,"1033,68330002610 ",.02)
 ;;68330002610
 ;;9002226.02101,"1033,68387011730 ",.01)
 ;;68387011730
 ;;9002226.02101,"1033,68387011730 ",.02)
 ;;68387011730
 ;;9002226.02101,"1033,68387019020 ",.01)
 ;;68387019020
 ;;9002226.02101,"1033,68387019020 ",.02)
 ;;68387019020
 ;;9002226.02101,"1033,68387019021 ",.01)
 ;;68387019021
 ;;9002226.02101,"1033,68387019021 ",.02)
 ;;68387019021
 ;;9002226.02101,"1033,68387019030 ",.01)
 ;;68387019030
 ;;9002226.02101,"1033,68387019030 ",.02)
 ;;68387019030
 ;;9002226.02101,"1033,68387019040 ",.01)
 ;;68387019040
 ;;9002226.02101,"1033,68387019040 ",.02)
 ;;68387019040
 ;;9002226.02101,"1033,68387038020 ",.01)
 ;;68387038020
 ;;9002226.02101,"1033,68387038020 ",.02)
 ;;68387038020
 ;;9002226.02101,"1033,68387038120 ",.01)
 ;;68387038120
 ;;9002226.02101,"1033,68387038120 ",.02)
 ;;68387038120
 ;;9002226.02101,"1033,68387038510 ",.01)
 ;;68387038510
 ;;9002226.02101,"1033,68387038510 ",.02)
 ;;68387038510
 ;;9002226.02101,"1033,68387038514 ",.01)
 ;;68387038514
 ;;9002226.02101,"1033,68387038514 ",.02)
 ;;68387038514
 ;;9002226.02101,"1033,68387038520 ",.01)
 ;;68387038520
 ;;9002226.02101,"1033,68387038520 ",.02)
 ;;68387038520
 ;;9002226.02101,"1033,68387038530 ",.01)
 ;;68387038530
 ;;9002226.02101,"1033,68387038530 ",.02)
 ;;68387038530
 ;;9002226.02101,"1033,68387038560 ",.01)
 ;;68387038560
 ;;9002226.02101,"1033,68387038560 ",.02)
 ;;68387038560
 ;;9002226.02101,"1033,68387039020 ",.01)
 ;;68387039020
 ;;9002226.02101,"1033,68387039020 ",.02)
 ;;68387039020
 ;;9002226.02101,"1033,68387039028 ",.01)
 ;;68387039028
 ;;9002226.02101,"1033,68387039028 ",.02)
 ;;68387039028
 ;;9002226.02101,"1033,68387039042 ",.01)
 ;;68387039042
 ;;9002226.02101,"1033,68387039042 ",.02)
 ;;68387039042
 ;;9002226.02101,"1033,68387042828 ",.01)
 ;;68387042828
 ;;9002226.02101,"1033,68387042828 ",.02)
 ;;68387042828
 ;;9002226.02101,"1033,68387043030 ",.01)
 ;;68387043030
 ;;9002226.02101,"1033,68387043030 ",.02)
 ;;68387043030
 ;;9002226.02101,"1033,68387043040 ",.01)
 ;;68387043040
 ;;9002226.02101,"1033,68387043040 ",.02)
 ;;68387043040
 ;;9002226.02101,"1033,68387047014 ",.01)
 ;;68387047014
 ;;9002226.02101,"1033,68387047014 ",.02)
 ;;68387047014
 ;;9002226.02101,"1033,68387047020 ",.01)
 ;;68387047020
 ;;9002226.02101,"1033,68387047020 ",.02)
 ;;68387047020
 ;;9002226.02101,"1033,68387053401 ",.01)
 ;;68387053401
 ;;9002226.02101,"1033,68387053401 ",.02)
 ;;68387053401
 ;;9002226.02101,"1033,68387053510 ",.01)
 ;;68387053510
 ;;9002226.02101,"1033,68387053510 ",.02)
 ;;68387053510
 ;;9002226.02101,"1033,68387053515 ",.01)
 ;;68387053515
 ;;9002226.02101,"1033,68387053515 ",.02)
 ;;68387053515
 ;;9002226.02101,"1033,68387053520 ",.01)
 ;;68387053520
 ;;9002226.02101,"1033,68387053520 ",.02)
 ;;68387053520
 ;;9002226.02101,"1033,68387058015 ",.01)
 ;;68387058015
 ;;9002226.02101,"1033,68387058015 ",.02)
 ;;68387058015
 ;;9002226.02101,"1033,68387058530 ",.01)
 ;;68387058530
 ;;9002226.02101,"1033,68387058530 ",.02)
 ;;68387058530
 ;;9002226.02101,"1033,68462033901 ",.01)
 ;;68462033901
 ;;9002226.02101,"1033,68462033901 ",.02)
 ;;68462033901
 ;;9002226.02101,"1033,68462033905 ",.01)
 ;;68462033905
 ;;9002226.02101,"1033,68462033905 ",.02)
 ;;68462033905
 ;;9002226.02101,"1033,68462034001 ",.01)
 ;;68462034001
 ;;9002226.02101,"1033,68462034001 ",.02)
 ;;68462034001
 ;;9002226.02101,"1033,68462034005 ",.01)
 ;;68462034005
 ;;9002226.02101,"1033,68462034005 ",.02)
 ;;68462034005
 ;;9002226.02101,"1033,68533001347 ",.01)
 ;;68533001347
 ;;9002226.02101,"1033,68533001347 ",.02)
 ;;68533001347
 ;;9002226.02101,"1033,68533001400 ",.01)
 ;;68533001400
 ;;9002226.02101,"1033,68533001400 ",.02)
 ;;68533001400
 ;;9002226.02101,"1033,68533001412 ",.01)
 ;;68533001412
 ;;9002226.02101,"1033,68533001412 ",.02)
 ;;68533001412
 ;;9002226.02101,"1033,68533001425 ",.01)
 ;;68533001425
 ;;9002226.02101,"1033,68533001425 ",.02)
 ;;68533001425
 ;;9002226.02101,"1033,68533001440 ",.01)
 ;;68533001440
 ;;9002226.02101,"1033,68533001440 ",.02)
 ;;68533001440
 ;;9002226.02101,"1033,68533001500 ",.01)
 ;;68533001500
 ;;9002226.02101,"1033,68533001500 ",.02)
 ;;68533001500
 ;;9002226.02101,"1033,68533001512 ",.01)
 ;;68533001512
 ;;9002226.02101,"1033,68533001512 ",.02)
 ;;68533001512
 ;;9002226.02101,"1033,68533001540 ",.01)
 ;;68533001540
 ;;9002226.02101,"1033,68533001540 ",.02)
 ;;68533001540
 ;;9002226.02101,"1033,68533001544 ",.01)
 ;;68533001544
 ;;9002226.02101,"1033,68533001544 ",.02)
 ;;68533001544
 ;;9002226.02101,"1033,68533001600 ",.01)
 ;;68533001600
 ;;9002226.02101,"1033,68533001600 ",.02)
 ;;68533001600
 ;;9002226.02101,"1033,68533001612 ",.01)
 ;;68533001612
 ;;9002226.02101,"1033,68533001612 ",.02)
 ;;68533001612
 ;;9002226.02101,"1033,68533001640 ",.01)
 ;;68533001640
 ;;9002226.02101,"1033,68533001640 ",.02)
 ;;68533001640
 ;;9002226.02101,"1033,68533001643 ",.01)
 ;;68533001643
 ;;9002226.02101,"1033,68533001643 ",.02)
 ;;68533001643
 ;;9002226.02101,"1033,68533051605 ",.01)
 ;;68533051605
 ;;9002226.02101,"1033,68533051605 ",.02)
 ;;68533051605
 ;;9002226.02101,"1033,68562042001 ",.01)
 ;;68562042001
 ;;9002226.02101,"1033,68562042001 ",.02)
 ;;68562042001
 ;;9002226.02101,"1033,68562042005 ",.01)
 ;;68562042005
 ;;9002226.02101,"1033,68562042005 ",.02)
 ;;68562042005
 ;;9002226.02101,"1033,68645002010 ",.01)
 ;;68645002010
 ;;9002226.02101,"1033,68645002010 ",.02)
 ;;68645002010
 ;;9002226.02101,"1033,68645002020 ",.01)
 ;;68645002020
 ;;9002226.02101,"1033,68645002020 ",.02)
 ;;68645002020
 ;;9002226.02101,"1033,68645002110 ",.01)
 ;;68645002110
 ;;9002226.02101,"1033,68645002110 ",.02)
 ;;68645002110
 ;;9002226.02101,"1033,68645003020 ",.01)
 ;;68645003020
 ;;9002226.02101,"1033,68645003020 ",.02)
 ;;68645003020
 ;;9002226.02101,"1033,68774012060 ",.01)
 ;;68774012060
 ;;9002226.02101,"1033,68774012060 ",.02)
 ;;68774012060
 ;;9002226.02101,"1033,68774012260 ",.01)
 ;;68774012260
 ;;9002226.02101,"1033,68774012260 ",.02)
 ;;68774012260
 ;;9002226.02101,"1033,68774012420 ",.01)
 ;;68774012420
 ;;9002226.02101,"1033,68774012420 ",.02)
 ;;68774012420
 ;;9002226.02101,"1033,68774012460 ",.01)
 ;;68774012460
 ;;9002226.02101,"1033,68774012460 ",.02)
 ;;68774012460
 ;;9002226.02101,"1033,68774012520 ",.01)
 ;;68774012520
 ;;9002226.02101,"1033,68774012520 ",.02)
 ;;68774012520
 ;;9002226.02101,"1033,68774030229 ",.01)
 ;;68774030229
 ;;9002226.02101,"1033,68774030229 ",.02)
 ;;68774030229
 ;;9002226.02101,"1033,68774030235 ",.01)
 ;;68774030235
 ;;9002226.02101,"1033,68774030235 ",.02)
 ;;68774030235
 ;;9002226.02101,"1033,68774030329 ",.01)
 ;;68774030329
 ;;9002226.02101,"1033,68774030329 ",.02)
 ;;68774030329
 ;;9002226.02101,"1033,68774030335 ",.01)
 ;;68774030335
 ;;9002226.02101,"1033,68774030335 ",.02)
 ;;68774030335
 ;;9002226.02101,"1033,68785000101 ",.01)
 ;;68785000101
 ;;9002226.02101,"1033,68785000101 ",.02)
 ;;68785000101
 ;;9002226.02101,"1033,68785000201 ",.01)
 ;;68785000201
 ;;9002226.02101,"1033,68785000201 ",.02)
 ;;68785000201
 ;;9002226.02101,"1033,68788001002 ",.01)
 ;;68788001002
 ;;9002226.02101,"1033,68788001002 ",.02)
 ;;68788001002
 ;;9002226.02101,"1033,68788001003 ",.01)
 ;;68788001003
 ;;9002226.02101,"1033,68788001003 ",.02)
 ;;68788001003
 ;;9002226.02101,"1033,68788001004 ",.01)
 ;;68788001004
 ;;9002226.02101,"1033,68788001004 ",.02)
 ;;68788001004
 ;;9002226.02101,"1033,68788001102 ",.01)
 ;;68788001102
 ;;9002226.02101,"1033,68788001102 ",.02)
 ;;68788001102
 ;;9002226.02101,"1033,68788001103 ",.01)
 ;;68788001103
 ;;9002226.02101,"1033,68788001103 ",.02)
 ;;68788001103
 ;;9002226.02101,"1033,68788001104 ",.01)
 ;;68788001104
 ;;9002226.02101,"1033,68788001104 ",.02)
 ;;68788001104
 ;;9002226.02101,"1033,68788001106 ",.01)
 ;;68788001106
 ;;9002226.02101,"1033,68788001106 ",.02)
 ;;68788001106
 ;;9002226.02101,"1033,68788004701 ",.01)
 ;;68788004701
 ;;9002226.02101,"1033,68788004701 ",.02)
 ;;68788004701
 ;;9002226.02101,"1033,68788008303 ",.01)
 ;;68788008303
 ;;9002226.02101,"1033,68788008303 ",.02)
 ;;68788008303
 ;;9002226.02101,"1033,68788008901 ",.01)
 ;;68788008901
 ;;9002226.02101,"1033,68788008901 ",.02)
 ;;68788008901
 ;;9002226.02101,"1033,68788008902 ",.01)
 ;;68788008902
 ;;9002226.02101,"1033,68788008902 ",.02)
 ;;68788008902
 ;;9002226.02101,"1033,68788008903 ",.01)
 ;;68788008903
 ;;9002226.02101,"1033,68788008903 ",.02)
 ;;68788008903
 ;;9002226.02101,"1033,68788010103 ",.01)
 ;;68788010103
 ;;9002226.02101,"1033,68788010103 ",.02)
 ;;68788010103
 ;;9002226.02101,"1033,68788010402 ",.01)
 ;;68788010402
 ;;9002226.02101,"1033,68788010402 ",.02)
 ;;68788010402
 ;;9002226.02101,"1033,68788010403 ",.01)
 ;;68788010403
 ;;9002226.02101,"1033,68788010403 ",.02)
 ;;68788010403
 ;;9002226.02101,"1033,68788010404 ",.01)
 ;;68788010404
 ;;9002226.02101,"1033,68788010404 ",.02)
 ;;68788010404
 ;;9002226.02101,"1033,68788012702 ",.01)
 ;;68788012702
 ;;9002226.02101,"1033,68788012702 ",.02)
 ;;68788012702
 ;;9002226.02101,"1033,68788020102 ",.01)
 ;;68788020102
 ;;9002226.02101,"1033,68788020102 ",.02)
 ;;68788020102
 ;;9002226.02101,"1033,68788020300 ",.01)
 ;;68788020300
 ;;9002226.02101,"1033,68788020300 ",.02)
 ;;68788020300
 ;;9002226.02101,"1033,68788030600 ",.01)
 ;;68788030600
 ;;9002226.02101,"1033,68788030600 ",.02)
 ;;68788030600
 ;;9002226.02101,"1033,68788030700 ",.01)
 ;;68788030700
 ;;9002226.02101,"1033,68788030700 ",.02)
 ;;68788030700
 ;;9002226.02101,"1033,68788031706 ",.01)
 ;;68788031706
 ;;9002226.02101,"1033,68788031706 ",.02)
 ;;68788031706
 ;;9002226.02101,"1033,68788031806 ",.01)
 ;;68788031806
 ;;9002226.02101,"1033,68788031806 ",.02)
 ;;68788031806
 ;;9002226.02101,"1033,68788050202 ",.01)
 ;;68788050202
 ;;9002226.02101,"1033,68788050202 ",.02)
 ;;68788050202
 ;;9002226.02101,"1033,68788050902 ",.01)
 ;;68788050902
 ;;9002226.02101,"1033,68788050902 ",.02)
 ;;68788050902
 ;;9002226.02101,"1033,68788051500 ",.01)
 ;;68788051500
 ;;9002226.02101,"1033,68788051500 ",.02)
 ;;68788051500
 ;;9002226.02101,"1033,68788051503 ",.01)
 ;;68788051503
 ;;9002226.02101,"1033,68788051503 ",.02)
 ;;68788051503
 ;;9002226.02101,"1033,68788051504 ",.01)
 ;;68788051504
 ;;9002226.02101,"1033,68788051504 ",.02)
 ;;68788051504
 ;;9002226.02101,"1033,68788051506 ",.01)
 ;;68788051506
 ;;9002226.02101,"1033,68788051506 ",.02)
 ;;68788051506
 ;;9002226.02101,"1033,68788051508 ",.01)
 ;;68788051508
 ;;9002226.02101,"1033,68788051508 ",.02)
 ;;68788051508
 ;;9002226.02101,"1033,68788053801 ",.01)
 ;;68788053801
 ;;9002226.02101,"1033,68788053801 ",.02)
 ;;68788053801