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

BGP33I10.m

Go to the documentation of this file.
BGP33I10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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,"58016-0833-10 ")
 ;;1618
 ;;21,"58016-0833-12 ")
 ;;1619
 ;;21,"58016-0833-14 ")
 ;;1620
 ;;21,"58016-0833-15 ")
 ;;1621
 ;;21,"58016-0833-20 ")
 ;;1622
 ;;21,"58016-0833-21 ")
 ;;1623
 ;;21,"58016-0833-30 ")
 ;;1624
 ;;21,"58016-0833-40 ")
 ;;1625
 ;;21,"58016-0833-50 ")
 ;;1626
 ;;21,"58016-0833-60 ")
 ;;1627
 ;;21,"58016-0833-90 ")
 ;;1628
 ;;21,"58016-0834-00 ")
 ;;1690
 ;;21,"58016-0834-10 ")
 ;;1691
 ;;21,"58016-0834-14 ")
 ;;1692
 ;;21,"58016-0834-15 ")
 ;;1693
 ;;21,"58016-0834-20 ")
 ;;1694
 ;;21,"58016-0834-21 ")
 ;;1695
 ;;21,"58016-0834-30 ")
 ;;1696
 ;;21,"58016-0834-40 ")
 ;;1697
 ;;21,"58016-0834-50 ")
 ;;1698
 ;;21,"58016-0834-60 ")
 ;;1699
 ;;21,"58016-0834-90 ")
 ;;1700
 ;;21,"58016-0839-00 ")
 ;;2507
 ;;21,"58016-0839-02 ")
 ;;2508
 ;;21,"58016-0839-12 ")
 ;;2509
 ;;21,"58016-0839-15 ")
 ;;2510
 ;;21,"58016-0839-20 ")
 ;;2511
 ;;21,"58016-0839-30 ")
 ;;2512
 ;;21,"58016-0839-60 ")
 ;;2513
 ;;21,"58016-0839-90 ")
 ;;2514
 ;;21,"58016-0841-00 ")
 ;;2548
 ;;21,"58016-0841-02 ")
 ;;2549
 ;;21,"58016-0841-12 ")
 ;;2550
 ;;21,"58016-0841-15 ")
 ;;2551
 ;;21,"58016-0841-20 ")
 ;;2552
 ;;21,"58016-0841-30 ")
 ;;2553
 ;;21,"58016-0841-60 ")
 ;;2554
 ;;21,"58016-0841-90 ")
 ;;2555
 ;;21,"58016-0853-00 ")
 ;;1448
 ;;21,"58016-0853-02 ")
 ;;1449
 ;;21,"58016-0853-03 ")
 ;;1450
 ;;21,"58016-0853-14 ")
 ;;1451
 ;;21,"58016-0853-15 ")
 ;;1452
 ;;21,"58016-0853-20 ")
 ;;1453
 ;;21,"58016-0853-28 ")
 ;;1454
 ;;21,"58016-0853-30 ")
 ;;1455
 ;;21,"58016-0853-50 ")
 ;;1456
 ;;21,"58016-0853-60 ")
 ;;1457
 ;;21,"58016-0853-73 ")
 ;;1458
 ;;21,"58016-0853-89 ")
 ;;1459
 ;;21,"58016-0853-90 ")
 ;;1460
 ;;21,"58016-0858-00 ")
 ;;154
 ;;21,"58016-0858-14 ")
 ;;155
 ;;21,"58016-0858-21 ")
 ;;156
 ;;21,"58016-0858-28 ")
 ;;157
 ;;21,"58016-0858-30 ")
 ;;158
 ;;21,"58016-0858-40 ")
 ;;159
 ;;21,"58016-0858-50 ")
 ;;160
 ;;21,"58016-0858-60 ")
 ;;161
 ;;21,"58016-0858-99 ")
 ;;162
 ;;21,"58016-0862-00 ")
 ;;4218
 ;;21,"58016-0862-02 ")
 ;;4219
 ;;21,"58016-0862-03 ")
 ;;4220
 ;;21,"58016-0862-12 ")
 ;;4221
 ;;21,"58016-0862-15 ")
 ;;4222
 ;;21,"58016-0862-20 ")
 ;;4223
 ;;21,"58016-0862-30 ")
 ;;4224
 ;;21,"58016-0862-50 ")
 ;;4225
 ;;21,"58016-0862-60 ")
 ;;4226
 ;;21,"58016-0862-73 ")
 ;;4227
 ;;21,"58016-0862-89 ")
 ;;4228
 ;;21,"58016-0862-90 ")
 ;;4229
 ;;21,"58016-0866-00 ")
 ;;2589
 ;;21,"58016-0866-02 ")
 ;;2590
 ;;21,"58016-0866-12 ")
 ;;2591
 ;;21,"58016-0866-15 ")
 ;;2592
 ;;21,"58016-0866-20 ")
 ;;2593
 ;;21,"58016-0866-30 ")
 ;;2594
 ;;21,"58016-0866-60 ")
 ;;2595
 ;;21,"58016-0866-90 ")
 ;;2596
 ;;21,"58016-0875-00 ")
 ;;3197
 ;;21,"58016-0875-12 ")
 ;;3198
 ;;21,"58016-0875-15 ")
 ;;3199
 ;;21,"58016-0875-20 ")
 ;;3200
 ;;21,"58016-0875-30 ")
 ;;3201
 ;;21,"58016-0875-60 ")
 ;;3202
 ;;21,"58016-0880-00 ")
 ;;4311
 ;;21,"58016-0880-12 ")
 ;;4312
 ;;21,"58016-0880-15 ")
 ;;4313
 ;;21,"58016-0880-20 ")
 ;;4314
 ;;21,"58016-0880-30 ")
 ;;4315
 ;;21,"58016-0881-00 ")
 ;;745
 ;;21,"58016-0881-02 ")
 ;;746
 ;;21,"58016-0881-03 ")
 ;;747
 ;;21,"58016-0881-30 ")
 ;;748
 ;;21,"58016-0881-60 ")
 ;;749
 ;;21,"58016-0881-90 ")
 ;;750
 ;;21,"58016-0894-00 ")
 ;;2689
 ;;21,"58016-0894-02 ")
 ;;2690
 ;;21,"58016-0894-03 ")
 ;;2691
 ;;21,"58016-0894-30 ")
 ;;2692
 ;;21,"58016-0894-60 ")
 ;;2693
 ;;21,"58016-0894-90 ")
 ;;2694
 ;;21,"58016-0894-99 ")
 ;;2695
 ;;21,"58016-0897-00 ")
 ;;3322
 ;;21,"58016-0897-30 ")
 ;;3323
 ;;21,"58016-0897-60 ")
 ;;3324
 ;;21,"58016-0897-90 ")
 ;;3325
 ;;21,"58016-0905-00 ")
 ;;2249
 ;;21,"58016-0905-02 ")
 ;;2250
 ;;21,"58016-0905-03 ")
 ;;2251
 ;;21,"58016-0905-10 ")
 ;;2252
 ;;21,"58016-0905-20 ")
 ;;2253
 ;;21,"58016-0905-30 ")
 ;;2254
 ;;21,"58016-0905-60 ")
 ;;2255
 ;;21,"58016-0905-73 ")
 ;;2256
 ;;21,"58016-0905-89 ")
 ;;2257
 ;;21,"58016-0907-00 ")
 ;;3587
 ;;21,"58016-0907-30 ")
 ;;3588
 ;;21,"58016-0907-60 ")
 ;;3589
 ;;21,"58016-0907-90 ")
 ;;3590
 ;;21,"58016-0977-00 ")
 ;;1873
 ;;21,"58016-0977-02 ")
 ;;1874
 ;;21,"58016-0977-30 ")
 ;;1875
 ;;21,"58016-0977-60 ")
 ;;1876
 ;;21,"58016-0977-90 ")
 ;;1877
 ;;21,"58016-0986-00 ")
 ;;2777
 ;;21,"58016-0986-02 ")
 ;;2778
 ;;21,"58016-0986-03 ")
 ;;2779
 ;;21,"58016-0986-30 ")
 ;;2780
 ;;21,"58016-0986-60 ")
 ;;2781
 ;;21,"58016-0986-90 ")
 ;;2782
 ;;21,"58016-4825-01 ")
 ;;2732
 ;;21,"58016-4826-01 ")
 ;;2825
 ;;21,"58809-0717-01 ")
 ;;424
 ;;21,"58864-0022-15 ")
 ;;308
 ;;21,"58864-0022-30 ")
 ;;309
 ;;21,"58864-0023-30 ")
 ;;425
 ;;21,"58864-0024-30 ")
 ;;86
 ;;21,"58864-0025-01 ")
 ;;4466
 ;;21,"58864-0025-14 ")
 ;;4467
 ;;21,"58864-0025-30 ")
 ;;4468
 ;;21,"58864-0025-60 ")
 ;;4469
 ;;21,"58864-0103-15 ")
 ;;2258
 ;;21,"58864-0103-30 ")
 ;;2259
 ;;21,"58864-0103-60 ")
 ;;2260
 ;;21,"58864-0372-30 ")
 ;;3441
 ;;21,"58864-0616-15 ")
 ;;1310
 ;;21,"58864-0616-30 ")
 ;;1311
 ;;21,"58864-0625-30 ")
 ;;751
 ;;21,"58864-0625-60 ")
 ;;752
 ;;21,"58864-0627-15 ")
 ;;3841
 ;;21,"58864-0627-30 ")
 ;;3842
 ;;21,"58864-0628-15 ")
 ;;3640
 ;;21,"58864-0629-30 ")
 ;;4880
 ;;21,"58864-0696-30 ")
 ;;4703
 ;;21,"58864-0707-30 ")
 ;;4102
 ;;21,"58864-0715-30 ")
 ;;654
 ;;21,"58864-0716-15 ")
 ;;3641
 ;;21,"58864-0716-30 ")
 ;;3642
 ;;21,"58864-0741-15 ")
 ;;3442
 ;;21,"58864-0741-30 ")
 ;;3443
 ;;21,"58864-0756-30 ")
 ;;4592
 ;;21,"58864-0757-30 ")
 ;;163
 ;;21,"58864-0783-30 ")
 ;;4230
 ;;21,"58864-0794-30 ")
 ;;941
 ;;21,"58864-0808-90 ")
 ;;585
 ;;21,"58864-0812-15 ")
 ;;1312
 ;;21,"58864-0823-15 ")
 ;;2783
 ;;21,"58864-0823-30 ")
 ;;2784
 ;;21,"58864-0840-30 ")
 ;;753
 ;;21,"58864-0840-60 ")
 ;;655
 ;;21,"58864-0849-30 ")
 ;;1031
 ;;21,"58864-0852-30 ")
 ;;1179
 ;;21,"58864-0917-30 ")
 ;;2261
 ;;21,"59762-0119-01 ")
 ;;3686
 ;;21,"59762-0180-01 ")
 ;;4704
 ;;21,"59762-0180-02 ")
 ;;4705
 ;;21,"59762-0180-03 ")
 ;;4706
 ;;21,"59762-0180-04 ")
 ;;4707
 ;;21,"59762-0181-01 ")
 ;;4881
 ;;21,"59762-0181-02 ")
 ;;4882
 ;;21,"59762-0181-03 ")
 ;;4883
 ;;21,"59762-0181-04 ")
 ;;4884
 ;;21,"59762-0182-01 ")
 ;;4593
 ;;21,"59762-0182-02 ")
 ;;4594
 ;;21,"59762-0182-03 ")
 ;;4595
 ;;21,"59762-0182-04 ")
 ;;4596
 ;;21,"59762-1410-07 ")
 ;;2733
 ;;21,"59762-1412-07 ")
 ;;2826
 ;;21,"59762-1414-07 ")
 ;;2884
 ;;21,"59762-1415-03 ")
 ;;2889
 ;;21,"59762-1415-05 ")
 ;;2890
 ;;21,"59762-1415-06 ")
 ;;2891
 ;;21,"59762-1415-09 ")
 ;;2892
 ;;21,"59762-1416-03 ")
 ;;2696
 ;;21,"59762-1416-05 ")
 ;;2697
 ;;21,"59762-1416-06 ")
 ;;2698
 ;;21,"59762-1416-09 ")
 ;;2699
 ;;21,"59762-1417-03 ")
 ;;2785
 ;;21,"59762-1417-05 ")
 ;;2786
 ;;21,"59762-1417-06 ")
 ;;2787
 ;;21,"59762-1417-09 ")
 ;;2788
 ;;21,"59762-1418-03 ")
 ;;2861
 ;;21,"59762-1418-05 ")
 ;;2862
 ;;21,"59762-1418-06 ")
 ;;2863
 ;;21,"59762-1418-09 ")
 ;;2864
 ;;21,"59762-1808-01 ")
 ;;3269
 ;;21,"59762-1808-02 ")
 ;;3270
 ;;21,"59762-1808-03 ")
 ;;3271
 ;;21,"59762-1810-01 ")
 ;;3444
 ;;21,"59762-1810-02 ")
 ;;3445
 ;;21,"59762-1810-03 ")
 ;;3446
 ;;21,"59762-1810-04 ")
 ;;3447
 ;;21,"59762-1812-01 ")
 ;;3557
 ;;21,"59762-1812-02 ")
 ;;3558
 ;;21,"59762-1812-03 ")
 ;;3559
 ;;21,"59762-1815-01 ")
 ;;3643
 ;;21,"59762-1815-02 ")
 ;;3644
 ;;21,"59762-1815-03 ")
 ;;3645
 ;;21,"59762-3480-03 ")
 ;;4659
 ;;21,"59762-3481-02 ")
 ;;4780
 ;;21,"59762-3482-02 ")
 ;;4823
 ;;21,"59762-3483-02 ")
 ;;4980
 ;;21,"59762-3484-02 ")
 ;;4542
 ;;21,"59762-4800-01 ")
 ;;1032
 ;;21,"59762-4800-03 ")
 ;;1033
 ;;21,"59762-4800-05 ")
 ;;1034
 ;;21,"59762-4800-06 ")
 ;;1035
 ;;21,"59762-4801-01 ")
 ;;1180
 ;;21,"59762-4801-03 ")
 ;;1181
 ;;21,"59762-4801-05 ")
 ;;1182
 ;;21,"59762-4801-06 ")
 ;;1183
 ;;21,"59762-4802-01 ")
 ;;1313
 ;;21,"59762-4802-03 ")
 ;;1314
 ;;21,"59762-4802-05 ")
 ;;1315
 ;;21,"59762-4802-06 ")
 ;;1316
 ;;21,"59762-4900-01 ")
 ;;4103
 ;;21,"59762-4900-02 ")
 ;;4104
 ;;21,"59762-4900-03 ")
 ;;4105
 ;;21,"59762-4900-04 ")
 ;;4106
 ;;21,"59762-4900-05 ")
 ;;4107
 ;;21,"59762-4910-01 ")
 ;;3843
 ;;21,"59762-4910-02 ")
 ;;3844
 ;;21,"59762-4910-03 ")
 ;;3845
 ;;21,"59762-4910-04 ")
 ;;3846
 ;;21,"59762-4910-05 ")
 ;;3847
 ;;21,"59762-4940-01 ")
 ;;3887
 ;;21,"59762-4960-01 ")
 ;;3963
 ;;21,"59772-3171-01 ")
 ;;4316
 ;;21,"60258-0830-08 ")
 ;;1059
 ;;21,"60429-0016-12 ")
 ;;310
 ;;21,"60429-0016-18 ")
 ;;311
 ;;21,"60429-0016-30 ")
 ;;312
 ;;21,"60429-0016-60 ")
 ;;313
 ;;21,"60429-0016-90 ")
 ;;314
 ;;21,"60429-0017-30 ")
 ;;426
 ;;21,"60429-0173-01 ")
 ;;1036
 ;;21,"60429-0173-10 ")
 ;;1037
 ;;21,"60429-0173-30 ")
 ;;1038
 ;;21,"60429-0174-01 ")
 ;;1184
 ;;21,"60429-0174-10 ")
 ;;1185
 ;;21,"60429-0174-30 ")
 ;;1186
 ;;21,"60429-0175-01 ")
 ;;1317
 ;;21,"60429-0175-10 ")
 ;;1318
 ;;21,"60429-0175-30 ")
 ;;1319
 ;;21,"60429-0187-01 ")
 ;;4470
 ;;21,"60429-0187-05 ")
 ;;4471
 ;;21,"60429-0188-01 ")
 ;;4231
 ;;21,"60429-0188-05 ")
 ;;4232
 ;;21,"60429-0188-90 ")
 ;;4233
 ;;21,"60429-0230-01 ")
 ;;4317
 ;;21,"60429-0230-05 ")
 ;;4318
 ;;21,"60429-0230-30 ")
 ;;4319
 ;;21,"60429-0230-90 ")
 ;;4320
 ;;21,"60429-0287-30 ")
 ;;1356
 ;;21,"60429-0288-30 ")
 ;;1377
 ;;21,"60429-0718-18 ")
 ;;2031
 ;;21,"60429-0718-30 ")
 ;;2032
 ;;21,"60429-0718-60 ")
 ;;2033
 ;;21,"60429-0718-90 ")
 ;;2034
 ;;21,"60429-0719-18 ")
 ;;2262
 ;;21,"60429-0719-30 ")
 ;;2263
 ;;21,"60429-0719-60 ")
 ;;2264
 ;;21,"60429-0719-90 ")
 ;;2265
 ;;21,"60429-0734-05 ")
 ;;3272
 ;;21,"60429-0734-30 ")
 ;;3273
 ;;21,"60429-0734-90 ")
 ;;3274
 ;;21,"60429-0735-01 ")
 ;;3448
 ;;21,"60429-0735-05 ")
 ;;3449
 ;;21,"60429-0735-30 ")
 ;;3450
 ;;21,"60429-0735-90 ")
 ;;3451
 ;;21,"60429-0736-05 ")
 ;;3560
 ;;21,"60429-0736-30 ")
 ;;3561
 ;;21,"60429-0736-90 ")
 ;;3562
 ;;21,"60429-0737-05 ")
 ;;3646
 ;;21,"60429-0737-15 ")
 ;;3647
 ;;21,"60429-0737-30 ")
 ;;3648
 ;;21,"60429-0737-45 ")
 ;;3649
 ;;21,"60429-0737-90 ")
 ;;3650
 ;;21,"60429-0746-01 ")
 ;;942
 ;;21,"60429-0747-01 ")
 ;;586
 ;;21,"60429-0758-01 ")
 ;;2475
 ;;21,"60429-0759-01 ")
 ;;2490
 ;;21,"60429-0759-30 ")
 ;;2491
 ;;21,"60429-0759-90 ")
 ;;2492
 ;;21,"60429-0760-01 ")
 ;;2460
 ;;21,"60429-0760-30 ")
 ;;2461
 ;;21,"60429-0760-90 ")
 ;;2462
 ;;21,"60429-0930-01 ")
 ;;4321
 ;;21,"60429-0930-05 ")
 ;;4322
 ;;21,"60429-0930-30 ")
 ;;4323
 ;;21,"60429-0930-90 ")
 ;;4324
 ;;21,"60429-0946-01 ")
 ;;943
 ;;21,"60429-0946-05 ")
 ;;944
 ;;21,"60429-0947-01 ")
 ;;587
 ;;21,"60429-0947-05 ")
 ;;588
 ;;21,"60429-0987-01 ")
 ;;4472
 ;;21,"60429-0987-05 ")
 ;;4473
 ;;21,"60429-0987-30 ")
 ;;4474
 ;;21,"60429-0987-60 ")
 ;;4475
 ;;21,"60429-0987-90 ")
 ;;4476
 ;;21,"60429-0988-01 ")
 ;;4234
 ;;21,"60429-0988-05 ")
 ;;4235
 ;;21,"60429-0988-30 ")
 ;;4236
 ;;21,"60432-0162-04 ")
 ;;2354
 ;;21,"60432-0651-04 ")
 ;;1554
 ;;21,"60505-0083-01 ")
 ;;3452
 ;;21,"60505-0083-02 ")
 ;;3453
 ;;21,"60505-0083-04 ")
 ;;3454
 ;;21,"60505-0084-01 ")
 ;;3563
 ;;21,"60505-0084-02 ")
 ;;3564
 ;;21,"60505-0084-04 ")
 ;;3565
 ;;21,"60505-0097-01 ")
 ;;3275
 ;;21,"60505-0097-02 ")
 ;;3276
 ;;21,"60505-0097-04 ")
 ;;3277
 ;;21,"60505-0101-01 ")
 ;;3651
 ;;21,"60505-0101-02 ")
 ;;3652
 ;;21,"60505-0101-04 ")
 ;;3653
 ;;21,"60505-0157-01 ")
 ;;589
 ;;21,"60505-0157-05 ")
 ;;590
 ;;21,"60505-0157-09 ")
 ;;591
 ;;21,"60505-0158-01 ")
 ;;945
 ;;21,"60505-0158-05 ")
 ;;946
 ;;21,"60505-0158-09 ")
 ;;947
 ;;21,"60505-0164-01 ")
 ;;2476
 ;;21,"60505-0165-01 ")
 ;;2493
 ;;21,"60505-0166-01 ")
 ;;2463
 ;;21,"60505-0180-03 ")
 ;;3964
 ;;21,"60505-0180-08 ")
 ;;3965
 ;;21,"60505-0181-03 ")
 ;;4108
 ;;21,"60505-0181-08 ")
 ;;4109
 ;;21,"60505-0182-03 ")
 ;;3848
 ;;21,"60505-0182-08 ")
 ;;3849
 ;;21,"60505-0247-01 ")
 ;;2700
 ;;21,"60505-0247-08 ")
 ;;2701
 ;;21,"60505-0248-01 ")
 ;;2789
 ;;21,"60505-0248-08 ")
 ;;2790
 ;;21,"60505-0249-01 ")
 ;;2865
 ;;21,"60505-0249-08 ")
 ;;2866
 ;;21,"60505-0352-01 ")
 ;;2355
 ;;21,"60505-0374-01 ")
 ;;3301
 ;;21,"60505-0402-05 ")
 ;;3302
 ;;21,"60505-2518-01 ")
 ;;1039
 ;;21,"60505-2518-03 ")
 ;;1040
 ;;21,"60505-2518-04 ")
 ;;1041
 ;;21,"60505-2518-08 ")
 ;;1042
 ;;21,"60505-2519-01 ")
 ;;1187
 ;;21,"60505-2519-03 ")
 ;;1188
 ;;21,"60505-2519-04 ")
 ;;1189
 ;;21,"60505-2519-08 ")
 ;;1190
 ;;21,"60505-2520-01 ")
 ;;1320
 ;;21,"60505-2520-03 ")
 ;;1321
 ;;21,"60505-2520-04 ")
 ;;1322
 ;;21,"60505-2520-08 ")
 ;;1323
 ;;21,"60505-2653-00 ")
 ;;4477
 ;;21,"60505-2653-01 ")
 ;;4478
 ;;21,"60505-2653-05 ")
 ;;4479
 ;;21,"60505-2654-00 ")
 ;;4237
 ;;21,"60505-2654-01 ")
 ;;4238
 ;;21,"60505-2654-05 ")
 ;;4239
 ;;21,"60505-2655-01 ")
 ;;4325
 ;;21,"60505-2655-05 ")
 ;;4326
 ;;21,"60505-2659-01 ")
 ;;4363
 ;;21,"60505-3663-03 ")
 ;;3278
 ;;21,"60505-3664-03 ")
 ;;3455
 ;;21,"60505-3665-03 ")
 ;;3566