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

BGPM5AUZ.m

Go to the documentation of this file.
BGPM5AUZ ;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,53746027110 ",.02)
 ;;53746027110
 ;;9002226.02101,"1033,53746027150 ",.01)
 ;;53746027150
 ;;9002226.02101,"1033,53746027150 ",.02)
 ;;53746027150
 ;;9002226.02101,"1033,53746027201 ",.01)
 ;;53746027201
 ;;9002226.02101,"1033,53746027201 ",.02)
 ;;53746027201
 ;;9002226.02101,"1033,53746027202 ",.01)
 ;;53746027202
 ;;9002226.02101,"1033,53746027202 ",.02)
 ;;53746027202
 ;;9002226.02101,"1033,53746027205 ",.01)
 ;;53746027205
 ;;9002226.02101,"1033,53746027205 ",.02)
 ;;53746027205
 ;;9002226.02101,"1033,53746027211 ",.01)
 ;;53746027211
 ;;9002226.02101,"1033,53746027211 ",.02)
 ;;53746027211
 ;;9002226.02101,"1033,53746027224 ",.01)
 ;;53746027224
 ;;9002226.02101,"1033,53746027224 ",.02)
 ;;53746027224
 ;;9002226.02101,"1033,53808004021 ",.01)
 ;;53808004021
 ;;9002226.02101,"1033,53808004021 ",.02)
 ;;53808004021
 ;;9002226.02101,"1033,53808004114 ",.01)
 ;;53808004114
 ;;9002226.02101,"1033,53808004114 ",.02)
 ;;53808004114
 ;;9002226.02101,"1033,53808005928 ",.01)
 ;;53808005928
 ;;9002226.02101,"1033,53808005928 ",.02)
 ;;53808005928
 ;;9002226.02101,"1033,53808006301 ",.01)
 ;;53808006301
 ;;9002226.02101,"1033,53808006301 ",.02)
 ;;53808006301
 ;;9002226.02101,"1033,53808006820 ",.01)
 ;;53808006820
 ;;9002226.02101,"1033,53808006820 ",.02)
 ;;53808006820
 ;;9002226.02101,"1033,53808007401 ",.01)
 ;;53808007401
 ;;9002226.02101,"1033,53808007401 ",.02)
 ;;53808007401
 ;;9002226.02101,"1033,53808022201 ",.01)
 ;;53808022201
 ;;9002226.02101,"1033,53808022201 ",.02)
 ;;53808022201
 ;;9002226.02101,"1033,53808022301 ",.01)
 ;;53808022301
 ;;9002226.02101,"1033,53808022301 ",.02)
 ;;53808022301
 ;;9002226.02101,"1033,53808023901 ",.01)
 ;;53808023901
 ;;9002226.02101,"1033,53808023901 ",.02)
 ;;53808023901
 ;;9002226.02101,"1033,53808024001 ",.01)
 ;;53808024001
 ;;9002226.02101,"1033,53808024001 ",.02)
 ;;53808024001
 ;;9002226.02101,"1033,53808030602 ",.01)
 ;;53808030602
 ;;9002226.02101,"1033,53808030602 ",.02)
 ;;53808030602
 ;;9002226.02101,"1033,53808030603 ",.01)
 ;;53808030603
 ;;9002226.02101,"1033,53808030603 ",.02)
 ;;53808030603
 ;;9002226.02101,"1033,53808030802 ",.01)
 ;;53808030802
 ;;9002226.02101,"1033,53808030802 ",.02)
 ;;53808030802
 ;;9002226.02101,"1033,53808030803 ",.01)
 ;;53808030803
 ;;9002226.02101,"1033,53808030803 ",.02)
 ;;53808030803
 ;;9002226.02101,"1033,53808034101 ",.01)
 ;;53808034101
 ;;9002226.02101,"1033,53808034101 ",.02)
 ;;53808034101
 ;;9002226.02101,"1033,53808034901 ",.01)
 ;;53808034901
 ;;9002226.02101,"1033,53808034901 ",.02)
 ;;53808034901
 ;;9002226.02101,"1033,53808074001 ",.01)
 ;;53808074001
 ;;9002226.02101,"1033,53808074001 ",.02)
 ;;53808074001
 ;;9002226.02101,"1033,53808075901 ",.01)
 ;;53808075901
 ;;9002226.02101,"1033,53808075901 ",.02)
 ;;53808075901
 ;;9002226.02101,"1033,53808079801 ",.01)
 ;;53808079801
 ;;9002226.02101,"1033,53808079801 ",.02)
 ;;53808079801
 ;;9002226.02101,"1033,53808091401 ",.01)
 ;;53808091401
 ;;9002226.02101,"1033,53808091401 ",.02)
 ;;53808091401
 ;;9002226.02101,"1033,53808096201 ",.01)
 ;;53808096201
 ;;9002226.02101,"1033,53808096201 ",.02)
 ;;53808096201
 ;;9002226.02101,"1033,53862010001 ",.01)
 ;;53862010001
 ;;9002226.02101,"1033,53862010001 ",.02)
 ;;53862010001
 ;;9002226.02101,"1033,53862010002 ",.01)
 ;;53862010002
 ;;9002226.02101,"1033,53862010002 ",.02)
 ;;53862010002
 ;;9002226.02101,"1033,53862010003 ",.01)
 ;;53862010003
 ;;9002226.02101,"1033,53862010003 ",.02)
 ;;53862010003
 ;;9002226.02101,"1033,53862010101 ",.01)
 ;;53862010101
 ;;9002226.02101,"1033,53862010101 ",.02)
 ;;53862010101
 ;;9002226.02101,"1033,53862010102 ",.01)
 ;;53862010102
 ;;9002226.02101,"1033,53862010102 ",.02)
 ;;53862010102
 ;;9002226.02101,"1033,53862010103 ",.01)
 ;;53862010103
 ;;9002226.02101,"1033,53862010103 ",.02)
 ;;53862010103
 ;;9002226.02101,"1033,53862010301 ",.01)
 ;;53862010301
 ;;9002226.02101,"1033,53862010301 ",.02)
 ;;53862010301
 ;;9002226.02101,"1033,53862010302 ",.01)
 ;;53862010302
 ;;9002226.02101,"1033,53862010302 ",.02)
 ;;53862010302
 ;;9002226.02101,"1033,53862010303 ",.01)
 ;;53862010303
 ;;9002226.02101,"1033,53862010303 ",.02)
 ;;53862010303
 ;;9002226.02101,"1033,53862020001 ",.01)
 ;;53862020001
 ;;9002226.02101,"1033,53862020001 ",.02)
 ;;53862020001
 ;;9002226.02101,"1033,53862020002 ",.01)
 ;;53862020002
 ;;9002226.02101,"1033,53862020002 ",.02)
 ;;53862020002
 ;;9002226.02101,"1033,53862020003 ",.01)
 ;;53862020003
 ;;9002226.02101,"1033,53862020003 ",.02)
 ;;53862020003
 ;;9002226.02101,"1033,53862020004 ",.01)
 ;;53862020004
 ;;9002226.02101,"1033,53862020004 ",.02)
 ;;53862020004
 ;;9002226.02101,"1033,53862020101 ",.01)
 ;;53862020101
 ;;9002226.02101,"1033,53862020101 ",.02)
 ;;53862020101
 ;;9002226.02101,"1033,53862020102 ",.01)
 ;;53862020102
 ;;9002226.02101,"1033,53862020102 ",.02)
 ;;53862020102
 ;;9002226.02101,"1033,53862020103 ",.01)
 ;;53862020103
 ;;9002226.02101,"1033,53862020103 ",.02)
 ;;53862020103
 ;;9002226.02101,"1033,53862020104 ",.01)
 ;;53862020104
 ;;9002226.02101,"1033,53862020104 ",.02)
 ;;53862020104
 ;;9002226.02101,"1033,53862020301 ",.01)
 ;;53862020301
 ;;9002226.02101,"1033,53862020301 ",.02)
 ;;53862020301
 ;;9002226.02101,"1033,53862020302 ",.01)
 ;;53862020302
 ;;9002226.02101,"1033,53862020302 ",.02)
 ;;53862020302
 ;;9002226.02101,"1033,53862020303 ",.01)
 ;;53862020303
 ;;9002226.02101,"1033,53862020303 ",.02)
 ;;53862020303
 ;;9002226.02101,"1033,53862020304 ",.01)
 ;;53862020304
 ;;9002226.02101,"1033,53862020304 ",.02)
 ;;53862020304
 ;;9002226.02101,"1033,53978001209 ",.01)
 ;;53978001209
 ;;9002226.02101,"1033,53978001209 ",.02)
 ;;53978001209
 ;;9002226.02101,"1033,53978002201 ",.01)
 ;;53978002201
 ;;9002226.02101,"1033,53978002201 ",.02)
 ;;53978002201
 ;;9002226.02101,"1033,53978002209 ",.01)
 ;;53978002209
 ;;9002226.02101,"1033,53978002209 ",.02)
 ;;53978002209
 ;;9002226.02101,"1033,53978002609 ",.01)
 ;;53978002609
 ;;9002226.02101,"1033,53978002609 ",.02)
 ;;53978002609
 ;;9002226.02101,"1033,53978124206 ",.01)
 ;;53978124206
 ;;9002226.02101,"1033,53978124206 ",.02)
 ;;53978124206
 ;;9002226.02101,"1033,53978125705 ",.01)
 ;;53978125705
 ;;9002226.02101,"1033,53978125705 ",.02)
 ;;53978125705
 ;;9002226.02101,"1033,53978208803 ",.01)
 ;;53978208803
 ;;9002226.02101,"1033,53978208803 ",.02)
 ;;53978208803
 ;;9002226.02101,"1033,53978301403 ",.01)
 ;;53978301403
 ;;9002226.02101,"1033,53978301403 ",.02)
 ;;53978301403
 ;;9002226.02101,"1033,53978301803 ",.01)
 ;;53978301803
 ;;9002226.02101,"1033,53978301803 ",.02)
 ;;53978301803
 ;;9002226.02101,"1033,53978302803 ",.01)
 ;;53978302803
 ;;9002226.02101,"1033,53978302803 ",.02)
 ;;53978302803
 ;;9002226.02101,"1033,53978303803 ",.01)
 ;;53978303803
 ;;9002226.02101,"1033,53978303803 ",.02)
 ;;53978303803
 ;;9002226.02101,"1033,53978307501 ",.01)
 ;;53978307501
 ;;9002226.02101,"1033,53978307501 ",.02)
 ;;53978307501
 ;;9002226.02101,"1033,53978307503 ",.01)
 ;;53978307503
 ;;9002226.02101,"1033,53978307503 ",.02)
 ;;53978307503
 ;;9002226.02101,"1033,53978312907 ",.01)
 ;;53978312907
 ;;9002226.02101,"1033,53978312907 ",.02)
 ;;53978312907
 ;;9002226.02101,"1033,53978315907 ",.01)
 ;;53978315907
 ;;9002226.02101,"1033,53978315907 ",.02)
 ;;53978315907
 ;;9002226.02101,"1033,53978331203 ",.01)
 ;;53978331203
 ;;9002226.02101,"1033,53978331203 ",.02)
 ;;53978331203
 ;;9002226.02101,"1033,53978500303 ",.01)
 ;;53978500303
 ;;9002226.02101,"1033,53978500303 ",.02)
 ;;53978500303
 ;;9002226.02101,"1033,53978500305 ",.01)
 ;;53978500305
 ;;9002226.02101,"1033,53978500305 ",.02)
 ;;53978500305
 ;;9002226.02101,"1033,53978501806 ",.01)
 ;;53978501806
 ;;9002226.02101,"1033,53978501806 ",.02)
 ;;53978501806
 ;;9002226.02101,"1033,53978501903 ",.01)
 ;;53978501903
 ;;9002226.02101,"1033,53978501903 ",.02)
 ;;53978501903
 ;;9002226.02101,"1033,53978502006 ",.01)
 ;;53978502006
 ;;9002226.02101,"1033,53978502006 ",.02)
 ;;53978502006
 ;;9002226.02101,"1033,53978502103 ",.01)
 ;;53978502103
 ;;9002226.02101,"1033,53978502103 ",.02)
 ;;53978502103
 ;;9002226.02101,"1033,53978502106 ",.01)
 ;;53978502106
 ;;9002226.02101,"1033,53978502106 ",.02)
 ;;53978502106
 ;;9002226.02101,"1033,53978505506 ",.01)
 ;;53978505506
 ;;9002226.02101,"1033,53978505506 ",.02)
 ;;53978505506
 ;;9002226.02101,"1033,54348057502 ",.01)
 ;;54348057502
 ;;9002226.02101,"1033,54348057502 ",.02)
 ;;54348057502
 ;;9002226.02101,"1033,54348057503 ",.01)
 ;;54348057503
 ;;9002226.02101,"1033,54348057503 ",.02)
 ;;54348057503
 ;;9002226.02101,"1033,54348057504 ",.01)
 ;;54348057504
 ;;9002226.02101,"1033,54348057504 ",.02)
 ;;54348057504
 ;;9002226.02101,"1033,54348057506 ",.01)
 ;;54348057506
 ;;9002226.02101,"1033,54348057506 ",.02)
 ;;54348057506
 ;;9002226.02101,"1033,54348057514 ",.01)
 ;;54348057514
 ;;9002226.02101,"1033,54348057514 ",.02)
 ;;54348057514
 ;;9002226.02101,"1033,54348059021 ",.01)
 ;;54348059021
 ;;9002226.02101,"1033,54348059021 ",.02)
 ;;54348059021
 ;;9002226.02101,"1033,54348059028 ",.01)
 ;;54348059028
 ;;9002226.02101,"1033,54348059028 ",.02)
 ;;54348059028
 ;;9002226.02101,"1033,54348059030 ",.01)
 ;;54348059030
 ;;9002226.02101,"1033,54348059030 ",.02)
 ;;54348059030
 ;;9002226.02101,"1033,54348066203 ",.01)
 ;;54348066203
 ;;9002226.02101,"1033,54348066203 ",.02)
 ;;54348066203
 ;;9002226.02101,"1033,54348066206 ",.01)
 ;;54348066206
 ;;9002226.02101,"1033,54348066206 ",.02)
 ;;54348066206
 ;;9002226.02101,"1033,54348066214 ",.01)
 ;;54348066214
 ;;9002226.02101,"1033,54348066214 ",.02)
 ;;54348066214
 ;;9002226.02101,"1033,54348085404 ",.01)
 ;;54348085404
 ;;9002226.02101,"1033,54348085404 ",.02)
 ;;54348085404
 ;;9002226.02101,"1033,54569007500 ",.01)
 ;;54569007500
 ;;9002226.02101,"1033,54569007500 ",.02)
 ;;54569007500
 ;;9002226.02101,"1033,54569007501 ",.01)
 ;;54569007501
 ;;9002226.02101,"1033,54569007501 ",.02)
 ;;54569007501
 ;;9002226.02101,"1033,54569007502 ",.01)
 ;;54569007502
 ;;9002226.02101,"1033,54569007502 ",.02)
 ;;54569007502
 ;;9002226.02101,"1033,54569007503 ",.01)
 ;;54569007503
 ;;9002226.02101,"1033,54569007503 ",.02)
 ;;54569007503
 ;;9002226.02101,"1033,54569007505 ",.01)
 ;;54569007505
 ;;9002226.02101,"1033,54569007505 ",.02)
 ;;54569007505
 ;;9002226.02101,"1033,54569007507 ",.01)
 ;;54569007507
 ;;9002226.02101,"1033,54569007507 ",.02)
 ;;54569007507
 ;;9002226.02101,"1033,54569007509 ",.01)
 ;;54569007509
 ;;9002226.02101,"1033,54569007509 ",.02)
 ;;54569007509
 ;;9002226.02101,"1033,54569011800 ",.01)
 ;;54569011800
 ;;9002226.02101,"1033,54569011800 ",.02)
 ;;54569011800
 ;;9002226.02101,"1033,54569011801 ",.01)
 ;;54569011801
 ;;9002226.02101,"1033,54569011801 ",.02)
 ;;54569011801
 ;;9002226.02101,"1033,54569011802 ",.01)
 ;;54569011802
 ;;9002226.02101,"1033,54569011802 ",.02)
 ;;54569011802
 ;;9002226.02101,"1033,54569011803 ",.01)
 ;;54569011803
 ;;9002226.02101,"1033,54569011803 ",.02)
 ;;54569011803
 ;;9002226.02101,"1033,54569011805 ",.01)
 ;;54569011805
 ;;9002226.02101,"1033,54569011805 ",.02)
 ;;54569011805
 ;;9002226.02101,"1033,54569011806 ",.01)
 ;;54569011806
 ;;9002226.02101,"1033,54569011806 ",.02)
 ;;54569011806
 ;;9002226.02101,"1033,54569011808 ",.01)
 ;;54569011808
 ;;9002226.02101,"1033,54569011808 ",.02)
 ;;54569011808
 ;;9002226.02101,"1033,54569011809 ",.01)
 ;;54569011809
 ;;9002226.02101,"1033,54569011809 ",.02)
 ;;54569011809
 ;;9002226.02101,"1033,54569014701 ",.01)
 ;;54569014701
 ;;9002226.02101,"1033,54569014701 ",.02)
 ;;54569014701