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

BGP7LXAB.m

Go to the documentation of this file.
BGP7LXAB ; 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,"00879-0005-10 ")
 ;;617
 ;;21,"00879-0155-01 ")
 ;;965
 ;;21,"00879-0155-05 ")
 ;;966
 ;;21,"00879-0155-10 ")
 ;;820
 ;;21,"00879-0317-10 ")
 ;;563
 ;;21,"00879-0610-01 ")
 ;;748
 ;;21,"00879-0610-05 ")
 ;;749
 ;;21,"00879-0610-10 ")
 ;;750
 ;;21,"00879-0630-01 ")
 ;;751
 ;;21,"00879-0630-05 ")
 ;;752
 ;;21,"00879-0630-10 ")
 ;;753
 ;;21,"00879-0711-01 ")
 ;;754
 ;;21,"00879-0711-05 ")
 ;;755
 ;;21,"00879-0711-10 ")
 ;;756
 ;;21,"00904-0614-60 ")
 ;;227
 ;;21,"00904-0614-80 ")
 ;;228
 ;;21,"00904-0618-60 ")
 ;;340
 ;;21,"00904-0618-70 ")
 ;;341
 ;;21,"00904-2170-40 ")
 ;;804
 ;;21,"00904-2170-60 ")
 ;;805
 ;;21,"00904-2170-61 ")
 ;;700
 ;;21,"00904-2170-80 ")
 ;;701
 ;;21,"00904-2186-40 ")
 ;;821
 ;;21,"00904-2186-60 ")
 ;;822
 ;;21,"00904-2186-61 ")
 ;;823
 ;;21,"00904-2186-80 ")
 ;;824
 ;;21,"00904-2768-60 ")
 ;;57
 ;;21,"00904-2768-80 ")
 ;;58
 ;;21,"00904-2769-60 ")
 ;;84
 ;;21,"00904-2769-80 ")
 ;;85
 ;;21,"00904-2770-60 ")
 ;;109
 ;;21,"00904-2770-80 ")
 ;;110
 ;;21,"00904-2773-60 ")
 ;;127
 ;;21,"00904-3921-60 ")
 ;;229
 ;;21,"00904-3921-80 ")
 ;;230
 ;;21,"00904-4270-80 ")
 ;;306
 ;;21,"00904-5114-51 ")
 ;;511
 ;;21,"10939-0073-22 ")
 ;;841
 ;;21,"10939-0258-33 ")
 ;;842
 ;;21,"10939-0348-11 ")
 ;;843
 ;;21,"10939-0349-11 ")
 ;;844
 ;;21,"10939-0422-33 ")
 ;;845
 ;;21,"10939-0428-33 ")
 ;;846
 ;;21,"10939-0447-33 ")
 ;;662
 ;;21,"10939-0501-33 ")
 ;;470
 ;;21,"10939-0675-22 ")
 ;;847
 ;;21,"10960-0707-50 ")
 ;;848
 ;;21,"11370-0151-12 ")
 ;;496
 ;;21,"11370-0151-24 ")
 ;;497
 ;;21,"11808-0555-01 ")
 ;;231
 ;;21,"11822-3106-90 ")
 ;;849
 ;;21,"11822-3107-50 ")
 ;;850
 ;;21,"11822-3169-00 ")
 ;;851
 ;;21,"11822-3171-10 ")
 ;;852
 ;;21,"11822-3867-30 ")
 ;;853
 ;;21,"11822-3867-40 ")
 ;;854
 ;;21,"11822-9852-50 ")
 ;;498
 ;;21,"11845-0204-01 ")
 ;;757
 ;;21,"11845-0205-01 ")
 ;;758
 ;;21,"11845-0378-01 ")
 ;;654
 ;;21,"11845-0378-03 ")
 ;;655
 ;;21,"11917-0011-45 ")
 ;;499
 ;;21,"11917-0037-39 ")
 ;;473
 ;;21,"11917-0049-74 ")
 ;;855
 ;;21,"12280-0085-07 ")
 ;;263
 ;;21,"12280-0085-14 ")
 ;;264
 ;;21,"12280-0135-00 ")
 ;;164
 ;;21,"12333-9470-02 ")
 ;;856
 ;;21,"12333-9470-19 ")
 ;;857
 ;;21,"12333-9471-01 ")
 ;;858
 ;;21,"12333-9471-02 ")
 ;;859
 ;;21,"12333-9515-07 ")
 ;;474
 ;;21,"12333-9515-79 ")
 ;;459
 ;;21,"12463-0217-01 ")
 ;;26
 ;;21,"12547-0170-51 ")
 ;;460
 ;;21,"12547-0171-47 ")
 ;;463
 ;;21,"12547-0175-50 ")
 ;;471
 ;;21,"12810-0349-40 ")
 ;;860
 ;;21,"15127-0035-07 ")
 ;;861
 ;;21,"15127-0035-08 ")
 ;;862
 ;;21,"15127-0040-02 ")
 ;;472
 ;;21,"15127-0325-24 ")
 ;;863
 ;;21,"15127-0325-50 ")
 ;;864
 ;;21,"15127-0334-24 ")
 ;;865
 ;;21,"15127-0334-50 ")
 ;;866
 ;;21,"15127-0445-24 ")
 ;;867
 ;;21,"17022-7420-04 ")
 ;;825
 ;;21,"17022-7420-06 ")
 ;;826
 ;;21,"17022-7441-04 ")
 ;;702
 ;;21,"17022-7441-06 ")
 ;;703
 ;;21,"17022-7450-02 ")
 ;;656
 ;;21,"17022-7450-04 ")
 ;;657
 ;;21,"17022-7450-06 ")
 ;;658
 ;;21,"17236-0409-10 ")
 ;;512
 ;;21,"17236-0552-01 ")
 ;;827
 ;;21,"17236-0552-05 ")
 ;;828
 ;;21,"17236-0552-10 ")
 ;;829
 ;;21,"17236-0553-01 ")
 ;;659
 ;;21,"17236-0553-05 ")
 ;;660
 ;;21,"17236-0554-01 ")
 ;;704
 ;;21,"17236-0554-05 ")
 ;;705
 ;;21,"17236-0554-10 ")
 ;;706
 ;;21,"17236-0555-01 ")
 ;;759
 ;;21,"17236-0555-05 ")
 ;;760
 ;;21,"17236-0903-01 ")
 ;;641
 ;;21,"17236-0909-01 ")
 ;;618
 ;;21,"17314-5850-02 ")
 ;;390
 ;;21,"17314-5851-02 ")
 ;;391
 ;;21,"17314-5852-02 ")
 ;;392
 ;;21,"17314-5853-02 ")
 ;;400
 ;;21,"19458-4377-01 ")
 ;;868
 ;;21,"19458-9026-01 ")
 ;;869
 ;;21,"19458-9056-01 ")
 ;;456
 ;;21,"19458-9100-01 ")
 ;;663
 ;;21,"19458-9116-01 ")
 ;;870
 ;;21,"19810-0018-00 ")
 ;;564
 ;;21,"19810-0084-01 ")
 ;;565
 ;;21,"19810-0084-02 ")
 ;;566
 ;;21,"19810-0702-03 ")
 ;;567
 ;;21,"19810-0702-04 ")
 ;;568
 ;;21,"19810-0763-03 ")
 ;;569
 ;;21,"19810-0763-04 ")
 ;;570
 ;;21,"19810-0763-05 ")
 ;;571
 ;;21,"19810-0763-06 ")
 ;;572
 ;;21,"19810-0764-01 ")
 ;;664
 ;;21,"24385-0285-71 ")
 ;;513
 ;;21,"24385-0355-71 ")
 ;;665
 ;;21,"25332-1113-01 ")
 ;;12
 ;;21,"30142-0437-71 ")
 ;;871
 ;;21,"30142-0837-71 ")
 ;;872
 ;;21,"34575-0099-01 ")
 ;;457
 ;;21,"34575-0213-00 ")
 ;;873
 ;;21,"34575-0439-93 ")
 ;;874
 ;;21,"34575-0623-27 ")
 ;;875
 ;;21,"34575-0881-61 ")
 ;;666
 ;;21,"35515-0951-05 ")
 ;;876
 ;;21,"35515-0954-61 ")
 ;;877
 ;;21,"35515-0990-09 ")
 ;;878
 ;;21,"36800-0162-31 ")
 ;;879
 ;;21,"36800-0623-78 ")
 ;;880
 ;;21,"36800-0649-13 ")
 ;;881
 ;;21,"37097-0349-50 ")
 ;;882
 ;;21,"37097-0361-24 ")
 ;;458
 ;;21,"37097-0437-71 ")
 ;;883
 ;;21,"37097-0465-71 ")
 ;;884
 ;;21,"37205-0060-78 ")
 ;;885
 ;;21,"38245-0472-10 ")
 ;;159
 ;;21,"38245-0524-10 ")
 ;;145
 ;;21,"38245-0577-01 ")
 ;;151
 ;;21,"38245-0577-10 ")
 ;;152
 ;;21,"38726-0185-71 ")
 ;;886
 ;;21,"38726-0437-71 ")
 ;;887
 ;;21,"38726-0465-71 ")
 ;;888
 ;;21,"41163-0030-62 ")
 ;;461
 ;;21,"41163-0185-71 ")
 ;;889
 ;;21,"41163-0233-71 ")
 ;;890
 ;;21,"41163-0245-08 ")
 ;;891
 ;;21,"41163-0245-10 ")
 ;;892
 ;;21,"41163-0245-26 ")
 ;;462
 ;;21,"41163-0265-39 ")
 ;;893
 ;;21,"41163-0265-43 ")
 ;;894
 ;;21,"41163-0355-71 ")
 ;;895
 ;;21,"41163-0437-71 ")
 ;;896
 ;;21,"41163-0437-78 ")
 ;;897
 ;;21,"41163-0465-71 ")
 ;;898
 ;;21,"41163-0837-71 ")
 ;;899
 ;;21,"41280-0223-48 ")
 ;;900
 ;;21,"43292-0557-95 ")
 ;;901
 ;;21,"43292-0558-31 ")
 ;;902
 ;;21,"43567-0530-07 ")
 ;;86
 ;;21,"43567-0531-07 ")
 ;;59
 ;;21,"44514-0750-18 ")
 ;;761
 ;;21,"44514-0750-33 ")
 ;;762
 ;;21,"44514-0999-01 ")
 ;;903
 ;;21,"46703-0009-10 ")
 ;;707
 ;;21,"46703-0100-05 ")
 ;;763
 ;;21,"48135-3636-70 ")
 ;;904
 ;;21,"48135-3636-80 ")
 ;;905
 ;;21,"48135-9375-20 ")
 ;;906
 ;;21,"49348-0072-09 ")
 ;;667
 ;;21,"49348-0073-09 ")
 ;;907
 ;;21,"49348-0206-04 ")
 ;;464
 ;;21,"49348-0349-10 ")
 ;;908
 ;;21,"49614-0437-71 ")
 ;;909
 ;;21,"49614-0439-78 ")
 ;;910
 ;;21,"49614-0453-62 ")
 ;;465
 ;;21,"49999-0025-00 ")
 ;;764
 ;;21,"49999-0025-01 ")
 ;;765
 ;;21,"49999-0025-06 ")
 ;;766
 ;;21,"49999-0025-10 ")
 ;;767
 ;;21,"49999-0025-12 ")
 ;;768
 ;;21,"49999-0025-15 ")
 ;;769
 ;;21,"49999-0025-20 ")
 ;;770
 ;;21,"49999-0025-30 ")
 ;;771
 ;;21,"49999-0025-50 ")
 ;;772
 ;;21,"49999-0025-60 ")
 ;;773
 ;;21,"49999-0025-90 ")
 ;;774
 ;;21,"50319-0130-01 ")
 ;;596
 ;;21,"50428-1224-44 ")
 ;;466
 ;;21,"50428-1248-86 ")
 ;;911
 ;;21,"50428-6617-28 ")
 ;;912
 ;;21,"50428-6617-93 ")
 ;;467
 ;;21,"50580-0176-12 ")
 ;;913
 ;;21,"50580-0176-14 ")
 ;;914
 ;;21,"50580-0176-18 ")
 ;;915
 ;;21,"50580-0176-40 ")
 ;;916
 ;;21,"50580-0182-52 ")
 ;;917
 ;;21,"50580-0211-48 ")
 ;;668
 ;;21,"50580-0379-24 ")
 ;;487
 ;;21,"50580-0379-36 ")
 ;;488
 ;;21,"50580-0426-06 ")
 ;;918
 ;;21,"50580-0482-13 ")
 ;;919
 ;;21,"50580-0482-22 ")
 ;;920
 ;;21,"50580-0482-23 ")
 ;;921
 ;;21,"50580-0482-40 ")
 ;;922
 ;;21,"50844-0235-08 ")
 ;;923
 ;;21,"50844-0235-15 ")
 ;;924
 ;;21,"50844-0246-15 ")
 ;;925
 ;;21,"51079-0322-01 ")
 ;;775
 ;;21,"51079-0322-23 ")
 ;;776
 ;;21,"51079-0934-01 ")
 ;;777
 ;;21,"51079-0934-17 ")
 ;;778
 ;;21,"51079-0934-19 ")
 ;;779
 ;;21,"51079-0934-23 ")
 ;;780
 ;;21,"51432-0388-03 ")
 ;;830
 ;;21,"51432-0388-05 ")
 ;;831
 ;;21,"51432-0390-03 ")
 ;;708
 ;;21,"51432-0390-05 ")
 ;;709
 ;;21,"51432-0391-03 ")
 ;;781
 ;;21,"51432-0391-05 ")
 ;;782
 ;;21,"51432-0392-03 ")
 ;;597
 ;;21,"51432-0392-05 ")
 ;;598
 ;;21,"51432-0980-03 ")
 ;;783
 ;;21,"51432-0980-05 ")
 ;;784
 ;;21,"51432-0998-03 ")
 ;;785
 ;;21,"51655-0803-24 ")
 ;;786
 ;;21,"51655-0803-54 ")
 ;;787
 ;;21,"51655-0837-25 ")
 ;;788
 ;;21,"51655-0837-26 ")
 ;;789
 ;;21,"51655-0837-51 ")
 ;;790
 ;;21,"51655-0837-52 ")
 ;;791
 ;;21,"51655-0837-53 ")
 ;;792
 ;;21,"51655-0837-77 ")
 ;;793
 ;;21,"51655-0837-82 ")
 ;;794
 ;;21,"51655-0849-51 ")
 ;;832
 ;;21,"51655-0849-82 ")
 ;;833
 ;;21,"52152-0159-02 ")
 ;;192
 ;;21,"52152-0159-05 ")
 ;;193
 ;;21,"52152-0161-02 ")
 ;;146
 ;;21,"52152-0162-02 ")
 ;;160
 ;;21,"52152-0167-02 ")
 ;;27
 ;;21,"52152-0167-05 ")
 ;;28
 ;;21,"52152-0173-02 ")
 ;;232
 ;;21,"52152-0186-02 ")
 ;;153
 ;;21,"52152-0197-02 ")
 ;;137
 ;;21,"52297-0437-10 ")
 ;;926
 ;;21,"52297-0813-71 ")
 ;;669
 ;;21,"52297-0983-09 ")
 ;;927
 ;;21,"52544-0782-01 ")
 ;;342
 ;;21,"52544-0783-01 ")
 ;;325
 ;;21,"52569-0437-10 ")
 ;;928
 ;;21,"52604-0010-01 ")
 ;;233
 ;;21,"52604-0470-01 ")
 ;;265
 ;;21,"52735-0471-05 ")
 ;;670
 ;;21,"52735-0482-05 ")
 ;;489
 ;;21,"52735-0770-12 ")
 ;;929
 ;;21,"52735-0782-12 ")
 ;;671
 ;;21,"52735-0783-12 ")
 ;;672
 ;;21,"52959-0188-20 ")
 ;;967
 ;;21,"52959-0426-06 ")
 ;;165
 ;;21,"52959-0426-07 ")
 ;;166
 ;;21,"52959-0426-14 ")
 ;;167
 ;;21,"52959-0426-15 ")
 ;;168
 ;;21,"52959-0426-24 ")
 ;;169
 ;;21,"52959-0426-28 ")
 ;;170
 ;;21,"52959-0426-30 ")
 ;;171
 ;;21,"52959-0440-07 ")
 ;;234
 ;;21,"52959-0440-15 ")
 ;;235
 ;;21,"52959-0440-30 ")
 ;;236
 ;;21,"52959-0523-00 ")
 ;;612
 ;;21,"52959-0628-28 ")
 ;;266
 ;;21,"52959-0628-30 ")
 ;;267
 ;;21,"53014-0530-07 ")
 ;;87
 ;;21,"53014-0530-12 ")
 ;;88
 ;;21,"53014-0531-07 ")
 ;;60
 ;;21,"53014-0531-12 ")
 ;;61
 ;;21,"53014-0532-07 ")
 ;;111
 ;;21,"53014-0532-12 ")
 ;;112
 ;;21,"53014-0562-07 ")
 ;;128
 ;;21,"53014-0574-07 ")
 ;;405
 ;;21,"53014-0575-07 ")
 ;;394
 ;;21,"53014-0575-30 ")
 ;;395
 ;;21,"53014-0575-72 ")
 ;;396
 ;;21,"53014-0576-07 ")
 ;;402
 ;;21,"53014-0593-07 ")
 ;;389
 ;;21,"53014-0594-07 ")
 ;;129
 ;;21,"53014-0903-71 ")
 ;;382
 ;;21,"53014-0903-84 ")
 ;;383
 ;;21,"53014-0904-71 ")
 ;;378
 ;;21,"53014-0904-84 ")
 ;;379
 ;;21,"53265-0253-10 ")
 ;;62
 ;;21,"53265-0253-11 ")
 ;;63
 ;;21,"53265-0254-10 ")
 ;;89
 ;;21,"53265-0254-11 ")
 ;;90
 ;;21,"53265-0255-10 ")
 ;;113
 ;;21,"53265-0257-10 ")
 ;;194
 ;;21,"53265-0257-11 ")
 ;;195
 ;;21,"53265-0257-40 ")
 ;;196
 ;;21,"53265-0258-10 ")
 ;;237
 ;;21,"53265-0258-11 ")
 ;;238
 ;;21,"53265-0259-10 ")
 ;;239
 ;;21,"53265-0262-10 ")
 ;;130
 ;;21,"53265-0346-10 ")
 ;;172
 ;;21,"53265-0346-11 ")
 ;;173
 ;;21,"53265-0396-10 ")
 ;;386
 ;;21,"53445-0317-05 ")
 ;;968
 ;;21,"53489-0406-01 ")
 ;;29
 ;;21,"53489-0406-10 ")
 ;;30
 ;;21,"53489-0433-01 ")
 ;;240
 ;;21,"53489-0433-10 ")
 ;;241
 ;;21,"53489-0564-01 ")
 ;;425
 ;;21,"53489-0565-01 ")
 ;;426
 ;;21,"53489-0566-01 ")
 ;;427
 ;;21,"53489-0567-01 ")
 ;;428
 ;;21,"53489-0568-01 ")
 ;;429
 ;;21,"53489-0569-01 ")
 ;;430
 ;;21,"53489-0570-01 ")
 ;;431
 ;;21,"53723-2520-01 ")
 ;;573
 ;;21,"53723-2520-03 ")
 ;;574
 ;;21,"53978-5013-09 ")
 ;;969
 ;;21,"54092-0371-01 ")
 ;;432
 ;;21,"54092-0372-01 ")
 ;;433
 ;;21,"54092-0373-01 ")
 ;;434
 ;;21,"54092-0374-01 ")
 ;;435
 ;;21,"54092-0375-01 ")
 ;;436
 ;;21,"54092-0376-01 ")
 ;;437
 ;;21,"54092-0377-01 ")
 ;;438
 ;;21,"54092-0381-01 ")
 ;;439
 ;;21,"54092-0383-01 ")
 ;;440
 ;;21,"54092-0385-01 ")
 ;;441
 ;;21,"54092-0387-01 ")
 ;;442
 ;;21,"54092-0389-01 ")
 ;;443
 ;;21,"54092-0391-01 ")
 ;;444
 ;;21,"54092-0448-01 ")
 ;;366
 ;;21,"54092-0452-01 ")
 ;;374
 ;;21,"54257-0771-17 ")
 ;;930
 ;;21,"54274-0330-30 ")
 ;;970
 ;;21,"54274-0362-10 ")
 ;;834
 ;;21,"54274-0362-50 ")
 ;;835
 ;;21,"54274-0364-10 ")
 ;;642
 ;;21,"54274-0365-10 ")
 ;;619
 ;;21,"54274-0423-10 ")
 ;;599
 ;;21,"54274-0423-30 ")
 ;;600
 ;;21,"54274-0424-10 ")
 ;;971
 ;;21,"54274-0424-30 ")
 ;;972
 ;;21,"54274-0425-10 ")
 ;;973
 ;;21,"54274-0425-30 ")
 ;;974
 ;;21,"54499-0395-24 ")
 ;;490
 ;;21,"54499-0445-50 ")
 ;;931
 ;;21,"54569-0007-00 ")
 ;;975
 ;;21,"54569-0007-02 ")
 ;;976
 ;;21,"54569-0007-03 ")
 ;;977
 ;;21,"54569-0007-07 ")
 ;;978
 ;;21,"54569-0015-00 ")
 ;;979
 ;;21,"54569-0015-01 ")
 ;;980
 ;;21,"54569-0015-02 ")
 ;;981
 ;;21,"54569-0015-03 ")
 ;;982
 ;;21,"54569-0015-04 ")
 ;;983
 ;;21,"54569-0015-05 ")
 ;;984
 ;;21,"54569-0015-06 ")
 ;;985
 ;;21,"54569-0015-07 ")
 ;;986
 ;;21,"54569-0015-08 ")
 ;;987
 ;;21,"54569-0015-09 ")
 ;;988
 ;;21,"54569-0223-00 ")
 ;;806
 ;;21,"54569-0223-04 ")
 ;;807
 ;;21,"54569-0223-05 ")
 ;;808
 ;;21,"54569-0301-01 ")
 ;;1103
 ;;21,"54569-0301-06 ")
 ;;1104
 ;;21,"54569-2198-00 ")
 ;;268
 ;;21,"54569-2198-01 ")
 ;;269
 ;;21,"54569-2198-02 ")
 ;;270
 ;;21,"54569-2588-04 ")
 ;;601
 ;;21,"54569-2669-00 ")
 ;;4
 ;;21,"54569-2669-01 ")
 ;;5
 ;;21,"54569-2669-02 ")
 ;;6
 ;;21,"54569-2669-03 ")
 ;;7
 ;;21,"54569-3292-00 ")
 ;;989
 ;;21,"54569-3292-01 ")
 ;;990
 ;;21,"54569-3292-02 ")
 ;;991
 ;;21,"54569-3292-03 ")
 ;;992
 ;;21,"54569-3292-04 ")
 ;;993
 ;;21,"54569-3292-05 ")
 ;;994
 ;;21,"54569-3751-00 ")
 ;;575
 ;;21,"54569-4095-00 ")
 ;;632
 ;;21,"54569-5082-01 ")
 ;;995
 ;;21,"54868-0073-01 ")
 ;;996
 ;;21,"54868-0073-02 ")
 ;;997