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

BGP13T4.m

Go to the documentation of this file.
BGP13T4 ; 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,"00615-0831-13 ")
 ;;77
 ;;21,"00615-1306-43 ")
 ;;3317
 ;;21,"00615-1306-53 ")
 ;;3318
 ;;21,"00615-1306-63 ")
 ;;3319
 ;;21,"00615-1307-43 ")
 ;;3320
 ;;21,"00615-1307-53 ")
 ;;3321
 ;;21,"00615-1307-63 ")
 ;;3322
 ;;21,"00615-1315-53 ")
 ;;3323
 ;;21,"00615-2578-53 ")
 ;;4678
 ;;21,"00615-2578-63 ")
 ;;4679
 ;;21,"00615-2579-53 ")
 ;;4680
 ;;21,"00615-2579-63 ")
 ;;4681
 ;;21,"00615-3526-13 ")
 ;;1456
 ;;21,"00677-1133-01 ")
 ;;4682
 ;;21,"00677-1134-01 ")
 ;;4683
 ;;21,"00677-1198-01 ")
 ;;1457
 ;;21,"00677-1199-01 ")
 ;;1458
 ;;21,"00677-1555-01 ")
 ;;3324
 ;;21,"00677-1556-01 ")
 ;;3325
 ;;21,"00677-1557-01 ")
 ;;3326
 ;;21,"00677-1766-10 ")
 ;;2265
 ;;21,"00677-1767-10 ")
 ;;2266
 ;;21,"00777-3104-02 ")
 ;;4233
 ;;21,"00777-3105-02 ")
 ;;4183
 ;;21,"00777-3105-07 ")
 ;;4184
 ;;21,"00777-3105-30 ")
 ;;4185
 ;;21,"00777-3105-33 ")
 ;;4186
 ;;21,"00777-3107-30 ")
 ;;4187
 ;;21,"00777-5120-58 ")
 ;;4188
 ;;21,"00781-1053-01 ")
 ;;626
 ;;21,"00781-1064-01 ")
 ;;627
 ;;21,"00781-1064-10 ")
 ;;628
 ;;21,"00781-1486-01 ")
 ;;78
 ;;21,"00781-1486-10 ")
 ;;79
 ;;21,"00781-1486-13 ")
 ;;80
 ;;21,"00781-1487-01 ")
 ;;81
 ;;21,"00781-1487-10 ")
 ;;82
 ;;21,"00781-1488-01 ")
 ;;83
 ;;21,"00781-1488-10 ")
 ;;84
 ;;21,"00781-1489-01 ")
 ;;85
 ;;21,"00781-1490-01 ")
 ;;86
 ;;21,"00781-1491-01 ")
 ;;87
 ;;21,"00781-1529-60 ")
 ;;786
 ;;21,"00781-1762-01 ")
 ;;2685
 ;;21,"00781-1764-01 ")
 ;;2686
 ;;21,"00781-1764-10 ")
 ;;2687
 ;;21,"00781-1764-13 ")
 ;;2688
 ;;21,"00781-1766-01 ")
 ;;2689
 ;;21,"00781-1766-10 ")
 ;;2690
 ;;21,"00781-1766-13 ")
 ;;2691
 ;;21,"00781-1971-01 ")
 ;;1459
 ;;21,"00781-1972-01 ")
 ;;1460
 ;;21,"00781-1972-10 ")
 ;;1461
 ;;21,"00781-1973-01 ")
 ;;1462
 ;;21,"00781-1973-10 ")
 ;;1463
 ;;21,"00781-1974-01 ")
 ;;1464
 ;;21,"00781-1975-01 ")
 ;;1465
 ;;21,"00781-1976-50 ")
 ;;1466
 ;;21,"00781-1991-31 ")
 ;;3666
 ;;21,"00781-1992-31 ")
 ;;3667
 ;;21,"00781-2027-01 ")
 ;;1306
 ;;21,"00781-2037-01 ")
 ;;1307
 ;;21,"00781-2047-01 ")
 ;;1308
 ;;21,"00781-2630-01 ")
 ;;3327
 ;;21,"00781-2630-13 ")
 ;;3328
 ;;21,"00781-2631-05 ")
 ;;3329
 ;;21,"00781-2800-13 ")
 ;;1631
 ;;21,"00781-2801-13 ")
 ;;1632
 ;;21,"00781-2822-01 ")
 ;;2267
 ;;21,"00781-2822-10 ")
 ;;2268
 ;;21,"00781-2823-01 ")
 ;;2269
 ;;21,"00781-2823-10 ")
 ;;2270
 ;;21,"00781-2824-01 ")
 ;;2271
 ;;21,"00781-2824-10 ")
 ;;2272
 ;;21,"00781-2824-31 ")
 ;;2273
 ;;21,"00781-2827-08 ")
 ;;2274
 ;;21,"00781-2828-08 ")
 ;;2275
 ;;21,"00781-5040-10 ")
 ;;2644
 ;;21,"00781-5041-10 ")
 ;;2645
 ;;21,"00781-5042-10 ")
 ;;2646
 ;;21,"00781-5157-01 ")
 ;;1041
 ;;21,"00781-5158-01 ")
 ;;1042
 ;;21,"00781-5159-01 ")
 ;;1043
 ;;21,"00904-0200-60 ")
 ;;88
 ;;21,"00904-0201-61 ")
 ;;89
 ;;21,"00904-0201-80 ")
 ;;90
 ;;21,"00904-0202-60 ")
 ;;91
 ;;21,"00904-0202-61 ")
 ;;92
 ;;21,"00904-0202-80 ")
 ;;93
 ;;21,"00904-0203-61 ")
 ;;94
 ;;21,"00904-0205-60 ")
 ;;95
 ;;21,"00904-0925-70 ")
 ;;2692
 ;;21,"00904-0925-80 ")
 ;;2693
 ;;21,"00904-0927-70 ")
 ;;2694
 ;;21,"00904-0927-80 ")
 ;;2695
 ;;21,"00904-0929-70 ")
 ;;2696
 ;;21,"00904-0929-80 ")
 ;;2697
 ;;21,"00904-1260-60 ")
 ;;1633
 ;;21,"00904-1260-61 ")
 ;;1634
 ;;21,"00904-1260-80 ")
 ;;1635
 ;;21,"00904-1261-60 ")
 ;;1636
 ;;21,"00904-1261-61 ")
 ;;1637
 ;;21,"00904-1261-80 ")
 ;;1638
 ;;21,"00904-1262-60 ")
 ;;1639
 ;;21,"00904-1262-61 ")
 ;;1640
 ;;21,"00904-1262-80 ")
 ;;1641
 ;;21,"00904-1263-60 ")
 ;;1642
 ;;21,"00904-1263-61 ")
 ;;1643
 ;;21,"00904-1264-60 ")
 ;;1644
 ;;21,"00904-1265-60 ")
 ;;1645
 ;;21,"00904-1570-40 ")
 ;;1467
 ;;21,"00904-1570-60 ")
 ;;1468
 ;;21,"00904-1570-80 ")
 ;;1469
 ;;21,"00904-1571-40 ")
 ;;1470
 ;;21,"00904-1571-60 ")
 ;;1471
 ;;21,"00904-1571-80 ")
 ;;1472
 ;;21,"00904-1572-60 ")
 ;;1473
 ;;21,"00904-1573-60 ")
 ;;1474
 ;;21,"00904-1582-60 ")
 ;;1475
 ;;21,"00904-1582-61 ")
 ;;1476
 ;;21,"00904-1582-80 ")
 ;;1477
 ;;21,"00904-1583-60 ")
 ;;1478
 ;;21,"00904-1700-40 ")
 ;;573
 ;;21,"00904-1700-60 ")
 ;;574
 ;;21,"00904-1701-40 ")
 ;;575
 ;;21,"00904-3392-70 ")
 ;;4684
 ;;21,"00904-3991-61 ")
 ;;4685
 ;;21,"00904-3992-60 ")
 ;;4686
 ;;21,"00904-3992-70 ")
 ;;4687
 ;;21,"00904-5219-40 ")
 ;;4688
 ;;21,"00904-5219-60 ")
 ;;4689
 ;;21,"00904-5219-80 ")
 ;;4690
 ;;21,"00904-5220-40 ")
 ;;4691
 ;;21,"00904-5220-60 ")
 ;;4692
 ;;21,"00904-5676-61 ")
 ;;3668
 ;;21,"00904-5677-61 ")
 ;;3669
 ;;21,"00904-5678-61 ")
 ;;3670
 ;;21,"00904-5679-61 ")
 ;;3671
 ;;21,"00904-5784-61 ")
 ;;2276
 ;;21,"00904-5785-61 ")
 ;;2277
 ;;21,"00904-5866-61 ")
 ;;4371
 ;;21,"00904-5867-61 ")
 ;;4372
 ;;21,"00904-5868-61 ")
 ;;4373
 ;;21,"00904-5913-61 ")
 ;;629
 ;;21,"00904-5914-61 ")
 ;;630
 ;;21,"00904-6084-61 ")
 ;;1044
 ;;21,"00904-6085-61 ")
 ;;1045
 ;;21,"00904-6086-61 ")
 ;;1046
 ;;21,"00904-6087-61 ")
 ;;4374
 ;;21,"00904-6088-61 ")
 ;;4375
 ;;21,"00904-6089-61 ")
 ;;4376
 ;;21,"00904-6093-61 ")
 ;;631
 ;;21,"00904-6109-61 ")
 ;;3672
 ;;21,"00904-6110-61 ")
 ;;3673
 ;;21,"00904-6111-61 ")
 ;;3674
 ;;21,"00904-6112-61 ")
 ;;3675
 ;;21,"00904-6129-61 ")
 ;;632
 ;;21,"00904-7742-60 ")
 ;;3330
 ;;21,"00904-7787-60 ")
 ;;3331
 ;;21,"00904-7788-60 ")
 ;;3332
 ;;21,"00904-7790-60 ")
 ;;3333
 ;;21,"00904-7795-60 ")
 ;;3334
 ;;21,"00904-7798-60 ")
 ;;3335
 ;;21,"00904-7939-60 ")
 ;;3336
 ;;21,"00904-7940-60 ")
 ;;3337
 ;;21,"00904-7941-60 ")
 ;;3338
 ;;21,"00904-7942-60 ")
 ;;3339
 ;;21,"10370-0101-03 ")
 ;;879
 ;;21,"10370-0101-50 ")
 ;;880
 ;;21,"10370-0102-00 ")
 ;;881
 ;;21,"10370-0102-03 ")
 ;;882
 ;;21,"10370-0102-50 ")
 ;;883
 ;;21,"10544-0329-30 ")
 ;;96
 ;;21,"10544-0336-30 ")
 ;;2278
 ;;21,"10544-0346-30 ")
 ;;4693
 ;;21,"10544-0346-60 ")
 ;;4694
 ;;21,"10544-0405-30 ")
 ;;97
 ;;21,"10544-0413-30 ")
 ;;98
 ;;21,"10768-7060-01 ")
 ;;1047
 ;;21,"10768-7060-03 ")
 ;;1048
 ;;21,"10768-7191-01 ")
 ;;1049
 ;;21,"10768-7191-03 ")
 ;;1050
 ;;21,"10768-7616-01 ")
 ;;1051
 ;;21,"10768-7616-03 ")
 ;;1052
 ;;21,"12280-0007-00 ")
 ;;1579
 ;;21,"12280-0011-00 ")
 ;;1923
 ;;21,"12280-0011-60 ")
 ;;1924
 ;;21,"12280-0016-15 ")
 ;;4059
 ;;21,"12280-0017-15 ")
 ;;4060
 ;;21,"12280-0018-15 ")
 ;;4061
 ;;21,"12280-0023-15 ")
 ;;5177
 ;;21,"12280-0032-00 ")
 ;;2836
 ;;21,"12280-0065-00 ")
 ;;916
 ;;21,"12280-0074-00 ")
 ;;99
 ;;21,"12280-0163-15 ")
 ;;1339
 ;;21,"12280-0163-30 ")
 ;;1340
 ;;21,"12280-0169-00 ")
 ;;1053
 ;;21,"12280-0169-30 ")
 ;;1054
 ;;21,"12280-0170-60 ")
 ;;1341
 ;;21,"12280-0171-15 ")
 ;;1342
 ;;21,"12280-0171-30 ")
 ;;1343
 ;;21,"12280-0171-60 ")
 ;;1344
 ;;21,"12280-0211-00 ")
 ;;1055
 ;;21,"13107-0003-05 ")
 ;;2991
 ;;21,"13107-0003-30 ")
 ;;2992
 ;;21,"13107-0005-01 ")
 ;;1056
 ;;21,"13107-0005-05 ")
 ;;1057
 ;;21,"13107-0006-01 ")
 ;;1058
 ;;21,"13107-0006-05 ")
 ;;1059
 ;;21,"13107-0007-01 ")
 ;;1060
 ;;21,"13107-0007-05 ")
 ;;1061
 ;;21,"13107-0031-05 ")
 ;;2993
 ;;21,"13107-0031-30 ")
 ;;2994
 ;;21,"13107-0032-05 ")
 ;;2995
 ;;21,"13107-0032-30 ")
 ;;2996
 ;;21,"13107-0155-05 ")
 ;;3676
 ;;21,"13107-0155-30 ")
 ;;3677
 ;;21,"13107-0155-99 ")
 ;;3678
 ;;21,"13411-0100-01 ")
 ;;2052
 ;;21,"13411-0100-03 ")
 ;;2053
 ;;21,"13411-0109-01 ")
 ;;2054
 ;;21,"13411-0109-06 ")
 ;;2055
 ;;21,"13411-0109-09 ")
 ;;2056
 ;;21,"13411-0109-10 ")
 ;;2057
 ;;21,"13411-0110-01 ")
 ;;2058
 ;;21,"13411-0110-03 ")
 ;;2059
 ;;21,"13411-0110-06 ")
 ;;2060
 ;;21,"13411-0110-09 ")
 ;;2061
 ;;21,"13411-0110-10 ")
 ;;2062
 ;;21,"13411-0152-01 ")
 ;;5253
 ;;21,"13411-0152-03 ")
 ;;5254
 ;;21,"13411-0152-06 ")
 ;;5255
 ;;21,"13411-0152-09 ")
 ;;5256
 ;;21,"13411-0152-15 ")
 ;;5257
 ;;21,"13411-0153-01 ")
 ;;5258
 ;;21,"13411-0153-03 ")
 ;;5259
 ;;21,"13411-0153-06 ")
 ;;5260
 ;;21,"13411-0153-09 ")
 ;;5261
 ;;21,"13411-0153-15 ")
 ;;5262
 ;;21,"13411-0172-01 ")
 ;;2279
 ;;21,"13411-0172-03 ")
 ;;2280
 ;;21,"13411-0172-06 ")
 ;;2281
 ;;21,"13411-0172-09 ")
 ;;2282
 ;;21,"13411-0172-10 ")
 ;;2283
 ;;21,"13411-0173-01 ")
 ;;2284
 ;;21,"13411-0173-03 ")
 ;;2285
 ;;21,"13411-0173-06 ")
 ;;2286
 ;;21,"13411-0173-09 ")
 ;;2287
 ;;21,"13411-0173-10 ")
 ;;2288
 ;;21,"13668-0004-01 ")
 ;;4377
 ;;21,"13668-0004-05 ")
 ;;4378
 ;;21,"13668-0004-10 ")
 ;;4379
 ;;21,"13668-0004-30 ")
 ;;4380
 ;;21,"13668-0004-50 ")
 ;;4381
 ;;21,"13668-0004-90 ")
 ;;4382
 ;;21,"13668-0005-01 ")
 ;;4383
 ;;21,"13668-0005-05 ")
 ;;4384
 ;;21,"13668-0005-10 ")
 ;;4385
 ;;21,"13668-0005-30 ")
 ;;4386
 ;;21,"13668-0005-50 ")
 ;;4387
 ;;21,"13668-0005-90 ")
 ;;4388
 ;;21,"13668-0006-01 ")
 ;;4389
 ;;21,"13668-0006-05 ")
 ;;4390
 ;;21,"13668-0006-10 ")
 ;;4391
 ;;21,"13668-0006-30 ")
 ;;4392
 ;;21,"13668-0006-50 ")
 ;;4393
 ;;21,"13668-0006-90 ")
 ;;4394
 ;;21,"13668-0009-01 ")
 ;;1062
 ;;21,"13668-0009-05 ")
 ;;1063
 ;;21,"13668-0009-09 ")
 ;;1064
 ;;21,"13668-0009-74 ")
 ;;1065
 ;;21,"13668-0010-01 ")
 ;;1066
 ;;21,"13668-0010-05 ")
 ;;1067
 ;;21,"13668-0010-06 ")
 ;;1068
 ;;21,"13668-0010-30 ")
 ;;1069
 ;;21,"13668-0011-01 ")
 ;;1070
 ;;21,"13668-0011-05 ")
 ;;1071
 ;;21,"13668-0011-08 ")
 ;;1072
 ;;21,"13668-0011-30 ")
 ;;1073
 ;;21,"16241-0759-01 ")
 ;;4251
 ;;21,"16252-0533-30 ")
 ;;4395
 ;;21,"16252-0533-50 ")
 ;;4396
 ;;21,"16252-0534-30 ")
 ;;4397
 ;;21,"16252-0534-50 ")
 ;;4398
 ;;21,"16252-0534-90 ")
 ;;4399
 ;;21,"16252-0535-30 ")
 ;;4400
 ;;21,"16252-0535-50 ")
 ;;4401
 ;;21,"16252-0535-90 ")
 ;;4402
 ;;21,"16590-0011-30 ")
 ;;100
 ;;21,"16590-0011-56 ")
 ;;101
 ;;21,"16590-0011-60 ")
 ;;102
 ;;21,"16590-0011-72 ")
 ;;103
 ;;21,"16590-0011-90 ")
 ;;104
 ;;21,"16590-0012-15 ")
 ;;105
 ;;21,"16590-0012-30 ")
 ;;106
 ;;21,"16590-0012-60 ")
 ;;107
 ;;21,"16590-0012-90 ")
 ;;108
 ;;21,"16590-0013-30 ")
 ;;109
 ;;21,"16590-0013-60 ")
 ;;110
 ;;21,"16590-0013-90 ")
 ;;111
 ;;21,"16590-0036-30 ")
 ;;787
 ;;21,"16590-0036-60 ")
 ;;788
 ;;21,"16590-0037-30 ")
 ;;633
 ;;21,"16590-0037-60 ")
 ;;634
 ;;21,"16590-0038-30 ")
 ;;789
 ;;21,"16590-0038-60 ")
 ;;790
 ;;21,"16590-0055-30 ")
 ;;1074
 ;;21,"16590-0055-60 ")
 ;;1075
 ;;21,"16590-0055-90 ")
 ;;1076
 ;;21,"16590-0056-30 ")
 ;;1077
 ;;21,"16590-0056-60 ")
 ;;1078
 ;;21,"16590-0056-90 ")
 ;;1079
 ;;21,"16590-0066-30 ")
 ;;1345
 ;;21,"16590-0066-60 ")
 ;;1346
 ;;21,"16590-0067-30 ")
 ;;1347
 ;;21,"16590-0067-60 ")
 ;;1348
 ;;21,"16590-0081-30 ")
 ;;1646
 ;;21,"16590-0081-60 ")
 ;;1647
 ;;21,"16590-0081-72 ")
 ;;1648
 ;;21,"16590-0081-90 ")
 ;;1649
 ;;21,"16590-0083-30 ")
 ;;1925
 ;;21,"16590-0083-60 ")
 ;;1926
 ;;21,"16590-0084-30 ")
 ;;1927
 ;;21,"16590-0084-60 ")
 ;;1928
 ;;21,"16590-0085-30 ")
 ;;2063
 ;;21,"16590-0085-60 ")
 ;;2064
 ;;21,"16590-0086-30 ")
 ;;2065
 ;;21,"16590-0086-60 ")
 ;;2066
 ;;21,"16590-0087-30 ")
 ;;2067
 ;;21,"16590-0087-60 ")
 ;;2068
 ;;21,"16590-0099-30 ")
 ;;2289
 ;;21,"16590-0099-60 ")
 ;;2290
 ;;21,"16590-0100-30 ")
 ;;2291
 ;;21,"16590-0100-60 ")
 ;;2292
 ;;21,"16590-0100-90 ")
 ;;2293
 ;;21,"16590-0139-30 ")
 ;;2837
 ;;21,"16590-0139-60 ")
 ;;2838
 ;;21,"16590-0153-30 ")
 ;;2997
 ;;21,"16590-0153-60 ")
 ;;2998
 ;;21,"16590-0154-30 ")
 ;;2999
 ;;21,"16590-0154-60 ")
 ;;3000
 ;;21,"16590-0155-30 ")
 ;;3001
 ;;21,"16590-0155-60 ")
 ;;3002
 ;;21,"16590-0166-30 ")
 ;;3221
 ;;21,"16590-0166-60 ")
 ;;3222
 ;;21,"16590-0166-90 ")
 ;;3223
 ;;21,"16590-0171-30 ")
 ;;3340
 ;;21,"16590-0171-60 ")
 ;;3341
 ;;21,"16590-0171-90 ")
 ;;3342
 ;;21,"16590-0181-30 ")
 ;;3679
 ;;21,"16590-0181-60 ")
 ;;3680
 ;;21,"16590-0181-90 ")
 ;;3681
 ;;21,"16590-0231-30 ")
 ;;4695
 ;;21,"16590-0231-60 ")
 ;;4696
 ;;21,"16590-0231-90 ")
 ;;4697
 ;;21,"16590-0232-30 ")
 ;;4698
 ;;21,"16590-0232-45 ")
 ;;4699
 ;;21,"16590-0232-60 ")
 ;;4700
 ;;21,"16590-0232-90 ")
 ;;4701
 ;;21,"16590-0246-30 ")
 ;;5178
 ;;21,"16590-0246-60 ")
 ;;5179
 ;;21,"16590-0246-90 ")
 ;;5180