- BGP13L ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
- +1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
- +2 ;;BGP HEDIS NARCOTIC NDC
- +3 ;
- +4 ; This routine loads Taxonomy BGP HEDIS NARCOTIC 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,"00002-0353-02 ")
- +2 ;;496
- +3 ;;21,"00002-0353-03 ")
- +4 ;;497
- +5 ;;21,"00002-0353-33 ")
- +6 ;;498
- +7 ;;21,"00002-0803-02 ")
- +8 ;;486
- +9 ;;21,"00002-0803-03 ")
- +10 ;;487
- +11 ;;21,"00002-0803-33 ")
- +12 ;;488
- +13 ;;21,"00002-3111-02 ")
- +14 ;;492
- +15 ;;21,"00002-3111-03 ")
- +16 ;;493
- +17 ;;21,"00008-0259-01 ")
- +18 ;;560
- +19 ;;21,"00024-0332-06 ")
- +20 ;;503
- +21 ;;21,"00024-0335-02 ")
- +22 ;;504
- +23 ;;21,"00024-0335-04 ")
- +24 ;;505
- +25 ;;21,"00024-0335-06 ")
- +26 ;;506
- +27 ;;21,"00024-0337-04 ")
- +28 ;;507
- +29 ;;21,"00024-1937-04 ")
- +30 ;;814
- +31 ;;21,"00024-1951-04 ")
- +32 ;;826
- +33 ;;21,"00054-3545-63 ")
- +34 ;;561
- +35 ;;21,"00054-4595-25 ")
- +36 ;;562
- +37 ;;21,"00054-4596-25 ")
- +38 ;;563
- +39 ;;21,"00054-8595-11 ")
- +40 ;;564
- +41 ;;21,"00054-8596-11 ")
- +42 ;;565
- +43 ;;21,"00074-1176-30 ")
- +44 ;;508
- +45 ;;21,"00074-1178-30 ")
- +46 ;;509
- +47 ;;21,"00074-1179-01 ")
- +48 ;;510
- +49 ;;21,"00074-1179-02 ")
- +50 ;;511
- +51 ;;21,"00074-1179-21 ")
- +52 ;;512
- +53 ;;21,"00074-1179-30 ")
- +54 ;;513
- +55 ;;21,"00074-1180-69 ")
- +56 ;;514
- +57 ;;21,"00074-1181-30 ")
- +58 ;;515
- +59 ;;21,"00074-1201-20 ")
- +60 ;;516
- +61 ;;21,"00074-1203-01 ")
- +62 ;;517
- +63 ;;21,"00074-1253-01 ")
- +64 ;;518
- +65 ;;21,"00074-1254-01 ")
- +66 ;;519
- +67 ;;21,"00074-1255-02 ")
- +68 ;;520
- +69 ;;21,"00074-1256-01 ")
- +70 ;;521
- +71 ;;21,"00074-1266-01 ")
- +72 ;;522
- +73 ;;21,"00074-1267-01 ")
- +74 ;;523
- +75 ;;21,"00074-1269-01 ")
- +76 ;;524
- +77 ;;21,"00074-1271-02 ")
- +78 ;;525
- +79 ;;21,"00074-1920-10 ")
- +80 ;;823
- +81 ;;21,"00074-1941-01 ")
- +82 ;;824
- +83 ;;21,"00074-1941-11 ")
- +84 ;;825
- +85 ;;21,"00074-6030-04 ")
- +86 ;;566
- +87 ;;21,"00093-0490-01 ")
- +88 ;;49
- +89 ;;21,"00093-0490-05 ")
- +90 ;;50
- +91 ;;21,"00093-0741-01 ")
- +92 ;;719
- +93 ;;21,"00093-0890-01 ")
- +94 ;;51
- +95 ;;21,"00093-0890-05 ")
- +96 ;;52
- +97 ;;21,"00143-3235-01 ")
- +98 ;;720
- +99 ;;21,"00143-3235-05 ")
- +100 ;;721
- +101 ;;21,"00143-3235-10 ")
- +102 ;;722
- +103 ;;21,"00172-4980-60 ")
- +104 ;;53
- +105 ;;21,"00172-4980-70 ")
- +106 ;;54
- +107 ;;21,"00172-4980-80 ")
- +108 ;;55
- +109 ;;21,"00182-0317-89 ")
- +110 ;;56
- +111 ;;21,"00182-0698-01 ")
- +112 ;;723
- +113 ;;21,"00182-0698-05 ")
- +114 ;;724
- +115 ;;21,"00182-1673-01 ")
- +116 ;;432
- +117 ;;21,"00182-1673-05 ")
- +118 ;;433
- +119 ;;21,"00182-9130-66 ")
- +120 ;;567
- +121 ;;21,"00182-9131-65 ")
- +122 ;;568
- +123 ;;21,"00182-9140-01 ")
- +124 ;;569
- +125 ;;21,"00182-9141-01 ")
- +126 ;;570
- +127 ;;21,"00228-2082-10 ")
- +128 ;;725
- +129 ;;21,"00228-2082-50 ")
- +130 ;;726
- +131 ;;21,"00228-2085-10 ")
- +132 ;;57
- +133 ;;21,"00228-2085-50 ")
- +134 ;;58
- +135 ;;21,"00247-0086-00 ")
- +136 ;;59
- +137 ;;21,"00247-0086-02 ")
- +138 ;;60
- +139 ;;21,"00247-0086-03 ")
- +140 ;;61
- +141 ;;21,"00247-0086-04 ")
- +142 ;;62
- +143 ;;21,"00247-0086-05 ")
- +144 ;;63
- +145 ;;21,"00247-0086-06 ")
- +146 ;;64
- +147 ;;21,"00247-0086-08 ")
- +148 ;;65
- +149 ;;21,"00247-0086-10 ")
- +150 ;;66
- +151 ;;21,"00247-0086-12 ")
- +152 ;;67
- +153 ;;21,"00247-0086-15 ")
- +154 ;;68
- +155 ;;21,"00247-0086-16 ")
- +156 ;;69
- +157 ;;21,"00247-0086-20 ")
- +158 ;;70
- +159 ;;21,"00247-0086-24 ")
- +160 ;;71
- +161 ;;21,"00247-0086-25 ")
- +162 ;;72
- +163 ;;21,"00247-0086-28 ")
- +164 ;;73
- +165 ;;21,"00247-0086-30 ")
- +166 ;;74
- +167 ;;21,"00247-0086-40 ")
- +168 ;;75
- +169 ;;21,"00247-0086-45 ")
- +170 ;;76
- +171 ;;21,"00247-0086-50 ")
- +172 ;;77
- +173 ;;21,"00247-0086-59 ")
- +174 ;;78
- +175 ;;21,"00247-0086-60 ")
- +176 ;;79
- +177 ;;21,"00247-0086-77 ")
- +178 ;;80
- +179 ;;21,"00247-0086-90 ")
- +180 ;;81
- +181 ;;21,"00247-0086-98 ")
- +182 ;;82
- +183 ;;21,"00247-0154-04 ")
- +184 ;;727
- +185 ;;21,"00247-0154-10 ")
- +186 ;;728
- +187 ;;21,"00247-0154-12 ")
- +188 ;;729
- +189 ;;21,"00247-0154-20 ")
- +190 ;;730
- +191 ;;21,"00247-0154-30 ")
- +192 ;;731
- +193 ;;21,"00247-0154-40 ")
- +194 ;;732
- +195 ;;21,"00247-0611-20 ")
- +196 ;;83
- +197 ;;21,"00247-0818-04 ")
- +198 ;;460
- +199 ;;21,"00247-0818-12 ")
- +200 ;;461
- +201 ;;21,"00247-0818-15 ")
- +202 ;;462
- +203 ;;21,"00247-0818-20 ")
- +204 ;;463
- +205 ;;21,"00247-0818-25 ")
- +206 ;;464
- +207 ;;21,"00247-0818-30 ")
- +208 ;;465
- +209 ;;21,"00247-0971-20 ")
- +210 ;;434
- +211 ;;21,"00247-0971-28 ")
- +212 ;;435
- +213 ;;21,"00247-1037-12 ")
- +214 ;;827
- +215 ;;21,"00247-1037-20 ")
- +216 ;;828
- +217 ;;21,"00247-1037-90 ")
- +218 ;;829
- +219 ;;21,"00247-1038-90 ")
- +220 ;;815
- +221 ;;21,"00247-1441-01 ")
- +222 ;;11
- +223 ;;21,"00247-1441-04 ")
- +224 ;;12
- +225 ;;21,"00247-1441-05 ")
- +226 ;;13
- +227 ;;21,"00247-1441-20 ")
- +228 ;;14
- +229 ;;21,"00247-2124-00 ")
- +230 ;;84
- +231 ;;21,"00254-5112-28 ")
- +232 ;;85
- +233 ;;21,"00254-5112-35 ")
- +234 ;;86
- +235 ;;21,"00254-5112-38 ")
- +236 ;;87
- +237 ;;21,"00254-5113-28 ")
- +238 ;;88
- +239 ;;21,"00254-5113-35 ")
- +240 ;;89
- +241 ;;21,"00254-5113-38 ")
- +242 ;;90
- +243 ;;21,"00254-5114-35 ")
- +244 ;;91
- +245 ;;21,"00254-5114-38 ")
- +246 ;;92
- +247 ;;21,"00338-2691-75 ")
- +248 ;;571
- +249 ;;21,"00338-9370-41 ")
- +250 ;;572
- +251 ;;21,"00338-9372-48 ")
- +252 ;;573
- +253 ;;21,"00338-9373-48 ")
- +254 ;;574
- +255 ;;21,"00378-0130-01 ")
- +256 ;;15
- +257 ;;21,"00378-0130-05 ")
- +258 ;;16
- +259 ;;21,"00378-0131-05 ")
- +260 ;;436
- +261 ;;21,"00378-0155-01 ")
- +262 ;;93
- +263 ;;21,"00378-0155-05 ")
- +264 ;;94
- +265 ;;21,"00378-7065-01 ")
- +266 ;;733
- +267 ;;21,"00378-7065-05 ")
- +268 ;;734
- +269 ;;21,"00406-1721-01 ")
- +270 ;;95
- +271 ;;21,"00406-1721-05 ")
- +272 ;;96
- +273 ;;21,"00406-1721-10 ")
- +274 ;;97
- +275 ;;21,"00406-1721-91 ")
- +276 ;;98
- +277 ;;21,"00406-1772-01 ")
- +278 ;;99
- +279 ;;21,"00406-1772-03 ")
- +280 ;;100
- +281 ;;21,"00406-1772-05 ")
- +282 ;;101
- +283 ;;21,"00406-1772-10 ")
- +284 ;;102
- +285 ;;21,"00406-1772-12 ")
- +286 ;;103
- +287 ;;21,"00406-1772-33 ")
- +288 ;;104
- +289 ;;21,"00406-1772-60 ")
- +290 ;;105
- +291 ;;21,"00406-1772-62 ")
- +292 ;;106
- +293 ;;21,"00406-1772-90 ")
- +294 ;;107
- +295 ;;21,"00406-1772-91 ")
- +296 ;;108
- +297 ;;21,"00406-3118-01 ")
- +298 ;;626
- +299 ;;21,"00406-7113-01 ")
- +300 ;;575
- +301 ;;21,"00406-7115-01 ")
- +302 ;;576
- +303 ;;21,"00409-1176-30 ")
- +304 ;;526
- +305 ;;21,"00409-1178-30 ")
- +306 ;;527
- +307 ;;21,"00409-1179-30 ")
- +308 ;;528
- +309 ;;21,"00409-1180-69 ")
- +310 ;;529
- +311 ;;21,"00409-1181-30 ")
- +312 ;;530
- +313 ;;21,"00409-1201-20 ")
- +314 ;;531
- +315 ;;21,"00409-1203-01 ")
- +316 ;;532
- +317 ;;21,"00409-1253-01 ")
- +318 ;;533
- +319 ;;21,"00409-1254-01 ")
- +320 ;;534
- +321 ;;21,"00409-1255-02 ")
- +322 ;;535
- +323 ;;21,"00409-1256-01 ")
- +324 ;;536
- +325 ;;21,"00409-1920-10 ")
- +326 ;;818
- +327 ;;21,"00409-1941-01 ")
- +328 ;;819
- +329 ;;21,"00409-6030-04 ")
- +330 ;;577
- +331 ;;21,"00440-8210-10 ")
- +332 ;;109
- +333 ;;21,"00555-0381-02 ")
- +334 ;;578
- +335 ;;21,"00555-0382-02 ")
- +336 ;;579
- +337 ;;21,"00574-7040-12 ")
- +338 ;;449
- +339 ;;21,"00574-7045-12 ")
- +340 ;;450
- +341 ;;21,"00591-0395-01 ")
- +342 ;;627
- +343 ;;21,"00591-0396-01 ")
- +344 ;;1
- +345 ;;21,"00591-0714-01 ")
- +346 ;;17
- +347 ;;21,"00591-0714-05 ")
- +348 ;;18
- +349 ;;21,"00591-0726-01 ")
- +350 ;;580
- +351 ;;21,"00591-0727-01 ")
- +352 ;;581
- +353 ;;21,"00603-4415-21 ")
- +354 ;;582
- +355 ;;21,"00603-4416-21 ")
- +356 ;;583
- +357 ;;21,"00603-4424-21 ")
- +358 ;;625
- +359 ;;21,"00603-5110-21 ")
- +360 ;;735
- +361 ;;21,"00603-5110-28 ")
- +362 ;;736
- +363 ;;21,"00603-5459-21 ")
- +364 ;;737
- +365 ;;21,"00603-5459-28 ")
- +366 ;;738
- +367 ;;21,"00603-5460-21 ")
- +368 ;;437
- +369 ;;21,"00603-5460-28 ")
- +370 ;;438
- +371 ;;21,"00603-5462-21 ")
- +372 ;;19
- +373 ;;21,"00603-5462-28 ")
- +374 ;;20
- +375 ;;21,"00603-5463-28 ")
- +376 ;;21
- +377 ;;21,"00603-5465-21 ")
- +378 ;;110
- +379 ;;21,"00603-5466-21 ")
- +380 ;;111
- +381 ;;21,"00603-5466-28 ")
- +382 ;;112
- +383 ;;21,"00603-5466-32 ")
- +384 ;;113
- +385 ;;21,"00603-5467-16 ")
- +386 ;;114
- +387 ;;21,"00603-5467-21 ")
- +388 ;;115
- +389 ;;21,"00603-5467-28 ")
- +390 ;;116
- +391 ;;21,"00603-5467-32 ")
- +392 ;;117
- +393 ;;21,"00603-5468-02 ")
- +394 ;;118
- +395 ;;21,"00603-5468-04 ")
- +396 ;;119
- +397 ;;21,"00603-5468-16 ")
- +398 ;;120
- +399 ;;21,"00603-5468-19 ")
- +400 ;;121
- +401 ;;21,"00603-5468-21 ")
- +402 ;;122
- +403 ;;21,"00603-5468-22 ")
- +404 ;;123
- +405 ;;21,"00603-5468-28 ")
- +406 ;;124
- +407 ;;21,"00603-5468-32 ")
- +408 ;;125
- +409 ;;21,"00641-1130-25 ")
- +410 ;;584
- +411 ;;21,"00641-1140-25 ")
- +412 ;;585
- +413 ;;21,"00677-0356-01 ")
- +414 ;;739
- +415 ;;21,"00677-0356-05 ")
- +416 ;;740
- +417 ;;21,"00781-1378-13 ")
- +418 ;;22
- +419 ;;21,"00781-2140-01 ")
- +420 ;;741
- +421 ;;21,"00781-2140-10 ")
- +422 ;;742
- +423 ;;21,"00781-2367-01 ")
- +424 ;;704
- +425 ;;21,"00781-2367-10 ")
- +426 ;;705
- +427 ;;21,"00904-1977-60 ")
- +428 ;;586
- +429 ;;21,"00904-1978-60 ")
- +430 ;;587
- +431 ;;21,"00904-2280-60 ")
- +432 ;;126
- +433 ;;21,"00904-2281-40 ")
- +434 ;;127
- +435 ;;21,"00904-2281-60 ")
- +436 ;;128
- +437 ;;21,"00904-7700-40 ")
- +438 ;;743
- +439 ;;21,"00904-7700-60 ")
- +440 ;;744
- +441 ;;21,"00904-7700-61 ")
- +442 ;;745
- +443 ;;21,"00904-7700-80 ")
- +444 ;;746
- +445 ;;21,"00904-7701-40 ")
- +446 ;;439
- +447 ;;21,"00904-7701-60 ")
- +448 ;;440
- +449 ;;21,"00904-7701-80 ")
- +450 ;;706
- +451 ;;21,"00904-7702-80 ")
- +452 ;;129
- +453 ;;21,"10019-0151-44 ")
- +454 ;;588
- +455 ;;21,"10019-0151-47 ")
- +456 ;;589
- +457 ;;21,"10019-0155-68 ")
- +458 ;;590
- +459 ;;21,"10019-0156-68 ")
- +460 ;;591
- +461 ;;21,"10019-0157-68 ")
- +462 ;;592
- +463 ;;21,"10019-0158-68 ")
- +464 ;;593
- +465 ;;21,"10019-0159-01 ")
- +466 ;;594
- +467 ;;21,"10019-0159-44 ")
- +468 ;;595
- +469 ;;21,"10019-0160-01 ")
- +470 ;;596
- +471 ;;21,"10019-0160-44 ")
- +472 ;;597
- +473 ;;21,"10019-0161-01 ")
- +474 ;;598
- +475 ;;21,"10019-0161-44 ")
- +476 ;;599
- +477 ;;21,"10019-0162-01 ")
- +478 ;;600
- +479 ;;21,"10019-0162-44 ")
- +480 ;;601
- +481 ;;21,"10122-0301-10 ")
- +482 ;;447
- +483 ;;21,"10544-0302-30 ")
- +484 ;;130
- +485 ;;21,"12280-0160-00 ")
- +486 ;;747
- +487 ;;21,"16590-0196-15 ")
- +488 ;;23
- +489 ;;21,"16590-0196-20 ")
- +490 ;;24
- +491 ;;21,"16590-0196-30 ")
- +492 ;;25
- +493 ;;21,"16590-0197-15 ")
- +494 ;;131
- +495 ;;21,"16590-0197-28 ")
- +496 ;;132
- +497 ;;21,"16590-0197-30 ")
- +498 ;;133
- +499 ;;21,"16590-0197-40 ")
- +500 ;;134
- +501 ;;21,"16590-0197-45 ")
- +502 ;;135
- +503 ;;21,"16590-0197-60 ")
- +504 ;;136
- +505 ;;21,"16590-0197-72 ")
- +506 ;;137
- +507 ;;21,"16590-0197-75 ")
- +508 ;;138
- +509 ;;21,"16590-0197-90 ")
- +510 ;;139
- +511 ;;21,"16590-0198-30 ")
- +512 ;;748
- +513 ;;21,"16590-0198-60 ")
- +514 ;;749
- +515 ;;21,"16590-0198-72 ")
- +516 ;;750
- +517 ;;21,"16590-0198-90 ")
- +518 ;;751
- +519 ;;21,"18837-0128-15 ")
- +520 ;;140
- +521 ;;21,"18837-0128-28 ")
- +522 ;;141
- +523 ;;21,"18837-0128-30 ")
- +524 ;;142
- +525 ;;21,"18837-0128-40 ")
- +526 ;;143
- +527 ;;21,"18837-0128-50 ")
- +528 ;;144
- +529 ;;21,"18837-0128-60 ")
- +530 ;;145
- +531 ;;21,"18837-0128-90 ")
- +532 ;;146
- +533 ;;21,"18837-0128-98 ")
- +534 ;;147
- +535 ;;21,"21695-0241-01 ")
- +536 ;;820
- +537 ;;21,"21695-0280-08 ")
- +538 ;;148
- +539 ;;21,"21695-0280-12 ")
- +540 ;;149
- +541 ;;21,"21695-0280-15 ")
- +542 ;;150
- +543 ;;21,"21695-0280-20 ")
- +544 ;;151
- +545 ;;21,"21695-0280-28 ")
- +546 ;;152
- +547 ;;21,"21695-0280-30 ")
- +548 ;;153
- +549 ;;21,"21695-0280-60 ")
- +550 ;;154
- +551 ;;21,"21695-0280-72 ")
- +552 ;;155
- +553 ;;21,"21695-0280-90 ")
- +554 ;;156
- +555 ;;21,"21695-0364-28 ")
- +556 ;;628
- +557 ;;21,"21695-0364-60 ")
- +558 ;;629
- +559 ;;21,"21695-0364-72 ")
- +560 ;;630
- +561 ;;21,"21695-0634-60 ")
- +562 ;;2
- +563 ;;21,"23155-0012-01 ")
- +564 ;;752
- +565 ;;21,"23155-0012-05 ")
- +566 ;;753
- +567 ;;21,"23490-0120-03 ")
- +568 ;;157
- +569 ;;21,"23490-0120-06 ")
- +570 ;;158
- +571 ;;21,"23490-6073-01 ")
- +572 ;;631
- +573 ;;21,"23490-6073-03 ")
- +574 ;;632
- +575 ;;21,"23490-6073-08 ")
- +576 ;;633
- +577 ;;21,"23490-6197-00 ")
- +578 ;;159
- +579 ;;21,"23490-6197-01 ")
- +580 ;;160
- +581 ;;21,"23490-6197-02 ")
- +582 ;;161
- +583 ;;21,"23490-6197-03 ")
- +584 ;;162
- +585 ;;21,"23490-6197-04 ")
- +586 ;;163
- +587 ;;21,"23490-6197-05 ")
- +588 ;;164
- +589 ;;21,"23490-6197-07 ")
- +590 ;;165
- +591 ;;21,"23490-6197-08 ")
- +592 ;;166
- +593 ;;21,"23490-6197-09 ")
- +594 ;;167
- +595 ;;21,"23490-7775-01 ")
- +596 ;;547
- +597 ;;21,"23490-7775-02 ")
- +598 ;;548
- +599 ;;21,"23490-7775-03 ")
- +600 ;;549
- +601 ;;21,"23490-7775-04 ")
- +602 ;;550
- +603 ;;21,"23490-7930-04 ")
- +604 ;;168
- +605 ;;21,"23490-7930-07 ")
- +606 ;;169
- +607 ;;21,"23490-7930-08 ")
- +608 ;;170
- +609 ;;21,"23490-9300-03 ")
- +610 ;;602
- +611 ;;21,"23490-9300-06 ")
- +612 ;;603
- +613 ;;21,"23490-9300-09 ")
- +614 ;;604
- +615 ;;21,"24200-0359-80 ")
- +616 ;;605
- +617 ;;21,"24486-0325-10 ")
- +618 ;;171
- +619 ;;21,"24486-0326-10 ")
- +620 ;;172
- +621 ;;21,"33358-0308-01 ")
- +622 ;;173
- +623 ;;21,"33358-0308-60 ")
- +624 ;;174
- +625 ;;21,"33358-0309-20 ")
- +626 ;;754
- +627 ;;21,"33358-0309-30 ")
- +628 ;;755
- +629 ;;21,"33358-0309-60 ")
- +630 ;;756
- +631 ;;21,"35356-0176-30 ")
- +632 ;;634
- +633 ;;21,"35356-0329-30 ")
- +634 ;;830
- +635 ;;21,"35356-0507-30 ")
- +636 ;;175
- +637 ;;21,"35356-0507-60 ")
- +638 ;;176
- +639 ;;21,"35356-0507-90 ")
- +640 ;;177
- +641 ;;21,"43063-0023-06 ")
- +642 ;;178
- +643 ;;21,"43063-0142-20 ")
- +644 ;;635
- +645 ;;21,"43353-0467-30 ")
- +646 ;;179
- +647 ;;21,"43353-0468-30 ")
- +648 ;;180
- +649 ;;21,"49884-0120-01 ")
- +650 ;;757
- +651 ;;21,"49884-0120-10 ")
- +652 ;;758
- +653 ;;21,"49884-0314-01 ")
- +654 ;;759
- +655 ;;21,"49884-0314-10 ")
- +656 ;;760
- +657 ;;21,"49999-0767-00 ")
- +658 ;;181
- +659 ;;21,"49999-0767-01 ")
- +660 ;;182
- +661 ;;21,"49999-0767-06 ")
- +662 ;;183
- +663 ;;21,"49999-0767-10 ")
- +664 ;;184
- +665 ;;21,"49999-0767-12 ")
- +666 ;;185
- +667 ;;21,"49999-0767-15 ")
- +668 ;;186
- +669 ;;21,"49999-0767-20 ")
- +670 ;;187
- +671 ;;21,"49999-0767-30 ")
- +672 ;;188
- +673 ;;21,"49999-0767-50 ")
- +674 ;;189
- +675 ;;21,"49999-0767-60 ")
- +676 ;;190
- +677 ;;21,"49999-0767-90 ")
- +678 ;;191
- +679 ;;21,"49999-0798-30 ")
- +680 ;;761
- +681 ;;21,"49999-0798-60 ")
- +682 ;;762
- +683 ;;21,"49999-0837-30 ")
- +684 ;;606
- +685 ;;21,"49999-0838-01 ")
- +686 ;;607
- +687 ;;21,"49999-0838-30 ")
- +688 ;;608
- +689 ;;21,"50111-0790-01 ")
- +690 ;;192
- +691 ;;21,"51079-0322-01 ")
- +692 ;;193
- +693 ;;21,"51079-0322-20 ")
- +694 ;;194
- +695 ;;21,"51079-0322-21 ")
- +696 ;;195
- +697 ;;21,"51079-0322-30 ")
- +698 ;;196
- +699 ;;21,"51079-0322-56 ")
- +700 ;;197
- +701 ;;21,"51079-0322-96 ")
- +702 ;;198
- +703 ;;21,"51079-0322-99 ")
- +704 ;;199
- +705 ;;21,"51079-0741-01 ")
- +706 ;;26
- +707 ;;21,"51079-0741-20 ")
- +708 ;;27
- +709 ;;21,"51641-0321-01 ")
- +710 ;;700
- +711 ;;21,"51641-0321-05 ")
- +712 ;;701
- +713 ;;21,"51641-0321-10 ")
- +714 ;;702
- +715 ;;21,"51641-0321-11 ")
- +716 ;;703
- +717 ;;21,"51641-0323-01 ")
- +718 ;;696
- +719 ;;21,"51641-0323-05 ")
- +720 ;;697
- +721 ;;21,"51641-0323-10 ")
- +722 ;;698
- +723 ;;21,"51641-0323-11 ")
- +724 ;;699
- +725 ;;21,"51655-0837-24 ")
- +726 ;;200
- +727 ;;21,"51655-0837-25 ")
- +728 ;;201
- +729 ;;21,"51655-0837-26 ")
- +730 ;;202
- +731 ;
- OTHER ; OTHER ROUTINES
- +1 DO ^BGP13L10
- +2 DO ^BGP13L11
- +3 DO ^BGP13L2
- +4 DO ^BGP13L3
- +5 DO ^BGP13L4
- +6 DO ^BGP13L5
- +7 DO ^BGP13L6
- +8 DO ^BGP13L7
- +9 DO ^BGP13L8
- +10 DO ^BGP13L9
- +11 QUIT