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

BGP7LXKB.m

Go to the documentation of this file.
BGP7LXKB ; 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,"12939-0775-16 ")
 ;;176
 ;;21,"14615-8943-03 ")
 ;;770
 ;;21,"15127-0002-08 ")
 ;;771
 ;;21,"15127-0014-09 ")
 ;;532
 ;;21,"15127-0034-01 ")
 ;;772
 ;;21,"15127-0205-36 ")
 ;;533
 ;;21,"17022-3808-06 ")
 ;;773
 ;;21,"17022-3829-06 ")
 ;;854
 ;;21,"17236-0336-01 ")
 ;;700
 ;;21,"17236-0516-24 ")
 ;;774
 ;;21,"17236-0775-16 ")
 ;;646
 ;;21,"17236-0775-28 ")
 ;;647
 ;;21,"17236-0775-44 ")
 ;;648
 ;;21,"17236-0905-01 ")
 ;;534
 ;;21,"17236-0905-10 ")
 ;;535
 ;;21,"17317-0042-01 ")
 ;;181
 ;;21,"17317-0042-04 ")
 ;;182
 ;;21,"17317-0044-01 ")
 ;;183
 ;;21,"17317-0044-04 ")
 ;;184
 ;;21,"19458-9054-01 ")
 ;;775
 ;;21,"19458-9891-01 ")
 ;;776
 ;;21,"24385-0333-26 ")
 ;;713
 ;;21,"25077-0481-09 ")
 ;;536
 ;;21,"25077-4810-09 ")
 ;;537
 ;;21,"30142-0479-68 ")
 ;;538
 ;;21,"34575-0098-97 ")
 ;;777
 ;;21,"34575-0599-36 ")
 ;;539
 ;;21,"35515-0945-76 ")
 ;;540
 ;;21,"35515-0945-77 ")
 ;;541
 ;;21,"35515-0945-79 ")
 ;;778
 ;;21,"35515-0951-04 ")
 ;;779
 ;;21,"36800-0332-43 ")
 ;;542
 ;;21,"37097-0479-62 ")
 ;;543
 ;;21,"37097-0479-78 ")
 ;;544
 ;;21,"38130-0046-01 ")
 ;;353
 ;;21,"38130-0046-10 ")
 ;;354
 ;;21,"38130-0048-10 ")
 ;;355
 ;;21,"38726-0462-62 ")
 ;;780
 ;;21,"38726-0479-78 ")
 ;;545
 ;;21,"38779-1022-08 ")
 ;;859
 ;;21,"41163-0251-00 ")
 ;;546
 ;;21,"41163-0251-02 ")
 ;;781
 ;;21,"41163-0251-78 ")
 ;;547
 ;;21,"41163-0255-49 ")
 ;;782
 ;;21,"41163-0462-78 ")
 ;;783
 ;;21,"41163-0479-62 ")
 ;;548
 ;;21,"41163-0479-78 ")
 ;;549
 ;;21,"41163-0814-62 ")
 ;;784
 ;;21,"41240-0462-62 ")
 ;;785
 ;;21,"41280-0200-94 ")
 ;;550
 ;;21,"41280-0212-87 ")
 ;;551
 ;;21,"41280-0221-98 ")
 ;;552
 ;;21,"43292-0557-05 ")
 ;;786
 ;;21,"43702-0809-12 ")
 ;;553
 ;;21,"44514-0057-12 ")
 ;;554
 ;;21,"44514-0997-00 ")
 ;;787
 ;;21,"45985-0646-01 ")
 ;;356
 ;;21,"47202-2630-01 ")
 ;;855
 ;;21,"47202-2630-03 ")
 ;;856
 ;;21,"47682-0182-64 ")
 ;;788
 ;;21,"47682-0182-83 ")
 ;;789
 ;;21,"47682-0847-64 ")
 ;;555
 ;;21,"47682-0847-95 ")
 ;;556
 ;;21,"48135-0037-90 ")
 ;;790
 ;;21,"48135-9315-30 ")
 ;;557
 ;;21,"49137-0142-24 ")
 ;;791
 ;;21,"49137-0841-24 ")
 ;;792
 ;;21,"49260-0502-19 ")
 ;;618
 ;;21,"49260-5014-05 ")
 ;;619
 ;;21,"49260-5021-09 ")
 ;;620
 ;;21,"49348-0044-07 ")
 ;;793
 ;;21,"49348-0068-04 ")
 ;;794
 ;;21,"49452-0136-02 ")
 ;;185
 ;;21,"49452-0900-01 ")
 ;;186
 ;;21,"49614-0333-26 ")
 ;;714
 ;;21,"49727-0049-05 ")
 ;;795
 ;;21,"49727-0050-05 ")
 ;;857
 ;;21,"49727-0266-02 ")
 ;;357
 ;;21,"49727-0266-05 ")
 ;;358
 ;;21,"49884-0771-01 ")
 ;;359
 ;;21,"49884-0771-10 ")
 ;;360
 ;;21,"49999-0003-00 ")
 ;;796
 ;;21,"49999-0003-06 ")
 ;;797
 ;;21,"49999-0003-15 ")
 ;;798
 ;;21,"49999-0003-20 ")
 ;;799
 ;;21,"49999-0003-21 ")
 ;;800
 ;;21,"49999-0003-24 ")
 ;;801
 ;;21,"49999-0003-30 ")
 ;;802
 ;;21,"49999-0003-40 ")
 ;;803
 ;;21,"49999-0003-60 ")
 ;;804
 ;;21,"50313-0026-09 ")
 ;;805
 ;;21,"50428-1188-44 ")
 ;;641
 ;;21,"50428-1597-28 ")
 ;;621
 ;;21,"50428-2788-69 ")
 ;;622
 ;;21,"50428-2788-70 ")
 ;;623
 ;;21,"50428-3104-52 ")
 ;;716
 ;;21,"50428-3216-20 ")
 ;;717
 ;;21,"50428-6617-36 ")
 ;;806
 ;;21,"50580-0512-24 ")
 ;;667
 ;;21,"50580-0512-48 ")
 ;;668
 ;;21,"50844-0107-12 ")
 ;;807
 ;;21,"50844-0107-16 ")
 ;;808
 ;;21,"50844-0190-08 ")
 ;;809
 ;;21,"50844-0190-12 ")
 ;;810
 ;;21,"50844-0190-16 ")
 ;;811
 ;;21,"50844-0191-08 ")
 ;;669
 ;;21,"50844-0191-12 ")
 ;;670
 ;;21,"51079-0065-20 ")
 ;;812
 ;;21,"51079-0065-98 ")
 ;;813
 ;;21,"51079-0067-19 ")
 ;;361
 ;;21,"51079-0067-20 ")
 ;;362
 ;;21,"51079-0862-01 ")
 ;;671
 ;;21,"51079-0967-01 ")
 ;;672
 ;;21,"51079-0967-17 ")
 ;;673
 ;;21,"51285-0907-05 ")
 ;;363
 ;;21,"51285-0932-05 ")
 ;;105
 ;;21,"51285-0933-05 ")
 ;;160
 ;;21,"51285-0935-05 ")
 ;;78
 ;;21,"51285-0937-02 ")
 ;;161
 ;;21,"51285-0938-02 ")
 ;;144
 ;;21,"51432-0154-03 ")
 ;;814
 ;;21,"51432-0154-06 ")
 ;;815
 ;;21,"51432-0568-18 ")
 ;;642
 ;;21,"51432-0568-19 ")
 ;;643
 ;;21,"51432-0568-20 ")
 ;;644
 ;;21,"51432-0568-21 ")
 ;;715
 ;;21,"51655-0119-52 ")
 ;;364
 ;;21,"51655-0295-21 ")
 ;;860
 ;;21,"51655-0295-24 ")
 ;;861
 ;;21,"51991-0027-01 ")
 ;;365
 ;;21,"51991-0045-01 ")
 ;;366
 ;;21,"51991-0075-12 ")
 ;;367
 ;;21,"51991-0130-01 ")
 ;;106
 ;;21,"51991-0135-01 ")
 ;;60
 ;;21,"51991-0171-01 ")
 ;;194
 ;;21,"51991-0251-33 ")
 ;;368
 ;;21,"52041-0017-15 ")
 ;;162
 ;;21,"52041-0043-33 ")
 ;;369
 ;;21,"52041-0044-15 ")
 ;;370
 ;;21,"52152-0115-02 ")
 ;;371
 ;;21,"52152-0115-05 ")
 ;;372
 ;;21,"52152-0143-02 ")
 ;;107
 ;;21,"52152-0155-02 ")
 ;;79
 ;;21,"52152-0156-02 ")
 ;;163
 ;;21,"52152-0163-02 ")
 ;;145
 ;;21,"52297-0948-10 ")
 ;;816
 ;;21,"52316-0122-12 ")
 ;;373
 ;;21,"52349-0240-10 ")
 ;;108
 ;;21,"52544-0799-01 ")
 ;;674
 ;;21,"52569-0128-83 ")
 ;;817
 ;;21,"52569-0137-24 ")
 ;;818
 ;;21,"52569-1307-10 ")
 ;;649
 ;;21,"52765-2251-00 ")
 ;;650
 ;;21,"52959-0023-06 ")
 ;;374
 ;;21,"52959-0023-20 ")
 ;;375
 ;;21,"52959-0023-30 ")
 ;;376
 ;;21,"52959-0023-50 ")
 ;;377
 ;;21,"52959-0023-60 ")
 ;;378
 ;;21,"52959-0043-00 ")
 ;;651
 ;;21,"52959-0043-24 ")
 ;;652
 ;;21,"52959-0274-03 ")
 ;;379
 ;;21,"53014-0024-10 ")
 ;;380
 ;;21,"53014-0024-50 ")
 ;;381
 ;;21,"53265-0237-10 ")
 ;;382
 ;;21,"53265-0237-11 ")
 ;;383
 ;;21,"53633-0045-01 ")
 ;;701
 ;;21,"53723-2624-01 ")
 ;;653
 ;;21,"53723-2624-03 ")
 ;;654
 ;;21,"54104-0032-07 ")
 ;;655
 ;;21,"54104-0032-10 ")
 ;;656
 ;;21,"54198-0146-15 ")
 ;;127
 ;;21,"54198-0147-16 ")
 ;;177
 ;;21,"54243-0005-10 ")
 ;;384
 ;;21,"54274-0684-50 ")
 ;;629
 ;;21,"54274-0932-05 ")
 ;;630
 ;;21,"54274-0995-05 ")
 ;;675
 ;;21,"54348-0588-08 ")
 ;;862
 ;;21,"54348-0588-10 ")
 ;;863
 ;;21,"54348-0588-30 ")
 ;;864
 ;;21,"54569-0192-01 ")
 ;;385
 ;;21,"54569-0192-02 ")
 ;;386
 ;;21,"54569-0239-00 ")
 ;;631
 ;;21,"54569-0239-01 ")
 ;;632
 ;;21,"54569-0239-02 ")
 ;;633
 ;;21,"54569-0239-03 ")
 ;;634
 ;;21,"54569-0239-04 ")
 ;;635
 ;;21,"54569-0239-05 ")
 ;;636
 ;;21,"54569-0239-06 ")
 ;;637
 ;;21,"54569-0239-07 ")
 ;;638
 ;;21,"54569-0239-08 ")
 ;;639
 ;;21,"54569-0367-00 ")
 ;;191
 ;;21,"54569-0426-00 ")
 ;;387
 ;;21,"54569-0427-01 ")
 ;;388
 ;;21,"54569-0427-02 ")
 ;;389
 ;;21,"54569-0427-04 ")
 ;;390
 ;;21,"54569-0427-05 ")
 ;;391
 ;;21,"54569-0427-08 ")
 ;;392
 ;;21,"54569-0427-09 ")
 ;;393
 ;;21,"54569-0428-00 ")
 ;;109
 ;;21,"54569-2192-00 ")
 ;;33
 ;;21,"54569-2236-00 ")
 ;;22
 ;;21,"54569-3251-00 ")
 ;;394
 ;;21,"54569-3496-00 ")
 ;;146
 ;;21,"54569-3504-00 ")
 ;;640
 ;;21,"54569-3504-01 ")
 ;;499
 ;;21,"54569-3504-04 ")
 ;;576
 ;;21,"54569-3588-00 ")
 ;;23
 ;;21,"54569-3763-02 ")
 ;;110
 ;;21,"54569-3947-00 ")
 ;;34
 ;;21,"54569-4217-00 ")
 ;;577
 ;;21,"54738-0115-14 ")
 ;;578
 ;;21,"54807-0125-16 ")
 ;;395
 ;;21,"54807-0126-01 ")
 ;;396
 ;;21,"54838-0506-15 ")
 ;;128
 ;;21,"54838-0511-80 ")
 ;;178
 ;;21,"54859-0600-01 ")
 ;;865
 ;;21,"54868-0006-00 ")
 ;;24
 ;;21,"54868-0031-04 ")
 ;;397
 ;;21,"54868-0740-00 ")
 ;;35
 ;;21,"54868-0740-01 ")
 ;;36
 ;;21,"54868-1555-02 ")
 ;;111
 ;;21,"54868-1767-00 ")
 ;;80
 ;;21,"54868-2087-00 ")
 ;;398
 ;;21,"54868-2209-00 ")
 ;;112
 ;;21,"54868-2209-02 ")
 ;;113
 ;;21,"54868-2209-03 ")
 ;;114
 ;;21,"54868-2803-01 ")
 ;;192
 ;;21,"54868-3116-00 ")
 ;;866
 ;;21,"54868-3215-01 ")
 ;;147
 ;;21,"54868-3451-00 ")
 ;;115
 ;;21,"54868-3893-00 ")
 ;;50
 ;;21,"55045-1125-04 ")
 ;;579
 ;;21,"55045-1125-06 ")
 ;;580
 ;;21,"55045-1125-08 ")
 ;;581
 ;;21,"55053-0111-01 ")
 ;;61
 ;;21,"55053-0124-01 ")
 ;;399
 ;;21,"55053-0170-01 ")
 ;;81
 ;;21,"55053-0310-01 ")
 ;;164
 ;;21,"55053-0380-15 ")
 ;;129
 ;;21,"55053-0717-01 ")
 ;;82
 ;;21,"55175-2527-02 ")
 ;;702
 ;;21,"55175-3890-00 ")
 ;;582
 ;;21,"55175-3890-01 ")
 ;;583
 ;;21,"55175-3890-02 ")
 ;;584
 ;;21,"55175-3890-03 ")
 ;;585
 ;;21,"55175-3890-04 ")
 ;;586
 ;;21,"55175-3890-05 ")
 ;;587
 ;;21,"55289-0035-01 ")
 ;;400
 ;;21,"55289-0035-14 ")
 ;;401
 ;;21,"55289-0035-20 ")
 ;;402
 ;;21,"55289-0035-30 ")
 ;;403
 ;;21,"55289-0035-60 ")
 ;;404
 ;;21,"55289-0035-97 ")
 ;;405
 ;;21,"55289-0586-04 ")
 ;;406
 ;;21,"55289-0586-08 ")
 ;;407
 ;;21,"55887-0483-10 ")
 ;;867
 ;;21,"55887-0483-20 ")
 ;;868
 ;;21,"55887-0483-21 ")
 ;;869
 ;;21,"55887-0483-30 ")
 ;;870
 ;;21,"55887-0483-40 ")
 ;;871
 ;;21,"55887-0530-30 ")
 ;;872
 ;;21,"57779-0101-04 ")
 ;;116
 ;;21,"57866-0231-01 ")
 ;;588
 ;;21,"57866-3594-02 ")
 ;;589
 ;;21,"57866-3594-03 ")
 ;;590
 ;;21,"57866-3594-06 ")
 ;;591
 ;;21,"57866-3763-01 ")
 ;;408
 ;;21,"57866-3764-01 ")
 ;;409
 ;;21,"57866-9028-01 ")
 ;;62
 ;;21,"58016-0159-50 ")
 ;;410
 ;;21,"58016-0499-24 ")
 ;;411
 ;;21,"58016-0499-48 ")
 ;;412
 ;;21,"58016-0679-20 ")
 ;;413
 ;;21,"58016-0700-24 ")
 ;;414
 ;;21,"58016-0709-00 ")
 ;;415
 ;;21,"58016-0709-02 ")
 ;;416
 ;;21,"58016-0709-03 ")
 ;;417
 ;;21,"58016-0709-20 ")
 ;;418
 ;;21,"58016-0709-30 ")
 ;;419
 ;;21,"58016-0709-40 ")
 ;;420
 ;;21,"58016-0709-42 ")
 ;;421
 ;;21,"58016-0709-50 ")
 ;;422
 ;;21,"58016-0709-73 ")
 ;;423
 ;;21,"58016-0709-89 ")
 ;;424
 ;;21,"58016-0713-00 ")
 ;;425
 ;;21,"58016-0713-06 ")
 ;;426
 ;;21,"58016-0713-10 ")
 ;;427
 ;;21,"58016-0713-12 ")
 ;;428
 ;;21,"58016-0713-14 ")
 ;;429
 ;;21,"58016-0713-15 ")
 ;;430
 ;;21,"58016-0713-16 ")
 ;;431
 ;;21,"58016-0713-20 ")
 ;;432
 ;;21,"58016-0713-21 ")
 ;;433
 ;;21,"58016-0713-24 ")
 ;;434
 ;;21,"58016-0713-28 ")
 ;;435
 ;;21,"58016-0713-30 ")
 ;;436
 ;;21,"58016-0713-40 ")
 ;;437
 ;;21,"58016-0713-60 ")
 ;;438
 ;;21,"58177-0017-04 ")
 ;;148
 ;;21,"58177-0237-04 ")
 ;;165
 ;;21,"58177-0255-04 ")
 ;;83
 ;;21,"58177-0274-04 ")
 ;;117
 ;;21,"58177-0423-04 ")
 ;;84
 ;;21,"58407-0370-01 ")
 ;;439
 ;;21,"58521-0162-05 ")
 ;;440
 ;;21,"58634-0020-02 ")
 ;;707
 ;;21,"58634-0020-04 ")
 ;;708
 ;;21,"58634-0020-08 ")
 ;;709
 ;;21,"58634-0023-02 ")
 ;;710
 ;;21,"58634-0023-04 ")
 ;;711
 ;;21,"58634-0023-08 ")
 ;;712
 ;;21,"58659-3312-03 ")
 ;;676
 ;;21,"58743-0555-12 ")
 ;;441
 ;;21,"58743-0787-90 ")
 ;;442
 ;;21,"58864-0162-56 ")
 ;;592
 ;;21,"59243-0005-10 ")
 ;;443
 ;;21,"59741-0315-12 ")
 ;;444
 ;;21,"59743-0026-01 ")
 ;;118
 ;;21,"59743-0027-10 ")
 ;;445
 ;;21,"59743-0028-16 ")
 ;;446
 ;;21,"59879-0109-01 ")
 ;;149
 ;;21,"59879-0110-01 ")
 ;;447
 ;;21,"59879-0114-01 ")
 ;;166
 ;;21,"59879-0121-01 ")
 ;;448
 ;;21,"60104-4013-02 ")
 ;;677
 ;;21,"60104-4013-08 ")
 ;;678
 ;;21,"60242-0200-01 ")
 ;;679
 ;;21,"60242-0200-10 ")
 ;;680
 ;;21,"60242-0200-24 ")
 ;;681
 ;;21,"60258-0449-01 ")
 ;;449
 ;;21,"60258-0512-01 ")
 ;;450
 ;;21,"60258-0513-03 ")
 ;;451
 ;;21,"60258-0515-01 ")
 ;;452
 ;;21,"60258-0516-01 ")
 ;;453
 ;;21,"60258-0801-16 ")
 ;;130
 ;;21,"60258-0802-15 ")
 ;;131
 ;;21,"60258-0804-01 ")
 ;;454
 ;;21,"60258-0822-16 ")
 ;;455
 ;;21,"60258-0822-28 ")
 ;;456
 ;;21,"60267-0301-00 ")
 ;;179
 ;;21,"60267-0742-30 ")
 ;;53
 ;;21,"60346-0589-06 ")
 ;;593
 ;;21,"60346-0589-10 ")
 ;;594
 ;;21,"60346-0589-12 ")
 ;;595
 ;;21,"60346-0589-15 ")
 ;;596
 ;;21,"60346-0589-20 ")
 ;;597
 ;;21,"60346-0589-30 ")
 ;;598
 ;;21,"60346-0589-40 ")
 ;;599
 ;;21,"60346-0589-60 ")
 ;;600
 ;;21,"60432-0009-04 ")
 ;;457
 ;;21,"60432-0009-16 ")
 ;;458
 ;;21,"60432-0009-28 ")
 ;;459
 ;;21,"60432-0103-15 ")
 ;;132
 ;;21,"60575-0177-19 ")
 ;;460
 ;;21,"60575-0790-19 ")
 ;;461
 ;;21,"60760-0754-30 ")
 ;;462
 ;;21,"61355-0002-10 ")
 ;;119
 ;;21,"61355-0003-10 ")
 ;;85
 ;;21,"61355-0004-10 ")
 ;;63
 ;;21,"61451-2183-01 ")
 ;;463
 ;;21,"61451-2225-01 ")
 ;;64
 ;;21,"61451-2260-01 ")
 ;;150
 ;;21,"61451-5015-07 ")
 ;;464
 ;;21,"61451-5016-07 ")
 ;;465
 ;;21,"61646-0155-01 ")
 ;;167
 ;;21,"61646-0156-01 ")
 ;;86
 ;;21,"61808-0810-01 ")
 ;;682
 ;;21,"61808-0810-10 ")
 ;;683
 ;;21,"61808-0810-24 ")
 ;;684
 ;;21,"61808-0811-01 ")
 ;;601
 ;;21,"61808-0811-10 ")
 ;;602
 ;;21,"61808-0811-24 ")
 ;;603
 ;;21,"62174-0405-07 ")
 ;;37
 ;;21,"62174-0408-07 ")
 ;;51
 ;;21,"62175-0101-01 ")
 ;;120
 ;;21,"62175-0102-01 ")
 ;;87
 ;;21,"62175-0103-01 ")
 ;;151
 ;;21,"62175-0104-16 ")
 ;;133
 ;;21,"62175-0105-15 ")
 ;;134
 ;;21,"62175-0108-01 ")
 ;;168
 ;;21,"62584-0675-01 ")
 ;;604
 ;;21,"62584-0675-33 ")
 ;;605
 ;;21,"62865-0462-62 ")
 ;;606
 ;;21,"62865-0462-78 ")
 ;;607
 ;;21,"62865-0479-62 ")
 ;;685
 ;;21,"62865-0722-68 ")
 ;;608
 ;;21,"62865-0768-22 ")
 ;;609
 ;;21,"63323-0234-01 ")
 ;;38
 ;;21,"63323-0234-20 ")
 ;;39
 ;;21,"63323-0243-01 ")
 ;;41
 ;;21,"63323-0246-01 ")
 ;;52
 ;;21,"63323-0268-01 ")
 ;;56
 ;;21,"63323-0268-25 ")
 ;;57
 ;;21,"63323-0270-01 ")
 ;;59
 ;;21,"63717-0512-01 ")
 ;;466
 ;;21,"63717-0810-01 ")
 ;;54
 ;;21,"63717-0840-01 ")
 ;;180