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

BGP62Y7.m

Go to the documentation of this file.
  1. BGP62Y7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
  1. ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"23490-5322-02 ")
  1. ;;4200
  1. ;;21,"23490-5322-03 ")
  1. ;;4201
  1. ;;21,"23490-5322-04 ")
  1. ;;4202
  1. ;;21,"23490-5323-01 ")
  1. ;;4405
  1. ;;21,"23490-5323-02 ")
  1. ;;4406
  1. ;;21,"23490-5323-03 ")
  1. ;;4407
  1. ;;21,"23490-5323-04 ")
  1. ;;4408
  1. ;;21,"23490-5323-05 ")
  1. ;;4409
  1. ;;21,"23490-5323-06 ")
  1. ;;4410
  1. ;;21,"23490-5323-07 ")
  1. ;;4411
  1. ;;21,"23490-5323-08 ")
  1. ;;4412
  1. ;;21,"23490-5324-00 ")
  1. ;;4701
  1. ;;21,"23490-5324-01 ")
  1. ;;4702
  1. ;;21,"23490-5324-02 ")
  1. ;;4703
  1. ;;21,"23490-5324-03 ")
  1. ;;4704
  1. ;;21,"23490-5329-01 ")
  1. ;;2893
  1. ;;21,"23490-5330-05 ")
  1. ;;2924
  1. ;;21,"23490-5331-01 ")
  1. ;;2959
  1. ;;21,"23490-5331-02 ")
  1. ;;2960
  1. ;;21,"23490-5331-04 ")
  1. ;;2961
  1. ;;21,"23490-5332-00 ")
  1. ;;2243
  1. ;;21,"23490-5332-01 ")
  1. ;;2244
  1. ;;21,"23490-5332-02 ")
  1. ;;2245
  1. ;;21,"23490-5332-03 ")
  1. ;;2246
  1. ;;21,"23490-5332-04 ")
  1. ;;2247
  1. ;;21,"23490-5332-05 ")
  1. ;;2248
  1. ;;21,"23490-5332-06 ")
  1. ;;2249
  1. ;;21,"23490-5332-07 ")
  1. ;;2250
  1. ;;21,"23490-5332-08 ")
  1. ;;2251
  1. ;;21,"23490-5333-01 ")
  1. ;;2435
  1. ;;21,"23490-5333-03 ")
  1. ;;2436
  1. ;;21,"23490-5333-04 ")
  1. ;;2437
  1. ;;21,"23490-5425-01 ")
  1. ;;3912
  1. ;;21,"23490-5425-02 ")
  1. ;;3913
  1. ;;21,"23490-5426-01 ")
  1. ;;3985
  1. ;;21,"23490-5426-02 ")
  1. ;;3986
  1. ;;21,"23490-5426-03 ")
  1. ;;3987
  1. ;;21,"23490-5483-01 ")
  1. ;;5975
  1. ;;21,"23490-5483-02 ")
  1. ;;5976
  1. ;;21,"23490-5483-03 ")
  1. ;;5977
  1. ;;21,"23490-5483-04 ")
  1. ;;5978
  1. ;;21,"23490-5483-05 ")
  1. ;;5979
  1. ;;21,"23490-5483-06 ")
  1. ;;5980
  1. ;;21,"23490-5483-07 ")
  1. ;;5981
  1. ;;21,"23490-5483-08 ")
  1. ;;5982
  1. ;;21,"23490-5485-01 ")
  1. ;;6151
  1. ;;21,"23490-5485-02 ")
  1. ;;6152
  1. ;;21,"23490-5485-03 ")
  1. ;;6153
  1. ;;21,"23490-5485-04 ")
  1. ;;6154
  1. ;;21,"23490-5485-05 ")
  1. ;;6155
  1. ;;21,"23490-5485-06 ")
  1. ;;6156
  1. ;;21,"23490-5503-01 ")
  1. ;;3060
  1. ;;21,"23490-5503-02 ")
  1. ;;3061
  1. ;;21,"23490-5505-01 ")
  1. ;;3125
  1. ;;21,"23490-5505-02 ")
  1. ;;3126
  1. ;;21,"23490-5505-03 ")
  1. ;;3127
  1. ;;21,"23490-5505-04 ")
  1. ;;3128
  1. ;;21,"23490-5512-01 ")
  1. ;;3272
  1. ;;21,"23490-5512-02 ")
  1. ;;3273
  1. ;;21,"23490-5513-01 ")
  1. ;;3304
  1. ;;21,"23490-5513-02 ")
  1. ;;3305
  1. ;;21,"23490-5513-03 ")
  1. ;;3306
  1. ;;21,"23490-5513-04 ")
  1. ;;3307
  1. ;;21,"23490-5513-05 ")
  1. ;;3308
  1. ;;21,"23490-5522-02 ")
  1. ;;3391
  1. ;;21,"23490-5523-01 ")
  1. ;;3424
  1. ;;21,"23490-5523-02 ")
  1. ;;3425
  1. ;;21,"23490-5523-03 ")
  1. ;;3426
  1. ;;21,"23490-5526-01 ")
  1. ;;3551
  1. ;;21,"23490-5526-02 ")
  1. ;;3552
  1. ;;21,"23490-6067-07 ")
  1. ;;3606
  1. ;;21,"23490-6068-01 ")
  1. ;;3625
  1. ;;21,"23490-6068-02 ")
  1. ;;3626
  1. ;;21,"23490-6068-03 ")
  1. ;;3627
  1. ;;21,"23490-6068-04 ")
  1. ;;3628
  1. ;;21,"23490-6068-05 ")
  1. ;;3629
  1. ;;21,"23490-6069-07 ")
  1. ;;3725
  1. ;;21,"23490-6070-01 ")
  1. ;;3779
  1. ;;21,"23490-6070-02 ")
  1. ;;3780
  1. ;;21,"23490-6070-03 ")
  1. ;;3781
  1. ;;21,"23490-6070-04 ")
  1. ;;3782
  1. ;;21,"23490-6070-05 ")
  1. ;;3783
  1. ;;21,"23490-6070-06 ")
  1. ;;3784
  1. ;;21,"23490-6352-00 ")
  1. ;;6604
  1. ;;21,"23490-6352-01 ")
  1. ;;6605
  1. ;;21,"23490-6352-02 ")
  1. ;;6606
  1. ;;21,"23490-6352-03 ")
  1. ;;6607
  1. ;;21,"23490-6352-04 ")
  1. ;;6608
  1. ;;21,"23490-6352-05 ")
  1. ;;6609
  1. ;;21,"23490-6352-06 ")
  1. ;;6610
  1. ;;21,"23490-6352-07 ")
  1. ;;6611
  1. ;;21,"23490-6352-08 ")
  1. ;;6612
  1. ;;21,"23490-6353-01 ")
  1. ;;6688
  1. ;;21,"23490-6353-02 ")
  1. ;;6689
  1. ;;21,"23490-6353-03 ")
  1. ;;6690
  1. ;;21,"23490-6353-04 ")
  1. ;;6691
  1. ;;21,"23490-6353-05 ")
  1. ;;6692
  1. ;;21,"23490-6353-07 ")
  1. ;;6693
  1. ;;21,"23490-6448-00 ")
  1. ;;5681
  1. ;;21,"23490-6448-01 ")
  1. ;;5682
  1. ;;21,"23490-6448-02 ")
  1. ;;5683
  1. ;;21,"23490-6448-03 ")
  1. ;;5684
  1. ;;21,"23490-6448-04 ")
  1. ;;5685
  1. ;;21,"23490-6448-05 ")
  1. ;;5686
  1. ;;21,"23490-6448-06 ")
  1. ;;5687
  1. ;;21,"23490-6448-07 ")
  1. ;;5688
  1. ;;21,"23490-6448-08 ")
  1. ;;5689
  1. ;;21,"23490-6448-09 ")
  1. ;;5690
  1. ;;21,"23490-6449-01 ")
  1. ;;5538
  1. ;;21,"23490-6449-02 ")
  1. ;;5539
  1. ;;21,"23490-6449-03 ")
  1. ;;5540
  1. ;;21,"23490-6449-04 ")
  1. ;;5541
  1. ;;21,"23490-6449-05 ")
  1. ;;5542
  1. ;;21,"23490-6904-01 ")
  1. ;;2556
  1. ;;21,"23490-6905-00 ")
  1. ;;2588
  1. ;;21,"23490-6905-01 ")
  1. ;;2589
  1. ;;21,"23490-6905-02 ")
  1. ;;2590
  1. ;;21,"23490-6940-00 ")
  1. ;;1229
  1. ;;21,"23490-6940-01 ")
  1. ;;1230
  1. ;;21,"23490-6940-02 ")
  1. ;;1231
  1. ;;21,"23490-6940-03 ")
  1. ;;1232
  1. ;;21,"23490-6977-01 ")
  1. ;;931
  1. ;;21,"23490-6979-00 ")
  1. ;;946
  1. ;;21,"23490-6979-01 ")
  1. ;;947
  1. ;;21,"23490-7012-00 ")
  1. ;;5235
  1. ;;21,"23490-7032-02 ")
  1. ;;4871
  1. ;;21,"23490-7075-08 ")
  1. ;;5447
  1. ;;21,"23490-7220-03 ")
  1. ;;708
  1. ;;21,"23490-7311-01 ")
  1. ;;149
  1. ;;21,"23490-7312-01 ")
  1. ;;437
  1. ;;21,"23490-7585-01 ")
  1. ;;1188
  1. ;;21,"23490-7585-02 ")
  1. ;;1189
  1. ;;21,"23490-7585-03 ")
  1. ;;1190
  1. ;;21,"23490-7664-01 ")
  1. ;;4666
  1. ;;21,"23490-7758-01 ")
  1. ;;2789
  1. ;;21,"23490-7760-01 ")
  1. ;;2657
  1. ;;21,"23490-7760-02 ")
  1. ;;2658
  1. ;;21,"23490-7843-01 ")
  1. ;;1873
  1. ;;21,"23490-7843-02 ")
  1. ;;1874
  1. ;;21,"23490-7843-07 ")
  1. ;;1875
  1. ;;21,"23490-7950-00 ")
  1. ;;730
  1. ;;21,"23490-7950-02 ")
  1. ;;731
  1. ;;21,"23490-7961-01 ")
  1. ;;1026
  1. ;;21,"23490-7961-02 ")
  1. ;;1027
  1. ;;21,"23490-7961-03 ")
  1. ;;1028
  1. ;;21,"23490-9260-00 ")
  1. ;;4872
  1. ;;21,"23490-9260-01 ")
  1. ;;4873
  1. ;;21,"23490-9260-03 ")
  1. ;;4874
  1. ;;21,"23490-9260-05 ")
  1. ;;4875
  1. ;;21,"23490-9367-01 ")
  1. ;;5586
  1. ;;21,"23490-9367-02 ")
  1. ;;5587
  1. ;;21,"24200-0602-04 ")
  1. ;;1354
  1. ;;21,"24200-0603-69 ")
  1. ;;1358
  1. ;;21,"24200-0604-04 ")
  1. ;;1386
  1. ;;21,"24200-0605-50 ")
  1. ;;1329
  1. ;;21,"24200-0605-60 ")
  1. ;;1330
  1. ;;21,"24200-0630-03 ")
  1. ;;2195
  1. ;;21,"24200-0631-03 ")
  1. ;;2203
  1. ;;21,"24236-0167-02 ")
  1. ;;2252
  1. ;;21,"24236-0167-05 ")
  1. ;;2253
  1. ;;21,"24236-0167-24 ")
  1. ;;2254
  1. ;;21,"24236-0167-28 ")
  1. ;;2255
  1. ;;21,"24236-0707-05 ")
  1. ;;2256
  1. ;;21,"24338-0100-13 ")
  1. ;;3427
  1. ;;21,"24338-0102-13 ")
  1. ;;3129
  1. ;;21,"24338-0104-13 ")
  1. ;;3309
  1. ;;21,"24338-0106-20 ")
  1. ;;3515
  1. ;;21,"24338-0110-13 ")
  1. ;;3428
  1. ;;21,"24338-0112-60 ")
  1. ;;3252
  1. ;;21,"24338-0114-13 ")
  1. ;;3360
  1. ;;21,"24338-0120-13 ")
  1. ;;3062
  1. ;;21,"24338-0122-13 ")
  1. ;;3090
  1. ;;21,"24338-0124-13 ")
  1. ;;3185
  1. ;;21,"24338-0126-13 ")
  1. ;;3274
  1. ;;21,"24338-0130-13 ")
  1. ;;3490
  1. ;;21,"24338-0132-13 ")
  1. ;;3371
  1. ;;21,"24338-0134-02 ")
  1. ;;3372
  1. ;;21,"24338-0136-10 ")
  1. ;;3373
  1. ;;21,"24486-0801-20 ")
  1. ;;7036
  1. ;;21,"24486-0802-20 ")
  1. ;;7040
  1. ;;21,"24658-0220-05 ")
  1. ;;6157
  1. ;;21,"24658-0220-20 ")
  1. ;;6158
  1. ;;21,"24658-0225-20 ")
  1. ;;5983
  1. ;;21,"24658-0250-01 ")
  1. ;;4413
  1. ;;21,"24658-0250-05 ")
  1. ;;4414
  1. ;;21,"24658-0250-11 ")
  1. ;;4415
  1. ;;21,"24658-0250-20 ")
  1. ;;4416
  1. ;;21,"24658-0250-60 ")
  1. ;;4417
  1. ;;21,"24658-0312-01 ")
  1. ;;6159
  1. ;;21,"24658-0312-05 ")
  1. ;;6160
  1. ;;21,"24658-0312-20 ")
  1. ;;6161
  1. ;;21,"24658-0312-50 ")
  1. ;;6162
  1. ;;21,"24987-0352-10 ")
  1. ;;5107
  1. ;;21,"24987-0352-20 ")
  1. ;;5108
  1. ;;21,"24987-0352-30 ")
  1. ;;5109
  1. ;;21,"24987-0354-10 ")
  1. ;;5070
  1. ;;21,"24987-0354-20 ")
  1. ;;5071
  1. ;;21,"24987-0354-30 ")
  1. ;;5072
  1. ;;21,"24987-0400-00 ")
  1. ;;5090
  1. ;;21,"24987-0425-00 ")
  1. ;;5119
  1. ;;21,"24987-0436-00 ")
  1. ;;5110
  1. ;;21,"24987-0437-00 ")
  1. ;;5073
  1. ;;21,"25020-1115-06 ")
  1. ;;2170
  1. ;;21,"25021-0100-10 ")
  1. ;;1375
  1. ;;21,"25021-0101-10 ")
  1. ;;1315
  1. ;;21,"25021-0102-99 ")
  1. ;;1346
  1. ;;21,"25021-0103-99 ")
  1. ;;1360
  1. ;;21,"25021-0104-10 ")
  1. ;;6878
  1. ;;21,"25021-0105-10 ")
  1. ;;6917
  1. ;;21,"25021-0106-10 ")
  1. ;;6795
  1. ;;21,"25021-0107-20 ")
  1. ;;6847
  1. ;;21,"25021-0108-99 ")
  1. ;;6827
  1. ;;21,"25021-0112-10 ")
  1. ;;2531
  1. ;;21,"25021-0114-82 ")
  1. ;;4080
  1. ;;21,"25021-0114-87 ")
  1. ;;4093
  1. ;;21,"25021-0115-02 ")
  1. ;;2171
  1. ;;21,"25021-0115-04 ")
  1. ;;2172
  1. ;;21,"25021-0115-06 ")
  1. ;;2173
  1. ;;21,"25021-0115-51 ")
  1. ;;2174
  1. ;;21,"25021-0118-10 ")
  1. ;;5111
  1. ;;21,"25021-0119-20 ")
  1. ;;5074
  1. ;;21,"25021-0120-59 ")
  1. ;;5091
  1. ;;21,"25021-0130-20 ")
  1. ;;4101
  1. ;;21,"25021-0130-30 ")
  1. ;;4102
  1. ;;21,"25021-0132-66 ")
  1. ;;4114
  1. ;;21,"25021-0132-67 ")
  1. ;;4126
  1. ;;21,"25021-0132-81 ")
  1. ;;4115
  1. ;;21,"25021-0132-82 ")
  1. ;;4127
  1. ;;21,"25021-0132-83 ")
  1. ;;4138
  1. ;;21,"25021-0134-10 ")
  1. ;;61
  1. ;;21,"25021-0135-10 ")
  1. ;;74
  1. ;;21,"25021-0136-10 ")
  1. ;;13
  1. ;;21,"25021-0137-20 ")
  1. ;;50
  1. ;;21,"25021-0138-99 ")
  1. ;;28
  1. ;;21,"25021-0154-20 ")
  1. ;;3579
  1. ;;21,"25021-0825-81 ")
  1. ;;4116
  1. ;;21,"25021-0825-82 ")
  1. ;;4128
  1. ;;21,"25021-0825-83 ")
  1. ;;4139
  1. ;;21,"26637-0221-50 ")
  1. ;;204
  1. ;;21,"27437-0201-08 ")
  1. ;;7063
  1. ;;21,"27437-0203-11 ")
  1. ;;7042
  1. ;;21,"27437-0205-10 ")
  1. ;;7053
  1. ;;21,"27437-0205-11 ")
  1. ;;7054
  1. ;;21,"27437-0206-02 ")
  1. ;;7055
  1. ;;21,"27437-0206-03 ")
  1. ;;7056
  1. ;;21,"27437-0207-02 ")
  1. ;;7065
  1. ;;21,"27437-0207-03 ")
  1. ;;7066
  1. ;;21,"27437-0208-08 ")
  1. ;;7061
  1. ;;21,"27437-0208-11 ")
  1. ;;7062
  1. ;;21,"33261-0020-07 ")
  1. ;;1876
  1. ;;21,"33261-0020-10 ")
  1. ;;1877
  1. ;;21,"33261-0020-14 ")
  1. ;;1878
  1. ;;21,"33261-0020-20 ")
  1. ;;1879
  1. ;;21,"33261-0020-21 ")
  1. ;;1880
  1. ;;21,"33261-0020-28 ")
  1. ;;1881
  1. ;;21,"33261-0020-30 ")
  1. ;;1882
  1. ;;21,"33261-0020-40 ")
  1. ;;1883
  1. ;;21,"33261-0020-42 ")
  1. ;;1884
  1. ;;21,"33261-0020-48 ")
  1. ;;1885
  1. ;;21,"33261-0020-60 ")
  1. ;;1886
  1. ;;21,"33261-0111-01 ")
  1. ;;1233
  1. ;;21,"33261-0112-01 ")
  1. ;;1083
  1. ;;21,"33261-0137-10 ")
  1. ;;524
  1. ;;21,"33261-0137-12 ")
  1. ;;525
  1. ;;21,"33261-0137-14 ")
  1. ;;526
  1. ;;21,"33261-0137-20 ")
  1. ;;527
  1. ;;21,"33261-0137-21 ")
  1. ;;528
  1. ;;21,"33261-0137-28 ")
  1. ;;529
  1. ;;21,"33261-0137-30 ")
  1. ;;530
  1. ;;21,"33261-0137-40 ")
  1. ;;531
  1. ;;21,"33261-0137-60 ")
  1. ;;532
  1. ;;21,"33261-0137-84 ")
  1. ;;533
  1. ;;21,"33261-0168-07 ")
  1. ;;5199
  1. ;;21,"33261-0168-14 ")
  1. ;;5200
  1. ;;21,"33261-0168-21 ")
  1. ;;5201
  1. ;;21,"33261-0168-28 ")
  1. ;;5202
  1. ;;21,"33261-0168-30 ")
  1. ;;5203
  1. ;;21,"33261-0168-60 ")
  1. ;;5204
  1. ;;21,"33261-0396-30 ")
  1. ;;5588
  1. ;;21,"33342-0021-08 ")
  1. ;;4797
  1. ;;21,"33342-0022-08 ")
  1. ;;4876
  1. ;;21,"33342-0023-32 ")
  1. ;;4970
  1. ;;21,"33358-0025-10 ")
  1. ;;205
  1. ;;21,"33358-0025-20 ")
  1. ;;206
  1. ;;21,"33358-0025-30 ")
  1. ;;207
  1. ;;21,"33358-0026-30 ")
  1. ;;321
  1. ;;21,"33358-0026-45 ")
  1. ;;322
  1. ;;21,"33358-0026-64 ")
  1. ;;323
  1. ;;21,"33358-0026-84 ")
  1. ;;324
  1. ;;21,"33358-0028-00 ")
  1. ;;534
  1. ;;21,"33358-0028-10 ")
  1. ;;535
  1. ;;21,"33358-0028-16 ")
  1. ;;536
  1. ;;21,"33358-0028-20 ")
  1. ;;537
  1. ;;21,"33358-0028-21 ")
  1. ;;538
  1. ;;21,"33358-0028-30 ")
  1. ;;539
  1. ;;21,"33358-0028-40 ")
  1. ;;540
  1. ;;21,"33358-0028-45 ")
  1. ;;541
  1. ;;21,"33358-0028-60 ")
  1. ;;542
  1. ;;21,"33358-0029-20 ")
  1. ;;732
  1. ;;21,"33358-0030-20 ")
  1. ;;1084
  1. ;;21,"33358-0031-20 ")
  1. ;;1234
  1. ;;21,"33358-0032-20 ")
  1. ;;788
  1. ;;21,"33358-0032-28 ")
  1. ;;789
  1. ;;21,"33358-0032-30 ")
  1. ;;790
  1. ;;21,"33358-0032-40 ")
  1. ;;791
  1. ;;21,"33358-0033-20 ")
  1. ;;850
  1. ;;21,"33358-0033-30 ")
  1. ;;851
  1. ;;21,"33358-0033-40 ")
  1. ;;852
  1. ;;21,"33358-0040-06 ")
  1. ;;2659
  1. ;;21,"33358-0041-10 ")
  1. ;;2790
  1. ;;21,"33358-0065-20 ")
  1. ;;5139
  1. ;;21,"33358-0065-30 ")
  1. ;;5140
  1. ;;21,"33358-0066-20 ")
  1. ;;5205
  1. ;;21,"33358-0066-30 ")
  1. ;;5206
  1. ;;21,"33358-0067-14 ")
  1. ;;1448
  1. ;;21,"33358-0067-28 ")
  1. ;;1449
  1. ;;21,"33358-0068-20 ")
  1. ;;7086
  1. ;;21,"33358-0071-15 ")
  1. ;;1614
  1. ;;21,"33358-0071-20 ")
  1. ;;1615
  1. ;;21,"33358-0071-28 ")
  1. ;;1616
  1. ;;21,"33358-0071-40 ")
  1. ;;1617
  1. ;;21,"33358-0071-60 ")
  1. ;;1618
  1. ;;21,"33358-0072-14 ")
  1. ;;1887
  1. ;;21,"33358-0072-15 ")
  1. ;;1888
  1. ;;21,"33358-0072-20 ")
  1. ;;1889
  1. ;;21,"33358-0072-21 ")
  1. ;;1890
  1. ;;21,"33358-0072-28 ")
  1. ;;1891
  1. ;;21,"33358-0072-30 ")
  1. ;;1892
  1. ;;21,"33358-0072-40 ")
  1. ;;1893
  1. ;;21,"33358-0072-60 ")
  1. ;;1894
  1. ;;21,"33358-0080-01 ")
  1. ;;4145
  1. ;;21,"33358-0080-06 ")
  1. ;;4146
  1. ;;21,"33358-0081-01 ")
  1. ;;4418
  1. ;;21,"33358-0081-06 ")
  1. ;;4419
  1. ;;21,"33358-0081-10 ")
  1. ;;4420