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

BGP7LXOB.m

Go to the documentation of this file.
BGP7LXOB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 29, 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,"10019-0157-68 ")
 ;;58
 ;;21,"10019-0158-68 ")
 ;;79
 ;;21,"10019-0159-01 ")
 ;;16
 ;;21,"10019-0160-01 ")
 ;;47
 ;;21,"10019-0161-01 ")
 ;;59
 ;;21,"10019-0162-01 ")
 ;;80
 ;;21,"10122-0301-10 ")
 ;;313
 ;;21,"10267-1724-01 ")
 ;;705
 ;;21,"10267-1724-04 ")
 ;;706
 ;;21,"10877-0333-26 ")
 ;;519
 ;;21,"11026-2614-10 ")
 ;;505
 ;;21,"11735-0005-11 ")
 ;;707
 ;;21,"11735-0005-13 ")
 ;;708
 ;;21,"11845-0439-04 ")
 ;;709
 ;;21,"11845-0440-04 ")
 ;;710
 ;;21,"12280-0160-00 ")
 ;;161
 ;;21,"17022-3272-03 ")
 ;;520
 ;;21,"17022-3272-09 ")
 ;;521
 ;;21,"17022-8937-06 ")
 ;;711
 ;;21,"17236-0261-01 ")
 ;;712
 ;;21,"17236-0261-10 ")
 ;;713
 ;;21,"17236-0820-16 ")
 ;;714
 ;;21,"17236-0820-28 ")
 ;;715
 ;;21,"17236-0822-16 ")
 ;;716
 ;;21,"17236-0822-28 ")
 ;;717
 ;;21,"17236-0824-16 ")
 ;;718
 ;;21,"17236-0824-28 ")
 ;;719
 ;;21,"17236-0826-16 ")
 ;;720
 ;;21,"17236-0826-28 ")
 ;;721
 ;;21,"43797-0320-14 ")
 ;;722
 ;;21,"43797-0401-06 ")
 ;;723
 ;;21,"44514-0493-18 ")
 ;;537
 ;;21,"44514-0590-88 ")
 ;;724
 ;;21,"48695-8811-01 ")
 ;;725
 ;;21,"49999-0083-30 ")
 ;;577
 ;;21,"49999-0109-30 ")
 ;;607
 ;;21,"49999-0109-90 ")
 ;;608
 ;;21,"49999-0161-90 ")
 ;;726
 ;;21,"50580-0827-24 ")
 ;;727
 ;;21,"51079-0322-20 ")
 ;;314
 ;;21,"51079-0322-21 ")
 ;;315
 ;;21,"51079-0322-56 ")
 ;;316
 ;;21,"51079-0322-91 ")
 ;;317
 ;;21,"51079-0322-99 ")
 ;;318
 ;;21,"51079-0741-20 ")
 ;;319
 ;;21,"51079-0934-20 ")
 ;;320
 ;;21,"51079-0934-21 ")
 ;;321
 ;;21,"51079-0934-99 ")
 ;;322
 ;;21,"51285-0441-05 ")
 ;;497
 ;;21,"51285-0441-30 ")
 ;;498
 ;;21,"51285-0442-30 ")
 ;;499
 ;;21,"51285-0443-30 ")
 ;;529
 ;;21,"51285-0444-30 ")
 ;;530
 ;;21,"51432-0345-03 ")
 ;;728
 ;;21,"51432-0345-04 ")
 ;;729
 ;;21,"51432-0663-18 ")
 ;;730
 ;;21,"51432-0663-20 ")
 ;;731
 ;;21,"51432-0663-21 ")
 ;;732
 ;;21,"51432-0665-18 ")
 ;;733
 ;;21,"51432-0665-20 ")
 ;;734
 ;;21,"51432-0665-21 ")
 ;;735
 ;;21,"51432-0675-03 ")
 ;;736
 ;;21,"51432-0960-20 ")
 ;;737
 ;;21,"51432-0960-21 ")
 ;;738
 ;;21,"51641-0321-01 ")
 ;;162
 ;;21,"51641-0321-05 ")
 ;;163
 ;;21,"51641-0321-10 ")
 ;;164
 ;;21,"51641-0321-11 ")
 ;;165
 ;;21,"51641-0323-01 ")
 ;;323
 ;;21,"51641-0323-05 ")
 ;;324
 ;;21,"51641-0323-10 ")
 ;;325
 ;;21,"51641-0323-11 ")
 ;;326
 ;;21,"51655-0814-24 ")
 ;;833
 ;;21,"51655-0814-54 ")
 ;;834
 ;;21,"51655-0837-24 ")
 ;;835
 ;;21,"51655-0837-54 ")
 ;;836
 ;;21,"52152-0157-02 ")
 ;;107
 ;;21,"52152-0158-02 ")
 ;;96
 ;;21,"52152-0190-02 ")
 ;;327
 ;;21,"52152-0211-02 ")
 ;;328
 ;;21,"52152-0213-02 ")
 ;;329
 ;;21,"52544-0395-01 ")
 ;;330
 ;;21,"52544-0396-01 ")
 ;;331
 ;;21,"52544-0714-01 ")
 ;;332
 ;;21,"52544-0714-05 ")
 ;;333
 ;;21,"52544-0726-01 ")
 ;;97
 ;;21,"52544-0727-01 ")
 ;;108
 ;;21,"52544-0772-01 ")
 ;;739
 ;;21,"52544-0773-01 ")
 ;;740
 ;;21,"52555-0126-01 ")
 ;;741
 ;;21,"52555-0126-03 ")
 ;;742
 ;;21,"52555-0717-05 ")
 ;;578
 ;;21,"52959-0165-30 ")
 ;;334
 ;;21,"52959-0326-01 ")
 ;;538
 ;;21,"52959-0334-20 ")
 ;;166
 ;;21,"52959-0334-30 ")
 ;;167
 ;;21,"52959-0335-00 ")
 ;;335
 ;;21,"52959-0335-02 ")
 ;;336
 ;;21,"52959-0335-10 ")
 ;;337
 ;;21,"52959-0335-12 ")
 ;;338
 ;;21,"52959-0335-14 ")
 ;;339
 ;;21,"52959-0335-15 ")
 ;;340
 ;;21,"52959-0335-20 ")
 ;;341
 ;;21,"52959-0335-21 ")
 ;;342
 ;;21,"52959-0335-24 ")
 ;;343
 ;;21,"52959-0335-25 ")
 ;;344
 ;;21,"52959-0335-28 ")
 ;;345
 ;;21,"52959-0335-30 ")
 ;;346
 ;;21,"52959-0335-35 ")
 ;;837
 ;;21,"52959-0335-36 ")
 ;;347
 ;;21,"52959-0335-40 ")
 ;;348
 ;;21,"52959-0335-50 ")
 ;;349
 ;;21,"52959-0335-60 ")
 ;;350
 ;;21,"52959-0335-80 ")
 ;;351
 ;;21,"52959-0335-90 ")
 ;;352
 ;;21,"52959-0545-10 ")
 ;;353
 ;;21,"52959-0545-12 ")
 ;;354
 ;;21,"52959-0545-15 ")
 ;;355
 ;;21,"52959-0545-20 ")
 ;;356
 ;;21,"52959-0545-24 ")
 ;;357
 ;;21,"52959-0545-30 ")
 ;;358
 ;;21,"52959-0545-40 ")
 ;;359
 ;;21,"52959-0545-60 ")
 ;;360
 ;;21,"52959-0555-12 ")
 ;;743
 ;;21,"52959-0555-40 ")
 ;;744
 ;;21,"53020-0121-10 ")
 ;;745
 ;;21,"53020-0121-11 ")
 ;;746
 ;;21,"53020-0158-30 ")
 ;;747
 ;;21,"53265-0123-10 ")
 ;;748
 ;;21,"53265-0123-11 ")
 ;;749
 ;;21,"53265-0256-10 ")
 ;;361
 ;;21,"53265-0256-11 ")
 ;;362
 ;;21,"53265-0256-50 ")
 ;;363
 ;;21,"53265-0261-10 ")
 ;;364
 ;;21,"53265-0261-11 ")
 ;;365
 ;;21,"53265-0261-50 ")
 ;;366
 ;;21,"53809-0305-01 ")
 ;;750
 ;;21,"53978-5013-05 ")
 ;;367
 ;;21,"54274-0288-10 ")
 ;;751
 ;;21,"54274-0288-27 ")
 ;;752
 ;;21,"54274-0627-16 ")
 ;;753
 ;;21,"54274-0628-38 ")
 ;;754
 ;;21,"54348-0014-10 ")
 ;;838
 ;;21,"54348-0014-30 ")
 ;;839
 ;;21,"54348-0645-07 ")
 ;;579
 ;;21,"54348-0645-21 ")
 ;;580
 ;;21,"54348-0714-21 ")
 ;;522
 ;;21,"54348-0716-30 ")
 ;;539
 ;;21,"54348-0717-30 ")
 ;;540
 ;;21,"54348-0719-30 ")
 ;;581
 ;;21,"54348-0723-30 ")
 ;;582
 ;;21,"54569-0811-03 ")
 ;;609
 ;;21,"54569-0812-06 ")
 ;;610
 ;;21,"54569-1903-01 ")
 ;;121
 ;;21,"54569-2588-00 ")
 ;;368
 ;;21,"54569-2588-01 ")
 ;;369
 ;;21,"54569-4354-00 ")
 ;;755
 ;;21,"54569-4365-00 ")
 ;;611
 ;;21,"54569-4366-00 ")
 ;;583
 ;;21,"54569-5141-00 ")
 ;;756
 ;;21,"54569-5158-00 ")
 ;;757
 ;;21,"54569-5657-00 ")
 ;;758
 ;;21,"54868-0365-02 ")
 ;;541
 ;;21,"54868-0365-03 ")
 ;;542
 ;;21,"54868-0451-06 ")
 ;;612
 ;;21,"54868-0494-00 ")
 ;;584
 ;;21,"54868-0494-01 ")
 ;;585
 ;;21,"54868-0494-02 ")
 ;;586
 ;;21,"54868-0495-00 ")
 ;;523
 ;;21,"54868-1262-01 ")
 ;;543
 ;;21,"54868-1262-02 ")
 ;;544
 ;;21,"54868-1326-04 ")
 ;;759
 ;;21,"54868-1356-00 ")
 ;;760
 ;;21,"54868-2530-00 ")
 ;;122
 ;;21,"54868-2542-00 ")
 ;;761
 ;;21,"54868-2702-01 ")
 ;;613
 ;;21,"54868-2702-02 ")
 ;;614
 ;;21,"54868-2702-03 ")
 ;;615
 ;;21,"54868-3114-00 ")
 ;;545
 ;;21,"54868-3247-00 ")
 ;;546
 ;;21,"54868-3247-01 ")
 ;;547
 ;;21,"54868-3564-00 ")
 ;;762
 ;;21,"54868-3564-01 ")
 ;;763
 ;;21,"54868-3564-02 ")
 ;;764
 ;;21,"54868-3565-00 ")
 ;;548
 ;;21,"54868-3565-01 ")
 ;;549
 ;;21,"54868-3565-02 ")
 ;;550
 ;;21,"54868-3646-00 ")
 ;;370
 ;;21,"54868-3653-00 ")
 ;;551
 ;;21,"54868-3672-01 ")
 ;;552
 ;;21,"54868-4030-00 ")
 ;;587
 ;;21,"54868-4030-01 ")
 ;;588
 ;;21,"54868-4031-00 ")
 ;;524
 ;;21,"54868-4031-01 ")
 ;;525
 ;;21,"54868-4031-02 ")
 ;;526
 ;;21,"54868-4136-02 ")
 ;;840
 ;;21,"54868-4149-00 ")
 ;;553
 ;;21,"54868-4149-01 ")
 ;;554
 ;;21,"54868-4761-01 ")
 ;;555
 ;;21,"54868-4761-02 ")
 ;;556
 ;;21,"54868-4771-00 ")
 ;;557
 ;;21,"54868-4771-01 ")
 ;;558
 ;;21,"54868-4865-00 ")
 ;;616
 ;;21,"54868-4866-00 ")
 ;;589
 ;;21,"54868-4879-00 ")
 ;;500
 ;;21,"54868-5003-00 ")
 ;;765
 ;;21,"54868-5003-01 ")
 ;;766
 ;;21,"54868-5047-00 ")
 ;;590
 ;;21,"54979-0145-01 ")
 ;;767
 ;;21,"54979-0145-10 ")
 ;;768
 ;;21,"55045-1127-03 ")
 ;;841
 ;;21,"55045-1127-09 ")
 ;;842
 ;;21,"55045-1131-01 ")
 ;;617
 ;;21,"55045-1599-06 ")
 ;;843
 ;;21,"55045-1599-09 ")
 ;;844
 ;;21,"55045-1903-01 ")
 ;;769
 ;;21,"55045-1903-03 ")
 ;;770
 ;;21,"55045-1903-04 ")
 ;;771
 ;;21,"55045-1951-01 ")
 ;;559
 ;;21,"55045-2059-01 ")
 ;;560
 ;;21,"55045-2739-00 ")
 ;;591
 ;;21,"55045-2850-00 ")
 ;;501
 ;;21,"55045-3095-01 ")
 ;;845
 ;;21,"55045-3335-00 ")
 ;;846
 ;;21,"55045-3335-01 ")
 ;;847
 ;;21,"55175-1679-00 ")
 ;;772
 ;;21,"55175-1684-01 ")
 ;;773
 ;;21,"55175-1685-01 ")
 ;;774
 ;;21,"55175-2618-00 ")
 ;;775
 ;;21,"55175-2618-01 ")
 ;;776
 ;;21,"55175-2618-02 ")
 ;;777
 ;;21,"55175-2618-03 ")
 ;;778
 ;;21,"55175-2618-04 ")
 ;;779
 ;;21,"55175-2618-09 ")
 ;;780
 ;;21,"55175-4415-01 ")
 ;;781
 ;;21,"55175-4472-00 ")
 ;;618
 ;;21,"55175-4472-01 ")
 ;;619
 ;;21,"55175-4472-02 ")
 ;;620
 ;;21,"55175-4472-03 ")
 ;;621
 ;;21,"55175-5202-02 ")
 ;;592
 ;;21,"55175-5340-03 ")
 ;;782
 ;;21,"55175-5520-03 ")
 ;;561
 ;;21,"55175-5521-03 ")
 ;;562
 ;;21,"55289-0231-25 ")
 ;;848
 ;;21,"55289-0321-30 ")
 ;;371
 ;;21,"55289-0603-07 ")
 ;;593
 ;;21,"55289-0603-21 ")
 ;;594
 ;;21,"55289-0761-30 ")
 ;;595
 ;;21,"55289-0907-79 ")
 ;;783
 ;;21,"55289-0943-28 ")
 ;;622
 ;;21,"55829-0864-10 ")
 ;;168
 ;;21,"55829-0866-10 ")
 ;;372
 ;;21,"55887-0446-30 ")
 ;;849
 ;;21,"55887-0446-60 ")
 ;;850
 ;;21,"55887-0446-82 ")
 ;;851
 ;;21,"55887-0446-90 ")
 ;;852
 ;;21,"55887-0943-28 ")
 ;;853
 ;;21,"55953-0040-01 ")
 ;;784
 ;;21,"55953-0040-40 ")
 ;;785
 ;;21,"55953-0040-60 ")
 ;;786
 ;;21,"55953-0040-81 ")
 ;;787
 ;;21,"57480-0507-01 ")
 ;;373
 ;;21,"57664-0972-08 ")
 ;;788
 ;;21,"57866-0097-01 ")
 ;;502
 ;;21,"57866-0205-01 ")
 ;;854
 ;;21,"57866-0212-01 ")
 ;;855
 ;;21,"57866-0212-02 ")
 ;;856
 ;;21,"57866-0212-03 ")
 ;;857
 ;;21,"57866-3991-02 ")
 ;;596
 ;;21,"57866-3996-03 ")
 ;;597
 ;;21,"57866-4360-01 ")
 ;;374
 ;;21,"57866-4360-02 ")
 ;;375
 ;;21,"57866-4360-03 ")
 ;;376
 ;;21,"57866-4360-04 ")
 ;;377
 ;;21,"57866-4361-00 ")
 ;;378
 ;;21,"57866-4361-01 ")
 ;;379
 ;;21,"57866-4361-02 ")
 ;;380
 ;;21,"57866-4361-03 ")
 ;;381
 ;;21,"57866-4361-04 ")
 ;;382
 ;;21,"57866-4361-05 ")
 ;;383
 ;;21,"57866-4361-06 ")
 ;;384
 ;;21,"57866-4361-07 ")
 ;;385
 ;;21,"57866-4361-08 ")
 ;;386
 ;;21,"57866-4361-09 ")
 ;;387
 ;;21,"57866-6680-02 ")
 ;;623
 ;;21,"57866-6682-02 ")
 ;;563
 ;;21,"57866-7987-02 ")
 ;;564
 ;;21,"57866-9320-01 ")
 ;;789
 ;;21,"57866-9320-02 ")
 ;;790
 ;;21,"58016-0212-00 ")
 ;;388
 ;;21,"58016-0212-02 ")
 ;;389
 ;;21,"58016-0212-03 ")
 ;;390
 ;;21,"58016-0212-08 ")
 ;;391
 ;;21,"58016-0212-10 ")
 ;;392
 ;;21,"58016-0212-12 ")
 ;;393
 ;;21,"58016-0212-14 ")
 ;;394
 ;;21,"58016-0212-15 ")
 ;;395
 ;;21,"58016-0212-16 ")
 ;;396
 ;;21,"58016-0212-18 ")
 ;;397
 ;;21,"58016-0212-20 ")
 ;;398
 ;;21,"58016-0212-21 ")
 ;;399
 ;;21,"58016-0212-24 ")
 ;;400
 ;;21,"58016-0212-28 ")
 ;;401
 ;;21,"58016-0212-30 ")
 ;;402
 ;;21,"58016-0212-36 ")
 ;;403
 ;;21,"58016-0212-40 ")
 ;;404
 ;;21,"58016-0212-42 ")
 ;;405
 ;;21,"58016-0212-45 ")
 ;;406
 ;;21,"58016-0212-50 ")
 ;;407
 ;;21,"58016-0212-56 ")
 ;;408
 ;;21,"58016-0212-60 ")
 ;;409
 ;;21,"58016-0212-73 ")
 ;;410
 ;;21,"58016-0212-80 ")
 ;;411
 ;;21,"58016-0212-84 ")
 ;;412
 ;;21,"58016-0212-89 ")
 ;;413
 ;;21,"58016-0212-90 ")
 ;;414
 ;;21,"58016-0212-92 ")
 ;;415
 ;;21,"58016-0212-99 ")
 ;;416
 ;;21,"58016-0214-20 ")
 ;;169
 ;;21,"58016-0214-30 ")
 ;;170
 ;;21,"58016-0215-00 ")
 ;;417
 ;;21,"58016-0215-02 ")
 ;;418
 ;;21,"58016-0215-12 ")
 ;;419
 ;;21,"58016-0215-15 ")
 ;;420
 ;;21,"58016-0215-20 ")
 ;;421
 ;;21,"58016-0215-28 ")
 ;;422
 ;;21,"58016-0215-30 ")
 ;;423
 ;;21,"58016-0215-56 ")
 ;;424
 ;;21,"58016-0215-60 ")
 ;;425
 ;;21,"58016-0279-00 ")
 ;;426
 ;;21,"58016-0279-02 ")
 ;;427
 ;;21,"58016-0279-10 ")
 ;;428
 ;;21,"58016-0279-12 ")
 ;;429
 ;;21,"58016-0279-15 ")
 ;;430
 ;;21,"58016-0279-20 ")
 ;;431
 ;;21,"58016-0279-25 ")
 ;;432
 ;;21,"58016-0279-30 ")
 ;;433
 ;;21,"58016-0279-40 ")
 ;;434
 ;;21,"58016-0279-50 ")
 ;;435
 ;;21,"58016-0279-60 ")
 ;;436
 ;;21,"58016-0279-70 ")
 ;;437
 ;;21,"58016-0279-80 ")
 ;;438
 ;;21,"58016-0279-90 ")
 ;;439
 ;;21,"58016-0392-00 ")
 ;;440
 ;;21,"58016-0392-10 ")
 ;;441
 ;;21,"58016-0392-12 ")
 ;;442
 ;;21,"58016-0392-20 ")
 ;;443
 ;;21,"58016-0392-30 ")
 ;;444
 ;;21,"58016-0392-40 ")
 ;;445
 ;;21,"58016-0392-60 ")
 ;;446
 ;;21,"58016-0461-00 ")
 ;;447
 ;;21,"58016-0461-20 ")
 ;;448
 ;;21,"58016-0461-30 ")
 ;;449
 ;;21,"58016-0461-60 ")
 ;;450
 ;;21,"58016-0461-90 ")
 ;;451
 ;;21,"58173-0033-16 ")
 ;;791
 ;;21,"58173-0033-28 ")
 ;;792
 ;;21,"58173-0034-16 ")
 ;;793
 ;;21,"58173-0034-28 ")
 ;;794
 ;;21,"58177-0027-04 ")
 ;;452
 ;;21,"58729-0449-01 ")
 ;;795
 ;;21,"58729-0449-37 ")
 ;;796
 ;;21,"58864-0202-30 ")
 ;;565
 ;;21,"58864-0202-60 ")
 ;;566
 ;;21,"58864-0365-90 ")
 ;;797
 ;;21,"58864-0422-01 ")
 ;;624
 ;;21,"58864-0422-28 ")
 ;;625
 ;;21,"58864-0796-20 ")
 ;;798
 ;;21,"58864-0803-30 ")
 ;;598
 ;;21,"59743-0016-01 ")
 ;;799
 ;;21,"59743-0016-10 ")
 ;;800
 ;;21,"60346-0029-20 ")
 ;;503
 ;;21,"60346-0029-90 ")
 ;;504
 ;;21,"60346-0284-30 ")
 ;;567
 ;;21,"60346-0311-30 ")
 ;;626
 ;;21,"60346-0311-90 ")
 ;;627
 ;;21,"60346-0319-30 ")
 ;;568
 ;;21,"60346-0341-30 ")
 ;;569
 ;;21,"60346-0341-90 ")
 ;;570
 ;;21,"60346-0599-20 ")
 ;;628
 ;;21,"60346-0599-30 ")
 ;;629
 ;;21,"60346-0599-90 ")
 ;;630
 ;;21,"60346-0752-20 ")
 ;;599
 ;;21,"60346-0803-10 ")
 ;;801
 ;;21,"60346-0803-20 ")
 ;;802
 ;;21,"60346-0845-30 ")
 ;;810
 ;;21,"60346-0847-30 ")
 ;;571
 ;;21,"60346-0847-90 ")
 ;;572
 ;;21,"60346-0849-90 ")
 ;;527
 ;;21,"60346-0852-90 ")
 ;;803
 ;;21,"60346-0859-07 ")
 ;;573
 ;;21,"60429-0138-90 ")
 ;;804
 ;;21,"60429-0139-90 ")
 ;;811
 ;;21,"60429-0518-30 ")
 ;;453
 ;;21,"60429-0518-60 ")
 ;;454
 ;;21,"60540-0704-01 ")
 ;;805