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

BGP33O7.m

Go to the documentation of this file.
BGP33O7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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,"66685-0302-02 ")
 ;;2339
 ;;21,"66685-0303-00 ")
 ;;2340
 ;;21,"66685-0303-02 ")
 ;;2341
 ;;21,"66685-0304-00 ")
 ;;2342
 ;;21,"66685-0304-02 ")
 ;;2343
 ;;21,"66685-0701-01 ")
 ;;2344
 ;;21,"66685-0701-02 ")
 ;;2345
 ;;21,"66685-0702-01 ")
 ;;2346
 ;;21,"66685-0702-02 ")
 ;;2347
 ;;21,"66685-0702-03 ")
 ;;2348
 ;;21,"66685-0703-01 ")
 ;;2349
 ;;21,"66685-0703-02 ")
 ;;2350
 ;;21,"66685-0703-03 ")
 ;;2351
 ;;21,"66685-0704-01 ")
 ;;2352
 ;;21,"66685-0704-02 ")
 ;;2353
 ;;21,"66685-0704-03 ")
 ;;2354
 ;;21,"66685-0705-01 ")
 ;;2355
 ;;21,"66685-0705-02 ")
 ;;2356
 ;;21,"66685-0706-01 ")
 ;;2357
 ;;21,"66685-0706-03 ")
 ;;2358
 ;;21,"66685-0706-04 ")
 ;;2359
 ;;21,"67253-0106-10 ")
 ;;2360
 ;;21,"67253-0107-10 ")
 ;;2361
 ;;21,"67253-0671-10 ")
 ;;2362
 ;;21,"67253-0672-10 ")
 ;;2363
 ;;21,"67253-0672-11 ")
 ;;2364
 ;;21,"67253-0673-10 ")
 ;;2365
 ;;21,"67253-0673-11 ")
 ;;2366
 ;;21,"67253-0674-10 ")
 ;;2367
 ;;21,"67253-0674-11 ")
 ;;2368
 ;;21,"67544-0042-15 ")
 ;;2369
 ;;21,"67544-0062-30 ")
 ;;2370
 ;;21,"67544-0128-15 ")
 ;;2371
 ;;21,"67544-0134-15 ")
 ;;2372
 ;;21,"67544-0148-15 ")
 ;;2373
 ;;21,"67544-0159-15 ")
 ;;2374
 ;;21,"67544-0173-30 ")
 ;;2375
 ;;21,"67544-0174-30 ")
 ;;2376
 ;;21,"67544-0219-15 ")
 ;;2377
 ;;21,"67544-0306-30 ")
 ;;2378
 ;;21,"67544-0311-30 ")
 ;;2379
 ;;21,"67544-0322-15 ")
 ;;2380
 ;;21,"67544-0350-80 ")
 ;;2381
 ;;21,"67544-0377-60 ")
 ;;2382
 ;;21,"67544-0380-30 ")
 ;;2383
 ;;21,"67544-0418-60 ")
 ;;2384
 ;;21,"67544-0431-15 ")
 ;;2385
 ;;21,"67544-0454-15 ")
 ;;2386
 ;;21,"67544-0489-15 ")
 ;;2387
 ;;21,"67544-0997-30 ")
 ;;2388
 ;;21,"67544-0999-60 ")
 ;;2389
 ;;21,"67801-0340-03 ")
 ;;2390
 ;;21,"67801-0342-03 ")
 ;;2391
 ;;21,"67801-0343-03 ")
 ;;2392
 ;;21,"67801-0441-03 ")
 ;;2393
 ;;21,"68084-0058-01 ")
 ;;2394
 ;;21,"68084-0060-01 ")
 ;;2395
 ;;21,"68084-0060-11 ")
 ;;2396
 ;;21,"68084-0061-01 ")
 ;;2397
 ;;21,"68084-0061-11 ")
 ;;2398
 ;;21,"68084-0062-01 ")
 ;;2399
 ;;21,"68084-0062-11 ")
 ;;2400
 ;;21,"68084-0064-01 ")
 ;;2401
 ;;21,"68084-0064-11 ")
 ;;2402
 ;;21,"68084-0266-01 ")
 ;;2403
 ;;21,"68084-0266-11 ")
 ;;2404
 ;;21,"68084-0267-01 ")
 ;;2405
 ;;21,"68084-0267-11 ")
 ;;2406
 ;;21,"68084-0268-01 ")
 ;;2407
 ;;21,"68084-0268-11 ")
 ;;2408
 ;;21,"68084-0294-11 ")
 ;;2409
 ;;21,"68084-0294-21 ")
 ;;2410
 ;;21,"68084-0349-11 ")
 ;;2411
 ;;21,"68084-0349-21 ")
 ;;2412
 ;;21,"68084-0350-01 ")
 ;;2413
 ;;21,"68084-0350-11 ")
 ;;2414
 ;;21,"68084-0351-11 ")
 ;;2415
 ;;21,"68084-0351-21 ")
 ;;2416
 ;;21,"68084-0390-01 ")
 ;;2417
 ;;21,"68084-0390-11 ")
 ;;2418
 ;;21,"68084-0391-01 ")
 ;;2419
 ;;21,"68084-0391-11 ")
 ;;2420
 ;;21,"68084-0392-01 ")
 ;;2421
 ;;21,"68084-0392-11 ")
 ;;2422
 ;;21,"68115-0059-00 ")
 ;;2423
 ;;21,"68115-0059-30 ")
 ;;2424
 ;;21,"68115-0059-90 ")
 ;;2425
 ;;21,"68115-0060-30 ")
 ;;2426
 ;;21,"68115-0060-90 ")
 ;;2427
 ;;21,"68115-0127-00 ")
 ;;2428
 ;;21,"68115-0127-15 ")
 ;;2429
 ;;21,"68115-0127-30 ")
 ;;2430
 ;;21,"68115-0127-60 ")
 ;;2431
 ;;21,"68115-0128-00 ")
 ;;2432
 ;;21,"68115-0128-20 ")
 ;;2433
 ;;21,"68115-0128-30 ")
 ;;2434
 ;;21,"68115-0128-60 ")
 ;;2435
 ;;21,"68115-0128-90 ")
 ;;2436
 ;;21,"68115-0129-30 ")
 ;;2437
 ;;21,"68115-0129-60 ")
 ;;2438
 ;;21,"68115-0207-30 ")
 ;;2439
 ;;21,"68115-0207-60 ")
 ;;2440
 ;;21,"68115-0208-30 ")
 ;;2441
 ;;21,"68115-0208-60 ")
 ;;2442
 ;;21,"68115-0208-90 ")
 ;;2443
 ;;21,"68115-0209-30 ")
 ;;2444
 ;;21,"68115-0215-30 ")
 ;;2445
 ;;21,"68115-0216-30 ")
 ;;2446
 ;;21,"68115-0217-30 ")
 ;;2447
 ;;21,"68115-0361-30 ")
 ;;2448
 ;;21,"68115-0362-00 ")
 ;;2449
 ;;21,"68115-0362-60 ")
 ;;2450
 ;;21,"68115-0363-30 ")
 ;;2451
 ;;21,"68115-0378-30 ")
 ;;2452
 ;;21,"68115-0378-60 ")
 ;;2453
 ;;21,"68115-0396-30 ")
 ;;2454
 ;;21,"68115-0425-90 ")
 ;;2455
 ;;21,"68115-0490-60 ")
 ;;2456
 ;;21,"68115-0530-00 ")
 ;;2457
 ;;21,"68115-0530-30 ")
 ;;2458
 ;;21,"68115-0530-60 ")
 ;;2459
 ;;21,"68115-0573-30 ")
 ;;2460
 ;;21,"68115-0597-00 ")
 ;;2461
 ;;21,"68115-0615-00 ")
 ;;2462
 ;;21,"68115-0621-00 ")
 ;;2463
 ;;21,"68115-0650-00 ")
 ;;2464
 ;;21,"68115-0654-00 ")
 ;;2465
 ;;21,"68115-0673-00 ")
 ;;2466
 ;;21,"68115-0673-30 ")
 ;;2467
 ;;21,"68115-0677-00 ")
 ;;2468
 ;;21,"68115-0677-30 ")
 ;;2469
 ;;21,"68115-0778-00 ")
 ;;2470
 ;;21,"68115-0812-00 ")
 ;;2471
 ;;21,"68115-0812-30 ")
 ;;2472
 ;;21,"68115-0812-60 ")
 ;;2473
 ;;21,"68115-0824-00 ")
 ;;2474
 ;;21,"68115-0889-90 ")
 ;;2475
 ;;21,"68180-0235-01 ")
 ;;2476
 ;;21,"68180-0236-01 ")
 ;;2477
 ;;21,"68180-0237-01 ")
 ;;2478
 ;;21,"68180-0512-01 ")
 ;;2479
 ;;21,"68180-0512-02 ")
 ;;2480
 ;;21,"68180-0512-09 ")
 ;;2481
 ;;21,"68180-0513-01 ")
 ;;2482
 ;;21,"68180-0513-03 ")
 ;;2483
 ;;21,"68180-0514-01 ")
 ;;2484
 ;;21,"68180-0514-03 ")
 ;;2485
 ;;21,"68180-0515-01 ")
 ;;2486
 ;;21,"68180-0515-03 ")
 ;;2487
 ;;21,"68180-0516-01 ")
 ;;2488
 ;;21,"68180-0516-02 ")
 ;;2489
 ;;21,"68180-0517-01 ")
 ;;2490
 ;;21,"68180-0517-03 ")
 ;;2491
 ;;21,"68180-0518-01 ")
 ;;2492
 ;;21,"68180-0518-02 ")
 ;;2493
 ;;21,"68180-0519-01 ")
 ;;2494
 ;;21,"68180-0519-02 ")
 ;;2495
 ;;21,"68180-0520-01 ")
 ;;2496
 ;;21,"68180-0520-02 ")
 ;;2497
 ;;21,"68180-0556-09 ")
 ;;2498
 ;;21,"68180-0557-09 ")
 ;;2499
 ;;21,"68180-0558-09 ")
 ;;2500
 ;;21,"68180-0559-09 ")
 ;;2501
 ;;21,"68180-0566-01 ")
 ;;2502
 ;;21,"68180-0567-01 ")
 ;;2503
 ;;21,"68180-0568-01 ")
 ;;2504
 ;;21,"68180-0588-01 ")
 ;;2505
 ;;21,"68180-0589-01 ")
 ;;2506
 ;;21,"68180-0589-02 ")
 ;;2507
 ;;21,"68180-0590-01 ")
 ;;2508
 ;;21,"68180-0590-02 ")
 ;;2509
 ;;21,"68180-0590-09 ")
 ;;2510
 ;;21,"68180-0591-01 ")
 ;;2511
 ;;21,"68180-0591-02 ")
 ;;2512
 ;;21,"68180-0755-01 ")
 ;;2513
 ;;21,"68180-0756-01 ")
 ;;2514
 ;;21,"68180-0757-01 ")
 ;;2515
 ;;21,"68180-0758-01 ")
 ;;2516
 ;;21,"68180-0759-01 ")
 ;;2517
 ;;21,"68180-0760-01 ")
 ;;2518
 ;;21,"68382-0144-01 ")
 ;;2519
 ;;21,"68382-0144-05 ")
 ;;2520
 ;;21,"68382-0144-06 ")
 ;;2521
 ;;21,"68382-0145-01 ")
 ;;2522
 ;;21,"68382-0145-05 ")
 ;;2523
 ;;21,"68382-0145-06 ")
 ;;2524
 ;;21,"68382-0146-01 ")
 ;;2525
 ;;21,"68382-0146-05 ")
 ;;2526
 ;;21,"68382-0146-06 ")
 ;;2527
 ;;21,"68382-0147-01 ")
 ;;2528
 ;;21,"68382-0147-05 ")
 ;;2529
 ;;21,"68382-0147-06 ")
 ;;2530
 ;;21,"68387-0543-30 ")
 ;;2531
 ;;21,"68462-0205-01 ")
 ;;2532
 ;;21,"68462-0206-01 ")
 ;;2533
 ;;21,"68462-0207-01 ")
 ;;2534
 ;;21,"68462-0208-01 ")
 ;;2535
 ;;21,"68462-0209-01 ")
 ;;2536
 ;;21,"68462-0294-01 ")
 ;;2537
 ;;21,"68462-0295-01 ")
 ;;2538
 ;;21,"68462-0296-01 ")
 ;;2539
 ;;21,"68462-0329-01 ")
 ;;2540
 ;;21,"68462-0367-10 ")
 ;;2541
 ;;21,"68462-0367-90 ")
 ;;2542
 ;;21,"68462-0368-10 ")
 ;;2543
 ;;21,"68462-0368-90 ")
 ;;2544
 ;;21,"68462-0369-10 ")
 ;;2545
 ;;21,"68462-0554-01 ")
 ;;2546
 ;;21,"68462-0555-01 ")
 ;;2547
 ;;21,"68505-2510-02 ")
 ;;2548
 ;;21,"68505-2510-04 ")
 ;;2549
 ;;21,"68552-0221-10 ")
 ;;2550
 ;;21,"68552-0221-90 ")
 ;;2551
 ;;21,"68552-0222-10 ")
 ;;2552
 ;;21,"68552-0222-90 ")
 ;;2553
 ;;21,"68552-0223-10 ")
 ;;2554
 ;;21,"68552-0223-90 ")
 ;;2555
 ;;21,"68645-0160-59 ")
 ;;2556
 ;;21,"68645-0161-59 ")
 ;;2557
 ;;21,"68645-0162-59 ")
 ;;2558
 ;;21,"68645-0163-59 ")
 ;;2559
 ;;21,"68645-0272-54 ")
 ;;2560
 ;;21,"76234-0000-01 ")
 ;;2561
 ;;21,"76234-0001-01 ")
 ;;2562
 ;;21,"76234-0002-01 ")
 ;;2563
 ;;21,"76282-0200-10 ")
 ;;2564
 ;;21,"76282-0200-90 ")
 ;;2565
 ;;21,"76282-0201-10 ")
 ;;2566
 ;;21,"76282-0201-90 ")
 ;;2567
 ;;21,"76282-0202-10 ")
 ;;2568
 ;;21,"76282-0202-90 ")
 ;;2569
 ;;21,"76282-0271-01 ")
 ;;2570
 ;;21,"76282-0272-01 ")
 ;;2571
 ;;21,"76282-0272-05 ")
 ;;2572
 ;;21,"76282-0273-01 ")
 ;;2573
 ;;21,"76282-0273-05 ")
 ;;2574
 ;;21,"76282-0274-01 ")
 ;;2575
 ;;21,"76282-0274-05 ")
 ;;2576
 ;;9002226,1064,.01)
 ;;BGP HEDIS ACEI NDC
 ;;9002226,1064,.02)
 ;;@
 ;;9002226,1064,.04)
 ;;n
 ;;9002226,1064,.06)
 ;;@
 ;;9002226,1064,.08)
 ;;@
 ;;9002226,1064,.09)
 ;;3130123
 ;;9002226,1064,.11)
 ;;@
 ;;9002226,1064,.12)
 ;;@
 ;;9002226,1064,.13)
 ;;1
 ;;9002226,1064,.14)
 ;;@
 ;;9002226,1064,.15)
 ;;50.67
 ;;9002226,1064,.16)
 ;;@
 ;;9002226,1064,.17)
 ;;@
 ;;9002226,1064,3101)
 ;;@
 ;;9002226.02101,"1064,00003-0338-50 ",.01)
 ;;00003-0338-50
 ;;9002226.02101,"1064,00003-0338-50 ",.02)
 ;;00003-0338-50
 ;;9002226.02101,"1064,00003-0450-51 ",.01)
 ;;00003-0450-51
 ;;9002226.02101,"1064,00003-0450-51 ",.02)
 ;;00003-0450-51
 ;;9002226.02101,"1064,00003-0450-54 ",.01)
 ;;00003-0450-54
 ;;9002226.02101,"1064,00003-0450-54 ",.02)
 ;;00003-0450-54
 ;;9002226.02101,"1064,00003-0450-75 ",.01)
 ;;00003-0450-75
 ;;9002226.02101,"1064,00003-0450-75 ",.02)
 ;;00003-0450-75
 ;;9002226.02101,"1064,00003-0452-50 ",.01)
 ;;00003-0452-50
 ;;9002226.02101,"1064,00003-0452-50 ",.02)
 ;;00003-0452-50
 ;;9002226.02101,"1064,00003-0452-51 ",.01)
 ;;00003-0452-51
 ;;9002226.02101,"1064,00003-0452-51 ",.02)
 ;;00003-0452-51
 ;;9002226.02101,"1064,00003-0452-75 ",.01)
 ;;00003-0452-75
 ;;9002226.02101,"1064,00003-0452-75 ",.02)
 ;;00003-0452-75
 ;;9002226.02101,"1064,00003-0482-50 ",.01)
 ;;00003-0482-50
 ;;9002226.02101,"1064,00003-0482-50 ",.02)
 ;;00003-0482-50
 ;;9002226.02101,"1064,00003-0482-51 ",.01)
 ;;00003-0482-51
 ;;9002226.02101,"1064,00003-0482-51 ",.02)
 ;;00003-0482-51
 ;;9002226.02101,"1064,00003-0482-75 ",.01)
 ;;00003-0482-75
 ;;9002226.02101,"1064,00003-0482-75 ",.02)
 ;;00003-0482-75
 ;;9002226.02101,"1064,00003-0485-50 ",.01)
 ;;00003-0485-50
 ;;9002226.02101,"1064,00003-0485-50 ",.02)
 ;;00003-0485-50
 ;;9002226.02101,"1064,00006-0015-28 ",.01)
 ;;00006-0015-28
 ;;9002226.02101,"1064,00006-0015-28 ",.02)
 ;;00006-0015-28
 ;;9002226.02101,"1064,00006-0015-31 ",.01)
 ;;00006-0015-31
 ;;9002226.02101,"1064,00006-0015-31 ",.02)
 ;;00006-0015-31
 ;;9002226.02101,"1064,00006-0015-58 ",.01)
 ;;00006-0015-58
 ;;9002226.02101,"1064,00006-0015-58 ",.02)
 ;;00006-0015-58
 ;;9002226.02101,"1064,00006-0019-54 ",.01)
 ;;00006-0019-54
 ;;9002226.02101,"1064,00006-0019-54 ",.02)
 ;;00006-0019-54
 ;;9002226.02101,"1064,00006-0019-82 ",.01)
 ;;00006-0019-82
 ;;9002226.02101,"1064,00006-0019-82 ",.02)
 ;;00006-0019-82
 ;;9002226.02101,"1064,00006-0106-54 ",.01)
 ;;00006-0106-54
 ;;9002226.02101,"1064,00006-0106-54 ",.02)
 ;;00006-0106-54
 ;;9002226.02101,"1064,00006-0106-82 ",.01)
 ;;00006-0106-82
 ;;9002226.02101,"1064,00006-0106-82 ",.02)
 ;;00006-0106-82
 ;;9002226.02101,"1064,00006-0140-58 ",.01)
 ;;00006-0140-58
 ;;9002226.02101,"1064,00006-0140-58 ",.02)
 ;;00006-0140-58
 ;;9002226.02101,"1064,00006-0142-31 ",.01)
 ;;00006-0142-31
 ;;9002226.02101,"1064,00006-0142-31 ",.02)
 ;;00006-0142-31
 ;;9002226.02101,"1064,00006-0142-58 ",.01)
 ;;00006-0142-58
 ;;9002226.02101,"1064,00006-0142-58 ",.02)
 ;;00006-0142-58
 ;;9002226.02101,"1064,00006-0145-58 ",.01)
 ;;00006-0145-58
 ;;9002226.02101,"1064,00006-0145-58 ",.02)
 ;;00006-0145-58
 ;;9002226.02101,"1064,00006-0207-54 ",.01)
 ;;00006-0207-54
 ;;9002226.02101,"1064,00006-0207-54 ",.02)
 ;;00006-0207-54
 ;;9002226.02101,"1064,00006-0207-82 ",.01)
 ;;00006-0207-82
 ;;9002226.02101,"1064,00006-0207-82 ",.02)
 ;;00006-0207-82
 ;;9002226.02101,"1064,00006-0237-58 ",.01)
 ;;00006-0237-58
 ;;9002226.02101,"1064,00006-0237-58 ",.02)
 ;;00006-0237-58
 ;;9002226.02101,"1064,00032-1101-01 ",.01)
 ;;00032-1101-01
 ;;9002226.02101,"1064,00032-1101-01 ",.02)
 ;;00032-1101-01
 ;;9002226.02101,"1064,00032-1102-01 ",.01)
 ;;00032-1102-01
 ;;9002226.02101,"1064,00032-1102-01 ",.02)
 ;;00032-1102-01
 ;;9002226.02101,"1064,00032-1103-01 ",.01)
 ;;00032-1103-01
 ;;9002226.02101,"1064,00032-1103-01 ",.02)
 ;;00032-1103-01
 ;;9002226.02101,"1064,00054-0106-25 ",.01)
 ;;00054-0106-25
 ;;9002226.02101,"1064,00054-0106-25 ",.02)
 ;;00054-0106-25
 ;;9002226.02101,"1064,00054-0107-20 ",.01)
 ;;00054-0107-20
 ;;9002226.02101,"1064,00054-0107-20 ",.02)
 ;;00054-0107-20
 ;;9002226.02101,"1064,00054-0107-25 ",.01)
 ;;00054-0107-25
 ;;9002226.02101,"1064,00054-0107-25 ",.02)
 ;;00054-0107-25
 ;;9002226.02101,"1064,00054-0107-29 ",.01)
 ;;00054-0107-29
 ;;9002226.02101,"1064,00054-0107-29 ",.02)
 ;;00054-0107-29
 ;;9002226.02101,"1064,00054-0108-20 ",.01)
 ;;00054-0108-20
 ;;9002226.02101,"1064,00054-0108-20 ",.02)
 ;;00054-0108-20
 ;;9002226.02101,"1064,00054-0108-25 ",.01)
 ;;00054-0108-25
 ;;9002226.02101,"1064,00054-0108-25 ",.02)
 ;;00054-0108-25
 ;;9002226.02101,"1064,00054-0108-29 ",.01)
 ;;00054-0108-29
 ;;9002226.02101,"1064,00054-0108-29 ",.02)
 ;;00054-0108-29
 ;;9002226.02101,"1064,00054-0109-25 ",.01)
 ;;00054-0109-25
 ;;9002226.02101,"1064,00054-0109-25 ",.02)
 ;;00054-0109-25
 ;;9002226.02101,"1064,00054-0109-29 ",.01)
 ;;00054-0109-29
 ;;9002226.02101,"1064,00054-0109-29 ",.02)
 ;;00054-0109-29
 ;;9002226.02101,"1064,00054-0110-25 ",.01)
 ;;00054-0110-25
 ;;9002226.02101,"1064,00054-0110-25 ",.02)
 ;;00054-0110-25
 ;;9002226.02101,"1064,00054-0111-25 ",.01)
 ;;00054-0111-25