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

BGP13X11.m

Go to the documentation of this file.
BGP13X11 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"67544-0377-60 ")
 ;;453
 ;;21,"67544-0380-30 ")
 ;;1699
 ;;21,"67544-0380-60 ")
 ;;1700
 ;;21,"67544-0381-15 ")
 ;;1761
 ;;21,"67544-0381-30 ")
 ;;1762
 ;;21,"67544-0381-45 ")
 ;;1763
 ;;21,"67544-0381-53 ")
 ;;1764
 ;;21,"67544-0381-60 ")
 ;;1765
 ;;21,"67544-0381-70 ")
 ;;1766
 ;;21,"67544-0381-73 ")
 ;;1767
 ;;21,"67544-0381-80 ")
 ;;1768
 ;;21,"67544-0381-92 ")
 ;;1769
 ;;21,"67544-0381-94 ")
 ;;1770
 ;;21,"67544-0382-30 ")
 ;;3664
 ;;21,"67544-0400-45 ")
 ;;3587
 ;;21,"67544-0403-30 ")
 ;;3904
 ;;21,"67544-0404-30 ")
 ;;3849
 ;;21,"67544-0418-60 ")
 ;;454
 ;;21,"67544-0431-15 ")
 ;;1771
 ;;21,"67544-0431-30 ")
 ;;1772
 ;;21,"67544-0431-45 ")
 ;;1773
 ;;21,"67544-0431-53 ")
 ;;1774
 ;;21,"67544-0431-60 ")
 ;;1775
 ;;21,"67544-0431-70 ")
 ;;1776
 ;;21,"67544-0431-73 ")
 ;;1777
 ;;21,"67544-0431-80 ")
 ;;1778
 ;;21,"67544-0431-92 ")
 ;;1779
 ;;21,"67544-0431-94 ")
 ;;1780
 ;;21,"67544-0454-15 ")
 ;;1826
 ;;21,"67544-0454-30 ")
 ;;1827
 ;;21,"67544-0454-40 ")
 ;;1828
 ;;21,"67544-0454-45 ")
 ;;1829
 ;;21,"67544-0454-60 ")
 ;;1830
 ;;21,"67544-0489-15 ")
 ;;1701
 ;;21,"67544-0489-30 ")
 ;;1702
 ;;21,"67544-0489-60 ")
 ;;1703
 ;;21,"67544-0678-60 ")
 ;;2033
 ;;21,"67544-0992-30 ")
 ;;2325
 ;;21,"67544-0997-30 ")
 ;;2551
 ;;21,"67544-0999-60 ")
 ;;2326
 ;;21,"67544-0999-80 ")
 ;;2327
 ;;21,"67544-1010-30 ")
 ;;369
 ;;21,"67544-1010-60 ")
 ;;370
 ;;21,"67544-1038-30 ")
 ;;1831
 ;;21,"67544-1038-45 ")
 ;;1832
 ;;21,"67544-1042-45 ")
 ;;1833
 ;;21,"67544-1042-60 ")
 ;;1834
 ;;21,"67544-1054-30 ")
 ;;455
 ;;21,"67544-1057-30 ")
 ;;524
 ;;21,"67544-1082-45 ")
 ;;1781
 ;;21,"67544-1105-30 ")
 ;;1704
 ;;21,"67544-1105-45 ")
 ;;1705
 ;;21,"67544-1348-45 ")
 ;;2034
 ;;21,"67544-1348-60 ")
 ;;2035
 ;;21,"67544-1350-45 ")
 ;;2552
 ;;21,"67544-1350-60 ")
 ;;2553
 ;;21,"67544-1372-45 ")
 ;;2745
 ;;21,"67544-1386-30 ")
 ;;456
 ;;21,"67544-1386-60 ")
 ;;457
 ;;21,"67544-1387-45 ")
 ;;2328
 ;;21,"68030-6700-02 ")
 ;;2036
 ;;21,"68030-6701-02 ")
 ;;2329
 ;;21,"68071-0026-30 ")
 ;;806
 ;;21,"68071-0026-60 ")
 ;;807
 ;;21,"68071-0026-90 ")
 ;;808
 ;;21,"68071-0146-30 ")
 ;;730
 ;;21,"68071-0146-60 ")
 ;;740
 ;;21,"68071-0146-90 ")
 ;;741
 ;;21,"68071-0146-91 ")
 ;;742
 ;;21,"68071-0153-30 ")
 ;;541
 ;;21,"68071-0153-60 ")
 ;;542
 ;;21,"68071-0153-90 ")
 ;;543
 ;;21,"68071-0785-30 ")
 ;;3434
 ;;21,"68071-0785-60 ")
 ;;3435
 ;;21,"68071-0786-30 ")
 ;;3492
 ;;21,"68071-0786-60 ")
 ;;3493
 ;;21,"68071-0787-60 ")
 ;;3331
 ;;21,"68084-0058-01 ")
 ;;2131
 ;;21,"68084-0058-11 ")
 ;;2132
 ;;21,"68084-0060-01 ")
 ;;2746
 ;;21,"68084-0060-11 ")
 ;;2747
 ;;21,"68084-0061-01 ")
 ;;2037
 ;;21,"68084-0061-11 ")
 ;;2038
 ;;21,"68084-0062-01 ")
 ;;2330
 ;;21,"68084-0062-11 ")
 ;;2331
 ;;21,"68084-0064-01 ")
 ;;2554
 ;;21,"68084-0064-11 ")
 ;;2555
 ;;21,"68084-0266-01 ")
 ;;3025
 ;;21,"68084-0266-11 ")
 ;;3026
 ;;21,"68084-0267-01 ")
 ;;3076
 ;;21,"68084-0267-11 ")
 ;;3077
 ;;21,"68084-0268-01 ")
 ;;2980
 ;;21,"68084-0268-11 ")
 ;;2981
 ;;21,"68084-0294-11 ")
 ;;2936
 ;;21,"68084-0294-21 ")
 ;;2937
 ;;21,"68084-0346-01 ")
 ;;3687
 ;;21,"68084-0346-11 ")
 ;;3688
 ;;21,"68084-0347-01 ")
 ;;3755
 ;;21,"68084-0347-11 ")
 ;;3756
 ;;21,"68084-0348-01 ")
 ;;3640
 ;;21,"68084-0348-11 ")
 ;;3641
 ;;21,"68084-0349-11 ")
 ;;76
 ;;21,"68084-0349-21 ")
 ;;77
 ;;21,"68084-0350-01 ")
 ;;112
 ;;21,"68084-0350-11 ")
 ;;113
 ;;21,"68084-0351-11 ")
 ;;26
 ;;21,"68084-0351-21 ")
 ;;27
 ;;21,"68084-0390-01 ")
 ;;1642
 ;;21,"68084-0390-11 ")
 ;;1643
 ;;21,"68084-0391-01 ")
 ;;1288
 ;;21,"68084-0391-11 ")
 ;;1289
 ;;21,"68084-0392-01 ")
 ;;1498
 ;;21,"68084-0392-11 ")
 ;;1499
 ;;21,"68115-0059-00 ")
 ;;1050
 ;;21,"68115-0059-30 ")
 ;;1051
 ;;21,"68115-0059-60 ")
 ;;1052
 ;;21,"68115-0059-90 ")
 ;;1053
 ;;21,"68115-0060-30 ")
 ;;1149
 ;;21,"68115-0060-60 ")
 ;;1150
 ;;21,"68115-0060-90 ")
 ;;1151
 ;;21,"68115-0127-00 ")
 ;;1290
 ;;21,"68115-0127-15 ")
 ;;1291
 ;;21,"68115-0127-30 ")
 ;;1292
 ;;21,"68115-0127-60 ")
 ;;1293
 ;;21,"68115-0128-00 ")
 ;;1500
 ;;21,"68115-0128-20 ")
 ;;1501
 ;;21,"68115-0128-30 ")
 ;;1502
 ;;21,"68115-0128-60 ")
 ;;1503
 ;;21,"68115-0129-30 ")
 ;;1644
 ;;21,"68115-0129-60 ")
 ;;1645
 ;;21,"68115-0207-30 ")
 ;;2039
 ;;21,"68115-0207-60 ")
 ;;2040
 ;;21,"68115-0207-90 ")
 ;;2041
 ;;21,"68115-0208-30 ")
 ;;2332
 ;;21,"68115-0208-60 ")
 ;;2333
 ;;21,"68115-0208-90 ")
 ;;2334
 ;;21,"68115-0209-30 ")
 ;;2556
 ;;21,"68115-0215-30 ")
 ;;654
 ;;21,"68115-0216-30 ")
 ;;731
 ;;21,"68115-0217-30 ")
 ;;797
 ;;21,"68115-0361-30 ")
 ;;2042
 ;;21,"68115-0362-00 ")
 ;;2335
 ;;21,"68115-0362-60 ")
 ;;2336
 ;;21,"68115-0363-30 ")
 ;;2748
 ;;21,"68115-0378-30 ")
 ;;2982
 ;;21,"68115-0378-60 ")
 ;;2983
 ;;21,"68115-0396-30 ")
 ;;2749
 ;;21,"68115-0425-90 ")
 ;;874
 ;;21,"68115-0490-30 ")
 ;;655
 ;;21,"68115-0490-60 ")
 ;;656
 ;;21,"68115-0491-30 ")
 ;;732
 ;;21,"68115-0530-00 ")
 ;;3027
 ;;21,"68115-0530-30 ")
 ;;3028
 ;;21,"68115-0530-60 ")
 ;;3029
 ;;21,"68115-0597-00 ")
 ;;798
 ;;21,"68115-0615-00 ")
 ;;657
 ;;21,"68115-0621-00 ")
 ;;837
 ;;21,"68115-0650-00 ")
 ;;17
 ;;21,"68115-0654-00 ")
 ;;733
 ;;21,"68115-0669-00 ")
 ;;3494
 ;;21,"68115-0669-90 ")
 ;;3495
 ;;21,"68115-0673-00 ")
 ;;102
 ;;21,"68115-0673-30 ")
 ;;103
 ;;21,"68115-0677-00 ")
 ;;458
 ;;21,"68115-0677-30 ")
 ;;459
 ;;21,"68115-0703-30 ")
 ;;3203
 ;;21,"68115-0703-90 ")
 ;;3204
 ;;21,"68115-0733-00 ")
 ;;3715
 ;;21,"68115-0733-30 ")
 ;;3716
 ;;21,"68115-0733-90 ")
 ;;3717
 ;;21,"68115-0778-00 ")
 ;;68
 ;;21,"68115-0812-00 ")
 ;;3078
 ;;21,"68115-0812-30 ")
 ;;3079
 ;;21,"68115-0812-60 ")
 ;;3080
 ;;21,"68115-0824-00 ")
 ;;838
 ;;21,"68115-0854-00 ")
 ;;3905
 ;;21,"68115-0854-90 ")
 ;;3906
 ;;21,"68115-0865-30 ")
 ;;3286
 ;;21,"68115-0889-90 ")
 ;;2868
 ;;21,"68180-0210-03 ")
 ;;3689
 ;;21,"68180-0210-09 ")
 ;;3690
 ;;21,"68180-0211-03 ")
 ;;3757
 ;;21,"68180-0211-09 ")
 ;;3758
 ;;21,"68180-0212-03 ")
 ;;3642
 ;;21,"68180-0212-09 ")
 ;;3643
 ;;21,"68180-0215-03 ")
 ;;3358
 ;;21,"68180-0215-09 ")
 ;;3359
 ;;21,"68180-0216-03 ")
 ;;3271
 ;;21,"68180-0216-06 ")
 ;;3272
 ;;21,"68180-0216-09 ")
 ;;3273
 ;;21,"68180-0217-03 ")
 ;;3311
 ;;21,"68180-0217-09 ")
 ;;3312
 ;;21,"68180-0235-01 ")
 ;;2796
 ;;21,"68180-0236-01 ")
 ;;2802
 ;;21,"68180-0237-01 ")
 ;;2808
 ;;21,"68180-0512-01 ")
 ;;2133
 ;;21,"68180-0512-02 ")
 ;;2134
 ;;21,"68180-0513-01 ")
 ;;2750
 ;;21,"68180-0513-03 ")
 ;;2751
 ;;21,"68180-0514-01 ")
 ;;2043
 ;;21,"68180-0514-03 ")
 ;;2044
 ;;21,"68180-0515-01 ")
 ;;2337
 ;;21,"68180-0515-03 ")
 ;;2338
 ;;21,"68180-0516-01 ")
 ;;2410
 ;;21,"68180-0516-02 ")
 ;;2411
 ;;21,"68180-0517-01 ")
 ;;2557
 ;;21,"68180-0517-03 ")
 ;;2558
 ;;21,"68180-0518-01 ")
 ;;371
 ;;21,"68180-0518-02 ")
 ;;372
 ;;21,"68180-0519-01 ")
 ;;460
 ;;21,"68180-0519-02 ")
 ;;461
 ;;21,"68180-0520-01 ")
 ;;525
 ;;21,"68180-0520-02 ")
 ;;526
 ;;21,"68180-0556-09 ")
 ;;2921
 ;;21,"68180-0557-09 ")
 ;;2839
 ;;21,"68180-0558-09 ")
 ;;2869
 ;;21,"68180-0559-09 ")
 ;;2898
 ;;21,"68180-0566-01 ")
 ;;3108
 ;;21,"68180-0567-01 ")
 ;;3126
 ;;21,"68180-0568-01 ")
 ;;3148
 ;;21,"68180-0588-01 ")
 ;;2938
 ;;21,"68180-0589-01 ")
 ;;3030
 ;;21,"68180-0589-02 ")
 ;;3031
 ;;21,"68180-0590-01 ")
 ;;3081
 ;;21,"68180-0590-02 ")
 ;;3082
 ;;21,"68180-0591-01 ")
 ;;2984
 ;;21,"68180-0591-02 ")
 ;;2985
 ;;21,"68180-0755-01 ")
 ;;48
 ;;21,"68180-0756-01 ")
 ;;78
 ;;21,"68180-0756-02 ")
 ;;79
 ;;21,"68180-0757-01 ")
 ;;114
 ;;21,"68180-0757-02 ")
 ;;115
 ;;21,"68180-0758-01 ")
 ;;28
 ;;21,"68180-0758-02 ")
 ;;29
 ;;21,"68258-1053-01 ")
 ;;658
 ;;21,"68258-1054-01 ")
 ;;734
 ;;21,"68258-1055-01 ")
 ;;799
 ;;21,"68258-1058-01 ")
 ;;2045
 ;;21,"68258-1059-01 ")
 ;;2339
 ;;21,"68258-1080-01 ")
 ;;2559
 ;;21,"68258-9062-01 ")
 ;;839
 ;;21,"68382-0135-01 ")
 ;;3691
 ;;21,"68382-0135-06 ")
 ;;3692
 ;;21,"68382-0135-10 ")
 ;;3693
 ;;21,"68382-0135-16 ")
 ;;3694
 ;;21,"68382-0136-01 ")
 ;;3759
 ;;21,"68382-0136-06 ")
 ;;3760
 ;;21,"68382-0136-10 ")
 ;;3761
 ;;21,"68382-0136-16 ")
 ;;3762
 ;;21,"68382-0137-01 ")
 ;;3644
 ;;21,"68382-0137-06 ")
 ;;3645
 ;;21,"68382-0137-10 ")
 ;;3646
 ;;21,"68382-0137-16 ")
 ;;3647
 ;;21,"68382-0142-06 ")
 ;;3360
 ;;21,"68382-0142-10 ")
 ;;3361
 ;;21,"68382-0142-16 ")
 ;;3362
 ;;21,"68382-0143-06 ")
 ;;3313
 ;;21,"68382-0143-10 ")
 ;;3314
 ;;21,"68382-0143-16 ")
 ;;3315
 ;;21,"68387-0543-30 ")
 ;;2046
 ;;21,"68405-8007-06 ")
 ;;145
 ;;21,"68405-8007-36 ")
 ;;146
 ;;21,"68462-0205-01 ")
 ;;562
 ;;21,"68462-0206-01 ")
 ;;550
 ;;21,"68462-0207-01 ")
 ;;568
 ;;21,"68462-0208-01 ")
 ;;2780
 ;;21,"68462-0209-01 ")
 ;;2792
 ;;21,"68462-0294-01 ")
 ;;124
 ;;21,"68462-0295-01 ")
 ;;131
 ;;21,"68462-0296-01 ")
 ;;136
 ;;21,"68462-0329-01 ")
 ;;144
 ;;21,"68462-0367-10 ")
 ;;1706
 ;;21,"68462-0367-90 ")
 ;;1707
 ;;21,"68462-0368-10 ")
 ;;1782
 ;;21,"68462-0368-90 ")
 ;;1783
 ;;21,"68462-0369-10 ")
 ;;1835
 ;;21,"68462-0369-90 ")
 ;;1836
 ;;21,"68462-0554-01 ")
 ;;302
 ;;21,"68462-0555-01 ")
 ;;311
 ;;21,"68552-0221-10 ")
 ;;1708
 ;;21,"68552-0221-90 ")
 ;;1709
 ;;21,"68552-0222-10 ")
 ;;1784
 ;;21,"68552-0222-90 ")
 ;;1785
 ;;21,"68552-0223-10 ")
 ;;1837
 ;;21,"68552-0223-90 ")
 ;;1838
 ;;21,"68645-0160-59 ")
 ;;943
 ;;21,"68645-0161-59 ")
 ;;1054
 ;;21,"68645-0162-59 ")
 ;;1152
 ;;21,"68645-0163-59 ")
 ;;875
 ;;21,"68645-0272-54 ")
 ;;2359
 ;;9002226,1100,.01)
 ;;BGP PQA ACEI ARB NDC
 ;;9002226,1100,.02)
 ;;@
 ;;9002226,1100,.04)
 ;;n
 ;;9002226,1100,.06)
 ;;@
 ;;9002226,1100,.08)
 ;;@
 ;;9002226,1100,.09)
 ;;@
 ;;9002226,1100,.11)
 ;;@
 ;;9002226,1100,.12)
 ;;@
 ;;9002226,1100,.13)
 ;;1
 ;;9002226,1100,.14)
 ;;@
 ;;9002226,1100,.15)
 ;;@
 ;;9002226,1100,.16)
 ;;@
 ;;9002226,1100,.17)
 ;;@
 ;;9002226,1100,3101)
 ;;@
 ;;9002226.02101,"1100,00003-0338-50 ",.01)
 ;;00003-0338-50
 ;;9002226.02101,"1100,00003-0338-50 ",.02)
 ;;00003-0338-50
 ;;9002226.02101,"1100,00003-0349-50 ",.01)
 ;;00003-0349-50
 ;;9002226.02101,"1100,00003-0349-50 ",.02)
 ;;00003-0349-50
 ;;9002226.02101,"1100,00003-0384-50 ",.01)
 ;;00003-0384-50
 ;;9002226.02101,"1100,00003-0384-50 ",.02)
 ;;00003-0384-50
 ;;9002226.02101,"1100,00003-0390-50 ",.01)
 ;;00003-0390-50
 ;;9002226.02101,"1100,00003-0390-50 ",.02)
 ;;00003-0390-50
 ;;9002226.02101,"1100,00003-0450-51 ",.01)
 ;;00003-0450-51
 ;;9002226.02101,"1100,00003-0450-51 ",.02)
 ;;00003-0450-51
 ;;9002226.02101,"1100,00003-0450-54 ",.01)
 ;;00003-0450-54
 ;;9002226.02101,"1100,00003-0450-54 ",.02)
 ;;00003-0450-54
 ;;9002226.02101,"1100,00003-0450-75 ",.01)
 ;;00003-0450-75
 ;;9002226.02101,"1100,00003-0450-75 ",.02)
 ;;00003-0450-75
 ;;9002226.02101,"1100,00003-0452-50 ",.01)
 ;;00003-0452-50
 ;;9002226.02101,"1100,00003-0452-50 ",.02)
 ;;00003-0452-50
 ;;9002226.02101,"1100,00003-0452-51 ",.01)
 ;;00003-0452-51
 ;;9002226.02101,"1100,00003-0452-51 ",.02)
 ;;00003-0452-51
 ;;9002226.02101,"1100,00003-0452-75 ",.01)
 ;;00003-0452-75
 ;;9002226.02101,"1100,00003-0452-75 ",.02)
 ;;00003-0452-75
 ;;9002226.02101,"1100,00003-0482-50 ",.01)
 ;;00003-0482-50
 ;;9002226.02101,"1100,00003-0482-50 ",.02)
 ;;00003-0482-50
 ;;9002226.02101,"1100,00003-0482-51 ",.01)
 ;;00003-0482-51
 ;;9002226.02101,"1100,00003-0482-51 ",.02)
 ;;00003-0482-51
 ;;9002226.02101,"1100,00003-0482-75 ",.01)
 ;;00003-0482-75
 ;;9002226.02101,"1100,00003-0482-75 ",.02)
 ;;00003-0482-75
 ;;9002226.02101,"1100,00003-0485-50 ",.01)
 ;;00003-0485-50
 ;;9002226.02101,"1100,00003-0485-50 ",.02)
 ;;00003-0485-50
 ;;9002226.02101,"1100,00006-0014-28 ",.01)
 ;;00006-0014-28
 ;;9002226.02101,"1100,00006-0014-28 ",.02)
 ;;00006-0014-28
 ;;9002226.02101,"1100,00006-0014-68 ",.01)
 ;;00006-0014-68
 ;;9002226.02101,"1100,00006-0014-68 ",.02)
 ;;00006-0014-68
 ;;9002226.02101,"1100,00006-0014-82 ",.01)
 ;;00006-0014-82
 ;;9002226.02101,"1100,00006-0014-82 ",.02)
 ;;00006-0014-82