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

BGPM5BEI.m

Go to the documentation of this file.
  1. BGPM5BEI ;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,"43353034092 ")
  1. ;;478
  1. ;;21,"43353034094 ")
  1. ;;479
  1. ;;21,"43353034096 ")
  1. ;;480
  1. ;;21,"43353034453 ")
  1. ;;481
  1. ;;21,"43353034460 ")
  1. ;;482
  1. ;;21,"43353034480 ")
  1. ;;483
  1. ;;21,"43353034492 ")
  1. ;;484
  1. ;;21,"43353034930 ")
  1. ;;485
  1. ;;21,"43353034945 ")
  1. ;;486
  1. ;;21,"43353034953 ")
  1. ;;487
  1. ;;21,"43353034960 ")
  1. ;;488
  1. ;;21,"43353034973 ")
  1. ;;489
  1. ;;21,"43353034980 ")
  1. ;;490
  1. ;;21,"43353034986 ")
  1. ;;491
  1. ;;21,"43353036953 ")
  1. ;;2211
  1. ;;21,"43353036960 ")
  1. ;;2212
  1. ;;21,"43353036970 ")
  1. ;;2213
  1. ;;21,"43353036980 ")
  1. ;;2214
  1. ;;21,"43353036992 ")
  1. ;;2215
  1. ;;21,"43353036994 ")
  1. ;;2216
  1. ;;21,"43353037960 ")
  1. ;;2217
  1. ;;21,"43353037980 ")
  1. ;;2218
  1. ;;21,"43353047730 ")
  1. ;;492
  1. ;;21,"43353047732 ")
  1. ;;493
  1. ;;21,"43353047753 ")
  1. ;;494
  1. ;;21,"43353047760 ")
  1. ;;495
  1. ;;21,"43353047770 ")
  1. ;;496
  1. ;;21,"43353047780 ")
  1. ;;497
  1. ;;21,"43353047792 ")
  1. ;;498
  1. ;;21,"43353047794 ")
  1. ;;499
  1. ;;21,"43353047796 ")
  1. ;;500
  1. ;;21,"43353048060 ")
  1. ;;501
  1. ;;21,"43353051430 ")
  1. ;;502
  1. ;;21,"43353051445 ")
  1. ;;503
  1. ;;21,"43353051453 ")
  1. ;;504
  1. ;;21,"43353051460 ")
  1. ;;505
  1. ;;21,"43353051473 ")
  1. ;;506
  1. ;;21,"43353051480 ")
  1. ;;507
  1. ;;21,"43353051486 ")
  1. ;;508
  1. ;;21,"43353052060 ")
  1. ;;509
  1. ;;21,"43353052080 ")
  1. ;;510
  1. ;;21,"43353053060 ")
  1. ;;511
  1. ;;21,"43353053080 ")
  1. ;;512
  1. ;;21,"43353058280 ")
  1. ;;2219
  1. ;;21,"43353058594 ")
  1. ;;513
  1. ;;21,"43353058930 ")
  1. ;;514
  1. ;;21,"43353058953 ")
  1. ;;515
  1. ;;21,"43353058960 ")
  1. ;;516
  1. ;;21,"43353058970 ")
  1. ;;517
  1. ;;21,"43353058975 ")
  1. ;;518
  1. ;;21,"43353058980 ")
  1. ;;519
  1. ;;21,"43353058992 ")
  1. ;;520
  1. ;;21,"43353058994 ")
  1. ;;521
  1. ;;21,"43353058996 ")
  1. ;;522
  1. ;;21,"43547024810 ")
  1. ;;523
  1. ;;21,"43547024850 ")
  1. ;;524
  1. ;;21,"43547024910 ")
  1. ;;525
  1. ;;21,"43547024950 ")
  1. ;;526
  1. ;;21,"43547025010 ")
  1. ;;527
  1. ;;21,"43547025050 ")
  1. ;;528
  1. ;;21,"43683012360 ")
  1. ;;2220
  1. ;;21,"43683012430 ")
  1. ;;2221
  1. ;;21,"43683013130 ")
  1. ;;529
  1. ;;21,"43683013160 ")
  1. ;;530
  1. ;;21,"43683013230 ")
  1. ;;531
  1. ;;21,"43806003440 ")
  1. ;;2222
  1. ;;21,"43806003441 ")
  1. ;;2223
  1. ;;21,"43806003540 ")
  1. ;;2224
  1. ;;21,"43806003541 ")
  1. ;;2225
  1. ;;21,"43806003570 ")
  1. ;;2226
  1. ;;21,"43806003580 ")
  1. ;;2227
  1. ;;21,"43806003640 ")
  1. ;;2228
  1. ;;21,"43806004840 ")
  1. ;;532
  1. ;;21,"43806004870 ")
  1. ;;533
  1. ;;21,"43806004880 ")
  1. ;;534
  1. ;;21,"43806004940 ")
  1. ;;535
  1. ;;21,"43806004970 ")
  1. ;;536
  1. ;;21,"43806004980 ")
  1. ;;537
  1. ;;21,"43806005040 ")
  1. ;;538
  1. ;;21,"43806005070 ")
  1. ;;539
  1. ;;21,"43806005080 ")
  1. ;;540
  1. ;;21,"43806034240 ")
  1. ;;2229
  1. ;;21,"43806034270 ")
  1. ;;2230
  1. ;;21,"43806034327 ")
  1. ;;2231
  1. ;;21,"43806034335 ")
  1. ;;2232
  1. ;;21,"43806034340 ")
  1. ;;2233
  1. ;;21,"43806034370 ")
  1. ;;2234
  1. ;;21,"43806034380 ")
  1. ;;2235
  1. ;;21,"43806034440 ")
  1. ;;2236
  1. ;;21,"43806034470 ")
  1. ;;2237
  1. ;;21,"43806034480 ")
  1. ;;2238
  1. ;;21,"43806052440 ")
  1. ;;2239
  1. ;;21,"43806052441 ")
  1. ;;2240
  1. ;;21,"43806052470 ")
  1. ;;2241
  1. ;;21,"43806052480 ")
  1. ;;2242
  1. ;;21,"43806052540 ")
  1. ;;2243
  1. ;;21,"43806052541 ")
  1. ;;2244
  1. ;;21,"43806052570 ")
  1. ;;2245
  1. ;;21,"43806052580 ")
  1. ;;2246
  1. ;;21,"44514038536 ")
  1. ;;2247
  1. ;;21,"45802077078 ")
  1. ;;2248
  1. ;;21,"45802077093 ")
  1. ;;2249
  1. ;;21,"45802082278 ")
  1. ;;2250
  1. ;;21,"45802082293 ")
  1. ;;2251
  1. ;;21,"45802094778 ")
  1. ;;2252
  1. ;;21,"45802094793 ")
  1. ;;2253
  1. ;;21,"45963075302 ")
  1. ;;22
  1. ;;21,"45963075304 ")
  1. ;;23
  1. ;;21,"49349003702 ")
  1. ;;2254
  1. ;;21,"49349004302 ")
  1. ;;541
  1. ;;21,"49349009202 ")
  1. ;;2255
  1. ;;21,"49349009230 ")
  1. ;;2256
  1. ;;21,"49349017002 ")
  1. ;;2257
  1. ;;21,"49349017502 ")
  1. ;;2258
  1. ;;21,"49349020102 ")
  1. ;;542
  1. ;;21,"49349022802 ")
  1. ;;2259
  1. ;;21,"49349023202 ")
  1. ;;543
  1. ;;21,"49349027202 ")
  1. ;;2260
  1. ;;21,"49349067524 ")
  1. ;;544
  1. ;;21,"49349071902 ")
  1. ;;2261
  1. ;;21,"49856019004 ")
  1. ;;545
  1. ;;21,"49856019100 ")
  1. ;;546
  1. ;;21,"49856019101 ")
  1. ;;547
  1. ;;21,"49856019104 ")
  1. ;;548
  1. ;;21,"49856019200 ")
  1. ;;549
  1. ;;21,"49856019201 ")
  1. ;;550
  1. ;;21,"49856019204 ")
  1. ;;551
  1. ;;21,"49856026001 ")
  1. ;;552
  1. ;;21,"49856026002 ")
  1. ;;553
  1. ;;21,"49856132901 ")
  1. ;;554
  1. ;;21,"49856132903 ")
  1. ;;555
  1. ;;21,"49856132905 ")
  1. ;;556
  1. ;;21,"49884073601 ")
  1. ;;557
  1. ;;21,"49884073605 ")
  1. ;;558
  1. ;;21,"49884073701 ")
  1. ;;559
  1. ;;21,"49884073705 ")
  1. ;;560
  1. ;;21,"49884073801 ")
  1. ;;561
  1. ;;21,"49884073805 ")
  1. ;;562
  1. ;;21,"49884073901 ")
  1. ;;563
  1. ;;21,"49884073905 ")
  1. ;;564
  1. ;;21,"49884074001 ")
  1. ;;565
  1. ;;21,"49884074005 ")
  1. ;;566
  1. ;;21,"49884074101 ")
  1. ;;567
  1. ;;21,"49884074105 ")
  1. ;;568
  1. ;;21,"49884084501 ")
  1. ;;2262
  1. ;;21,"49884084510 ")
  1. ;;2263
  1. ;;21,"49884084601 ")
  1. ;;2264
  1. ;;21,"49884084610 ")
  1. ;;2265
  1. ;;21,"49884084701 ")
  1. ;;2266
  1. ;;21,"49884084710 ")
  1. ;;2267
  1. ;;21,"49884098401 ")
  1. ;;2001
  1. ;;21,"49884098405 ")
  1. ;;2002
  1. ;;21,"49884098410 ")
  1. ;;2003
  1. ;;21,"49884098501 ")
  1. ;;2004
  1. ;;21,"49884098505 ")
  1. ;;2005
  1. ;;21,"49884098510 ")
  1. ;;2006
  1. ;;21,"49999010600 ")
  1. ;;569
  1. ;;21,"49999010601 ")
  1. ;;570
  1. ;;21,"49999010628 ")
  1. ;;571
  1. ;;21,"49999010630 ")
  1. ;;572
  1. ;;21,"49999010660 ")
  1. ;;573
  1. ;;21,"49999010690 ")
  1. ;;574
  1. ;;21,"49999010700 ")
  1. ;;2268
  1. ;;21,"49999010720 ")
  1. ;;2269
  1. ;;21,"49999010730 ")
  1. ;;2270
  1. ;;21,"49999010760 ")
  1. ;;2271
  1. ;;21,"49999010790 ")
  1. ;;2272
  1. ;;21,"49999010800 ")
  1. ;;2273
  1. ;;21,"49999010830 ")
  1. ;;2274
  1. ;;21,"49999010860 ")
  1. ;;2275
  1. ;;21,"49999011300 ")
  1. ;;2276
  1. ;;21,"49999011301 ")
  1. ;;2277
  1. ;;21,"49999011330 ")
  1. ;;2278
  1. ;;21,"49999011360 ")
  1. ;;2279
  1. ;;21,"49999011390 ")
  1. ;;2280
  1. ;;21,"49999011600 ")
  1. ;;575
  1. ;;21,"49999011630 ")
  1. ;;576
  1. ;;21,"49999011660 ")
  1. ;;577
  1. ;;21,"49999040130 ")
  1. ;;24
  1. ;;21,"49999040160 ")
  1. ;;25
  1. ;;21,"49999049530 ")
  1. ;;580
  1. ;;21,"49999049560 ")
  1. ;;581
  1. ;;21,"49999051430 ")
  1. ;;2283
  1. ;;21,"49999057160 ")
  1. ;;2284
  1. ;;21,"49999078100 ")
  1. ;;2285
  1. ;;21,"49999080700 ")
  1. ;;2286
  1. ;;21,"49999080800 ")
  1. ;;2287
  1. ;;21,"49999082060 ")
  1. ;;582
  1. ;;21,"50053312701 ")
  1. ;;2288
  1. ;;21,"50053312703 ")
  1. ;;2289
  1. ;;21,"50111037201 ")
  1. ;;2290
  1. ;;21,"50111037202 ")
  1. ;;2291
  1. ;;21,"50111037203 ")
  1. ;;2292
  1. ;;21,"50111037301 ")
  1. ;;2293
  1. ;;21,"50111037302 ")
  1. ;;2294
  1. ;;21,"50111037303 ")
  1. ;;2295
  1. ;;21,"50111037306 ")
  1. ;;2296
  1. ;;21,"50268053115 ")
  1. ;;583
  1. ;;21,"51079020220 ")
  1. ;;2297
  1. ;;21,"51079020320 ")
  1. ;;2298
  1. ;;21,"51079042501 ")
  1. ;;2299
  1. ;;21,"51079042520 ")
  1. ;;2300
  1. ;;21,"51079042601 ")
  1. ;;2301
  1. ;;21,"51079042620 ")
  1. ;;2302
  1. ;;21,"51079056020 ")
  1. ;;2303
  1. ;;21,"51079062620 ")
  1. ;;584
  1. ;;21,"51079062720 ")
  1. ;;585
  1. ;;21,"51079081001 ")
  1. ;;2304
  1. ;;21,"51079081017 ")
  1. ;;2305
  1. ;;21,"51079081019 ")
  1. ;;2306
  1. ;;21,"51079081020 ")
  1. ;;2307
  1. ;;21,"51079081101 ")
  1. ;;2308
  1. ;;21,"51079081117 ")
  1. ;;2309
  1. ;;21,"51079081119 ")
  1. ;;2310
  1. ;;21,"51079081120 ")
  1. ;;2311
  1. ;;21,"51079087201 ")
  1. ;;2312
  1. ;;21,"51079087217 ")
  1. ;;2313
  1. ;;21,"51079087219 ")
  1. ;;2314
  1. ;;21,"51079087220 ")
  1. ;;2315
  1. ;;21,"51079087301 ")
  1. ;;2316
  1. ;;21,"51079087317 ")
  1. ;;2317
  1. ;;21,"51079087319 ")
  1. ;;2318
  1. ;;21,"51079087320 ")
  1. ;;2319
  1. ;;21,"51079097201 ")
  1. ;;586
  1. ;;21,"51079097217 ")
  1. ;;587
  1. ;;21,"51079097219 ")
  1. ;;588
  1. ;;21,"51079097220 ")
  1. ;;589
  1. ;;21,"51079097230 ")
  1. ;;590
  1. ;;21,"51079097256 ")
  1. ;;591
  1. ;;21,"51079097257 ")
  1. ;;592
  1. ;;21,"51079097301 ")
  1. ;;593
  1. ;;21,"51079097320 ")
  1. ;;594
  1. ;;21,"51079099501 ")
  1. ;;595
  1. ;;21,"51079099520 ")
  1. ;;596
  1. ;;21,"51129128801 ")
  1. ;;2320
  1. ;;21,"51129140501 ")
  1. ;;2321
  1. ;;21,"51129145501 ")
  1. ;;2322
  1. ;;21,"51129148601 ")
  1. ;;2323
  1. ;;21,"51129148701 ")
  1. ;;2324
  1. ;;21,"51129157301 ")
  1. ;;2325
  1. ;;21,"51129162701 ")
  1. ;;2326
  1. ;;21,"51129165701 ")
  1. ;;2327
  1. ;;21,"51129171901 ")
  1. ;;2328
  1. ;;21,"51129172001 ")
  1. ;;2329
  1. ;;21,"51129176101 ")
  1. ;;2330
  1. ;;21,"51129176601 ")
  1. ;;2331
  1. ;;21,"51129179001 ")
  1. ;;2332
  1. ;;21,"51129191301 ")
  1. ;;2333
  1. ;;21,"51129191401 ")
  1. ;;2334
  1. ;;21,"51129196301 ")
  1. ;;2335
  1. ;;21,"51129196601 ")
  1. ;;2336
  1. ;;21,"51129203301 ")
  1. ;;2337
  1. ;;21,"51129203401 ")
  1. ;;2338
  1. ;;21,"51129205501 ")
  1. ;;2339
  1. ;;21,"51129206201 ")
  1. ;;597
  1. ;;21,"51129207401 ")
  1. ;;598
  1. ;;21,"51129212701 ")
  1. ;;599
  1. ;;21,"51129231501 ")
  1. ;;600
  1. ;;21,"51129241701 ")
  1. ;;2340
  1. ;;21,"51129241801 ")
  1. ;;2341
  1. ;;21,"51129246001 ")
  1. ;;601
  1. ;;21,"51129246101 ")
  1. ;;602
  1. ;;21,"51129257200 ")
  1. ;;2342
  1. ;;21,"51129261001 ")
  1. ;;603
  1. ;;21,"51129262701 ")
  1. ;;604
  1. ;;21,"51129268701 ")
  1. ;;605
  1. ;;21,"51129272801 ")
  1. ;;2343
  1. ;;21,"51129274501 ")
  1. ;;606
  1. ;;21,"51129284401 ")
  1. ;;2344
  1. ;;21,"51129284402 ")
  1. ;;2345
  1. ;;21,"51129286701 ")
  1. ;;2346
  1. ;;21,"51129286702 ")
  1. ;;2347
  1. ;;21,"51129289601 ")
  1. ;;2348
  1. ;;21,"51129289602 ")
  1. ;;2349
  1. ;;21,"51129292201 ")
  1. ;;607
  1. ;;21,"51129301401 ")
  1. ;;2350
  1. ;;21,"51129301402 ")
  1. ;;2351
  1. ;;21,"51129302401 ")
  1. ;;2352
  1. ;;21,"51129302402 ")
  1. ;;2353
  1. ;;21,"51129306001 ")
  1. ;;608
  1. ;;21,"51129306002 ")
  1. ;;609
  1. ;;21,"51129309801 ")
  1. ;;2354
  1. ;;21,"51129309802 ")
  1. ;;2355
  1. ;;21,"51129316901 ")
  1. ;;2356
  1. ;;21,"51129316902 ")
  1. ;;2357
  1. ;;21,"51129320701 ")
  1. ;;610
  1. ;;21,"51129320702 ")
  1. ;;611
  1. ;;21,"51129323501 ")
  1. ;;2358
  1. ;;21,"51129323502 ")
  1. ;;2359
  1. ;;21,"51129324701 ")
  1. ;;2360
  1. ;;21,"51129324702 ")
  1. ;;2361
  1. ;;21,"51129329601 ")
  1. ;;612
  1. ;;21,"51129329602 ")
  1. ;;613
  1. ;;21,"51129348401 ")
  1. ;;614
  1. ;;21,"51129348402 ")
  1. ;;615
  1. ;;21,"51129349501 ")
  1. ;;2362
  1. ;;21,"51129349502 ")
  1. ;;2363
  1. ;;21,"51129349701 ")
  1. ;;2364
  1. ;;21,"51129349702 ")
  1. ;;2365
  1. ;;21,"51129350901 ")
  1. ;;2366
  1. ;;21,"51129350902 ")
  1. ;;2367
  1. ;;21,"51129351001 ")
  1. ;;2368
  1. ;;21,"51129351002 ")
  1. ;;2369
  1. ;;21,"51129354601 ")
  1. ;;2370
  1. ;;21,"51129354602 ")
  1. ;;2371
  1. ;;21,"51129355601 ")
  1. ;;2372
  1. ;;21,"51129355602 ")
  1. ;;2373
  1. ;;21,"51129359401 ")
  1. ;;616
  1. ;;21,"51129359402 ")
  1. ;;617
  1. ;;21,"51129363601 ")
  1. ;;618
  1. ;;21,"51129363602 ")
  1. ;;619
  1. ;;21,"51129364901 ")
  1. ;;620
  1. ;;21,"51129364902 ")
  1. ;;621
  1. ;;21,"51129365201 ")
  1. ;;2374
  1. ;;21,"51129365202 ")
  1. ;;2375
  1. ;;21,"51129374101 ")
  1. ;;2376
  1. ;;21,"51129374102 ")
  1. ;;2377
  1. ;;21,"51129375201 ")
  1. ;;622
  1. ;;21,"51129375202 ")
  1. ;;623
  1. ;;21,"51129377401 ")
  1. ;;2378
  1. ;;21,"51129377402 ")
  1. ;;2379
  1. ;;21,"51129381001 ")
  1. ;;624
  1. ;;21,"51129381701 ")
  1. ;;2380
  1. ;;21,"51129381702 ")
  1. ;;2381
  1. ;;21,"51129381801 ")
  1. ;;26
  1. ;;21,"51129381802 ")
  1. ;;27
  1. ;;21,"51129384101 ")
  1. ;;627
  1. ;;21,"51129384102 ")
  1. ;;628
  1. ;;21,"51129390801 ")
  1. ;;2384
  1. ;;21,"51129390802 ")
  1. ;;2385
  1. ;;21,"51129394301 ")
  1. ;;629
  1. ;;21,"51129394302 ")
  1. ;;630
  1. ;;21,"51129402201 ")
  1. ;;2386
  1. ;;21,"51129402202 ")
  1. ;;2387
  1. ;;21,"51129403401 ")
  1. ;;631
  1. ;;21,"51129403402 ")
  1. ;;632
  1. ;;21,"51129407701 ")
  1. ;;2388
  1. ;;21,"51129407702 ")
  1. ;;2389
  1. ;;21,"51129413001 ")
  1. ;;633
  1. ;;21,"51129413002 ")
  1. ;;634
  1. ;;21,"51129413101 ")
  1. ;;635
  1. ;;21,"51129413102 ")
  1. ;;636
  1. ;;21,"51129433301 ")
  1. ;;637
  1. ;;21,"51129433302 ")
  1. ;;638
  1. ;;21,"51129444101 ")
  1. ;;2390
  1. ;;21,"51129444102 ")
  1. ;;2391
  1. ;;21,"51129446701 ")
  1. ;;28
  1. ;;21,"51129455501 ")
  1. ;;2393
  1. ;;21,"51129455502 ")
  1. ;;2394
  1. ;;21,"51129469201 ")
  1. ;;29
  1. ;;21,"51129469202 ")
  1. ;;30
  1. ;;21,"51129536301 ")
  1. ;;2397
  1. ;;21,"51138007430 ")
  1. ;;642
  1. ;;21,"51138007530 ")
  1. ;;643
  1. ;;21,"51138007630 ")
  1. ;;644
  1. ;;21,"51138008330 ")
  1. ;;645
  1. ;;21,"51138008430 ")
  1. ;;646