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

BGP53O7.m

Go to the documentation of this file.
BGP53O7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 24, 2015;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"68180-0519-02 ")
 ;;2339
 ;;21,"68180-0520-01 ")
 ;;2340
 ;;21,"68180-0520-02 ")
 ;;2341
 ;;21,"68180-0556-09 ")
 ;;2342
 ;;21,"68180-0557-09 ")
 ;;2343
 ;;21,"68180-0558-09 ")
 ;;2344
 ;;21,"68180-0559-09 ")
 ;;2345
 ;;21,"68180-0566-01 ")
 ;;2346
 ;;21,"68180-0567-01 ")
 ;;2347
 ;;21,"68180-0568-01 ")
 ;;2348
 ;;21,"68180-0588-01 ")
 ;;2349
 ;;21,"68180-0589-01 ")
 ;;2350
 ;;21,"68180-0589-02 ")
 ;;2351
 ;;21,"68180-0589-09 ")
 ;;2352
 ;;21,"68180-0590-01 ")
 ;;2353
 ;;21,"68180-0590-02 ")
 ;;2354
 ;;21,"68180-0590-09 ")
 ;;2355
 ;;21,"68180-0591-01 ")
 ;;2356
 ;;21,"68180-0591-02 ")
 ;;2357
 ;;21,"68180-0591-09 ")
 ;;2358
 ;;21,"68180-0755-01 ")
 ;;2359
 ;;21,"68180-0756-01 ")
 ;;2360
 ;;21,"68180-0757-01 ")
 ;;2361
 ;;21,"68180-0758-01 ")
 ;;2362
 ;;21,"68180-0759-01 ")
 ;;2363
 ;;21,"68180-0760-01 ")
 ;;2364
 ;;21,"68382-0144-01 ")
 ;;2365
 ;;21,"68382-0144-05 ")
 ;;2366
 ;;21,"68382-0144-06 ")
 ;;2367
 ;;21,"68382-0145-01 ")
 ;;2368
 ;;21,"68382-0145-05 ")
 ;;2369
 ;;21,"68382-0145-06 ")
 ;;2370
 ;;21,"68382-0146-01 ")
 ;;2371
 ;;21,"68382-0146-05 ")
 ;;2372
 ;;21,"68382-0146-06 ")
 ;;2373
 ;;21,"68382-0147-01 ")
 ;;2374
 ;;21,"68382-0147-05 ")
 ;;2375
 ;;21,"68382-0147-06 ")
 ;;2376
 ;;21,"68387-0543-30 ")
 ;;2377
 ;;21,"68462-0205-01 ")
 ;;2378
 ;;21,"68462-0206-01 ")
 ;;2379
 ;;21,"68462-0207-01 ")
 ;;2380
 ;;21,"68462-0208-01 ")
 ;;2381
 ;;21,"68462-0209-01 ")
 ;;2382
 ;;21,"68462-0294-01 ")
 ;;2383
 ;;21,"68462-0295-01 ")
 ;;2384
 ;;21,"68462-0296-01 ")
 ;;2385
 ;;21,"68462-0329-01 ")
 ;;2386
 ;;21,"68462-0367-10 ")
 ;;2387
 ;;21,"68462-0367-90 ")
 ;;2388
 ;;21,"68462-0368-10 ")
 ;;2389
 ;;21,"68462-0368-90 ")
 ;;2390
 ;;21,"68462-0369-10 ")
 ;;2391
 ;;21,"68462-0554-01 ")
 ;;2392
 ;;21,"68462-0555-01 ")
 ;;2393
 ;;21,"68505-2510-02 ")
 ;;2394
 ;;21,"68505-2510-04 ")
 ;;2395
 ;;21,"68552-0221-10 ")
 ;;2396
 ;;21,"68552-0221-90 ")
 ;;2397
 ;;21,"68552-0222-10 ")
 ;;2398
 ;;21,"68552-0222-90 ")
 ;;2399
 ;;21,"68552-0223-10 ")
 ;;2400
 ;;21,"68552-0223-90 ")
 ;;2401
 ;;21,"68645-0160-59 ")
 ;;2402
 ;;21,"68645-0161-59 ")
 ;;2403
 ;;21,"68645-0162-59 ")
 ;;2404
 ;;21,"68645-0163-59 ")
 ;;2405
 ;;21,"68645-0272-54 ")
 ;;2406
 ;;21,"76234-0000-01 ")
 ;;2407
 ;;21,"76234-0001-01 ")
 ;;2408
 ;;21,"76234-0002-01 ")
 ;;2409
 ;;21,"76282-0200-10 ")
 ;;2410
 ;;21,"76282-0200-90 ")
 ;;2411
 ;;21,"76282-0201-10 ")
 ;;2412
 ;;21,"76282-0201-90 ")
 ;;2413
 ;;21,"76282-0202-10 ")
 ;;2414
 ;;21,"76282-0202-90 ")
 ;;2415
 ;;21,"76282-0271-01 ")
 ;;2416
 ;;21,"76282-0272-01 ")
 ;;2417
 ;;21,"76282-0272-05 ")
 ;;2418
 ;;21,"76282-0273-01 ")
 ;;2419
 ;;21,"76282-0273-05 ")
 ;;2420
 ;;21,"76282-0274-01 ")
 ;;2421
 ;;21,"76282-0274-05 ")
 ;;2422
 ;;21,"76282-0417-05 ")
 ;;2423
 ;;21,"76282-0418-10 ")
 ;;2424
 ;;21,"76282-0418-45 ")
 ;;2425
 ;;21,"76282-0418-90 ")
 ;;2426
 ;;21,"76282-0419-10 ")
 ;;2427
 ;;21,"76282-0419-45 ")
 ;;2428
 ;;21,"76282-0419-90 ")
 ;;2429
 ;;21,"76282-0420-10 ")
 ;;2430
 ;;21,"76282-0420-18 ")
 ;;2431
 ;;21,"76282-0420-45 ")
 ;;2432
 ;;21,"76282-0420-90 ")
 ;;2433
 ;;21,"76282-0421-01 ")
 ;;2434
 ;;21,"76282-0422-05 ")
 ;;2435
 ;;21,"76282-0422-10 ")
 ;;2436
 ;;21,"76282-0422-18 ")
 ;;2437
 ;;21,"76282-0422-45 ")
 ;;2438
 ;;21,"76282-0422-90 ")
 ;;2439
 ;;9002226,1064,.01)
 ;;BGP HEDIS ACEI NDC
 ;;9002226,1064,.02)
 ;;@
 ;;9002226,1064,.04)
 ;;n
 ;;9002226,1064,.06)
 ;;@
 ;;9002226,1064,.08)
 ;;@
 ;;9002226,1064,.09)
 ;;3150224
 ;;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,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-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
 ;;9002226.02101,"1064,00054-0111-25 ",.02)
 ;;00054-0111-25
 ;;9002226.02101,"1064,00054-0112-25 ",.01)
 ;;00054-0112-25
 ;;9002226.02101,"1064,00054-0112-25 ",.02)
 ;;00054-0112-25
 ;;9002226.02101,"1064,00071-0220-23 ",.01)
 ;;00071-0220-23
 ;;9002226.02101,"1064,00071-0220-23 ",.02)
 ;;00071-0220-23
 ;;9002226.02101,"1064,00071-0222-23 ",.01)
 ;;00071-0222-23
 ;;9002226.02101,"1064,00071-0222-23 ",.02)
 ;;00071-0222-23
 ;;9002226.02101,"1064,00071-0223-23 ",.01)
 ;;00071-0223-23
 ;;9002226.02101,"1064,00071-0223-23 ",.02)
 ;;00071-0223-23
 ;;9002226.02101,"1064,00071-0527-23 ",.01)
 ;;00071-0527-23
 ;;9002226.02101,"1064,00071-0527-23 ",.02)
 ;;00071-0527-23
 ;;9002226.02101,"1064,00071-0527-40 ",.01)
 ;;00071-0527-40
 ;;9002226.02101,"1064,00071-0527-40 ",.02)
 ;;00071-0527-40
 ;;9002226.02101,"1064,00071-0530-23 ",.01)
 ;;00071-0530-23
 ;;9002226.02101,"1064,00071-0530-23 ",.02)
 ;;00071-0530-23
 ;;9002226.02101,"1064,00071-0530-40 ",.01)
 ;;00071-0530-40
 ;;9002226.02101,"1064,00071-0530-40 ",.02)
 ;;00071-0530-40
 ;;9002226.02101,"1064,00071-0532-23 ",.01)
 ;;00071-0532-23
 ;;9002226.02101,"1064,00071-0532-23 ",.02)
 ;;00071-0532-23
 ;;9002226.02101,"1064,00071-0532-40 ",.01)
 ;;00071-0532-40
 ;;9002226.02101,"1064,00071-0532-40 ",.02)
 ;;00071-0532-40
 ;;9002226.02101,"1064,00071-0535-23 ",.01)
 ;;00071-0535-23
 ;;9002226.02101,"1064,00071-0535-23 ",.02)
 ;;00071-0535-23
 ;;9002226.02101,"1064,00074-2278-11 ",.01)
 ;;00074-2278-11
 ;;9002226.02101,"1064,00074-2278-11 ",.02)
 ;;00074-2278-11
 ;;9002226.02101,"1064,00074-2278-13 ",.01)
 ;;00074-2278-13
 ;;9002226.02101,"1064,00074-2278-13 ",.02)
 ;;00074-2278-13
 ;;9002226.02101,"1064,00074-2279-11 ",.01)
 ;;00074-2279-11
 ;;9002226.02101,"1064,00074-2279-11 ",.02)
 ;;00074-2279-11
 ;;9002226.02101,"1064,00074-2279-13 ",.01)
 ;;00074-2279-13
 ;;9002226.02101,"1064,00074-2279-13 ",.02)
 ;;00074-2279-13
 ;;9002226.02101,"1064,00074-2280-11 ",.01)
 ;;00074-2280-11
 ;;9002226.02101,"1064,00074-2280-11 ",.02)
 ;;00074-2280-11
 ;;9002226.02101,"1064,00074-2280-13 ",.01)
 ;;00074-2280-13
 ;;9002226.02101,"1064,00074-2280-13 ",.02)
 ;;00074-2280-13
 ;;9002226.02101,"1064,00074-3287-13 ",.01)
 ;;00074-3287-13
 ;;9002226.02101,"1064,00074-3287-13 ",.02)
 ;;00074-3287-13
 ;;9002226.02101,"1064,00074-3288-13 ",.01)
 ;;00074-3288-13
 ;;9002226.02101,"1064,00074-3288-13 ",.02)
 ;;00074-3288-13
 ;;9002226.02101,"1064,00074-3289-13 ",.01)
 ;;00074-3289-13
 ;;9002226.02101,"1064,00074-3289-13 ",.02)
 ;;00074-3289-13
 ;;9002226.02101,"1064,00074-3290-13 ",.01)
 ;;00074-3290-13
 ;;9002226.02101,"1064,00074-3290-13 ",.02)
 ;;00074-3290-13
 ;;9002226.02101,"1064,00078-0364-05 ",.01)
 ;;00078-0364-05
 ;;9002226.02101,"1064,00078-0364-05 ",.02)
 ;;00078-0364-05
 ;;9002226.02101,"1064,00078-0379-05 ",.01)
 ;;00078-0379-05
 ;;9002226.02101,"1064,00078-0379-05 ",.02)
 ;;00078-0379-05
 ;;9002226.02101,"1064,00078-0384-05 ",.01)
 ;;00078-0384-05
 ;;9002226.02101,"1064,00078-0384-05 ",.02)
 ;;00078-0384-05
 ;;9002226.02101,"1064,00078-0404-05 ",.01)
 ;;00078-0404-05
 ;;9002226.02101,"1064,00078-0404-05 ",.02)
 ;;00078-0404-05
 ;;9002226.02101,"1064,00078-0405-05 ",.01)
 ;;00078-0405-05
 ;;9002226.02101,"1064,00078-0405-05 ",.02)
 ;;00078-0405-05
 ;;9002226.02101,"1064,00078-0406-05 ",.01)
 ;;00078-0406-05
 ;;9002226.02101,"1064,00078-0406-05 ",.02)
 ;;00078-0406-05
 ;;9002226.02101,"1064,00078-0447-05 ",.01)
 ;;00078-0447-05
 ;;9002226.02101,"1064,00078-0447-05 ",.02)
 ;;00078-0447-05
 ;;9002226.02101,"1064,00078-0448-05 ",.01)
 ;;00078-0448-05
 ;;9002226.02101,"1064,00078-0448-05 ",.02)
 ;;00078-0448-05
 ;;9002226.02101,"1064,00078-0449-05 ",.01)
 ;;00078-0449-05
 ;;9002226.02101,"1064,00078-0449-05 ",.02)
 ;;00078-0449-05
 ;;9002226.02101,"1064,00078-0450-05 ",.01)
 ;;00078-0450-05
 ;;9002226.02101,"1064,00078-0450-05 ",.02)
 ;;00078-0450-05
 ;;9002226.02101,"1064,00078-0451-05 ",.01)
 ;;00078-0451-05
 ;;9002226.02101,"1064,00078-0451-05 ",.02)
 ;;00078-0451-05
 ;;9002226.02101,"1064,00078-0452-05 ",.01)
 ;;00078-0452-05
 ;;9002226.02101,"1064,00078-0452-05 ",.02)
 ;;00078-0452-05
 ;;9002226.02101,"1064,00078-0453-05 ",.01)
 ;;00078-0453-05
 ;;9002226.02101,"1064,00078-0453-05 ",.02)
 ;;00078-0453-05
 ;;9002226.02101,"1064,00078-0454-05 ",.01)
 ;;00078-0454-05
 ;;9002226.02101,"1064,00078-0454-05 ",.02)
 ;;00078-0454-05
 ;;9002226.02101,"1064,00083-0059-32 ",.01)
 ;;00083-0059-32
 ;;9002226.02101,"1064,00083-0059-32 ",.02)
 ;;00083-0059-32
 ;;9002226.02101,"1064,00083-0059-90 ",.01)
 ;;00083-0059-90
 ;;9002226.02101,"1064,00083-0059-90 ",.02)
 ;;00083-0059-90
 ;;9002226.02101,"1064,00083-0063-32 ",.01)
 ;;00083-0063-32
 ;;9002226.02101,"1064,00083-0063-32 ",.02)
 ;;00083-0063-32
 ;;9002226.02101,"1064,00083-0063-90 ",.01)
 ;;00083-0063-90
 ;;9002226.02101,"1064,00083-0063-90 ",.02)
 ;;00083-0063-90
 ;;9002226.02101,"1064,00083-0079-32 ",.01)
 ;;00083-0079-32
 ;;9002226.02101,"1064,00083-0079-32 ",.02)
 ;;00083-0079-32
 ;;9002226.02101,"1064,00083-0079-90 ",.01)
 ;;00083-0079-90
 ;;9002226.02101,"1064,00083-0079-90 ",.02)
 ;;00083-0079-90
 ;;9002226.02101,"1064,00083-0094-32 ",.01)
 ;;00083-0094-32
 ;;9002226.02101,"1064,00083-0094-32 ",.02)
 ;;00083-0094-32
 ;;9002226.02101,"1064,00083-0094-90 ",.01)
 ;;00083-0094-90
 ;;9002226.02101,"1064,00083-0094-90 ",.02)
 ;;00083-0094-90
 ;;9002226.02101,"1064,00091-3707-01 ",.01)
 ;;00091-3707-01
 ;;9002226.02101,"1064,00091-3707-01 ",.02)
 ;;00091-3707-01
 ;;9002226.02101,"1064,00091-3712-01 ",.01)
 ;;00091-3712-01
 ;;9002226.02101,"1064,00091-3712-01 ",.02)
 ;;00091-3712-01
 ;;9002226.02101,"1064,00091-3715-01 ",.01)
 ;;00091-3715-01
 ;;9002226.02101,"1064,00091-3715-01 ",.02)
 ;;00091-3715-01
 ;;9002226.02101,"1064,00091-3720-01 ",.01)
 ;;00091-3720-01
 ;;9002226.02101,"1064,00091-3720-01 ",.02)
 ;;00091-3720-01
 ;;9002226.02101,"1064,00091-3725-01 ",.01)
 ;;00091-3725-01
 ;;9002226.02101,"1064,00091-3725-01 ",.02)
 ;;00091-3725-01
 ;;9002226.02101,"1064,00093-0017-01 ",.01)
 ;;00093-0017-01
 ;;9002226.02101,"1064,00093-0017-01 ",.02)
 ;;00093-0017-01
 ;;9002226.02101,"1064,00093-0026-01 ",.01)
 ;;00093-0026-01
 ;;9002226.02101,"1064,00093-0026-01 ",.02)
 ;;00093-0026-01
 ;;9002226.02101,"1064,00093-0026-10 ",.01)
 ;;00093-0026-10
 ;;9002226.02101,"1064,00093-0026-10 ",.02)
 ;;00093-0026-10
 ;;9002226.02101,"1064,00093-0027-01 ",.01)
 ;;00093-0027-01
 ;;9002226.02101,"1064,00093-0027-01 ",.02)
 ;;00093-0027-01
 ;;9002226.02101,"1064,00093-0027-50 ",.01)
 ;;00093-0027-50
 ;;9002226.02101,"1064,00093-0027-50 ",.02)
 ;;00093-0027-50
 ;;9002226.02101,"1064,00093-0028-01 ",.01)
 ;;00093-0028-01