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

BGP7GXOB.m

Go to the documentation of this file.
BGP7GXOB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 25, 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,"49348-0074-03 ")
 ;;793
 ;;21,"49348-0074-06 ")
 ;;794
 ;;21,"49348-0471-04 ")
 ;;506
 ;;21,"49483-0021-01 ")
 ;;307
 ;;21,"49483-0021-10 ")
 ;;308
 ;;21,"49483-0022-01 ")
 ;;335
 ;;21,"49483-0022-10 ")
 ;;336
 ;;21,"49483-0023-01 ")
 ;;370
 ;;21,"49483-0023-10 ")
 ;;371
 ;;21,"49483-0038-01 ")
 ;;391
 ;;21,"49483-0038-10 ")
 ;;392
 ;;21,"49614-0132-62 ")
 ;;507
 ;;21,"49614-0143-56 ")
 ;;795
 ;;21,"49614-0146-62 ")
 ;;508
 ;;21,"49727-0417-02 ")
 ;;843
 ;;21,"49727-0417-04 ")
 ;;844
 ;;21,"49727-0418-02 ")
 ;;638
 ;;21,"49727-0418-04 ")
 ;;639
 ;;21,"49727-0750-10 ")
 ;;253
 ;;21,"49727-0752-10 ")
 ;;287
 ;;21,"49727-0762-10 ")
 ;;268
 ;;21,"49999-0034-01 ")
 ;;683
 ;;21,"49999-0034-07 ")
 ;;768
 ;;21,"49999-0034-12 ")
 ;;769
 ;;21,"49999-0034-15 ")
 ;;764
 ;;21,"49999-0034-20 ")
 ;;765
 ;;21,"49999-0034-21 ")
 ;;766
 ;;21,"49999-0034-30 ")
 ;;767
 ;;21,"49999-0048-30 ")
 ;;712
 ;;21,"49999-0065-12 ")
 ;;640
 ;;21,"50428-1557-56 ")
 ;;509
 ;;21,"50428-2096-50 ")
 ;;510
 ;;21,"50428-2325-67 ")
 ;;511
 ;;21,"50428-3037-19 ")
 ;;512
 ;;21,"50428-8641-99 ")
 ;;796
 ;;21,"50580-0843-10 ")
 ;;494
 ;;21,"50580-0843-13 ")
 ;;495
 ;;21,"50580-0843-24 ")
 ;;496
 ;;21,"50580-0843-25 ")
 ;;497
 ;;21,"50580-0843-48 ")
 ;;498
 ;;21,"50580-0843-72 ")
 ;;499
 ;;21,"50732-0600-01 ")
 ;;393
 ;;21,"50732-0600-10 ")
 ;;394
 ;;21,"50732-0685-01 ")
 ;;309
 ;;21,"50732-0685-10 ")
 ;;310
 ;;21,"50732-0686-01 ")
 ;;337
 ;;21,"50732-0686-10 ")
 ;;338
 ;;21,"50732-0687-01 ")
 ;;372
 ;;21,"50732-0687-10 ")
 ;;373
 ;;21,"50844-0189-12 ")
 ;;500
 ;;21,"50844-0189-15 ")
 ;;501
 ;;21,"50844-0189-23 ")
 ;;502
 ;;21,"50844-0233-23 ")
 ;;474
 ;;21,"51079-0092-19 ")
 ;;641
 ;;21,"51079-0584-20 ")
 ;;176
 ;;21,"51079-0585-20 ")
 ;;83
 ;;21,"51432-0185-03 ")
 ;;586
 ;;21,"51432-0185-05 ")
 ;;587
 ;;21,"51432-0187-03 ")
 ;;609
 ;;21,"51432-0187-05 ")
 ;;610
 ;;21,"51432-0276-03 ")
 ;;713
 ;;21,"51432-0276-05 ")
 ;;714
 ;;21,"51432-0278-03 ")
 ;;642
 ;;21,"51432-0278-05 ")
 ;;643
 ;;21,"51479-0029-06 ")
 ;;50
 ;;21,"51479-0029-47 ")
 ;;51
 ;;21,"51655-0141-25 ")
 ;;644
 ;;21,"51655-0576-27 ")
 ;;715
 ;;21,"51655-0576-30 ")
 ;;716
 ;;21,"51655-0825-24 ")
 ;;562
 ;;21,"51655-0842-24 ")
 ;;611
 ;;21,"51655-0842-25 ")
 ;;612
 ;;21,"52544-0469-60 ")
 ;;408
 ;;21,"52544-0470-30 ")
 ;;413
 ;;21,"52555-0303-01 ")
 ;;563
 ;;21,"52555-0304-01 ")
 ;;613
 ;;21,"52569-0001-22 ")
 ;;475
 ;;21,"52735-0713-04 ")
 ;;476
 ;;21,"52735-0926-05 ")
 ;;477
 ;;21,"52959-0099-90 ")
 ;;645
 ;;21,"52959-0143-00 ")
 ;;291
 ;;21,"52959-0146-00 ")
 ;;311
 ;;21,"52959-0167-10 ")
 ;;717
 ;;21,"52959-0236-14 ")
 ;;614
 ;;21,"52959-0236-15 ")
 ;;615
 ;;21,"52959-0236-20 ")
 ;;616
 ;;21,"52959-0404-14 ")
 ;;228
 ;;21,"52959-0405-14 ")
 ;;84
 ;;21,"52959-0405-20 ")
 ;;85
 ;;21,"52959-0405-21 ")
 ;;86
 ;;21,"52959-0406-30 ")
 ;;177
 ;;21,"53191-0289-01 ")
 ;;423
 ;;21,"53191-0289-10 ")
 ;;424
 ;;21,"53191-0290-01 ")
 ;;425
 ;;21,"53191-0290-10 ")
 ;;426
 ;;21,"53191-0291-01 ")
 ;;429
 ;;21,"53191-0291-10 ")
 ;;430
 ;;21,"53191-0292-01 ")
 ;;431
 ;;21,"53191-0292-10 ")
 ;;432
 ;;21,"53191-0293-01 ")
 ;;433
 ;;21,"53191-0293-10 ")
 ;;434
 ;;21,"53191-0294-01 ")
 ;;439
 ;;21,"53191-0294-10 ")
 ;;440
 ;;21,"53191-0296-01 ")
 ;;435
 ;;21,"53191-0296-10 ")
 ;;436
 ;;21,"53191-0297-01 ")
 ;;437
 ;;21,"53191-0297-10 ")
 ;;438
 ;;21,"53191-0298-01 ")
 ;;427
 ;;21,"53191-0298-10 ")
 ;;428
 ;;21,"53445-0572-01 ")
 ;;718
 ;;21,"53445-0573-01 ")
 ;;646
 ;;21,"53723-2903-01 ")
 ;;478
 ;;21,"54257-0714-14 ")
 ;;479
 ;;21,"54257-0714-17 ")
 ;;480
 ;;21,"54257-0765-15 ")
 ;;456
 ;;21,"54274-0026-10 ")
 ;;647
 ;;21,"54274-0026-30 ")
 ;;648
 ;;21,"54274-0064-10 ")
 ;;719
 ;;21,"54274-0064-30 ")
 ;;720
 ;;21,"54274-0406-10 ")
 ;;564
 ;;21,"54274-0406-30 ")
 ;;565
 ;;21,"54274-0407-10 ")
 ;;617
 ;;21,"54274-0407-30 ")
 ;;803
 ;;21,"54396-0110-60 ")
 ;;441
 ;;21,"54396-0111-11 ")
 ;;47
 ;;21,"54396-0328-16 ")
 ;;276
 ;;21,"54396-0328-40 ")
 ;;277
 ;;21,"54499-0258-16 ")
 ;;481
 ;;21,"54569-0181-00 ")
 ;;178
 ;;21,"54569-0181-01 ")
 ;;179
 ;;21,"54569-0181-02 ")
 ;;180
 ;;21,"54569-0181-04 ")
 ;;181
 ;;21,"54569-0841-00 ")
 ;;39
 ;;21,"54569-0843-04 ")
 ;;649
 ;;21,"54569-0898-00 ")
 ;;805
 ;;21,"54569-0898-02 ")
 ;;806
 ;;21,"54569-0898-04 ")
 ;;807
 ;;21,"54569-0917-00 ")
 ;;312
 ;;21,"54569-0918-00 ")
 ;;339
 ;;21,"54569-0919-00 ")
 ;;374
 ;;21,"54569-0920-00 ")
 ;;395
 ;;21,"54569-1969-00 ")
 ;;87
 ;;21,"54569-1969-01 ")
 ;;88
 ;;21,"54569-1969-02 ")
 ;;89
 ;;21,"54569-2205-00 ")
 ;;260
 ;;21,"54569-2363-00 ")
 ;;288
 ;;21,"54569-2376-06 ")
 ;;566
 ;;21,"54569-3028-00 ")
 ;;3
 ;;21,"54569-3179-03 ")
 ;;344
 ;;21,"54569-3179-04 ")
 ;;345
 ;;21,"54569-3180-00 ")
 ;;377
 ;;21,"54569-3180-01 ")
 ;;378
 ;;21,"54569-3180-02 ")
 ;;375
 ;;21,"54569-3180-05 ")
 ;;379
 ;;21,"54569-3181-01 ")
 ;;396
 ;;21,"54569-3544-00 ")
 ;;229
 ;;21,"54569-3544-01 ")
 ;;230
 ;;21,"54569-3544-02 ")
 ;;231
 ;;21,"54569-3544-03 ")
 ;;232
 ;;21,"54569-3544-04 ")
 ;;233
 ;;21,"54569-4048-03 ")
 ;;650
 ;;21,"54569-4048-04 ")
 ;;651
 ;;21,"54569-4471-00 ")
 ;;353
 ;;21,"54569-4614-02 ")
 ;;721
 ;;21,"54569-4929-00 ")
 ;;313
 ;;21,"54569-5086-01 ")
 ;;652
 ;;21,"54569-5339-00 ")
 ;;418
 ;;21,"54569-8585-00 ")
 ;;376
 ;;21,"54738-0136-01 ")
 ;;722
 ;;21,"54738-0136-02 ")
 ;;723
 ;;21,"54738-0137-01 ")
 ;;653
 ;;21,"54738-0137-02 ")
 ;;654
 ;;21,"54868-0044-02 ")
 ;;514
 ;;21,"54868-0044-04 ")
 ;;515
 ;;21,"54868-0092-01 ")
 ;;567
 ;;21,"54868-0092-02 ")
 ;;568
 ;;21,"54868-0092-03 ")
 ;;569
 ;;21,"54868-0093-00 ")
 ;;808
 ;;21,"54868-0093-01 ")
 ;;809
 ;;21,"54868-0107-06 ")
 ;;182
 ;;21,"54868-0429-03 ")
 ;;183
 ;;21,"54868-0473-00 ")
 ;;90
 ;;21,"54868-0473-01 ")
 ;;91
 ;;21,"54868-0473-02 ")
 ;;92
 ;;21,"54868-0586-07 ")
 ;;724
 ;;21,"54868-0604-00 ")
 ;;725
 ;;21,"54868-0675-01 ")
 ;;810
 ;;21,"54868-1103-01 ")
 ;;684
 ;;21,"54868-1103-02 ")
 ;;685
 ;;21,"54868-1253-00 ")
 ;;340
 ;;21,"54868-2366-00 ")
 ;;234
 ;;21,"54868-2366-01 ")
 ;;235
 ;;21,"54868-3704-00 ")
 ;;409
 ;;21,"54868-4792-00 ")
 ;;419
 ;;21,"54868-4810-00 ")
 ;;420
 ;;21,"55045-1454-09 ")
 ;;516
 ;;21,"55045-1531-06 ")
 ;;726
 ;;21,"55056-3060-01 ")
 ;;442
 ;;21,"55175-0807-00 ")
 ;;570
 ;;21,"55175-0807-05 ")
 ;;571
 ;;21,"55175-1311-08 ")
 ;;686
 ;;21,"55175-3993-01 ")
 ;;727
 ;;21,"55175-3993-02 ")
 ;;728
 ;;21,"55175-3993-03 ")
 ;;729
 ;;21,"55175-3993-04 ")
 ;;730
 ;;21,"55175-3993-05 ")
 ;;731
 ;;21,"55175-3993-06 ")
 ;;732
 ;;21,"55175-3994-00 ")
 ;;687
 ;;21,"55175-3994-01 ")
 ;;688
 ;;21,"55175-3994-02 ")
 ;;689
 ;;21,"55175-3994-03 ")
 ;;690
 ;;21,"55175-3994-04 ")
 ;;691
 ;;21,"55175-3994-05 ")
 ;;692
 ;;21,"55175-3994-08 ")
 ;;693
 ;;21,"55175-4445-09 ")
 ;;517
 ;;21,"55289-0031-06 ")
 ;;236
 ;;21,"55289-0031-10 ")
 ;;237
 ;;21,"55289-0031-14 ")
 ;;238
 ;;21,"55289-0031-20 ")
 ;;239
 ;;21,"55289-0038-30 ")
 ;;811
 ;;21,"55289-0179-12 ")
 ;;184
 ;;21,"55289-0179-28 ")
 ;;185
 ;;21,"55289-0179-40 ")
 ;;186
 ;;21,"55289-0186-12 ")
 ;;187
 ;;21,"55289-0186-14 ")
 ;;188
 ;;21,"55289-0186-20 ")
 ;;189
 ;;21,"55289-0186-21 ")
 ;;190
 ;;21,"55289-0186-28 ")
 ;;191
 ;;21,"55289-0186-40 ")
 ;;192
 ;;21,"55289-0203-12 ")
 ;;93
 ;;21,"55289-0203-14 ")
 ;;94
 ;;21,"55289-0203-20 ")
 ;;95
 ;;21,"55289-0203-28 ")
 ;;96
 ;;21,"55289-0203-30 ")
 ;;97
 ;;21,"55289-0203-40 ")
 ;;98
 ;;21,"55289-0261-30 ")
 ;;346
 ;;21,"55289-0261-90 ")
 ;;347
 ;;21,"55289-0262-90 ")
 ;;380
 ;;21,"55289-0914-12 ")
 ;;99
 ;;21,"55289-0914-14 ")
 ;;100
 ;;21,"55289-0914-15 ")
 ;;101
 ;;21,"55289-0914-28 ")
 ;;102
 ;;21,"55289-0914-30 ")
 ;;103
 ;;21,"55289-0914-40 ")
 ;;104
 ;;21,"55829-0361-10 ")
 ;;733
 ;;21,"55887-0860-60 ")
 ;;694
 ;;21,"55887-0860-82 ")
 ;;695
 ;;21,"55887-0860-90 ")
 ;;696
 ;;21,"55887-0907-90 ")
 ;;734
 ;;21,"56062-0406-73 ")
 ;;482
 ;;21,"57480-0325-06 ")
 ;;518
 ;;21,"57480-0510-01 ")
 ;;572
 ;;21,"57480-0510-06 ")
 ;;573
 ;;21,"57480-0511-01 ")
 ;;812
 ;;21,"57480-0511-06 ")
 ;;813
 ;;21,"57480-0816-06 ")
 ;;193
 ;;21,"57480-0817-01 ")
 ;;105
 ;;21,"57480-0817-06 ")
 ;;106
 ;;21,"57801-0312-22 ")
 ;;574
 ;;21,"57801-0313-22 ")
 ;;814
 ;;21,"57866-4026-01 ")
 ;;735
 ;;21,"57866-4026-05 ")
 ;;736
 ;;21,"57866-4027-08 ")
 ;;697
 ;;21,"57866-6590-03 ")
 ;;107
 ;;21,"57866-6590-04 ")
 ;;108
 ;;21,"58016-0141-00 ")
 ;;109
 ;;21,"58016-0141-10 ")
 ;;110
 ;;21,"58016-0141-12 ")
 ;;111
 ;;21,"58016-0141-14 ")
 ;;112
 ;;21,"58016-0141-15 ")
 ;;113
 ;;21,"58016-0141-20 ")
 ;;114
 ;;21,"58016-0141-21 ")
 ;;115
 ;;21,"58016-0141-24 ")
 ;;116
 ;;21,"58016-0141-28 ")
 ;;117
 ;;21,"58016-0141-30 ")
 ;;118
 ;;21,"58016-0142-00 ")
 ;;194
 ;;21,"58016-0142-10 ")
 ;;195
 ;;21,"58016-0142-12 ")
 ;;196
 ;;21,"58016-0142-14 ")
 ;;197
 ;;21,"58016-0142-15 ")
 ;;198
 ;;21,"58016-0142-20 ")
 ;;199
 ;;21,"58016-0142-24 ")
 ;;200
 ;;21,"58016-0142-28 ")
 ;;201
 ;;21,"58016-0142-30 ")
 ;;202
 ;;21,"58016-0142-40 ")
 ;;203
 ;;21,"58016-0556-00 ")
 ;;519
 ;;21,"58016-0556-12 ")
 ;;520
 ;;21,"58016-0556-15 ")
 ;;521
 ;;21,"58016-0556-20 ")
 ;;522
 ;;21,"58016-0556-30 ")
 ;;523
 ;;21,"58016-0811-00 ")
 ;;590
 ;;21,"58016-0811-12 ")
 ;;591
 ;;21,"58016-0811-20 ")
 ;;592
 ;;21,"58016-0886-00 ")
 ;;240
 ;;21,"58016-0886-20 ")
 ;;241
 ;;21,"58016-0886-30 ")
 ;;242
 ;;21,"58016-0886-60 ")
 ;;243
 ;;21,"58016-0886-90 ")
 ;;244
 ;;21,"58016-0937-00 ")
 ;;348
 ;;21,"58016-0967-00 ")
 ;;25
 ;;21,"58016-0967-30 ")
 ;;26
 ;;21,"58016-0967-60 ")
 ;;27
 ;;21,"58016-0967-90 ")
 ;;28
 ;;21,"58659-3316-02 ")
 ;;464
 ;;21,"58864-0043-56 ")
 ;;737
 ;;21,"58864-0043-60 ")
 ;;738
 ;;21,"58864-0043-90 ")
 ;;739
 ;;21,"58864-0212-30 ")
 ;;593
 ;;21,"58864-0213-30 ")
 ;;815
 ;;21,"58864-0323-14 ")
 ;;245
 ;;21,"58864-0339-20 ")
 ;;740
 ;;21,"58864-0339-40 ")
 ;;741
 ;;21,"58864-0340-20 ")
 ;;698
 ;;21,"58864-0652-30 ")
 ;;699
 ;;21,"58948-0024-73 ")
 ;;797
 ;;21,"59606-0275-03 ")
 ;;483
 ;;21,"59606-0279-09 ")
 ;;798
 ;;21,"59618-0555-18 ")
 ;;742
 ;;21,"59630-0450-16 ")
 ;;52
 ;;21,"60104-6036-02 ")
 ;;743
 ;;21,"60104-6036-06 ")
 ;;744
 ;;21,"60104-6038-02 ")
 ;;700
 ;;21,"60104-6038-06 ")
 ;;701
 ;;21,"60346-0063-15 ")
 ;;702
 ;;21,"60346-0063-20 ")
 ;;703
 ;;21,"60346-0063-24 ")
 ;;704
 ;;21,"60346-0063-28 ")
 ;;705
 ;;21,"60346-0063-30 ")
 ;;706
 ;;21,"60346-0063-40 ")
 ;;707
 ;;21,"60346-0063-60 ")
 ;;655
 ;;21,"60346-0080-12 ")
 ;;745
 ;;21,"60346-0080-15 ")
 ;;746
 ;;21,"60346-0080-20 ")
 ;;747
 ;;21,"60346-0080-30 ")
 ;;748
 ;;21,"60346-0080-40 ")
 ;;749
 ;;21,"60346-0239-30 ")
 ;;594
 ;;21,"60346-0762-03 ")
 ;;816
 ;;21,"60346-0762-12 ")
 ;;817
 ;;21,"60346-0762-30 ")
 ;;818
 ;;21,"60346-0790-90 ")
 ;;524
 ;;21,"60429-0118-12 ")
 ;;750
 ;;21,"60429-0118-18 ")
 ;;751
 ;;21,"61392-0168-30 ")
 ;;119
 ;;21,"61392-0168-31 ")
 ;;120
 ;;21,"61392-0168-32 ")
 ;;121
 ;;21,"61392-0168-39 ")
 ;;122
 ;;21,"61392-0168-45 ")
 ;;123
 ;;21,"61392-0168-51 ")
 ;;124
 ;;21,"61392-0168-54 ")
 ;;125
 ;;21,"61392-0168-60 ")
 ;;126
 ;;21,"61392-0168-90 ")
 ;;127
 ;;21,"61392-0168-91 ")
 ;;128
 ;;21,"61392-0169-30 ")
 ;;204
 ;;21,"61392-0169-31 ")
 ;;205
 ;;21,"61392-0169-32 ")
 ;;206
 ;;21,"61392-0169-39 ")
 ;;207
 ;;21,"61392-0169-45 ")
 ;;208
 ;;21,"61392-0169-51 ")
 ;;209
 ;;21,"61392-0169-54 ")
 ;;210
 ;;21,"61392-0169-60 ")
 ;;211
 ;;21,"61392-0169-90 ")
 ;;212
 ;;21,"61392-0169-91 ")
 ;;213
 ;;21,"61392-0238-30 ")
 ;;595
 ;;21,"61392-0238-31 ")
 ;;596
 ;;21,"61392-0238-32 ")
 ;;597
 ;;21,"61392-0238-39 ")
 ;;598
 ;;21,"61392-0238-45 ")
 ;;599
 ;;21,"61392-0238-51 ")
 ;;600
 ;;21,"61392-0238-54 ")
 ;;601
 ;;21,"61392-0238-56 ")
 ;;602
 ;;21,"61392-0238-60 ")
 ;;603
 ;;21,"61392-0238-90 ")
 ;;559
 ;;21,"61392-0238-91 ")
 ;;560
 ;;21,"61392-0241-30 ")
 ;;819
 ;;21,"61392-0241-31 ")
 ;;820
 ;;21,"61392-0241-32 ")
 ;;821
 ;;21,"61392-0241-39 ")
 ;;822
 ;;21,"61392-0241-45 ")
 ;;823
 ;;21,"61392-0241-51 ")
 ;;824
 ;;21,"61392-0241-54 ")
 ;;825
 ;;21,"61392-0241-56 ")
 ;;826
 ;;21,"61392-0241-60 ")
 ;;827
 ;;21,"61392-0241-90 ")
 ;;828
 ;;21,"61392-0241-91 ")
 ;;829
 ;;21,"62109-9133-02 ")
 ;;410
 ;;21,"62109-9134-02 ")
 ;;414
 ;;21,"62584-0371-01 ")
 ;;525
 ;;21,"62584-0371-33 ")
 ;;526
 ;;21,"62584-0705-01 ")
 ;;561
 ;;21,"62584-0706-01 ")
 ;;830
 ;;21,"62584-0808-01 ")
 ;;129
 ;;21,"63304-0518-01 ")
 ;;246
 ;;21,"63739-0087-01 ")
 ;;527
 ;;21,"63739-0087-02 ")
 ;;528
 ;;21,"63739-0087-03 ")
 ;;529
 ;;21,"63739-0187-01 ")
 ;;214
 ;;21,"63739-0187-03 ")
 ;;215