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

BGP51L3.m

Go to the documentation of this file.
BGP51L3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;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,"58016-0744-00 ")
 ;;28
 ;;21,"58016-0744-10 ")
 ;;29
 ;;21,"58016-0744-12 ")
 ;;30
 ;;21,"58016-0744-14 ")
 ;;31
 ;;21,"58016-0744-15 ")
 ;;32
 ;;21,"58016-0744-20 ")
 ;;33
 ;;21,"58016-0744-30 ")
 ;;34
 ;;21,"58016-0948-00 ")
 ;;69
 ;;21,"58016-0948-10 ")
 ;;70
 ;;21,"58016-0948-12 ")
 ;;71
 ;;21,"58016-0948-14 ")
 ;;72
 ;;21,"58016-0948-15 ")
 ;;73
 ;;21,"58016-0948-20 ")
 ;;74
 ;;21,"58016-0948-30 ")
 ;;75
 ;;21,"58016-0948-50 ")
 ;;76
 ;;21,"58016-4074-01 ")
 ;;396
 ;;21,"58118-0886-03 ")
 ;;201
 ;;21,"58118-2331-03 ")
 ;;837
 ;;21,"58118-2331-09 ")
 ;;838
 ;;21,"58118-2332-03 ")
 ;;897
 ;;21,"58118-2332-09 ")
 ;;898
 ;;21,"58118-8343-08 ")
 ;;489
 ;;21,"58118-8343-09 ")
 ;;490
 ;;21,"58864-0224-30 ")
 ;;574
 ;;21,"58864-0224-60 ")
 ;;575
 ;;21,"58864-0224-93 ")
 ;;576
 ;;21,"58864-0421-01 ")
 ;;106
 ;;21,"58864-0711-30 ")
 ;;814
 ;;21,"58864-0803-30 ")
 ;;156
 ;;21,"58864-0804-30 ")
 ;;200
 ;;21,"58864-0951-30 ")
 ;;138
 ;;21,"58864-0952-30 ")
 ;;834
 ;;21,"58864-0953-30 ")
 ;;901
 ;;21,"59762-2330-07 ")
 ;;792
 ;;21,"59762-2331-06 ")
 ;;835
 ;;21,"59762-2331-08 ")
 ;;836
 ;;21,"59762-2332-06 ")
 ;;899
 ;;21,"59762-2332-08 ")
 ;;900
 ;;21,"59762-3725-01 ")
 ;;449
 ;;21,"59762-3726-03 ")
 ;;488
 ;;21,"59762-3727-04 ")
 ;;569
 ;;21,"59762-3727-06 ")
 ;;570
 ;;21,"59762-3727-07 ")
 ;;571
 ;;21,"59762-7020-09 ")
 ;;450
 ;;21,"59762-7021-05 ")
 ;;486
 ;;21,"59762-7021-09 ")
 ;;487
 ;;21,"59762-7022-05 ")
 ;;572
 ;;21,"59762-7022-09 ")
 ;;573
 ;;21,"60429-0283-01 ")
 ;;732
 ;;21,"60429-0284-01 ")
 ;;744
 ;;21,"60429-0285-01 ")
 ;;762
 ;;21,"60429-0327-01 ")
 ;;157
 ;;21,"60429-0328-01 ")
 ;;199
 ;;21,"60429-0329-01 ")
 ;;235
 ;;21,"60432-0126-08 ")
 ;;998
 ;;21,"60432-0126-16 ")
 ;;999
 ;;21,"60505-0368-01 ")
 ;;1000
 ;;21,"61570-0072-01 ")
 ;;136
 ;;21,"61570-0073-01 ")
 ;;137
 ;;21,"61570-0074-01 ")
 ;;144
 ;;21,"61570-0075-50 ")
 ;;145
 ;;21,"62559-0149-01 ")
 ;;376
 ;;21,"62559-0150-01 ")
 ;;362
 ;;21,"62559-1490-00 ")
 ;;383
 ;;21,"62559-1507-00 ")
 ;;372
 ;;21,"63629-1392-01 ")
 ;;850
 ;;21,"63629-1392-02 ")
 ;;851
 ;;21,"63629-1392-03 ")
 ;;852
 ;;21,"63629-1393-01 ")
 ;;685
 ;;21,"63629-1393-02 ")
 ;;686
 ;;21,"63629-1393-03 ")
 ;;687
 ;;21,"63629-1393-04 ")
 ;;688
 ;;21,"63629-2793-01 ")
 ;;948
 ;;21,"63629-2793-03 ")
 ;;949
 ;;21,"63629-2793-04 ")
 ;;950
 ;;21,"63629-2793-05 ")
 ;;951
 ;;21,"63629-2907-01 ")
 ;;541
 ;;21,"63629-2907-02 ")
 ;;542
 ;;21,"63629-3397-03 ")
 ;;735
 ;;21,"63629-3755-01 ")
 ;;209
 ;;21,"63629-3755-02 ")
 ;;210
 ;;21,"63629-3998-01 ")
 ;;810
 ;;21,"63629-4368-01 ")
 ;;1063
 ;;21,"63629-4368-02 ")
 ;;1064
 ;;21,"63629-4368-03 ")
 ;;1065
 ;;21,"63629-4368-04 ")
 ;;1066
 ;;21,"63739-0119-10 ")
 ;;708
 ;;21,"63739-0165-10 ")
 ;;979
 ;;21,"63739-0549-51 ")
 ;;986
 ;;21,"63874-0317-01 ")
 ;;691
 ;;21,"63874-0317-02 ")
 ;;692
 ;;21,"63874-0317-04 ")
 ;;693
 ;;21,"63874-0317-10 ")
 ;;694
 ;;21,"63874-0317-12 ")
 ;;695
 ;;21,"63874-0317-14 ")
 ;;696
 ;;21,"63874-0317-15 ")
 ;;697
 ;;21,"63874-0317-20 ")
 ;;698
 ;;21,"63874-0317-24 ")
 ;;699
 ;;21,"63874-0317-28 ")
 ;;700
 ;;21,"63874-0317-30 ")
 ;;701
 ;;21,"63874-0317-40 ")
 ;;702
 ;;21,"63874-0317-50 ")
 ;;703
 ;;21,"63874-0317-60 ")
 ;;704
 ;;21,"63874-0317-90 ")
 ;;705
 ;;21,"63874-0357-01 ")
 ;;9
 ;;21,"63874-0357-02 ")
 ;;10
 ;;21,"63874-0357-10 ")
 ;;11
 ;;21,"63874-0357-12 ")
 ;;12
 ;;21,"63874-0357-14 ")
 ;;13
 ;;21,"63874-0357-15 ")
 ;;14
 ;;21,"63874-0357-20 ")
 ;;15
 ;;21,"63874-0357-21 ")
 ;;16
 ;;21,"63874-0357-24 ")
 ;;17
 ;;21,"63874-0357-30 ")
 ;;18
 ;;21,"63874-0357-40 ")
 ;;19
 ;;21,"63874-0357-60 ")
 ;;20
 ;;21,"63874-0588-01 ")
 ;;530
 ;;21,"63874-0588-04 ")
 ;;531
 ;;21,"63874-0588-10 ")
 ;;532
 ;;21,"63874-0588-14 ")
 ;;533
 ;;21,"63874-0588-20 ")
 ;;534
 ;;21,"63874-0588-30 ")
 ;;535
 ;;21,"63874-0588-60 ")
 ;;536
 ;;21,"63874-0588-80 ")
 ;;537
 ;;21,"63874-0588-90 ")
 ;;538
 ;;21,"63874-0665-01 ")
 ;;465
 ;;21,"63874-0665-04 ")
 ;;466
 ;;21,"63874-0665-10 ")
 ;;467
 ;;21,"63874-0665-14 ")
 ;;468
 ;;21,"63874-0665-30 ")
 ;;469
 ;;21,"63874-0665-60 ")
 ;;470
 ;;21,"63874-0665-90 ")
 ;;471
 ;;21,"64011-0215-41 ")
 ;;251
 ;;21,"64248-0101-01 ")
 ;;346
 ;;21,"64248-0102-01 ")
 ;;353
 ;;21,"64720-0123-10 ")
 ;;464
 ;;21,"64720-0124-10 ")
 ;;539
 ;;21,"64720-0125-10 ")
 ;;706
 ;;21,"64720-0125-11 ")
 ;;707
 ;;21,"64727-3298-01 ")
 ;;1015
 ;;21,"64727-3298-02 ")
 ;;1014
 ;;21,"64727-3299-01 ")
 ;;1036
 ;;21,"64727-3299-02 ")
 ;;1037
 ;;21,"64727-3300-01 ")
 ;;1069
 ;;21,"64727-3300-02 ")
 ;;1070
 ;;21,"64727-3302-01 ")
 ;;1044
 ;;21,"64727-3302-02 ")
 ;;1045
 ;;21,"64727-3303-01 ")
 ;;1079
 ;;21,"64727-3303-02 ")
 ;;1080
 ;;21,"64727-3305-01 ")
 ;;1092
 ;;21,"64727-3305-02 ")
 ;;1093
 ;;21,"64727-3307-01 ")
 ;;1100
 ;;21,"64727-3307-02 ")
 ;;1101
 ;;21,"64727-3308-01 ")
 ;;1111
 ;;21,"64727-3308-02 ")
 ;;1112
 ;;21,"64727-3309-01 ")
 ;;1142
 ;;21,"64727-3309-02 ")
 ;;1143
 ;;21,"64727-3310-01 ")
 ;;1119
 ;;21,"64727-3310-02 ")
 ;;1120
 ;;21,"64727-3312-01 ")
 ;;1126
 ;;21,"64727-3312-02 ")
 ;;1127
 ;;21,"64727-3320-01 ")
 ;;1131
 ;;21,"64727-3320-02 ")
 ;;1132
 ;;21,"64727-3340-01 ")
 ;;1138
 ;;21,"64727-3340-02 ")
 ;;1139
 ;;21,"64727-4050-01 ")
 ;;1018
 ;;21,"64727-4050-02 ")
 ;;1019
 ;;21,"64727-4150-01 ")
 ;;1040
 ;;21,"64727-4150-02 ")
 ;;1041
 ;;21,"64727-4250-01 ")
 ;;1048
 ;;21,"64727-4250-02 ")
 ;;1049
 ;;21,"64727-4350-01 ")
 ;;1075
 ;;21,"64727-4350-02 ")
 ;;1076
 ;;21,"64727-4450-01 ")
 ;;1096
 ;;21,"64727-4450-02 ")
 ;;1097
 ;;21,"64727-4550-01 ")
 ;;1115
 ;;21,"64727-4550-02 ")
 ;;1116
 ;;21,"64727-5450-01 ")
 ;;1020
 ;;21,"64727-5450-02 ")
 ;;1021
 ;;21,"64727-5550-01 ")
 ;;1042
 ;;21,"64727-5550-02 ")
 ;;1043
 ;;21,"64727-5650-01 ")
 ;;1050
 ;;21,"64727-5650-02 ")
 ;;1051
 ;;21,"64727-5750-01 ")
 ;;1077
 ;;21,"64727-5750-02 ")
 ;;1078
 ;;21,"64727-5850-01 ")
 ;;1098
 ;;21,"64727-5850-02 ")
 ;;1099
 ;;21,"64727-5950-01 ")
 ;;1117
 ;;21,"64727-5950-02 ")
 ;;1118
 ;;21,"64727-6050-01 ")
 ;;1083
 ;;21,"64727-6050-02 ")
 ;;1084
 ;;21,"64727-6150-01 ")
 ;;1104
 ;;21,"64727-6150-02 ")
 ;;1105
 ;;21,"64727-7065-01 ")
 ;;1016
 ;;21,"64727-7065-02 ")
 ;;1017
 ;;21,"64727-7070-01 ")
 ;;1038
 ;;21,"64727-7070-02 ")
 ;;1039
 ;;21,"64727-7072-01 ")
 ;;1046
 ;;21,"64727-7072-02 ")
 ;;1047
 ;;21,"64727-7073-01 ")
 ;;1073
 ;;21,"64727-7073-02 ")
 ;;1074
 ;;21,"64727-7074-01 ")
 ;;1081
 ;;21,"64727-7074-02 ")
 ;;1082
 ;;21,"64727-7075-01 ")
 ;;1094
 ;;21,"64727-7075-02 ")
 ;;1095
 ;;21,"64727-7078-01 ")
 ;;1102
 ;;21,"64727-7078-02 ")
 ;;1103
 ;;21,"64727-7080-01 ")
 ;;1113
 ;;21,"64727-7080-02 ")
 ;;1114
 ;;21,"64727-7085-01 ")
 ;;1144
 ;;21,"64727-7085-02 ")
 ;;1145
 ;;21,"64727-7090-01 ")
 ;;1121
 ;;21,"64727-7090-02 ")
 ;;1122
 ;;21,"64727-7095-01 ")
 ;;1128
 ;;21,"64727-7095-02 ")
 ;;1129
 ;;21,"64727-7100-01 ")
 ;;1133
 ;;21,"64727-7100-02 ")
 ;;1134
 ;;21,"64727-7150-01 ")
 ;;1140
 ;;21,"64727-7150-02 ")
 ;;1141
 ;;21,"65243-0176-09 ")
 ;;620
 ;;21,"65243-0176-12 ")
 ;;621
 ;;21,"65243-0176-18 ")
 ;;622
 ;;21,"65243-0176-27 ")
 ;;623
 ;;21,"65243-0176-36 ")
 ;;624
 ;;21,"65243-0185-36 ")
 ;;625
 ;;21,"65243-0325-09 ")
 ;;512
 ;;21,"65243-0325-18 ")
 ;;513
 ;;21,"65243-0343-09 ")
 ;;618
 ;;21,"65243-0343-36 ")
 ;;619
 ;;21,"65243-0375-09 ")
 ;;507
 ;;21,"65862-0028-01 ")
 ;;454
 ;;21,"65862-0029-01 ")
 ;;505
 ;;21,"65862-0029-05 ")
 ;;506
 ;;21,"65862-0030-01 ")
 ;;628
 ;;21,"65862-0030-99 ")
 ;;629
 ;;21,"65862-0080-01 ")
 ;;795
 ;;21,"65862-0080-05 ")
 ;;796
 ;;21,"65862-0081-01 ")
 ;;839
 ;;21,"65862-0081-05 ")
 ;;840
 ;;21,"65862-0082-01 ")
 ;;902
 ;;21,"65862-0082-05 ")
 ;;903
 ;;21,"66105-0984-03 ")
 ;;455
 ;;21,"66105-0984-06 ")
 ;;456
 ;;21,"66105-0984-10 ")
 ;;457
 ;;21,"66105-0984-11 ")
 ;;458
 ;;21,"66105-0984-50 ")
 ;;459
 ;;21,"66105-0985-03 ")
 ;;500
 ;;21,"66105-0985-06 ")
 ;;501
 ;;21,"66105-0985-10 ")
 ;;502
 ;;21,"66105-0985-11 ")
 ;;503
 ;;21,"66105-0985-50 ")
 ;;504
 ;;21,"66105-0986-03 ")
 ;;630
 ;;21,"66105-0986-06 ")
 ;;631
 ;;21,"66105-0986-10 ")
 ;;632
 ;;21,"66105-0986-11 ")
 ;;633
 ;;21,"66105-0986-50 ")
 ;;634
 ;;21,"66116-0233-30 ")
 ;;813
 ;;21,"66116-0285-30 ")
 ;;79
 ;;21,"66116-0437-30 ")
 ;;150
 ;;21,"66116-0438-30 ")
 ;;183
 ;;21,"66267-0093-60 ")
 ;;226
 ;;21,"66267-0103-30 ")
 ;;635
 ;;21,"66267-0174-30 ")
 ;;78
 ;;21,"66336-0028-30 ")
 ;;508
 ;;21,"66336-0028-90 ")
 ;;509
 ;;21,"66336-0319-30 ")
 ;;869
 ;;21,"66336-0506-30 ")
 ;;117
 ;;21,"66336-0532-30 ")
 ;;38
 ;;21,"66336-0584-30 ")
 ;;184
 ;;21,"66336-0584-90 ")
 ;;185
 ;;21,"66336-0585-30 ")
 ;;224
 ;;21,"66336-0585-90 ")
 ;;225
 ;;21,"66336-0598-30 ")
 ;;42
 ;;21,"66336-0598-90 ")
 ;;43
 ;;21,"66336-0599-30 ")
 ;;77
 ;;21,"66336-0712-90 ")
 ;;773
 ;;21,"66336-0784-30 ")
 ;;908
 ;;21,"66336-0784-60 ")
 ;;909
 ;;21,"66336-0784-90 ")
 ;;910
 ;;21,"66336-0840-90 ")
 ;;151
 ;;21,"66336-0850-30 ")
 ;;844
 ;;21,"66336-0850-60 ")
 ;;845
 ;;21,"66336-0850-90 ")
 ;;846
 ;;21,"66336-0938-30 ")
 ;;660
 ;;21,"66336-0938-60 ")
 ;;661
 ;;21,"66336-0938-90 ")
 ;;662
 ;;21,"66336-0977-30 ")
 ;;339
 ;;21,"66689-0020-01 ")
 ;;984
 ;;21,"66689-0020-50 ")
 ;;985
 ;;21,"67253-0460-10 ")
 ;;733
 ;;21,"67253-0461-10 ")
 ;;749
 ;;21,"67253-0461-11 ")
 ;;750
 ;;21,"67253-0461-50 ")
 ;;751
 ;;21,"67253-0462-10 ")
 ;;770
 ;;21,"67253-0462-11 ")
 ;;771
 ;;21,"67253-0462-50 ")
 ;;772
 ;;21,"67544-0296-70 ")
 ;;868
 ;;21,"67544-0364-70 ")
 ;;907
 ;;21,"67544-0417-70 ")
 ;;906
 ;;21,"67544-0511-70 ")
 ;;911
 ;;21,"67544-0511-94 ")
 ;;912
 ;;21,"67544-0566-53 ")
 ;;636
 ;;21,"67544-0566-60 ")
 ;;637
 ;;21,"67544-0566-70 ")
 ;;638
 ;;21,"67544-0566-80 ")
 ;;639
 ;;21,"67544-0566-90 ")
 ;;640
 ;;21,"67544-0566-92 ")
 ;;641
 ;;21,"67544-0566-94 ")
 ;;642
 ;;21,"67544-0613-53 ")
 ;;643
 ;;21,"67544-0613-60 ")
 ;;644
 ;;21,"67544-0613-70 ")
 ;;645
 ;;21,"67544-0613-80 ")
 ;;646
 ;;21,"67544-0613-90 ")
 ;;647
 ;;21,"67544-0613-92 ")
 ;;648
 ;;21,"67544-0613-94 ")
 ;;649
 ;;21,"67544-0643-80 ")
 ;;650
 ;;21,"67544-0643-94 ")
 ;;651
 ;;21,"67544-0653-53 ")
 ;;652
 ;;21,"67544-0653-60 ")
 ;;653
 ;;21,"67544-0653-70 ")
 ;;654
 ;;21,"67544-0653-80 ")
 ;;655
 ;;21,"67544-0653-90 ")
 ;;656
 ;;21,"67544-0653-92 ")
 ;;657
 ;;21,"67544-0653-94 ")
 ;;658
 ;;21,"67544-0653-98 ")
 ;;659
 ;;21,"67544-0661-41 ")
 ;;460
 ;;21,"67544-0661-81 ")
 ;;461
 ;;21,"67544-0875-60 ")
 ;;497
 ;;21,"67544-0875-80 ")
 ;;498
 ;;21,"67544-0927-60 ")
 ;;499
 ;;21,"67544-1008-30 ")
 ;;186
 ;;21,"67544-1129-70 ")
 ;;913
 ;;21,"68071-0028-30 ")
 ;;914
 ;;21,"68071-0028-60 ")
 ;;915
 ;;21,"68084-0136-01 ")
 ;;793
 ;;21,"68084-0136-11 ")
 ;;794
 ;;21,"68084-0137-01 ")
 ;;842
 ;;21,"68084-0137-11 ")
 ;;843
 ;;21,"68084-0138-01 ")
 ;;916
 ;;21,"68084-0138-11 ")
 ;;917
 ;;21,"68084-0745-25 ")
 ;;932
 ;;21,"68084-0745-95 ")
 ;;933
 ;;21,"68094-0518-59 ")
 ;;1003
 ;;21,"68094-0518-62 ")
 ;;1004
 ;;21,"68094-0528-59 ")
 ;;987
 ;;21,"68094-0528-61 ")
 ;;988
 ;;21,"68094-0528-62 ")
 ;;989
 ;;21,"68258-5975-08 ")
 ;;268
 ;;21,"68258-5978-02 ")
 ;;384
 ;;21,"68258-5979-02 ")
 ;;391
 ;;21,"68258-5980-02 ")
 ;;400
 ;;21,"68258-5981-02 ")
 ;;403
 ;;21,"68645-0210-54 ")
 ;;518
 ;;21,"68645-0211-54 ")
 ;;727
 ;;21,"68968-6610-08 ")
 ;;291
 ;;21,"68968-6637-08 ")
 ;;267
 ;;21,"68968-6650-08 ")
 ;;275
 ;;21,"68968-6675-08 ")
 ;;282
 ;;21,"99207-0190-56 ")
 ;;250
 ;;9002226,806,.01)
 ;;BGP HEDIS ENDOCRINE NDC
 ;;9002226,806,.02)
 ;;@
 ;;9002226,806,.04)
 ;;n
 ;;9002226,806,.06)
 ;;@
 ;;9002226,806,.08)
 ;;@
 ;;9002226,806,.09)
 ;;3140819
 ;;9002226,806,.11)
 ;;@
 ;;9002226,806,.12)
 ;;@
 ;;9002226,806,.13)
 ;;1
 ;;9002226,806,.14)
 ;;@
 ;;9002226,806,.15)
 ;;50.67
 ;;9002226,806,.16)
 ;;@
 ;;9002226,806,.17)
 ;;@
 ;;9002226,806,3101)
 ;;@
 ;;9002226.02101,"806,00008-1123-12 ",.01)
 ;;00008-1123-12
 ;;9002226.02101,"806,00008-1123-12 ",.02)
 ;;00008-1123-12
 ;;9002226.02101,"806,00009-0141-01 ",.01)
 ;;00009-0141-01
 ;;9002226.02101,"806,00009-0141-01 ",.02)
 ;;00009-0141-01
 ;;9002226.02101,"806,00009-0171-05 ",.01)
 ;;00009-0171-05
 ;;9002226.02101,"806,00009-0171-05 ",.02)
 ;;00009-0171-05
 ;;9002226.02101,"806,00009-0341-01 ",.01)
 ;;00009-0341-01
 ;;9002226.02101,"806,00009-0341-01 ",.02)
 ;;00009-0341-01
 ;;9002226.02101,"806,00009-0352-01 ",.01)
 ;;00009-0352-01
 ;;9002226.02101,"806,00009-0352-01 ",.02)
 ;;00009-0352-01
 ;;9002226.02101,"806,00009-0352-04 ",.01)
 ;;00009-0352-04
 ;;9002226.02101,"806,00009-0352-04 ",.02)
 ;;00009-0352-04
 ;;9002226.02101,"806,00009-3449-01 ",.01)
 ;;00009-3449-01