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

BGP33I13.m

Go to the documentation of this file.
BGP33I13 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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,"67767-0142-30 ")
 ;;892
 ;;21,"67767-0142-90 ")
 ;;893
 ;;21,"67767-0171-60 ")
 ;;670
 ;;21,"67801-0204-10 ")
 ;;4129
 ;;21,"67801-0205-10 ")
 ;;3872
 ;;21,"67801-0310-30 ")
 ;;1925
 ;;21,"67801-0312-03 ")
 ;;4609
 ;;21,"67801-0321-03 ")
 ;;4716
 ;;21,"67801-0409-30 ")
 ;;1883
 ;;21,"67801-0411-03 ")
 ;;4900
 ;;21,"67801-0433-30 ")
 ;;822
 ;;21,"68071-0122-60 ")
 ;;768
 ;;21,"68071-0222-30 ")
 ;;1343
 ;;21,"68071-0231-30 ")
 ;;1210
 ;;21,"68071-0231-60 ")
 ;;1211
 ;;21,"68071-0231-90 ")
 ;;1212
 ;;21,"68071-0322-30 ")
 ;;4901
 ;;21,"68071-0322-40 ")
 ;;4902
 ;;21,"68071-0322-60 ")
 ;;4903
 ;;21,"68071-0322-90 ")
 ;;4904
 ;;21,"68071-0323-30 ")
 ;;3175
 ;;21,"68071-0323-60 ")
 ;;3176
 ;;21,"68071-0323-90 ")
 ;;3177
 ;;21,"68071-0333-30 ")
 ;;4717
 ;;21,"68071-0412-15 ")
 ;;4610
 ;;21,"68071-0412-30 ")
 ;;4611
 ;;21,"68071-0412-60 ")
 ;;4612
 ;;21,"68071-0444-15 ")
 ;;1788
 ;;21,"68071-0444-60 ")
 ;;1789
 ;;21,"68071-0445-15 ")
 ;;1832
 ;;21,"68071-0445-60 ")
 ;;1833
 ;;21,"68071-1312-00 ")
 ;;1790
 ;;21,"68071-1313-00 ")
 ;;1834
 ;;21,"68084-0031-01 ")
 ;;3033
 ;;21,"68084-0031-11 ")
 ;;3034
 ;;21,"68084-0032-01 ")
 ;;3130
 ;;21,"68084-0032-11 ")
 ;;3131
 ;;21,"68084-0044-01 ")
 ;;3289
 ;;21,"68084-0044-11 ")
 ;;3290
 ;;21,"68084-0044-85 ")
 ;;3291
 ;;21,"68084-0045-01 ")
 ;;3475
 ;;21,"68084-0045-11 ")
 ;;3476
 ;;21,"68084-0045-85 ")
 ;;3477
 ;;21,"68084-0046-01 ")
 ;;3573
 ;;21,"68084-0046-11 ")
 ;;3574
 ;;21,"68084-0046-85 ")
 ;;3575
 ;;21,"68084-0047-01 ")
 ;;3664
 ;;21,"68084-0047-11 ")
 ;;3665
 ;;21,"68084-0047-85 ")
 ;;3666
 ;;21,"68084-0119-01 ")
 ;;2718
 ;;21,"68084-0119-11 ")
 ;;2719
 ;;21,"68084-0120-01 ")
 ;;2808
 ;;21,"68084-0120-11 ")
 ;;2809
 ;;21,"68084-0121-01 ")
 ;;2875
 ;;21,"68084-0121-11 ")
 ;;2876
 ;;21,"68084-0180-01 ")
 ;;3972
 ;;21,"68084-0180-11 ")
 ;;3973
 ;;21,"68084-0181-01 ")
 ;;4130
 ;;21,"68084-0181-11 ")
 ;;4131
 ;;21,"68084-0182-01 ")
 ;;3873
 ;;21,"68084-0182-11 ")
 ;;3874
 ;;21,"68084-0251-01 ")
 ;;823
 ;;21,"68084-0251-11 ")
 ;;824
 ;;21,"68084-0252-11 ")
 ;;894
 ;;21,"68084-0252-21 ")
 ;;895
 ;;21,"68084-0330-01 ")
 ;;4784
 ;;21,"68084-0330-11 ")
 ;;4785
 ;;21,"68084-0331-01 ")
 ;;4995
 ;;21,"68084-0331-11 ")
 ;;4996
 ;;21,"68084-0470-01 ")
 ;;671
 ;;21,"68084-0470-11 ")
 ;;672
 ;;21,"68084-0471-01 ")
 ;;769
 ;;21,"68084-0471-11 ")
 ;;770
 ;;21,"68084-0484-01 ")
 ;;4718
 ;;21,"68084-0484-11 ")
 ;;4719
 ;;21,"68084-0485-01 ")
 ;;4905
 ;;21,"68084-0485-11 ")
 ;;4906
 ;;21,"68084-0486-01 ")
 ;;4613
 ;;21,"68084-0486-11 ")
 ;;4614
 ;;21,"68084-0580-01 ")
 ;;1051
 ;;21,"68084-0580-11 ")
 ;;1052
 ;;21,"68115-0021-00 ")
 ;;175
 ;;21,"68115-0021-30 ")
 ;;176
 ;;21,"68115-0021-60 ")
 ;;177
 ;;21,"68115-0022-00 ")
 ;;117
 ;;21,"68115-0022-20 ")
 ;;118
 ;;21,"68115-0022-30 ")
 ;;119
 ;;21,"68115-0022-60 ")
 ;;120
 ;;21,"68115-0022-90 ")
 ;;121
 ;;21,"68115-0023-00 ")
 ;;342
 ;;21,"68115-0023-14 ")
 ;;343
 ;;21,"68115-0023-30 ")
 ;;344
 ;;21,"68115-0023-48 ")
 ;;345
 ;;21,"68115-0023-60 ")
 ;;346
 ;;21,"68115-0023-90 ")
 ;;347
 ;;21,"68115-0023-99 ")
 ;;348
 ;;21,"68115-0024-00 ")
 ;;446
 ;;21,"68115-0024-30 ")
 ;;447
 ;;21,"68115-0024-60 ")
 ;;448
 ;;21,"68115-0024-90 ")
 ;;449
 ;;21,"68115-0071-00 ")
 ;;1213
 ;;21,"68115-0071-30 ")
 ;;1214
 ;;21,"68115-0124-00 ")
 ;;1653
 ;;21,"68115-0124-30 ")
 ;;1654
 ;;21,"68115-0124-60 ")
 ;;1655
 ;;21,"68115-0124-90 ")
 ;;1656
 ;;21,"68115-0143-30 ")
 ;;2066
 ;;21,"68115-0143-60 ")
 ;;2067
 ;;21,"68115-0143-90 ")
 ;;2068
 ;;21,"68115-0144-00 ")
 ;;2312
 ;;21,"68115-0144-30 ")
 ;;2313
 ;;21,"68115-0144-60 ")
 ;;2314
 ;;21,"68115-0144-90 ")
 ;;2315
 ;;21,"68115-0145-30 ")
 ;;2417
 ;;21,"68115-0145-60 ")
 ;;2418
 ;;21,"68115-0145-90 ")
 ;;2419
 ;;21,"68115-0261-00 ")
 ;;3035
 ;;21,"68115-0261-30 ")
 ;;3036
 ;;21,"68115-0261-45 ")
 ;;3037
 ;;21,"68115-0261-60 ")
 ;;3038
 ;;21,"68115-0261-98 ")
 ;;3039
 ;;21,"68115-0262-00 ")
 ;;3132
 ;;21,"68115-0262-30 ")
 ;;3133
 ;;21,"68115-0262-60 ")
 ;;3134
 ;;21,"68115-0262-90 ")
 ;;3135
 ;;21,"68115-0267-30 ")
 ;;3478
 ;;21,"68115-0293-30 ")
 ;;2720
 ;;21,"68115-0296-00 ")
 ;;4907
 ;;21,"68115-0296-15 ")
 ;;4908
 ;;21,"68115-0296-30 ")
 ;;4909
 ;;21,"68115-0296-60 ")
 ;;4910
 ;;21,"68115-0296-90 ")
 ;;4911
 ;;21,"68115-0297-30 ")
 ;;3513
 ;;21,"68115-0331-30 ")
 ;;4270
 ;;21,"68115-0331-60 ")
 ;;4271
 ;;21,"68115-0331-90 ")
 ;;4272
 ;;21,"68115-0332-30 ")
 ;;4346
 ;;21,"68115-0332-60 ")
 ;;4347
 ;;21,"68115-0332-90 ")
 ;;4348
 ;;21,"68115-0333-30 ")
 ;;4510
 ;;21,"68115-0333-60 ")
 ;;4511
 ;;21,"68115-0333-90 ")
 ;;4512
 ;;21,"68115-0365-00 ")
 ;;3875
 ;;21,"68115-0365-15 ")
 ;;3876
 ;;21,"68115-0365-30 ")
 ;;3877
 ;;21,"68115-0365-45 ")
 ;;3878
 ;;21,"68115-0365-60 ")
 ;;3879
 ;;21,"68115-0366-00 ")
 ;;4132
 ;;21,"68115-0366-15 ")
 ;;4133
 ;;21,"68115-0366-30 ")
 ;;4134
 ;;21,"68115-0366-60 ")
 ;;4135
 ;;21,"68115-0371-15 ")
 ;;1926
 ;;21,"68115-0371-30 ")
 ;;1927
 ;;21,"68115-0372-30 ")
 ;;4997
 ;;21,"68115-0372-60 ")
 ;;4998
 ;;21,"68115-0384-30 ")
 ;;4825
 ;;21,"68115-0384-60 ")
 ;;4826
 ;;21,"68115-0391-00 ")
 ;;4786
 ;;21,"68115-0391-15 ")
 ;;4787
 ;;21,"68115-0391-30 ")
 ;;4788
 ;;21,"68115-0391-60 ")
 ;;4789
 ;;21,"68115-0402-30 ")
 ;;1721
 ;;21,"68115-0402-60 ")
 ;;1722
 ;;21,"68115-0412-00 ")
 ;;615
 ;;21,"68115-0412-30 ")
 ;;616
 ;;21,"68115-0412-60 ")
 ;;617
 ;;21,"68115-0412-90 ")
 ;;618
 ;;21,"68115-0418-00 ")
 ;;3178
 ;;21,"68115-0418-30 ")
 ;;3179
 ;;21,"68115-0418-60 ")
 ;;3180
 ;;21,"68115-0430-30 ")
 ;;194
 ;;21,"68115-0439-30 ")
 ;;2519
 ;;21,"68115-0445-30 ")
 ;;771
 ;;21,"68115-0445-60 ")
 ;;952
 ;;21,"68115-0447-30 ")
 ;;772
 ;;21,"68115-0447-60 ")
 ;;773
 ;;21,"68115-0477-30 ")
 ;;3479
 ;;21,"68115-0477-60 ")
 ;;3480
 ;;21,"68115-0477-90 ")
 ;;3481
 ;;21,"68115-0478-00 ")
 ;;4615
 ;;21,"68115-0478-15 ")
 ;;4616
 ;;21,"68115-0478-30 ")
 ;;4617
 ;;21,"68115-0478-60 ")
 ;;4618
 ;;21,"68115-0478-90 ")
 ;;4619
 ;;21,"68115-0482-30 ")
 ;;1471
 ;;21,"68115-0482-60 ")
 ;;1472
 ;;21,"68115-0483-60 ")
 ;;3667
 ;;21,"68115-0489-30 ")
 ;;1215
 ;;21,"68115-0493-30 ")
 ;;1053
 ;;21,"68115-0493-60 ")
 ;;1054
 ;;21,"68115-0505-00 ")
 ;;4720
 ;;21,"68115-0505-15 ")
 ;;4721
 ;;21,"68115-0505-30 ")
 ;;4722
 ;;21,"68115-0505-60 ")
 ;;4723
 ;;21,"68115-0505-90 ")
 ;;4724
 ;;21,"68115-0506-15 ")
 ;;1884
 ;;21,"68115-0506-30 ")
 ;;1885
 ;;21,"68115-0509-30 ")
 ;;1497
 ;;21,"68115-0544-30 ")
 ;;2420
 ;;21,"68115-0591-00 ")
 ;;1473
 ;;21,"68115-0624-00 ")
 ;;2562
 ;;21,"68115-0641-60 ")
 ;;2928
 ;;21,"68115-0656-30 ")
 ;;3328
 ;;21,"68115-0676-00 ")
 ;;673
 ;;21,"68115-0676-60 ")
 ;;674
 ;;21,"68115-0679-00 ")
 ;;1580
 ;;21,"68115-0689-00 ")
 ;;1586
 ;;21,"68115-0695-30 ")
 ;;2810
 ;;21,"68115-0695-60 ")
 ;;2811
 ;;21,"68115-0695-90 ")
 ;;2812
 ;;21,"68115-0697-60 ")
 ;;2959
 ;;21,"68115-0716-00 ")
 ;;4661
 ;;21,"68115-0719-00 ")
 ;;2316
 ;;21,"68115-0719-30 ")
 ;;2317
 ;;21,"68115-0732-30 ")
 ;;2877
 ;;21,"68115-0738-00 ")
 ;;3292
 ;;21,"68115-0738-30 ")
 ;;3293
 ;;21,"68115-0740-00 ")
 ;;3482
 ;;21,"68115-0740-30 ")
 ;;3483
 ;;21,"68115-0751-30 ")
 ;;3668
 ;;21,"68115-0764-00 ")
 ;;2625
 ;;21,"68115-0765-30 ")
 ;;3974
 ;;21,"68115-0765-50 ")
 ;;3975
 ;;21,"68115-0767-00 ")
 ;;518
 ;;21,"68115-0797-00 ")
 ;;1344
 ;;21,"68115-0798-60 ")
 ;;2914
 ;;21,"68115-0801-30 ")
 ;;3576
 ;;21,"68115-0810-15 ")
 ;;825
 ;;21,"68115-0810-30 ")
 ;;826
 ;;21,"68115-0825-15 ")
 ;;896
 ;;21,"68115-0825-30 ")
 ;;897
 ;;21,"68115-0831-00 ")
 ;;2466
 ;;21,"68115-0835-60 ")
 ;;838
 ;;21,"68115-0844-00 ")
 ;;1357
 ;;21,"68115-0847-30 ")
 ;;2829
 ;;21,"68115-0848-00 ")
 ;;619
 ;;21,"68115-0857-00 ")
 ;;2943
 ;;21,"68115-0859-00 ")
 ;;1551
 ;;21,"68115-0866-00 ")
 ;;1886
 ;;21,"68115-0870-00 ")
 ;;3208
 ;;21,"68115-0878-00 ")
 ;;4620
 ;;21,"68115-0884-00 ")
 ;;953
 ;;21,"68115-0901-60 ")
 ;;774
 ;;21,"68115-0913-30 ")
 ;;3593
 ;;21,"68115-0916-30 ")
 ;;3669
 ;;21,"68115-0919-30 ")
 ;;3294
 ;;21,"68115-0926-60 ")
 ;;675
 ;;21,"68115-0929-60 ")
 ;;2944
 ;;21,"68115-0974-00 ")
 ;;4725
 ;;21,"68180-0311-01 ")
 ;;2520
 ;;21,"68180-0312-01 ")
 ;;2563
 ;;21,"68180-0313-01 ")
 ;;2604
 ;;21,"68180-0314-06 ")
 ;;2626
 ;;21,"68180-0315-06 ")
 ;;2609
 ;;21,"68180-0316-06 ")
 ;;2614
 ;;21,"68180-0317-06 ")
 ;;2619
 ;;21,"68180-0351-06 ")
 ;;3976
 ;;21,"68180-0351-09 ")
 ;;3977
 ;;21,"68180-0352-01 ")
 ;;4136
 ;;21,"68180-0352-02 ")
 ;;4137
 ;;21,"68180-0352-05 ")
 ;;4138
 ;;21,"68180-0352-06 ")
 ;;4139
 ;;21,"68180-0352-09 ")
 ;;4140
 ;;21,"68180-0353-01 ")
 ;;3880
 ;;21,"68180-0353-02 ")
 ;;3881
 ;;21,"68180-0353-05 ")
 ;;3882
 ;;21,"68180-0353-06 ")
 ;;3883
 ;;21,"68180-0353-09 ")
 ;;3884
 ;;21,"68258-1061-01 ")
 ;;349
 ;;21,"68258-7003-03 ")
 ;;2421
 ;;21,"68258-7005-03 ")
 ;;2813
 ;;21,"68382-0001-01 ")
 ;;3670
 ;;21,"68382-0001-05 ")
 ;;3671
 ;;21,"68382-0001-06 ")
 ;;3672
 ;;21,"68382-0001-10 ")
 ;;3673
 ;;21,"68382-0001-16 ")
 ;;3674
 ;;21,"68382-0018-01 ")
 ;;4662
 ;;21,"68382-0018-10 ")
 ;;4663
 ;;21,"68382-0019-01 ")
 ;;4790
 ;;21,"68382-0019-10 ")
 ;;4791
 ;;21,"68382-0020-01 ")
 ;;4827
 ;;21,"68382-0020-10 ")
 ;;4828
 ;;21,"68382-0021-01 ")
 ;;4999
 ;;21,"68382-0021-10 ")
 ;;5000
 ;;21,"68382-0034-06 ")
 ;;4726
 ;;21,"68382-0034-10 ")
 ;;4727
 ;;21,"68382-0034-16 ")
 ;;4728
 ;;21,"68382-0035-06 ")
 ;;4912
 ;;21,"68382-0035-10 ")
 ;;4913
 ;;21,"68382-0035-16 ")
 ;;4914
 ;;21,"68382-0036-06 ")
 ;;4621
 ;;21,"68382-0036-10 ")
 ;;4622
 ;;21,"68382-0036-16 ")
 ;;4623
 ;;21,"68382-0097-01 ")
 ;;3295
 ;;21,"68382-0097-05 ")
 ;;3296
 ;;21,"68382-0097-06 ")
 ;;3297
 ;;21,"68382-0097-10 ")
 ;;3298
 ;;21,"68382-0097-16 ")
 ;;3299
 ;;21,"68382-0098-01 ")
 ;;3484
 ;;21,"68382-0098-05 ")
 ;;3485
 ;;21,"68382-0098-06 ")
 ;;3486
 ;;21,"68382-0098-10 ")
 ;;3487
 ;;21,"68382-0098-16 ")
 ;;3488
 ;;21,"68382-0099-01 ")
 ;;3577
 ;;21,"68382-0099-05 ")
 ;;3578
 ;;21,"68382-0099-06 ")
 ;;3579
 ;;21,"68382-0099-10 ")
 ;;3580
 ;;21,"68382-0099-16 ")
 ;;3581
 ;;21,"68382-0100-06 ")
 ;;3675
 ;;21,"68382-0101-01 ")
 ;;4545
 ;;21,"68382-0101-10 ")
 ;;4546
 ;;21,"68387-0120-30 ")
 ;;2318
 ;;21,"68387-0120-60 ")
 ;;2319
 ;;21,"68387-0120-90 ")
 ;;2320
 ;;21,"68387-0125-30 ")
 ;;2069
 ;;21,"68387-0127-30 ")
 ;;1887
 ;;21,"68387-0128-30 ")
 ;;1928
 ;;21,"68387-0160-30 ")
 ;;4349
 ;;21,"68387-0165-30 ")
 ;;4513
 ;;21,"68387-0165-90 ")
 ;;4514
 ;;21,"68387-0166-30 ")
 ;;4273
 ;;21,"68387-0166-60 ")
 ;;4274
 ;;21,"68387-0330-15 ")
 ;;3136
 ;;21,"68387-0330-30 ")
 ;;3137
 ;;21,"68387-0330-60 ")
 ;;3138
 ;;21,"68387-0335-15 ")
 ;;350
 ;;21,"68387-0335-24 ")
 ;;351
 ;;21,"68387-0335-30 ")
 ;;352
 ;;21,"68387-0335-60 ")
 ;;353
 ;;21,"68387-0335-90 ")
 ;;354
 ;;21,"68387-0336-30 ")
 ;;122
 ;;21,"68387-0336-90 ")
 ;;123
 ;;21,"68387-0337-24 ")
 ;;450
 ;;21,"68387-0337-30 ")
 ;;451
 ;;21,"68387-0338-30 ")
 ;;494
 ;;21,"68387-0339-30 ")
 ;;178
 ;;21,"68387-0349-15 ")
 ;;4624
 ;;21,"68387-0349-30 ")
 ;;4625
 ;;21,"68387-0350-30 ")
 ;;954
 ;;21,"68387-0350-60 ")
 ;;955
 ;;21,"68387-0353-60 ")
 ;;620
 ;;21,"68387-0360-60 ")
 ;;2721
 ;;21,"68387-0363-07 ")
 ;;2814
 ;;21,"68387-0363-15 ")
 ;;2815
 ;;21,"68387-0363-30 ")
 ;;2816
 ;;21,"68387-0553-30 ")
 ;;1835
 ;;21,"68387-0553-60 ")
 ;;1836
 ;;21,"68387-0554-30 ")
 ;;1791
 ;;21,"68387-0554-60 ")
 ;;1792
 ;;21,"68645-0130-54 ")
 ;;2321
 ;;21,"68645-0131-54 ")
 ;;2070
 ;;21,"68645-0180-54 ")
 ;;4350
 ;;21,"68645-0252-54 ")
 ;;1345
 ;;21,"68645-0282-54 ")
 ;;1346
 ;;21,"68727-0600-01 ")
 ;;2447
 ;;21,"68727-0601-01 ")
 ;;2467
 ;;21,"68968-2010-01 ")
 ;;3677
 ;;21,"68968-2020-01 ")
 ;;3679
 ;;21,"68968-2030-01 ")
 ;;3681
 ;;21,"68968-2040-01 ")
 ;;3683
 ;;9002226,798,.01)
 ;;BGP HEDIS ANTIDEPRESSANT NDC
 ;;9002226,798,.02)
 ;;@
 ;;9002226,798,.04)
 ;;n
 ;;9002226,798,.06)
 ;;@
 ;;9002226,798,.08)
 ;;@
 ;;9002226,798,.09)
 ;;3130123
 ;;9002226,798,.11)
 ;;@
 ;;9002226,798,.12)
 ;;@
 ;;9002226,798,.13)
 ;;1
 ;;9002226,798,.14)
 ;;@
 ;;9002226,798,.15)
 ;;@
 ;;9002226,798,.16)
 ;;@
 ;;9002226,798,.17)
 ;;@
 ;;9002226,798,3101)
 ;;@
 ;;9002226.02101,"798,00002-3004-75 ",.01)
 ;;00002-3004-75
 ;;9002226.02101,"798,00002-3004-75 ",.02)
 ;;00002-3004-75
 ;;9002226.02101,"798,00002-3230-30 ",.01)
 ;;00002-3230-30
 ;;9002226.02101,"798,00002-3230-30 ",.02)
 ;;00002-3230-30
 ;;9002226.02101,"798,00002-3231-01 ",.01)
 ;;00002-3231-01
 ;;9002226.02101,"798,00002-3231-01 ",.02)
 ;;00002-3231-01
 ;;9002226.02101,"798,00002-3231-30 ",.01)
 ;;00002-3231-30
 ;;9002226.02101,"798,00002-3231-30 ",.02)
 ;;00002-3231-30
 ;;9002226.02101,"798,00002-3231-33 ",.01)
 ;;00002-3231-33