- BGP13W ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
- +1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
- +2 ;;BGP PQA BETA BLOCKER NDC
- +3 ;
- +4 ; This routine loads Taxonomy BGP PQA BETA BLOCKER NDC
- +5 ;
- START ;
- +1 IF '$GET(ATXPGMC)
- KILL ^TMP("ATX",$JOB)
- +2 SET ATXPGMC=$GET(ATXPGMC)+1
- +3 FOR ATXI=1:1
- SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
- IF X=""
- QUIT
- SET X="^TMP(""ATX"",$J,"_X
- SET ATXI=ATXI+1
- SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
- SET @X=Y
- +4 DO OTHER
- +5 IF $ORDER(^TMP("ATX",$JOB,3.6,0))
- DO BULL^ATXSTX2
- +6 IF $ORDER(^TMP("ATX",$JOB,9002226,0))
- DO TAX^ATXSTX2
- +7 DO KILL^ATXSTX2
- +8 QUIT
- +9 ;
- TMP ;;TAXONOMY (WITH BULLETIN)
- +1 ;;21,"00003-0207-50 ")
- +2 ;;1825
- +3 ;;21,"00003-0207-76 ")
- +4 ;;1826
- +5 ;;21,"00003-0208-50 ")
- +6 ;;1792
- +7 ;;21,"00003-0232-50 ")
- +8 ;;1803
- +9 ;;21,"00003-0241-50 ")
- +10 ;;1861
- +11 ;;21,"00003-0241-76 ")
- +12 ;;1862
- +13 ;;21,"00003-0246-49 ")
- +14 ;;1797
- +15 ;;21,"00003-0283-50 ")
- +16 ;;190
- +17 ;;21,"00005-3219-43 ")
- +18 ;;500
- +19 ;;21,"00005-3220-34 ")
- +20 ;;243
- +21 ;;21,"00005-3234-23 ")
- +22 ;;128
- +23 ;;21,"00005-3235-38 ")
- +24 ;;59
- +25 ;;21,"00005-3238-23 ")
- +26 ;;94
- +27 ;;21,"00005-3816-38 ")
- +28 ;;736
- +29 ;;21,"00005-3817-38 ")
- +30 ;;715
- +31 ;;21,"00006-0059-68 ")
- +32 ;;2345
- +33 ;;21,"00006-0067-68 ")
- +34 ;;216
- +35 ;;21,"00006-0136-68 ")
- +36 ;;2339
- +37 ;;21,"00006-0437-68 ")
- +38 ;;2342
- +39 ;;21,"00007-3370-13 ")
- +40 ;;764
- +41 ;;21,"00007-3370-59 ")
- +42 ;;765
- +43 ;;21,"00007-3371-13 ")
- +44 ;;769
- +45 ;;21,"00007-3371-59 ")
- +46 ;;770
- +47 ;;21,"00007-3372-13 ")
- +48 ;;775
- +49 ;;21,"00007-3372-59 ")
- +50 ;;776
- +51 ;;21,"00007-3373-13 ")
- +52 ;;780
- +53 ;;21,"00007-3373-59 ")
- +54 ;;781
- +55 ;;21,"00007-4139-20 ")
- +56 ;;940
- +57 ;;21,"00007-4139-55 ")
- +58 ;;941
- +59 ;;21,"00007-4140-20 ")
- +60 ;;1000
- +61 ;;21,"00007-4140-55 ")
- +62 ;;1001
- +63 ;;21,"00007-4141-20 ")
- +64 ;;786
- +65 ;;21,"00007-4141-55 ")
- +66 ;;787
- +67 ;;21,"00007-4142-20 ")
- +68 ;;860
- +69 ;;21,"00007-4142-55 ")
- +70 ;;861
- +71 ;;21,"00008-4177-01 ")
- +72 ;;217
- +73 ;;21,"00008-4179-01 ")
- +74 ;;235
- +75 ;;21,"00024-2300-20 ")
- +76 ;;708
- +77 ;;21,"00024-2301-10 ")
- +78 ;;699
- +79 ;;21,"00025-5101-31 ")
- +80 ;;700
- +81 ;;21,"00025-5201-31 ")
- +82 ;;709
- +83 ;;21,"00028-0035-01 ")
- +84 ;;182
- +85 ;;21,"00028-0051-01 ")
- +86 ;;1558
- +87 ;;21,"00028-0051-10 ")
- +88 ;;1559
- +89 ;;21,"00028-0053-01 ")
- +90 ;;169
- +91 ;;21,"00028-0071-01 ")
- +92 ;;1372
- +93 ;;21,"00028-0071-10 ")
- +94 ;;1373
- +95 ;;21,"00028-0071-61 ")
- +96 ;;1374
- +97 ;;21,"00028-0073-01 ")
- +98 ;;177
- +99 ;;21,"00046-0421-81 ")
- +100 ;;2048
- +101 ;;21,"00046-0421-95 ")
- +102 ;;2049
- +103 ;;21,"00046-0422-81 ")
- +104 ;;2116
- +105 ;;21,"00046-0422-95 ")
- +106 ;;2117
- +107 ;;21,"00046-0424-81 ")
- +108 ;;2210
- +109 ;;21,"00046-0424-95 ")
- +110 ;;2211
- +111 ;;21,"00046-0426-81 ")
- +112 ;;2275
- +113 ;;21,"00046-0428-81 ")
- +114 ;;2301
- +115 ;;21,"00046-0470-81 ")
- +116 ;;1961
- +117 ;;21,"00046-0471-81 ")
- +118 ;;1987
- +119 ;;21,"00046-0473-81 ")
- +120 ;;1915
- +121 ;;21,"00046-0479-81 ")
- +122 ;;1940
- +123 ;;21,"00046-0484-81 ")
- +124 ;;202
- +125 ;;21,"00046-0488-81 ")
- +126 ;;212
- +127 ;;21,"00054-3727-63 ")
- +128 ;;2019
- +129 ;;21,"00054-3728-44 ")
- +130 ;;2018
- +131 ;;21,"00054-3730-63 ")
- +132 ;;2021
- +133 ;;21,"00054-8764-16 ")
- +134 ;;2020
- +135 ;;21,"00074-1664-13 ")
- +136 ;;762
- +137 ;;21,"00074-1665-13 ")
- +138 ;;763
- +139 ;;21,"00078-0458-05 ")
- +140 ;;1560
- +141 ;;21,"00078-0458-09 ")
- +142 ;;1561
- +143 ;;21,"00078-0459-05 ")
- +144 ;;1375
- +145 ;;21,"00078-0459-09 ")
- +146 ;;1376
- +147 ;;21,"00078-0460-05 ")
- +148 ;;183
- +149 ;;21,"00078-0461-05 ")
- +150 ;;170
- +151 ;;21,"00078-0462-05 ")
- +152 ;;178
- +153 ;;21,"00085-0244-04 ")
- +154 ;;1076
- +155 ;;21,"00085-0244-05 ")
- +156 ;;1077
- +157 ;;21,"00085-0244-07 ")
- +158 ;;1078
- +159 ;;21,"00085-0244-08 ")
- +160 ;;1079
- +161 ;;21,"00085-0438-03 ")
- +162 ;;1167
- +163 ;;21,"00085-0438-05 ")
- +164 ;;1168
- +165 ;;21,"00085-0438-06 ")
- +166 ;;1169
- +167 ;;21,"00085-0752-04 ")
- +168 ;;1122
- +169 ;;21,"00085-0752-05 ")
- +170 ;;1123
- +171 ;;21,"00085-0752-07 ")
- +172 ;;1124
- +173 ;;21,"00085-0752-08 ")
- +174 ;;1125
- +175 ;;21,"00091-4500-15 ")
- +176 ;;1901
- +177 ;;21,"00093-0051-01 ")
- +178 ;;942
- +179 ;;21,"00093-0051-05 ")
- +180 ;;943
- +181 ;;21,"00093-0135-01 ")
- +182 ;;1002
- +183 ;;21,"00093-0135-05 ")
- +184 ;;1003
- +185 ;;21,"00093-0733-01 ")
- +186 ;;1562
- +187 ;;21,"00093-0733-10 ")
- +188 ;;1563
- +189 ;;21,"00093-0734-01 ")
- +190 ;;1377
- +191 ;;21,"00093-0734-10 ")
- +192 ;;1378
- +193 ;;21,"00093-0752-01 ")
- +194 ;;501
- +195 ;;21,"00093-0752-10 ")
- +196 ;;502
- +197 ;;21,"00093-0753-01 ")
- +198 ;;244
- +199 ;;21,"00093-0753-05 ")
- +200 ;;245
- +201 ;;21,"00093-0787-01 ")
- +202 ;;364
- +203 ;;21,"00093-0787-10 ")
- +204 ;;365
- +205 ;;21,"00093-4235-01 ")
- +206 ;;1804
- +207 ;;21,"00093-4236-01 ")
- +208 ;;1827
- +209 ;;21,"00093-4237-01 ")
- +210 ;;1863
- +211 ;;21,"00093-5270-56 ")
- +212 ;;737
- +213 ;;21,"00093-5271-56 ")
- +214 ;;716
- +215 ;;21,"00093-7295-01 ")
- +216 ;;788
- +217 ;;21,"00093-7295-05 ")
- +218 ;;789
- +219 ;;21,"00093-7296-01 ")
- +220 ;;862
- +221 ;;21,"00093-7296-05 ")
- +222 ;;863
- +223 ;;21,"00115-5311-01 ")
- +224 ;;191
- +225 ;;21,"00115-5322-01 ")
- +226 ;;195
- +227 ;;21,"00172-4217-60 ")
- +228 ;;1908
- +229 ;;21,"00172-4218-60 ")
- +230 ;;1902
- +231 ;;21,"00172-4235-60 ")
- +232 ;;1805
- +233 ;;21,"00172-4235-70 ")
- +234 ;;1806
- +235 ;;21,"00172-4236-60 ")
- +236 ;;1828
- +237 ;;21,"00172-4237-60 ")
- +238 ;;1864
- +239 ;;21,"00172-4238-60 ")
- +240 ;;1793
- +241 ;;21,"00172-4239-60 ")
- +242 ;;1798
- +243 ;;21,"00172-4364-00 ")
- +244 ;;1119
- +245 ;;21,"00172-4364-10 ")
- +246 ;;1120
- +247 ;;21,"00172-4364-60 ")
- +248 ;;1080
- +249 ;;21,"00172-4364-70 ")
- +250 ;;1081
- +251 ;;21,"00172-4365-00 ")
- +252 ;;1165
- +253 ;;21,"00172-4365-10 ")
- +254 ;;1166
- +255 ;;21,"00172-4365-60 ")
- +256 ;;1126
- +257 ;;21,"00172-4365-70 ")
- +258 ;;1127
- +259 ;;21,"00172-4366-60 ")
- +260 ;;1170
- +261 ;;21,"00172-5730-60 ")
- +262 ;;95
- +263 ;;21,"00172-5730-70 ")
- +264 ;;96
- +265 ;;21,"00172-5731-60 ")
- +266 ;;129
- +267 ;;21,"00172-5731-70 ")
- +268 ;;130
- +269 ;;21,"00172-5732-60 ")
- +270 ;;60
- +271 ;;21,"00172-5732-70 ")
- +272 ;;61
- +273 ;;21,"00173-0346-44 ")
- +274 ;;1082
- +275 ;;21,"00173-0346-47 ")
- +276 ;;1083
- +277 ;;21,"00173-0347-43 ")
- +278 ;;1128
- +279 ;;21,"00173-0347-44 ")
- +280 ;;1129
- +281 ;;21,"00173-0347-47 ")
- +282 ;;1130
- +283 ;;21,"00173-0348-43 ")
- +284 ;;1171
- +285 ;;21,"00173-0348-44 ")
- +286 ;;1172
- +287 ;;21,"00173-0348-47 ")
- +288 ;;1173
- +289 ;;21,"00173-0790-01 ")
- +290 ;;2039
- +291 ;;21,"00173-0790-02 ")
- +292 ;;2040
- +293 ;;21,"00173-0791-01 ")
- +294 ;;2030
- +295 ;;21,"00173-0791-02 ")
- +296 ;;2031
- +297 ;;21,"00182-1001-89 ")
- +298 ;;366
- +299 ;;21,"00182-1812-89 ")
- +300 ;;2050
- +301 ;;21,"00182-1813-89 ")
- +302 ;;2118
- +303 ;;21,"00182-1814-89 ")
- +304 ;;2212
- +305 ;;21,"00182-1815-89 ")
- +306 ;;2302
- +307 ;;21,"00182-2632-89 ")
- +308 ;;1807
- +309 ;;21,"00182-2633-89 ")
- +310 ;;1829
- +311 ;;21,"00182-2634-89 ")
- +312 ;;1865
- +313 ;;21,"00182-8202-00 ")
- +314 ;;1084
- +315 ;;21,"00182-8202-89 ")
- +316 ;;1085
- +317 ;;21,"00182-8203-00 ")
- +318 ;;1131
- +319 ;;21,"00182-8203-89 ")
- +320 ;;1132
- +321 ;;21,"00182-8235-00 ")
- +322 ;;367
- +323 ;;21,"00182-8235-89 ")
- +324 ;;368
- +325 ;;21,"00182-8236-00 ")
- +326 ;;503
- +327 ;;21,"00182-8236-89 ")
- +328 ;;504
- +329 ;;21,"00185-0010-01 ")
- +330 ;;1086
- +331 ;;21,"00185-0010-05 ")
- +332 ;;1087
- +333 ;;21,"00185-0117-01 ")
- +334 ;;1133
- +335 ;;21,"00185-0117-05 ")
- +336 ;;1134
- +337 ;;21,"00185-0118-01 ")
- +338 ;;1174
- +339 ;;21,"00185-0118-05 ")
- +340 ;;1175
- +341 ;;21,"00185-0281-01 ")
- +342 ;;1268
- +343 ;;21,"00185-0281-10 ")
- +344 ;;1269
- +345 ;;21,"00185-0282-01 ")
- +346 ;;1308
- +347 ;;21,"00185-0282-10 ")
- +348 ;;1309
- +349 ;;21,"00185-0283-01 ")
- +350 ;;1190
- +351 ;;21,"00185-0283-10 ")
- +352 ;;1191
- +353 ;;21,"00185-0284-01 ")
- +354 ;;1237
- +355 ;;21,"00185-0284-10 ")
- +356 ;;1238
- +357 ;;21,"00185-0701-01 ")
- +358 ;;97
- +359 ;;21,"00185-0701-05 ")
- +360 ;;98
- +361 ;;21,"00185-0701-30 ")
- +362 ;;99
- +363 ;;21,"00185-0704-01 ")
- +364 ;;131
- +365 ;;21,"00185-0704-05 ")
- +366 ;;132
- +367 ;;21,"00185-0704-30 ")
- +368 ;;133
- +369 ;;21,"00185-0707-01 ")
- +370 ;;62
- +371 ;;21,"00185-0707-05 ")
- +372 ;;63
- +373 ;;21,"00185-0707-30 ")
- +374 ;;64
- +375 ;;21,"00185-0771-01 ")
- +376 ;;738
- +377 ;;21,"00185-0771-30 ")
- +378 ;;739
- +379 ;;21,"00185-0774-01 ")
- +380 ;;717
- +381 ;;21,"00185-0774-30 ")
- +382 ;;718
- +383 ;;21,"00186-1088-05 ")
- +384 ;;1270
- +385 ;;21,"00186-1088-39 ")
- +386 ;;1271
- +387 ;;21,"00186-1090-05 ")
- +388 ;;1310
- +389 ;;21,"00186-1090-39 ")
- +390 ;;1311
- +391 ;;21,"00186-1090-50 ")
- +392 ;;1312
- +393 ;;21,"00186-1092-05 ")
- +394 ;;1192
- +395 ;;21,"00186-1092-39 ")
- +396 ;;1193
- +397 ;;21,"00186-1094-05 ")
- +398 ;;1239
- +399 ;;21,"00186-7300-05 ")
- +400 ;;1272
- +401 ;;21,"00186-7301-05 ")
- +402 ;;1313
- +403 ;;21,"00186-7302-05 ")
- +404 ;;1194
- +405 ;;21,"00186-7303-05 ")
- +406 ;;1240
- +407 ;;21,"00228-2175-11 ")
- +408 ;;944
- +409 ;;21,"00228-2176-11 ")
- +410 ;;1004
- +411 ;;21,"00228-2177-11 ")
- +412 ;;790
- +413 ;;21,"00228-2178-11 ")
- +414 ;;864
- +415 ;;21,"00228-2358-10 ")
- +416 ;;203
- +417 ;;21,"00228-2358-50 ")
- +418 ;;204
- +419 ;;21,"00228-2358-96 ")
- +420 ;;205
- +421 ;;21,"00228-2360-10 ")
- +422 ;;213
- +423 ;;21,"00228-2650-10 ")
- +424 ;;100
- +425 ;;21,"00228-2651-10 ")
- +426 ;;134
- +427 ;;21,"00228-2652-03 ")
- +428 ;;65
- +429 ;;21,"00228-2778-11 ")
- +430 ;;1962
- +431 ;;21,"00228-2778-50 ")
- +432 ;;1963
- +433 ;;21,"00228-2779-11 ")
- +434 ;;1988
- +435 ;;21,"00228-2779-50 ")
- +436 ;;1989
- +437 ;;21,"00228-2780-11 ")
- +438 ;;1916
- +439 ;;21,"00228-2780-50 ")
- +440 ;;1917
- +441 ;;21,"00228-2781-11 ")
- +442 ;;1941
- +443 ;;21,"00228-2781-50 ")
- +444 ;;1942
- +445 ;;21,"00245-0084-10 ")
- +446 ;;1964
- +447 ;;21,"00245-0084-11 ")
- +448 ;;1965
- +449 ;;21,"00245-0085-10 ")
- +450 ;;1990
- +451 ;;21,"00245-0085-11 ")
- +452 ;;1991
- +453 ;;21,"00245-0086-10 ")
- +454 ;;1918
- +455 ;;21,"00245-0086-11 ")
- +456 ;;1919
- +457 ;;21,"00245-0087-10 ")
- +458 ;;1943
- +459 ;;21,"00245-0087-11 ")
- +460 ;;1944
- +461 ;;21,"00247-1012-00 ")
- +462 ;;246
- +463 ;;21,"00247-1050-04 ")
- +464 ;;2051
- +465 ;;21,"00247-1050-30 ")
- +466 ;;2052
- +467 ;;21,"00247-1050-52 ")
- +468 ;;2053
- +469 ;;21,"00247-1050-59 ")
- +470 ;;2054
- +471 ;;21,"00247-1050-60 ")
- +472 ;;2055
- +473 ;;21,"00247-1051-00 ")
- +474 ;;2213
- +475 ;;21,"00247-1051-30 ")
- +476 ;;2214
- +477 ;;21,"00247-1052-30 ")
- +478 ;;206
- +479 ;;21,"00247-1052-45 ")
- +480 ;;207
- +481 ;;21,"00247-1065-30 ")
- +482 ;;1564
- +483 ;;21,"00247-1072-30 ")
- +484 ;;505
- +485 ;;21,"00247-1072-60 ")
- +486 ;;506
- +487 ;;21,"00247-1119-14 ")
- +488 ;;1565
- +489 ;;21,"00247-1119-30 ")
- +490 ;;1566
- +491 ;;21,"00247-1119-52 ")
- +492 ;;1567
- +493 ;;21,"00247-1119-60 ")
- +494 ;;1568
- +495 ;;21,"00247-1120-30 ")
- +496 ;;1379
- +497 ;;21,"00247-1120-60 ")
- +498 ;;1380
- +499 ;;21,"00247-1121-30 ")
- +500 ;;184
- +501 ;;21,"00247-1121-60 ")
- +502 ;;185
- +503 ;;21,"00247-1122-30 ")
- +504 ;;171
- +505 ;;21,"00247-1122-60 ")
- +506 ;;172
- +507 ;;21,"00247-1123-30 ")
- +508 ;;179
- +509 ;;21,"00247-1123-60 ")
- +510 ;;180
- +511 ;;21,"00247-1146-30 ")
- +512 ;;369
- +513 ;;21,"00247-1146-60 ")
- +514 ;;370
- +515 ;;21,"00247-1273-00 ")
- +516 ;;2119
- +517 ;;21,"00247-1273-79 ")
- +518 ;;2120
- +519 ;;21,"00247-1274-00 ")
- +520 ;;1195
- +521 ;;21,"00247-1274-60 ")
- +522 ;;1196
- +523 ;;21,"00310-0101-10 ")
- +524 ;;247
- +525 ;;21,"00310-0105-10 ")
- +526 ;;507
- +527 ;;21,"00310-0105-34 ")
- +528 ;;508
- +529 ;;21,"00310-0107-10 ")
- +530 ;;371
- +531 ;;21,"00310-0115-10 ")
- +532 ;;24
- +533 ;;21,"00310-0117-10 ")
- +534 ;;1
- +535 ;;21,"00378-0018-01 ")
- +536 ;;1514
- +537 ;;21,"00378-0018-05 ")
- +538 ;;1515
- +539 ;;21,"00378-0018-91 ")
- +540 ;;1516
- +541 ;;21,"00378-0028-01 ")
- +542 ;;1808
- +543 ;;21,"00378-0032-01 ")
- +544 ;;1569
- +545 ;;21,"00378-0032-10 ")
- +546 ;;1570
- +547 ;;21,"00378-0047-01 ")
- +548 ;;1381
- +549 ;;21,"00378-0047-10 ")
- +550 ;;1382
- +551 ;;21,"00378-0052-01 ")
- +552 ;;1909
- +553 ;;21,"00378-0055-01 ")
- +554 ;;2346
- +555 ;;21,"00378-0096-01 ")
- +556 ;;192
- +557 ;;21,"00378-0099-01 ")
- +558 ;;196
- +559 ;;21,"00378-0127-01 ")
- +560 ;;1903
- +561 ;;21,"00378-0182-01 ")
- +562 ;;2056
- +563 ;;21,"00378-0182-10 ")
- +564 ;;2057
- +565 ;;21,"00378-0183-01 ")
- +566 ;;2121
- +567 ;;21,"00378-0183-10 ")
- +568 ;;2122
- +569 ;;21,"00378-0184-01 ")
- +570 ;;2215
- +571 ;;21,"00378-0184-10 ")
- +572 ;;2216
- +573 ;;21,"00378-0185-01 ")
- +574 ;;2303
- +575 ;;21,"00378-0185-05 ")
- +576 ;;2304
- +577 ;;21,"00378-0218-01 ")
- +578 ;;372
- +579 ;;21,"00378-0218-10 ")
- +580 ;;373
- +581 ;;21,"00378-0221-01 ")
- +582 ;;2340
- +583 ;;21,"00378-0231-01 ")
- +584 ;;509
- +585 ;;21,"00378-0231-10 ")
- +586 ;;510
- +587 ;;21,"00378-0347-01 ")
- +588 ;;214
- +589 ;;21,"00378-0424-01 ")
- +590 ;;186
- +591 ;;21,"00378-0434-01 ")
- +592 ;;173
- +593 ;;21,"00378-0445-01 ")
- +594 ;;181
- +595 ;;21,"00378-0501-01 ")
- +596 ;;101
- +597 ;;21,"00378-0501-10 ")
- +598 ;;102
- +599 ;;21,"00378-0503-01 ")
- +600 ;;135
- +601 ;;21,"00378-0503-10 ")
- +602 ;;136
- +603 ;;21,"00378-0505-01 ")
- +604 ;;66
- +605 ;;21,"00378-0505-05 ")
- +606 ;;67
- +607 ;;21,"00378-0523-01 ")
- +608 ;;740
- +609 ;;21,"00378-0523-93 ")
- +610 ;;741
- +611 ;;21,"00378-0524-01 ")
- +612 ;;719
- +613 ;;21,"00378-0524-93 ")
- +614 ;;720
- +615 ;;21,"00378-0715-01 ")
- +616 ;;2343
- +617 ;;21,"00378-0731-01 ")
- +618 ;;208
- +619 ;;21,"00378-0757-01 ")
- +620 ;;248
- +621 ;;21,"00378-0757-10 ")
- +622 ;;249
- +623 ;;21,"00378-0757-93 ")
- +624 ;;250
- +625 ;;21,"00378-1132-01 ")
- +626 ;;1866
- +627 ;;21,"00378-1132-10 ")
- +628 ;;1867
- +629 ;;21,"00378-1171-01 ")
- +630 ;;1830
- +631 ;;21,"00378-1171-10 ")
- +632 ;;1831
- +633 ;;21,"00378-1200-01 ")
- +634 ;;218
- +635 ;;21,"00378-1400-01 ")
- +636 ;;236
- +637 ;;21,"00378-2063-01 ")
- +638 ;;25
- +639 ;;21,"00378-2064-01 ")
- +640 ;;2
- +641 ;;21,"00378-2064-93 ")
- +642 ;;3
- +643 ;;21,"00378-3631-01 ")
- +644 ;;945
- +645 ;;21,"00378-3631-05 ")
- +646 ;;946
- +647 ;;21,"00378-3632-01 ")
- +648 ;;1005
- +649 ;;21,"00378-3632-05 ")
- +650 ;;1006
- +651 ;;21,"00378-3633-01 ")
- +652 ;;791
- +653 ;;21,"00378-3633-05 ")
- +654 ;;792
- +655 ;;21,"00378-3634-01 ")
- +656 ;;865
- +657 ;;21,"00378-3634-05 ")
- +658 ;;866
- +659 ;;21,"00378-6160-01 ")
- +660 ;;1966
- +661 ;;21,"00378-6160-05 ")
- +662 ;;1967
- +663 ;;21,"00378-6180-01 ")
- +664 ;;1992
- +665 ;;21,"00378-6180-05 ")
- +666 ;;1993
- +667 ;;21,"00378-6220-01 ")
- +668 ;;1920
- +669 ;;21,"00378-6220-05 ")
- +670 ;;1921
- +671 ;;21,"00378-6260-01 ")
- +672 ;;1945
- +673 ;;21,"00378-6260-05 ")
- +674 ;;1946
- +675 ;;21,"00406-2022-01 ")
- +676 ;;374
- +677 ;;21,"00406-2022-10 ")
- +678 ;;375
- +679 ;;21,"00406-2023-01 ")
- +680 ;;511
- +681 ;;21,"00406-2023-10 ")
- +682 ;;512
- +683 ;;21,"00406-2024-01 ")
- +684 ;;251
- +685 ;;21,"00406-2024-10 ")
- +686 ;;252
- +687 ;;21,"00440-7170-30 ")
- +688 ;;376
- +689 ;;21,"00440-7170-45 ")
- +690 ;;377
- +691 ;;21,"00440-7170-90 ")
- +692 ;;378
- +693 ;;21,"00440-7171-10 ")
- +694 ;;513
- +695 ;;21,"00440-7171-30 ")
- +696 ;;514
- +697 ;;21,"00440-7171-45 ")
- +698 ;;515
- +699 ;;21,"00440-7171-60 ")
- +700 ;;516
- +701 ;;21,"00440-7171-90 ")
- +702 ;;517
- +703 ;;21,"00440-7171-92 ")
- +704 ;;518
- +705 ;;21,"00440-7172-30 ")
- +706 ;;253
- +707 ;;21,"00440-7172-90 ")
- +708 ;;254
- +709 ;;21,"00440-7680-60 ")
- +710 ;;1088
- +711 ;;21,"00440-7681-60 ")
- +712 ;;1135
- +713 ;;21,"00440-7784-45 ")
- +714 ;;1517
- +715 ;;21,"00440-7784-90 ")
- +716 ;;1518
- +717 ;
- OTHER ; OTHER ROUTINES
- +1 DO ^BGP13W10
- +2 DO ^BGP13W11
- +3 DO ^BGP13W12
- +4 DO ^BGP13W13
- +5 DO ^BGP13W14
- +6 DO ^BGP13W15
- +7 DO ^BGP13W16
- +8 DO ^BGP13W17
- +9 DO ^BGP13W18
- +10 DO ^BGP13W19
- +11 DO ^BGP13W2
- +12 DO ^BGP13W20
- +13 DO ^BGP13W21
- +14 DO ^BGP13W22
- +15 DO ^BGP13W23
- +16 DO ^BGP13W24
- +17 DO ^BGP13W25
- +18 DO ^BGP13W26
- +19 DO ^BGP13W27
- +20 DO ^BGP13W28
- +21 DO ^BGP13W29
- +22 DO ^BGP13W3
- +23 DO ^BGP13W30
- +24 DO ^BGP13W4
- +25 DO ^BGP13W5
- +26 DO ^BGP13W6
- +27 DO ^BGP13W7
- +28 DO ^BGP13W8
- +29 DO ^BGP13W9
- +30 QUIT