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

BGP7LXFB.m

Go to the documentation of this file.
BGP7LXFB ; 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,"38130-0325-01 ")
 ;;551
 ;;21,"41163-0251-28 ")
 ;;315
 ;;21,"41163-0255-29 ")
 ;;316
 ;;21,"41163-0379-34 ")
 ;;317
 ;;21,"44514-0057-20 ")
 ;;306
 ;;21,"45985-0578-01 ")
 ;;552
 ;;21,"46672-0053-10 ")
 ;;553
 ;;21,"46672-0053-50 ")
 ;;554
 ;;21,"46703-0055-05 ")
 ;;356
 ;;21,"46703-0056-05 ")
 ;;420
 ;;21,"49884-0811-01 ")
 ;;555
 ;;21,"49884-0811-05 ")
 ;;556
 ;;21,"49999-0036-12 ")
 ;;421
 ;;21,"49999-0036-60 ")
 ;;422
 ;;21,"49999-0115-20 ")
 ;;718
 ;;21,"49999-0151-20 ")
 ;;719
 ;;21,"49999-0151-60 ")
 ;;720
 ;;21,"49999-0247-04 ")
 ;;307
 ;;21,"49999-0525-10 ")
 ;;342
 ;;21,"50752-0277-05 ")
 ;;669
 ;;21,"50752-0277-09 ")
 ;;670
 ;;21,"50752-0278-05 ")
 ;;671
 ;;21,"51079-0077-01 ")
 ;;357
 ;;21,"51079-0078-01 ")
 ;;423
 ;;21,"51285-0265-02 ")
 ;;358
 ;;21,"51285-0265-04 ")
 ;;359
 ;;21,"51285-0266-02 ")
 ;;424
 ;;21,"51285-0266-04 ")
 ;;425
 ;;21,"51285-0267-02 ")
 ;;426
 ;;21,"51285-0267-04 ")
 ;;427
 ;;21,"51285-0684-02 ")
 ;;260
 ;;21,"51285-0908-02 ")
 ;;672
 ;;21,"51432-0495-03 ")
 ;;360
 ;;21,"51432-0495-05 ")
 ;;361
 ;;21,"51432-0496-03 ")
 ;;428
 ;;21,"51432-0496-05 ")
 ;;429
 ;;21,"51432-0497-03 ")
 ;;430
 ;;21,"51432-0570-18 ")
 ;;478
 ;;21,"51432-0570-19 ")
 ;;479
 ;;21,"51432-0570-20 ")
 ;;480
 ;;21,"51432-0570-21 ")
 ;;481
 ;;21,"51655-0588-24 ")
 ;;721
 ;;21,"51655-0838-25 ")
 ;;722
 ;;21,"51660-0784-01 ")
 ;;76
 ;;21,"51660-0784-10 ")
 ;;77
 ;;21,"51660-0785-01 ")
 ;;125
 ;;21,"51660-0785-10 ")
 ;;126
 ;;21,"51660-0786-01 ")
 ;;167
 ;;21,"51660-0786-10 ")
 ;;168
 ;;21,"51660-0787-01 ")
 ;;189
 ;;21,"51660-0787-10 ")
 ;;190
 ;;21,"51660-0789-01 ")
 ;;169
 ;;21,"51674-0009-01 ")
 ;;557
 ;;21,"51724-0020-01 ")
 ;;308
 ;;21,"51724-0020-04 ")
 ;;309
 ;;21,"51991-0073-01 ")
 ;;261
 ;;21,"51991-0074-01 ")
 ;;262
 ;;21,"51991-0074-05 ")
 ;;263
 ;;21,"52098-0470-05 ")
 ;;482
 ;;21,"52406-0014-10 ")
 ;;462
 ;;21,"52544-0425-01 ")
 ;;264
 ;;21,"52544-0425-05 ")
 ;;265
 ;;21,"52544-0485-01 ")
 ;;558
 ;;21,"52544-0485-05 ")
 ;;559
 ;;21,"52544-0800-10 ")
 ;;362
 ;;21,"52544-0801-10 ")
 ;;431
 ;;21,"52544-0955-01 ")
 ;;673
 ;;21,"52544-0956-01 ")
 ;;266
 ;;21,"52544-0957-01 ")
 ;;560
 ;;21,"52544-0957-05 ")
 ;;561
 ;;21,"52544-0958-01 ")
 ;;267
 ;;21,"52569-0203-11 ")
 ;;310
 ;;21,"52569-4340-77 ")
 ;;483
 ;;21,"52584-0827-10 ")
 ;;463
 ;;21,"52604-6712-01 ")
 ;;96
 ;;21,"52604-6712-02 ")
 ;;78
 ;;21,"52604-6722-01 ")
 ;;225
 ;;21,"52604-6722-02 ")
 ;;127
 ;;21,"52604-6731-01 ")
 ;;214
 ;;21,"52604-6731-02 ")
 ;;170
 ;;21,"52604-6740-01 ")
 ;;230
 ;;21,"52604-6740-02 ")
 ;;191
 ;;21,"52747-0600-60 ")
 ;;562
 ;;21,"52959-0370-00 ")
 ;;563
 ;;21,"52959-0370-12 ")
 ;;564
 ;;21,"52959-0370-20 ")
 ;;565
 ;;21,"52959-0370-25 ")
 ;;566
 ;;21,"52959-0370-30 ")
 ;;567
 ;;21,"52959-0370-50 ")
 ;;568
 ;;21,"52959-0370-60 ")
 ;;569
 ;;21,"52959-0399-20 ")
 ;;723
 ;;21,"52959-0399-60 ")
 ;;724
 ;;21,"52959-0433-10 ")
 ;;363
 ;;21,"52959-0433-15 ")
 ;;364
 ;;21,"52959-0433-30 ")
 ;;365
 ;;21,"52959-1398-03 ")
 ;;484
 ;;21,"53265-0235-10 ")
 ;;570
 ;;21,"53265-0235-50 ")
 ;;571
 ;;21,"53265-0236-10 ")
 ;;572
 ;;21,"53265-0236-50 ")
 ;;573
 ;;21,"53265-0240-10 ")
 ;;268
 ;;21,"53445-1098-01 ")
 ;;366
 ;;21,"53445-1099-01 ")
 ;;432
 ;;21,"53633-0069-01 ")
 ;;367
 ;;21,"53633-0069-05 ")
 ;;368
 ;;21,"53633-0069-10 ")
 ;;369
 ;;21,"53633-0069-11 ")
 ;;370
 ;;21,"53633-0070-01 ")
 ;;433
 ;;21,"53633-0070-05 ")
 ;;434
 ;;21,"53633-0070-10 ")
 ;;435
 ;;21,"53633-0070-11 ")
 ;;436
 ;;21,"53633-0071-01 ")
 ;;437
 ;;21,"53633-0071-05 ")
 ;;438
 ;;21,"53633-0071-10 ")
 ;;439
 ;;21,"53633-0071-11 ")
 ;;440
 ;;21,"54198-0130-16 ")
 ;;51
 ;;21,"54198-0130-28 ")
 ;;52
 ;;21,"54274-0034-10 ")
 ;;371
 ;;21,"54274-0034-30 ")
 ;;372
 ;;21,"54274-0035-10 ")
 ;;441
 ;;21,"54274-0035-30 ")
 ;;442
 ;;21,"54274-0107-10 ")
 ;;443
 ;;21,"54274-0135-30 ")
 ;;373
 ;;21,"54274-0745-62 ")
 ;;464
 ;;21,"54348-0987-16 ")
 ;;725
 ;;21,"54569-0013-00 ")
 ;;574
 ;;21,"54569-0013-02 ")
 ;;575
 ;;21,"54569-0339-00 ")
 ;;726
 ;;21,"54569-0339-04 ")
 ;;727
 ;;21,"54569-0938-00 ")
 ;;128
 ;;21,"54569-0938-01 ")
 ;;129
 ;;21,"54569-0938-02 ")
 ;;130
 ;;21,"54569-2031-00 ")
 ;;53
 ;;21,"54569-2538-00 ")
 ;;576
 ;;21,"54569-2538-01 ")
 ;;577
 ;;21,"54569-2538-03 ")
 ;;578
 ;;21,"54569-2538-04 ")
 ;;579
 ;;21,"54569-2538-05 ")
 ;;580
 ;;21,"54569-2571-05 ")
 ;;444
 ;;21,"54569-3024-00 ")
 ;;465
 ;;21,"54569-3282-00 ")
 ;;200
 ;;21,"54569-3441-00 ")
 ;;581
 ;;21,"54569-3441-01 ")
 ;;582
 ;;21,"54569-4197-00 ")
 ;;383
 ;;21,"54569-4935-00 ")
 ;;583
 ;;21,"54569-4935-01 ")
 ;;728
 ;;21,"54868-1031-00 ")
 ;;729
 ;;21,"54868-1031-02 ")
 ;;730
 ;;21,"54868-1036-00 ")
 ;;731
 ;;21,"54868-1036-01 ")
 ;;584
 ;;21,"54868-1036-02 ")
 ;;585
 ;;21,"54868-1036-03 ")
 ;;586
 ;;21,"54868-1053-00 ")
 ;;732
 ;;21,"54868-1053-01 ")
 ;;733
 ;;21,"54868-1053-02 ")
 ;;734
 ;;21,"54868-1053-03 ")
 ;;735
 ;;21,"54868-1053-04 ")
 ;;736
 ;;21,"54868-1075-00 ")
 ;;737
 ;;21,"54868-1075-01 ")
 ;;738
 ;;21,"54868-1075-02 ")
 ;;739
 ;;21,"54868-1075-03 ")
 ;;740
 ;;21,"54868-1109-00 ")
 ;;279
 ;;21,"54868-1227-02 ")
 ;;384
 ;;21,"54868-2048-00 ")
 ;;466
 ;;21,"54868-2048-01 ")
 ;;467
 ;;21,"54868-2778-00 ")
 ;;741
 ;;21,"54868-2778-01 ")
 ;;742
 ;;21,"54868-2778-02 ")
 ;;743
 ;;21,"54868-2778-03 ")
 ;;744
 ;;21,"55045-1208-07 ")
 ;;745
 ;;21,"55045-1252-02 ")
 ;;385
 ;;21,"55045-1582-05 ")
 ;;746
 ;;21,"55045-1582-07 ")
 ;;747
 ;;21,"55045-1582-08 ")
 ;;748
 ;;21,"55045-1661-08 ")
 ;;445
 ;;21,"55045-2195-04 ")
 ;;374
 ;;21,"55045-2195-05 ")
 ;;375
 ;;21,"55175-1857-00 ")
 ;;485
 ;;21,"55175-1858-01 ")
 ;;486
 ;;21,"55175-4090-00 ")
 ;;376
 ;;21,"55175-4090-02 ")
 ;;377
 ;;21,"55175-4090-03 ")
 ;;378
 ;;21,"55175-4090-04 ")
 ;;379
 ;;21,"55175-4091-00 ")
 ;;446
 ;;21,"55175-4091-01 ")
 ;;447
 ;;21,"55175-4091-02 ")
 ;;448
 ;;21,"55175-4091-03 ")
 ;;449
 ;;21,"55289-0040-15 ")
 ;;749
 ;;21,"55289-0040-20 ")
 ;;750
 ;;21,"55289-0040-30 ")
 ;;751
 ;;21,"55289-0127-15 ")
 ;;752
 ;;21,"55289-0127-25 ")
 ;;753
 ;;21,"55289-0165-97 ")
 ;;754
 ;;21,"55289-0264-12 ")
 ;;587
 ;;21,"55289-0337-97 ")
 ;;755
 ;;21,"55289-0354-10 ")
 ;;450
 ;;21,"55289-0377-97 ")
 ;;756
 ;;21,"55289-0439-12 ")
 ;;588
 ;;21,"55289-0690-12 ")
 ;;757
 ;;21,"55289-0778-18 ")
 ;;291
 ;;21,"55289-0879-10 ")
 ;;589
 ;;21,"55289-0879-15 ")
 ;;590
 ;;21,"55289-0879-20 ")
 ;;591
 ;;21,"55289-0879-30 ")
 ;;592
 ;;21,"55629-0155-04 ")
 ;;487
 ;;21,"55629-0155-16 ")
 ;;488
 ;;21,"55629-0155-28 ")
 ;;489
 ;;21,"55829-0815-10 ")
 ;;674
 ;;21,"55829-0857-10 ")
 ;;79
 ;;21,"55829-0858-10 ")
 ;;131
 ;;21,"55829-0859-10 ")
 ;;171
 ;;21,"55887-0355-20 ")
 ;;758
 ;;21,"55887-0355-30 ")
 ;;759
 ;;21,"55887-0355-40 ")
 ;;760
 ;;21,"55887-0566-20 ")
 ;;761
 ;;21,"55887-0566-30 ")
 ;;762
 ;;21,"55887-0566-60 ")
 ;;763
 ;;21,"55887-0918-30 ")
 ;;764
 ;;21,"55887-0918-60 ")
 ;;765
 ;;21,"55887-0918-90 ")
 ;;766
 ;;21,"55887-0988-20 ")
 ;;767
 ;;21,"55887-0988-30 ")
 ;;768
 ;;21,"55887-0988-60 ")
 ;;769
 ;;21,"55887-0988-82 ")
 ;;770
 ;;21,"55887-0988-90 ")
 ;;771
 ;;21,"55953-0633-40 ")
 ;;675
 ;;21,"57480-0504-01 ")
 ;;80
 ;;21,"57480-0505-01 ")
 ;;132
 ;;21,"57480-0505-06 ")
 ;;133
 ;;21,"57866-3938-01 ")
 ;;269
 ;;21,"57866-4170-01 ")
 ;;81
 ;;21,"57866-4170-02 ")
 ;;82
 ;;21,"57866-4224-01 ")
 ;;134
 ;;21,"57866-4224-02 ")
 ;;135
 ;;21,"57866-4224-03 ")
 ;;136
 ;;21,"57866-4856-02 ")
 ;;772
 ;;21,"57866-4856-03 ")
 ;;773
 ;;21,"57866-4856-04 ")
 ;;774
 ;;21,"57866-4856-05 ")
 ;;775
 ;;21,"57866-4856-06 ")
 ;;776
 ;;21,"57866-4857-01 ")
 ;;593
 ;;21,"57866-4857-02 ")
 ;;777
 ;;21,"57866-4857-03 ")
 ;;778
 ;;21,"57866-4857-04 ")
 ;;779
 ;;21,"57866-7288-01 ")
 ;;386
 ;;21,"58016-0233-00 ")
 ;;676
 ;;21,"58016-0233-02 ")
 ;;677
 ;;21,"58016-0233-10 ")
 ;;678
 ;;21,"58016-0233-12 ")
 ;;679
 ;;21,"58016-0233-14 ")
 ;;680
 ;;21,"58016-0233-15 ")
 ;;681
 ;;21,"58016-0233-20 ")
 ;;682
 ;;21,"58016-0233-21 ")
 ;;683
 ;;21,"58016-0233-24 ")
 ;;684
 ;;21,"58016-0233-25 ")
 ;;685
 ;;21,"58016-0233-28 ")
 ;;686
 ;;21,"58016-0233-30 ")
 ;;687
 ;;21,"58016-0233-40 ")
 ;;688
 ;;21,"58016-0233-50 ")
 ;;689
 ;;21,"58016-0233-60 ")
 ;;690
 ;;21,"58016-0826-06 ")
 ;;137
 ;;21,"58016-0826-50 ")
 ;;138
 ;;21,"58016-0995-00 ")
 ;;594
 ;;21,"58016-0995-10 ")
 ;;595
 ;;21,"58016-0995-12 ")
 ;;596
 ;;21,"58016-0995-14 ")
 ;;597
 ;;21,"58016-0995-15 ")
 ;;598
 ;;21,"58016-0995-20 ")
 ;;599
 ;;21,"58016-0995-21 ")
 ;;600
 ;;21,"58016-0995-24 ")
 ;;601
 ;;21,"58016-0995-28 ")
 ;;602
 ;;21,"58016-0995-30 ")
 ;;603
 ;;21,"58016-0995-40 ")
 ;;604
 ;;21,"58016-0995-45 ")
 ;;605
 ;;21,"58016-0995-50 ")
 ;;780
 ;;21,"58016-0995-60 ")
 ;;606
 ;;21,"58016-0995-75 ")
 ;;607
 ;;21,"58441-0117-10 ")
 ;;468
 ;;21,"58605-0501-01 ")
 ;;608
 ;;21,"58605-0511-01 ")
 ;;292
 ;;21,"58605-0524-01 ")
 ;;293
 ;;21,"58634-0021-02 ")
 ;;490
 ;;21,"58634-0021-04 ")
 ;;491
 ;;21,"58634-0021-08 ")
 ;;492
 ;;21,"58634-0022-02 ")
 ;;387
 ;;21,"58634-0022-04 ")
 ;;388
 ;;21,"58634-0022-08 ")
 ;;389
 ;;21,"58864-0857-30 ")
 ;;781
 ;;21,"58948-0379-16 ")
 ;;493
 ;;21,"59441-0153-01 ")
 ;;782
 ;;21,"59441-0178-01 ")
 ;;609
 ;;21,"59441-0178-05 ")
 ;;610
 ;;21,"59630-0170-10 ")
 ;;611
 ;;21,"59702-0650-01 ")
 ;;294
 ;;21,"59741-0136-16 ")
 ;;54
 ;;21,"59743-0004-01 ")
 ;;612
 ;;21,"60346-0208-20 ")
 ;;380
 ;;21,"60346-0208-30 ")
 ;;381
 ;;21,"60346-0797-10 ")
 ;;451
 ;;21,"60346-0797-20 ")
 ;;452
 ;;21,"60346-0797-30 ")
 ;;453
 ;;21,"60432-0026-16 ")
 ;;55
 ;;21,"60432-0026-28 ")
 ;;56
 ;;21,"60809-0507-55 ")
 ;;139
 ;;21,"60809-0507-72 ")
 ;;140
 ;;21,"60951-0675-70 ")
 ;;270
 ;;21,"61392-0382-30 ")
 ;;83
 ;;21,"61392-0382-31 ")
 ;;84
 ;;21,"61392-0382-39 ")
 ;;85
 ;;21,"61392-0382-60 ")
 ;;86
 ;;21,"61392-0382-90 ")
 ;;87
 ;;21,"61392-0391-30 ")
 ;;141
 ;;21,"61392-0391-31 ")
 ;;142
 ;;21,"61392-0391-32 ")
 ;;143
 ;;21,"61392-0391-39 ")
 ;;144
 ;;21,"61392-0391-51 ")
 ;;145
 ;;21,"61392-0391-60 ")
 ;;146
 ;;21,"61392-0391-65 ")
 ;;147
 ;;21,"61392-0391-90 ")
 ;;148
 ;;21,"61392-0392-30 ")
 ;;215
 ;;21,"61392-0392-31 ")
 ;;216
 ;;21,"61392-0392-39 ")
 ;;217
 ;;21,"61392-0392-60 ")
 ;;218
 ;;21,"61787-0578-04 ")
 ;;390
 ;;21,"61808-0110-01 ")
 ;;613
 ;;21,"61808-0110-05 ")
 ;;783
 ;;21,"62022-0070-01 ")
 ;;295
 ;;21,"62022-0073-01 ")
 ;;296
 ;;21,"62431-0112-04 ")
 ;;494
 ;;21,"62431-0112-08 ")
 ;;495
 ;;21,"62584-0739-01 ")
 ;;382
 ;;21,"62584-0741-01 ")
 ;;454
 ;;21,"62865-0379-34 ")
 ;;474
 ;;21,"63304-0679-01 ")
 ;;210
 ;;21,"63304-0679-80 ")
 ;;211
 ;;21,"63304-0680-01 ")
 ;;271
 ;;21,"63304-0741-01 ")
 ;;88
 ;;21,"63304-0742-01 ")
 ;;149
 ;;21,"63304-0742-10 ")
 ;;150
 ;;21,"63304-0743-01 ")
 ;;172
 ;;21,"63304-0743-10 ")
 ;;173
 ;;21,"63304-0744-01 ")
 ;;192
 ;;21,"63739-0200-01 ")
 ;;97
 ;;21,"63739-0200-03 ")
 ;;98
 ;;21,"63739-0200-15 ")
 ;;99
 ;;21,"63739-0201-01 ")
 ;;226
 ;;21,"63739-0201-03 ")
 ;;227
 ;;21,"63739-0201-15 ")
 ;;228
 ;;21,"63874-0219-01 ")
 ;;784
 ;;21,"63874-0219-20 ")
 ;;785
 ;;21,"63874-0219-25 ")
 ;;786
 ;;21,"63874-0219-30 ")
 ;;787
 ;;21,"63874-0268-01 ")
 ;;788
 ;;21,"63874-0268-02 ")
 ;;789
 ;;21,"63874-0268-10 ")
 ;;790
 ;;21,"63874-0268-12 ")
 ;;791
 ;;21,"63874-0268-14 ")
 ;;792
 ;;21,"63874-0268-15 ")
 ;;793
 ;;21,"63874-0268-20 ")
 ;;794
 ;;21,"63874-0268-21 ")
 ;;795
 ;;21,"63874-0268-24 ")
 ;;796
 ;;21,"63874-0268-25 ")
 ;;797
 ;;21,"63874-0268-28 ")
 ;;798
 ;;21,"63874-0268-30 ")
 ;;799
 ;;21,"63874-0268-40 ")
 ;;800
 ;;21,"63874-0268-50 ")
 ;;801
 ;;21,"63874-0268-60 ")
 ;;802
 ;;21,"63874-0448-01 ")
 ;;614
 ;;21,"63874-0448-02 ")
 ;;615
 ;;21,"63874-0448-03 ")
 ;;803
 ;;21,"63874-0448-10 ")
 ;;804
 ;;21,"63874-0448-20 ")
 ;;616
 ;;21,"63874-0448-30 ")
 ;;617
 ;;21,"63874-0448-50 ")
 ;;805
 ;;21,"63874-0448-60 ")
 ;;806
 ;;21,"63874-0448-90 ")
 ;;807
 ;;21,"64125-0901-01 ")
 ;;151
 ;;21,"64125-0901-10 ")
 ;;152
 ;;21,"64125-0902-01 ")
 ;;174
 ;;21,"64125-0903-01 ")
 ;;193
 ;;21,"64125-0903-10 ")
 ;;194
 ;;21,"64125-0915-01 ")
 ;;89
 ;;21,"64125-0915-10 ")
 ;;90
 ;;21,"65162-0459-10 ")
 ;;808
 ;;21,"65162-0459-50 ")
 ;;809
 ;;21,"65234-0050-10 ")
 ;;297
 ;;21,"65234-0050-50 ")
 ;;810
 ;;21,"65234-0056-10 ")
 ;;298
 ;;21,"65234-0056-50 ")
 ;;811
 ;;21,"65234-0061-10 ")
 ;;272
 ;;21,"65504-0036-07 ")
 ;;391
 ;;21,"65759-0350-07 ")
 ;;392
 ;;21,"66116-0632-12 ")
 ;;475
 ;;21,"66116-0648-30 ")
 ;;812
 ;;21,"66267-0038-15 ")
 ;;273
 ;;21,"66267-0039-30 ")
 ;;618
 ;;21,"66267-0039-60 ")
 ;;619