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

BGP8ZX8.m

Go to the documentation of this file.
  1. BGP8ZX8 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
  1. ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
  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,"68084-0519-95 ")
  1. ;;2356
  1. ;;21,"68084-0726-32 ")
  1. ;;2357
  1. ;;21,"68084-0727-21 ")
  1. ;;2358
  1. ;;21,"68084-0727-25 ")
  1. ;;2359
  1. ;;21,"68084-0727-95 ")
  1. ;;2360
  1. ;;21,"68084-0739-25 ")
  1. ;;2361
  1. ;;21,"68084-0765-21 ")
  1. ;;2362
  1. ;;21,"68084-0765-25 ")
  1. ;;2363
  1. ;;21,"68084-0765-95 ")
  1. ;;2364
  1. ;;21,"68084-0766-21 ")
  1. ;;2365
  1. ;;21,"68084-0766-25 ")
  1. ;;2366
  1. ;;21,"68084-0766-95 ")
  1. ;;2367
  1. ;;21,"68084-0899-25 ")
  1. ;;2368
  1. ;;21,"68084-0899-95 ")
  1. ;;2369
  1. ;;21,"68084-0903-21 ")
  1. ;;2370
  1. ;;21,"68115-0127-15 ")
  1. ;;2371
  1. ;;21,"68115-0128-60 ")
  1. ;;2372
  1. ;;21,"68115-0128-90 ")
  1. ;;2373
  1. ;;21,"68115-0217-30 ")
  1. ;;2374
  1. ;;21,"68115-0362-60 ")
  1. ;;2375
  1. ;;21,"68115-0363-30 ")
  1. ;;2376
  1. ;;21,"68115-0573-30 ")
  1. ;;2377
  1. ;;21,"68115-0615-00 ")
  1. ;;2378
  1. ;;21,"68115-0673-30 ")
  1. ;;2379
  1. ;;21,"68180-0235-01 ")
  1. ;;2380
  1. ;;21,"68180-0236-01 ")
  1. ;;2381
  1. ;;21,"68180-0237-01 ")
  1. ;;2382
  1. ;;21,"68180-0512-01 ")
  1. ;;2383
  1. ;;21,"68180-0512-02 ")
  1. ;;2384
  1. ;;21,"68180-0512-09 ")
  1. ;;2385
  1. ;;21,"68180-0513-01 ")
  1. ;;2386
  1. ;;21,"68180-0513-03 ")
  1. ;;2387
  1. ;;21,"68180-0513-09 ")
  1. ;;2388
  1. ;;21,"68180-0514-01 ")
  1. ;;2389
  1. ;;21,"68180-0514-03 ")
  1. ;;2390
  1. ;;21,"68180-0514-30 ")
  1. ;;2391
  1. ;;21,"68180-0515-01 ")
  1. ;;2392
  1. ;;21,"68180-0515-03 ")
  1. ;;2393
  1. ;;21,"68180-0515-09 ")
  1. ;;2394
  1. ;;21,"68180-0516-01 ")
  1. ;;2395
  1. ;;21,"68180-0516-02 ")
  1. ;;2396
  1. ;;21,"68180-0516-09 ")
  1. ;;2397
  1. ;;21,"68180-0517-01 ")
  1. ;;2398
  1. ;;21,"68180-0517-03 ")
  1. ;;2399
  1. ;;21,"68180-0517-09 ")
  1. ;;2400
  1. ;;21,"68180-0518-01 ")
  1. ;;2401
  1. ;;21,"68180-0518-02 ")
  1. ;;2402
  1. ;;21,"68180-0519-01 ")
  1. ;;2403
  1. ;;21,"68180-0519-02 ")
  1. ;;2404
  1. ;;21,"68180-0520-01 ")
  1. ;;2405
  1. ;;21,"68180-0520-02 ")
  1. ;;2406
  1. ;;21,"68180-0554-09 ")
  1. ;;2407
  1. ;;21,"68180-0556-09 ")
  1. ;;2408
  1. ;;21,"68180-0557-09 ")
  1. ;;2409
  1. ;;21,"68180-0558-09 ")
  1. ;;2410
  1. ;;21,"68180-0559-09 ")
  1. ;;2411
  1. ;;21,"68180-0566-01 ")
  1. ;;2412
  1. ;;21,"68180-0567-01 ")
  1. ;;2413
  1. ;;21,"68180-0568-01 ")
  1. ;;2414
  1. ;;21,"68180-0588-01 ")
  1. ;;2415
  1. ;;21,"68180-0589-01 ")
  1. ;;2416
  1. ;;21,"68180-0589-02 ")
  1. ;;2417
  1. ;;21,"68180-0589-09 ")
  1. ;;2418
  1. ;;21,"68180-0590-01 ")
  1. ;;2419
  1. ;;21,"68180-0590-02 ")
  1. ;;2420
  1. ;;21,"68180-0590-09 ")
  1. ;;2421
  1. ;;21,"68180-0591-01 ")
  1. ;;2422
  1. ;;21,"68180-0591-02 ")
  1. ;;2423
  1. ;;21,"68180-0591-09 ")
  1. ;;2424
  1. ;;21,"68180-0755-01 ")
  1. ;;2425
  1. ;;21,"68180-0756-01 ")
  1. ;;2426
  1. ;;21,"68180-0757-01 ")
  1. ;;2427
  1. ;;21,"68180-0758-01 ")
  1. ;;2428
  1. ;;21,"68180-0759-01 ")
  1. ;;2429
  1. ;;21,"68180-0760-01 ")
  1. ;;2430
  1. ;;21,"68180-0980-01 ")
  1. ;;2431
  1. ;;21,"68180-0980-03 ")
  1. ;;2432
  1. ;;21,"68180-0981-01 ")
  1. ;;2433
  1. ;;21,"68180-0981-03 ")
  1. ;;2434
  1. ;;21,"68180-0982-01 ")
  1. ;;2435
  1. ;;21,"68180-0982-02 ")
  1. ;;2436
  1. ;;21,"68382-0144-01 ")
  1. ;;2437
  1. ;;21,"68382-0144-05 ")
  1. ;;2438
  1. ;;21,"68382-0144-06 ")
  1. ;;2439
  1. ;;21,"68382-0145-01 ")
  1. ;;2440
  1. ;;21,"68382-0145-05 ")
  1. ;;2441
  1. ;;21,"68382-0145-06 ")
  1. ;;2442
  1. ;;21,"68382-0146-01 ")
  1. ;;2443
  1. ;;21,"68382-0146-05 ")
  1. ;;2444
  1. ;;21,"68382-0146-06 ")
  1. ;;2445
  1. ;;21,"68382-0147-01 ")
  1. ;;2446
  1. ;;21,"68382-0147-05 ")
  1. ;;2447
  1. ;;21,"68382-0147-06 ")
  1. ;;2448
  1. ;;21,"68387-0543-30 ")
  1. ;;2449
  1. ;;21,"68462-0205-01 ")
  1. ;;2450
  1. ;;21,"68462-0206-01 ")
  1. ;;2451
  1. ;;21,"68462-0207-01 ")
  1. ;;2452
  1. ;;21,"68462-0208-01 ")
  1. ;;2453
  1. ;;21,"68462-0209-01 ")
  1. ;;2454
  1. ;;21,"68462-0294-01 ")
  1. ;;2455
  1. ;;21,"68462-0295-01 ")
  1. ;;2456
  1. ;;21,"68462-0296-01 ")
  1. ;;2457
  1. ;;21,"68462-0329-01 ")
  1. ;;2458
  1. ;;21,"68462-0367-10 ")
  1. ;;2459
  1. ;;21,"68462-0367-90 ")
  1. ;;2460
  1. ;;21,"68462-0368-10 ")
  1. ;;2461
  1. ;;21,"68462-0368-90 ")
  1. ;;2462
  1. ;;21,"68462-0369-10 ")
  1. ;;2463
  1. ;;21,"68462-0554-01 ")
  1. ;;2464
  1. ;;21,"68462-0555-01 ")
  1. ;;2465
  1. ;;21,"68505-2510-02 ")
  1. ;;2466
  1. ;;21,"68505-2510-04 ")
  1. ;;2467
  1. ;;21,"68552-0221-10 ")
  1. ;;2468
  1. ;;21,"68552-0221-90 ")
  1. ;;2469
  1. ;;21,"68552-0222-10 ")
  1. ;;2470
  1. ;;21,"68552-0222-90 ")
  1. ;;2471
  1. ;;21,"68552-0223-10 ")
  1. ;;2472
  1. ;;21,"68552-0223-90 ")
  1. ;;2473
  1. ;;21,"68645-0160-59 ")
  1. ;;2474
  1. ;;21,"68645-0161-59 ")
  1. ;;2475
  1. ;;21,"68645-0162-59 ")
  1. ;;2476
  1. ;;21,"68645-0163-59 ")
  1. ;;2477
  1. ;;21,"68645-0272-54 ")
  1. ;;2478
  1. ;;21,"68645-0454-90 ")
  1. ;;2479
  1. ;;21,"68645-0455-90 ")
  1. ;;2480
  1. ;;21,"68645-0456-90 ")
  1. ;;2481
  1. ;;21,"68645-0457-90 ")
  1. ;;2482
  1. ;;21,"68645-0469-54 ")
  1. ;;2483
  1. ;;21,"68645-0532-54 ")
  1. ;;2484
  1. ;;21,"68645-0550-54 ")
  1. ;;2485
  1. ;;21,"68645-0551-54 ")
  1. ;;2486
  1. ;;21,"68645-0552-54 ")
  1. ;;2487
  1. ;;21,"68645-0553-54 ")
  1. ;;2488
  1. ;;21,"68645-0554-54 ")
  1. ;;2489
  1. ;;21,"68645-0555-54 ")
  1. ;;2490
  1. ;;21,"68645-0556-54 ")
  1. ;;2491
  1. ;;21,"68645-0557-54 ")
  1. ;;2492
  1. ;;21,"68645-0558-54 ")
  1. ;;2493
  1. ;;21,"68682-0146-01 ")
  1. ;;2494
  1. ;;21,"68682-0710-01 ")
  1. ;;2495
  1. ;;21,"68682-0710-10 ")
  1. ;;2496
  1. ;;21,"68682-0710-30 ")
  1. ;;2497
  1. ;;21,"68682-0710-90 ")
  1. ;;2498
  1. ;;21,"68682-0711-01 ")
  1. ;;2499
  1. ;;21,"68682-0711-10 ")
  1. ;;2500
  1. ;;21,"68682-0711-30 ")
  1. ;;2501
  1. ;;21,"68682-0711-90 ")
  1. ;;2502
  1. ;;21,"68682-0712-01 ")
  1. ;;2503
  1. ;;21,"68682-0712-10 ")
  1. ;;2504
  1. ;;21,"68682-0712-30 ")
  1. ;;2505
  1. ;;21,"68682-0712-90 ")
  1. ;;2506
  1. ;;21,"68682-0713-01 ")
  1. ;;2507
  1. ;;21,"68682-0713-10 ")
  1. ;;2508
  1. ;;21,"68682-0713-30 ")
  1. ;;2509
  1. ;;21,"68682-0713-90 ")
  1. ;;2510
  1. ;;21,"69097-0828-05 ")
  1. ;;2511
  1. ;;21,"69097-0829-05 ")
  1. ;;2512
  1. ;;21,"69097-0831-05 ")
  1. ;;2513
  1. ;;21,"69097-0839-05 ")
  1. ;;2514
  1. ;;21,"69097-0841-05 ")
  1. ;;2515
  1. ;;21,"69097-0842-05 ")
  1. ;;2516
  1. ;;21,"69097-0843-05 ")
  1. ;;2517
  1. ;;21,"69097-0856-05 ")
  1. ;;2518
  1. ;;21,"69097-0857-05 ")
  1. ;;2519
  1. ;;21,"69097-0858-05 ")
  1. ;;2520
  1. ;;21,"70882-0103-30 ")
  1. ;;2521
  1. ;;21,"70882-0104-30 ")
  1. ;;2522
  1. ;;21,"70882-0110-30 ")
  1. ;;2523
  1. ;;21,"76234-0000-01 ")
  1. ;;2524
  1. ;;21,"76234-0001-01 ")
  1. ;;2525
  1. ;;21,"76234-0002-01 ")
  1. ;;2526
  1. ;;21,"76282-0200-10 ")
  1. ;;2527
  1. ;;21,"76282-0200-90 ")
  1. ;;2528
  1. ;;21,"76282-0201-10 ")
  1. ;;2529
  1. ;;21,"76282-0201-90 ")
  1. ;;2530
  1. ;;21,"76282-0202-10 ")
  1. ;;2531
  1. ;;21,"76282-0202-90 ")
  1. ;;2532
  1. ;;21,"76282-0271-01 ")
  1. ;;2533
  1. ;;21,"76282-0272-01 ")
  1. ;;2534
  1. ;;21,"76282-0273-01 ")
  1. ;;2535
  1. ;;21,"76282-0274-01 ")
  1. ;;2536
  1. ;;21,"76282-0417-01 ")
  1. ;;2537
  1. ;;21,"76282-0417-05 ")
  1. ;;2538
  1. ;;21,"76282-0418-01 ")
  1. ;;2539
  1. ;;21,"76282-0418-10 ")
  1. ;;2540
  1. ;;21,"76282-0418-45 ")
  1. ;;2541
  1. ;;21,"76282-0418-90 ")
  1. ;;2542
  1. ;;21,"76282-0419-01 ")
  1. ;;2543
  1. ;;21,"76282-0419-10 ")
  1. ;;2544
  1. ;;21,"76282-0419-45 ")
  1. ;;2545
  1. ;;21,"76282-0419-90 ")
  1. ;;2546
  1. ;;21,"76282-0420-01 ")
  1. ;;2547
  1. ;;21,"76282-0420-10 ")
  1. ;;2548
  1. ;;21,"76282-0420-18 ")
  1. ;;2549
  1. ;;21,"76282-0420-45 ")
  1. ;;2550
  1. ;;21,"76282-0420-90 ")
  1. ;;2551
  1. ;;21,"76282-0421-01 ")
  1. ;;2552
  1. ;;21,"76282-0421-05 ")
  1. ;;2553
  1. ;;21,"76282-0422-01 ")
  1. ;;2554
  1. ;;21,"76282-0422-05 ")
  1. ;;2555
  1. ;;21,"76282-0422-10 ")
  1. ;;2556
  1. ;;21,"76282-0422-18 ")
  1. ;;2557
  1. ;;21,"76282-0422-45 ")
  1. ;;2558
  1. ;;21,"76282-0422-90 ")
  1. ;;2559
  1. ;;9002226,872,.01)
  1. ;;BGP HEDIS ACEI NDC
  1. ;;9002226,872,.02)
  1. ;;@
  1. ;;9002226,872,.04)
  1. ;;n
  1. ;;9002226,872,.06)
  1. ;;@
  1. ;;9002226,872,.08)
  1. ;;@
  1. ;;9002226,872,.09)
  1. ;;3180122
  1. ;;9002226,872,.11)
  1. ;;@
  1. ;;9002226,872,.12)
  1. ;;@
  1. ;;9002226,872,.13)
  1. ;;1
  1. ;;9002226,872,.14)
  1. ;;@
  1. ;;9002226,872,.15)
  1. ;;50.67
  1. ;;9002226,872,.16)
  1. ;;@
  1. ;;9002226,872,.17)
  1. ;;@
  1. ;;9002226,872,.22)
  1. ;;1
  1. ;;9002226,872,3101)
  1. ;;@
  1. ;;9002226.02101,"872,00006-0019-54 ",.01)
  1. ;;00006-0019-54
  1. ;;9002226.02101,"872,00006-0019-54 ",.02)
  1. ;;00006-0019-54
  1. ;;9002226.02101,"872,00006-0019-82 ",.01)
  1. ;;00006-0019-82
  1. ;;9002226.02101,"872,00006-0019-82 ",.02)
  1. ;;00006-0019-82
  1. ;;9002226.02101,"872,00006-0106-54 ",.01)
  1. ;;00006-0106-54
  1. ;;9002226.02101,"872,00006-0106-54 ",.02)
  1. ;;00006-0106-54
  1. ;;9002226.02101,"872,00006-0106-82 ",.01)
  1. ;;00006-0106-82
  1. ;;9002226.02101,"872,00006-0106-82 ",.02)
  1. ;;00006-0106-82
  1. ;;9002226.02101,"872,00006-0142-31 ",.01)
  1. ;;00006-0142-31
  1. ;;9002226.02101,"872,00006-0142-31 ",.02)
  1. ;;00006-0142-31
  1. ;;9002226.02101,"872,00006-0145-58 ",.01)
  1. ;;00006-0145-58
  1. ;;9002226.02101,"872,00006-0145-58 ",.02)
  1. ;;00006-0145-58
  1. ;;9002226.02101,"872,00006-0207-54 ",.01)
  1. ;;00006-0207-54
  1. ;;9002226.02101,"872,00006-0207-54 ",.02)
  1. ;;00006-0207-54
  1. ;;9002226.02101,"872,00006-0207-82 ",.01)
  1. ;;00006-0207-82
  1. ;;9002226.02101,"872,00006-0207-82 ",.02)
  1. ;;00006-0207-82
  1. ;;9002226.02101,"872,00006-0237-58 ",.01)
  1. ;;00006-0237-58
  1. ;;9002226.02101,"872,00006-0237-58 ",.02)
  1. ;;00006-0237-58
  1. ;;9002226.02101,"872,00032-1101-01 ",.01)
  1. ;;00032-1101-01
  1. ;;9002226.02101,"872,00032-1101-01 ",.02)
  1. ;;00032-1101-01
  1. ;;9002226.02101,"872,00032-1102-01 ",.01)
  1. ;;00032-1102-01
  1. ;;9002226.02101,"872,00032-1102-01 ",.02)
  1. ;;00032-1102-01
  1. ;;9002226.02101,"872,00032-1103-01 ",.01)
  1. ;;00032-1103-01
  1. ;;9002226.02101,"872,00032-1103-01 ",.02)
  1. ;;00032-1103-01
  1. ;;9002226.02101,"872,00054-0106-25 ",.01)
  1. ;;00054-0106-25
  1. ;;9002226.02101,"872,00054-0106-25 ",.02)
  1. ;;00054-0106-25
  1. ;;9002226.02101,"872,00054-0107-20 ",.01)
  1. ;;00054-0107-20
  1. ;;9002226.02101,"872,00054-0107-20 ",.02)
  1. ;;00054-0107-20
  1. ;;9002226.02101,"872,00054-0107-25 ",.01)
  1. ;;00054-0107-25
  1. ;;9002226.02101,"872,00054-0107-25 ",.02)
  1. ;;00054-0107-25
  1. ;;9002226.02101,"872,00054-0107-29 ",.01)
  1. ;;00054-0107-29
  1. ;;9002226.02101,"872,00054-0107-29 ",.02)
  1. ;;00054-0107-29
  1. ;;9002226.02101,"872,00054-0108-20 ",.01)
  1. ;;00054-0108-20
  1. ;;9002226.02101,"872,00054-0108-20 ",.02)
  1. ;;00054-0108-20
  1. ;;9002226.02101,"872,00054-0108-25 ",.01)
  1. ;;00054-0108-25
  1. ;;9002226.02101,"872,00054-0108-25 ",.02)
  1. ;;00054-0108-25
  1. ;;9002226.02101,"872,00054-0108-29 ",.01)
  1. ;;00054-0108-29
  1. ;;9002226.02101,"872,00054-0108-29 ",.02)
  1. ;;00054-0108-29
  1. ;;9002226.02101,"872,00054-0109-25 ",.01)
  1. ;;00054-0109-25
  1. ;;9002226.02101,"872,00054-0109-25 ",.02)
  1. ;;00054-0109-25
  1. ;;9002226.02101,"872,00054-0109-29 ",.01)
  1. ;;00054-0109-29
  1. ;;9002226.02101,"872,00054-0109-29 ",.02)
  1. ;;00054-0109-29
  1. ;;9002226.02101,"872,00054-0110-25 ",.01)
  1. ;;00054-0110-25
  1. ;;9002226.02101,"872,00054-0110-25 ",.02)
  1. ;;00054-0110-25
  1. ;;9002226.02101,"872,00054-0111-25 ",.01)
  1. ;;00054-0111-25
  1. ;;9002226.02101,"872,00054-0111-25 ",.02)
  1. ;;00054-0111-25
  1. ;;9002226.02101,"872,00054-0112-25 ",.01)
  1. ;;00054-0112-25
  1. ;;9002226.02101,"872,00054-0112-25 ",.02)
  1. ;;00054-0112-25
  1. ;;9002226.02101,"872,00071-0220-23 ",.01)
  1. ;;00071-0220-23
  1. ;;9002226.02101,"872,00071-0220-23 ",.02)
  1. ;;00071-0220-23
  1. ;;9002226.02101,"872,00071-0222-23 ",.01)
  1. ;;00071-0222-23
  1. ;;9002226.02101,"872,00071-0222-23 ",.02)
  1. ;;00071-0222-23
  1. ;;9002226.02101,"872,00071-0223-23 ",.01)
  1. ;;00071-0223-23
  1. ;;9002226.02101,"872,00071-0223-23 ",.02)
  1. ;;00071-0223-23
  1. ;;9002226.02101,"872,00071-0527-23 ",.01)
  1. ;;00071-0527-23
  1. ;;9002226.02101,"872,00071-0527-23 ",.02)
  1. ;;00071-0527-23
  1. ;;9002226.02101,"872,00071-0527-40 ",.01)
  1. ;;00071-0527-40
  1. ;;9002226.02101,"872,00071-0527-40 ",.02)
  1. ;;00071-0527-40
  1. ;;9002226.02101,"872,00071-0530-23 ",.01)
  1. ;;00071-0530-23
  1. ;;9002226.02101,"872,00071-0530-23 ",.02)
  1. ;;00071-0530-23
  1. ;;9002226.02101,"872,00071-0530-40 ",.01)
  1. ;;00071-0530-40
  1. ;;9002226.02101,"872,00071-0530-40 ",.02)
  1. ;;00071-0530-40
  1. ;;9002226.02101,"872,00071-0532-23 ",.01)
  1. ;;00071-0532-23
  1. ;;9002226.02101,"872,00071-0532-23 ",.02)
  1. ;;00071-0532-23
  1. ;;9002226.02101,"872,00071-0532-40 ",.01)
  1. ;;00071-0532-40
  1. ;;9002226.02101,"872,00071-0532-40 ",.02)
  1. ;;00071-0532-40
  1. ;;9002226.02101,"872,00071-0535-23 ",.01)
  1. ;;00071-0535-23