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

BGPM5AJG.m

Go to the documentation of this file.
BGPM5AJG ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"889,16590042872 ",.01)
 ;;16590042872
 ;;9002226.02101,"889,16590042872 ",.02)
 ;;16590042872
 ;;9002226.02101,"889,16590042890 ",.01)
 ;;16590042890
 ;;9002226.02101,"889,16590042890 ",.02)
 ;;16590042890
 ;;9002226.02101,"889,16590080830 ",.01)
 ;;16590080830
 ;;9002226.02101,"889,16590080830 ",.02)
 ;;16590080830
 ;;9002226.02101,"889,16590080845 ",.01)
 ;;16590080845
 ;;9002226.02101,"889,16590080845 ",.02)
 ;;16590080845
 ;;9002226.02101,"889,16590080860 ",.01)
 ;;16590080860
 ;;9002226.02101,"889,16590080860 ",.02)
 ;;16590080860
 ;;9002226.02101,"889,16590080890 ",.01)
 ;;16590080890
 ;;9002226.02101,"889,16590080890 ",.02)
 ;;16590080890
 ;;9002226.02101,"889,16590085128 ",.01)
 ;;16590085128
 ;;9002226.02101,"889,16590085128 ",.02)
 ;;16590085128
 ;;9002226.02101,"889,16714002104 ",.01)
 ;;16714002104
 ;;9002226.02101,"889,16714002104 ",.02)
 ;;16714002104
 ;;9002226.02101,"889,16714002106 ",.01)
 ;;16714002106
 ;;9002226.02101,"889,16714002106 ",.02)
 ;;16714002106
 ;;9002226.02101,"889,16714002204 ",.01)
 ;;16714002204
 ;;9002226.02101,"889,16714002204 ",.02)
 ;;16714002204
 ;;9002226.02101,"889,16714002206 ",.01)
 ;;16714002206
 ;;9002226.02101,"889,16714002206 ",.02)
 ;;16714002206
 ;;9002226.02101,"889,16714002304 ",.01)
 ;;16714002304
 ;;9002226.02101,"889,16714002304 ",.02)
 ;;16714002304
 ;;9002226.02101,"889,16714002306 ",.01)
 ;;16714002306
 ;;9002226.02101,"889,16714002306 ",.02)
 ;;16714002306
 ;;9002226.02101,"889,16714002404 ",.01)
 ;;16714002404
 ;;9002226.02101,"889,16714002404 ",.02)
 ;;16714002404
 ;;9002226.02101,"889,16714002406 ",.01)
 ;;16714002406
 ;;9002226.02101,"889,16714002406 ",.02)
 ;;16714002406
 ;;9002226.02101,"889,16714002504 ",.01)
 ;;16714002504
 ;;9002226.02101,"889,16714002504 ",.02)
 ;;16714002504
 ;;9002226.02101,"889,16714002505 ",.01)
 ;;16714002505
 ;;9002226.02101,"889,16714002505 ",.02)
 ;;16714002505
 ;;9002226.02101,"889,16714002506 ",.01)
 ;;16714002506
 ;;9002226.02101,"889,16714002506 ",.02)
 ;;16714002506
 ;;9002226.02101,"889,16714003101 ",.01)
 ;;16714003101
 ;;9002226.02101,"889,16714003101 ",.02)
 ;;16714003101
 ;;9002226.02101,"889,16714003102 ",.01)
 ;;16714003102
 ;;9002226.02101,"889,16714003102 ",.02)
 ;;16714003102
 ;;9002226.02101,"889,16714003103 ",.01)
 ;;16714003103
 ;;9002226.02101,"889,16714003103 ",.02)
 ;;16714003103
 ;;9002226.02101,"889,16714003104 ",.01)
 ;;16714003104
 ;;9002226.02101,"889,16714003104 ",.02)
 ;;16714003104
 ;;9002226.02101,"889,16714003105 ",.01)
 ;;16714003105
 ;;9002226.02101,"889,16714003105 ",.02)
 ;;16714003105
 ;;9002226.02101,"889,16714003106 ",.01)
 ;;16714003106
 ;;9002226.02101,"889,16714003106 ",.02)
 ;;16714003106
 ;;9002226.02101,"889,16714003201 ",.01)
 ;;16714003201
 ;;9002226.02101,"889,16714003201 ",.02)
 ;;16714003201
 ;;9002226.02101,"889,16714003202 ",.01)
 ;;16714003202
 ;;9002226.02101,"889,16714003202 ",.02)
 ;;16714003202
 ;;9002226.02101,"889,16714003203 ",.01)
 ;;16714003203
 ;;9002226.02101,"889,16714003203 ",.02)
 ;;16714003203
 ;;9002226.02101,"889,16714003204 ",.01)
 ;;16714003204
 ;;9002226.02101,"889,16714003204 ",.02)
 ;;16714003204
 ;;9002226.02101,"889,16714003205 ",.01)
 ;;16714003205
 ;;9002226.02101,"889,16714003205 ",.02)
 ;;16714003205
 ;;9002226.02101,"889,16714003206 ",.01)
 ;;16714003206
 ;;9002226.02101,"889,16714003206 ",.02)
 ;;16714003206
 ;;9002226.02101,"889,16714003301 ",.01)
 ;;16714003301
 ;;9002226.02101,"889,16714003301 ",.02)
 ;;16714003301
 ;;9002226.02101,"889,16714003302 ",.01)
 ;;16714003302
 ;;9002226.02101,"889,16714003302 ",.02)
 ;;16714003302
 ;;9002226.02101,"889,16714003303 ",.01)
 ;;16714003303
 ;;9002226.02101,"889,16714003303 ",.02)
 ;;16714003303
 ;;9002226.02101,"889,16714003304 ",.01)
 ;;16714003304
 ;;9002226.02101,"889,16714003304 ",.02)
 ;;16714003304
 ;;9002226.02101,"889,16714003305 ",.01)
 ;;16714003305
 ;;9002226.02101,"889,16714003305 ",.02)
 ;;16714003305
 ;;9002226.02101,"889,16714003306 ",.01)
 ;;16714003306
 ;;9002226.02101,"889,16714003306 ",.02)
 ;;16714003306
 ;;9002226.02101,"889,17022014924 ",.01)
 ;;17022014924
 ;;9002226.02101,"889,17022014924 ",.02)
 ;;17022014924
 ;;9002226.02101,"889,17022034524 ",.01)
 ;;17022034524
 ;;9002226.02101,"889,17022034524 ",.02)
 ;;17022034524
 ;;9002226.02101,"889,17088000801 ",.01)
 ;;17088000801
 ;;9002226.02101,"889,17088000801 ",.02)
 ;;17088000801
 ;;9002226.02101,"889,17088005101 ",.01)
 ;;17088005101
 ;;9002226.02101,"889,17088005101 ",.02)
 ;;17088005101
 ;;9002226.02101,"889,17088005502 ",.01)
 ;;17088005502
 ;;9002226.02101,"889,17088005502 ",.02)
 ;;17088005502
 ;;9002226.02101,"889,17088251704 ",.01)
 ;;17088251704
 ;;9002226.02101,"889,17088251704 ",.02)
 ;;17088251704
 ;;9002226.02101,"889,17088420101 ",.01)
 ;;17088420101
 ;;9002226.02101,"889,17088420101 ",.02)
 ;;17088420101
 ;;9002226.02101,"889,17228010901 ",.01)
 ;;17228010901
 ;;9002226.02101,"889,17228010901 ",.02)
 ;;17228010901
 ;;9002226.02101,"889,17228011001 ",.01)
 ;;17228011001
 ;;9002226.02101,"889,17228011001 ",.02)
 ;;17228011001
 ;;9002226.02101,"889,17228011101 ",.01)
 ;;17228011101
 ;;9002226.02101,"889,17228011101 ",.02)
 ;;17228011101
 ;;9002226.02101,"889,17228108809 ",.01)
 ;;17228108809
 ;;9002226.02101,"889,17228108809 ",.02)
 ;;17228108809
 ;;9002226.02101,"889,17478042020 ",.01)
 ;;17478042020
 ;;9002226.02101,"889,17478042020 ",.02)
 ;;17478042020
 ;;9002226.02101,"889,17478042040 ",.01)
 ;;17478042040
 ;;9002226.02101,"889,17478042040 ",.02)
 ;;17478042040
 ;;9002226.02101,"889,17856001802 ",.01)
 ;;17856001802
 ;;9002226.02101,"889,17856001802 ",.02)
 ;;17856001802
 ;;9002226.02101,"889,17856050602 ",.01)
 ;;17856050602
 ;;9002226.02101,"889,17856050602 ",.02)
 ;;17856050602
 ;;9002226.02101,"889,17856414202 ",.01)
 ;;17856414202
 ;;9002226.02101,"889,17856414202 ",.02)
 ;;17856414202
 ;;9002226.02101,"889,17856527002 ",.01)
 ;;17856527002
 ;;9002226.02101,"889,17856527002 ",.02)
 ;;17856527002
 ;;9002226.02101,"889,21695029130 ",.01)
 ;;21695029130
 ;;9002226.02101,"889,21695029130 ",.02)
 ;;21695029130
 ;;9002226.02101,"889,21695029830 ",.01)
 ;;21695029830
 ;;9002226.02101,"889,21695029830 ",.02)
 ;;21695029830
 ;;9002226.02101,"889,21695029860 ",.01)
 ;;21695029860
 ;;9002226.02101,"889,21695029860 ",.02)
 ;;21695029860
 ;;9002226.02101,"889,21695029878 ",.01)
 ;;21695029878
 ;;9002226.02101,"889,21695029878 ",.02)
 ;;21695029878
 ;;9002226.02101,"889,21695029890 ",.01)
 ;;21695029890
 ;;9002226.02101,"889,21695029890 ",.02)
 ;;21695029890
 ;;9002226.02101,"889,21695029900 ",.01)
 ;;21695029900
 ;;9002226.02101,"889,21695029900 ",.02)
 ;;21695029900
 ;;9002226.02101,"889,21695029930 ",.01)
 ;;21695029930
 ;;9002226.02101,"889,21695029930 ",.02)
 ;;21695029930
 ;;9002226.02101,"889,21695029960 ",.01)
 ;;21695029960
 ;;9002226.02101,"889,21695029960 ",.02)
 ;;21695029960
 ;;9002226.02101,"889,21695029990 ",.01)
 ;;21695029990
 ;;9002226.02101,"889,21695029990 ",.02)
 ;;21695029990
 ;;9002226.02101,"889,21695032230 ",.01)
 ;;21695032230
 ;;9002226.02101,"889,21695032230 ",.02)
 ;;21695032230
 ;;9002226.02101,"889,21695032290 ",.01)
 ;;21695032290
 ;;9002226.02101,"889,21695032290 ",.02)
 ;;21695032290
 ;;9002226.02101,"889,21695032330 ",.01)
 ;;21695032330
 ;;9002226.02101,"889,21695032330 ",.02)
 ;;21695032330
 ;;9002226.02101,"889,21695032360 ",.01)
 ;;21695032360
 ;;9002226.02101,"889,21695032360 ",.02)
 ;;21695032360
 ;;9002226.02101,"889,21695032390 ",.01)
 ;;21695032390
 ;;9002226.02101,"889,21695032390 ",.02)
 ;;21695032390
 ;;9002226.02101,"889,21695032430 ",.01)
 ;;21695032430
 ;;9002226.02101,"889,21695032430 ",.02)
 ;;21695032430
 ;;9002226.02101,"889,21695049460 ",.01)
 ;;21695049460
 ;;9002226.02101,"889,21695049460 ",.02)
 ;;21695049460
 ;;9002226.02101,"889,21695049478 ",.01)
 ;;21695049478
 ;;9002226.02101,"889,21695049478 ",.02)
 ;;21695049478
 ;;9002226.02101,"889,21695049490 ",.01)
 ;;21695049490
 ;;9002226.02101,"889,21695049490 ",.02)
 ;;21695049490
 ;;9002226.02101,"889,21695059260 ",.01)
 ;;21695059260
 ;;9002226.02101,"889,21695059260 ",.02)
 ;;21695059260
 ;;9002226.02101,"889,21695066730 ",.01)
 ;;21695066730
 ;;9002226.02101,"889,21695066730 ",.02)
 ;;21695066730
 ;;9002226.02101,"889,21695066790 ",.01)
 ;;21695066790
 ;;9002226.02101,"889,21695066790 ",.02)
 ;;21695066790
 ;;9002226.02101,"889,21695066860 ",.01)
 ;;21695066860
 ;;9002226.02101,"889,21695066860 ",.02)
 ;;21695066860
 ;;9002226.02101,"889,21695066878 ",.01)
 ;;21695066878
 ;;9002226.02101,"889,21695066878 ",.02)
 ;;21695066878
 ;;9002226.02101,"889,21695066930 ",.01)
 ;;21695066930
 ;;9002226.02101,"889,21695066930 ",.02)
 ;;21695066930
 ;;9002226.02101,"889,21695066960 ",.01)
 ;;21695066960
 ;;9002226.02101,"889,21695066960 ",.02)
 ;;21695066960
 ;;9002226.02101,"889,21695067030 ",.01)
 ;;21695067030
 ;;9002226.02101,"889,21695067030 ",.02)
 ;;21695067030
 ;;9002226.02101,"889,21695067090 ",.01)
 ;;21695067090
 ;;9002226.02101,"889,21695067090 ",.02)
 ;;21695067090
 ;;9002226.02101,"889,21695074330 ",.01)
 ;;21695074330
 ;;9002226.02101,"889,21695074330 ",.02)
 ;;21695074330
 ;;9002226.02101,"889,21695074430 ",.01)
 ;;21695074430
 ;;9002226.02101,"889,21695074430 ",.02)
 ;;21695074430
 ;;9002226.02101,"889,21695079930 ",.01)
 ;;21695079930
 ;;9002226.02101,"889,21695079930 ",.02)
 ;;21695079930
 ;;9002226.02101,"889,21695080030 ",.01)
 ;;21695080030
 ;;9002226.02101,"889,21695080030 ",.02)
 ;;21695080030
 ;;9002226.02101,"889,21695080230 ",.01)
 ;;21695080230
 ;;9002226.02101,"889,21695080230 ",.02)
 ;;21695080230
 ;;9002226.02101,"889,21695080830 ",.01)
 ;;21695080830
 ;;9002226.02101,"889,21695080830 ",.02)
 ;;21695080830
 ;;9002226.02101,"889,21695080930 ",.01)
 ;;21695080930
 ;;9002226.02101,"889,21695080930 ",.02)
 ;;21695080930
 ;;9002226.02101,"889,23155011001 ",.01)
 ;;23155011001
 ;;9002226.02101,"889,23155011001 ",.02)
 ;;23155011001
 ;;9002226.02101,"889,23155011003 ",.01)
 ;;23155011003
 ;;9002226.02101,"889,23155011003 ",.02)
 ;;23155011003
 ;;9002226.02101,"889,23155011005 ",.01)
 ;;23155011005
 ;;9002226.02101,"889,23155011005 ",.02)
 ;;23155011005
 ;;9002226.02101,"889,23155011006 ",.01)
 ;;23155011006
 ;;9002226.02101,"889,23155011006 ",.02)
 ;;23155011006
 ;;9002226.02101,"889,23155011010 ",.01)
 ;;23155011010
 ;;9002226.02101,"889,23155011010 ",.02)
 ;;23155011010
 ;;9002226.02101,"889,23155011101 ",.01)
 ;;23155011101
 ;;9002226.02101,"889,23155011101 ",.02)
 ;;23155011101
 ;;9002226.02101,"889,23155011103 ",.01)
 ;;23155011103
 ;;9002226.02101,"889,23155011103 ",.02)
 ;;23155011103
 ;;9002226.02101,"889,23155011105 ",.01)
 ;;23155011105
 ;;9002226.02101,"889,23155011105 ",.02)
 ;;23155011105
 ;;9002226.02101,"889,23155011106 ",.01)
 ;;23155011106
 ;;9002226.02101,"889,23155011106 ",.02)
 ;;23155011106
 ;;9002226.02101,"889,23155011110 ",.01)
 ;;23155011110
 ;;9002226.02101,"889,23155011110 ",.02)
 ;;23155011110
 ;;9002226.02101,"889,23155011201 ",.01)
 ;;23155011201
 ;;9002226.02101,"889,23155011201 ",.02)
 ;;23155011201
 ;;9002226.02101,"889,23155011203 ",.01)
 ;;23155011203
 ;;9002226.02101,"889,23155011203 ",.02)
 ;;23155011203
 ;;9002226.02101,"889,23155011205 ",.01)
 ;;23155011205
 ;;9002226.02101,"889,23155011205 ",.02)
 ;;23155011205
 ;;9002226.02101,"889,23155011206 ",.01)
 ;;23155011206
 ;;9002226.02101,"889,23155011206 ",.02)
 ;;23155011206
 ;;9002226.02101,"889,23155011210 ",.01)
 ;;23155011210
 ;;9002226.02101,"889,23155011210 ",.02)
 ;;23155011210