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

BGP13T15.m

Go to the documentation of this file.
BGP13T15 ; 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,"68071-0412-60 ")
 ;;2159
 ;;21,"68071-0444-15 ")
 ;;1410
 ;;21,"68071-0444-60 ")
 ;;1411
 ;;21,"68071-0445-15 ")
 ;;1412
 ;;21,"68071-0445-60 ")
 ;;1413
 ;;21,"68071-1312-00 ")
 ;;1414
 ;;21,"68071-1313-00 ")
 ;;1415
 ;;21,"68084-0031-01 ")
 ;;3583
 ;;21,"68084-0031-11 ")
 ;;3584
 ;;21,"68084-0032-01 ")
 ;;3585
 ;;21,"68084-0032-11 ")
 ;;3586
 ;;21,"68084-0044-01 ")
 ;;3902
 ;;21,"68084-0044-05 ")
 ;;3903
 ;;21,"68084-0044-11 ")
 ;;3904
 ;;21,"68084-0044-30 ")
 ;;3905
 ;;21,"68084-0044-85 ")
 ;;3906
 ;;21,"68084-0044-90 ")
 ;;3907
 ;;21,"68084-0045-00 ")
 ;;3908
 ;;21,"68084-0045-01 ")
 ;;3909
 ;;21,"68084-0045-05 ")
 ;;3910
 ;;21,"68084-0045-11 ")
 ;;3911
 ;;21,"68084-0045-30 ")
 ;;3912
 ;;21,"68084-0045-85 ")
 ;;3913
 ;;21,"68084-0045-90 ")
 ;;3914
 ;;21,"68084-0046-01 ")
 ;;3915
 ;;21,"68084-0046-05 ")
 ;;3916
 ;;21,"68084-0046-11 ")
 ;;3917
 ;;21,"68084-0046-30 ")
 ;;3918
 ;;21,"68084-0046-85 ")
 ;;3919
 ;;21,"68084-0046-90 ")
 ;;3920
 ;;21,"68084-0047-01 ")
 ;;3921
 ;;21,"68084-0047-05 ")
 ;;3922
 ;;21,"68084-0047-11 ")
 ;;3923
 ;;21,"68084-0047-30 ")
 ;;3924
 ;;21,"68084-0047-85 ")
 ;;3925
 ;;21,"68084-0047-90 ")
 ;;3926
 ;;21,"68084-0119-01 ")
 ;;3160
 ;;21,"68084-0119-06 ")
 ;;3161
 ;;21,"68084-0119-11 ")
 ;;3162
 ;;21,"68084-0119-30 ")
 ;;3163
 ;;21,"68084-0120-01 ")
 ;;3164
 ;;21,"68084-0120-06 ")
 ;;3165
 ;;21,"68084-0120-11 ")
 ;;3166
 ;;21,"68084-0120-30 ")
 ;;3167
 ;;21,"68084-0121-01 ")
 ;;3168
 ;;21,"68084-0121-11 ")
 ;;3169
 ;;21,"68084-0121-30 ")
 ;;3170
 ;;21,"68084-0180-01 ")
 ;;4568
 ;;21,"68084-0180-11 ")
 ;;4569
 ;;21,"68084-0181-01 ")
 ;;4570
 ;;21,"68084-0181-11 ")
 ;;4571
 ;;21,"68084-0182-01 ")
 ;;4572
 ;;21,"68084-0182-11 ")
 ;;4573
 ;;21,"68084-0251-01 ")
 ;;895
 ;;21,"68084-0251-11 ")
 ;;896
 ;;21,"68084-0252-11 ")
 ;;897
 ;;21,"68084-0252-21 ")
 ;;898
 ;;21,"68084-0330-01 ")
 ;;5105
 ;;21,"68084-0331-01 ")
 ;;5106
 ;;21,"68115-0021-00 ")
 ;;533
 ;;21,"68115-0021-30 ")
 ;;534
 ;;21,"68115-0021-60 ")
 ;;535
 ;;21,"68115-0022-00 ")
 ;;536
 ;;21,"68115-0022-20 ")
 ;;537
 ;;21,"68115-0022-30 ")
 ;;538
 ;;21,"68115-0022-60 ")
 ;;539
 ;;21,"68115-0022-90 ")
 ;;540
 ;;21,"68115-0023-00 ")
 ;;541
 ;;21,"68115-0023-14 ")
 ;;542
 ;;21,"68115-0023-30 ")
 ;;543
 ;;21,"68115-0023-48 ")
 ;;544
 ;;21,"68115-0023-60 ")
 ;;545
 ;;21,"68115-0023-90 ")
 ;;546
 ;;21,"68115-0023-99 ")
 ;;547
 ;;21,"68115-0024-00 ")
 ;;548
 ;;21,"68115-0024-30 ")
 ;;549
 ;;21,"68115-0024-60 ")
 ;;550
 ;;21,"68115-0024-90 ")
 ;;551
 ;;21,"68115-0071-00 ")
 ;;959
 ;;21,"68115-0071-30 ")
 ;;960
 ;;21,"68115-0124-00 ")
 ;;1878
 ;;21,"68115-0124-30 ")
 ;;1879
 ;;21,"68115-0124-60 ")
 ;;1880
 ;;21,"68115-0124-90 ")
 ;;1881
 ;;21,"68115-0143-30 ")
 ;;2600
 ;;21,"68115-0143-60 ")
 ;;2601
 ;;21,"68115-0143-90 ")
 ;;2602
 ;;21,"68115-0144-00 ")
 ;;2603
 ;;21,"68115-0144-30 ")
 ;;2604
 ;;21,"68115-0144-60 ")
 ;;2605
 ;;21,"68115-0144-90 ")
 ;;2606
 ;;21,"68115-0145-30 ")
 ;;2607
 ;;21,"68115-0145-60 ")
 ;;2608
 ;;21,"68115-0145-90 ")
 ;;2609
 ;;21,"68115-0261-00 ")
 ;;3587
 ;;21,"68115-0261-30 ")
 ;;3588
 ;;21,"68115-0261-45 ")
 ;;3589
 ;;21,"68115-0261-60 ")
 ;;3590
 ;;21,"68115-0261-98 ")
 ;;3591
 ;;21,"68115-0262-00 ")
 ;;3592
 ;;21,"68115-0262-30 ")
 ;;3593
 ;;21,"68115-0262-60 ")
 ;;3594
 ;;21,"68115-0262-90 ")
 ;;3595
 ;;21,"68115-0267-30 ")
 ;;4052
 ;;21,"68115-0293-30 ")
 ;;3171
 ;;21,"68115-0296-00 ")
 ;;2160
 ;;21,"68115-0296-15 ")
 ;;2161
 ;;21,"68115-0296-30 ")
 ;;2162
 ;;21,"68115-0296-60 ")
 ;;2163
 ;;21,"68115-0296-90 ")
 ;;2164
 ;;21,"68115-0297-30 ")
 ;;4099
 ;;21,"68115-0331-30 ")
 ;;5003
 ;;21,"68115-0331-60 ")
 ;;5004
 ;;21,"68115-0331-90 ")
 ;;5005
 ;;21,"68115-0332-30 ")
 ;;5006
 ;;21,"68115-0332-60 ")
 ;;5007
 ;;21,"68115-0332-90 ")
 ;;5008
 ;;21,"68115-0333-30 ")
 ;;5009
 ;;21,"68115-0333-60 ")
 ;;5010
 ;;21,"68115-0333-90 ")
 ;;5011
 ;;21,"68115-0365-00 ")
 ;;5376
 ;;21,"68115-0365-15 ")
 ;;5377
 ;;21,"68115-0365-30 ")
 ;;5378
 ;;21,"68115-0365-45 ")
 ;;5379
 ;;21,"68115-0365-60 ")
 ;;5380
 ;;21,"68115-0366-00 ")
 ;;5381
 ;;21,"68115-0366-15 ")
 ;;5382
 ;;21,"68115-0366-30 ")
 ;;5383
 ;;21,"68115-0366-60 ")
 ;;5384
 ;;21,"68115-0371-15 ")
 ;;2906
 ;;21,"68115-0371-30 ")
 ;;2907
 ;;21,"68115-0372-30 ")
 ;;2019
 ;;21,"68115-0372-60 ")
 ;;2020
 ;;21,"68115-0384-30 ")
 ;;2021
 ;;21,"68115-0384-60 ")
 ;;2022
 ;;21,"68115-0391-00 ")
 ;;2023
 ;;21,"68115-0391-15 ")
 ;;2024
 ;;21,"68115-0391-30 ")
 ;;2025
 ;;21,"68115-0391-60 ")
 ;;2026
 ;;21,"68115-0402-30 ")
 ;;1882
 ;;21,"68115-0402-60 ")
 ;;1883
 ;;21,"68115-0412-00 ")
 ;;750
 ;;21,"68115-0412-30 ")
 ;;751
 ;;21,"68115-0412-60 ")
 ;;752
 ;;21,"68115-0412-90 ")
 ;;753
 ;;21,"68115-0418-00 ")
 ;;3596
 ;;21,"68115-0418-30 ")
 ;;3597
 ;;21,"68115-0418-60 ")
 ;;3598
 ;;21,"68115-0430-30 ")
 ;;552
 ;;21,"68115-0439-30 ")
 ;;2811
 ;;21,"68115-0445-30 ")
 ;;862
 ;;21,"68115-0445-60 ")
 ;;754
 ;;21,"68115-0447-30 ")
 ;;863
 ;;21,"68115-0447-60 ")
 ;;864
 ;;21,"68115-0477-30 ")
 ;;3927
 ;;21,"68115-0477-60 ")
 ;;3928
 ;;21,"68115-0477-90 ")
 ;;3929
 ;;21,"68115-0478-00 ")
 ;;2165
 ;;21,"68115-0478-15 ")
 ;;2166
 ;;21,"68115-0478-30 ")
 ;;2167
 ;;21,"68115-0478-60 ")
 ;;2168
 ;;21,"68115-0478-90 ")
 ;;2169
 ;;21,"68115-0482-30 ")
 ;;1571
 ;;21,"68115-0482-60 ")
 ;;1572
 ;;21,"68115-0483-60 ")
 ;;3930
 ;;21,"68115-0489-30 ")
 ;;1296
 ;;21,"68115-0493-30 ")
 ;;1297
 ;;21,"68115-0493-60 ")
 ;;1298
 ;;21,"68115-0505-00 ")
 ;;2170
 ;;21,"68115-0505-15 ")
 ;;2171
 ;;21,"68115-0505-30 ")
 ;;2172
 ;;21,"68115-0505-60 ")
 ;;2173
 ;;21,"68115-0505-90 ")
 ;;2174
 ;;21,"68115-0506-15 ")
 ;;2908
 ;;21,"68115-0506-30 ")
 ;;2909
 ;;21,"68115-0509-30 ")
 ;;1573
 ;;21,"68115-0544-30 ")
 ;;2610
 ;;21,"68115-0591-00 ")
 ;;1574
 ;;21,"68115-0624-00 ")
 ;;2812
 ;;21,"68115-0641-60 ")
 ;;3270
 ;;21,"68115-0656-30 ")
 ;;4100
 ;;21,"68115-0676-00 ")
 ;;865
 ;;21,"68115-0676-60 ")
 ;;866
 ;;21,"68115-0679-00 ")
 ;;1884
 ;;21,"68115-0689-00 ")
 ;;1885
 ;;21,"68115-0695-30 ")
 ;;3172
 ;;21,"68115-0695-60 ")
 ;;3173
 ;;21,"68115-0695-90 ")
 ;;3174
 ;;21,"68115-0697-60 ")
 ;;3271
 ;;21,"68115-0716-00 ")
 ;;2027
 ;;21,"68115-0719-00 ")
 ;;4231
 ;;21,"68115-0719-30 ")
 ;;4232
 ;;21,"68115-0732-30 ")
 ;;3175
 ;;21,"68115-0738-00 ")
 ;;3931
 ;;21,"68115-0738-30 ")
 ;;3932
 ;;21,"68115-0740-00 ")
 ;;3933
 ;;21,"68115-0740-30 ")
 ;;3934
 ;;21,"68115-0751-30 ")
 ;;3935
 ;;21,"68115-0764-00 ")
 ;;4622
 ;;21,"68115-0765-30 ")
 ;;5385
 ;;21,"68115-0765-50 ")
 ;;5386
 ;;21,"68115-0767-00 ")
 ;;586
 ;;21,"68115-0797-00 ")
 ;;961
 ;;21,"68115-0798-60 ")
 ;;3272
 ;;21,"68115-0801-30 ")
 ;;3936
 ;;21,"68115-0810-15 ")
 ;;5224
 ;;21,"68115-0810-30 ")
 ;;5225
 ;;21,"68115-0825-15 ")
 ;;5226
 ;;21,"68115-0825-30 ")
 ;;5227
 ;;21,"68115-0831-00 ")
 ;;2673
 ;;21,"68115-0835-60 ")
 ;;5171
 ;;21,"68115-0844-00 ")
 ;;1322
 ;;21,"68115-0847-30 ")
 ;;4297
 ;;21,"68115-0848-00 ")
 ;;755
 ;;21,"68115-0857-00 ")
 ;;3273
 ;;21,"68115-0859-00 ")
 ;;1886
 ;;21,"68115-0866-00 ")
 ;;2910
 ;;21,"68115-0870-00 ")
 ;;3599
 ;;21,"68115-0878-00 ")
 ;;2175
 ;;21,"68115-0884-00 ")
 ;;756
 ;;21,"68115-0901-60 ")
 ;;5172
 ;;21,"68115-0913-30 ")
 ;;4101
 ;;21,"68115-0916-30 ")
 ;;4053
 ;;21,"68115-0919-30 ")
 ;;4054
 ;;21,"68115-0920-30 ")
 ;;4298
 ;;21,"68115-0926-60 ")
 ;;5173
 ;;21,"68115-0929-60 ")
 ;;3274
 ;;21,"68115-0974-00 ")
 ;;2176
 ;;21,"68180-0314-06 ")
 ;;2822
 ;;21,"68180-0315-06 ")
 ;;2823
 ;;21,"68180-0316-06 ")
 ;;2824
 ;;21,"68180-0317-06 ")
 ;;2825
 ;;21,"68180-0351-06 ")
 ;;4574
 ;;21,"68180-0351-09 ")
 ;;4575
 ;;21,"68180-0352-01 ")
 ;;4576
 ;;21,"68180-0352-02 ")
 ;;4577
 ;;21,"68180-0352-05 ")
 ;;4578
 ;;21,"68180-0352-06 ")
 ;;4579
 ;;21,"68180-0352-09 ")
 ;;4580
 ;;21,"68180-0353-01 ")
 ;;4581
 ;;21,"68180-0353-02 ")
 ;;4582
 ;;21,"68180-0353-05 ")
 ;;4583
 ;;21,"68180-0353-06 ")
 ;;4584
 ;;21,"68180-0353-09 ")
 ;;4585
 ;;21,"68258-1061-01 ")
 ;;553
 ;;21,"68258-7003-03 ")
 ;;2611
 ;;21,"68258-7005-03 ")
 ;;3176
 ;;21,"68382-0001-01 ")
 ;;3937
 ;;21,"68382-0001-05 ")
 ;;3938
 ;;21,"68382-0001-06 ")
 ;;3939
 ;;21,"68382-0001-10 ")
 ;;3940
 ;;21,"68382-0001-16 ")
 ;;3941
 ;;21,"68382-0018-01 ")
 ;;5107
 ;;21,"68382-0018-10 ")
 ;;5108
 ;;21,"68382-0019-01 ")
 ;;5109
 ;;21,"68382-0019-10 ")
 ;;5110
 ;;21,"68382-0020-01 ")
 ;;5111
 ;;21,"68382-0020-10 ")
 ;;5112
 ;;21,"68382-0021-01 ")
 ;;5113
 ;;21,"68382-0021-10 ")
 ;;5114
 ;;21,"68382-0097-01 ")
 ;;3942
 ;;21,"68382-0097-05 ")
 ;;3943
 ;;21,"68382-0097-06 ")
 ;;3944
 ;;21,"68382-0097-10 ")
 ;;3945
 ;;21,"68382-0097-16 ")
 ;;3946
 ;;21,"68382-0098-01 ")
 ;;3947
 ;;21,"68382-0098-05 ")
 ;;3948
 ;;21,"68382-0098-06 ")
 ;;3949
 ;;21,"68382-0098-10 ")
 ;;3950
 ;;21,"68382-0098-16 ")
 ;;3951
 ;;21,"68382-0099-01 ")
 ;;3952
 ;;21,"68382-0099-05 ")
 ;;3953
 ;;21,"68382-0099-06 ")
 ;;3954
 ;;21,"68382-0099-10 ")
 ;;3955
 ;;21,"68382-0099-16 ")
 ;;3956
 ;;21,"68382-0100-01 ")
 ;;3957
 ;;21,"68382-0100-06 ")
 ;;3958
 ;;21,"68382-0100-10 ")
 ;;3959
 ;;21,"68382-0100-16 ")
 ;;3960
 ;;21,"68382-0101-01 ")
 ;;5115
 ;;21,"68382-0101-10 ")
 ;;5116
 ;;21,"68387-0120-30 ")
 ;;2612
 ;;21,"68387-0120-60 ")
 ;;2613
 ;;21,"68387-0120-90 ")
 ;;2614
 ;;21,"68387-0125-30 ")
 ;;2615
 ;;21,"68387-0127-30 ")
 ;;2911
 ;;21,"68387-0128-30 ")
 ;;2912
 ;;21,"68387-0160-30 ")
 ;;5012
 ;;21,"68387-0165-30 ")
 ;;5013
 ;;21,"68387-0165-90 ")
 ;;5014
 ;;21,"68387-0166-30 ")
 ;;5015
 ;;21,"68387-0166-60 ")
 ;;5016
 ;;21,"68387-0330-15 ")
 ;;3600
 ;;21,"68387-0330-30 ")
 ;;3601
 ;;21,"68387-0330-60 ")
 ;;3602
 ;;21,"68387-0335-15 ")
 ;;554
 ;;21,"68387-0335-24 ")
 ;;555
 ;;21,"68387-0335-30 ")
 ;;556
 ;;21,"68387-0335-60 ")
 ;;557
 ;;21,"68387-0335-90 ")
 ;;558
 ;;21,"68387-0336-30 ")
 ;;559
 ;;21,"68387-0336-90 ")
 ;;560
 ;;21,"68387-0337-24 ")
 ;;561
 ;;21,"68387-0337-30 ")
 ;;562
 ;;21,"68387-0338-30 ")
 ;;563
 ;;21,"68387-0339-30 ")
 ;;564
 ;;21,"68387-0349-15 ")
 ;;2177
 ;;21,"68387-0349-30 ")
 ;;2178
 ;;21,"68387-0350-30 ")
 ;;757
 ;;21,"68387-0350-60 ")
 ;;758
 ;;21,"68387-0353-60 ")
 ;;759
 ;;21,"68387-0360-60 ")
 ;;3177
 ;;21,"68387-0363-07 ")
 ;;3178
 ;;21,"68387-0363-15 ")
 ;;3179
 ;;21,"68387-0363-30 ")
 ;;3180
 ;;21,"68387-0553-30 ")
 ;;1416
 ;;21,"68387-0553-60 ")
 ;;1417
 ;;21,"68387-0554-30 ")
 ;;1418
 ;;21,"68387-0554-60 ")
 ;;1419
 ;;21,"68387-9360-60 ")
 ;;3181
 ;;21,"68645-0130-54 ")
 ;;2616
 ;;21,"68645-0131-54 ")
 ;;2617
 ;;21,"68645-0180-54 ")
 ;;5017
 ;;21,"68645-0252-54 ")
 ;;1299
 ;;21,"68727-0600-01 ")
 ;;2919
 ;;21,"68727-0601-01 ")
 ;;2920
 ;;21,"68968-2010-01 ")
 ;;4139
 ;;21,"68968-2020-01 ")
 ;;4140
 ;;21,"68968-2030-01 ")
 ;;4141
 ;;21,"68968-2040-01 ")
 ;;4142
 ;;9002226,992,.01)
 ;;BGP HEDIS ANTIDEPRESSANT NDC
 ;;9002226,992,.02)
 ;;@
 ;;9002226,992,.04)
 ;;n
 ;;9002226,992,.06)
 ;;@
 ;;9002226,992,.08)
 ;;@
 ;;9002226,992,.09)
 ;;@
 ;;9002226,992,.11)
 ;;@
 ;;9002226,992,.12)
 ;;@
 ;;9002226,992,.13)
 ;;1
 ;;9002226,992,.14)
 ;;@
 ;;9002226,992,.15)
 ;;@
 ;;9002226,992,.16)
 ;;@
 ;;9002226,992,.17)
 ;;@
 ;;9002226,992,3101)
 ;;@
 ;;9002226.02101,"992,00002-3004-75 ",.01)
 ;;00002-3004-75
 ;;9002226.02101,"992,00002-3004-75 ",.02)
 ;;00002-3004-75
 ;;9002226.02101,"992,00002-3230-30 ",.01)
 ;;00002-3230-30
 ;;9002226.02101,"992,00002-3230-30 ",.02)
 ;;00002-3230-30
 ;;9002226.02101,"992,00002-3231-01 ",.01)
 ;;00002-3231-01
 ;;9002226.02101,"992,00002-3231-01 ",.02)
 ;;00002-3231-01
 ;;9002226.02101,"992,00002-3231-30 ",.01)
 ;;00002-3231-30
 ;;9002226.02101,"992,00002-3231-30 ",.02)
 ;;00002-3231-30
 ;;9002226.02101,"992,00002-3231-33 ",.01)
 ;;00002-3231-33
 ;;9002226.02101,"992,00002-3231-33 ",.02)
 ;;00002-3231-33
 ;;9002226.02101,"992,00002-3232-01 ",.01)
 ;;00002-3232-01