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

BGP62Y3.m

Go to the documentation of this file.
BGP62Y3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"00247-0156-03 ")
 ;;780
 ;;21,"00247-0156-04 ")
 ;;781
 ;;21,"00247-0156-12 ")
 ;;782
 ;;21,"00247-0156-15 ")
 ;;783
 ;;21,"00247-0156-30 ")
 ;;784
 ;;21,"00247-0157-03 ")
 ;;843
 ;;21,"00247-0157-04 ")
 ;;844
 ;;21,"00247-0157-08 ")
 ;;845
 ;;21,"00247-0157-18 ")
 ;;846
 ;;21,"00247-0167-00 ")
 ;;4335
 ;;21,"00247-0167-03 ")
 ;;4336
 ;;21,"00247-0167-04 ")
 ;;4337
 ;;21,"00247-0167-07 ")
 ;;4338
 ;;21,"00247-0167-28 ")
 ;;4339
 ;;21,"00247-0167-79 ")
 ;;4340
 ;;21,"00247-0172-06 ")
 ;;2135
 ;;21,"00247-0172-20 ")
 ;;2136
 ;;21,"00247-0175-00 ")
 ;;3257
 ;;21,"00247-0175-02 ")
 ;;3258
 ;;21,"00247-0175-03 ")
 ;;3259
 ;;21,"00247-0175-04 ")
 ;;3260
 ;;21,"00247-0175-07 ")
 ;;3261
 ;;21,"00247-0175-09 ")
 ;;3262
 ;;21,"00247-0175-10 ")
 ;;3263
 ;;21,"00247-0175-12 ")
 ;;3264
 ;;21,"00247-0175-14 ")
 ;;3265
 ;;21,"00247-0175-20 ")
 ;;3266
 ;;21,"00247-0175-21 ")
 ;;3267
 ;;21,"00247-0175-28 ")
 ;;3268
 ;;21,"00247-0175-30 ")
 ;;3269
 ;;21,"00247-0175-40 ")
 ;;3270
 ;;21,"00247-0175-56 ")
 ;;3271
 ;;21,"00247-0196-03 ")
 ;;5194
 ;;21,"00247-0196-04 ")
 ;;5195
 ;;21,"00247-0197-01 ")
 ;;4166
 ;;21,"00247-0197-02 ")
 ;;4167
 ;;21,"00247-0197-03 ")
 ;;4168
 ;;21,"00247-0197-07 ")
 ;;4169
 ;;21,"00247-0262-02 ")
 ;;5359
 ;;21,"00247-0280-01 ")
 ;;2631
 ;;21,"00247-0280-02 ")
 ;;2632
 ;;21,"00247-0280-03 ")
 ;;2633
 ;;21,"00247-0280-04 ")
 ;;2634
 ;;21,"00247-0280-05 ")
 ;;2635
 ;;21,"00247-0280-06 ")
 ;;2636
 ;;21,"00247-0280-10 ")
 ;;2637
 ;;21,"00247-0280-11 ")
 ;;2638
 ;;21,"00247-0280-50 ")
 ;;2639
 ;;21,"00247-0331-01 ")
 ;;6776
 ;;21,"00247-0331-10 ")
 ;;6777
 ;;21,"00247-0393-00 ")
 ;;1554
 ;;21,"00247-0393-79 ")
 ;;1555
 ;;21,"00247-0395-00 ")
 ;;3497
 ;;21,"00247-0395-60 ")
 ;;3498
 ;;21,"00247-0395-77 ")
 ;;3499
 ;;21,"00247-0395-79 ")
 ;;3500
 ;;21,"00247-0395-90 ")
 ;;3501
 ;;21,"00247-0396-00 ")
 ;;3380
 ;;21,"00247-0396-05 ")
 ;;3381
 ;;21,"00247-0396-10 ")
 ;;3382
 ;;21,"00247-0396-25 ")
 ;;3383
 ;;21,"00247-0396-60 ")
 ;;3384
 ;;21,"00247-0396-77 ")
 ;;3385
 ;;21,"00247-0396-79 ")
 ;;3386
 ;;21,"00247-0396-90 ")
 ;;3387
 ;;21,"00247-0396-95 ")
 ;;3388
 ;;21,"00247-0397-20 ")
 ;;5647
 ;;21,"00247-0458-02 ")
 ;;2887
 ;;21,"00247-0458-04 ")
 ;;2888
 ;;21,"00247-0458-14 ")
 ;;2889
 ;;21,"00247-0459-04 ")
 ;;3354
 ;;21,"00247-0459-06 ")
 ;;3355
 ;;21,"00247-0459-14 ")
 ;;3356
 ;;21,"00247-0459-16 ")
 ;;3357
 ;;21,"00247-0459-20 ")
 ;;3358
 ;;21,"00247-0459-30 ")
 ;;3359
 ;;21,"00247-0460-15 ")
 ;;3248
 ;;21,"00247-0460-20 ")
 ;;3249
 ;;21,"00247-0460-21 ")
 ;;3250
 ;;21,"00247-0460-30 ")
 ;;3251
 ;;21,"00247-0563-20 ")
 ;;315
 ;;21,"00247-0585-50 ")
 ;;7043
 ;;21,"00247-0586-00 ")
 ;;7044
 ;;21,"00247-0626-30 ")
 ;;6510
 ;;21,"00247-0626-60 ")
 ;;6511
 ;;21,"00247-0627-20 ")
 ;;6427
 ;;21,"00247-0627-30 ")
 ;;6428
 ;;21,"00247-0627-50 ")
 ;;6429
 ;;21,"00247-0627-60 ")
 ;;6430
 ;;21,"00247-0628-00 ")
 ;;1533
 ;;21,"00247-0628-50 ")
 ;;1534
 ;;21,"00247-0628-75 ")
 ;;1535
 ;;21,"00247-0629-00 ")
 ;;1401
 ;;21,"00247-0629-50 ")
 ;;1402
 ;;21,"00247-0633-75 ")
 ;;7045
 ;;21,"00247-0639-00 ")
 ;;2207
 ;;21,"00247-0639-02 ")
 ;;2208
 ;;21,"00247-0639-03 ")
 ;;2209
 ;;21,"00247-0639-04 ")
 ;;2210
 ;;21,"00247-0639-06 ")
 ;;2211
 ;;21,"00247-0639-08 ")
 ;;2212
 ;;21,"00247-0639-12 ")
 ;;2213
 ;;21,"00247-0639-16 ")
 ;;2214
 ;;21,"00247-0639-21 ")
 ;;2215
 ;;21,"00247-0639-24 ")
 ;;2216
 ;;21,"00247-0639-28 ")
 ;;2217
 ;;21,"00247-0639-42 ")
 ;;2218
 ;;21,"00247-0639-50 ")
 ;;2219
 ;;21,"00247-0639-56 ")
 ;;2220
 ;;21,"00247-0639-60 ")
 ;;2221
 ;;21,"00247-0639-80 ")
 ;;2222
 ;;21,"00247-0645-06 ")
 ;;5575
 ;;21,"00247-0645-20 ")
 ;;5576
 ;;21,"00247-0645-28 ")
 ;;5577
 ;;21,"00247-0645-30 ")
 ;;5578
 ;;21,"00247-0784-01 ")
 ;;2418
 ;;21,"00247-0784-02 ")
 ;;2419
 ;;21,"00247-0784-03 ")
 ;;2420
 ;;21,"00247-0784-08 ")
 ;;2421
 ;;21,"00247-0784-18 ")
 ;;2422
 ;;21,"00247-0784-24 ")
 ;;2423
 ;;21,"00247-0784-28 ")
 ;;2424
 ;;21,"00247-0812-01 ")
 ;;6903
 ;;21,"00247-0928-01 ")
 ;;4688
 ;;21,"00247-0928-02 ")
 ;;4689
 ;;21,"00247-0940-15 ")
 ;;6306
 ;;21,"00247-0941-01 ")
 ;;5452
 ;;21,"00247-0942-00 ")
 ;;5289
 ;;21,"00247-0942-50 ")
 ;;5290
 ;;21,"00247-0942-75 ")
 ;;5291
 ;;21,"00247-0949-00 ")
 ;;3546
 ;;21,"00247-0949-78 ")
 ;;3547
 ;;21,"00247-0949-79 ")
 ;;3548
 ;;21,"00247-1009-00 ")
 ;;6132
 ;;21,"00247-1009-02 ")
 ;;6133
 ;;21,"00247-1009-03 ")
 ;;6134
 ;;21,"00247-1009-06 ")
 ;;6135
 ;;21,"00247-1009-30 ")
 ;;6136
 ;;21,"00247-1181-28 ")
 ;;1816
 ;;21,"00247-1181-56 ")
 ;;1817
 ;;21,"00247-1183-20 ")
 ;;1774
 ;;21,"00247-1261-00 ")
 ;;5353
 ;;21,"00247-1261-50 ")
 ;;5354
 ;;21,"00247-1261-79 ")
 ;;5355
 ;;21,"00247-1288-03 ")
 ;;2542
 ;;21,"00247-1333-20 ")
 ;;5944
 ;;21,"00247-1383-00 ")
 ;;2920
 ;;21,"00247-1383-50 ")
 ;;2921
 ;;21,"00247-1386-00 ")
 ;;2870
 ;;21,"00247-1386-50 ")
 ;;2871
 ;;21,"00247-1468-02 ")
 ;;1420
 ;;21,"00247-1468-04 ")
 ;;1421
 ;;21,"00247-1468-10 ")
 ;;1422
 ;;21,"00247-1468-14 ")
 ;;1423
 ;;21,"00247-1468-20 ")
 ;;1424
 ;;21,"00247-1518-05 ")
 ;;97
 ;;21,"00247-1518-50 ")
 ;;98
 ;;21,"00247-1519-05 ")
 ;;384
 ;;21,"00247-1519-10 ")
 ;;385
 ;;21,"00247-1519-15 ")
 ;;386
 ;;21,"00247-1519-50 ")
 ;;387
 ;;21,"00247-1524-06 ")
 ;;4144
 ;;21,"00247-1623-00 ")
 ;;5442
 ;;21,"00247-1623-50 ")
 ;;5443
 ;;21,"00247-1624-30 ")
 ;;7107
 ;;21,"00247-1624-60 ")
 ;;7108
 ;;21,"00247-1624-77 ")
 ;;7109
 ;;21,"00247-1624-90 ")
 ;;7110
 ;;21,"00247-1666-30 ")
 ;;6352
 ;;21,"00247-1669-30 ")
 ;;81
 ;;21,"00247-1707-02 ")
 ;;4779
 ;;21,"00247-1707-07 ")
 ;;4780
 ;;21,"00247-1707-10 ")
 ;;4781
 ;;21,"00247-1707-20 ")
 ;;4782
 ;;21,"00247-1707-50 ")
 ;;4783
 ;;21,"00247-1708-01 ")
 ;;4851
 ;;21,"00247-1708-07 ")
 ;;4852
 ;;21,"00247-1708-10 ")
 ;;4853
 ;;21,"00247-1708-14 ")
 ;;4854
 ;;21,"00247-1708-20 ")
 ;;4855
 ;;21,"00247-1708-50 ")
 ;;4856
 ;;21,"00247-1729-00 ")
 ;;3389
 ;;21,"00247-1729-79 ")
 ;;3390
 ;;21,"00247-1951-20 ")
 ;;724
 ;;21,"00247-1963-02 ")
 ;;5360
 ;;21,"00247-1963-10 ")
 ;;5361
 ;;21,"00247-1963-20 ")
 ;;5362
 ;;21,"00247-1977-00 ")
 ;;6946
 ;;21,"00247-1990-02 ")
 ;;1060
 ;;21,"00247-1990-03 ")
 ;;1061
 ;;21,"00247-1990-04 ")
 ;;1062
 ;;21,"00247-1990-09 ")
 ;;1063
 ;;21,"00247-1990-12 ")
 ;;1064
 ;;21,"00247-1990-15 ")
 ;;1065
 ;;21,"00247-1990-20 ")
 ;;1066
 ;;21,"00247-1990-21 ")
 ;;1067
 ;;21,"00247-1990-30 ")
 ;;1068
 ;;21,"00247-1991-00 ")
 ;;1213
 ;;21,"00247-1991-02 ")
 ;;1214
 ;;21,"00247-1991-04 ")
 ;;1215
 ;;21,"00247-1991-06 ")
 ;;1216
 ;;21,"00247-1991-14 ")
 ;;1217
 ;;21,"00247-1991-20 ")
 ;;1218
 ;;21,"00247-2018-00 ")
 ;;1018
 ;;21,"00247-2018-50 ")
 ;;1019
 ;;21,"00247-2018-75 ")
 ;;1020
 ;;21,"00247-2042-00 ")
 ;;4341
 ;;21,"00247-2042-01 ")
 ;;4342
 ;;21,"00247-2042-02 ")
 ;;4343
 ;;21,"00247-2042-03 ")
 ;;4344
 ;;21,"00247-2042-04 ")
 ;;4345
 ;;21,"00247-2042-06 ")
 ;;4346
 ;;21,"00247-2042-09 ")
 ;;4347
 ;;21,"00247-2042-10 ")
 ;;4348
 ;;21,"00247-2042-14 ")
 ;;4349
 ;;21,"00247-2042-20 ")
 ;;4350
 ;;21,"00247-2042-28 ")
 ;;4351
 ;;21,"00247-2042-30 ")
 ;;4352
 ;;21,"00247-2044-00 ")
 ;;4170
 ;;21,"00247-2044-02 ")
 ;;4171
 ;;21,"00247-2044-04 ")
 ;;4172
 ;;21,"00247-2044-06 ")
 ;;4173
 ;;21,"00247-2044-10 ")
 ;;4174
 ;;21,"00247-2044-14 ")
 ;;4175
 ;;21,"00247-2044-20 ")
 ;;4176
 ;;21,"00247-2044-28 ")
 ;;4177
 ;;21,"00247-2075-20 ")
 ;;7033
 ;;21,"00247-2177-20 ")
 ;;7081
 ;;21,"00247-2209-01 ")
 ;;6778
 ;;21,"00247-2209-10 ")
 ;;6779
 ;;21,"00247-2209-20 ")
 ;;6780
 ;;21,"00247-2210-01 ")
 ;;6868
 ;;21,"00247-2210-10 ")
 ;;6869
 ;;21,"00247-2211-01 ")
 ;;6904
 ;;21,"00247-2211-10 ")
 ;;6905
 ;;21,"00247-2216-20 ")
 ;;5453
 ;;21,"00247-2217-00 ")
 ;;5444
 ;;21,"00247-2217-50 ")
 ;;5445
 ;;21,"00247-2217-75 ")
 ;;5446
 ;;21,"00247-2233-00 ")
 ;;938
 ;;21,"00247-2233-50 ")
 ;;939
 ;;21,"00247-2233-75 ")
 ;;940
 ;;21,"00247-2258-15 ")
 ;;2582
 ;;21,"00247-2279-00 ")
 ;;2583
 ;;21,"00247-2279-01 ")
 ;;2584
 ;;21,"00247-2279-30 ")
 ;;2585
 ;;21,"00247-2279-58 ")
 ;;2586
 ;;21,"00247-2358-01 ")
 ;;2543
 ;;21,"00247-2358-02 ")
 ;;2544
 ;;21,"00247-2358-06 ")
 ;;2545
 ;;21,"00264-3102-11 ")
 ;;1393
 ;;21,"00264-3103-11 ")
 ;;1384
 ;;21,"00264-3105-11 ")
 ;;1390
 ;;21,"00264-3112-11 ")
 ;;5121
 ;;21,"00264-3114-11 ")
 ;;5118
 ;;21,"00264-3153-11 ")
 ;;6938
 ;;21,"00264-3155-11 ")
 ;;6940
 ;;21,"00299-3822-30 ")
 ;;5929
 ;;21,"00299-5960-02 ")
 ;;5911
 ;;21,"00316-0142-01 ")
 ;;6595
 ;;21,"00338-0960-37 ")
 ;;4086
 ;;21,"00338-0960-48 ")
 ;;4073
 ;;21,"00338-1021-41 ")
 ;;3595
 ;;21,"00338-1023-41 ")
 ;;3596
 ;;21,"00338-1025-41 ")
 ;;3598
 ;;21,"00338-3502-41 ")
 ;;1394
 ;;21,"00338-3503-41 ")
 ;;1385
 ;;21,"00338-5002-41 ")
 ;;6939
 ;;21,"00338-5003-41 ")
 ;;6941
 ;;21,"00364-2033-50 ")
 ;;5945
 ;;21,"00364-2464-34 ")
 ;;1367
 ;;21,"00364-2466-93 ")
 ;;1334
 ;;21,"00364-2906-38 ")
 ;;3587
 ;;21,"00364-2908-61 ")
 ;;3577
 ;;21,"00378-0145-89 ")
 ;;6307
 ;;21,"00378-0148-05 ")
 ;;5946
 ;;21,"00378-0148-89 ")
 ;;5947
 ;;21,"00378-0167-05 ")
 ;;6137
 ;;21,"00378-0167-89 ")
 ;;6138
 ;;21,"00378-1215-89 ")
 ;;4784
 ;;21,"00378-1217-89 ")
 ;;4857
 ;;21,"00378-1221-94 ")
 ;;4960
 ;;21,"00378-1322-01 ")
 ;;4178
 ;;21,"00378-1323-01 ")
 ;;4353
 ;;21,"00378-1323-05 ")
 ;;4354
 ;;21,"00378-1324-89 ")
 ;;4690
 ;;21,"00378-1533-56 ")
 ;;2640
 ;;21,"00378-1533-83 ")
 ;;2641
 ;;21,"00378-1743-89 ")
 ;;4659
 ;;21,"00378-1745-89 ")
 ;;4150
 ;;21,"00378-3030-01 ")
 ;;6296
 ;;21,"00378-4296-01 ")
 ;;6499
 ;;21,"00378-4296-93 ")
 ;;6500
 ;;21,"00378-4297-01 ")
 ;;6565
 ;;21,"00378-4297-93 ")
 ;;6566
 ;;21,"00378-4298-01 ")
 ;;6488
 ;;21,"00378-4298-93 ")
 ;;6489
 ;;21,"00378-4531-91 ")
 ;;6344
 ;;21,"00378-4532-01 ")
 ;;6120
 ;;21,"00378-5475-91 ")
 ;;6385
 ;;21,"00378-6021-01 ")
 ;;6402
 ;;21,"00378-6022-01 ")
 ;;6413
 ;;21,"00378-6023-89 ")
 ;;6369
 ;;21,"00378-6124-93 ")
 ;;6389
 ;;21,"00378-7097-01 ")
 ;;4179
 ;;21,"00378-7098-01 ")
 ;;4355
 ;;21,"00378-7099-89 ")
 ;;4691
 ;;21,"00378-8250-91 ")
 ;;2890
 ;;21,"00378-8500-91 ")
 ;;2945
 ;;21,"00409-0144-10 ")
 ;;2527
 ;;21,"00409-0144-11 ")
 ;;2528
 ;;21,"00409-0528-13 ")
 ;;4112
 ;;21,"00409-0528-23 ")
 ;;4123
 ;;21,"00409-0528-31 ")
 ;;4135
 ;;21,"00409-0802-01 ")
 ;;5066
 ;;21,"00409-0803-01 ")
 ;;5086
 ;;21,"00409-0805-01 ")
 ;;1304
 ;;21,"00409-0806-01 ")
 ;;1335
 ;;21,"00409-2585-01 ")
 ;;1305
 ;;21,"00409-4050-01 ")
 ;;2163
 ;;21,"00409-4051-01 ")
 ;;2164
 ;;21,"00409-4052-01 ")
 ;;2165
 ;;21,"00409-4053-03 ")
 ;;2166
 ;;21,"00409-4054-03 ")
 ;;2167
 ;;21,"00409-4055-03 ")
 ;;2168
 ;;21,"00409-4197-01 ")
 ;;2169
 ;;21,"00409-4765-86 ")
 ;;4059
 ;;21,"00409-4777-02 ")
 ;;4087
 ;;21,"00409-4777-23 ")
 ;;4074
 ;;21,"00409-4777-49 ")
 ;;4075
 ;;21,"00409-4777-50 ")
 ;;4088
 ;;21,"00409-4777-61 ")
 ;;4076
 ;;21,"00409-4777-62 ")
 ;;4089
 ;;21,"00409-4778-86 ")
 ;;4060