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

BGPM5BCW.m

Go to the documentation of this file.
BGPM5BCW ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"1044,55887016890 ",.01)
 ;;55887016890
 ;;9002226.02101,"1044,55887016890 ",.02)
 ;;55887016890
 ;;9002226.02101,"1044,55887023730 ",.01)
 ;;55887023730
 ;;9002226.02101,"1044,55887023730 ",.02)
 ;;55887023730
 ;;9002226.02101,"1044,55887023760 ",.01)
 ;;55887023760
 ;;9002226.02101,"1044,55887023760 ",.02)
 ;;55887023760
 ;;9002226.02101,"1044,55887023786 ",.01)
 ;;55887023786
 ;;9002226.02101,"1044,55887023786 ",.02)
 ;;55887023786
 ;;9002226.02101,"1044,55887023790 ",.01)
 ;;55887023790
 ;;9002226.02101,"1044,55887023790 ",.02)
 ;;55887023790
 ;;9002226.02101,"1044,55887025620 ",.01)
 ;;55887025620
 ;;9002226.02101,"1044,55887025620 ",.02)
 ;;55887025620
 ;;9002226.02101,"1044,55887025630 ",.01)
 ;;55887025630
 ;;9002226.02101,"1044,55887025630 ",.02)
 ;;55887025630
 ;;9002226.02101,"1044,55887026030 ",.01)
 ;;55887026030
 ;;9002226.02101,"1044,55887026030 ",.02)
 ;;55887026030
 ;;9002226.02101,"1044,55887026090 ",.01)
 ;;55887026090
 ;;9002226.02101,"1044,55887026090 ",.02)
 ;;55887026090
 ;;9002226.02101,"1044,55887026101 ",.01)
 ;;55887026101
 ;;9002226.02101,"1044,55887026101 ",.02)
 ;;55887026101
 ;;9002226.02101,"1044,55887026130 ",.01)
 ;;55887026130
 ;;9002226.02101,"1044,55887026130 ",.02)
 ;;55887026130
 ;;9002226.02101,"1044,55887026190 ",.01)
 ;;55887026190
 ;;9002226.02101,"1044,55887026190 ",.02)
 ;;55887026190
 ;;9002226.02101,"1044,55887028830 ",.01)
 ;;55887028830
 ;;9002226.02101,"1044,55887028830 ",.02)
 ;;55887028830
 ;;9002226.02101,"1044,55887034630 ",.01)
 ;;55887034630
 ;;9002226.02101,"1044,55887034630 ",.02)
 ;;55887034630
 ;;9002226.02101,"1044,55887039430 ",.01)
 ;;55887039430
 ;;9002226.02101,"1044,55887039430 ",.02)
 ;;55887039430
 ;;9002226.02101,"1044,55887039490 ",.01)
 ;;55887039490
 ;;9002226.02101,"1044,55887039490 ",.02)
 ;;55887039490
 ;;9002226.02101,"1044,55887039860 ",.01)
 ;;55887039860
 ;;9002226.02101,"1044,55887039860 ",.02)
 ;;55887039860
 ;;9002226.02101,"1044,55887043310 ",.01)
 ;;55887043310
 ;;9002226.02101,"1044,55887043310 ",.02)
 ;;55887043310
 ;;9002226.02101,"1044,55887043330 ",.01)
 ;;55887043330
 ;;9002226.02101,"1044,55887043330 ",.02)
 ;;55887043330
 ;;9002226.02101,"1044,55887043930 ",.01)
 ;;55887043930
 ;;9002226.02101,"1044,55887043930 ",.02)
 ;;55887043930
 ;;9002226.02101,"1044,55887043960 ",.01)
 ;;55887043960
 ;;9002226.02101,"1044,55887043960 ",.02)
 ;;55887043960
 ;;9002226.02101,"1044,55887043992 ",.01)
 ;;55887043992
 ;;9002226.02101,"1044,55887043992 ",.02)
 ;;55887043992
 ;;9002226.02101,"1044,55887045830 ",.01)
 ;;55887045830
 ;;9002226.02101,"1044,55887045830 ",.02)
 ;;55887045830
 ;;9002226.02101,"1044,55887045860 ",.01)
 ;;55887045860
 ;;9002226.02101,"1044,55887045860 ",.02)
 ;;55887045860
 ;;9002226.02101,"1044,55887045890 ",.01)
 ;;55887045890
 ;;9002226.02101,"1044,55887045890 ",.02)
 ;;55887045890
 ;;9002226.02101,"1044,55887049830 ",.01)
 ;;55887049830
 ;;9002226.02101,"1044,55887049830 ",.02)
 ;;55887049830
 ;;9002226.02101,"1044,55887049860 ",.01)
 ;;55887049860
 ;;9002226.02101,"1044,55887049860 ",.02)
 ;;55887049860
 ;;9002226.02101,"1044,55887049890 ",.01)
 ;;55887049890
 ;;9002226.02101,"1044,55887049890 ",.02)
 ;;55887049890
 ;;9002226.02101,"1044,55887051815 ",.01)
 ;;55887051815
 ;;9002226.02101,"1044,55887051815 ",.02)
 ;;55887051815
 ;;9002226.02101,"1044,55887051830 ",.01)
 ;;55887051830
 ;;9002226.02101,"1044,55887051830 ",.02)
 ;;55887051830
 ;;9002226.02101,"1044,55887051860 ",.01)
 ;;55887051860
 ;;9002226.02101,"1044,55887051860 ",.02)
 ;;55887051860
 ;;9002226.02101,"1044,55887051890 ",.01)
 ;;55887051890
 ;;9002226.02101,"1044,55887051890 ",.02)
 ;;55887051890
 ;;9002226.02101,"1044,55887052420 ",.01)
 ;;55887052420
 ;;9002226.02101,"1044,55887052420 ",.02)
 ;;55887052420
 ;;9002226.02101,"1044,55887052430 ",.01)
 ;;55887052430
 ;;9002226.02101,"1044,55887052430 ",.02)
 ;;55887052430
 ;;9002226.02101,"1044,55887052460 ",.01)
 ;;55887052460
 ;;9002226.02101,"1044,55887052460 ",.02)
 ;;55887052460
 ;;9002226.02101,"1044,55887052490 ",.01)
 ;;55887052490
 ;;9002226.02101,"1044,55887052490 ",.02)
 ;;55887052490
 ;;9002226.02101,"1044,55887052492 ",.01)
 ;;55887052492
 ;;9002226.02101,"1044,55887052492 ",.02)
 ;;55887052492
 ;;9002226.02101,"1044,55887054130 ",.01)
 ;;55887054130
 ;;9002226.02101,"1044,55887054130 ",.02)
 ;;55887054130
 ;;9002226.02101,"1044,55887054830 ",.01)
 ;;55887054830
 ;;9002226.02101,"1044,55887054830 ",.02)
 ;;55887054830
 ;;9002226.02101,"1044,55887055230 ",.01)
 ;;55887055230
 ;;9002226.02101,"1044,55887055230 ",.02)
 ;;55887055230
 ;;9002226.02101,"1044,55887055260 ",.01)
 ;;55887055260
 ;;9002226.02101,"1044,55887055260 ",.02)
 ;;55887055260
 ;;9002226.02101,"1044,55887055290 ",.01)
 ;;55887055290
 ;;9002226.02101,"1044,55887055290 ",.02)
 ;;55887055290
 ;;9002226.02101,"1044,55887057030 ",.01)
 ;;55887057030
 ;;9002226.02101,"1044,55887057030 ",.02)
 ;;55887057030
 ;;9002226.02101,"1044,55887057040 ",.01)
 ;;55887057040
 ;;9002226.02101,"1044,55887057040 ",.02)
 ;;55887057040
 ;;9002226.02101,"1044,55887057060 ",.01)
 ;;55887057060
 ;;9002226.02101,"1044,55887057060 ",.02)
 ;;55887057060
 ;;9002226.02101,"1044,55887057090 ",.01)
 ;;55887057090
 ;;9002226.02101,"1044,55887057090 ",.02)
 ;;55887057090
 ;;9002226.02101,"1044,55887057092 ",.01)
 ;;55887057092
 ;;9002226.02101,"1044,55887057092 ",.02)
 ;;55887057092
 ;;9002226.02101,"1044,55887057214 ",.01)
 ;;55887057214
 ;;9002226.02101,"1044,55887057214 ",.02)
 ;;55887057214
 ;;9002226.02101,"1044,55887057290 ",.01)
 ;;55887057290
 ;;9002226.02101,"1044,55887057290 ",.02)
 ;;55887057290
 ;;9002226.02101,"1044,55887066105 ",.01)
 ;;55887066105
 ;;9002226.02101,"1044,55887066105 ",.02)
 ;;55887066105
 ;;9002226.02101,"1044,55887066130 ",.01)
 ;;55887066130
 ;;9002226.02101,"1044,55887066130 ",.02)
 ;;55887066130
 ;;9002226.02101,"1044,55887066160 ",.01)
 ;;55887066160
 ;;9002226.02101,"1044,55887066160 ",.02)
 ;;55887066160
 ;;9002226.02101,"1044,55887066190 ",.01)
 ;;55887066190
 ;;9002226.02101,"1044,55887066190 ",.02)
 ;;55887066190
 ;;9002226.02101,"1044,55887066430 ",.01)
 ;;55887066430
 ;;9002226.02101,"1044,55887066430 ",.02)
 ;;55887066430
 ;;9002226.02101,"1044,55887066490 ",.01)
 ;;55887066490
 ;;9002226.02101,"1044,55887066490 ",.02)
 ;;55887066490
 ;;9002226.02101,"1044,55887074550 ",.01)
 ;;55887074550
 ;;9002226.02101,"1044,55887074550 ",.02)
 ;;55887074550
 ;;9002226.02101,"1044,55887087130 ",.01)
 ;;55887087130
 ;;9002226.02101,"1044,55887087130 ",.02)
 ;;55887087130
 ;;9002226.02101,"1044,55887092530 ",.01)
 ;;55887092530
 ;;9002226.02101,"1044,55887092530 ",.02)
 ;;55887092530
 ;;9002226.02101,"1044,55887092560 ",.01)
 ;;55887092560
 ;;9002226.02101,"1044,55887092560 ",.02)
 ;;55887092560
 ;;9002226.02101,"1044,55887092582 ",.01)
 ;;55887092582
 ;;9002226.02101,"1044,55887092582 ",.02)
 ;;55887092582
 ;;9002226.02101,"1044,55887092590 ",.01)
 ;;55887092590
 ;;9002226.02101,"1044,55887092590 ",.02)
 ;;55887092590
 ;;9002226.02101,"1044,55887094730 ",.01)
 ;;55887094730
 ;;9002226.02101,"1044,55887094730 ",.02)
 ;;55887094730
 ;;9002226.02101,"1044,57228030403 ",.01)
 ;;57228030403
 ;;9002226.02101,"1044,57228030403 ",.02)
 ;;57228030403
 ;;9002226.02101,"1044,57228030406 ",.01)
 ;;57228030406
 ;;9002226.02101,"1044,57228030406 ",.02)
 ;;57228030406
 ;;9002226.02101,"1044,57297035101 ",.01)
 ;;57297035101
 ;;9002226.02101,"1044,57297035101 ",.02)
 ;;57297035101
 ;;9002226.02101,"1044,57297035103 ",.01)
 ;;57297035103
 ;;9002226.02101,"1044,57297035103 ",.02)
 ;;57297035103
 ;;9002226.02101,"1044,57297035106 ",.01)
 ;;57297035106
 ;;9002226.02101,"1044,57297035106 ",.02)
 ;;57297035106
 ;;9002226.02101,"1044,57297035108 ",.01)
 ;;57297035108
 ;;9002226.02101,"1044,57297035108 ",.02)
 ;;57297035108
 ;;9002226.02101,"1044,57297035109 ",.01)
 ;;57297035109
 ;;9002226.02101,"1044,57297035109 ",.02)
 ;;57297035109
 ;;9002226.02101,"1044,57297035201 ",.01)
 ;;57297035201
 ;;9002226.02101,"1044,57297035201 ",.02)
 ;;57297035201
 ;;9002226.02101,"1044,57297035202 ",.01)
 ;;57297035202
 ;;9002226.02101,"1044,57297035202 ",.02)
 ;;57297035202
 ;;9002226.02101,"1044,57297035203 ",.01)
 ;;57297035203
 ;;9002226.02101,"1044,57297035203 ",.02)
 ;;57297035203
 ;;9002226.02101,"1044,57297035205 ",.01)
 ;;57297035205
 ;;9002226.02101,"1044,57297035205 ",.02)
 ;;57297035205
 ;;9002226.02101,"1044,57297035206 ",.01)
 ;;57297035206
 ;;9002226.02101,"1044,57297035206 ",.02)
 ;;57297035206
 ;;9002226.02101,"1044,57297035209 ",.01)
 ;;57297035209
 ;;9002226.02101,"1044,57297035209 ",.02)
 ;;57297035209
 ;;9002226.02101,"1044,57297035211 ",.01)
 ;;57297035211
 ;;9002226.02101,"1044,57297035211 ",.02)
 ;;57297035211
 ;;9002226.02101,"1044,57297035301 ",.01)
 ;;57297035301
 ;;9002226.02101,"1044,57297035301 ",.02)
 ;;57297035301
 ;;9002226.02101,"1044,57297035302 ",.01)
 ;;57297035302
 ;;9002226.02101,"1044,57297035302 ",.02)
 ;;57297035302
 ;;9002226.02101,"1044,57297035303 ",.01)
 ;;57297035303
 ;;9002226.02101,"1044,57297035303 ",.02)
 ;;57297035303
 ;;9002226.02101,"1044,57297035305 ",.01)
 ;;57297035305
 ;;9002226.02101,"1044,57297035305 ",.02)
 ;;57297035305
 ;;9002226.02101,"1044,57297035306 ",.01)
 ;;57297035306
 ;;9002226.02101,"1044,57297035306 ",.02)
 ;;57297035306
 ;;9002226.02101,"1044,57297035309 ",.01)
 ;;57297035309
 ;;9002226.02101,"1044,57297035309 ",.02)
 ;;57297035309
 ;;9002226.02101,"1044,57297035311 ",.01)
 ;;57297035311
 ;;9002226.02101,"1044,57297035311 ",.02)
 ;;57297035311
 ;;9002226.02101,"1044,57315001301 ",.01)
 ;;57315001301
 ;;9002226.02101,"1044,57315001301 ",.02)
 ;;57315001301
 ;;9002226.02101,"1044,57315001302 ",.01)
 ;;57315001302
 ;;9002226.02101,"1044,57315001302 ",.02)
 ;;57315001302
 ;;9002226.02101,"1044,57315001303 ",.01)
 ;;57315001303
 ;;9002226.02101,"1044,57315001303 ",.02)
 ;;57315001303
 ;;9002226.02101,"1044,57315003101 ",.01)
 ;;57315003101
 ;;9002226.02101,"1044,57315003101 ",.02)
 ;;57315003101
 ;;9002226.02101,"1044,57315003102 ",.01)
 ;;57315003102
 ;;9002226.02101,"1044,57315003102 ",.02)
 ;;57315003102
 ;;9002226.02101,"1044,57315003103 ",.01)
 ;;57315003103
 ;;9002226.02101,"1044,57315003103 ",.02)
 ;;57315003103
 ;;9002226.02101,"1044,57315003104 ",.01)
 ;;57315003104
 ;;9002226.02101,"1044,57315003104 ",.02)
 ;;57315003104
 ;;9002226.02101,"1044,57315003201 ",.01)
 ;;57315003201
 ;;9002226.02101,"1044,57315003201 ",.02)
 ;;57315003201
 ;;9002226.02101,"1044,57315003202 ",.01)
 ;;57315003202
 ;;9002226.02101,"1044,57315003202 ",.02)
 ;;57315003202
 ;;9002226.02101,"1044,57315003203 ",.01)
 ;;57315003203
 ;;9002226.02101,"1044,57315003203 ",.02)
 ;;57315003203
 ;;9002226.02101,"1044,57315003204 ",.01)
 ;;57315003204
 ;;9002226.02101,"1044,57315003204 ",.02)
 ;;57315003204
 ;;9002226.02101,"1044,57315003205 ",.01)
 ;;57315003205
 ;;9002226.02101,"1044,57315003205 ",.02)
 ;;57315003205
 ;;9002226.02101,"1044,57315003206 ",.01)
 ;;57315003206
 ;;9002226.02101,"1044,57315003206 ",.02)
 ;;57315003206
 ;;9002226.02101,"1044,57315004301 ",.01)
 ;;57315004301
 ;;9002226.02101,"1044,57315004301 ",.02)
 ;;57315004301
 ;;9002226.02101,"1044,57315004302 ",.01)
 ;;57315004302
 ;;9002226.02101,"1044,57315004302 ",.02)
 ;;57315004302
 ;;9002226.02101,"1044,57315004303 ",.01)
 ;;57315004303
 ;;9002226.02101,"1044,57315004303 ",.02)
 ;;57315004303
 ;;9002226.02101,"1044,57315004401 ",.01)
 ;;57315004401
 ;;9002226.02101,"1044,57315004401 ",.02)
 ;;57315004401
 ;;9002226.02101,"1044,57315004402 ",.01)
 ;;57315004402