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

BGP31O2.m

Go to the documentation of this file.
BGP31O2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
 ;
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,"55887-0262-82 ")
 ;;394
 ;;21,"55887-0262-90 ")
 ;;395
 ;;21,"55887-0668-01 ")
 ;;396
 ;;21,"55887-0668-10 ")
 ;;397
 ;;21,"55887-0668-13 ")
 ;;398
 ;;21,"55887-0668-15 ")
 ;;399
 ;;21,"55887-0668-30 ")
 ;;400
 ;;21,"55887-0703-30 ")
 ;;401
 ;;21,"55887-0703-60 ")
 ;;402
 ;;21,"55887-0703-82 ")
 ;;403
 ;;21,"55887-0703-90 ")
 ;;404
 ;;21,"55887-0919-01 ")
 ;;405
 ;;21,"57664-0437-18 ")
 ;;406
 ;;21,"57664-0437-88 ")
 ;;407
 ;;21,"57664-0441-18 ")
 ;;408
 ;;21,"57664-0441-88 ")
 ;;409
 ;;21,"57866-0228-01 ")
 ;;410
 ;;21,"57866-0324-01 ")
 ;;411
 ;;21,"57866-0324-02 ")
 ;;412
 ;;21,"57866-1257-01 ")
 ;;413
 ;;21,"57866-1258-01 ")
 ;;414
 ;;21,"57866-6660-01 ")
 ;;415
 ;;21,"57866-6660-02 ")
 ;;416
 ;;21,"57866-6660-03 ")
 ;;417
 ;;21,"58016-0202-00 ")
 ;;418
 ;;21,"58016-0202-30 ")
 ;;419
 ;;21,"58016-0202-60 ")
 ;;420
 ;;21,"58016-0537-00 ")
 ;;421
 ;;21,"58016-0537-03 ")
 ;;422
 ;;21,"58016-0537-10 ")
 ;;423
 ;;21,"58016-0537-12 ")
 ;;424
 ;;21,"58016-0537-15 ")
 ;;425
 ;;21,"58016-0537-30 ")
 ;;426
 ;;21,"58016-0620-00 ")
 ;;427
 ;;21,"58016-0620-12 ")
 ;;428
 ;;21,"58016-0620-15 ")
 ;;429
 ;;21,"58016-0620-20 ")
 ;;430
 ;;21,"58016-0620-30 ")
 ;;431
 ;;21,"58016-0620-90 ")
 ;;432
 ;;21,"58016-0622-00 ")
 ;;433
 ;;21,"58016-0622-08 ")
 ;;434
 ;;21,"58016-0622-30 ")
 ;;435
 ;;21,"58016-0622-50 ")
 ;;436
 ;;21,"58016-0622-60 ")
 ;;437
 ;;21,"58016-0622-90 ")
 ;;438
 ;;21,"58016-0755-00 ")
 ;;439
 ;;21,"58016-0755-30 ")
 ;;440
 ;;21,"58016-0755-60 ")
 ;;441
 ;;21,"58177-0002-04 ")
 ;;442
 ;;21,"58864-0068-20 ")
 ;;443
 ;;21,"58864-0068-30 ")
 ;;444
 ;;21,"58864-0365-90 ")
 ;;445
 ;;21,"58864-0634-14 ")
 ;;446
 ;;21,"58864-0634-20 ")
 ;;447
 ;;21,"58864-0634-30 ")
 ;;448
 ;;21,"58864-0769-30 ")
 ;;449
 ;;21,"58864-0796-20 ")
 ;;450
 ;;21,"58864-0797-30 ")
 ;;451
 ;;21,"58864-0815-01 ")
 ;;452
 ;;21,"58864-0815-30 ")
 ;;453
 ;;21,"58864-0870-14 ")
 ;;454
 ;;21,"60346-0140-60 ")
 ;;455
 ;;21,"60346-0396-30 ")
 ;;456
 ;;21,"60346-0396-90 ")
 ;;457
 ;;21,"60346-0459-30 ")
 ;;458
 ;;21,"60346-0459-60 ")
 ;;459
 ;;21,"60346-0459-90 ")
 ;;460
 ;;21,"60346-0607-00 ")
 ;;461
 ;;21,"60346-0607-25 ")
 ;;462
 ;;21,"60346-0607-30 ")
 ;;463
 ;;21,"60346-0607-90 ")
 ;;464
 ;;21,"60346-0794-90 ")
 ;;465
 ;;21,"60346-0803-06 ")
 ;;466
 ;;21,"60346-0803-10 ")
 ;;467
 ;;21,"60346-0803-15 ")
 ;;468
 ;;21,"60346-0803-20 ")
 ;;469
 ;;21,"60346-0803-25 ")
 ;;470
 ;;21,"60346-0803-30 ")
 ;;471
 ;;21,"60346-0803-50 ")
 ;;472
 ;;21,"60346-0803-59 ")
 ;;473
 ;;21,"60346-0803-90 ")
 ;;474
 ;;21,"60346-0809-60 ")
 ;;475
 ;;21,"60346-0809-90 ")
 ;;476
 ;;21,"60346-0829-60 ")
 ;;477
 ;;21,"60346-0837-30 ")
 ;;478
 ;;21,"60346-0837-60 ")
 ;;479
 ;;21,"60346-0845-30 ")
 ;;480
 ;;21,"60346-0845-90 ")
 ;;481
 ;;21,"60346-0939-00 ")
 ;;482
 ;;21,"60346-0939-30 ")
 ;;483
 ;;21,"60346-0939-90 ")
 ;;484
 ;;21,"60429-0099-01 ")
 ;;485
 ;;21,"60429-0099-10 ")
 ;;486
 ;;21,"60429-0100-01 ")
 ;;487
 ;;21,"60429-0100-10 ")
 ;;488
 ;;21,"60429-0163-01 ")
 ;;489
 ;;21,"62584-0249-01 ")
 ;;490
 ;;21,"62584-0249-33 ")
 ;;491
 ;;21,"62584-0802-33 ")
 ;;492
 ;;21,"62584-0989-01 ")
 ;;493
 ;;21,"62584-0989-11 ")
 ;;494
 ;;21,"62584-0989-80 ")
 ;;495
 ;;21,"62584-0989-85 ")
 ;;496
 ;;21,"62584-0990-01 ")
 ;;497
 ;;21,"62584-0990-11 ")
 ;;498
 ;;21,"62584-0990-80 ")
 ;;499
 ;;21,"62584-0990-85 ")
 ;;500
 ;;21,"62794-0145-01 ")
 ;;501
 ;;21,"62794-0145-10 ")
 ;;502
 ;;21,"62794-0145-56 ")
 ;;503
 ;;21,"62794-0146-01 ")
 ;;504
 ;;21,"62794-0146-10 ")
 ;;505
 ;;21,"62794-0146-56 ")
 ;;506
 ;;21,"63629-1558-01 ")
 ;;507
 ;;21,"63629-1558-02 ")
 ;;508
 ;;21,"63629-1558-03 ")
 ;;509
 ;;21,"63629-1558-04 ")
 ;;510
 ;;21,"63629-1558-05 ")
 ;;511
 ;;21,"63629-2579-01 ")
 ;;512
 ;;21,"63629-3870-01 ")
 ;;513
 ;;21,"63739-0077-01 ")
 ;;514
 ;;21,"63739-0077-02 ")
 ;;515
 ;;21,"63739-0077-03 ")
 ;;516
 ;;21,"63739-0077-15 ")
 ;;517
 ;;21,"63739-0078-01 ")
 ;;518
 ;;21,"63739-0078-02 ")
 ;;519
 ;;21,"63739-0078-03 ")
 ;;520
 ;;21,"63739-0078-15 ")
 ;;521
 ;;21,"63739-0185-01 ")
 ;;522
 ;;21,"63739-0185-02 ")
 ;;523
 ;;21,"63739-0185-03 ")
 ;;524
 ;;21,"65162-0711-10 ")
 ;;525
 ;;21,"65162-0713-10 ")
 ;;526
 ;;21,"65243-0023-03 ")
 ;;527
 ;;21,"65243-0023-09 ")
 ;;528
 ;;21,"65243-0024-09 ")
 ;;529
 ;;21,"66116-0429-30 ")
 ;;530
 ;;21,"66116-0430-30 ")
 ;;531
 ;;21,"66267-0401-10 ")
 ;;532
 ;;21,"66336-0140-60 ")
 ;;533
 ;;21,"66336-0374-30 ")
 ;;534
 ;;21,"66336-0459-60 ")
 ;;535
 ;;21,"66336-0607-30 ")
 ;;536
 ;;21,"66860-0080-02 ")
 ;;537
 ;;21,"67286-8901-01 ")
 ;;538
 ;;21,"67286-8901-05 ")
 ;;539
 ;;21,"67286-8903-01 ")
 ;;540
 ;;21,"67544-0090-30 ")
 ;;541
 ;;21,"67544-0090-60 ")
 ;;542
 ;;21,"67544-0091-30 ")
 ;;543
 ;;21,"67544-0091-60 ")
 ;;544
 ;;21,"67544-0091-70 ")
 ;;545
 ;;21,"67544-0519-60 ")
 ;;546
 ;;21,"67544-0594-60 ")
 ;;547
 ;;21,"67544-0777-60 ")
 ;;548
 ;;21,"67544-0778-60 ")
 ;;549
 ;;21,"67857-0705-01 ")
 ;;550
 ;;21,"67857-0705-05 ")
 ;;551
 ;;21,"67857-0706-01 ")
 ;;552
 ;;21,"68084-0508-01 ")
 ;;553
 ;;21,"68084-0508-11 ")
 ;;554
 ;;21,"68084-0509-01 ")
 ;;555
 ;;21,"68084-0509-11 ")
 ;;556
 ;;21,"68094-0752-59 ")
 ;;557
 ;;21,"68094-0752-62 ")
 ;;558
 ;;21,"68115-0111-30 ")
 ;;559
 ;;21,"68115-0112-00 ")
 ;;560
 ;;21,"68115-0112-30 ")
 ;;561
 ;;21,"68115-0255-30 ")
 ;;562
 ;;21,"68115-0472-60 ")
 ;;563
 ;;21,"68258-9055-01 ")
 ;;564
 ;;21,"68258-9082-01 ")
 ;;565
 ;;9002226,726,.01)
 ;;BGP HEDIS CARDIOVASCULAR NDC
 ;;9002226,726,.02)
 ;;@
 ;;9002226,726,.04)
 ;;n
 ;;9002226,726,.06)
 ;;@
 ;;9002226,726,.08)
 ;;@
 ;;9002226,726,.09)
 ;;3120829
 ;;9002226,726,.11)
 ;;@
 ;;9002226,726,.12)
 ;;@
 ;;9002226,726,.13)
 ;;1
 ;;9002226,726,.14)
 ;;@
 ;;9002226,726,.15)
 ;;50.67
 ;;9002226,726,.16)
 ;;@
 ;;9002226,726,.17)
 ;;@
 ;;9002226,726,3101)
 ;;@
 ;;9002226.02101,"726,00006-0423-68 ",.01)
 ;;00006-0423-68
 ;;9002226.02101,"726,00006-0423-68 ",.02)
 ;;00006-0423-68
 ;;9002226.02101,"726,00006-0456-68 ",.01)
 ;;00006-0456-68
 ;;9002226.02101,"726,00006-0456-68 ",.02)
 ;;00006-0456-68
 ;;9002226.02101,"726,00006-0456-82 ",.01)
 ;;00006-0456-82
 ;;9002226.02101,"726,00006-0456-82 ",.02)
 ;;00006-0456-82
 ;;9002226.02101,"726,00006-0634-68 ",.01)
 ;;00006-0634-68
 ;;9002226.02101,"726,00006-0634-68 ",.02)
 ;;00006-0634-68
 ;;9002226.02101,"726,00006-0694-68 ",.01)
 ;;00006-0694-68
 ;;9002226.02101,"726,00006-0694-68 ",.02)
 ;;00006-0694-68
 ;;9002226.02101,"726,00006-0935-68 ",.01)
 ;;00006-0935-68
 ;;9002226.02101,"726,00006-0935-68 ",.02)
 ;;00006-0935-68
 ;;9002226.02101,"726,00025-2732-31 ",.01)
 ;;00025-2732-31
 ;;9002226.02101,"726,00025-2732-31 ",.02)
 ;;00025-2732-31
 ;;9002226.02101,"726,00025-2732-34 ",.01)
 ;;00025-2732-34
 ;;9002226.02101,"726,00025-2732-34 ",.02)
 ;;00025-2732-34
 ;;9002226.02101,"726,00025-2732-51 ",.01)
 ;;00025-2732-51
 ;;9002226.02101,"726,00025-2732-51 ",.02)
 ;;00025-2732-51
 ;;9002226.02101,"726,00025-2742-31 ",.01)
 ;;00025-2742-31
 ;;9002226.02101,"726,00025-2742-31 ",.02)
 ;;00025-2742-31
 ;;9002226.02101,"726,00025-2742-34 ",.01)
 ;;00025-2742-34
 ;;9002226.02101,"726,00025-2742-34 ",.02)
 ;;00025-2742-34
 ;;9002226.02101,"726,00025-2742-51 ",.01)
 ;;00025-2742-51
 ;;9002226.02101,"726,00025-2742-51 ",.02)
 ;;00025-2742-51
 ;;9002226.02101,"726,00025-2752-31 ",.01)
 ;;00025-2752-31
 ;;9002226.02101,"726,00025-2752-31 ",.02)
 ;;00025-2752-31
 ;;9002226.02101,"726,00025-2752-52 ",.01)
 ;;00025-2752-52
 ;;9002226.02101,"726,00025-2752-52 ",.02)
 ;;00025-2752-52
 ;;9002226.02101,"726,00025-2762-31 ",.01)
 ;;00025-2762-31
 ;;9002226.02101,"726,00025-2762-31 ",.02)
 ;;00025-2762-31
 ;;9002226.02101,"726,00025-2762-52 ",.01)
 ;;00025-2762-52
 ;;9002226.02101,"726,00025-2762-52 ",.02)
 ;;00025-2762-52
 ;;9002226.02101,"726,00031-8901-63 ",.01)
 ;;00031-8901-63
 ;;9002226.02101,"726,00031-8901-63 ",.02)
 ;;00031-8901-63
 ;;9002226.02101,"726,00031-8901-70 ",.01)
 ;;00031-8901-70
 ;;9002226.02101,"726,00031-8901-70 ",.02)
 ;;00031-8901-70
 ;;9002226.02101,"726,00031-8903-63 ",.01)
 ;;00031-8903-63
 ;;9002226.02101,"726,00031-8903-63 ",.02)
 ;;00031-8903-63
 ;;9002226.02101,"726,00037-0274-92 ",.01)
 ;;00037-0274-92
 ;;9002226.02101,"726,00037-0274-92 ",.02)
 ;;00037-0274-92
 ;;9002226.02101,"726,00037-0274-96 ",.01)
 ;;00037-0274-96
 ;;9002226.02101,"726,00037-0274-96 ",.02)
 ;;00037-0274-96
 ;;9002226.02101,"726,00037-0274-98 ",.01)
 ;;00037-0274-98
 ;;9002226.02101,"726,00037-0274-98 ",.02)
 ;;00037-0274-98
 ;;9002226.02101,"726,00054-0057-16 ",.01)
 ;;00054-0057-16
 ;;9002226.02101,"726,00054-0057-16 ",.02)
 ;;00054-0057-16
 ;;9002226.02101,"726,00054-0057-46 ",.01)
 ;;00054-0057-46
 ;;9002226.02101,"726,00054-0057-46 ",.02)
 ;;00054-0057-46
 ;;9002226.02101,"726,00054-0057-55 ",.01)
 ;;00054-0057-55
 ;;9002226.02101,"726,00054-0057-55 ",.02)
 ;;00054-0057-55
 ;;9002226.02101,"726,00054-3192-46 ",.01)
 ;;00054-3192-46
 ;;9002226.02101,"726,00054-3192-46 ",.02)
 ;;00054-3192-46
 ;;9002226.02101,"726,00054-8192-16 ",.01)
 ;;00054-8192-16
 ;;9002226.02101,"726,00054-8192-16 ",.02)
 ;;00054-8192-16
 ;;9002226.02101,"726,00054-8193-16 ",.01)
 ;;00054-8193-16
 ;;9002226.02101,"726,00054-8193-16 ",.02)
 ;;00054-8193-16
 ;;9002226.02101,"726,00069-2600-66 ",.01)
 ;;00069-2600-66
 ;;9002226.02101,"726,00069-2600-66 ",.02)
 ;;00069-2600-66
 ;;9002226.02101,"726,00069-2600-72 ",.01)
 ;;00069-2600-72
 ;;9002226.02101,"726,00069-2600-72 ",.02)
 ;;00069-2600-72
 ;;9002226.02101,"726,00069-2610-66 ",.01)
 ;;00069-2610-66
 ;;9002226.02101,"726,00069-2610-66 ",.02)
 ;;00069-2610-66
 ;;9002226.02101,"726,00074-2167-01 ",.01)
 ;;00074-2167-01
 ;;9002226.02101,"726,00074-2167-01 ",.02)
 ;;00074-2167-01
 ;;9002226.02101,"726,00074-2169-01 ",.01)
 ;;00074-2169-01
 ;;9002226.02101,"726,00074-2169-01 ",.02)
 ;;00074-2169-01
 ;;9002226.02101,"726,00074-2169-02 ",.01)
 ;;00074-2169-02
 ;;9002226.02101,"726,00074-2169-02 ",.02)
 ;;00074-2169-02
 ;;9002226.02101,"726,00074-2169-31 ",.01)
 ;;00074-2169-31
 ;;9002226.02101,"726,00074-2169-31 ",.02)
 ;;00074-2169-31
 ;;9002226.02101,"726,00074-2169-32 ",.01)
 ;;00074-2169-32
 ;;9002226.02101,"726,00074-2169-32 ",.02)
 ;;00074-2169-32
 ;;9002226.02101,"726,00074-3030-01 ",.01)
 ;;00074-3030-01
 ;;9002226.02101,"726,00074-3030-01 ",.02)
 ;;00074-3030-01
 ;;9002226.02101,"726,00074-3030-02 ",.01)
 ;;00074-3030-02
 ;;9002226.02101,"726,00074-3030-02 ",.02)
 ;;00074-3030-02
 ;;9002226.02101,"726,00074-3405-02 ",.01)
 ;;00074-3405-02
 ;;9002226.02101,"726,00074-3405-02 ",.02)
 ;;00074-3405-02
 ;;9002226.02101,"726,00074-3406-02 ",.01)
 ;;00074-3406-02
 ;;9002226.02101,"726,00074-3406-02 ",.02)
 ;;00074-3406-02
 ;;9002226.02101,"726,00093-2931-01 ",.01)
 ;;00093-2931-01
 ;;9002226.02101,"726,00093-2931-01 ",.02)
 ;;00093-2931-01
 ;;9002226.02101,"726,00093-2931-10 ",.01)
 ;;00093-2931-10
 ;;9002226.02101,"726,00093-2931-10 ",.02)
 ;;00093-2931-10
 ;;9002226.02101,"726,00093-2932-01 ",.01)
 ;;00093-2932-01
 ;;9002226.02101,"726,00093-2932-01 ",.02)
 ;;00093-2932-01
 ;;9002226.02101,"726,00093-2932-05 ",.01)
 ;;00093-2932-05
 ;;9002226.02101,"726,00093-2932-05 ",.02)
 ;;00093-2932-05
 ;;9002226.02101,"726,00093-3127-01 ",.01)
 ;;00093-3127-01
 ;;9002226.02101,"726,00093-3127-01 ",.02)
 ;;00093-3127-01
 ;;9002226.02101,"726,00093-3127-05 ",.01)
 ;;00093-3127-05
 ;;9002226.02101,"726,00093-3127-05 ",.02)
 ;;00093-3127-05
 ;;9002226.02101,"726,00093-3129-01 ",.01)
 ;;00093-3129-01
 ;;9002226.02101,"726,00093-3129-01 ",.02)
 ;;00093-3129-01
 ;;9002226.02101,"726,00093-3129-05 ",.01)
 ;;00093-3129-05
 ;;9002226.02101,"726,00093-3129-05 ",.02)
 ;;00093-3129-05
 ;;9002226.02101,"726,00093-8171-01 ",.01)
 ;;00093-8171-01
 ;;9002226.02101,"726,00093-8171-01 ",.02)
 ;;00093-8171-01
 ;;9002226.02101,"726,00093-8171-55 ",.01)
 ;;00093-8171-55
 ;;9002226.02101,"726,00093-8171-55 ",.02)
 ;;00093-8171-55
 ;;9002226.02101,"726,00115-9811-01 ",.01)
 ;;00115-9811-01
 ;;9002226.02101,"726,00115-9811-01 ",.02)
 ;;00115-9811-01
 ;;9002226.02101,"726,00115-9811-03 ",.01)
 ;;00115-9811-03
 ;;9002226.02101,"726,00115-9811-03 ",.02)
 ;;00115-9811-03
 ;;9002226.02101,"726,00115-9822-01 ",.01)
 ;;00115-9822-01
 ;;9002226.02101,"726,00115-9822-01 ",.02)
 ;;00115-9822-01
 ;;9002226.02101,"726,00115-9822-03 ",.01)
 ;;00115-9822-03
 ;;9002226.02101,"726,00115-9822-03 ",.02)
 ;;00115-9822-03
 ;;9002226.02101,"726,00143-1240-01 ",.01)
 ;;00143-1240-01
 ;;9002226.02101,"726,00143-1240-01 ",.02)
 ;;00143-1240-01
 ;;9002226.02101,"726,00143-1240-10 ",.01)
 ;;00143-1240-10
 ;;9002226.02101,"726,00143-1240-10 ",.02)
 ;;00143-1240-10
 ;;9002226.02101,"726,00143-1240-51 ",.01)
 ;;00143-1240-51
 ;;9002226.02101,"726,00143-1240-51 ",.02)
 ;;00143-1240-51
 ;;9002226.02101,"726,00143-1241-01 ",.01)
 ;;00143-1241-01
 ;;9002226.02101,"726,00143-1241-01 ",.02)
 ;;00143-1241-01
 ;;9002226.02101,"726,00143-1241-10 ",.01)
 ;;00143-1241-10
 ;;9002226.02101,"726,00143-1241-10 ",.02)
 ;;00143-1241-10
 ;;9002226.02101,"726,00143-1241-51 ",.01)
 ;;00143-1241-51