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

BGPM5BEH.m

Go to the documentation of this file.
BGPM5BEH ;IHS/MSC/MMT-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)
 ;;21,"11819012160 ")
 ;;269
 ;;21,"11819012190 ")
 ;;270
 ;;21,"12634049060 ")
 ;;2052
 ;;21,"12634072960 ")
 ;;2053
 ;;21,"12634075690 ")
 ;;271
 ;;21,"12634078480 ")
 ;;2054
 ;;21,"12634078912 ")
 ;;272
 ;;21,"12634079012 ")
 ;;2055
 ;;21,"13107000801 ")
 ;;273
 ;;21,"13107000805 ")
 ;;274
 ;;21,"13107000849 ")
 ;;275
 ;;21,"13107000850 ")
 ;;276
 ;;21,"13107000860 ")
 ;;277
 ;;21,"13107000890 ")
 ;;278
 ;;21,"13107000901 ")
 ;;279
 ;;21,"13107000905 ")
 ;;280
 ;;21,"13107000922 ")
 ;;281
 ;;21,"13107000950 ")
 ;;282
 ;;21,"13107000960 ")
 ;;283
 ;;21,"13107000990 ")
 ;;284
 ;;21,"13107001001 ")
 ;;285
 ;;21,"13107001005 ")
 ;;286
 ;;21,"13107001026 ")
 ;;287
 ;;21,"13107001050 ")
 ;;288
 ;;21,"13107001090 ")
 ;;289
 ;;21,"13411016302 ")
 ;;290
 ;;21,"13411016303 ")
 ;;291
 ;;21,"13411016306 ")
 ;;292
 ;;21,"13411016309 ")
 ;;293
 ;;21,"13411016310 ")
 ;;294
 ;;21,"13411016402 ")
 ;;295
 ;;21,"13411016403 ")
 ;;296
 ;;21,"13411016406 ")
 ;;297
 ;;21,"13411016409 ")
 ;;298
 ;;21,"13411016410 ")
 ;;299
 ;;21,"13411022001 ")
 ;;2056
 ;;21,"13411022002 ")
 ;;2057
 ;;21,"13411022003 ")
 ;;2058
 ;;21,"13411022006 ")
 ;;2059
 ;;21,"13411022010 ")
 ;;2060
 ;;21,"13411022101 ")
 ;;2061
 ;;21,"13411022102 ")
 ;;2062
 ;;21,"13411022103 ")
 ;;2063
 ;;21,"13411022106 ")
 ;;2064
 ;;21,"13411022110 ")
 ;;2065
 ;;21,"13411022302 ")
 ;;300
 ;;21,"13411022303 ")
 ;;301
 ;;21,"13411022306 ")
 ;;302
 ;;21,"13411022309 ")
 ;;303
 ;;21,"13411022310 ")
 ;;304
 ;;21,"13411034603 ")
 ;;2066
 ;;21,"13411034703 ")
 ;;2067
 ;;21,"13411034803 ")
 ;;2068
 ;;21,"13411034903 ")
 ;;2069
 ;;21,"13411035003 ")
 ;;2070
 ;;21,"13668000101 ")
 ;;305
 ;;21,"13668000105 ")
 ;;306
 ;;21,"13668000110 ")
 ;;307
 ;;21,"13668000112 ")
 ;;308
 ;;21,"13668000130 ")
 ;;309
 ;;21,"13668000160 ")
 ;;310
 ;;21,"13668000190 ")
 ;;311
 ;;21,"13668000201 ")
 ;;312
 ;;21,"13668000205 ")
 ;;313
 ;;21,"13668000212 ")
 ;;314
 ;;21,"13668000230 ")
 ;;315
 ;;21,"13668000260 ")
 ;;316
 ;;21,"13668000290 ")
 ;;317
 ;;21,"13668000301 ")
 ;;318
 ;;21,"13668000305 ")
 ;;319
 ;;21,"13668000312 ")
 ;;320
 ;;21,"13668000330 ")
 ;;321
 ;;21,"13668000360 ")
 ;;322
 ;;21,"13668000390 ")
 ;;323
 ;;21,"13668001205 ")
 ;;324
 ;;21,"13668001212 ")
 ;;325
 ;;21,"13668001230 ")
 ;;326
 ;;21,"13668001260 ")
 ;;327
 ;;21,"13668001290 ")
 ;;328
 ;;21,"13668001305 ")
 ;;329
 ;;21,"13668001312 ")
 ;;330
 ;;21,"13668001330 ")
 ;;331
 ;;21,"13668001360 ")
 ;;332
 ;;21,"13668001390 ")
 ;;333
 ;;21,"14550020210 ")
 ;;334
 ;;21,"14550020250 ")
 ;;335
 ;;21,"14550051702 ")
 ;;1
 ;;21,"14550051704 ")
 ;;2
 ;;21,"14550051802 ")
 ;;3
 ;;21,"14550051804 ")
 ;;4
 ;;21,"14550051902 ")
 ;;5
 ;;21,"14550051904 ")
 ;;6
 ;;21,"14565020210 ")
 ;;342
 ;;21,"14565020250 ")
 ;;343
 ;;21,"14593040901 ")
 ;;344
 ;;21,"14593040902 ")
 ;;345
 ;;21,"14593040905 ")
 ;;346
 ;;21,"14593040910 ")
 ;;347
 ;;21,"14593041001 ")
 ;;348
 ;;21,"14593041010 ")
 ;;349
 ;;21,"14593041101 ")
 ;;350
 ;;21,"14593041110 ")
 ;;351
 ;;21,"15548096701 ")
 ;;7
 ;;21,"15548096705 ")
 ;;8
 ;;21,"15548096801 ")
 ;;9
 ;;21,"15548096805 ")
 ;;10
 ;;21,"16252051801 ")
 ;;2081
 ;;21,"16252051901 ")
 ;;2082
 ;;21,"16252052001 ")
 ;;2083
 ;;21,"16252052300 ")
 ;;4339
 ;;21,"16252052301 ")
 ;;4340
 ;;21,"16252052400 ")
 ;;4341
 ;;21,"16252052401 ")
 ;;4342
 ;;21,"16252052500 ")
 ;;4343
 ;;21,"16252052501 ")
 ;;4344
 ;;21,"16364000101 ")
 ;;2084
 ;;21,"16364000201 ")
 ;;2085
 ;;21,"16364000301 ")
 ;;2086
 ;;21,"16590028730 ")
 ;;2087
 ;;21,"16590028760 ")
 ;;2088
 ;;21,"16590028771 ")
 ;;2089
 ;;21,"16590028790 ")
 ;;2090
 ;;21,"16590031330 ")
 ;;356
 ;;21,"16590031360 ")
 ;;357
 ;;21,"16590031390 ")
 ;;358
 ;;21,"16590041860 ")
 ;;11
 ;;21,"16729000101 ")
 ;;2092
 ;;21,"16729000201 ")
 ;;2093
 ;;21,"16729000301 ")
 ;;2094
 ;;21,"16729013900 ")
 ;;2095
 ;;21,"16729013916 ")
 ;;2096
 ;;21,"16729013917 ")
 ;;2097
 ;;21,"16729014000 ")
 ;;2098
 ;;21,"16729014016 ")
 ;;2099
 ;;21,"16729014017 ")
 ;;2100
 ;;21,"17856084402 ")
 ;;2101
 ;;21,"17856087302 ")
 ;;2102
 ;;21,"17856289802 ")
 ;;2103
 ;;21,"17856315802 ")
 ;;2104
 ;;21,"20091053101 ")
 ;;360
 ;;21,"20091053105 ")
 ;;361
 ;;21,"20091053110 ")
 ;;362
 ;;21,"20091053301 ")
 ;;363
 ;;21,"20091053305 ")
 ;;364
 ;;21,"20091053310 ")
 ;;365
 ;;21,"20091053501 ")
 ;;366
 ;;21,"20091053505 ")
 ;;367
 ;;21,"20091053510 ")
 ;;368
 ;;21,"21695046730 ")
 ;;2105
 ;;21,"21695046760 ")
 ;;2106
 ;;21,"21695046830 ")
 ;;2107
 ;;21,"21695046860 ")
 ;;2108
 ;;21,"21695046872 ")
 ;;2109
 ;;21,"21695046878 ")
 ;;2110
 ;;21,"21695046930 ")
 ;;2111
 ;;21,"21695046990 ")
 ;;2112
 ;;21,"21695047000 ")
 ;;2113
 ;;21,"21695047030 ")
 ;;2114
 ;;21,"21695047060 ")
 ;;2115
 ;;21,"21695047078 ")
 ;;2116
 ;;21,"21695047090 ")
 ;;2117
 ;;21,"21695047100 ")
 ;;369
 ;;21,"21695047130 ")
 ;;370
 ;;21,"21695047160 ")
 ;;371
 ;;21,"21695047178 ")
 ;;372
 ;;21,"21695047190 ")
 ;;373
 ;;21,"21695047230 ")
 ;;374
 ;;21,"21695047260 ")
 ;;375
 ;;21,"21695047300 ")
 ;;376
 ;;21,"21695047330 ")
 ;;377
 ;;21,"21695047360 ")
 ;;378
 ;;21,"21695047378 ")
 ;;379
 ;;21,"21695047390 ")
 ;;380
 ;;21,"21695056830 ")
 ;;12
 ;;21,"21695074630 ")
 ;;2119
 ;;21,"21695074690 ")
 ;;2120
 ;;21,"21695074730 ")
 ;;2121
 ;;21,"21695074760 ")
 ;;2122
 ;;21,"21695074790 ")
 ;;2123
 ;;21,"21695082860 ")
 ;;382
 ;;21,"21695082890 ")
 ;;383
 ;;21,"21695089400 ")
 ;;13
 ;;21,"23155005601 ")
 ;;2125
 ;;21,"23155005610 ")
 ;;2126
 ;;21,"23155005701 ")
 ;;2127
 ;;21,"23155005710 ")
 ;;2128
 ;;21,"23155005801 ")
 ;;2129
 ;;21,"23155005810 ")
 ;;2130
 ;;21,"23155010201 ")
 ;;385
 ;;21,"23155010205 ")
 ;;386
 ;;21,"23155010210 ")
 ;;387
 ;;21,"23155010301 ")
 ;;388
 ;;21,"23155010305 ")
 ;;389
 ;;21,"23155010310 ")
 ;;390
 ;;21,"23155010401 ")
 ;;391
 ;;21,"23155010405 ")
 ;;392
 ;;21,"23155010410 ")
 ;;393
 ;;21,"23155011501 ")
 ;;14
 ;;21,"23155011510 ")
 ;;15
 ;;21,"23155011601 ")
 ;;16
 ;;21,"23155011610 ")
 ;;17
 ;;21,"23155011701 ")
 ;;18
 ;;21,"23155011710 ")
 ;;19
 ;;21,"23490046000 ")
 ;;2137
 ;;21,"23490046100 ")
 ;;2138
 ;;21,"23490064103 ")
 ;;2139
 ;;21,"23490064106 ")
 ;;2140
 ;;21,"23490064200 ")
 ;;2141
 ;;21,"23490064203 ")
 ;;2142
 ;;21,"23490064206 ")
 ;;2143
 ;;21,"23490064209 ")
 ;;2144
 ;;21,"23490089800 ")
 ;;400
 ;;21,"23490089803 ")
 ;;401
 ;;21,"23490089806 ")
 ;;402
 ;;21,"23490089809 ")
 ;;403
 ;;21,"23490089900 ")
 ;;404
 ;;21,"23490089906 ")
 ;;405
 ;;21,"23490090003 ")
 ;;406
 ;;21,"23490090006 ")
 ;;407
 ;;21,"23490112807 ")
 ;;2145
 ;;21,"23490563201 ")
 ;;2146
 ;;21,"23490563202 ")
 ;;2147
 ;;21,"23490563203 ")
 ;;2148
 ;;21,"23490563301 ")
 ;;2149
 ;;21,"23490563403 ")
 ;;2150
 ;;21,"23490563503 ")
 ;;2151
 ;;21,"23490563801 ")
 ;;2152
 ;;21,"23490563802 ")
 ;;2153
 ;;21,"23490563901 ")
 ;;2154
 ;;21,"23490563902 ")
 ;;2155
 ;;21,"23490683801 ")
 ;;408
 ;;21,"23490683802 ")
 ;;409
 ;;21,"23490683803 ")
 ;;410
 ;;21,"23490683804 ")
 ;;411
 ;;21,"23490683901 ")
 ;;412
 ;;21,"23490683902 ")
 ;;413
 ;;21,"23490683903 ")
 ;;414
 ;;21,"23490683904 ")
 ;;415
 ;;21,"23490726001 ")
 ;;416
 ;;21,"23490726002 ")
 ;;417
 ;;21,"23490726003 ")
 ;;418
 ;;21,"23490726004 ")
 ;;419
 ;;21,"23490744901 ")
 ;;20
 ;;21,"23490745806 ")
 ;;421
 ;;21,"24196054501 ")
 ;;2157
 ;;21,"24196054505 ")
 ;;2158
 ;;21,"24196054510 ")
 ;;2159
 ;;21,"24196054601 ")
 ;;2160
 ;;21,"24196054605 ")
 ;;2161
 ;;21,"24196054610 ")
 ;;2162
 ;;21,"24236006402 ")
 ;;2163
 ;;21,"24236008702 ")
 ;;422
 ;;21,"24236015702 ")
 ;;423
 ;;21,"24236017202 ")
 ;;2164
 ;;21,"24236017702 ")
 ;;424
 ;;21,"24236018002 ")
 ;;2165
 ;;21,"24236021602 ")
 ;;2166
 ;;21,"24236023602 ")
 ;;425
 ;;21,"24236025202 ")
 ;;2167
 ;;21,"24236025502 ")
 ;;2168
 ;;21,"24236026602 ")
 ;;2169
 ;;21,"24236027602 ")
 ;;2170
 ;;21,"24236030402 ")
 ;;426
 ;;21,"24236031602 ")
 ;;427
 ;;21,"24236034002 ")
 ;;428
 ;;21,"24236036802 ")
 ;;2171
 ;;21,"24236038102 ")
 ;;2172
 ;;21,"24236043102 ")
 ;;2173
 ;;21,"24236048902 ")
 ;;2174
 ;;21,"24236056802 ")
 ;;429
 ;;21,"24236063202 ")
 ;;2175
 ;;21,"24236071502 ")
 ;;430
 ;;21,"24236079102 ")
 ;;431
 ;;21,"24236079902 ")
 ;;2176
 ;;21,"24236090802 ")
 ;;432
 ;;21,"24236098802 ")
 ;;433
 ;;21,"24236099402 ")
 ;;434
 ;;21,"24724001401 ")
 ;;435
 ;;21,"24724001450 ")
 ;;436
 ;;21,"24724001501 ")
 ;;437
 ;;21,"24724001550 ")
 ;;438
 ;;21,"24724001601 ")
 ;;439
 ;;21,"24724001650 ")
 ;;440
 ;;21,"26053006701 ")
 ;;2177
 ;;21,"26053015701 ")
 ;;2178
 ;;21,"26053015801 ")
 ;;2179
 ;;21,"26053015901 ")
 ;;2180
 ;;21,"26053016001 ")
 ;;2181
 ;;21,"26053016101 ")
 ;;2182
 ;;21,"26053016201 ")
 ;;2183
 ;;21,"26053016301 ")
 ;;2184
 ;;21,"26053016401 ")
 ;;21
 ;;21,"26053022001 ")
 ;;442
 ;;21,"26053022101 ")
 ;;443
 ;;21,"26053043901 ")
 ;;444
 ;;21,"33358015730 ")
 ;;2186
 ;;21,"33358015760 ")
 ;;2187
 ;;21,"33358015800 ")
 ;;2188
 ;;21,"33358015830 ")
 ;;2189
 ;;21,"33358015860 ")
 ;;2190
 ;;21,"33358016030 ")
 ;;2191
 ;;21,"33358016060 ")
 ;;2192
 ;;21,"33358016101 ")
 ;;2193
 ;;21,"33358016130 ")
 ;;2194
 ;;21,"33358016160 ")
 ;;2195
 ;;21,"33358023400 ")
 ;;445
 ;;21,"33358023430 ")
 ;;446
 ;;21,"33358023460 ")
 ;;447
 ;;21,"33358023560 ")
 ;;448
 ;;21,"33358023630 ")
 ;;449
 ;;21,"33358023660 ")
 ;;450
 ;;21,"33358023730 ")
 ;;451
 ;;21,"33358023760 ")
 ;;452
 ;;21,"33358046530 ")
 ;;453
 ;;21,"35356011300 ")
 ;;2196
 ;;21,"35356011330 ")
 ;;2197
 ;;21,"35356026928 ")
 ;;454
 ;;21,"35356036030 ")
 ;;2198
 ;;21,"41284052301 ")
 ;;4345
 ;;21,"41284052400 ")
 ;;4346
 ;;21,"41284052401 ")
 ;;4347
 ;;21,"41284052500 ")
 ;;4348
 ;;21,"41284052501 ")
 ;;4349
 ;;21,"42291030790 ")
 ;;2199
 ;;21,"42291030890 ")
 ;;2200
 ;;21,"42291030990 ")
 ;;2201
 ;;21,"42291061018 ")
 ;;455
 ;;21,"42291061036 ")
 ;;456
 ;;21,"42291061090 ")
 ;;457
 ;;21,"42291061118 ")
 ;;458
 ;;21,"43063001201 ")
 ;;459
 ;;21,"43063003430 ")
 ;;2202
 ;;21,"43063003490 ")
 ;;2203
 ;;21,"43063011990 ")
 ;;2204
 ;;21,"43063012090 ")
 ;;2205
 ;;21,"43063012130 ")
 ;;2206
 ;;21,"43063012190 ")
 ;;2207
 ;;21,"43063012230 ")
 ;;2208
 ;;21,"43063012290 ")
 ;;2209
 ;;21,"43353006553 ")
 ;;460
 ;;21,"43353006560 ")
 ;;461
 ;;21,"43353006580 ")
 ;;462
 ;;21,"43353006594 ")
 ;;463
 ;;21,"43353012530 ")
 ;;464
 ;;21,"43353012560 ")
 ;;465
 ;;21,"43353012630 ")
 ;;466
 ;;21,"43353012660 ")
 ;;467
 ;;21,"43353017145 ")
 ;;468
 ;;21,"43353017153 ")
 ;;469
 ;;21,"43353017160 ")
 ;;470
 ;;21,"43353017180 ")
 ;;471
 ;;21,"43353026160 ")
 ;;2210
 ;;21,"43353034030 ")
 ;;472
 ;;21,"43353034053 ")
 ;;473
 ;;21,"43353034060 ")
 ;;474
 ;;21,"43353034070 ")
 ;;475
 ;;21,"43353034075 ")
 ;;476
 ;;21,"43353034080 ")
 ;;477