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

BGP13X5.m

Go to the documentation of this file.
BGP13X5 ; 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,"43063-0171-14 ")
 ;;41
 ;;21,"43063-0232-30 ")
 ;;22
 ;;21,"43063-0232-60 ")
 ;;23
 ;;21,"43063-0233-60 ")
 ;;73
 ;;21,"43063-0234-60 ")
 ;;107
 ;;21,"43353-0045-80 ")
 ;;1207
 ;;21,"43353-0313-15 ")
 ;;2211
 ;;21,"43353-0313-60 ")
 ;;2212
 ;;21,"43353-0318-60 ")
 ;;530
 ;;21,"43353-0350-30 ")
 ;;2468
 ;;21,"43353-0350-45 ")
 ;;2469
 ;;21,"43353-0350-60 ")
 ;;2470
 ;;21,"43353-0350-80 ")
 ;;2471
 ;;21,"43353-0365-15 ")
 ;;2631
 ;;21,"43353-0365-30 ")
 ;;2632
 ;;21,"43353-0365-45 ")
 ;;2633
 ;;21,"43353-0365-60 ")
 ;;2634
 ;;21,"43353-0371-45 ")
 ;;2213
 ;;21,"43353-0371-60 ")
 ;;2214
 ;;21,"43353-0411-60 ")
 ;;2472
 ;;21,"43353-0459-45 ")
 ;;3599
 ;;21,"43353-0488-45 ")
 ;;2635
 ;;21,"43353-0488-60 ")
 ;;2636
 ;;21,"43353-0516-45 ")
 ;;2473
 ;;21,"43353-0521-60 ")
 ;;1428
 ;;21,"43353-0521-80 ")
 ;;1429
 ;;21,"43353-0596-30 ")
 ;;374
 ;;21,"43353-0596-60 ")
 ;;375
 ;;21,"43353-0626-60 ")
 ;;531
 ;;21,"43353-0643-60 ")
 ;;2138
 ;;21,"43353-0667-60 ")
 ;;3678
 ;;21,"43353-0668-45 ")
 ;;3625
 ;;21,"43683-0147-30 ")
 ;;2055
 ;;21,"43683-0148-30 ")
 ;;532
 ;;21,"49158-0500-01 ")
 ;;1338
 ;;21,"49158-0500-10 ")
 ;;1339
 ;;21,"49158-0501-01 ")
 ;;1562
 ;;21,"49158-0501-10 ")
 ;;1563
 ;;21,"49158-0502-01 ")
 ;;1208
 ;;21,"49158-0502-10 ")
 ;;1209
 ;;21,"49158-0503-01 ")
 ;;1430
 ;;21,"49158-0503-10 ")
 ;;1431
 ;;21,"49848-0008-90 ")
 ;;3657
 ;;21,"49884-0556-01 ")
 ;;2091
 ;;21,"49884-0556-10 ")
 ;;2092
 ;;21,"49884-0557-01 ")
 ;;2637
 ;;21,"49884-0557-10 ")
 ;;2638
 ;;21,"49884-0558-01 ")
 ;;1907
 ;;21,"49884-0558-10 ")
 ;;1908
 ;;21,"49884-0559-01 ")
 ;;2215
 ;;21,"49884-0559-10 ")
 ;;2216
 ;;21,"49884-0560-01 ")
 ;;2474
 ;;21,"49884-0560-10 ")
 ;;2475
 ;;21,"49884-0591-01 ")
 ;;1340
 ;;21,"49884-0591-10 ")
 ;;1341
 ;;21,"49884-0592-01 ")
 ;;1564
 ;;21,"49884-0592-10 ")
 ;;1565
 ;;21,"49884-0593-01 ")
 ;;1210
 ;;21,"49884-0593-10 ")
 ;;1211
 ;;21,"49884-0594-01 ")
 ;;1432
 ;;21,"49884-0594-10 ")
 ;;1433
 ;;21,"49884-0619-01 ")
 ;;901
 ;;21,"49884-0619-10 ")
 ;;902
 ;;21,"49884-0620-01 ")
 ;;974
 ;;21,"49884-0620-10 ")
 ;;975
 ;;21,"49884-0621-01 ")
 ;;1094
 ;;21,"49884-0621-10 ")
 ;;1095
 ;;21,"49884-0622-01 ")
 ;;855
 ;;21,"49884-0635-01 ")
 ;;2380
 ;;21,"49884-0635-10 ")
 ;;2381
 ;;21,"49884-0686-01 ")
 ;;284
 ;;21,"49884-0687-01 ")
 ;;261
 ;;21,"49884-0793-01 ")
 ;;903
 ;;21,"49884-0793-74 ")
 ;;904
 ;;21,"49884-0794-01 ")
 ;;976
 ;;21,"49884-0794-10 ")
 ;;977
 ;;21,"49884-0794-74 ")
 ;;978
 ;;21,"49884-0795-01 ")
 ;;1096
 ;;21,"49884-0795-10 ")
 ;;1097
 ;;21,"49884-0795-74 ")
 ;;1098
 ;;21,"49884-0796-01 ")
 ;;856
 ;;21,"49884-0815-01 ")
 ;;223
 ;;21,"49884-0816-01 ")
 ;;230
 ;;21,"49884-0817-01 ")
 ;;237
 ;;21,"49884-0818-01 ")
 ;;244
 ;;21,"49884-0861-01 ")
 ;;216
 ;;21,"49884-0862-01 ")
 ;;156
 ;;21,"49884-0863-01 ")
 ;;175
 ;;21,"49884-0864-01 ")
 ;;200
 ;;21,"49884-0990-09 ")
 ;;2848
 ;;21,"49884-0991-09 ")
 ;;2878
 ;;21,"49884-0992-09 ")
 ;;2907
 ;;21,"49884-0993-09 ")
 ;;2817
 ;;21,"49999-0105-00 ")
 ;;979
 ;;21,"49999-0105-10 ")
 ;;980
 ;;21,"49999-0105-30 ")
 ;;981
 ;;21,"49999-0105-60 ")
 ;;982
 ;;21,"49999-0182-10 ")
 ;;1909
 ;;21,"49999-0182-30 ")
 ;;1910
 ;;21,"49999-0182-60 ")
 ;;1911
 ;;21,"49999-0183-10 ")
 ;;2217
 ;;21,"49999-0183-30 ")
 ;;2218
 ;;21,"49999-0183-60 ")
 ;;2219
 ;;21,"49999-0183-90 ")
 ;;2220
 ;;21,"49999-0239-00 ")
 ;;1566
 ;;21,"49999-0239-30 ")
 ;;1567
 ;;21,"49999-0239-60 ")
 ;;1568
 ;;21,"49999-0240-00 ")
 ;;1212
 ;;21,"49999-0240-30 ")
 ;;1213
 ;;21,"49999-0287-30 ")
 ;;690
 ;;21,"49999-0294-30 ")
 ;;3139
 ;;21,"49999-0295-00 ")
 ;;2639
 ;;21,"49999-0295-10 ")
 ;;2640
 ;;21,"49999-0295-30 ")
 ;;2641
 ;;21,"49999-0305-30 ")
 ;;3501
 ;;21,"49999-0321-00 ")
 ;;501
 ;;21,"49999-0321-30 ")
 ;;502
 ;;21,"49999-0321-60 ")
 ;;503
 ;;21,"49999-0345-00 ")
 ;;1434
 ;;21,"49999-0345-30 ")
 ;;1435
 ;;21,"49999-0469-10 ")
 ;;2476
 ;;21,"49999-0469-30 ")
 ;;2477
 ;;21,"49999-0469-60 ")
 ;;2478
 ;;21,"49999-0469-90 ")
 ;;2479
 ;;21,"49999-0511-30 ")
 ;;1099
 ;;21,"49999-0511-60 ")
 ;;1100
 ;;21,"49999-0543-00 ")
 ;;3873
 ;;21,"49999-0543-30 ")
 ;;3874
 ;;21,"49999-0759-30 ")
 ;;691
 ;;21,"49999-0761-00 ")
 ;;342
 ;;21,"49999-0761-30 ")
 ;;343
 ;;21,"49999-0815-30 ")
 ;;3767
 ;;21,"49999-0815-90 ")
 ;;3768
 ;;21,"49999-0823-00 ")
 ;;262
 ;;21,"49999-0870-00 ")
 ;;2382
 ;;21,"49999-0871-30 ")
 ;;2956
 ;;21,"49999-0871-90 ")
 ;;2957
 ;;21,"49999-0877-00 ")
 ;;3835
 ;;21,"49999-0877-30 ")
 ;;3836
 ;;21,"49999-0877-90 ")
 ;;3837
 ;;21,"49999-0878-00 ")
 ;;3887
 ;;21,"49999-0878-30 ")
 ;;3888
 ;;21,"49999-0878-90 ")
 ;;3889
 ;;21,"49999-0879-00 ")
 ;;3449
 ;;21,"49999-0879-30 ")
 ;;3450
 ;;21,"49999-0880-00 ")
 ;;3482
 ;;21,"49999-0880-30 ")
 ;;3483
 ;;21,"49999-0880-90 ")
 ;;3484
 ;;21,"49999-0924-00 ")
 ;;416
 ;;21,"49999-0924-10 ")
 ;;417
 ;;21,"49999-0924-30 ")
 ;;418
 ;;21,"49999-0924-60 ")
 ;;419
 ;;21,"49999-0934-30 ")
 ;;3051
 ;;21,"49999-0940-30 ")
 ;;3703
 ;;21,"49999-0940-90 ")
 ;;3704
 ;;21,"49999-0943-00 ")
 ;;3420
 ;;21,"49999-0943-90 ")
 ;;3421
 ;;21,"49999-0946-30 ")
 ;;7
 ;;21,"49999-0947-30 ")
 ;;56
 ;;21,"49999-0948-30 ")
 ;;88
 ;;21,"49999-0988-30 ")
 ;;3514
 ;;21,"49999-0991-90 ")
 ;;3600
 ;;21,"50111-0891-01 ")
 ;;1342
 ;;21,"50111-0891-03 ")
 ;;1343
 ;;21,"50111-0892-01 ")
 ;;1569
 ;;21,"50111-0892-03 ")
 ;;1570
 ;;21,"50111-0893-01 ")
 ;;1214
 ;;21,"50111-0893-03 ")
 ;;1215
 ;;21,"50111-0894-01 ")
 ;;1436
 ;;21,"50111-0894-03 ")
 ;;1437
 ;;21,"51079-0145-01 ")
 ;;615
 ;;21,"51079-0145-20 ")
 ;;616
 ;;21,"51079-0146-01 ")
 ;;692
 ;;21,"51079-0146-20 ")
 ;;693
 ;;21,"51079-0256-40 ")
 ;;2139
 ;;21,"51079-0261-40 ")
 ;;2413
 ;;21,"51079-0697-40 ")
 ;;376
 ;;21,"51079-0698-40 ")
 ;;463
 ;;21,"51079-0699-40 ")
 ;;533
 ;;21,"51079-0750-01 ")
 ;;3679
 ;;21,"51079-0750-20 ")
 ;;3680
 ;;21,"51079-0751-01 ")
 ;;3739
 ;;21,"51079-0751-20 ")
 ;;3740
 ;;21,"51079-0752-01 ")
 ;;3626
 ;;21,"51079-0752-20 ")
 ;;3627
 ;;21,"51079-0757-01 ")
 ;;3348
 ;;21,"51079-0757-20 ")
 ;;3349
 ;;21,"51079-0863-01 ")
 ;;905
 ;;21,"51079-0863-20 ")
 ;;906
 ;;21,"51079-0864-01 ")
 ;;983
 ;;21,"51079-0864-20 ")
 ;;984
 ;;21,"51079-0950-01 ")
 ;;1344
 ;;21,"51079-0950-20 ")
 ;;1345
 ;;21,"51079-0951-01 ")
 ;;1571
 ;;21,"51079-0951-20 ")
 ;;1572
 ;;21,"51079-0952-01 ")
 ;;1216
 ;;21,"51079-0952-20 ")
 ;;1217
 ;;21,"51079-0953-01 ")
 ;;1438
 ;;21,"51079-0953-20 ")
 ;;1439
 ;;21,"51079-0977-20 ")
 ;;263
 ;;21,"51079-0981-01 ")
 ;;2642
 ;;21,"51079-0981-20 ")
 ;;2643
 ;;21,"51079-0981-30 ")
 ;;2644
 ;;21,"51079-0981-40 ")
 ;;2762
 ;;21,"51079-0981-56 ")
 ;;2645
 ;;21,"51079-0981-57 ")
 ;;2646
 ;;21,"51079-0981-60 ")
 ;;2763
 ;;21,"51079-0982-01 ")
 ;;1912
 ;;21,"51079-0982-17 ")
 ;;1913
 ;;21,"51079-0982-19 ")
 ;;1914
 ;;21,"51079-0982-20 ")
 ;;1915
 ;;21,"51079-0982-30 ")
 ;;1916
 ;;21,"51079-0982-40 ")
 ;;2056
 ;;21,"51079-0982-56 ")
 ;;1917
 ;;21,"51079-0982-57 ")
 ;;1918
 ;;21,"51079-0982-60 ")
 ;;2057
 ;;21,"51079-0983-01 ")
 ;;2221
 ;;21,"51079-0983-17 ")
 ;;2222
 ;;21,"51079-0983-19 ")
 ;;2223
 ;;21,"51079-0983-20 ")
 ;;2224
 ;;21,"51079-0983-30 ")
 ;;2225
 ;;21,"51079-0983-40 ")
 ;;2350
 ;;21,"51079-0983-56 ")
 ;;2226
 ;;21,"51079-0983-57 ")
 ;;2227
 ;;21,"51079-0983-60 ")
 ;;2351
 ;;21,"51079-0984-01 ")
 ;;2480
 ;;21,"51079-0984-20 ")
 ;;2481
 ;;21,"51079-0984-40 ")
 ;;2568
 ;;21,"51079-0984-50 ")
 ;;2569
 ;;21,"51655-0278-25 ")
 ;;1101
 ;;21,"51655-0279-24 ")
 ;;857
 ;;21,"51655-0286-24 ")
 ;;1573
 ;;21,"51655-0287-24 ")
 ;;1218
 ;;21,"51655-0311-25 ")
 ;;985
 ;;21,"51655-0975-24 ")
 ;;907
 ;;21,"51672-4037-01 ")
 ;;1346
 ;;21,"51672-4037-03 ")
 ;;1347
 ;;21,"51672-4038-01 ")
 ;;1574
 ;;21,"51672-4038-03 ")
 ;;1575
 ;;21,"51672-4039-01 ")
 ;;1219
 ;;21,"51672-4039-03 ")
 ;;1220
 ;;21,"51672-4040-01 ")
 ;;1440
 ;;21,"51672-4040-03 ")
 ;;1441
 ;;21,"51672-4045-01 ")
 ;;285
 ;;21,"51672-4046-01 ")
 ;;264
 ;;21,"52152-0238-08 ")
 ;;572
 ;;21,"52152-0238-30 ")
 ;;573
 ;;21,"52152-0239-08 ")
 ;;580
 ;;21,"52152-0239-30 ")
 ;;581
 ;;21,"52152-0240-08 ")
 ;;589
 ;;21,"52152-0240-30 ")
 ;;590
 ;;21,"52544-0668-01 ")
 ;;1348
 ;;21,"52544-0668-05 ")
 ;;1349
 ;;21,"52544-0669-01 ")
 ;;1576
 ;;21,"52544-0669-05 ")
 ;;1577
 ;;21,"52544-0670-01 ")
 ;;1221
 ;;21,"52544-0670-05 ")
 ;;1222
 ;;21,"52544-0671-01 ")
 ;;1442
 ;;21,"52959-0137-15 ")
 ;;344
 ;;21,"52959-0180-30 ")
 ;;1223
 ;;21,"52959-0180-60 ")
 ;;1224
 ;;21,"52959-0498-00 ")
 ;;345
 ;;21,"52959-0728-15 ")
 ;;1919
 ;;21,"52959-0728-20 ")
 ;;1920
 ;;21,"52959-0728-30 ")
 ;;1921
 ;;21,"52959-0729-30 ")
 ;;2228
 ;;21,"52959-0729-60 ")
 ;;2352
 ;;21,"52959-0729-90 ")
 ;;2229
 ;;21,"52959-0753-00 ")
 ;;2482
 ;;21,"52959-0753-30 ")
 ;;2483
 ;;21,"52959-0756-30 ")
 ;;3890
 ;;21,"52959-0831-30 ")
 ;;694
 ;;21,"52959-0835-30 ")
 ;;765
 ;;21,"52959-0835-60 ")
 ;;766
 ;;21,"52959-0841-30 ")
 ;;617
 ;;21,"52959-0841-60 ")
 ;;618
 ;;21,"52959-0854-20 ")
 ;;2647
 ;;21,"52959-0854-30 ")
 ;;2648
 ;;21,"52959-0907-30 ")
 ;;201
 ;;21,"52959-0942-30 ")
 ;;1443
 ;;21,"52959-0973-30 ")
 ;;2093
 ;;21,"52959-0975-30 ")
 ;;2649
 ;;21,"52959-0997-30 ")
 ;;504
 ;;21,"53002-0431-00 ")
 ;;1056
 ;;21,"53002-0431-30 ")
 ;;1057
 ;;21,"53002-0431-60 ")
 ;;1058
 ;;21,"53002-1086-00 ")
 ;;1153
 ;;21,"53002-1086-03 ")
 ;;1154
 ;;21,"53002-1086-06 ")
 ;;1155
 ;;21,"53002-1123-00 ")
 ;;2062
 ;;21,"53002-1123-03 ")
 ;;2063
 ;;21,"53002-1123-06 ")
 ;;2064
 ;;21,"53002-1178-00 ")
 ;;2360
 ;;21,"53002-1178-03 ")
 ;;2361
 ;;21,"53002-1178-06 ")
 ;;2362
 ;;21,"53002-1225-00 ")
 ;;2752
 ;;21,"53002-1225-03 ")
 ;;2753
 ;;21,"53002-1225-06 ")
 ;;2754
 ;;21,"53002-1463-00 ")
 ;;2578
 ;;21,"53002-1463-03 ")
 ;;2579
 ;;21,"54348-0099-30 ")
 ;;822
 ;;21,"54348-0100-30 ")
 ;;619
 ;;21,"54458-0956-10 ")
 ;;767
 ;;21,"54458-0957-10 ")
 ;;695
 ;;21,"54458-0958-10 ")
 ;;620
 ;;21,"54458-0959-10 ")
 ;;823
 ;;21,"54458-0991-05 ")
 ;;534
 ;;21,"54458-0991-10 ")
 ;;505
 ;;21,"54458-0992-10 ")
 ;;420
 ;;21,"54458-0993-09 ")
 ;;346
 ;;21,"54458-0994-10 ")
 ;;2484
 ;;21,"54458-0995-10 ")
 ;;2383
 ;;21,"54458-0996-10 ")
 ;;2230
 ;;21,"54458-0997-10 ")
 ;;1922
 ;;21,"54458-0998-09 ")
 ;;2650
 ;;21,"54458-0999-09 ")
 ;;2094
 ;;21,"54569-0522-00 ")
 ;;908
 ;;21,"54569-0522-01 ")
 ;;909
 ;;21,"54569-0522-03 ")
 ;;910
 ;;21,"54569-0523-00 ")
 ;;986
 ;;21,"54569-0523-02 ")
 ;;987
 ;;21,"54569-0606-00 ")
 ;;1578
 ;;21,"54569-0606-01 ")
 ;;1579
 ;;21,"54569-0607-00 ")
 ;;1225
 ;;21,"54569-0607-01 ")
 ;;1226
 ;;21,"54569-0612-00 ")
 ;;1444
 ;;21,"54569-1752-03 ")
 ;;1923
 ;;21,"54569-1944-00 ")
 ;;1924
 ;;21,"54569-1944-01 ")
 ;;1925
 ;;21,"54569-1944-02 ")
 ;;1926
 ;;21,"54569-1944-03 ")
 ;;1927
 ;;21,"54569-2051-01 ")
 ;;2231
 ;;21,"54569-2665-01 ")
 ;;2232
 ;;21,"54569-2665-02 ")
 ;;2233
 ;;21,"54569-3258-01 ")
 ;;1350
 ;;21,"54569-3300-00 ")
 ;;2651
 ;;21,"54569-3300-01 ")
 ;;2652
 ;;21,"54569-3359-00 ")
 ;;696
 ;;21,"54569-3359-01 ")
 ;;697
 ;;21,"54569-3359-02 ")
 ;;698
 ;;21,"54569-3423-00 ")
 ;;621
 ;;21,"54569-3423-01 ")
 ;;622
 ;;21,"54569-3423-04 ")
 ;;623
 ;;21,"54569-3713-00 ")
 ;;3007
 ;;21,"54569-3714-00 ")
 ;;3052
 ;;21,"54569-3733-02 ")
 ;;824
 ;;21,"54569-3771-00 ")
 ;;2653
 ;;21,"54569-3808-00 ")
 ;;1673
 ;;21,"54569-3809-00 ")
 ;;1725
 ;;21,"54569-3984-00 ")
 ;;2818
 ;;21,"54569-3984-01 ")
 ;;2819
 ;;21,"54569-3985-00 ")
 ;;2849
 ;;21,"54569-4246-00 ")
 ;;988
 ;;21,"54569-4246-01 ")
 ;;989
 ;;21,"54569-4246-03 ")
 ;;990
 ;;21,"54569-4246-04 ")
 ;;991
 ;;21,"54569-4246-05 ")
 ;;992
 ;;21,"54569-4247-00 ")
 ;;1102
 ;;21,"54569-4247-02 ")
 ;;1103
 ;;21,"54569-4247-03 ")
 ;;1104
 ;;21,"54569-4276-00 ")
 ;;2770
 ;;21,"54569-4437-00 ")
 ;;3658
 ;;21,"54569-4438-00 ")
 ;;3705