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

BGP73K8.m

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