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

BGP14A2.m

Go to the documentation of this file.
BGP14A2 ; 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,"49884-0845-01 ")
 ;;261
 ;;21,"49884-0846-01 ")
 ;;284
 ;;21,"49884-0847-01 ")
 ;;331
 ;;21,"49884-0967-01 ")
 ;;57
 ;;21,"49884-0967-05 ")
 ;;58
 ;;21,"49884-0968-01 ")
 ;;93
 ;;21,"49884-0968-05 ")
 ;;94
 ;;21,"49884-0969-01 ")
 ;;161
 ;;21,"49884-0969-05 ")
 ;;162
 ;;21,"49999-0107-00 ")
 ;;412
 ;;21,"49999-0107-20 ")
 ;;413
 ;;21,"49999-0107-30 ")
 ;;414
 ;;21,"49999-0107-60 ")
 ;;415
 ;;21,"49999-0107-90 ")
 ;;416
 ;;21,"49999-0108-00 ")
 ;;560
 ;;21,"49999-0108-30 ")
 ;;561
 ;;21,"49999-0108-60 ")
 ;;562
 ;;21,"49999-0113-00 ")
 ;;1033
 ;;21,"49999-0113-01 ")
 ;;1034
 ;;21,"49999-0113-30 ")
 ;;1035
 ;;21,"49999-0113-60 ")
 ;;1036
 ;;21,"49999-0113-90 ")
 ;;1037
 ;;21,"49999-0401-30 ")
 ;;163
 ;;21,"49999-0401-60 ")
 ;;164
 ;;21,"49999-0514-30 ")
 ;;734
 ;;21,"49999-0571-60 ")
 ;;852
 ;;21,"49999-0660-30 ")
 ;;165
 ;;21,"49999-0660-60 ")
 ;;166
 ;;21,"49999-0781-00 ")
 ;;285
 ;;21,"49999-0807-00 ")
 ;;332
 ;;21,"49999-0808-00 ")
 ;;819
 ;;21,"50111-0372-01 ")
 ;;207
 ;;21,"50111-0372-03 ")
 ;;208
 ;;21,"50111-0373-01 ")
 ;;223
 ;;21,"50111-0373-03 ")
 ;;224
 ;;21,"50111-0584-01 ")
 ;;563
 ;;21,"50111-0584-02 ")
 ;;564
 ;;21,"50111-0585-01 ")
 ;;417
 ;;21,"50111-0585-02 ")
 ;;418
 ;;21,"51079-0202-01 ")
 ;;209
 ;;21,"51079-0202-20 ")
 ;;210
 ;;21,"51079-0203-01 ")
 ;;225
 ;;21,"51079-0203-20 ")
 ;;226
 ;;21,"51079-0292-20 ")
 ;;1215
 ;;21,"51079-0293-20 ")
 ;;1222
 ;;21,"51079-0425-01 ")
 ;;286
 ;;21,"51079-0425-20 ")
 ;;287
 ;;21,"51079-0426-01 ")
 ;;333
 ;;21,"51079-0426-20 ")
 ;;334
 ;;21,"51079-0560-01 ")
 ;;1226
 ;;21,"51079-0560-20 ")
 ;;1227
 ;;21,"51079-0810-01 ")
 ;;565
 ;;21,"51079-0810-17 ")
 ;;566
 ;;21,"51079-0810-19 ")
 ;;567
 ;;21,"51079-0810-20 ")
 ;;568
 ;;21,"51079-0811-01 ")
 ;;419
 ;;21,"51079-0811-17 ")
 ;;420
 ;;21,"51079-0811-19 ")
 ;;421
 ;;21,"51079-0811-20 ")
 ;;422
 ;;21,"51079-0872-01 ")
 ;;928
 ;;21,"51079-0872-17 ")
 ;;929
 ;;21,"51079-0872-19 ")
 ;;930
 ;;21,"51079-0872-20 ")
 ;;931
 ;;21,"51079-0873-01 ")
 ;;1038
 ;;21,"51079-0873-17 ")
 ;;1039
 ;;21,"51079-0873-19 ")
 ;;1040
 ;;21,"51079-0873-20 ")
 ;;1041
 ;;21,"51655-0011-77 ")
 ;;1042
 ;;21,"51655-0012-77 ")
 ;;932
 ;;21,"51655-0289-24 ")
 ;;423
 ;;21,"51655-0297-24 ")
 ;;227
 ;;21,"51655-0753-24 ")
 ;;933
 ;;21,"51655-0758-77 ")
 ;;880
 ;;21,"51655-0904-25 ")
 ;;1043
 ;;21,"51655-0947-24 ")
 ;;1044
 ;;21,"51655-0947-25 ")
 ;;1045
 ;;21,"52152-0133-02 ")
 ;;795
 ;;21,"52152-0134-02 ")
 ;;820
 ;;21,"52152-0134-04 ")
 ;;821
 ;;21,"52152-0134-05 ")
 ;;822
 ;;21,"52152-0135-02 ")
 ;;853
 ;;21,"52152-0135-04 ")
 ;;854
 ;;21,"52152-0135-05 ")
 ;;855
 ;;21,"52544-0460-10 ")
 ;;569
 ;;21,"52959-0177-30 ")
 ;;1046
 ;;21,"52959-0449-01 ")
 ;;1047
 ;;21,"52959-0449-30 ")
 ;;1048
 ;;21,"52959-0449-60 ")
 ;;1049
 ;;21,"52959-0598-90 ")
 ;;881
 ;;21,"52959-0822-00 ")
 ;;424
 ;;21,"52959-0822-30 ")
 ;;425
 ;;21,"52959-0822-60 ")
 ;;426
 ;;21,"52959-0823-20 ")
 ;;570
 ;;21,"52959-0823-60 ")
 ;;571
 ;;21,"52959-0888-00 ")
 ;;335
 ;;21,"52959-0888-30 ")
 ;;336
 ;;21,"52959-0936-30 ")
 ;;288
 ;;21,"52959-0936-60 ")
 ;;315
 ;;21,"53002-0446-00 ")
 ;;674
 ;;21,"53002-0446-30 ")
 ;;675
 ;;21,"53002-0446-60 ")
 ;;676
 ;;21,"53002-1111-00 ")
 ;;518
 ;;21,"53002-1111-03 ")
 ;;519
 ;;21,"53002-1111-06 ")
 ;;520
 ;;21,"54348-0098-30 ")
 ;;1216
 ;;21,"54348-0104-30 ")
 ;;1050
 ;;21,"54458-0966-10 ")
 ;;337
 ;;21,"54458-0967-10 ")
 ;;289
 ;;21,"54458-0968-10 ")
 ;;262
 ;;21,"54458-0971-10 ")
 ;;338
 ;;21,"54458-0972-10 ")
 ;;290
 ;;21,"54458-0973-10 ")
 ;;263
 ;;21,"54569-0200-00 ")
 ;;1051
 ;;21,"54569-0203-00 ")
 ;;228
 ;;21,"54569-0203-01 ")
 ;;229
 ;;21,"54569-0206-01 ")
 ;;572
 ;;21,"54569-0206-02 ")
 ;;573
 ;;21,"54569-0206-03 ")
 ;;574
 ;;21,"54569-2017-01 ")
 ;;211
 ;;21,"54569-3690-00 ")
 ;;823
 ;;21,"54569-3690-01 ")
 ;;824
 ;;21,"54569-3830-00 ")
 ;;934
 ;;21,"54569-3830-01 ")
 ;;935
 ;;21,"54569-3830-02 ")
 ;;936
 ;;21,"54569-3831-00 ")
 ;;1052
 ;;21,"54569-3831-01 ")
 ;;1053
 ;;21,"54569-3831-02 ")
 ;;1054
 ;;21,"54569-3831-04 ")
 ;;1055
 ;;21,"54569-3831-08 ")
 ;;1056
 ;;21,"54569-3832-00 ")
 ;;882
 ;;21,"54569-3841-00 ")
 ;;575
 ;;21,"54569-3841-01 ")
 ;;576
 ;;21,"54569-3841-02 ")
 ;;577
 ;;21,"54569-3842-00 ")
 ;;427
 ;;21,"54569-3842-01 ")
 ;;428
 ;;21,"54569-3842-02 ")
 ;;429
 ;;21,"54569-3842-04 ")
 ;;430
 ;;21,"54569-3937-00 ")
 ;;756
 ;;21,"54569-3938-00 ")
 ;;690
 ;;21,"54569-3938-01 ")
 ;;691
 ;;21,"54569-4453-00 ")
 ;;339
 ;;21,"54569-4453-01 ")
 ;;340
 ;;21,"54569-4695-00 ")
 ;;856
 ;;21,"54569-4695-01 ")
 ;;857
 ;;21,"54569-4706-00 ")
 ;;291
 ;;21,"54569-5210-00 ")
 ;;95
 ;;21,"54569-5210-01 ")
 ;;96
 ;;21,"54569-5211-00 ")
 ;;167
 ;;21,"54569-5211-01 ")
 ;;168
 ;;21,"54569-5547-00 ")
 ;;757
 ;;21,"54569-5547-01 ")
 ;;758
 ;;21,"54569-5548-00 ")
 ;;692
 ;;21,"54569-5548-01 ")
 ;;693
 ;;21,"54569-5618-00 ")
 ;;97
 ;;21,"54569-5618-01 ")
 ;;98
 ;;21,"54569-5619-00 ")
 ;;169
 ;;21,"54569-5619-01 ")
 ;;170
 ;;21,"54569-5855-00 ")
 ;;341
 ;;21,"54569-5991-00 ")
 ;;7
 ;;21,"54569-5992-00 ")
 ;;17
 ;;21,"54569-5993-00 ")
 ;;31
 ;;21,"54569-5993-01 ")
 ;;32
 ;;21,"54569-6072-00 ")
 ;;292
 ;;21,"54868-0036-00 ")
 ;;230
 ;;21,"54868-0036-02 ")
 ;;231
 ;;21,"54868-0036-04 ")
 ;;232
 ;;21,"54868-0373-01 ")
 ;;937
 ;;21,"54868-0373-02 ")
 ;;938
 ;;21,"54868-0795-00 ")
 ;;8
 ;;21,"54868-0877-01 ")
 ;;212
 ;;21,"54868-0996-01 ")
 ;;1057
 ;;21,"54868-0996-02 ")
 ;;1058
 ;;21,"54868-0997-01 ")
 ;;578
 ;;21,"54868-0997-02 ")
 ;;579
 ;;21,"54868-0997-04 ")
 ;;580
 ;;21,"54868-1020-00 ")
 ;;1217
 ;;21,"54868-1089-01 ")
 ;;431
 ;;21,"54868-1089-02 ")
 ;;432
 ;;21,"54868-1089-03 ")
 ;;433
 ;;21,"54868-1244-01 ")
 ;;939
 ;;21,"54868-1244-02 ")
 ;;940
 ;;21,"54868-1244-03 ")
 ;;941
 ;;21,"54868-1244-04 ")
 ;;942
 ;;21,"54868-1245-01 ")
 ;;1059
 ;;21,"54868-1245-02 ")
 ;;1060
 ;;21,"54868-1245-05 ")
 ;;1061
 ;;21,"54868-1361-01 ")
 ;;1228
 ;;21,"54868-1688-01 ")
 ;;883
 ;;21,"54868-3017-00 ")
 ;;825
 ;;21,"54868-3265-00 ")
 ;;1062
 ;;21,"54868-3265-01 ")
 ;;1063
 ;;21,"54868-3265-03 ")
 ;;1064
 ;;21,"54868-3265-04 ")
 ;;1065
 ;;21,"54868-3265-05 ")
 ;;1196
 ;;21,"54868-3266-01 ")
 ;;943
 ;;21,"54868-3266-02 ")
 ;;944
 ;;21,"54868-3266-03 ")
 ;;945
 ;;21,"54868-3266-04 ")
 ;;946
 ;;21,"54868-3318-01 ")
 ;;581
 ;;21,"54868-3318-02 ")
 ;;582
 ;;21,"54868-3318-03 ")
 ;;583
 ;;21,"54868-3318-04 ")
 ;;584
 ;;21,"54868-3318-05 ")
 ;;585
 ;;21,"54868-3319-01 ")
 ;;434
 ;;21,"54868-3319-02 ")
 ;;435
 ;;21,"54868-3319-03 ")
 ;;436
 ;;21,"54868-3319-04 ")
 ;;437
 ;;21,"54868-3319-05 ")
 ;;438
 ;;21,"54868-3319-06 ")
 ;;439
 ;;21,"54868-3327-00 ")
 ;;264
 ;;21,"54868-3334-00 ")
 ;;694
 ;;21,"54868-3334-01 ")
 ;;695
 ;;21,"54868-3334-02 ")
 ;;696
 ;;21,"54868-3334-03 ")
 ;;697
 ;;21,"54868-3334-04 ")
 ;;698
 ;;21,"54868-3335-00 ")
 ;;759
 ;;21,"54868-3335-01 ")
 ;;760
 ;;21,"54868-3335-02 ")
 ;;761
 ;;21,"54868-3335-03 ")
 ;;762
 ;;21,"54868-3377-00 ")
 ;;342
 ;;21,"54868-3377-01 ")
 ;;343
 ;;21,"54868-3377-02 ")
 ;;344
 ;;21,"54868-3426-00 ")
 ;;884
 ;;21,"54868-3426-01 ")
 ;;885
 ;;21,"54868-3711-00 ")
 ;;858
 ;;21,"54868-3711-01 ")
 ;;859
 ;;21,"54868-4091-00 ")
 ;;826
 ;;21,"54868-4091-01 ")
 ;;827
 ;;21,"54868-4091-02 ")
 ;;828
 ;;21,"54868-4205-00 ")
 ;;293
 ;;21,"54868-4205-01 ")
 ;;294
 ;;21,"54868-4205-02 ")
 ;;295
 ;;21,"54868-4206-00 ")
 ;;345
 ;;21,"54868-4206-01 ")
 ;;346
 ;;21,"54868-4206-03 ")
 ;;347
 ;;21,"54868-4206-04 ")
 ;;348
 ;;21,"54868-4412-00 ")
 ;;265
 ;;21,"54868-4412-01 ")
 ;;266
 ;;21,"54868-4412-02 ")
 ;;267
 ;;21,"54868-4420-00 ")
 ;;735
 ;;21,"54868-4529-00 ")
 ;;171
 ;;21,"54868-4529-01 ")
 ;;172
 ;;21,"54868-4529-02 ")
 ;;173
 ;;21,"54868-4529-03 ")
 ;;174
 ;;21,"54868-4609-00 ")
 ;;99
 ;;21,"54868-4609-01 ")
 ;;100
 ;;21,"54868-4842-00 ")
 ;;860
 ;;21,"54868-4842-01 ")
 ;;861
 ;;21,"54868-4842-02 ")
 ;;862
 ;;21,"54868-4906-00 ")
 ;;59
 ;;21,"54868-4988-00 ")
 ;;699
 ;;21,"54868-4988-01 ")
 ;;700
 ;;21,"54868-4988-02 ")
 ;;701
 ;;21,"54868-4988-03 ")
 ;;702
 ;;21,"54868-4988-04 ")
 ;;703
 ;;21,"54868-5148-00 ")
 ;;101
 ;;21,"54868-5148-01 ")
 ;;102
 ;;21,"54868-5148-02 ")
 ;;103
 ;;21,"54868-5148-03 ")
 ;;104
 ;;21,"54868-5185-00 ")
 ;;60
 ;;21,"54868-5185-01 ")
 ;;61
 ;;21,"54868-5185-02 ")
 ;;62
 ;;21,"54868-5185-03 ")
 ;;63
 ;;21,"54868-5188-00 ")
 ;;18
 ;;21,"54868-5188-01 ")
 ;;19
 ;;21,"54868-5188-02 ")
 ;;20
 ;;21,"54868-5210-00 ")
 ;;763
 ;;21,"54868-5210-01 ")
 ;;764
 ;;21,"54868-5210-02 ")
 ;;765
 ;;21,"54868-5210-03 ")
 ;;766
 ;;21,"54868-5243-00 ")
 ;;175
 ;;21,"54868-5243-01 ")
 ;;176
 ;;21,"54868-5243-02 ")
 ;;177
 ;;21,"54868-5243-03 ")
 ;;178
 ;;21,"54868-5243-04 ")
 ;;179
 ;;21,"54868-5288-00 ")
 ;;33
 ;;21,"54868-5288-01 ")
 ;;34
 ;;21,"54868-5288-02 ")
 ;;35
 ;;21,"54868-5364-01 ")
 ;;736
 ;;21,"54868-5364-02 ")
 ;;737
 ;;21,"54868-5399-00 ")
 ;;21
 ;;21,"54868-5399-01 ")
 ;;22
 ;;21,"54868-5457-00 ")
 ;;296
 ;;21,"54868-5457-01 ")
 ;;297
 ;;21,"54868-5457-02 ")
 ;;298
 ;;21,"54868-5467-00 ")
 ;;36
 ;;21,"54868-5467-01 ")
 ;;37
 ;;21,"54868-5467-02 ")
 ;;38
 ;;21,"54868-5712-00 ")
 ;;796
 ;;21,"54868-5739-00 ")
 ;;1237
 ;;21,"55045-1211-01 ")
 ;;233
 ;;21,"55045-2058-01 ")
 ;;586
 ;;21,"55045-2138-00 ")
 ;;1066
 ;;21,"55045-2138-01 ")
 ;;1067
 ;;21,"55045-2138-08 ")
 ;;1197
 ;;21,"55045-2265-01 ")
 ;;587
 ;;21,"55045-2265-08 ")
 ;;677
 ;;21,"55045-2266-01 ")
 ;;440
 ;;21,"55045-2322-01 ")
 ;;1198
 ;;21,"55045-3300-01 ")
 ;;704
 ;;21,"55111-0320-01 ")
 ;;268
 ;;21,"55111-0320-05 ")
 ;;269
 ;;21,"55111-0321-01 ")
 ;;299
 ;;21,"55111-0321-05 ")
 ;;300
 ;;21,"55111-0322-01 ")
 ;;349
 ;;21,"55111-0322-05 ")
 ;;350
 ;;21,"55111-0695-01 ")
 ;;64
 ;;21,"55111-0696-01 ")
 ;;105
 ;;21,"55111-0696-10 ")
 ;;106
 ;;21,"55111-0697-01 ")
 ;;180
 ;;21,"55111-0697-10 ")
 ;;181
 ;;21,"55289-0066-90 ")
 ;;234
 ;;21,"55289-0066-97 ")
 ;;235
 ;;21,"55289-0125-30 ")
 ;;441
 ;;21,"55289-0173-30 ")
 ;;1068
 ;;21,"55289-0187-97 ")
 ;;1223
 ;;21,"55289-0265-90 ")
 ;;1218
 ;;21,"55289-0281-30 ")
 ;;182
 ;;21,"55289-0281-60 ")
 ;;183
 ;;21,"55289-0281-86 ")
 ;;184
 ;;21,"55289-0281-90 ")
 ;;185
 ;;21,"55289-0289-97 ")
 ;;1208
 ;;21,"55289-0301-93 ")
 ;;705
 ;;21,"55289-0424-30 ")
 ;;588
 ;;21,"55289-0424-97 ")
 ;;589
 ;;21,"55289-0606-30 ")
 ;;947
 ;;21,"55289-0606-90 ")
 ;;948
 ;;21,"55289-0614-01 ")
 ;;1069
 ;;21,"55289-0614-60 ")
 ;;1070
 ;;21,"55289-0779-07 ")
 ;;767
 ;;21,"55289-0806-14 ")
 ;;590
 ;;21,"55289-0806-30 ")
 ;;591
 ;;21,"55289-0806-60 ")
 ;;592
 ;;21,"55289-0806-86 ")
 ;;593
 ;;21,"55289-0806-90 ")
 ;;594
 ;;21,"55289-0892-01 ")
 ;;1071
 ;;21,"55289-0892-14 ")
 ;;1072
 ;;21,"55289-0892-15 ")
 ;;1073
 ;;21,"55289-0892-30 ")
 ;;1074
 ;;21,"55289-0892-60 ")
 ;;1075
 ;;21,"55289-0892-86 ")
 ;;1076
 ;;21,"55289-0892-90 ")
 ;;1077
 ;;21,"55289-0892-93 ")
 ;;1078
 ;;21,"55289-0892-97 ")
 ;;1079
 ;;21,"55289-0892-98 ")
 ;;1080
 ;;21,"55289-0976-01 ")
 ;;513
 ;;21,"55289-0976-14 ")
 ;;442
 ;;21,"55289-0976-30 ")
 ;;443
 ;;21,"55289-0976-60 ")
 ;;444
 ;;21,"55289-0976-93 ")
 ;;445
 ;;21,"55370-0146-07 ")
 ;;797
 ;;21,"55370-0146-08 ")
 ;;798
 ;;21,"55370-0146-09 ")
 ;;799
 ;;21,"55370-0147-07 ")
 ;;829
 ;;21,"55370-0147-08 ")
 ;;830
 ;;21,"55370-0147-09 ")
 ;;831
 ;;21,"55370-0506-07 ")
 ;;863
 ;;21,"55370-0506-08 ")
 ;;864
 ;;21,"55370-0506-09 ")
 ;;865
 ;;21,"55887-0179-30 ")
 ;;706
 ;;21,"55887-0212-30 ")
 ;;768
 ;;21,"55887-0212-60 ")
 ;;769
 ;;21,"55887-0222-30 ")
 ;;301
 ;;21,"55887-0222-60 ")
 ;;302
 ;;21,"55887-0222-90 ")
 ;;303
 ;;21,"55887-0339-30 ")
 ;;832
 ;;21,"55887-0339-60 ")
 ;;833
 ;;21,"55887-0339-90 ")
 ;;834