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