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

BGP7LXGB.m

Go to the documentation of this file.
BGP7LXGB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 28, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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,"00556-0372-01 ")
 ;;960
 ;;21,"00556-0372-10 ")
 ;;961
 ;;21,"00591-0785-01 ")
 ;;14
 ;;21,"00591-0785-05 ")
 ;;15
 ;;21,"00591-0786-01 ")
 ;;54
 ;;21,"00591-0786-05 ")
 ;;55
 ;;21,"00591-0786-10 ")
 ;;56
 ;;21,"00591-0787-01 ")
 ;;108
 ;;21,"00591-0787-05 ")
 ;;109
 ;;21,"00591-5476-04 ")
 ;;1043
 ;;21,"00591-5478-01 ")
 ;;874
 ;;21,"00591-5478-04 ")
 ;;875
 ;;21,"00591-5569-01 ")
 ;;1130
 ;;21,"00591-5569-03 ")
 ;;1131
 ;;21,"00591-5572-01 ")
 ;;962
 ;;21,"00591-5580-01 ")
 ;;963
 ;;21,"00591-5581-01 ")
 ;;964
 ;;21,"00591-5619-01 ")
 ;;373
 ;;21,"00591-5619-05 ")
 ;;374
 ;;21,"00591-5619-10 ")
 ;;375
 ;;21,"00591-5620-01 ")
 ;;521
 ;;21,"00591-5620-05 ")
 ;;522
 ;;21,"00591-5620-10 ")
 ;;523
 ;;21,"00591-5621-01 ")
 ;;295
 ;;21,"00591-5621-05 ")
 ;;296
 ;;21,"00591-5621-10 ")
 ;;297
 ;;21,"00591-5802-01 ")
 ;;876
 ;;21,"00591-5802-04 ")
 ;;877
 ;;21,"00591-5806-04 ")
 ;;1044
 ;;21,"00603-1050-58 ")
 ;;878
 ;;21,"00603-2419-21 ")
 ;;742
 ;;21,"00603-2525-32 ")
 ;;879
 ;;21,"00603-2666-21 ")
 ;;16
 ;;21,"00603-2666-32 ")
 ;;17
 ;;21,"00603-2667-21 ")
 ;;57
 ;;21,"00603-2667-32 ")
 ;;58
 ;;21,"00603-2668-21 ")
 ;;110
 ;;21,"00603-2690-21 ")
 ;;612
 ;;21,"00603-2690-28 ")
 ;;613
 ;;21,"00603-2691-21 ")
 ;;614
 ;;21,"00603-2691-28 ")
 ;;615
 ;;21,"00603-3216-28 ")
 ;;298
 ;;21,"00603-3217-28 ")
 ;;376
 ;;21,"00603-3218-28 ")
 ;;524
 ;;21,"00603-3691-21 ")
 ;;145
 ;;21,"00603-3692-21 ")
 ;;194
 ;;21,"00603-3692-28 ")
 ;;195
 ;;21,"00603-5166-01 ")
 ;;1045
 ;;21,"00603-5166-03 ")
 ;;1046
 ;;21,"00603-5166-04 ")
 ;;1047
 ;;21,"00615-0359-29 ")
 ;;673
 ;;21,"00615-0359-43 ")
 ;;674
 ;;21,"00615-0359-65 ")
 ;;675
 ;;21,"00615-0420-29 ")
 ;;1048
 ;;21,"00615-0420-53 ")
 ;;1049
 ;;21,"00615-0420-63 ")
 ;;1050
 ;;21,"00615-0420-65 ")
 ;;1051
 ;;21,"00615-0421-29 ")
 ;;1052
 ;;21,"00615-0421-53 ")
 ;;1053
 ;;21,"00615-0421-63 ")
 ;;1054
 ;;21,"00615-0421-65 ")
 ;;1055
 ;;21,"00615-0435-05 ")
 ;;130
 ;;21,"00615-0435-10 ")
 ;;131
 ;;21,"00615-0436-01 ")
 ;;59
 ;;21,"00615-0436-10 ")
 ;;60
 ;;21,"00615-0437-01 ")
 ;;111
 ;;21,"00615-0437-05 ")
 ;;112
 ;;21,"00615-0437-10 ")
 ;;113
 ;;21,"00615-0461-47 ")
 ;;196
 ;;21,"00615-0462-29 ")
 ;;1056
 ;;21,"00615-0462-43 ")
 ;;1057
 ;;21,"00615-0462-53 ")
 ;;1058
 ;;21,"00615-0462-63 ")
 ;;1059
 ;;21,"00615-0463-29 ")
 ;;1060
 ;;21,"00615-0463-43 ")
 ;;1061
 ;;21,"00615-0463-53 ")
 ;;1062
 ;;21,"00615-0463-63 ")
 ;;1063
 ;;21,"00615-1532-53 ")
 ;;299
 ;;21,"00615-1532-63 ")
 ;;300
 ;;21,"00615-1533-01 ")
 ;;377
 ;;21,"00615-1533-10 ")
 ;;378
 ;;21,"00615-1533-32 ")
 ;;379
 ;;21,"00615-1533-53 ")
 ;;380
 ;;21,"00615-1533-63 ")
 ;;381
 ;;21,"00615-2505-29 ")
 ;;965
 ;;21,"00615-2505-43 ")
 ;;966
 ;;21,"00615-2505-63 ")
 ;;967
 ;;21,"00615-2505-65 ")
 ;;968
 ;;21,"00615-2505-88 ")
 ;;969
 ;;21,"00615-2508-29 ")
 ;;1132
 ;;21,"00615-2508-63 ")
 ;;1133
 ;;21,"00615-2508-65 ")
 ;;1134
 ;;21,"00615-2508-88 ")
 ;;1135
 ;;21,"00615-2509-29 ")
 ;;970
 ;;21,"00615-2509-43 ")
 ;;971
 ;;21,"00615-2509-63 ")
 ;;972
 ;;21,"00615-2509-65 ")
 ;;973
 ;;21,"00615-2509-88 ")
 ;;974
 ;;21,"00615-2510-29 ")
 ;;975
 ;;21,"00615-2510-43 ")
 ;;976
 ;;21,"00615-2510-63 ")
 ;;977
 ;;21,"00615-2510-65 ")
 ;;978
 ;;21,"00615-2510-88 ")
 ;;979
 ;;21,"00641-0369-25 ")
 ;;246
 ;;21,"00641-0371-25 ")
 ;;247
 ;;21,"00641-0480-25 ")
 ;;832
 ;;21,"00641-1408-33 ")
 ;;248
 ;;21,"00641-1408-35 ")
 ;;249
 ;;21,"00641-2289-41 ")
 ;;250
 ;;21,"00675-2711-16 ")
 ;;743
 ;;21,"00675-2711-28 ")
 ;;744
 ;;21,"00675-2723-16 ")
 ;;880
 ;;21,"00675-2723-28 ")
 ;;881
 ;;21,"00675-2797-16 ")
 ;;882
 ;;21,"00675-2797-28 ")
 ;;883
 ;;21,"00675-3741-07 ")
 ;;775
 ;;21,"00675-3741-12 ")
 ;;776
 ;;21,"00675-3741-15 ")
 ;;777
 ;;21,"00675-3818-07 ")
 ;;833
 ;;21,"00675-3818-12 ")
 ;;834
 ;;21,"00675-3819-07 ")
 ;;1064
 ;;21,"00675-3819-12 ")
 ;;1065
 ;;21,"00675-3824-12 ")
 ;;1066
 ;;21,"00675-3836-12 ")
 ;;1067
 ;;21,"00675-4018-07 ")
 ;;980
 ;;21,"00675-4018-10 ")
 ;;981
 ;;21,"00675-4021-07 ")
 ;;1136
 ;;21,"00675-4021-10 ")
 ;;1137
 ;;21,"00675-4021-12 ")
 ;;1138
 ;;21,"00675-4022-07 ")
 ;;982
 ;;21,"00675-4022-10 ")
 ;;983
 ;;21,"00675-4022-12 ")
 ;;984
 ;;21,"00675-4028-07 ")
 ;;985
 ;;21,"00675-4028-10 ")
 ;;986
 ;;21,"00675-4028-12 ")
 ;;987
 ;;21,"00677-0457-01 ")
 ;;18
 ;;21,"00677-0459-01 ")
 ;;114
 ;;21,"00677-1088-21 ")
 ;;251
 ;;21,"00686-1057-71 ")
 ;;634
 ;;21,"00686-1065-71 ")
 ;;676
 ;;21,"00686-1140-25 ")
 ;;778
 ;;21,"00686-3501-01 ")
 ;;835
 ;;21,"00686-3601-01 ")
 ;;677
 ;;21,"00703-2501-04 ")
 ;;836
 ;;21,"00703-2511-04 ")
 ;;678
 ;;21,"00703-2525-03 ")
 ;;837
 ;;21,"00722-5044-01 ")
 ;;838
 ;;21,"00722-5044-02 ")
 ;;839
 ;;21,"00722-5120-02 ")
 ;;1068
 ;;21,"00722-5120-03 ")
 ;;1069
 ;;21,"00722-5515-02 ")
 ;;779
 ;;21,"00722-5515-03 ")
 ;;780
 ;;21,"00781-1105-10 ")
 ;;781
 ;;21,"00781-1482-01 ")
 ;;301
 ;;21,"00781-1482-05 ")
 ;;302
 ;;21,"00781-1482-13 ")
 ;;303
 ;;21,"00781-1483-01 ")
 ;;382
 ;;21,"00781-1483-05 ")
 ;;383
 ;;21,"00781-1483-13 ")
 ;;384
 ;;21,"00781-1484-01 ")
 ;;525
 ;;21,"00781-1484-05 ")
 ;;526
 ;;21,"00781-1484-13 ")
 ;;527
 ;;21,"00781-2080-01 ")
 ;;19
 ;;21,"00781-2080-05 ")
 ;;20
 ;;21,"00781-2080-10 ")
 ;;21
 ;;21,"00781-2082-05 ")
 ;;61
 ;;21,"00781-2082-10 ")
 ;;62
 ;;21,"00781-2084-01 ")
 ;;115
 ;;21,"00781-2084-05 ")
 ;;116
 ;;21,"00781-2084-10 ")
 ;;117
 ;;21,"00781-2506-03 ")
 ;;679
 ;;21,"00781-2506-13 ")
 ;;680
 ;;21,"00814-7085-82 ")
 ;;745
 ;;21,"00832-0225-10 ")
 ;;1070
 ;;21,"00832-0226-10 ")
 ;;884
 ;;21,"00832-0229-10 ")
 ;;1071
 ;;21,"00832-8009-04 ")
 ;;746
 ;;21,"00832-8009-16 ")
 ;;747
 ;;21,"00832-8009-28 ")
 ;;748
 ;;21,"00832-8026-16 ")
 ;;885
 ;;21,"00832-8026-28 ")
 ;;886
 ;;21,"00832-8027-16 ")
 ;;887
 ;;21,"00839-1130-06 ")
 ;;22
 ;;21,"00839-1130-16 ")
 ;;23
 ;;21,"00839-1131-06 ")
 ;;63
 ;;21,"00839-1131-16 ")
 ;;64
 ;;21,"00839-1132-06 ")
 ;;118
 ;;21,"00839-5018-65 ")
 ;;749
 ;;21,"00839-5018-70 ")
 ;;750
 ;;21,"00839-5055-19 ")
 ;;782
 ;;21,"00839-7131-06 ")
 ;;304
 ;;21,"00839-7131-16 ")
 ;;305
 ;;21,"00839-7132-06 ")
 ;;385
 ;;21,"00839-7132-16 ")
 ;;386
 ;;21,"00839-7133-06 ")
 ;;528
 ;;21,"00839-7133-12 ")
 ;;529
 ;;21,"00839-7133-16 ")
 ;;530
 ;;21,"00839-7154-06 ")
 ;;146
 ;;21,"00839-7154-12 ")
 ;;147
 ;;21,"00839-7155-06 ")
 ;;197
 ;;21,"00839-7155-12 ")
 ;;198
 ;;21,"00839-7190-30 ")
 ;;252
 ;;21,"00839-7279-06 ")
 ;;616
 ;;21,"00839-7279-12 ")
 ;;617
 ;;21,"00839-7280-06 ")
 ;;618
 ;;21,"00839-7280-12 ")
 ;;619
 ;;21,"00839-7818-06 ")
 ;;1162
 ;;21,"00879-0027-01 ")
 ;;840
 ;;21,"00879-0027-10 ")
 ;;841
 ;;21,"00879-0029-01 ")
 ;;1072
 ;;21,"00879-0029-10 ")
 ;;1073
 ;;21,"00879-0034-01 ")
 ;;888
 ;;21,"00879-0034-10 ")
 ;;889
 ;;21,"00879-0049-32 ")
 ;;890
 ;;21,"00879-0058-01 ")
 ;;783
 ;;21,"00879-0058-10 ")
 ;;784
 ;;21,"00879-0059-04 ")
 ;;751
 ;;21,"00904-0090-40 ")
 ;;24
 ;;21,"00904-0090-60 ")
 ;;25
 ;;21,"00904-0090-80 ")
 ;;26
 ;;21,"00904-0091-40 ")
 ;;65
 ;;21,"00904-0091-60 ")
 ;;66
 ;;21,"00904-0091-80 ")
 ;;67
 ;;21,"00904-0092-40 ")
 ;;119
 ;;21,"00904-0092-60 ")
 ;;120
 ;;21,"00904-1700-40 ")
 ;;620
 ;;21,"00904-1700-60 ")
 ;;621
 ;;21,"00904-1701-40 ")
 ;;622
 ;;21,"00904-1797-80 ")
 ;;1139
 ;;21,"00904-1798-60 ")
 ;;988
 ;;21,"00904-2800-40 ")
 ;;148
 ;;21,"00904-2800-60 ")
 ;;149
 ;;21,"00904-2800-61 ")
 ;;150
 ;;21,"00904-2801-40 ")
 ;;199
 ;;21,"00904-2801-60 ")
 ;;200
 ;;21,"00904-2801-61 ")
 ;;201
 ;;21,"00904-3884-80 ")
 ;;891
 ;;21,"00904-3901-40 ")
 ;;387
 ;;21,"00904-3901-60 ")
 ;;388
 ;;21,"00904-3901-61 ")
 ;;389
 ;;21,"00904-3901-80 ")
 ;;390
 ;;21,"00904-3902-40 ")
 ;;531
 ;;21,"00904-3902-60 ")
 ;;532
 ;;21,"00904-3902-61 ")
 ;;533
 ;;21,"00904-3902-80 ")
 ;;534
 ;;21,"00904-3903-40 ")
 ;;306
 ;;21,"00904-3903-60 ")
 ;;307
 ;;21,"00904-3903-80 ")
 ;;308
 ;;21,"00906-5339-01 ")
 ;;681
 ;;21,"00906-5339-30 ")
 ;;682
 ;;21,"00998-2260-10 ")
 ;;635
 ;;21,"10019-0004-44 ")
 ;;253
 ;;21,"10019-0005-42 ")
 ;;254
 ;;21,"10019-0005-67 ")
 ;;255
 ;;21,"11845-0291-01 ")
 ;;1140
 ;;21,"11845-0291-04 ")
 ;;1141
 ;;21,"11845-0292-01 ")
 ;;989
 ;;21,"11845-0293-01 ")
 ;;990
 ;;21,"11845-0411-00 ")
 ;;683
 ;;21,"11845-0411-01 ")
 ;;684
 ;;21,"12280-0006-00 ")
 ;;202
 ;;21,"12908-7006-01 ")
 ;;785
 ;;21,"12908-7006-02 ")
 ;;786
 ;;21,"17022-0679-06 ")
 ;;787
 ;;21,"17022-1085-07 ")
 ;;685
 ;;21,"17022-1106-05 ")
 ;;842
 ;;21,"17022-1414-06 ")
 ;;788
 ;;21,"17022-1446-03 ")
 ;;752
 ;;21,"17022-1446-07 ")
 ;;753
 ;;21,"17022-1446-09 ")
 ;;754
 ;;21,"17022-1761-09 ")
 ;;892
 ;;21,"17022-1771-06 ")
 ;;893
 ;;21,"17022-3063-09 ")
 ;;894
 ;;21,"17022-6727-06 ")
 ;;1074
 ;;21,"17022-6748-06 ")
 ;;1075
 ;;21,"17022-6749-06 ")
 ;;895
 ;;21,"17022-6750-06 ")
 ;;896
 ;;21,"17224-0507-10 ")
 ;;789
 ;;21,"17224-0803-10 ")
 ;;1076
 ;;21,"17236-0104-10 ")
 ;;790
 ;;21,"17236-0112-01 ")
 ;;897
 ;;21,"17236-0112-10 ")
 ;;898
 ;;21,"17236-0248-10 ")
 ;;1077
 ;;21,"17236-0248-50 ")
 ;;1078
 ;;21,"17236-0250-10 ")
 ;;1079
 ;;21,"17236-0250-50 ")
 ;;1080
 ;;21,"17236-0251-10 ")
 ;;1109
 ;;21,"17236-0252-10 ")
 ;;899
 ;;21,"17236-0439-01 ")
 ;;991
 ;;21,"17236-0476-01 ")
 ;;1081
 ;;21,"17236-0724-16 ")
 ;;900
 ;;21,"17236-0724-28 ")
 ;;901
 ;;21,"17236-0756-16 ")
 ;;755
 ;;21,"17236-0756-28 ")
 ;;756
 ;;21,"17236-0802-16 ")
 ;;902
 ;;21,"17236-0802-28 ")
 ;;903
 ;;21,"17236-0907-10 ")
 ;;1082
 ;;21,"17236-0908-10 ")
 ;;843
 ;;21,"17236-0924-11 ")
 ;;686
 ;;21,"43797-0007-03 ")
 ;;1163
 ;;21,"43797-0044-21 ")
 ;;636
 ;;21,"44514-0134-18 ")
 ;;791
 ;;21,"44514-0134-88 ")
 ;;792
 ;;21,"48695-8821-01 ")
 ;;687
 ;;21,"49884-0097-01 ")
 ;;992
 ;;21,"49884-0097-05 ")
 ;;993
 ;;21,"49884-0097-10 ")
 ;;994
 ;;21,"49884-0101-01 ")
 ;;1142
 ;;21,"49884-0101-05 ")
 ;;1111
 ;;21,"49884-0101-10 ")
 ;;1112
 ;;21,"49884-0958-01 ")
 ;;27
 ;;21,"49884-0959-01 ")
 ;;68
 ;;21,"49884-0960-01 ")
 ;;121
 ;;21,"49884-0962-01 ")
 ;;623
 ;;21,"49999-0027-02 ")
 ;;1184
 ;;21,"49999-0076-16 ")
 ;;793
 ;;21,"49999-0076-20 ")
 ;;794
 ;;21,"49999-0076-30 ")
 ;;795
 ;;21,"49999-0076-90 ")
 ;;796
 ;;21,"49999-0244-20 ")
 ;;1185
 ;;21,"49999-0394-30 ")
 ;;1083
 ;;21,"49999-0394-60 ")
 ;;1084
 ;;21,"49999-0394-90 ")
 ;;1085
 ;;21,"50313-0032-24 ")
 ;;688
 ;;21,"50319-0816-01 ")
 ;;797
 ;;21,"50383-0290-16 ")
 ;;637
 ;;21,"51079-0094-01 ")
 ;;1086
 ;;21,"51079-0095-01 ")
 ;;1087
 ;;21,"51079-0141-20 ")
 ;;122
 ;;21,"51079-0141-21 ")
 ;;123
 ;;21,"51079-0207-20 ")
 ;;1110
 ;;21,"51079-0207-21 ")
 ;;844
 ;;21,"51079-0284-20 ")
 ;;309
 ;;21,"51079-0284-21 ")
 ;;310
 ;;21,"51079-0285-20 ")
 ;;391
 ;;21,"51079-0285-21 ")
 ;;392
 ;;21,"51079-0286-20 ")
 ;;535
 ;;21,"51079-0286-21 ")
 ;;536
 ;;21,"51079-0302-20 ")
 ;;151
 ;;21,"51079-0302-21 ")
 ;;152
 ;;21,"51079-0303-20 ")
 ;;203
 ;;21,"51079-0303-21 ")
 ;;204
 ;;21,"51079-0374-20 ")
 ;;28
 ;;21,"51079-0374-21 ")
 ;;29
 ;;21,"51079-0375-20 ")
 ;;69
 ;;21,"51079-0375-21 ")
 ;;70
 ;;21,"51432-0036-06 ")
 ;;798
 ;;21,"51432-0342-06 ")
 ;;1088
 ;;21,"51432-0344-06 ")
 ;;1089
 ;;21,"51432-0346-06 ")
 ;;904
 ;;21,"51432-0362-03 ")
 ;;689
 ;;21,"51432-0362-04 ")
 ;;690
 ;;21,"51432-0386-06 ")
 ;;845
 ;;21,"51432-0514-20 ")
 ;;757
 ;;21,"51432-0514-21 ")
 ;;758
 ;;21,"51432-0542-20 ")
 ;;905
 ;;21,"51432-0644-20 ")
 ;;906
 ;;21,"51432-0644-21 ")
 ;;907
 ;;21,"51432-0645-20 ")
 ;;638
 ;;21,"51432-0751-10 ")
 ;;639
 ;;21,"51432-0839-03 ")
 ;;640
 ;;21,"51432-0921-03 ")
 ;;1113
 ;;21,"51432-0921-05 ")
 ;;1114
 ;;21,"51432-0922-03 ")
 ;;995
 ;;21,"51432-0956-03 ")
 ;;996
 ;;21,"51432-0956-06 ")
 ;;997
 ;;21,"51655-0801-24 ")
 ;;393
 ;;21,"51655-0801-25 ")
 ;;394
 ;;21,"51655-0801-26 ")
 ;;395
 ;;21,"51655-0801-82 ")
 ;;396
 ;;21,"51655-0833-24 ")
 ;;537
 ;;21,"51655-0833-25 ")
 ;;538
 ;;21,"51655-0833-26 ")
 ;;539
 ;;21,"51655-0833-82 ")
 ;;540
 ;;21,"51655-0848-83 ")
 ;;908
 ;;21,"51655-0848-92 ")
 ;;909
 ;;21,"51655-0848-93 ")
 ;;910
 ;;21,"51991-0325-01 ")
 ;;641
 ;;21,"51991-0335-15 ")
 ;;642
 ;;21,"51991-0345-01 ")
 ;;643
 ;;21,"51991-0715-01 ")
 ;;644
 ;;21,"52041-0015-15 ")
 ;;645
 ;;21,"52544-0785-01 ")
 ;;30
 ;;21,"52544-0785-05 ")
 ;;31
 ;;21,"52544-0786-01 ")
 ;;71
 ;;21,"52544-0786-05 ")
 ;;72
 ;;21,"52544-0786-10 ")
 ;;73
 ;;21,"52544-0787-01 ")
 ;;124
 ;;21,"52544-0787-05 ")
 ;;125
 ;;21,"52555-0092-01 ")
 ;;1115
 ;;21,"52555-0429-01 ")
 ;;691
 ;;21,"52604-6790-08 ")
 ;;799
 ;;21,"52604-6792-02 ")
 ;;800
 ;;21,"52765-1377-00 ")
 ;;801
 ;;21,"52959-0047-03 ")
 ;;397