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

BGP51Q10.m

Go to the documentation of this file.
BGP51Q10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"63874-0514-60 ")
 ;;1556
 ;;21,"63874-0514-90 ")
 ;;1557
 ;;21,"63874-0522-01 ")
 ;;1427
 ;;21,"63874-0522-08 ")
 ;;1428
 ;;21,"63874-0522-10 ")
 ;;1429
 ;;21,"63874-0522-14 ")
 ;;1430
 ;;21,"63874-0522-15 ")
 ;;1431
 ;;21,"63874-0522-20 ")
 ;;1432
 ;;21,"63874-0522-21 ")
 ;;1433
 ;;21,"63874-0522-28 ")
 ;;1434
 ;;21,"63874-0522-30 ")
 ;;1435
 ;;21,"63874-0522-60 ")
 ;;1436
 ;;21,"63874-0522-90 ")
 ;;1437
 ;;21,"63874-0558-01 ")
 ;;1191
 ;;21,"63874-0558-10 ")
 ;;1192
 ;;21,"63874-0558-14 ")
 ;;1193
 ;;21,"63874-0558-16 ")
 ;;1194
 ;;21,"63874-0558-28 ")
 ;;1195
 ;;21,"63874-0558-30 ")
 ;;1196
 ;;21,"63874-0558-60 ")
 ;;1197
 ;;21,"63874-0558-90 ")
 ;;1198
 ;;21,"63874-0581-10 ")
 ;;2022
 ;;21,"63874-0581-30 ")
 ;;2023
 ;;21,"63874-0581-90 ")
 ;;2024
 ;;21,"63874-0618-10 ")
 ;;1893
 ;;21,"63874-0618-15 ")
 ;;1894
 ;;21,"63874-0618-30 ")
 ;;1895
 ;;21,"63874-0618-40 ")
 ;;1896
 ;;21,"63874-0618-60 ")
 ;;1897
 ;;21,"63874-0655-01 ")
 ;;631
 ;;21,"63874-0655-10 ")
 ;;632
 ;;21,"63874-0655-14 ")
 ;;633
 ;;21,"63874-0655-20 ")
 ;;634
 ;;21,"63874-0655-30 ")
 ;;635
 ;;21,"63874-0655-60 ")
 ;;636
 ;;21,"63874-0987-01 ")
 ;;743
 ;;21,"63874-0987-10 ")
 ;;744
 ;;21,"63874-0987-14 ")
 ;;745
 ;;21,"63874-0987-20 ")
 ;;746
 ;;21,"63874-0987-30 ")
 ;;747
 ;;21,"63874-0987-60 ")
 ;;748
 ;;21,"63874-1114-09 ")
 ;;1774
 ;;21,"63874-1123-01 ")
 ;;121
 ;;21,"63874-1123-03 ")
 ;;122
 ;;21,"64455-0140-30 ")
 ;;526
 ;;21,"64455-0140-90 ")
 ;;527
 ;;21,"64455-0141-10 ")
 ;;624
 ;;21,"64455-0141-30 ")
 ;;625
 ;;21,"64455-0141-90 ")
 ;;626
 ;;21,"64455-0142-10 ")
 ;;736
 ;;21,"64455-0142-30 ")
 ;;737
 ;;21,"64455-0142-90 ")
 ;;738
 ;;21,"64455-0143-10 ")
 ;;834
 ;;21,"64455-0143-30 ")
 ;;835
 ;;21,"64455-0143-90 ")
 ;;836
 ;;21,"64455-0146-01 ")
 ;;3389
 ;;21,"64679-0902-01 ")
 ;;282
 ;;21,"64679-0902-02 ")
 ;;283
 ;;21,"64679-0902-05 ")
 ;;284
 ;;21,"64679-0903-01 ")
 ;;335
 ;;21,"64679-0903-02 ")
 ;;336
 ;;21,"64679-0903-05 ")
 ;;337
 ;;21,"64679-0904-01 ")
 ;;428
 ;;21,"64679-0904-02 ")
 ;;429
 ;;21,"64679-0904-05 ")
 ;;430
 ;;21,"64679-0905-01 ")
 ;;463
 ;;21,"64679-0905-04 ")
 ;;464
 ;;21,"64679-0923-02 ")
 ;;502
 ;;21,"64679-0923-03 ")
 ;;503
 ;;21,"64679-0923-09 ")
 ;;504
 ;;21,"64679-0923-10 ")
 ;;505
 ;;21,"64679-0924-02 ")
 ;;528
 ;;21,"64679-0924-03 ")
 ;;529
 ;;21,"64679-0924-09 ")
 ;;530
 ;;21,"64679-0924-10 ")
 ;;531
 ;;21,"64679-0925-02 ")
 ;;627
 ;;21,"64679-0925-03 ")
 ;;628
 ;;21,"64679-0925-09 ")
 ;;629
 ;;21,"64679-0925-10 ")
 ;;630
 ;;21,"64679-0926-02 ")
 ;;739
 ;;21,"64679-0926-03 ")
 ;;740
 ;;21,"64679-0926-09 ")
 ;;741
 ;;21,"64679-0926-10 ")
 ;;742
 ;;21,"64679-0927-01 ")
 ;;1031
 ;;21,"64679-0927-02 ")
 ;;1032
 ;;21,"64679-0927-05 ")
 ;;1033
 ;;21,"64679-0927-09 ")
 ;;1034
 ;;21,"64679-0928-01 ")
 ;;1183
 ;;21,"64679-0928-05 ")
 ;;1184
 ;;21,"64679-0928-06 ")
 ;;1185
 ;;21,"64679-0928-10 ")
 ;;1186
 ;;21,"64679-0929-01 ")
 ;;1438
 ;;21,"64679-0929-05 ")
 ;;1439
 ;;21,"64679-0929-06 ")
 ;;1440
 ;;21,"64679-0929-10 ")
 ;;1441
 ;;21,"64679-0941-01 ")
 ;;1544
 ;;21,"64679-0941-05 ")
 ;;1545
 ;;21,"64679-0941-06 ")
 ;;1546
 ;;21,"64679-0941-10 ")
 ;;1547
 ;;21,"64679-0942-01 ")
 ;;1902
 ;;21,"64679-0942-02 ")
 ;;1903
 ;;21,"64679-0942-05 ")
 ;;1904
 ;;21,"64679-0942-09 ")
 ;;1905
 ;;21,"64679-0953-01 ")
 ;;1775
 ;;21,"64679-0953-02 ")
 ;;1776
 ;;21,"64679-0953-05 ")
 ;;1777
 ;;21,"64679-0953-09 ")
 ;;1778
 ;;21,"64764-0844-30 ")
 ;;2352
 ;;21,"64764-0884-30 ")
 ;;2353
 ;;21,"64764-0944-30 ")
 ;;3794
 ;;21,"64764-0994-30 ")
 ;;3795
 ;;21,"64980-0194-01 ")
 ;;3303
 ;;21,"64980-0195-01 ")
 ;;3316
 ;;21,"64980-0196-01 ")
 ;;3331
 ;;21,"65162-0751-10 ")
 ;;1
 ;;21,"65162-0751-50 ")
 ;;2
 ;;21,"65162-0752-10 ")
 ;;71
 ;;21,"65162-0752-50 ")
 ;;72
 ;;21,"65162-0753-10 ")
 ;;119
 ;;21,"65162-0753-50 ")
 ;;120
 ;;21,"65162-0754-10 ")
 ;;224
 ;;21,"65162-0754-50 ")
 ;;225
 ;;21,"65243-0303-03 ")
 ;;1187
 ;;21,"65243-0303-09 ")
 ;;1188
 ;;21,"65243-0303-15 ")
 ;;1189
 ;;21,"65243-0303-45 ")
 ;;1190
 ;;21,"65243-0314-03 ")
 ;;1898
 ;;21,"65243-0314-09 ")
 ;;1899
 ;;21,"65243-0314-18 ")
 ;;1900
 ;;21,"65243-0314-45 ")
 ;;1901
 ;;21,"65243-0341-09 ")
 ;;1541
 ;;21,"65243-0341-18 ")
 ;;1542
 ;;21,"65243-0341-45 ")
 ;;1543
 ;;21,"65243-0358-03 ")
 ;;1424
 ;;21,"65243-0358-09 ")
 ;;1425
 ;;21,"65243-0358-45 ")
 ;;1426
 ;;21,"65597-0101-30 ")
 ;;2849
 ;;21,"65597-0103-03 ")
 ;;2854
 ;;21,"65597-0103-06 ")
 ;;2855
 ;;21,"65597-0103-10 ")
 ;;2856
 ;;21,"65597-0103-30 ")
 ;;2857
 ;;21,"65597-0103-90 ")
 ;;2858
 ;;21,"65597-0104-03 ")
 ;;2884
 ;;21,"65597-0104-06 ")
 ;;2885
 ;;21,"65597-0104-10 ")
 ;;2886
 ;;21,"65597-0104-30 ")
 ;;2887
 ;;21,"65597-0104-90 ")
 ;;2888
 ;;21,"65597-0105-10 ")
 ;;4108
 ;;21,"65597-0105-30 ")
 ;;4109
 ;;21,"65597-0105-90 ")
 ;;4110
 ;;21,"65597-0106-10 ")
 ;;4118
 ;;21,"65597-0106-30 ")
 ;;4119
 ;;21,"65597-0106-90 ")
 ;;4120
 ;;21,"65597-0107-10 ")
 ;;4129
 ;;21,"65597-0107-30 ")
 ;;4130
 ;;21,"65597-0107-90 ")
 ;;4131
 ;;21,"65597-0110-10 ")
 ;;3752
 ;;21,"65597-0110-30 ")
 ;;3753
 ;;21,"65597-0110-90 ")
 ;;3754
 ;;21,"65597-0111-10 ")
 ;;3759
 ;;21,"65597-0111-30 ")
 ;;3760
 ;;21,"65597-0111-90 ")
 ;;3761
 ;;21,"65597-0112-10 ")
 ;;3756
 ;;21,"65597-0112-30 ")
 ;;3757
 ;;21,"65597-0112-90 ")
 ;;3758
 ;;21,"65597-0113-10 ")
 ;;3763
 ;;21,"65597-0113-30 ")
 ;;3764
 ;;21,"65597-0113-90 ")
 ;;3765
 ;;21,"65597-0114-30 ")
 ;;4388
 ;;21,"65597-0114-90 ")
 ;;4389
 ;;21,"65597-0115-30 ")
 ;;4390
 ;;21,"65597-0115-90 ")
 ;;4391
 ;;21,"65597-0116-30 ")
 ;;4392
 ;;21,"65597-0116-90 ")
 ;;4393
 ;;21,"65597-0117-30 ")
 ;;4394
 ;;21,"65597-0117-90 ")
 ;;4395
 ;;21,"65597-0118-30 ")
 ;;4396
 ;;21,"65597-0118-90 ")
 ;;4397
 ;;21,"65862-0037-01 ")
 ;;1028
 ;;21,"65862-0037-05 ")
 ;;1029
 ;;21,"65862-0037-99 ")
 ;;1030
 ;;21,"65862-0038-01 ")
 ;;1199
 ;;21,"65862-0038-05 ")
 ;;1200
 ;;21,"65862-0038-99 ")
 ;;1201
 ;;21,"65862-0039-01 ")
 ;;1421
 ;;21,"65862-0039-05 ")
 ;;1422
 ;;21,"65862-0039-99 ")
 ;;1423
 ;;21,"65862-0040-01 ")
 ;;1538
 ;;21,"65862-0040-05 ")
 ;;1539
 ;;21,"65862-0040-99 ")
 ;;1540
 ;;21,"65862-0041-01 ")
 ;;1779
 ;;21,"65862-0041-05 ")
 ;;1780
 ;;21,"65862-0041-99 ")
 ;;1781
 ;;21,"65862-0042-01 ")
 ;;1890
 ;;21,"65862-0042-05 ")
 ;;1891
 ;;21,"65862-0042-99 ")
 ;;1892
 ;;21,"65862-0043-01 ")
 ;;3457
 ;;21,"65862-0043-05 ")
 ;;3458
 ;;21,"65862-0044-01 ")
 ;;3587
 ;;21,"65862-0044-05 ")
 ;;3588
 ;;21,"65862-0045-01 ")
 ;;3643
 ;;21,"65862-0045-05 ")
 ;;3644
 ;;21,"65862-0116-01 ")
 ;;73
 ;;21,"65862-0117-01 ")
 ;;118
 ;;21,"65862-0118-01 ")
 ;;226
 ;;21,"65862-0161-90 ")
 ;;3723
 ;;21,"65862-0162-30 ")
 ;;3728
 ;;21,"65862-0162-90 ")
 ;;3729
 ;;21,"65862-0163-90 ")
 ;;3751
 ;;21,"65862-0164-01 ")
 ;;2313
 ;;21,"65862-0165-01 ")
 ;;2329
 ;;21,"65862-0166-01 ")
 ;;2351
 ;;21,"65862-0201-90 ")
 ;;2608
 ;;21,"65862-0201-99 ")
 ;;2609
 ;;21,"65862-0202-30 ")
 ;;2660
 ;;21,"65862-0202-90 ")
 ;;2661
 ;;21,"65862-0202-99 ")
 ;;2662
 ;;21,"65862-0203-30 ")
 ;;2788
 ;;21,"65862-0203-90 ")
 ;;2789
 ;;21,"65862-0203-99 ")
 ;;2790
 ;;21,"65862-0286-01 ")
 ;;1988
 ;;21,"65862-0287-01 ")
 ;;1992
 ;;21,"65862-0288-01 ")
 ;;1999
 ;;21,"65862-0308-01 ")
 ;;3401
 ;;21,"65862-0309-01 ")
 ;;3410
 ;;21,"65862-0468-30 ")
 ;;3947
 ;;21,"65862-0468-90 ")
 ;;3948
 ;;21,"65862-0468-99 ")
 ;;3949
 ;;21,"65862-0469-30 ")
 ;;4016
 ;;21,"65862-0469-90 ")
 ;;4017
 ;;21,"65862-0469-99 ")
 ;;4018
 ;;21,"65862-0470-30 ")
 ;;4079
 ;;21,"65862-0470-90 ")
 ;;4080
 ;;21,"65862-0470-99 ")
 ;;4081
 ;;21,"65862-0471-90 ")
 ;;864
 ;;21,"65862-0472-90 ")
 ;;940
 ;;21,"65862-0473-90 ")
 ;;971
 ;;21,"65862-0474-01 ")
 ;;2137
 ;;21,"65862-0474-30 ")
 ;;2138
 ;;21,"65862-0475-01 ")
 ;;2164
 ;;21,"65862-0475-05 ")
 ;;2165
 ;;21,"65862-0476-01 ")
 ;;2244
 ;;21,"65862-0476-05 ")
 ;;2245
 ;;21,"65862-0477-01 ")
 ;;2284
 ;;21,"65862-0477-05 ")
 ;;2285
 ;;21,"65862-0547-90 ")
 ;;4189
 ;;21,"65862-0547-99 ")
 ;;4190
 ;;21,"65862-0548-90 ")
 ;;4244
 ;;21,"65862-0548-99 ")
 ;;4245
 ;;21,"65862-0549-90 ")
 ;;4301
 ;;21,"65862-0549-99 ")
 ;;4302
 ;;21,"65862-0550-05 ")
 ;;4336
 ;;21,"65862-0550-90 ")
 ;;4337
 ;;21,"65862-0551-05 ")
 ;;4371
 ;;21,"65862-0551-90 ")
 ;;4372
 ;;21,"65862-0582-01 ")
 ;;3030
 ;;21,"65862-0582-05 ")
 ;;3031
 ;;21,"65862-0583-01 ")
 ;;3062
 ;;21,"65862-0583-05 ")
 ;;3063
 ;;21,"65862-0584-01 ")
 ;;3127
 ;;21,"65862-0584-05 ")
 ;;3128
 ;;21,"65862-0585-01 ")
 ;;3154
 ;;21,"65862-0585-05 ")
 ;;3155
 ;;21,"65862-0586-01 ")
 ;;3214
 ;;21,"65862-0586-05 ")
 ;;3215
 ;;21,"65862-0587-01 ")
 ;;3246
 ;;21,"65862-0587-05 ")
 ;;3247
 ;;21,"65862-0617-90 ")
 ;;2016
 ;;21,"65862-0618-90 ")
 ;;2047
 ;;21,"65862-0619-90 ")
 ;;2082
 ;;21,"65862-0620-90 ")
 ;;2108
 ;;21,"65862-0637-30 ")
 ;;2413
 ;;21,"65862-0637-90 ")
 ;;2414
 ;;21,"65862-0638-05 ")
 ;;2473
 ;;21,"65862-0638-30 ")
 ;;2474
 ;;21,"65862-0638-90 ")
 ;;2475
 ;;21,"65862-0639-05 ")
 ;;2534
 ;;21,"65862-0639-30 ")
 ;;2535
 ;;21,"65862-0639-90 ")
 ;;2536
 ;;21,"66105-0503-01 ")
 ;;2457
 ;;21,"66105-0503-03 ")
 ;;2458
 ;;21,"66105-0503-06 ")
 ;;2459
 ;;21,"66105-0503-09 ")
 ;;2460
 ;;21,"66105-0503-15 ")
 ;;2461
 ;;21,"66105-0504-01 ")
 ;;2516
 ;;21,"66105-0504-03 ")
 ;;2517
 ;;21,"66105-0504-06 ")
 ;;2518
 ;;21,"66105-0504-09 ")
 ;;2519
 ;;21,"66105-0504-15 ")
 ;;2520
 ;;21,"66105-0545-01 ")
 ;;4225
 ;;21,"66105-0545-03 ")
 ;;4226
 ;;21,"66105-0545-06 ")
 ;;4227
 ;;21,"66105-0545-09 ")
 ;;4228
 ;;21,"66105-0545-10 ")
 ;;4229
 ;;21,"66105-0553-03 ")
 ;;2650
 ;;21,"66105-0663-03 ")
 ;;4035
 ;;21,"66105-0669-03 ")
 ;;3911
 ;;21,"66105-0842-03 ")
 ;;2904
 ;;21,"66105-0842-06 ")
 ;;2905
 ;;21,"66105-0842-09 ")
 ;;2906
 ;;21,"66105-0842-10 ")
 ;;2907
 ;;21,"66105-0842-28 ")
 ;;2908
 ;;21,"66116-0237-30 ")
 ;;92
 ;;21,"66116-0279-30 ")
 ;;1487
 ;;21,"66116-0435-30 ")
 ;;641
 ;;21,"66116-0436-30 ")
 ;;549
 ;;21,"66267-0253-30 ")
 ;;623
 ;;21,"66267-0323-30 ")
 ;;637
 ;;21,"66267-0323-60 ")
 ;;638
 ;;21,"66267-0323-90 ")
 ;;639
 ;;21,"66267-0323-91 ")
 ;;640
 ;;21,"66267-0380-30 ")
 ;;756
 ;;21,"66267-0380-60 ")
 ;;757
 ;;21,"66267-0380-90 ")
 ;;758
 ;;21,"66267-0380-91 ")
 ;;759
 ;;21,"66267-0413-30 ")
 ;;550
 ;;21,"66267-0413-60 ")
 ;;551
 ;;21,"66267-0413-90 ")
 ;;552
 ;;21,"66267-0413-92 ")
 ;;553
 ;;21,"66267-0523-30 ")
 ;;2945
 ;;21,"66267-0523-60 ")
 ;;2946
 ;;21,"66267-0570-30 ")
 ;;1558
 ;;21,"66267-0577-30 ")
 ;;1420
 ;;21,"66267-0583-30 ")
 ;;1909
 ;;21,"66267-0751-30 ")
 ;;3465
 ;;21,"66267-0751-90 ")
 ;;3466
 ;;21,"66267-0752-30 ")
 ;;3572
 ;;21,"66267-0752-90 ")
 ;;3573
 ;;21,"66267-1009-00 ")
 ;;642
 ;;21,"66336-0124-30 ")
 ;;222
 ;;21,"66336-0124-90 ")
 ;;223
 ;;21,"66336-0169-30 ")
 ;;2947
 ;;21,"66336-0232-30 ")
 ;;3
 ;;21,"66336-0387-30 ")
 ;;2968
 ;;21,"66336-0387-90 ")
 ;;2969
 ;;21,"66336-0389-30 ")
 ;;645
 ;;21,"66336-0389-60 ")
 ;;646
 ;;21,"66336-0389-90 ")
 ;;647
 ;;21,"66336-0391-30 ")
 ;;546
 ;;21,"66336-0391-60 ")
 ;;547
 ;;21,"66336-0391-90 ")
 ;;548
 ;;21,"66336-0393-30 ")
 ;;753
 ;;21,"66336-0393-60 ")
 ;;754
 ;;21,"66336-0393-90 ")
 ;;755
 ;;21,"66336-0572-30 ")
 ;;3463
 ;;21,"66336-0572-90 ")
 ;;3464
 ;;21,"66336-0618-60 ")
 ;;285
 ;;21,"66336-0665-15 ")
 ;;2653
 ;;21,"66336-0665-30 ")
 ;;2654
 ;;21,"66336-0665-90 ")
 ;;2655
 ;;21,"66336-0666-30 ")
 ;;2606
 ;;21,"66336-0666-90 ")
 ;;2607
 ;;21,"66336-0672-60 ")
 ;;1396
 ;;21,"66336-0691-30 ")
 ;;123
 ;;21,"66336-0691-90 ")
 ;;124
 ;;21,"66336-0741-30 ")
 ;;1562
 ;;21,"66336-0741-60 ")
 ;;1563
 ;;21,"66336-0741-62 ")
 ;;1564
 ;;21,"66336-0741-90 ")
 ;;1565
 ;;21,"66336-0750-30 ")
 ;;431
 ;;21,"66336-0750-60 ")
 ;;432
 ;;21,"66336-0750-90 ")
 ;;433
 ;;21,"66336-0773-30 ")
 ;;68
 ;;21,"66336-0773-60 ")
 ;;69
 ;;21,"66336-0773-90 ")
 ;;70
 ;;21,"66336-0794-60 ")
 ;;462
 ;;21,"66336-0805-30 ")
 ;;3574
 ;;21,"66336-0805-90 ")
 ;;3575
 ;;21,"66336-0810-30 ")
 ;;3651
 ;;21,"66336-0810-90 ")
 ;;3652
 ;;21,"66336-0867-30 ")
 ;;1916
 ;;21,"66336-0867-90 ")
 ;;1917
 ;;21,"66336-0946-30 ")
 ;;332
 ;;21,"66336-0946-60 ")
 ;;333
 ;;21,"66336-0946-90 ")
 ;;334
 ;;21,"66336-0972-30 ")
 ;;1406
 ;;21,"66336-0972-62 ")
 ;;1407
 ;;21,"66336-0972-90 ")
 ;;1408
 ;;21,"66685-0302-00 ")
 ;;544
 ;;21,"66685-0302-02 ")
 ;;545
 ;;21,"66685-0303-00 ")
 ;;643
 ;;21,"66685-0303-02 ")
 ;;644
 ;;21,"66685-0304-00 ")
 ;;751
 ;;21,"66685-0304-02 ")
 ;;752
 ;;21,"66685-0701-01 ")
 ;;1024
 ;;21,"66685-0701-02 ")
 ;;1025
 ;;21,"66685-0702-01 ")
 ;;1209
 ;;21,"66685-0702-02 ")
 ;;1210
 ;;21,"66685-0702-03 ")
 ;;1211