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

BGP7IXLE.m

Go to the documentation of this file.
BGP7IXLE ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 11, 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,"53002-1026-03 ")
 ;;340
 ;;21,"53002-1026-05 ")
 ;;341
 ;;21,"53002-1026-06 ")
 ;;342
 ;;21,"53002-1038-00 ")
 ;;1103
 ;;21,"53002-1038-02 ")
 ;;1104
 ;;21,"53002-1038-03 ")
 ;;1105
 ;;21,"53002-1038-05 ")
 ;;1106
 ;;21,"53002-1038-06 ")
 ;;1107
 ;;21,"53002-1046-00 ")
 ;;1236
 ;;21,"53002-1046-02 ")
 ;;1237
 ;;21,"53002-1046-03 ")
 ;;1238
 ;;21,"53002-1046-05 ")
 ;;1239
 ;;21,"53002-1046-06 ")
 ;;1240
 ;;21,"53002-1059-00 ")
 ;;427
 ;;21,"53002-1059-03 ")
 ;;428
 ;;21,"53002-1059-05 ")
 ;;429
 ;;21,"53002-1059-06 ")
 ;;430
 ;;21,"53002-1059-09 ")
 ;;431
 ;;21,"53265-0412-10 ")
 ;;2121
 ;;21,"53265-0412-11 ")
 ;;2122
 ;;21,"53265-0413-10 ")
 ;;2273
 ;;21,"53265-0413-11 ")
 ;;2274
 ;;21,"53265-0414-10 ")
 ;;2108
 ;;21,"53265-0414-11 ")
 ;;2109
 ;;21,"53445-1758-00 ")
 ;;622
 ;;21,"53445-1759-00 ")
 ;;838
 ;;21,"53445-1760-00 ")
 ;;882
 ;;21,"53445-1762-05 ")
 ;;979
 ;;21,"53489-0354-01 ")
 ;;2166
 ;;21,"53489-0354-05 ")
 ;;2167
 ;;21,"53489-0355-01 ")
 ;;2267
 ;;21,"53489-0355-05 ")
 ;;2268
 ;;21,"53489-0356-01 ")
 ;;2193
 ;;21,"53489-0356-05 ")
 ;;2194
 ;;21,"53489-0366-01 ")
 ;;2127
 ;;21,"53489-0366-10 ")
 ;;2128
 ;;21,"53489-0367-01 ")
 ;;2129
 ;;21,"53489-0367-10 ")
 ;;2130
 ;;21,"53489-0430-01 ")
 ;;2189
 ;;21,"53489-0430-10 ")
 ;;484
 ;;21,"53489-0431-01 ")
 ;;2190
 ;;21,"53489-0431-10 ")
 ;;485
 ;;21,"53489-0529-01 ")
 ;;2275
 ;;21,"53489-0529-05 ")
 ;;33
 ;;21,"53489-0529-10 ")
 ;;2276
 ;;21,"53489-0530-01 ")
 ;;2191
 ;;21,"53489-0530-05 ")
 ;;34
 ;;21,"53489-0530-10 ")
 ;;2192
 ;;21,"53489-0531-01 ")
 ;;2297
 ;;21,"53489-0531-10 ")
 ;;1069
 ;;21,"53489-0532-01 ")
 ;;2216
 ;;21,"53489-0532-10 ")
 ;;1070
 ;;21,"53489-0536-01 ")
 ;;2181
 ;;21,"53489-0536-10 ")
 ;;2182
 ;;21,"53489-0555-01 ")
 ;;2195
 ;;21,"53489-0555-07 ")
 ;;2196
 ;;21,"53489-0556-01 ")
 ;;2197
 ;;21,"53489-0556-07 ")
 ;;2198
 ;;21,"53633-0321-01 ")
 ;;623
 ;;21,"53633-0321-10 ")
 ;;624
 ;;21,"53633-0321-11 ")
 ;;625
 ;;21,"53633-0321-16 ")
 ;;626
 ;;21,"53633-0322-01 ")
 ;;839
 ;;21,"53633-0322-10 ")
 ;;840
 ;;21,"53633-0322-11 ")
 ;;841
 ;;21,"53633-0322-16 ")
 ;;842
 ;;21,"53633-0323-01 ")
 ;;883
 ;;21,"53633-0323-10 ")
 ;;884
 ;;21,"53633-0323-11 ")
 ;;885
 ;;21,"53633-0323-16 ")
 ;;886
 ;;21,"53633-0324-01 ")
 ;;980
 ;;21,"53633-0324-10 ")
 ;;981
 ;;21,"53633-0324-11 ")
 ;;982
 ;;21,"53746-0220-05 ")
 ;;2151
 ;;21,"53746-0220-79 ")
 ;;2152
 ;;21,"53922-0244-04 ")
 ;;1241
 ;;21,"53922-0244-05 ")
 ;;1242
 ;;21,"53922-0244-07 ")
 ;;1243
 ;;21,"53922-0244-08 ")
 ;;1244
 ;;21,"53922-0438-03 ")
 ;;1245
 ;;21,"53922-0438-05 ")
 ;;1246
 ;;21,"53922-0438-06 ")
 ;;1247
 ;;21,"53922-0752-04 ")
 ;;1248
 ;;21,"53922-0752-05 ")
 ;;1249
 ;;21,"53922-0752-07 ")
 ;;1250
 ;;21,"53922-0752-08 ")
 ;;1251
 ;;21,"53978-0034-03 ")
 ;;627
 ;;21,"53978-0034-04 ")
 ;;628
 ;;21,"53978-0696-09 ")
 ;;1252
 ;;21,"53978-0697-09 ")
 ;;1253
 ;;21,"53978-1199-01 ")
 ;;35
 ;;21,"53978-1199-02 ")
 ;;36
 ;;21,"53978-1199-03 ")
 ;;37
 ;;21,"53978-1199-05 ")
 ;;2277
 ;;21,"53978-2017-09 ")
 ;;432
 ;;21,"53978-2018-09 ")
 ;;433
 ;;21,"53978-2019-09 ")
 ;;434
 ;;21,"53978-2021-09 ")
 ;;1047
 ;;21,"53978-2022-09 ")
 ;;1048
 ;;21,"53978-2025-09 ")
 ;;486
 ;;21,"53978-2027-05 ")
 ;;38
 ;;21,"53978-2046-09 ")
 ;;487
 ;;21,"53978-2058-03 ")
 ;;343
 ;;21,"53978-2058-05 ")
 ;;344
 ;;21,"53978-2058-08 ")
 ;;345
 ;;21,"53978-3055-03 ")
 ;;39
 ;;21,"53978-3344-03 ")
 ;;629
 ;;21,"53978-3345-03 ")
 ;;630
 ;;21,"53978-3355-09 ")
 ;;756
 ;;21,"53978-3374-09 ")
 ;;1173
 ;;21,"53978-3388-09 ")
 ;;1174
 ;;21,"53978-5014-03 ")
 ;;631
 ;;21,"53978-5014-09 ")
 ;;843
 ;;21,"53978-5015-09 ")
 ;;887
 ;;21,"54274-0180-10 ")
 ;;917
 ;;21,"54274-0181-10 ")
 ;;953
 ;;21,"54274-0182-10 ")
 ;;757
 ;;21,"54274-0183-10 ")
 ;;809
 ;;21,"54274-0397-10 ")
 ;;1057
 ;;21,"54274-0398-10 ")
 ;;1030
 ;;21,"54274-0399-10 ")
 ;;1049
 ;;21,"54274-0413-10 ")
 ;;1122
 ;;21,"54274-0414-10 ")
 ;;1133
 ;;21,"54274-0610-50 ")
 ;;632
 ;;21,"54274-0611-10 ")
 ;;844
 ;;21,"54274-0611-50 ")
 ;;845
 ;;21,"54274-0612-50 ")
 ;;888
 ;;21,"54274-0613-10 ")
 ;;939
 ;;21,"54274-0614-10 ")
 ;;983
 ;;21,"54274-0614-30 ")
 ;;984
 ;;21,"54274-0634-50 ")
 ;;633
 ;;21,"54348-0142-30 ")
 ;;2945
 ;;21,"54569-0442-00 ")
 ;;2294
 ;;21,"54569-0557-00 ")
 ;;2256
 ;;21,"54569-0557-01 ")
 ;;2257
 ;;21,"54569-0557-03 ")
 ;;2258
 ;;21,"54569-0559-00 ")
 ;;2300
 ;;21,"54569-0559-01 ")
 ;;2301
 ;;21,"54569-0559-03 ")
 ;;2302
 ;;21,"54569-0561-01 ")
 ;;2259
 ;;21,"54569-0561-02 ")
 ;;2260
 ;;21,"54569-0561-03 ")
 ;;2261
 ;;21,"54569-0563-00 ")
 ;;2295
 ;;21,"54569-0564-00 ")
 ;;2296
 ;;21,"54569-0590-00 ")
 ;;2303
 ;;21,"54569-0596-00 ")
 ;;2332
 ;;21,"54569-1634-00 ")
 ;;2298
 ;;21,"54569-2499-00 ")
 ;;2299
 ;;21,"54569-2499-01 ")
 ;;985
 ;;21,"54569-3097-00 ")
 ;;954
 ;;21,"54569-3432-00 ")
 ;;2367
 ;;21,"54569-3432-01 ")
 ;;2368
 ;;21,"54569-3432-02 ")
 ;;2369
 ;;21,"54569-3432-03 ")
 ;;2370
 ;;21,"54569-3432-04 ")
 ;;2371
 ;;21,"54569-3432-05 ")
 ;;2372
 ;;21,"54569-3654-00 ")
 ;;2219
 ;;21,"54569-3654-01 ")
 ;;2220
 ;;21,"54569-3654-02 ")
 ;;2221
 ;;21,"54569-3654-03 ")
 ;;2222
 ;;21,"54569-3787-00 ")
 ;;2232
 ;;21,"54569-3787-01 ")
 ;;2233
 ;;21,"54569-3787-02 ")
 ;;2234
 ;;21,"54569-3788-00 ")
 ;;2235
 ;;21,"54569-3788-01 ")
 ;;2236
 ;;21,"54569-3789-00 ")
 ;;2226
 ;;21,"54569-3790-00 ")
 ;;2378
 ;;21,"54569-3791-00 ")
 ;;2379
 ;;21,"54569-3885-00 ")
 ;;2205
 ;;21,"54569-3885-02 ")
 ;;2206
 ;;21,"54569-4441-00 ")
 ;;2224
 ;;21,"54569-4442-00 ")
 ;;2382
 ;;21,"54569-4707-00 ")
 ;;2249
 ;;21,"54569-4708-00 ")
 ;;2250
 ;;21,"54569-4718-00 ")
 ;;234
 ;;21,"54569-4718-01 ")
 ;;2225
 ;;21,"54569-5368-00 ")
 ;;1088
 ;;21,"54569-5385-00 ")
 ;;1154
 ;;21,"54569-5404-00 ")
 ;;1098
 ;;21,"54569-5417-00 ")
 ;;1095
 ;;21,"54569-5419-00 ")
 ;;1089
 ;;21,"54569-8008-00 ")
 ;;2361
 ;;21,"54569-8008-01 ")
 ;;2362
 ;;21,"54569-8507-00 ")
 ;;2363
 ;;21,"54569-8507-01 ")
 ;;2364
 ;;21,"54569-8532-00 ")
 ;;2339
 ;;21,"54569-8543-00 ")
 ;;2228
 ;;21,"54569-8545-00 ")
 ;;2229
 ;;21,"54569-8545-01 ")
 ;;2230
 ;;21,"54569-8574-00 ")
 ;;2231
 ;;21,"54569-8590-00 ")
 ;;2223
 ;;21,"54569-8591-00 ")
 ;;2340
 ;;21,"54738-0133-01 ")
 ;;135
 ;;21,"54738-0133-03 ")
 ;;136
 ;;21,"54738-0134-01 ")
 ;;178
 ;;21,"54738-0134-03 ")
 ;;179
 ;;21,"54738-0135-01 ")
 ;;40
 ;;21,"54738-0135-03 ")
 ;;41
 ;;21,"54738-0468-01 ")
 ;;2365
 ;;21,"54738-0468-03 ")
 ;;2366
 ;;21,"54738-0469-01 ")
 ;;2209
 ;;21,"54738-0469-03 ")
 ;;2210
 ;;21,"54868-0052-00 ")
 ;;2211
 ;;21,"54868-0052-02 ")
 ;;2212
 ;;21,"54868-0052-03 ")
 ;;634
 ;;21,"54868-0053-00 ")
 ;;889
 ;;21,"54868-0053-02 ")
 ;;890
 ;;21,"54868-0053-03 ")
 ;;2213
 ;;21,"54868-0053-04 ")
 ;;635
 ;;21,"54868-0053-06 ")
 ;;2214
 ;;21,"54868-0053-07 ")
 ;;2215
 ;;21,"54868-0096-50 ")
 ;;2227
 ;;21,"54868-0097-30 ")
 ;;2341
 ;;21,"54868-0293-00 ")
 ;;2373
 ;;21,"54868-0293-01 ")
 ;;2374
 ;;21,"54868-0293-02 ")
 ;;636
 ;;21,"54868-0293-03 ")
 ;;2375
 ;;21,"54868-0293-04 ")
 ;;2376
 ;;21,"54868-0293-05 ")
 ;;2377
 ;;21,"54868-0293-06 ")
 ;;3004
 ;;21,"54868-0321-00 ")
 ;;2388
 ;;21,"54868-0674-00 ")
 ;;435
 ;;21,"54868-0674-01 ")
 ;;436
 ;;21,"54868-0680-00 ")
 ;;2239
 ;;21,"54868-0680-01 ")
 ;;2240
 ;;21,"54868-0685-01 ")
 ;;2251
 ;;21,"54868-0685-02 ")
 ;;346
 ;;21,"54868-0696-00 ")
 ;;637
 ;;21,"54868-0696-01 ")
 ;;2241
 ;;21,"54868-0696-02 ")
 ;;2242
 ;;21,"54868-0701-00 ")
 ;;2387
 ;;21,"54868-1004-00 ")
 ;;1254
 ;;21,"54868-1004-01 ")
 ;;2397
 ;;21,"54868-1063-00 ")
 ;;261
 ;;21,"54868-1063-01 ")
 ;;2252
 ;;21,"54868-1063-02 ")
 ;;262
 ;;21,"54868-1078-01 ")
 ;;2243
 ;;21,"54868-1078-03 ")
 ;;2244
 ;;21,"54868-1078-04 ")
 ;;918
 ;;21,"54868-1078-05 ")
 ;;2245
 ;;21,"54868-1441-00 ")
 ;;919
 ;;21,"54868-1441-01 ")
 ;;920
 ;;21,"54868-1442-00 ")
 ;;2288
 ;;21,"54868-1442-01 ")
 ;;2289
 ;;21,"54868-1442-02 ")
 ;;758
 ;;21,"54868-1517-01 ")
 ;;2290
 ;;21,"54868-1517-02 ")
 ;;2291
 ;;21,"54868-1518-00 ")
 ;;2292
 ;;21,"54868-1518-01 ")
 ;;2293
 ;;21,"54868-1871-00 ")
 ;;2383
 ;;21,"54868-1871-01 ")
 ;;2384
 ;;21,"54868-1871-02 ")
 ;;2385
 ;;21,"54868-1871-03 ")
 ;;42
 ;;21,"54868-1871-04 ")
 ;;2386
 ;;21,"54868-1971-00 ")
 ;;2270
 ;;21,"54868-1971-01 ")
 ;;2271
 ;;21,"54868-1971-02 ")
 ;;43
 ;;21,"54868-1971-03 ")
 ;;2272
 ;;21,"54868-2349-00 ")
 ;;44
 ;;21,"54868-2349-01 ")
 ;;2281
 ;;21,"54868-2349-02 ")
 ;;2282
 ;;21,"54868-2349-03 ")
 ;;2283
 ;;21,"54868-2349-04 ")
 ;;137
 ;;21,"54868-2572-00 ")
 ;;2262
 ;;21,"54868-2572-01 ")
 ;;2263
 ;;21,"54868-2683-00 ")
 ;;2450
 ;;21,"54868-2683-01 ")
 ;;2451
 ;;21,"54868-2683-02 ")
 ;;1083
 ;;21,"54868-2864-00 ")
 ;;2264
 ;;21,"54868-2864-01 ")
 ;;2265
 ;;21,"54868-2989-00 ")
 ;;2253
 ;;21,"54868-2989-01 ")
 ;;347
 ;;21,"54868-2989-02 ")
 ;;2254
 ;;21,"54868-2989-03 ")
 ;;2255
 ;;21,"54868-2989-04 ")
 ;;2437
 ;;21,"54868-2989-05 ")
 ;;2438
 ;;21,"54868-2989-06 ")
 ;;2439
 ;;21,"54868-2990-00 ")
 ;;2440
 ;;21,"54868-2990-01 ")
 ;;348
 ;;21,"54868-2990-02 ")
 ;;2441
 ;;21,"54868-2990-03 ")
 ;;2442
 ;;21,"54868-3064-00 ")
 ;;1071
 ;;21,"54868-3257-00 ")
 ;;437
 ;;21,"54868-3257-01 ")
 ;;2423
 ;;21,"54868-3257-02 ")
 ;;438
 ;;21,"54868-3587-00 ")
 ;;2284
 ;;21,"54868-3587-01 ")
 ;;2285
 ;;21,"54868-3587-02 ")
 ;;2286
 ;;21,"54868-3587-03 ")
 ;;241
 ;;21,"54868-3587-04 ")
 ;;242
 ;;21,"54868-3602-00 ")
 ;;502
 ;;21,"54868-3625-00 ")
 ;;995
 ;;21,"54868-3625-01 ")
 ;;996
 ;;21,"54868-3721-00 ")
 ;;439
 ;;21,"54868-3721-01 ")
 ;;465
 ;;21,"54868-3721-02 ")
 ;;466
 ;;21,"54868-4173-00 ")
 ;;2460
 ;;21,"54868-4179-00 ")
 ;;2424
 ;;21,"54868-4223-00 ")
 ;;2413
 ;;21,"54868-4223-01 ")
 ;;231
 ;;21,"54868-4223-02 ")
 ;;232
 ;;21,"54868-4223-03 ")
 ;;2962
 ;;21,"54868-4395-00 ")
 ;;2461
 ;;21,"54868-4395-01 ")
 ;;2462
 ;;21,"54868-4396-00 ")
 ;;2463
 ;;21,"54868-4396-01 ")
 ;;1144
 ;;21,"54868-4396-02 ")
 ;;1145
 ;;21,"54868-4421-00 ")
 ;;2425
 ;;21,"54868-4421-01 ")
 ;;2426
 ;;21,"54868-4421-02 ")
 ;;2960
 ;;21,"54868-4423-00 ")
 ;;2585
 ;;21,"54868-4424-00 ")
 ;;2464
 ;;21,"54868-4424-01 ")
 ;;1155
 ;;21,"54868-4424-02 ")
 ;;1156
 ;;21,"54868-4435-00 ")
 ;;2538
 ;;21,"54868-4435-01 ")
 ;;1020
 ;;21,"54868-4435-02 ")
 ;;1021
 ;;21,"54868-4576-00 ")
 ;;2465
 ;;21,"54868-4576-01 ")
 ;;2466
 ;;21,"54868-4577-01 ")
 ;;1096
 ;;21,"54868-4578-00 ")
 ;;2406
 ;;21,"54868-4578-01 ")
 ;;2407
 ;;21,"54868-4621-00 ")
 ;;2586
 ;;21,"54868-4661-00 ")
 ;;2528
 ;;21,"54868-4661-01 ")
 ;;2529
 ;;21,"54868-4661-02 ")
 ;;237
 ;;21,"54868-4844-00 ")
 ;;2427
 ;;21,"54868-4844-01 ")
 ;;2428
 ;;21,"54868-4903-00 ")
 ;;2527
 ;;21,"54868-4903-01 ")
 ;;1295
 ;;21,"54868-4921-00 ")
 ;;2553
 ;;21,"54868-4921-01 ")
 ;;1175
 ;;21,"54868-4932-00 ")
 ;;211
 ;;21,"54868-4932-01 ")
 ;;212
 ;;21,"54868-5013-00 ")
 ;;214
 ;;21,"54868-5021-00 ")
 ;;272
 ;;21,"54868-5021-01 ")
 ;;273
 ;;21,"54868-5068-00 ")
 ;;235
 ;;21,"54868-5068-01 ")
 ;;236
 ;;21,"54868-5095-00 ")
 ;;222
 ;;21,"54868-5295-00 ")
 ;;407
 ;;21,"54868-5295-01 ")
 ;;408
 ;;21,"54921-0101-10 ")
 ;;2530
 ;;21,"54921-0101-39 ")
 ;;2531
 ;;21,"54921-0105-10 ")
 ;;2414
 ;;21,"54921-0105-34 ")
 ;;2415
 ;;21,"54921-0105-39 ")
 ;;2416
 ;;21,"54921-0107-10 ")
 ;;2550
 ;;21,"54921-0115-10 ")
 ;;2484
 ;;21,"54921-0117-10 ")
 ;;2587
 ;;21,"55045-1236-01 ")
 ;;638
 ;;21,"55045-1236-09 ")
 ;;639
 ;;21,"55045-1273-01 ")
 ;;180
 ;;21,"55045-1273-08 ")
 ;;181
 ;;21,"55045-1339-09 ")
 ;;349
 ;;21,"55045-1570-08 ")
 ;;1084
 ;;21,"55045-1662-08 ")
 ;;182
 ;;21,"55045-1813-01 ")
 ;;640
 ;;21,"55045-1813-08 ")
 ;;641
 ;;21,"55045-1853-01 ")
 ;;642
 ;;21,"55045-1860-01 ")
 ;;2417
 ;;21,"55045-1860-08 ")
 ;;45
 ;;21,"55045-1939-09 ")
 ;;263
 ;;21,"55045-2077-08 ")
 ;;759
 ;;21,"55045-2078-01 ")
 ;;643
 ;;21,"55045-2269-01 ")
 ;;2532
 ;;21,"55045-2269-08 ")
 ;;2533
 ;;21,"55045-2282-00 ")
 ;;2443
 ;;21,"55045-2282-09 ")
 ;;350
 ;;21,"55045-2388-08 ")
 ;;644
 ;;21,"55045-2461-01 ")
 ;;921
 ;;21,"55045-2498-08 ")
 ;;2551
 ;;21,"55154-0201-01 ")
 ;;760
 ;;21,"55154-0202-01 ")
 ;;761
 ;;21,"55154-0203-01 ")
 ;;762
 ;;21,"55154-0204-01 ")
 ;;645
 ;;21,"55154-0205-01 ")
 ;;646
 ;;21,"55154-0206-01 ")
 ;;647
 ;;21,"55154-0215-01 ")
 ;;763
 ;;21,"55154-0305-07 ")
 ;;997
 ;;21,"55154-0604-01 ")
 ;;440
 ;;21,"55154-0605-01 ")
 ;;441
 ;;21,"55154-1009-07 ")
 ;;351
 ;;21,"55154-1100-01 ")
 ;;1176
 ;;21,"55154-1101-01 ")
 ;;1177
 ;;21,"55154-1101-07 ")
 ;;1178
 ;;21,"55154-1116-07 ")
 ;;1179
 ;;21,"55154-3506-01 ")
 ;;1255
 ;;21,"55154-3511-01 ")
 ;;1256
 ;;21,"55154-3511-07 ")
 ;;1257