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

BGPM5AWX.m

Go to the documentation of this file.
BGPM5AWX ;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,66466001005 ",.01)
 ;;66466001005
 ;;9002226.02101,"1033,66466001005 ",.02)
 ;;66466001005
 ;;9002226.02101,"1033,66466001601 ",.01)
 ;;66466001601
 ;;9002226.02101,"1033,66466001601 ",.02)
 ;;66466001601
 ;;9002226.02101,"1033,66466001605 ",.01)
 ;;66466001605
 ;;9002226.02101,"1033,66466001605 ",.02)
 ;;66466001605
 ;;9002226.02101,"1033,66466007001 ",.01)
 ;;66466007001
 ;;9002226.02101,"1033,66466007001 ",.02)
 ;;66466007001
 ;;9002226.02101,"1033,66466007005 ",.01)
 ;;66466007005
 ;;9002226.02101,"1033,66466007005 ",.02)
 ;;66466007005
 ;;9002226.02101,"1033,66466008002 ",.01)
 ;;66466008002
 ;;9002226.02101,"1033,66466008002 ",.02)
 ;;66466008002
 ;;9002226.02101,"1033,66466008003 ",.01)
 ;;66466008003
 ;;9002226.02101,"1033,66466008003 ",.02)
 ;;66466008003
 ;;9002226.02101,"1033,66466008005 ",.01)
 ;;66466008005
 ;;9002226.02101,"1033,66466008005 ",.02)
 ;;66466008005
 ;;9002226.02101,"1033,66466009001 ",.01)
 ;;66466009001
 ;;9002226.02101,"1033,66466009001 ",.02)
 ;;66466009001
 ;;9002226.02101,"1033,66466009005 ",.01)
 ;;66466009005
 ;;9002226.02101,"1033,66466009005 ",.02)
 ;;66466009005
 ;;9002226.02101,"1033,66466009008 ",.01)
 ;;66466009008
 ;;9002226.02101,"1033,66466009008 ",.02)
 ;;66466009008
 ;;9002226.02101,"1033,66466009701 ",.01)
 ;;66466009701
 ;;9002226.02101,"1033,66466009701 ",.02)
 ;;66466009701
 ;;9002226.02101,"1033,66466010501 ",.01)
 ;;66466010501
 ;;9002226.02101,"1033,66466010501 ",.02)
 ;;66466010501
 ;;9002226.02101,"1033,66466010505 ",.01)
 ;;66466010505
 ;;9002226.02101,"1033,66466010505 ",.02)
 ;;66466010505
 ;;9002226.02101,"1033,66466010508 ",.01)
 ;;66466010508
 ;;9002226.02101,"1033,66466010508 ",.02)
 ;;66466010508
 ;;9002226.02101,"1033,66466011601 ",.01)
 ;;66466011601
 ;;9002226.02101,"1033,66466011601 ",.02)
 ;;66466011601
 ;;9002226.02101,"1033,66466011801 ",.01)
 ;;66466011801
 ;;9002226.02101,"1033,66466011801 ",.02)
 ;;66466011801
 ;;9002226.02101,"1033,66466011802 ",.01)
 ;;66466011802
 ;;9002226.02101,"1033,66466011802 ",.02)
 ;;66466011802
 ;;9002226.02101,"1033,66466012001 ",.01)
 ;;66466012001
 ;;9002226.02101,"1033,66466012001 ",.02)
 ;;66466012001
 ;;9002226.02101,"1033,66466012005 ",.01)
 ;;66466012005
 ;;9002226.02101,"1033,66466012005 ",.02)
 ;;66466012005
 ;;9002226.02101,"1033,66466013001 ",.01)
 ;;66466013001
 ;;9002226.02101,"1033,66466013001 ",.02)
 ;;66466013001
 ;;9002226.02101,"1033,66466013005 ",.01)
 ;;66466013005
 ;;9002226.02101,"1033,66466013005 ",.02)
 ;;66466013005
 ;;9002226.02101,"1033,66466023003 ",.01)
 ;;66466023003
 ;;9002226.02101,"1033,66466023003 ",.02)
 ;;66466023003
 ;;9002226.02101,"1033,66466028003 ",.01)
 ;;66466028003
 ;;9002226.02101,"1033,66466028003 ",.02)
 ;;66466028003
 ;;9002226.02101,"1033,66466034003 ",.01)
 ;;66466034003
 ;;9002226.02101,"1033,66466034003 ",.02)
 ;;66466034003
 ;;9002226.02101,"1033,66466034005 ",.01)
 ;;66466034005
 ;;9002226.02101,"1033,66466034005 ",.02)
 ;;66466034005
 ;;9002226.02101,"1033,66466034008 ",.01)
 ;;66466034008
 ;;9002226.02101,"1033,66466034008 ",.02)
 ;;66466034008
 ;;9002226.02101,"1033,66466172501 ",.01)
 ;;66466172501
 ;;9002226.02101,"1033,66466172501 ",.02)
 ;;66466172501
 ;;9002226.02101,"1033,66466252000 ",.01)
 ;;66466252000
 ;;9002226.02101,"1033,66466252000 ",.02)
 ;;66466252000
 ;;9002226.02101,"1033,66466252001 ",.01)
 ;;66466252001
 ;;9002226.02101,"1033,66466252001 ",.02)
 ;;66466252001
 ;;9002226.02101,"1033,66466252700 ",.01)
 ;;66466252700
 ;;9002226.02101,"1033,66466252700 ",.02)
 ;;66466252700
 ;;9002226.02101,"1033,66466252701 ",.01)
 ;;66466252701
 ;;9002226.02101,"1033,66466252701 ",.02)
 ;;66466252701
 ;;9002226.02101,"1033,66466253000 ",.01)
 ;;66466253000
 ;;9002226.02101,"1033,66466253000 ",.02)
 ;;66466253000
 ;;9002226.02101,"1033,66466253001 ",.01)
 ;;66466253001
 ;;9002226.02101,"1033,66466253001 ",.02)
 ;;66466253001
 ;;9002226.02101,"1033,66466253700 ",.01)
 ;;66466253700
 ;;9002226.02101,"1033,66466253700 ",.02)
 ;;66466253700
 ;;9002226.02101,"1033,66466253701 ",.01)
 ;;66466253701
 ;;9002226.02101,"1033,66466253701 ",.02)
 ;;66466253701
 ;;9002226.02101,"1033,66466469201 ",.01)
 ;;66466469201
 ;;9002226.02101,"1033,66466469201 ",.02)
 ;;66466469201
 ;;9002226.02101,"1033,66466469205 ",.01)
 ;;66466469205
 ;;9002226.02101,"1033,66466469205 ",.02)
 ;;66466469205
 ;;9002226.02101,"1033,66467001001 ",.01)
 ;;66467001001
 ;;9002226.02101,"1033,66467001001 ",.02)
 ;;66467001001
 ;;9002226.02101,"1033,66467001005 ",.01)
 ;;66467001005
 ;;9002226.02101,"1033,66467001005 ",.02)
 ;;66467001005
 ;;9002226.02101,"1033,66467010501 ",.01)
 ;;66467010501
 ;;9002226.02101,"1033,66467010501 ",.02)
 ;;66467010501
 ;;9002226.02101,"1033,66467010505 ",.01)
 ;;66467010505
 ;;9002226.02101,"1033,66467010505 ",.02)
 ;;66467010505
 ;;9002226.02101,"1033,66467011601 ",.01)
 ;;66467011601
 ;;9002226.02101,"1033,66467011601 ",.02)
 ;;66467011601
 ;;9002226.02101,"1033,66467012005 ",.01)
 ;;66467012005
 ;;9002226.02101,"1033,66467012005 ",.02)
 ;;66467012005
 ;;9002226.02101,"1033,66467013001 ",.01)
 ;;66467013001
 ;;9002226.02101,"1033,66467013001 ",.02)
 ;;66467013001
 ;;9002226.02101,"1033,66467013005 ",.01)
 ;;66467013005
 ;;9002226.02101,"1033,66467013005 ",.02)
 ;;66467013005
 ;;9002226.02101,"1033,66467023003 ",.01)
 ;;66467023003
 ;;9002226.02101,"1033,66467023003 ",.02)
 ;;66467023003
 ;;9002226.02101,"1033,66467023005 ",.01)
 ;;66467023005
 ;;9002226.02101,"1033,66467023005 ",.02)
 ;;66467023005
 ;;9002226.02101,"1033,66467034003 ",.01)
 ;;66467034003
 ;;9002226.02101,"1033,66467034003 ",.02)
 ;;66467034003
 ;;9002226.02101,"1033,66467469201 ",.01)
 ;;66467469201
 ;;9002226.02101,"1033,66467469201 ",.02)
 ;;66467469201
 ;;9002226.02101,"1033,66467469205 ",.01)
 ;;66467469205
 ;;9002226.02101,"1033,66467469205 ",.02)
 ;;66467469205
 ;;9002226.02101,"1033,66467469301 ",.01)
 ;;66467469301
 ;;9002226.02101,"1033,66467469301 ",.02)
 ;;66467469301
 ;;9002226.02101,"1033,66467469305 ",.01)
 ;;66467469305
 ;;9002226.02101,"1033,66467469305 ",.02)
 ;;66467469305
 ;;9002226.02101,"1033,66685100100 ",.01)
 ;;66685100100
 ;;9002226.02101,"1033,66685100100 ",.02)
 ;;66685100100
 ;;9002226.02101,"1033,66685100101 ",.01)
 ;;66685100101
 ;;9002226.02101,"1033,66685100101 ",.02)
 ;;66685100101
 ;;9002226.02101,"1033,66685100102 ",.01)
 ;;66685100102
 ;;9002226.02101,"1033,66685100102 ",.02)
 ;;66685100102
 ;;9002226.02101,"1033,66685100200 ",.01)
 ;;66685100200
 ;;9002226.02101,"1033,66685100200 ",.02)
 ;;66685100200
 ;;9002226.02101,"1033,66685100201 ",.01)
 ;;66685100201
 ;;9002226.02101,"1033,66685100201 ",.02)
 ;;66685100201
 ;;9002226.02101,"1033,66685100202 ",.01)
 ;;66685100202
 ;;9002226.02101,"1033,66685100202 ",.02)
 ;;66685100202
 ;;9002226.02101,"1033,66685101100 ",.01)
 ;;66685101100
 ;;9002226.02101,"1033,66685101100 ",.02)
 ;;66685101100
 ;;9002226.02101,"1033,66685101101 ",.01)
 ;;66685101101
 ;;9002226.02101,"1033,66685101101 ",.02)
 ;;66685101101
 ;;9002226.02101,"1033,66685101102 ",.01)
 ;;66685101102
 ;;9002226.02101,"1033,66685101102 ",.02)
 ;;66685101102
 ;;9002226.02101,"1033,66685101200 ",.01)
 ;;66685101200
 ;;9002226.02101,"1033,66685101200 ",.02)
 ;;66685101200
 ;;9002226.02101,"1033,66685101201 ",.01)
 ;;66685101201
 ;;9002226.02101,"1033,66685101201 ",.02)
 ;;66685101201
 ;;9002226.02101,"1033,66685101202 ",.01)
 ;;66685101202
 ;;9002226.02101,"1033,66685101202 ",.02)
 ;;66685101202
 ;;9002226.02101,"1033,66860000103 ",.01)
 ;;66860000103
 ;;9002226.02101,"1033,66860000103 ",.02)
 ;;66860000103
 ;;9002226.02101,"1033,66860000203 ",.01)
 ;;66860000203
 ;;9002226.02101,"1033,66860000203 ",.02)
 ;;66860000203
 ;;9002226.02101,"1033,66860000302 ",.01)
 ;;66860000302
 ;;9002226.02101,"1033,66860000302 ",.02)
 ;;66860000302
 ;;9002226.02101,"1033,66860001102 ",.01)
 ;;66860001102
 ;;9002226.02101,"1033,66860001102 ",.02)
 ;;66860001102
 ;;9002226.02101,"1033,66860001202 ",.01)
 ;;66860001202
 ;;9002226.02101,"1033,66860001202 ",.02)
 ;;66860001202
 ;;9002226.02101,"1033,66860001302 ",.01)
 ;;66860001302
 ;;9002226.02101,"1033,66860001302 ",.02)
 ;;66860001302
 ;;9002226.02101,"1033,66860001502 ",.01)
 ;;66860001502
 ;;9002226.02101,"1033,66860001502 ",.02)
 ;;66860001502
 ;;9002226.02101,"1033,66860003103 ",.01)
 ;;66860003103
 ;;9002226.02101,"1033,66860003103 ",.02)
 ;;66860003103
 ;;9002226.02101,"1033,66860003202 ",.01)
 ;;66860003202
 ;;9002226.02101,"1033,66860003202 ",.02)
 ;;66860003202
 ;;9002226.02101,"1033,66860007102 ",.01)
 ;;66860007102
 ;;9002226.02101,"1033,66860007102 ",.02)
 ;;66860007102
 ;;9002226.02101,"1033,66860007202 ",.01)
 ;;66860007202
 ;;9002226.02101,"1033,66860007202 ",.02)
 ;;66860007202
 ;;9002226.02101,"1033,66860007302 ",.01)
 ;;66860007302
 ;;9002226.02101,"1033,66860007302 ",.02)
 ;;66860007302
 ;;9002226.02101,"1033,66860007402 ",.01)
 ;;66860007402
 ;;9002226.02101,"1033,66860007402 ",.02)
 ;;66860007402
 ;;9002226.02101,"1033,66860073103 ",.01)
 ;;66860073103
 ;;9002226.02101,"1033,66860073103 ",.02)
 ;;66860073103
 ;;9002226.02101,"1033,66860073125 ",.01)
 ;;66860073125
 ;;9002226.02101,"1033,66860073125 ",.02)
 ;;66860073125
 ;;9002226.02101,"1033,66860073202 ",.01)
 ;;66860073202
 ;;9002226.02101,"1033,66860073202 ",.02)
 ;;66860073202
 ;;9002226.02101,"1033,66860090203 ",.01)
 ;;66860090203
 ;;9002226.02101,"1033,66860090203 ",.02)
 ;;66860090203
 ;;9002226.02101,"1033,67046002021 ",.01)
 ;;67046002021
 ;;9002226.02101,"1033,67046002021 ",.02)
 ;;67046002021
 ;;9002226.02101,"1033,67046008410 ",.01)
 ;;67046008410
 ;;9002226.02101,"1033,67046008410 ",.02)
 ;;67046008410
 ;;9002226.02101,"1033,67046008420 ",.01)
 ;;67046008420
 ;;9002226.02101,"1033,67046008420 ",.02)
 ;;67046008420
 ;;9002226.02101,"1033,67046008421 ",.01)
 ;;67046008421
 ;;9002226.02101,"1033,67046008421 ",.02)
 ;;67046008421
 ;;9002226.02101,"1033,67046008428 ",.01)
 ;;67046008428
 ;;9002226.02101,"1033,67046008428 ",.02)
 ;;67046008428
 ;;9002226.02101,"1033,67046008430 ",.01)
 ;;67046008430
 ;;9002226.02101,"1033,67046008430 ",.02)
 ;;67046008430
 ;;9002226.02101,"1033,67046008510 ",.01)
 ;;67046008510
 ;;9002226.02101,"1033,67046008510 ",.02)
 ;;67046008510
 ;;9002226.02101,"1033,67046008520 ",.01)
 ;;67046008520
 ;;9002226.02101,"1033,67046008520 ",.02)
 ;;67046008520
 ;;9002226.02101,"1033,67046008521 ",.01)
 ;;67046008521
 ;;9002226.02101,"1033,67046008521 ",.02)
 ;;67046008521
 ;;9002226.02101,"1033,67046008528 ",.01)
 ;;67046008528
 ;;9002226.02101,"1033,67046008528 ",.02)
 ;;67046008528
 ;;9002226.02101,"1033,67046008530 ",.01)
 ;;67046008530
 ;;9002226.02101,"1033,67046008530 ",.02)
 ;;67046008530
 ;;9002226.02101,"1033,67046009021 ",.01)
 ;;67046009021
 ;;9002226.02101,"1033,67046009021 ",.02)
 ;;67046009021
 ;;9002226.02101,"1033,67046009028 ",.01)
 ;;67046009028
 ;;9002226.02101,"1033,67046009028 ",.02)
 ;;67046009028
 ;;9002226.02101,"1033,67046009030 ",.01)
 ;;67046009030
 ;;9002226.02101,"1033,67046009030 ",.02)
 ;;67046009030
 ;;9002226.02101,"1033,67046013514 ",.01)
 ;;67046013514
 ;;9002226.02101,"1033,67046013514 ",.02)
 ;;67046013514
 ;;9002226.02101,"1033,67046013520 ",.01)
 ;;67046013520
 ;;9002226.02101,"1033,67046013520 ",.02)
 ;;67046013520
 ;;9002226.02101,"1033,67046013530 ",.01)
 ;;67046013530
 ;;9002226.02101,"1033,67046013530 ",.02)
 ;;67046013530
 ;;9002226.02101,"1033,67046057621 ",.01)
 ;;67046057621
 ;;9002226.02101,"1033,67046057621 ",.02)
 ;;67046057621
 ;;9002226.02101,"1033,67046057628 ",.01)
 ;;67046057628