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

BGP44Q2.m

Go to the documentation of this file.
BGP44Q2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 2013;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"43353-0477-60 ")
 ;;280
 ;;21,"43353-0477-70 ")
 ;;281
 ;;21,"43353-0477-80 ")
 ;;282
 ;;21,"43353-0477-92 ")
 ;;283
 ;;21,"43353-0477-94 ")
 ;;284
 ;;21,"43353-0477-96 ")
 ;;285
 ;;21,"43353-0514-30 ")
 ;;637
 ;;21,"43353-0514-45 ")
 ;;638
 ;;21,"43353-0514-53 ")
 ;;639
 ;;21,"43353-0514-60 ")
 ;;640
 ;;21,"43353-0514-73 ")
 ;;641
 ;;21,"43353-0514-80 ")
 ;;642
 ;;21,"43353-0514-86 ")
 ;;643
 ;;21,"43353-0520-60 ")
 ;;644
 ;;21,"43353-0520-80 ")
 ;;645
 ;;21,"43353-0530-60 ")
 ;;455
 ;;21,"43353-0530-80 ")
 ;;456
 ;;21,"43353-0585-94 ")
 ;;738
 ;;21,"43353-0589-30 ")
 ;;233
 ;;21,"43353-0589-53 ")
 ;;234
 ;;21,"43353-0589-60 ")
 ;;235
 ;;21,"43353-0589-70 ")
 ;;236
 ;;21,"43353-0589-75 ")
 ;;237
 ;;21,"43353-0589-80 ")
 ;;238
 ;;21,"43353-0589-92 ")
 ;;239
 ;;21,"43353-0589-94 ")
 ;;240
 ;;21,"43353-0589-96 ")
 ;;241
 ;;21,"43353-0811-53 ")
 ;;359
 ;;21,"43547-0248-10 ")
 ;;77
 ;;21,"43547-0248-11 ")
 ;;78
 ;;21,"43547-0248-50 ")
 ;;79
 ;;21,"43547-0249-10 ")
 ;;364
 ;;21,"43547-0249-11 ")
 ;;365
 ;;21,"43547-0249-50 ")
 ;;366
 ;;21,"43547-0250-10 ")
 ;;577
 ;;21,"43547-0250-11 ")
 ;;578
 ;;21,"43547-0250-50 ")
 ;;579
 ;;21,"43547-0320-11 ")
 ;;85
 ;;21,"43547-0321-50 ")
 ;;360
 ;;21,"43547-0322-50 ")
 ;;584
 ;;21,"43683-0131-30 ")
 ;;585
 ;;21,"43683-0131-60 ")
 ;;586
 ;;21,"43683-0132-30 ")
 ;;86
 ;;21,"43683-0132-60 ")
 ;;87
 ;;21,"45963-0753-02 ")
 ;;1039
 ;;21,"47463-0246-30 ")
 ;;927
 ;;21,"47463-0247-30 ")
 ;;935
 ;;21,"47463-0434-60 ")
 ;;894
 ;;21,"47463-0435-60 ")
 ;;881
 ;;21,"47463-0508-30 ")
 ;;649
 ;;21,"47463-0509-30 ")
 ;;168
 ;;21,"47463-0509-60 ")
 ;;169
 ;;21,"47463-0509-74 ")
 ;;170
 ;;21,"47463-0509-90 ")
 ;;171
 ;;21,"47463-0510-30 ")
 ;;765
 ;;21,"47463-0510-60 ")
 ;;766
 ;;21,"47463-0510-71 ")
 ;;767
 ;;21,"47463-0510-74 ")
 ;;768
 ;;21,"47463-0510-90 ")
 ;;769
 ;;21,"47463-0611-60 ")
 ;;625
 ;;21,"47463-0611-74 ")
 ;;626
 ;;21,"47463-0612-30 ")
 ;;466
 ;;21,"49999-0106-00 ")
 ;;88
 ;;21,"49999-0106-01 ")
 ;;89
 ;;21,"49999-0106-28 ")
 ;;90
 ;;21,"49999-0106-30 ")
 ;;91
 ;;21,"49999-0106-60 ")
 ;;92
 ;;21,"49999-0106-90 ")
 ;;93
 ;;21,"49999-0116-00 ")
 ;;587
 ;;21,"49999-0116-30 ")
 ;;588
 ;;21,"49999-0116-60 ")
 ;;589
 ;;21,"49999-0401-30 ")
 ;;1077
 ;;21,"49999-0401-60 ")
 ;;1078
 ;;21,"49999-0401-90 ")
 ;;1038
 ;;21,"49999-0495-30 ")
 ;;467
 ;;21,"49999-0495-60 ")
 ;;468
 ;;21,"49999-0660-30 ")
 ;;1028
 ;;21,"49999-0660-60 ")
 ;;1029
 ;;21,"49999-0820-60 ")
 ;;743
 ;;21,"50268-0531-15 ")
 ;;776
 ;;21,"51079-0172-01 ")
 ;;213
 ;;21,"51079-0172-20 ")
 ;;214
 ;;21,"51079-0173-01 ")
 ;;432
 ;;21,"51079-0173-08 ")
 ;;433
 ;;21,"51079-0174-01 ")
 ;;676
 ;;21,"51079-0174-20 ")
 ;;677
 ;;21,"51079-0972-01 ")
 ;;31
 ;;21,"51079-0972-17 ")
 ;;32
 ;;21,"51079-0972-19 ")
 ;;33
 ;;21,"51079-0972-20 ")
 ;;34
 ;;21,"51079-0972-30 ")
 ;;35
 ;;21,"51079-0972-56 ")
 ;;36
 ;;21,"51079-0973-01 ")
 ;;322
 ;;21,"51079-0973-20 ")
 ;;323
 ;;21,"51079-0995-01 ")
 ;;647
 ;;21,"51079-0995-20 ")
 ;;648
 ;;21,"51138-0074-30 ")
 ;;167
 ;;21,"51138-0075-30 ")
 ;;454
 ;;21,"51138-0076-30 ")
 ;;646
 ;;21,"51138-0083-30 ")
 ;;172
 ;;21,"51138-0084-30 ")
 ;;445
 ;;21,"51138-0085-30 ")
 ;;655
 ;;21,"51138-0470-30 ")
 ;;950
 ;;21,"51138-0471-30 ")
 ;;984
 ;;21,"51138-0472-30 ")
 ;;1064
 ;;21,"51138-0473-30 ")
 ;;949
 ;;21,"51138-0474-30 ")
 ;;985
 ;;21,"51138-0475-30 ")
 ;;1063
 ;;21,"51138-0495-20 ")
 ;;1128
 ;;21,"51138-0495-30 ")
 ;;1129
 ;;21,"51138-0496-30 ")
 ;;1134
 ;;21,"51138-0497-30 ")
 ;;1133
 ;;21,"51138-0498-30 ")
 ;;1141
 ;;21,"51138-0526-30 ")
 ;;885
 ;;21,"51138-0527-30 ")
 ;;892
 ;;21,"51138-0537-10 ")
 ;;814
 ;;21,"51138-0537-30 ")
 ;;815
 ;;21,"51138-0538-10 ")
 ;;839
 ;;21,"51138-0538-30 ")
 ;;855
 ;;21,"51138-0539-10 ")
 ;;707
 ;;21,"51138-0539-30 ")
 ;;708
 ;;21,"51138-0540-10 ")
 ;;853
 ;;21,"51138-0540-30 ")
 ;;854
 ;;21,"52959-0207-00 ")
 ;;227
 ;;21,"52959-0207-28 ")
 ;;228
 ;;21,"52959-0207-30 ")
 ;;229
 ;;21,"52959-0207-60 ")
 ;;230
 ;;21,"52959-0860-02 ")
 ;;534
 ;;21,"52959-0860-30 ")
 ;;535
 ;;21,"52959-0860-60 ")
 ;;536
 ;;21,"52959-0860-90 ")
 ;;537
 ;;21,"52959-0896-01 ")
 ;;337
 ;;21,"52959-0896-60 ")
 ;;338
 ;;21,"53002-1251-00 ")
 ;;210
 ;;21,"53002-1251-03 ")
 ;;211
 ;;21,"53002-1251-06 ")
 ;;212
 ;;21,"53002-1422-00 ")
 ;;434
 ;;21,"53002-1422-03 ")
 ;;435
 ;;21,"53002-1422-06 ")
 ;;436
 ;;21,"53002-1445-00 ")
 ;;673
 ;;21,"53002-1445-03 ")
 ;;674
 ;;21,"53002-1445-06 ")
 ;;675
 ;;21,"53746-0178-01 ")
 ;;777
 ;;21,"53746-0178-05 ")
 ;;778
 ;;21,"53746-0178-10 ")
 ;;779
 ;;21,"53746-0178-90 ")
 ;;780
 ;;21,"53746-0179-01 ")
 ;;829
 ;;21,"53746-0179-05 ")
 ;;830
 ;;21,"54569-4202-02 ")
 ;;10
 ;;21,"54569-4740-00 ")
 ;;315
 ;;21,"54569-5353-00 ")
 ;;484
 ;;21,"54569-5353-02 ")
 ;;485
 ;;21,"54569-5353-03 ")
 ;;486
 ;;21,"54569-5353-04 ")
 ;;487
 ;;21,"54569-5353-05 ")
 ;;488
 ;;21,"54569-5353-06 ")
 ;;489
 ;;21,"54569-5360-00 ")
 ;;231
 ;;21,"54569-5360-03 ")
 ;;232
 ;;21,"54569-5373-00 ")
 ;;594
 ;;21,"54569-5373-02 ")
 ;;595
 ;;21,"54569-5546-00 ")
 ;;739
 ;;21,"54569-5546-01 ")
 ;;740
 ;;21,"54569-5546-02 ")
 ;;741
 ;;21,"54569-5546-03 ")
 ;;742
 ;;21,"54569-5618-00 ")
 ;;1017
 ;;21,"54569-5618-01 ")
 ;;1018
 ;;21,"54569-5618-02 ")
 ;;992
 ;;21,"54569-5618-03 ")
 ;;993
 ;;21,"54569-5619-00 ")
 ;;1070
 ;;21,"54569-5619-01 ")
 ;;1071
 ;;21,"54569-5619-02 ")
 ;;1053
 ;;21,"54569-5619-03 ")
 ;;1054
 ;;21,"54569-5619-04 ")
 ;;1055
 ;;21,"54569-5992-00 ")
 ;;919
 ;;21,"54569-5992-01 ")
 ;;920
 ;;21,"54569-5993-00 ")
 ;;942
 ;;21,"54569-5993-01 ")
 ;;943
 ;;21,"54738-0925-01 ")
 ;;215
 ;;21,"54738-0925-02 ")
 ;;216
 ;;21,"54738-0925-03 ")
 ;;217
 ;;21,"54738-0926-01 ")
 ;;429
 ;;21,"54738-0926-02 ")
 ;;430
 ;;21,"54738-0926-03 ")
 ;;431
 ;;21,"54738-0927-01 ")
 ;;678
 ;;21,"54738-0927-02 ")
 ;;679
 ;;21,"54738-0927-03 ")
 ;;680
 ;;21,"54868-0795-00 ")
 ;;909
 ;;21,"54868-0830-00 ")
 ;;865
 ;;21,"54868-0830-01 ")
 ;;866
 ;;21,"54868-1097-00 ")
 ;;895
 ;;21,"54868-1097-01 ")
 ;;896
 ;;21,"54868-2894-00 ")
 ;;862
 ;;21,"54868-3546-00 ")
 ;;309
 ;;21,"54868-3546-01 ")
 ;;310
 ;;21,"54868-4529-00 ")
 ;;1021
 ;;21,"54868-4529-01 ")
 ;;1022
 ;;21,"54868-4529-02 ")
 ;;1023
 ;;21,"54868-4529-03 ")
 ;;1024
 ;;21,"54868-4561-00 ")
 ;;332
 ;;21,"54868-4561-01 ")
 ;;333
 ;;21,"54868-4561-02 ")
 ;;334
 ;;21,"54868-4561-03 ")
 ;;335
 ;;21,"54868-4561-04 ")
 ;;336
 ;;21,"54868-4564-00 ")
 ;;63
 ;;21,"54868-4564-01 ")
 ;;64
 ;;21,"54868-4564-02 ")
 ;;65
 ;;21,"54868-4564-03 ")
 ;;66
 ;;21,"54868-4564-04 ")
 ;;67
 ;;21,"54868-4564-05 ")
 ;;68
 ;;21,"54868-4566-00 ")
 ;;538
 ;;21,"54868-4566-01 ")
 ;;539
 ;;21,"54868-4566-02 ")
 ;;540
 ;;21,"54868-4566-03 ")
 ;;541
 ;;21,"54868-4566-04 ")
 ;;542
 ;;21,"54868-4609-00 ")
 ;;975
 ;;21,"54868-4609-01 ")
 ;;974
 ;;21,"54868-4906-00 ")
 ;;945
 ;;21,"54868-4965-00 ")
 ;;1125
 ;;21,"54868-4965-01 ")
 ;;1126
 ;;21,"54868-4965-02 ")
 ;;1127
 ;;21,"54868-5148-00 ")
 ;;1010
 ;;21,"54868-5148-01 ")
 ;;1011
 ;;21,"54868-5148-02 ")
 ;;1012
 ;;21,"54868-5148-03 ")
 ;;998
 ;;21,"54868-5148-04 ")
 ;;999
 ;;21,"54868-5157-00 ")
 ;;1136
 ;;21,"54868-5157-01 ")
 ;;1137
 ;;21,"54868-5185-00 ")
 ;;965
 ;;21,"54868-5185-01 ")
 ;;966
 ;;21,"54868-5185-02 ")
 ;;967
 ;;21,"54868-5185-03 ")
 ;;968
 ;;21,"54868-5188-00 ")
 ;;923
 ;;21,"54868-5188-01 ")
 ;;924
 ;;21,"54868-5188-02 ")
 ;;925
 ;;21,"54868-5217-00 ")
 ;;754
 ;;21,"54868-5217-01 ")
 ;;755
 ;;21,"54868-5217-02 ")
 ;;756
 ;;21,"54868-5217-03 ")
 ;;757
 ;;21,"54868-5217-04 ")
 ;;758
 ;;21,"54868-5217-05 ")
 ;;759
 ;;21,"54868-5243-00 ")
 ;;1081
 ;;21,"54868-5243-01 ")
 ;;1082
 ;;21,"54868-5243-02 ")
 ;;1083
 ;;21,"54868-5243-03 ")
 ;;1084
 ;;21,"54868-5243-04 ")
 ;;1085
 ;;21,"54868-5262-00 ")
 ;;1139
 ;;21,"54868-5262-01 ")
 ;;1140
 ;;21,"54868-5376-00 ")
 ;;1132
 ;;21,"54868-5467-00 ")
 ;;939
 ;;21,"54868-5467-01 ")
 ;;940
 ;;21,"54868-5467-02 ")
 ;;941
 ;;21,"54868-5500-00 ")
 ;;1097
 ;;21,"54868-5500-01 ")
 ;;1098
 ;;21,"54868-5500-02 ")
 ;;1096
 ;;21,"54868-5505-00 ")
 ;;840
 ;;21,"54868-5505-01 ")
 ;;841
 ;;21,"54868-5505-02 ")
 ;;842
 ;;21,"54868-5553-00 ")
 ;;1109
 ;;21,"54868-5553-01 ")
 ;;1110
 ;;21,"54868-5553-02 ")
 ;;1111
 ;;21,"54868-5558-00 ")
 ;;856
 ;;21,"54868-5558-01 ")
 ;;857
 ;;21,"54868-5973-00 ")
 ;;884
 ;;21,"55045-2504-01 ")
 ;;316
 ;;21,"55045-2904-00 ")
 ;;94
 ;;21,"55045-2904-02 ")
 ;;95
 ;;21,"55045-2904-06 ")
 ;;96
 ;;21,"55045-2905-00 ")
 ;;374
 ;;21,"55045-2905-08 ")
 ;;375
 ;;21,"55045-2906-00 ")
 ;;543
 ;;21,"55045-2906-01 ")
 ;;544
 ;;21,"55045-2906-02 ")
 ;;545
 ;;21,"55045-2906-06 ")
 ;;546
 ;;21,"55045-2906-08 ")
 ;;547
 ;;21,"55045-2906-09 ")
 ;;548
 ;;21,"55045-3045-01 ")
 ;;2
 ;;21,"55045-3045-06 ")
 ;;3
 ;;21,"55045-3045-08 ")
 ;;4
 ;;21,"55045-3761-08 ")
 ;;43
 ;;21,"55048-0246-30 ")
 ;;922
 ;;21,"55048-0247-30 ")
 ;;937
 ;;21,"55048-0273-60 ")
 ;;1033
 ;;21,"55048-0273-71 ")
 ;;1034
 ;;21,"55048-0434-60 ")
 ;;893
 ;;21,"55048-0437-60 ")
 ;;883
 ;;21,"55048-0508-30 ")
 ;;501
 ;;21,"55048-0508-60 ")
 ;;502
 ;;21,"55048-0509-30 ")
 ;;26
 ;;21,"55048-0509-60 ")
 ;;27
 ;;21,"55048-0509-71 ")
 ;;28
 ;;21,"55048-0509-74 ")
 ;;29
 ;;21,"55048-0509-90 ")
 ;;30
 ;;21,"55048-0510-30 ")
 ;;771
 ;;21,"55048-0510-60 ")
 ;;772
 ;;21,"55048-0510-71 ")
 ;;773
 ;;21,"55048-0510-74 ")
 ;;774
 ;;21,"55048-0510-90 ")
 ;;775
 ;;21,"55048-0611-60 ")
 ;;653
 ;;21,"55048-0611-74 ")
 ;;654
 ;;21,"55048-0612-30 ")
 ;;446
 ;;21,"55048-0629-60 ")
 ;;173
 ;;21,"55048-0629-71 ")
 ;;174
 ;;21,"55048-0630-60 ")
 ;;175
 ;;21,"55048-0630-71 ")
 ;;176
 ;;21,"55048-0631-60 ")
 ;;760
 ;;21,"55048-0631-71 ")
 ;;761
 ;;21,"55048-0632-60 ")
 ;;762
 ;;21,"55048-0632-71 ")
 ;;763
 ;;21,"55111-0695-01 ")
 ;;948
 ;;21,"55111-0696-01 ")
 ;;982
 ;;21,"55111-0696-10 ")
 ;;983
 ;;21,"55111-0697-01 ")
 ;;1061
 ;;21,"55111-0697-10 ")
 ;;1062
 ;;21,"55289-0211-60 ")
 ;;9
 ;;21,"55289-0281-30 ")
 ;;1046
 ;;21,"55289-0281-60 ")
 ;;1047
 ;;21,"55289-0281-86 ")
 ;;1048
 ;;21,"55289-0281-90 ")
 ;;1073
 ;;21,"55289-0384-30 ")
 ;;764
 ;;21,"55289-0384-60 ")
 ;;716
 ;;21,"55289-0384-86 ")
 ;;717
 ;;21,"55289-0384-90 ")
 ;;718
 ;;21,"55289-0384-93 ")
 ;;719
 ;;21,"55289-0384-94 ")
 ;;720
 ;;21,"55289-0615-14 ")
 ;;187
 ;;21,"55289-0615-30 ")
 ;;188
 ;;21,"55289-0615-60 ")
 ;;189
 ;;21,"55289-0615-86 ")
 ;;190
 ;;21,"55289-0615-90 ")
 ;;191
 ;;21,"55289-0615-93 ")
 ;;192
 ;;21,"55289-0615-94 ")
 ;;193
 ;;21,"55289-0615-98 ")
 ;;194
 ;;21,"55289-0919-30 ")
 ;;511
 ;;21,"55289-0919-60 ")
 ;;512
 ;;21,"55289-0919-90 ")
 ;;513
 ;;21,"55289-0919-93 ")
 ;;514
 ;;21,"55289-0919-94 ")
 ;;515
 ;;21,"55289-0919-98 ")
 ;;516
 ;;21,"55289-0934-30 ")
 ;;353
 ;;21,"55289-0934-60 ")
 ;;328
 ;;21,"55289-0934-93 ")
 ;;329
 ;;21,"55289-0934-94 ")
 ;;330
 ;;21,"55289-0934-98 ")
 ;;331
 ;;21,"57664-0397-13 ")
 ;;177
 ;;21,"57664-0397-18 ")
 ;;178
 ;;21,"57664-0397-51 ")
 ;;179
 ;;21,"57664-0397-53 ")
 ;;180
 ;;21,"57664-0397-58 ")
 ;;181
 ;;21,"57664-0397-88 ")
 ;;182
 ;;21,"57664-0397-99 ")
 ;;183
 ;;21,"57664-0435-13 ")
 ;;447
 ;;21,"57664-0435-18 ")
 ;;448
 ;;21,"57664-0435-51 ")
 ;;449
 ;;21,"57664-0435-53 ")
 ;;450
 ;;21,"57664-0435-58 ")
 ;;451
 ;;21,"57664-0435-88 ")
 ;;452
 ;;21,"57664-0435-99 ")
 ;;453
 ;;21,"57664-0474-13 ")
 ;;650
 ;;21,"57664-0474-18 ")
 ;;651
 ;;21,"57664-0474-51 ")
 ;;652
 ;;21,"57664-0474-53 ")
 ;;609
 ;;21,"57664-0474-58 ")
 ;;610
 ;;21,"57664-0474-88 ")
 ;;611
 ;;21,"57664-0474-99 ")
 ;;612
 ;;21,"57664-0724-88 ")
 ;;938
 ;;21,"57664-0725-88 ")
 ;;921
 ;;21,"57664-0727-88 ")
 ;;916
 ;;21,"58016-0058-00 ")
 ;;961
 ;;21,"58016-0058-30 ")
 ;;962
 ;;21,"58016-0058-60 ")
 ;;963
 ;;21,"58016-0058-90 ")
 ;;964
 ;;21,"58016-0213-00 ")
 ;;5
 ;;21,"58016-0213-10 ")
 ;;6
 ;;21,"58016-0213-30 ")
 ;;7
 ;;21,"58016-0213-60 ")
 ;;8
 ;;21,"58016-0411-00 ")
 ;;1086
 ;;21,"58016-0411-02 ")
 ;;1087
 ;;21,"58016-0411-30 ")
 ;;1088
 ;;21,"58016-0411-60 ")
 ;;1089
 ;;21,"58016-0411-90 ")
 ;;1079
 ;;21,"58016-0457-00 ")
 ;;311
 ;;21,"58016-0457-10 ")
 ;;312
 ;;21,"58016-0457-30 ")
 ;;313
 ;;21,"58016-0457-60 ")
 ;;314
 ;;21,"58016-0466-00 ")
 ;;695
 ;;21,"58016-0466-30 ")
 ;;696
 ;;21,"58016-0466-60 ")
 ;;697
 ;;21,"58016-0466-90 ")
 ;;698
 ;;21,"58016-0536-00 ")
 ;;376
 ;;21,"58016-0536-30 ")
 ;;377
 ;;21,"58016-0536-60 ")
 ;;378
 ;;21,"58016-0536-90 ")
 ;;379
 ;;21,"58016-0553-00 ")
 ;;490
 ;;21,"58016-0553-10 ")
 ;;491
 ;;21,"58016-0553-30 ")
 ;;492
 ;;21,"58016-0553-60 ")
 ;;493