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

BGP13T11.m

Go to the documentation of this file.
BGP13T11 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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-0624-30 ")
 ;;4273
 ;;21,"58016-0624-60 ")
 ;;4274
 ;;21,"58016-0624-90 ")
 ;;4275
 ;;21,"58016-0661-00 ")
 ;;4027
 ;;21,"58016-0661-30 ")
 ;;4028
 ;;21,"58016-0661-60 ")
 ;;4029
 ;;21,"58016-0661-90 ")
 ;;4030
 ;;21,"58016-0663-00 ")
 ;;1761
 ;;21,"58016-0663-30 ")
 ;;1762
 ;;21,"58016-0663-60 ")
 ;;1763
 ;;21,"58016-0663-90 ")
 ;;1764
 ;;21,"58016-0664-00 ")
 ;;5347
 ;;21,"58016-0664-30 ")
 ;;5348
 ;;21,"58016-0664-60 ")
 ;;5349
 ;;21,"58016-0664-90 ")
 ;;5350
 ;;21,"58016-0668-00 ")
 ;;5351
 ;;21,"58016-0668-30 ")
 ;;5352
 ;;21,"58016-0668-60 ")
 ;;5353
 ;;21,"58016-0668-90 ")
 ;;5354
 ;;21,"58016-0671-00 ")
 ;;5214
 ;;21,"58016-0671-02 ")
 ;;5215
 ;;21,"58016-0671-03 ")
 ;;5216
 ;;21,"58016-0671-30 ")
 ;;5217
 ;;21,"58016-0671-60 ")
 ;;5218
 ;;21,"58016-0671-90 ")
 ;;5219
 ;;21,"58016-0701-00 ")
 ;;4847
 ;;21,"58016-0701-12 ")
 ;;4848
 ;;21,"58016-0701-15 ")
 ;;4849
 ;;21,"58016-0701-20 ")
 ;;4850
 ;;21,"58016-0701-30 ")
 ;;4851
 ;;21,"58016-0701-50 ")
 ;;4852
 ;;21,"58016-0701-60 ")
 ;;4853
 ;;21,"58016-0701-90 ")
 ;;4854
 ;;21,"58016-0704-00 ")
 ;;2472
 ;;21,"58016-0704-02 ")
 ;;2473
 ;;21,"58016-0704-03 ")
 ;;2474
 ;;21,"58016-0704-30 ")
 ;;2475
 ;;21,"58016-0704-60 ")
 ;;2476
 ;;21,"58016-0704-73 ")
 ;;2477
 ;;21,"58016-0704-89 ")
 ;;2478
 ;;21,"58016-0704-90 ")
 ;;2479
 ;;21,"58016-0710-00 ")
 ;;334
 ;;21,"58016-0710-30 ")
 ;;335
 ;;21,"58016-0710-60 ")
 ;;336
 ;;21,"58016-0710-90 ")
 ;;337
 ;;21,"58016-0710-99 ")
 ;;338
 ;;21,"58016-0722-00 ")
 ;;697
 ;;21,"58016-0722-02 ")
 ;;698
 ;;21,"58016-0722-03 ")
 ;;699
 ;;21,"58016-0722-20 ")
 ;;700
 ;;21,"58016-0722-30 ")
 ;;701
 ;;21,"58016-0722-40 ")
 ;;702
 ;;21,"58016-0722-50 ")
 ;;703
 ;;21,"58016-0722-60 ")
 ;;704
 ;;21,"58016-0722-70 ")
 ;;705
 ;;21,"58016-0722-73 ")
 ;;706
 ;;21,"58016-0722-80 ")
 ;;707
 ;;21,"58016-0722-89 ")
 ;;708
 ;;21,"58016-0722-90 ")
 ;;709
 ;;21,"58016-0723-00 ")
 ;;4276
 ;;21,"58016-0723-30 ")
 ;;4277
 ;;21,"58016-0723-60 ")
 ;;4278
 ;;21,"58016-0723-90 ")
 ;;4279
 ;;21,"58016-0731-00 ")
 ;;4031
 ;;21,"58016-0731-30 ")
 ;;4032
 ;;21,"58016-0731-60 ")
 ;;4033
 ;;21,"58016-0731-90 ")
 ;;4034
 ;;21,"58016-0732-00 ")
 ;;1396
 ;;21,"58016-0732-30 ")
 ;;1397
 ;;21,"58016-0732-60 ")
 ;;1398
 ;;21,"58016-0732-90 ")
 ;;1399
 ;;21,"58016-0735-00 ")
 ;;1400
 ;;21,"58016-0735-30 ")
 ;;1401
 ;;21,"58016-0735-60 ")
 ;;1402
 ;;21,"58016-0735-90 ")
 ;;1403
 ;;21,"58016-0742-00 ")
 ;;1404
 ;;21,"58016-0742-30 ")
 ;;1405
 ;;21,"58016-0742-60 ")
 ;;1406
 ;;21,"58016-0742-90 ")
 ;;1407
 ;;21,"58016-0749-00 ")
 ;;3804
 ;;21,"58016-0749-02 ")
 ;;3805
 ;;21,"58016-0749-30 ")
 ;;3806
 ;;21,"58016-0749-60 ")
 ;;3807
 ;;21,"58016-0749-90 ")
 ;;3808
 ;;21,"58016-0761-00 ")
 ;;4087
 ;;21,"58016-0761-30 ")
 ;;4088
 ;;21,"58016-0761-60 ")
 ;;4089
 ;;21,"58016-0761-90 ")
 ;;4090
 ;;21,"58016-0765-00 ")
 ;;2134
 ;;21,"58016-0765-30 ")
 ;;2135
 ;;21,"58016-0765-60 ")
 ;;2136
 ;;21,"58016-0765-90 ")
 ;;2137
 ;;21,"58016-0797-00 ")
 ;;1765
 ;;21,"58016-0797-30 ")
 ;;1766
 ;;21,"58016-0797-60 ")
 ;;1767
 ;;21,"58016-0797-90 ")
 ;;1768
 ;;21,"58016-0806-00 ")
 ;;4035
 ;;21,"58016-0806-30 ")
 ;;4036
 ;;21,"58016-0806-60 ")
 ;;4037
 ;;21,"58016-0806-90 ")
 ;;4038
 ;;21,"58016-0808-00 ")
 ;;339
 ;;21,"58016-0808-30 ")
 ;;340
 ;;21,"58016-0808-60 ")
 ;;341
 ;;21,"58016-0808-90 ")
 ;;342
 ;;21,"58016-0813-00 ")
 ;;343
 ;;21,"58016-0813-02 ")
 ;;344
 ;;21,"58016-0813-03 ")
 ;;345
 ;;21,"58016-0813-10 ")
 ;;346
 ;;21,"58016-0813-12 ")
 ;;347
 ;;21,"58016-0813-15 ")
 ;;348
 ;;21,"58016-0813-20 ")
 ;;349
 ;;21,"58016-0813-24 ")
 ;;350
 ;;21,"58016-0813-30 ")
 ;;351
 ;;21,"58016-0813-50 ")
 ;;352
 ;;21,"58016-0813-60 ")
 ;;353
 ;;21,"58016-0813-73 ")
 ;;354
 ;;21,"58016-0813-89 ")
 ;;355
 ;;21,"58016-0813-90 ")
 ;;356
 ;;21,"58016-0813-99 ")
 ;;357
 ;;21,"58016-0814-00 ")
 ;;358
 ;;21,"58016-0814-02 ")
 ;;359
 ;;21,"58016-0814-15 ")
 ;;360
 ;;21,"58016-0814-20 ")
 ;;361
 ;;21,"58016-0814-25 ")
 ;;362
 ;;21,"58016-0814-30 ")
 ;;363
 ;;21,"58016-0814-40 ")
 ;;364
 ;;21,"58016-0814-45 ")
 ;;365
 ;;21,"58016-0814-50 ")
 ;;366
 ;;21,"58016-0814-60 ")
 ;;367
 ;;21,"58016-0814-89 ")
 ;;368
 ;;21,"58016-0814-90 ")
 ;;369
 ;;21,"58016-0814-99 ")
 ;;370
 ;;21,"58016-0815-00 ")
 ;;371
 ;;21,"58016-0815-15 ")
 ;;372
 ;;21,"58016-0815-20 ")
 ;;373
 ;;21,"58016-0815-21 ")
 ;;374
 ;;21,"58016-0815-28 ")
 ;;375
 ;;21,"58016-0815-30 ")
 ;;376
 ;;21,"58016-0815-60 ")
 ;;377
 ;;21,"58016-0815-90 ")
 ;;378
 ;;21,"58016-0815-99 ")
 ;;379
 ;;21,"58016-0817-00 ")
 ;;3809
 ;;21,"58016-0817-02 ")
 ;;3810
 ;;21,"58016-0817-03 ")
 ;;3811
 ;;21,"58016-0817-30 ")
 ;;3812
 ;;21,"58016-0817-60 ")
 ;;3813
 ;;21,"58016-0817-90 ")
 ;;3814
 ;;21,"58016-0818-00 ")
 ;;3815
 ;;21,"58016-0818-02 ")
 ;;3816
 ;;21,"58016-0818-03 ")
 ;;3817
 ;;21,"58016-0818-30 ")
 ;;3818
 ;;21,"58016-0818-60 ")
 ;;3819
 ;;21,"58016-0818-90 ")
 ;;3820
 ;;21,"58016-0818-99 ")
 ;;3821
 ;;21,"58016-0828-10 ")
 ;;4214
 ;;21,"58016-0828-20 ")
 ;;4215
 ;;21,"58016-0828-30 ")
 ;;4216
 ;;21,"58016-0828-40 ")
 ;;4217
 ;;21,"58016-0828-60 ")
 ;;4218
 ;;21,"58016-0828-90 ")
 ;;4219
 ;;21,"58016-0833-00 ")
 ;;1769
 ;;21,"58016-0833-10 ")
 ;;1770
 ;;21,"58016-0833-12 ")
 ;;1771
 ;;21,"58016-0833-14 ")
 ;;1772
 ;;21,"58016-0833-15 ")
 ;;1773
 ;;21,"58016-0833-20 ")
 ;;1774
 ;;21,"58016-0833-21 ")
 ;;1775
 ;;21,"58016-0833-30 ")
 ;;1776
 ;;21,"58016-0833-40 ")
 ;;1777
 ;;21,"58016-0833-50 ")
 ;;1778
 ;;21,"58016-0833-60 ")
 ;;1779
 ;;21,"58016-0833-90 ")
 ;;1780
 ;;21,"58016-0834-00 ")
 ;;1781
 ;;21,"58016-0834-10 ")
 ;;1782
 ;;21,"58016-0834-14 ")
 ;;1783
 ;;21,"58016-0834-15 ")
 ;;1784
 ;;21,"58016-0834-20 ")
 ;;1785
 ;;21,"58016-0834-21 ")
 ;;1786
 ;;21,"58016-0834-30 ")
 ;;1787
 ;;21,"58016-0834-40 ")
 ;;1788
 ;;21,"58016-0834-50 ")
 ;;1789
 ;;21,"58016-0834-60 ")
 ;;1790
 ;;21,"58016-0834-90 ")
 ;;1791
 ;;21,"58016-0839-00 ")
 ;;2749
 ;;21,"58016-0839-02 ")
 ;;2750
 ;;21,"58016-0839-12 ")
 ;;2751
 ;;21,"58016-0839-15 ")
 ;;2752
 ;;21,"58016-0839-20 ")
 ;;2753
 ;;21,"58016-0839-30 ")
 ;;2754
 ;;21,"58016-0839-60 ")
 ;;2755
 ;;21,"58016-0839-90 ")
 ;;2756
 ;;21,"58016-0841-00 ")
 ;;2757
 ;;21,"58016-0841-02 ")
 ;;2758
 ;;21,"58016-0841-12 ")
 ;;2759
 ;;21,"58016-0841-15 ")
 ;;2760
 ;;21,"58016-0841-20 ")
 ;;2761
 ;;21,"58016-0841-30 ")
 ;;2762
 ;;21,"58016-0841-60 ")
 ;;2763
 ;;21,"58016-0841-90 ")
 ;;2764
 ;;21,"58016-0853-00 ")
 ;;1545
 ;;21,"58016-0853-02 ")
 ;;1546
 ;;21,"58016-0853-03 ")
 ;;1547
 ;;21,"58016-0853-14 ")
 ;;1548
 ;;21,"58016-0853-15 ")
 ;;1549
 ;;21,"58016-0853-20 ")
 ;;1550
 ;;21,"58016-0853-28 ")
 ;;1551
 ;;21,"58016-0853-30 ")
 ;;1552
 ;;21,"58016-0853-50 ")
 ;;1553
 ;;21,"58016-0853-60 ")
 ;;1554
 ;;21,"58016-0853-73 ")
 ;;1555
 ;;21,"58016-0853-89 ")
 ;;1556
 ;;21,"58016-0853-90 ")
 ;;1557
 ;;21,"58016-0858-00 ")
 ;;380
 ;;21,"58016-0858-14 ")
 ;;381
 ;;21,"58016-0858-21 ")
 ;;382
 ;;21,"58016-0858-28 ")
 ;;383
 ;;21,"58016-0858-30 ")
 ;;384
 ;;21,"58016-0858-40 ")
 ;;385
 ;;21,"58016-0858-50 ")
 ;;386
 ;;21,"58016-0858-60 ")
 ;;387
 ;;21,"58016-0858-99 ")
 ;;388
 ;;21,"58016-0862-00 ")
 ;;4855
 ;;21,"58016-0862-02 ")
 ;;4856
 ;;21,"58016-0862-03 ")
 ;;4857
 ;;21,"58016-0862-12 ")
 ;;4858
 ;;21,"58016-0862-15 ")
 ;;4859
 ;;21,"58016-0862-20 ")
 ;;4860
 ;;21,"58016-0862-30 ")
 ;;4861
 ;;21,"58016-0862-50 ")
 ;;4862
 ;;21,"58016-0862-60 ")
 ;;4863
 ;;21,"58016-0862-73 ")
 ;;4864
 ;;21,"58016-0862-89 ")
 ;;4865
 ;;21,"58016-0862-90 ")
 ;;4866
 ;;21,"58016-0866-00 ")
 ;;2765
 ;;21,"58016-0866-02 ")
 ;;2766
 ;;21,"58016-0866-12 ")
 ;;2767
 ;;21,"58016-0866-15 ")
 ;;2768
 ;;21,"58016-0866-20 ")
 ;;2769
 ;;21,"58016-0866-30 ")
 ;;2770
 ;;21,"58016-0866-60 ")
 ;;2771
 ;;21,"58016-0866-90 ")
 ;;2772
 ;;21,"58016-0875-00 ")
 ;;3485
 ;;21,"58016-0875-12 ")
 ;;3486
 ;;21,"58016-0875-15 ")
 ;;3487
 ;;21,"58016-0875-20 ")
 ;;3488
 ;;21,"58016-0875-30 ")
 ;;3489
 ;;21,"58016-0875-60 ")
 ;;3490
 ;;21,"58016-0880-00 ")
 ;;4867
 ;;21,"58016-0880-12 ")
 ;;4868
 ;;21,"58016-0880-15 ")
 ;;4869
 ;;21,"58016-0880-20 ")
 ;;4870
 ;;21,"58016-0880-30 ")
 ;;4871
 ;;21,"58016-0881-00 ")
 ;;834
 ;;21,"58016-0881-02 ")
 ;;835
 ;;21,"58016-0881-03 ")
 ;;836
 ;;21,"58016-0881-30 ")
 ;;837
 ;;21,"58016-0881-60 ")
 ;;838
 ;;21,"58016-0881-90 ")
 ;;839
 ;;21,"58016-0894-00 ")
 ;;3068
 ;;21,"58016-0894-02 ")
 ;;3069
 ;;21,"58016-0894-03 ")
 ;;3070
 ;;21,"58016-0894-30 ")
 ;;3071
 ;;21,"58016-0894-60 ")
 ;;3072
 ;;21,"58016-0894-90 ")
 ;;3073
 ;;21,"58016-0894-99 ")
 ;;3074
 ;;21,"58016-0897-00 ")
 ;;4091
 ;;21,"58016-0897-30 ")
 ;;4092
 ;;21,"58016-0897-60 ")
 ;;4093
 ;;21,"58016-0897-90 ")
 ;;4094
 ;;21,"58016-0905-00 ")
 ;;2480
 ;;21,"58016-0905-02 ")
 ;;2481
 ;;21,"58016-0905-03 ")
 ;;2482
 ;;21,"58016-0905-10 ")
 ;;2483
 ;;21,"58016-0905-20 ")
 ;;2484
 ;;21,"58016-0905-30 ")
 ;;2485
 ;;21,"58016-0905-60 ")
 ;;2486
 ;;21,"58016-0905-73 ")
 ;;2487
 ;;21,"58016-0905-89 ")
 ;;2488
 ;;21,"58016-0906-00 ")
 ;;2489
 ;;21,"58016-0906-02 ")
 ;;2490
 ;;21,"58016-0906-03 ")
 ;;2491
 ;;21,"58016-0906-30 ")
 ;;2492
 ;;21,"58016-0906-60 ")
 ;;2493
 ;;21,"58016-0906-73 ")
 ;;2494
 ;;21,"58016-0906-89 ")
 ;;2495
 ;;21,"58016-0906-90 ")
 ;;2496
 ;;21,"58016-0907-00 ")
 ;;4095
 ;;21,"58016-0907-30 ")
 ;;4096
 ;;21,"58016-0907-60 ")
 ;;4097
 ;;21,"58016-0907-90 ")
 ;;4098
 ;;21,"58016-0934-00 ")
 ;;3491
 ;;21,"58016-0934-12 ")
 ;;3492
 ;;21,"58016-0934-15 ")
 ;;3493
 ;;21,"58016-0934-20 ")
 ;;3494
 ;;21,"58016-0934-30 ")
 ;;3495
 ;;21,"58016-0945-00 ")
 ;;3496
 ;;21,"58016-0945-12 ")
 ;;3497
 ;;21,"58016-0945-15 ")
 ;;3498
 ;;21,"58016-0945-20 ")
 ;;3499
 ;;21,"58016-0945-30 ")
 ;;3500
 ;;21,"58016-0977-00 ")
 ;;2892
 ;;21,"58016-0977-02 ")
 ;;2893
 ;;21,"58016-0977-30 ")
 ;;2894
 ;;21,"58016-0977-60 ")
 ;;2895
 ;;21,"58016-0977-90 ")
 ;;2896
 ;;21,"58016-0986-00 ")
 ;;3075
 ;;21,"58016-0986-02 ")
 ;;3076
 ;;21,"58016-0986-03 ")
 ;;3077
 ;;21,"58016-0986-30 ")
 ;;3078
 ;;21,"58016-0986-60 ")
 ;;3079
 ;;21,"58016-0986-90 ")
 ;;3080
 ;;21,"58016-4825-01 ")
 ;;3081
 ;;21,"58016-4826-01 ")
 ;;3082
 ;;21,"58809-0717-01 ")
 ;;5022
 ;;21,"58864-0022-15 ")
 ;;389
 ;;21,"58864-0022-30 ")
 ;;390
 ;;21,"58864-0022-60 ")
 ;;391
 ;;21,"58864-0022-90 ")
 ;;392
 ;;21,"58864-0023-30 ")
 ;;393
 ;;21,"58864-0024-30 ")
 ;;394
 ;;21,"58864-0025-01 ")
 ;;4872
 ;;21,"58864-0025-14 ")
 ;;4873
 ;;21,"58864-0025-30 ")
 ;;4874
 ;;21,"58864-0025-60 ")
 ;;4875
 ;;21,"58864-0103-15 ")
 ;;2497
 ;;21,"58864-0103-30 ")
 ;;2498
 ;;21,"58864-0103-60 ")
 ;;2499
 ;;21,"58864-0372-30 ")
 ;;4039
 ;;21,"58864-0616-15 ")
 ;;948
 ;;21,"58864-0616-30 ")
 ;;949
 ;;21,"58864-0625-30 ")
 ;;5157
 ;;21,"58864-0625-60 ")
 ;;5158
 ;;21,"58864-0627-15 ")
 ;;5355
 ;;21,"58864-0627-30 ")
 ;;5356
 ;;21,"58864-0628-15 ")
 ;;4040
 ;;21,"58864-0629-30 ")
 ;;2138
 ;;21,"58864-0696-30 ")
 ;;2139
 ;;21,"58864-0707-30 ")
 ;;5357
 ;;21,"58864-0715-30 ")
 ;;5159
 ;;21,"58864-0716-15 ")
 ;;3822
 ;;21,"58864-0716-30 ")
 ;;3823
 ;;21,"58864-0741-15 ")
 ;;3824
 ;;21,"58864-0741-30 ")
 ;;3825
 ;;21,"58864-0756-30 ")
 ;;2140
 ;;21,"58864-0757-30 ")
 ;;395
 ;;21,"58864-0783-30 ")
 ;;4876
 ;;21,"58864-0794-30 ")
 ;;710
 ;;21,"58864-0808-90 ")
 ;;711
 ;;21,"58864-0812-15 ")
 ;;1222
 ;;21,"58864-0823-15 ")
 ;;3083
 ;;21,"58864-0823-30 ")
 ;;3084
 ;;21,"58864-0840-30 ")
 ;;840
 ;;21,"58864-0840-60 ")
 ;;841
 ;;21,"58864-0849-30 ")
 ;;950
 ;;21,"58864-0852-30 ")
 ;;951
 ;;21,"58864-0917-30 ")
 ;;4220
 ;;21,"59762-1410-07 ")
 ;;3085
 ;;21,"59762-1412-07 ")
 ;;3086
 ;;21,"59762-1414-07 ")
 ;;3087
 ;;21,"59762-1415-03 ")
 ;;3088
 ;;21,"59762-1415-05 ")
 ;;3089
 ;;21,"59762-1415-06 ")
 ;;3090