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

BGP51R.m

Go to the documentation of this file.
  1. BGP51R ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
  1. ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
  1. ;;BGP PQA CCB NDC
  1. ;
  1. ; This routine loads Taxonomy BGP PQA CCB NDC
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. D OTHER
  1. I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
  1. I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
  1. D KILL^ATXSTX2
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"00025-1851-31 ")
  1. ;;1443
  1. ;;21,"00025-1861-31 ")
  1. ;;1469
  1. ;;21,"00025-1891-31 ")
  1. ;;1621
  1. ;;21,"00025-1891-34 ")
  1. ;;1622
  1. ;;21,"00025-1891-51 ")
  1. ;;1623
  1. ;;21,"00025-1901-31 ")
  1. ;;1510
  1. ;;21,"00025-1911-31 ")
  1. ;;1559
  1. ;;21,"00025-2011-31 ")
  1. ;;1754
  1. ;;21,"00025-2011-34 ")
  1. ;;1755
  1. ;;21,"00025-2021-31 ")
  1. ;;1756
  1. ;;21,"00025-2021-34 ")
  1. ;;1757
  1. ;;21,"00054-0100-22 ")
  1. ;;58
  1. ;;21,"00054-0101-20 ")
  1. ;;107
  1. ;;21,"00054-0101-22 ")
  1. ;;108
  1. ;;21,"00054-0101-28 ")
  1. ;;109
  1. ;;21,"00054-0102-20 ")
  1. ;;295
  1. ;;21,"00054-0102-22 ")
  1. ;;296
  1. ;;21,"00054-0102-28 ")
  1. ;;297
  1. ;;21,"00069-1520-68 ")
  1. ;;99
  1. ;;21,"00069-1530-41 ")
  1. ;;292
  1. ;;21,"00069-1530-68 ")
  1. ;;293
  1. ;;21,"00069-1530-72 ")
  1. ;;294
  1. ;;21,"00069-1540-41 ")
  1. ;;470
  1. ;;21,"00069-1540-68 ")
  1. ;;471
  1. ;;21,"00069-2150-30 ")
  1. ;;2130
  1. ;;21,"00069-2160-30 ")
  1. ;;2171
  1. ;;21,"00069-2170-30 ")
  1. ;;2143
  1. ;;21,"00069-2180-30 ")
  1. ;;2184
  1. ;;21,"00069-2190-30 ")
  1. ;;2153
  1. ;;21,"00069-2250-30 ")
  1. ;;2197
  1. ;;21,"00069-2260-30 ")
  1. ;;2160
  1. ;;21,"00069-2270-30 ")
  1. ;;2207
  1. ;;21,"00069-2650-41 ")
  1. ;;1331
  1. ;;21,"00069-2650-66 ")
  1. ;;1332
  1. ;;21,"00069-2650-72 ")
  1. ;;1333
  1. ;;21,"00069-2660-41 ")
  1. ;;1376
  1. ;;21,"00069-2660-66 ")
  1. ;;1377
  1. ;;21,"00069-2660-72 ")
  1. ;;1378
  1. ;;21,"00069-2670-66 ")
  1. ;;1418
  1. ;;21,"00069-2960-30 ")
  1. ;;2102
  1. ;;21,"00069-2970-30 ")
  1. ;;2109
  1. ;;21,"00069-2980-30 ")
  1. ;;2116
  1. ;;21,"00074-3045-30 ")
  1. ;;957
  1. ;;21,"00074-3045-90 ")
  1. ;;958
  1. ;;21,"00074-3061-30 ")
  1. ;;963
  1. ;;21,"00074-3061-90 ")
  1. ;;964
  1. ;;21,"00074-3062-30 ")
  1. ;;972
  1. ;;21,"00074-3062-90 ")
  1. ;;973
  1. ;;21,"00074-3063-30 ")
  1. ;;983
  1. ;;21,"00074-3063-90 ")
  1. ;;984
  1. ;;21,"00074-3064-30 ")
  1. ;;993
  1. ;;21,"00074-3064-90 ")
  1. ;;994
  1. ;;21,"00074-3069-30 ")
  1. ;;1002
  1. ;;21,"00074-3069-90 ")
  1. ;;1003
  1. ;;21,"00074-3287-13 ")
  1. ;;2010
  1. ;;21,"00074-3288-13 ")
  1. ;;2006
  1. ;;21,"00074-3289-13 ")
  1. ;;2015
  1. ;;21,"00074-3290-13 ")
  1. ;;2021
  1. ;;21,"00078-0364-05 ")
  1. ;;1979
  1. ;;21,"00078-0379-05 ")
  1. ;;2005
  1. ;;21,"00078-0384-05 ")
  1. ;;1918
  1. ;;21,"00078-0404-05 ")
  1. ;;1783
  1. ;;21,"00078-0405-05 ")
  1. ;;1835
  1. ;;21,"00078-0406-05 ")
  1. ;;1893
  1. ;;21,"00078-0488-15 ")
  1. ;;2049
  1. ;;21,"00078-0489-15 ")
  1. ;;2054
  1. ;;21,"00078-0490-15 ")
  1. ;;2050
  1. ;;21,"00078-0491-15 ")
  1. ;;2055
  1. ;;21,"00078-0559-15 ")
  1. ;;2072
  1. ;;21,"00078-0560-15 ")
  1. ;;2073
  1. ;;21,"00078-0561-15 ")
  1. ;;2074
  1. ;;21,"00078-0562-15 ")
  1. ;;2075
  1. ;;21,"00078-0563-15 ")
  1. ;;2076
  1. ;;21,"00078-0603-15 ")
  1. ;;2088
  1. ;;21,"00078-0604-15 ")
  1. ;;2089
  1. ;;21,"00078-0605-15 ")
  1. ;;2090
  1. ;;21,"00078-0606-15 ")
  1. ;;2091
  1. ;;21,"00078-0610-15 ")
  1. ;;2092
  1. ;;21,"00078-0611-15 ")
  1. ;;2093
  1. ;;21,"00078-0612-15 ")
  1. ;;2094
  1. ;;21,"00078-0613-15 ")
  1. ;;2095
  1. ;;21,"00078-0614-15 ")
  1. ;;2096
  1. ;;21,"00085-1701-01 ")
  1. ;;1144
  1. ;;21,"00085-1701-02 ")
  1. ;;1145
  1. ;;21,"00085-1701-03 ")
  1. ;;1146
  1. ;;21,"00085-1716-01 ")
  1. ;;1206
  1. ;;21,"00085-1716-02 ")
  1. ;;1207
  1. ;;21,"00085-1716-03 ")
  1. ;;1208
  1. ;;21,"00085-1722-01 ")
  1. ;;1270
  1. ;;21,"00085-1722-02 ")
  1. ;;1271
  1. ;;21,"00091-2489-23 ")
  1. ;;1723
  1. ;;21,"00091-2490-23 ")
  1. ;;1718
  1. ;;21,"00091-2491-23 ")
  1. ;;1736
  1. ;;21,"00091-2495-23 ")
  1. ;;1752
  1. ;;21,"00091-4085-01 ")
  1. ;;1707
  1. ;;21,"00091-4086-01 ")
  1. ;;1730
  1. ;;21,"00091-4087-01 ")
  1. ;;1746
  1. ;;21,"00093-0083-98 ")
  1. ;;59
  1. ;;21,"00093-0318-01 ")
  1. ;;478
  1. ;;21,"00093-0318-05 ")
  1. ;;479
  1. ;;21,"00093-0319-01 ")
  1. ;;510
  1. ;;21,"00093-0319-05 ")
  1. ;;511
  1. ;;21,"00093-0320-01 ")
  1. ;;555
  1. ;;21,"00093-0321-01 ")
  1. ;;562
  1. ;;21,"00093-0819-01 ")
  1. ;;1284
  1. ;;21,"00093-0819-55 ")
  1. ;;1285
  1. ;;21,"00093-1022-01 ")
  1. ;;1216
  1. ;;21,"00093-1022-19 ")
  1. ;;1217
  1. ;;21,"00093-1022-55 ")
  1. ;;1218
  1. ;;21,"00093-1022-93 ")
  1. ;;1219
  1. ;;21,"00093-1023-01 ")
  1. ;;1272
  1. ;;21,"00093-1023-19 ")
  1. ;;1273
  1. ;;21,"00093-1023-93 ")
  1. ;;1274
  1. ;;21,"00093-2057-01 ")
  1. ;;1162
  1. ;;21,"00093-2057-55 ")
  1. ;;1163
  1. ;;21,"00093-2058-01 ")
  1. ;;1220
  1. ;;21,"00093-2058-55 ")
  1. ;;1221
  1. ;;21,"00093-2059-01 ")
  1. ;;1282
  1. ;;21,"00093-3043-01 ")
  1. ;;1531
  1. ;;21,"00093-3044-01 ")
  1. ;;1582
  1. ;;21,"00093-3044-05 ")
  1. ;;1583
  1. ;;21,"00093-3045-01 ")
  1. ;;1658
  1. ;;21,"00093-3045-05 ")
  1. ;;1659
  1. ;;21,"00093-5112-98 ")
  1. ;;802
  1. ;;21,"00093-5117-98 ")
  1. ;;846
  1. ;;21,"00093-5118-98 ")
  1. ;;900
  1. ;;21,"00093-5119-98 ")
  1. ;;947
  1. ;;21,"00093-5173-01 ")
  1. ;;1334
  1. ;;21,"00093-5173-55 ")
  1. ;;1335
  1. ;;21,"00093-5272-01 ")
  1. ;;1157
  1. ;;21,"00093-5272-19 ")
  1. ;;1158
  1. ;;21,"00093-5272-55 ")
  1. ;;1159
  1. ;;21,"00093-5272-93 ")
  1. ;;1160
  1. ;;21,"00093-7167-55 ")
  1. ;;111
  1. ;;21,"00093-7167-98 ")
  1. ;;112
  1. ;;21,"00093-7168-98 ")
  1. ;;298
  1. ;;21,"00093-7370-01 ")
  1. ;;1758
  1. ;;21,"00093-7371-01 ")
  1. ;;1784
  1. ;;21,"00093-7371-10 ")
  1. ;;1785
  1. ;;21,"00093-7372-01 ")
  1. ;;1836
  1. ;;21,"00093-7372-10 ")
  1. ;;1837
  1. ;;21,"00093-7373-01 ")
  1. ;;1919
  1. ;;21,"00093-7373-10 ")
  1. ;;1920
  1. ;;21,"00093-7670-01 ")
  1. ;;1899
  1. ;;21,"00093-7671-01 ")
  1. ;;1980
  1. ;;21,"00143-9959-09 ")
  1. ;;60
  1. ;;21,"00143-9960-09 ")
  1. ;;110
  1. ;;21,"00143-9961-09 ")
  1. ;;299
  1. ;;21,"00172-4280-00 ")
  1. ;;1654
  1. ;;21,"00172-4280-10 ")
  1. ;;1655
  1. ;;21,"00172-4280-60 ")
  1. ;;1656
  1. ;;21,"00172-4280-70 ")
  1. ;;1657
  1. ;;21,"00172-4285-00 ")
  1. ;;1528
  1. ;;21,"00172-4285-10 ")
  1. ;;1529
  1. ;;21,"00172-4285-60 ")
  1. ;;1530
  1. ;;21,"00172-4286-00 ")
  1. ;;1584
  1. ;;21,"00172-4286-10 ")
  1. ;;1585
  1. ;;21,"00172-4286-60 ")
  1. ;;1586
  1. ;;21,"00172-4286-70 ")
  1. ;;1587
  1. ;;21,"00173-0784-01 ")
  1. ;;1120
  1. ;;21,"00173-0785-01 ")
  1. ;;1121
  1. ;;21,"00186-0450-58 ")
  1. ;;1034
  1. ;;21,"00186-0451-58 ")
  1. ;;1074
  1. ;;21,"00186-0452-58 ")
  1. ;;1114
  1. ;;21,"00187-0771-47 ")
  1. ;;475
  1. ;;21,"00187-0772-47 ")
  1. ;;507
  1. ;;21,"00187-0792-47 ")
  1. ;;558
  1. ;;21,"00187-0795-30 ")
  1. ;;754
  1. ;;21,"00187-0795-42 ")
  1. ;;755
  1. ;;21,"00187-0796-30 ")
  1. ;;813
  1. ;;21,"00187-0796-42 ")
  1. ;;814
  1. ;;21,"00187-0797-30 ")
  1. ;;862
  1. ;;21,"00187-0797-42 ")
  1. ;;863
  1. ;;21,"00187-0798-30 ")
  1. ;;918
  1. ;;21,"00187-0798-42 ")
  1. ;;919
  1. ;;21,"00187-0799-42 ")
  1. ;;948
  1. ;;21,"00187-2045-30 ")
  1. ;;955
  1. ;;21,"00187-2045-90 ")
  1. ;;956
  1. ;;21,"00187-2047-30 ")
  1. ;;974
  1. ;;21,"00187-2049-30 ")
  1. ;;995
  1. ;;21,"00228-1112-03 ")
  1. ;;637
  1. ;;21,"00228-1112-09 ")
  1. ;;638
  1. ;;21,"00228-1113-03 ")
  1. ;;660
  1. ;;21,"00228-1113-09 ")
  1. ;;661
  1. ;;21,"00228-1114-03 ")
  1. ;;682
  1. ;;21,"00228-1114-09 ")
  1. ;;683
  1. ;;21,"00228-1115-03 ")
  1. ;;704
  1. ;;21,"00228-1115-09 ")
  1. ;;705
  1. ;;21,"00228-1116-03 ")
  1. ;;727
  1. ;;21,"00228-1116-09 ")
  1. ;;728
  1. ;;21,"00228-1117-03 ")
  1. ;;747
  1. ;;21,"00228-1117-09 ")
  1. ;;748
  1. ;;21,"00228-2577-03 ")
  1. ;;835
  1. ;;21,"00228-2577-09 ")
  1. ;;836
  1. ;;21,"00228-2577-50 ")
  1. ;;837
  1. ;;21,"00228-2577-73 ")
  1. ;;838
  1. ;;21,"00228-2578-03 ")
  1. ;;891
  1. ;;21,"00228-2578-09 ")
  1. ;;892
  1. ;;21,"00228-2578-50 ")
  1. ;;893
  1. ;;21,"00228-2578-73 ")
  1. ;;894
  1. ;;21,"00228-2579-03 ")
  1. ;;931
  1. ;;21,"00228-2579-09 ")
  1. ;;932
  1. ;;21,"00228-2579-50 ")
  1. ;;933
  1. ;;21,"00228-2588-03 ")
  1. ;;773
  1. ;;21,"00228-2588-09 ")
  1. ;;774
  1. ;;21,"00228-2588-50 ")
  1. ;;775
  1. ;;21,"00228-2588-73 ")
  1. ;;776
  1. ;;21,"00228-2918-03 ")
  1. ;;953
  1. ;;21,"00228-2918-09 ")
  1. ;;954
  1. ;;21,"00258-3687-90 ")
  1. ;;639
  1. ;;21,"00258-3688-90 ")
  1. ;;659
  1. ;;21,"00258-3689-90 ")
  1. ;;684
  1. ;;21,"00258-3690-90 ")
  1. ;;703
  1. ;;21,"00258-3691-90 ")
  1. ;;729
  1. ;;21,"00258-3692-90 ")
  1. ;;746
  1. ;;21,"00378-0023-01 ")
  1. ;;476
  1. ;;21,"00378-0023-05 ")
  1. ;;477
  1. ;;21,"00378-0045-01 ")
  1. ;;508
  1. ;;21,"00378-0045-05 ")
  1. ;;509
  1. ;;21,"00378-0135-01 ")
  1. ;;556
  1. ;;21,"00378-0135-05 ")
  1. ;;557
  1. ;;21,"00378-0353-01 ")
  1. ;;1164
  1. ;;21,"00378-0353-10 ")
  1. ;;1165
  1. ;;21,"00378-0360-01 ")
  1. ;;1222
  1. ;;21,"00378-0360-10 ")
  1. ;;1223
  1. ;;21,"00378-0390-01 ")
  1. ;;1283
  1. ;;21,"00378-0480-01 ")
  1. ;;1286
  1. ;;21,"00378-0480-30 ")
  1. ;;1287
  1. ;;21,"00378-0481-01 ")
  1. ;;1352
  1. ;;21,"00378-0481-30 ")
  1. ;;1353
  1. ;;21,"00378-0494-01 ")
  1. ;;1379
  1. ;;21,"00378-0512-01 ")
  1. ;;1444
  1. ;;21,"00378-0512-10 ")
  1. ;;1445
  1. ;;21,"00378-0525-01 ")
  1. ;;561
  1. ;;21,"00378-0772-01 ")
  1. ;;1470
  1. ;;21,"00378-0772-05 ")
  1. ;;1471
  1. ;;21,"00378-1020-05 ")
  1. ;;1122
  1. ;;21,"00378-1020-77 ")
  1. ;;1123
  1. ;;21,"00378-1411-01 ")
  1. ;;1660
  1. ;;21,"00378-1411-05 ")
  1. ;;1661
  1. ;;21,"00378-1411-77 ")
  1. ;;1662
  1. ;;21,"00378-1430-05 ")
  1. ;;1134
  1. ;;21,"00378-1430-77 ")
  1. ;;1135
  1. ;;21,"00378-2096-01 ")
  1. ;;1420
  1. ;;21,"00378-2097-01 ")
  1. ;;1424
  1. ;;21,"00378-2098-01 ")
  1. ;;1430
  1. ;;21,"00378-2099-01 ")
  1. ;;1435
  1. ;;21,"00378-2120-01 ")
  1. ;;1532
  1. ;;21,"00378-2120-93 ")
  1. ;;1533
  1. ;;21,"00378-2180-01 ")
  1. ;;1588
  1. ;;21,"00378-2180-05 ")
  1. ;;1589
  1. ;;21,"00378-2222-01 ")
  1. ;;1427
  1. ;;21,"00378-2223-01 ")
  1. ;;1433
  1. ;;21,"00378-2224-01 ")
  1. ;;1440
  1. ;;21,"00378-3475-01 ")
  1. ;;1288
  1. ;;21,"00378-3475-30 ")
  1. ;;1289
  1. ;;21,"00378-3482-01 ")
  1. ;;1350
  1. ;;21,"00378-3482-30 ")
  1. ;;1351
  1. ;;21,"00378-3495-01 ")
  1. ;;1380
  1. ;;21,"00378-4513-05 ")
  1. ;;2120
  1. ;;21,"00378-4514-05 ")
  1. ;;2131
  1. ;;21,"00378-4514-93 ")
  1. ;;2132
  1. ;;21,"00378-4518-93 ")
  1. ;;2175
  1. ;;21,"00378-4519-93 ")
  1. ;;2185
  1. ;;21,"00378-4520-93 ")
  1. ;;2200
  1. ;;21,"00378-5011-01 ")
  1. ;;1023
  1. ;;21,"00378-5011-05 ")
  1. ;;1024
  1. ;;21,"00378-5012-01 ")
  1. ;;1052
  1. ;;21,"00378-5012-05 ")
  1. ;;1053
  1. ;;21,"00378-5013-01 ")
  1. ;;1092
  1. ;;21,"00378-5013-05 ")
  1. ;;1093
  1. ;;21,"00378-5208-05 ")
  1. ;;61
  1. ;;21,"00378-5208-77 ")
  1. ;;62
  1. ;;21,"00378-5209-05 ")
  1. ;;115
  1. ;;21,"00378-5209-77 ")
  1. ;;116
  1. ;;21,"00378-5210-05 ")
  1. ;;300
  1. ;;21,"00378-5210-77 ")
  1. ;;301
  1. ;;21,"00378-5220-01 ")
  1. ;;586
  1. ;;21,"00378-5220-05 ")
  1. ;;587
  1. ;;21,"00378-5280-01 ")
  1. ;;609
  1. ;;21,"00378-5280-05 ")
  1. ;;610
  1. ;;21,"00378-5340-01 ")
  1. ;;626
  1. ;;21,"00378-5340-05 ")
  1. ;;627
  1. ;;21,"00378-6060-01 ")
  1. ;;569
  1. ;;21,"00378-6090-01 ")
  1. ;;570
  1. ;;21,"00378-6120-01 ")
  1. ;;575
  1. ;;21,"00378-6161-77 ")
  1. ;;2097
  1. ;;21,"00378-6161-93 ")
  1. ;;2098
  1. ;;21,"00378-6162-77 ")
  1. ;;2103
  1. ;;21,"00378-6162-93 ")
  1. ;;2104
  1. ;;21,"00378-6163-77 ")
  1. ;;2110
  1. ;;21,"00378-6163-93 ")
  1. ;;2111
  1. ;;21,"00378-6164-05 ")
  1. ;;2117
  1. ;;21,"00378-6164-77 ")
  1. ;;2118
  1. ;;21,"00378-6164-93 ")
  1. ;;2119
  1. ;;21,"00378-6165-05 ")
  1. ;;2133
  1. ;;21,"00378-6165-77 ")
  1. ;;2134
  1. ;;21,"00378-6165-93 ")
  1. ;;2135
  1. ;;21,"00378-6166-05 ")
  1. ;;2144
  1. ;;21,"00378-6166-77 ")
  1. ;;2145
  1. ;;21,"00378-6166-93 ")
  1. ;;2146
  1. ;;21,"00378-6167-77 ")
  1. ;;2154
  1. ;;21,"00378-6167-93 ")
  1. ;;2155
  1. ;;21,"00378-6168-05 ")
  1. ;;2161
  1. ;;21,"00378-6168-77 ")
  1. ;;2162
  1. ;;21,"00378-6168-93 ")
  1. ;;2163
  1. ;;21,"00378-6169-05 ")
  1. ;;2172
  1. ;;21,"00378-6169-77 ")
  1. ;;2173
  1. ;;21,"00378-6169-93 ")
  1. ;;2174
  1. ;;21,"00378-6170-05 ")
  1. ;;2186
  1. ;;21,"00378-6170-77 ")
  1. ;;2187
  1. ;;21,"00378-6170-93 ")
  1. ;;2188
  1. ;;21,"00378-6171-77 ")
  1. ;;2198
  1. ;;21,"00378-6171-93 ")
  1. ;;2199
  1. ;;21,"00378-6201-01 ")
  1. ;;1705
  1. ;;21,"00378-6201-05 ")
  1. ;;1706
  1. ;;21,"00378-6202-01 ")
  1. ;;1728
  1. ;;21,"00378-6202-05 ")
  1. ;;1729
  1. ;;21,"00378-6203-01 ")
  1. ;;1744
  1. ;;21,"00378-6203-05 ")
  1. ;;1745
  1. ;;21,"00378-6320-01 ")
  1. ;;1710
  1. ;;21,"00378-6320-93 ")
  1. ;;1711
  1. ;;21,"00378-6380-01 ")
  1. ;;1719
  1. ;;21,"00378-6380-93 ")
  1. ;;1720
  1. ;;21,"00378-6440-01 ")
  1. ;;1732
  1. ;;21,"00378-6440-93 ")
  1. ;;1733
  1. ;;21,"00378-6895-01 ")
  1. ;;1759
  1. ;;21,"00378-6896-01 ")
  1. ;;1788
  1. ;;21,"00378-6896-05 ")
  1. ;;1789
  1. ;;21,"00378-6897-01 ")
  1. ;;1838
  1. ;;21,"00378-6897-05 ")
  1. ;;1839
  1. ;;21,"00378-6898-01 ")
  1. ;;1923
  1. ;;21,"00378-6898-05 ")
  1. ;;1924
  1. ;;21,"00378-6899-01 ")
  1. ;;1900
  1. ;;21,"00378-6900-01 ")
  1. ;;1981
  1. ;;21,"00440-7096-30 ")
  1. ;;63
  1. ;;21,"00440-7096-90 ")
  1. ;;64
  1. ;;21,"00440-7097-30 ")
  1. ;;113
  1. ;;21,"00440-7097-90 ")
  1. ;;114
  1. ;;21,"00440-7098-30 ")
  1. ;;302
  1. ;;21,"00440-7098-90 ")
  1. ;;303
  1. ;;21,"00440-7140-30 ")
  1. ;;1760
  1. ;;21,"00440-7140-90 ")
  1. ;;1761
  1. ;;21,"00440-7141-30 ")
  1. ;;1786
  1. ;;21,"00440-7141-90 ")
  1. ;;1787
  1. ;;21,"00440-7142-30 ")
  1. ;;1840
  1. ;;21,"00440-7142-90 ")
  1. ;;1841
  1. ;;21,"00440-7143-30 ")
  1. ;;1921
  1. ;;21,"00440-7143-90 ")
  1. ;;1922
  1. ;;21,"00440-7160-90 ")
  1. ;;1161
  1. ;;21,"00440-7163-90 ")
  1. ;;1275
  1. ;;21,"00440-7228-90 ")
  1. ;;816
  1. ;;21,"00440-7229-90 ")
  1. ;;864
  1. ;;21,"00440-7400-90 ")
  1. ;;591
  1. ;;21,"00440-7401-90 ")
  1. ;;605
  1. ;;21,"00440-7402-90 ")
  1. ;;625
  1. ;;21,"00440-7410-90 ")
  1. ;;487
  1. ;;21,"00440-7410-94 ")
  1. ;;488
  1. ;;21,"00440-7411-90 ")
  1. ;;512
  1. ;;21,"00440-7411-91 ")
  1. ;;513
  1. ;;21,"00440-7411-94 ")
  1. ;;514
  1. ;;21,"00440-7412-90 ")
  1. ;;553
  1. ;;21,"00440-7412-94 ")
  1. ;;554
  1. ;;21,"00440-7413-90 ")
  1. ;;563
  1. ;;21,"00440-7419-90 ")
  1. ;;793
  1. ;;21,"00440-7420-90 ")
  1. ;;853
  1. ;;21,"00440-7421-90 ")
  1. ;;909
  1. ;;21,"00440-7422-90 ")
  1. ;;945
  1. ;;21,"00440-7522-90 ")
  1. ;;1016
  1. ;;21,"00440-7523-90 ")
  1. ;;1046
  1. ;;21,"00440-7524-90 ")
  1. ;;1085
  1. ;;21,"00440-7862-90 ")
  1. ;;1166
  1. ;;21,"00440-7863-90 ")
  1. ;;1227
  1. ;;21,"00440-7864-90 ")
  1. ;;1391
  1. ;;21,"00440-8608-30 ")
  1. ;;1553
  1. ;;21,"00440-8608-60 ")
  1. ;;1554
  1. ;;21,"00440-8608-90 ")
  1. ;;1555
  1. ;;21,"00440-8609-30 ")
  1. ;;1610
  1. ;;21,"00440-8609-60 ")
  1. ;;1611
  1. ;;21,"00440-8609-90 ")
  1. ;;1612
  1. ;;21,"00440-8609-94 ")
  1. ;;1613
  1. ;;21,"00440-8610-10 ")
  1. ;;1688
  1. ;;21,"00440-8610-30 ")
  1. ;;1689
  1. ;;21,"00440-8610-60 ")
  1. ;;1690
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP51R10
  1. D ^BGP51R11
  1. D ^BGP51R12
  1. D ^BGP51R13
  1. D ^BGP51R14
  1. D ^BGP51R15
  1. D ^BGP51R16
  1. D ^BGP51R17
  1. D ^BGP51R18
  1. D ^BGP51R19
  1. D ^BGP51R2
  1. D ^BGP51R20
  1. D ^BGP51R21
  1. D ^BGP51R22
  1. D ^BGP51R23
  1. D ^BGP51R24
  1. D ^BGP51R25
  1. D ^BGP51R26
  1. D ^BGP51R3
  1. D ^BGP51R4
  1. D ^BGP51R5
  1. D ^BGP51R6
  1. D ^BGP51R7
  1. D ^BGP51R8
  1. D ^BGP51R9
  1. Q