- BGP51K ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
- +1 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
- +2 ;;BGP HEDIS NONBENZODIAZ NDC
- +3 ;
- +4 ; This routine loads Taxonomy BGP HEDIS NONBENZODIAZ 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,"00024-5401-31 ")
- +2 ;;31
- +3 ;;21,"00024-5401-50 ")
- +4 ;;32
- +5 ;;21,"00024-5421-31 ")
- +6 ;;300
- +7 ;;21,"00024-5421-50 ")
- +8 ;;301
- +9 ;;21,"00024-5501-10 ")
- +10 ;;639
- +11 ;;21,"00024-5501-31 ")
- +12 ;;640
- +13 ;;21,"00024-5501-50 ")
- +14 ;;641
- +15 ;;21,"00024-5521-10 ")
- +16 ;;708
- +17 ;;21,"00024-5521-31 ")
- +18 ;;709
- +19 ;;21,"00024-5521-34 ")
- +20 ;;710
- +21 ;;21,"00024-5521-50 ")
- +22 ;;711
- +23 ;;21,"00037-6010-30 ")
- +24 ;;760
- +25 ;;21,"00037-6050-30 ")
- +26 ;;759
- +27 ;;21,"00054-0084-25 ")
- +28 ;;810
- +29 ;;21,"00054-0085-25 ")
- +30 ;;884
- +31 ;;21,"00054-0086-25 ")
- +32 ;;167
- +33 ;;21,"00054-0086-29 ")
- +34 ;;168
- +35 ;;21,"00054-0087-25 ")
- +36 ;;503
- +37 ;;21,"00054-0087-29 ")
- +38 ;;504
- +39 ;;21,"00054-0290-13 ")
- +40 ;;894
- +41 ;;21,"00054-0291-25 ")
- +42 ;;909
- +43 ;;21,"00054-0292-25 ")
- +44 ;;950
- +45 ;;21,"00093-0073-01 ")
- +46 ;;169
- +47 ;;21,"00093-0074-01 ")
- +48 ;;505
- +49 ;;21,"00093-5268-01 ")
- +50 ;;811
- +51 ;;21,"00093-5269-01 ")
- +52 ;;883
- +53 ;;21,"00093-5537-56 ")
- +54 ;;893
- +55 ;;21,"00093-5538-01 ")
- +56 ;;910
- +57 ;;21,"00093-5539-01 ")
- +58 ;;949
- +59 ;;21,"00095-0950-05 ")
- +60 ;;761
- +61 ;;21,"00143-3909-01 ")
- +62 ;;812
- +63 ;;21,"00143-3910-01 ")
- +64 ;;882
- +65 ;;21,"00179-1980-15 ")
- +66 ;;170
- +67 ;;21,"00179-1980-30 ")
- +68 ;;171
- +69 ;;21,"00179-1981-30 ")
- +70 ;;506
- +71 ;;21,"00228-3481-11 ")
- +72 ;;648
- +73 ;;21,"00228-3481-50 ")
- +74 ;;649
- +75 ;;21,"00228-3482-11 ")
- +76 ;;730
- +77 ;;21,"00228-3482-50 ")
- +78 ;;731
- +79 ;;21,"00378-5270-01 ")
- +80 ;;892
- +81 ;;21,"00378-5271-01 ")
- +82 ;;911
- +83 ;;21,"00378-5271-10 ")
- +84 ;;912
- +85 ;;21,"00378-5272-01 ")
- +86 ;;951
- +87 ;;21,"00378-5272-10 ")
- +88 ;;952
- +89 ;;21,"00378-5305-01 ")
- +90 ;;81
- +91 ;;21,"00378-5305-05 ")
- +92 ;;82
- +93 ;;21,"00378-5310-01 ")
- +94 ;;400
- +95 ;;21,"00378-5310-05 ")
- +96 ;;401
- +97 ;;21,"00378-6805-01 ")
- +98 ;;800
- +99 ;;21,"00378-6810-01 ")
- +100 ;;869
- +101 ;;21,"00378-6810-10 ")
- +102 ;;870
- +103 ;;21,"00440-7702-30 ")
- +104 ;;958
- +105 ;;21,"00440-8754-02 ")
- +106 ;;83
- +107 ;;21,"00440-8754-14 ")
- +108 ;;84
- +109 ;;21,"00440-8754-30 ")
- +110 ;;85
- +111 ;;21,"00440-8754-60 ")
- +112 ;;86
- +113 ;;21,"00440-8755-07 ")
- +114 ;;395
- +115 ;;21,"00440-8755-10 ")
- +116 ;;396
- +117 ;;21,"00440-8755-14 ")
- +118 ;;397
- +119 ;;21,"00440-8755-30 ")
- +120 ;;398
- +121 ;;21,"00440-8755-60 ")
- +122 ;;399
- +123 ;;21,"00603-6468-09 ")
- +124 ;;87
- +125 ;;21,"00603-6468-16 ")
- +126 ;;88
- +127 ;;21,"00603-6468-21 ")
- +128 ;;89
- +129 ;;21,"00603-6468-28 ")
- +130 ;;90
- +131 ;;21,"00603-6468-32 ")
- +132 ;;91
- +133 ;;21,"00603-6469-09 ")
- +134 ;;388
- +135 ;;21,"00603-6469-13 ")
- +136 ;;389
- +137 ;;21,"00603-6469-16 ")
- +138 ;;390
- +139 ;;21,"00603-6469-20 ")
- +140 ;;391
- +141 ;;21,"00603-6469-21 ")
- +142 ;;392
- +143 ;;21,"00603-6469-28 ")
- +144 ;;393
- +145 ;;21,"00603-6469-32 ")
- +146 ;;394
- +147 ;;21,"00781-5315-01 ")
- +148 ;;650
- +149 ;;21,"00781-5315-05 ")
- +150 ;;651
- +151 ;;21,"00781-5316-01 ")
- +152 ;;741
- +153 ;;21,"00781-5316-05 ")
- +154 ;;742
- +155 ;;21,"00781-5317-01 ")
- +156 ;;78
- +157 ;;21,"00781-5317-10 ")
- +158 ;;79
- +159 ;;21,"00781-5318-01 ")
- +160 ;;384
- +161 ;;21,"00781-5318-10 ")
- +162 ;;385
- +163 ;;21,"00832-0400-00 ")
- +164 ;;798
- +165 ;;21,"00832-0400-10 ")
- +166 ;;799
- +167 ;;21,"00832-0401-00 ")
- +168 ;;871
- +169 ;;21,"00832-0401-10 ")
- +170 ;;872
- +171 ;;21,"00904-6082-61 ")
- +172 ;;80
- +173 ;;21,"00904-6083-61 ")
- +174 ;;383
- +175 ;;21,"00955-1702-10 ")
- +176 ;;653
- +177 ;;21,"00955-1703-10 ")
- +178 ;;738
- +179 ;;21,"10370-0116-10 ")
- +180 ;;739
- +181 ;;21,"10370-0116-50 ")
- +182 ;;740
- +183 ;;21,"10370-0117-10 ")
- +184 ;;652
- +185 ;;21,"10544-0040-15 ")
- +186 ;;386
- +187 ;;21,"10544-0548-30 ")
- +188 ;;387
- +189 ;;21,"12634-0944-71 ")
- +190 ;;507
- +191 ;;21,"13668-0007-01 ")
- +192 ;;202
- +193 ;;21,"13668-0007-05 ")
- +194 ;;203
- +195 ;;21,"13668-0007-10 ")
- +196 ;;204
- +197 ;;21,"13668-0007-15 ")
- +198 ;;205
- +199 ;;21,"13668-0007-30 ")
- +200 ;;206
- +201 ;;21,"13668-0007-71 ")
- +202 ;;207
- +203 ;;21,"13668-0007-74 ")
- +204 ;;208
- +205 ;;21,"13668-0007-90 ")
- +206 ;;209
- +207 ;;21,"13668-0008-01 ")
- +208 ;;508
- +209 ;;21,"13668-0008-05 ")
- +210 ;;509
- +211 ;;21,"13668-0008-10 ")
- +212 ;;510
- +213 ;;21,"13668-0008-15 ")
- +214 ;;511
- +215 ;;21,"13668-0008-30 ")
- +216 ;;512
- +217 ;;21,"13668-0008-71 ")
- +218 ;;513
- +219 ;;21,"13668-0008-74 ")
- +220 ;;514
- +221 ;;21,"13668-0008-90 ")
- +222 ;;515
- +223 ;;21,"16590-0009-20 ")
- +224 ;;20
- +225 ;;21,"16590-0009-30 ")
- +226 ;;21
- +227 ;;21,"16590-0009-60 ")
- +228 ;;22
- +229 ;;21,"16590-0009-90 ")
- +230 ;;23
- +231 ;;21,"16590-0010-20 ")
- +232 ;;294
- +233 ;;21,"16590-0010-28 ")
- +234 ;;295
- +235 ;;21,"16590-0010-30 ")
- +236 ;;296
- +237 ;;21,"16590-0010-56 ")
- +238 ;;297
- +239 ;;21,"16590-0010-60 ")
- +240 ;;298
- +241 ;;21,"16590-0010-90 ")
- +242 ;;299
- +243 ;;21,"16590-0436-06 ")
- +244 ;;687
- +245 ;;21,"16590-0436-10 ")
- +246 ;;688
- +247 ;;21,"16590-0436-20 ")
- +248 ;;689
- +249 ;;21,"16590-0436-25 ")
- +250 ;;690
- +251 ;;21,"16590-0436-28 ")
- +252 ;;691
- +253 ;;21,"16590-0436-30 ")
- +254 ;;692
- +255 ;;21,"16590-0436-60 ")
- +256 ;;693
- +257 ;;21,"16590-0436-90 ")
- +258 ;;694
- +259 ;;21,"16590-0500-25 ")
- +260 ;;976
- +261 ;;21,"16590-0500-28 ")
- +262 ;;977
- +263 ;;21,"16590-0500-30 ")
- +264 ;;978
- +265 ;;21,"16590-0500-60 ")
- +266 ;;979
- +267 ;;21,"16590-0500-72 ")
- +268 ;;980
- +269 ;;21,"16590-0500-90 ")
- +270 ;;981
- +271 ;;21,"16590-0501-25 ")
- +272 ;;930
- +273 ;;21,"16590-0501-28 ")
- +274 ;;931
- +275 ;;21,"16590-0501-30 ")
- +276 ;;932
- +277 ;;21,"16590-0501-60 ")
- +278 ;;933
- +279 ;;21,"16590-0501-72 ")
- +280 ;;934
- +281 ;;21,"16590-0501-90 ")
- +282 ;;935
- +283 ;;21,"16590-0502-30 ")
- +284 ;;897
- +285 ;;21,"16590-0502-60 ")
- +286 ;;898
- +287 ;;21,"16590-0502-72 ")
- +288 ;;899
- +289 ;;21,"16590-0502-90 ")
- +290 ;;900
- +291 ;;21,"16590-0522-30 ")
- +292 ;;833
- +293 ;;21,"16590-0522-60 ")
- +294 ;;834
- +295 ;;21,"16590-0522-72 ")
- +296 ;;835
- +297 ;;21,"16590-0522-90 ")
- +298 ;;836
- +299 ;;21,"16590-0527-10 ")
- +300 ;;516
- +301 ;;21,"16590-0527-14 ")
- +302 ;;517
- +303 ;;21,"16590-0527-15 ")
- +304 ;;518
- +305 ;;21,"16590-0527-20 ")
- +306 ;;519
- +307 ;;21,"16590-0527-25 ")
- +308 ;;520
- +309 ;;21,"16590-0527-28 ")
- +310 ;;521
- +311 ;;21,"16590-0527-30 ")
- +312 ;;522
- +313 ;;21,"16590-0527-40 ")
- +314 ;;523
- +315 ;;21,"16590-0527-45 ")
- +316 ;;524
- +317 ;;21,"16590-0527-60 ")
- +318 ;;525
- +319 ;;21,"16590-0527-71 ")
- +320 ;;526
- +321 ;;21,"16590-0527-90 ")
- +322 ;;527
- +323 ;;21,"16590-0527-93 ")
- +324 ;;528
- +325 ;;21,"16590-0528-10 ")
- +326 ;;210
- +327 ;;21,"16590-0528-15 ")
- +328 ;;211
- +329 ;;21,"16590-0528-20 ")
- +330 ;;212
- +331 ;;21,"16590-0528-25 ")
- +332 ;;213
- +333 ;;21,"16590-0528-30 ")
- +334 ;;214
- +335 ;;21,"16590-0528-40 ")
- +336 ;;215
- +337 ;;21,"16590-0528-56 ")
- +338 ;;216
- +339 ;;21,"16590-0528-60 ")
- +340 ;;217
- +341 ;;21,"16590-0528-71 ")
- +342 ;;218
- +343 ;;21,"16590-0528-90 ")
- +344 ;;219
- +345 ;;21,"16590-0562-15 ")
- +346 ;;632
- +347 ;;21,"16590-0562-25 ")
- +348 ;;633
- +349 ;;21,"16590-0562-28 ")
- +350 ;;634
- +351 ;;21,"16590-0562-30 ")
- +352 ;;635
- +353 ;;21,"16590-0562-60 ")
- +354 ;;636
- +355 ;;21,"16590-0562-90 ")
- +356 ;;637
- +357 ;;21,"16590-0629-28 ")
- +358 ;;842
- +359 ;;21,"16590-0629-30 ")
- +360 ;;843
- +361 ;;21,"16590-0629-90 ")
- +362 ;;844
- +363 ;;21,"16590-0661-30 ")
- +364 ;;784
- +365 ;;21,"16590-0661-60 ")
- +366 ;;785
- +367 ;;21,"16590-0661-90 ")
- +368 ;;786
- +369 ;;21,"16590-0943-25 ")
- +370 ;;654
- +371 ;;21,"16590-0943-28 ")
- +372 ;;655
- +373 ;;21,"16590-0943-30 ")
- +374 ;;656
- +375 ;;21,"16590-0943-56 ")
- +376 ;;657
- +377 ;;21,"16590-0943-60 ")
- +378 ;;658
- +379 ;;21,"16590-0943-72 ")
- +380 ;;659
- +381 ;;21,"16590-0943-90 ")
- +382 ;;660
- +383 ;;21,"16590-0955-25 ")
- +384 ;;744
- +385 ;;21,"16590-0955-28 ")
- +386 ;;745
- +387 ;;21,"16590-0955-30 ")
- +388 ;;746
- +389 ;;21,"16590-0955-60 ")
- +390 ;;747
- +391 ;;21,"16590-0955-72 ")
- +392 ;;748
- +393 ;;21,"16590-0955-90 ")
- +394 ;;749
- +395 ;;21,"16714-0551-02 ")
- +396 ;;787
- +397 ;;21,"16714-0561-02 ")
- +398 ;;841
- +399 ;;21,"16714-0621-01 ")
- +400 ;;226
- +401 ;;21,"16714-0621-02 ")
- +402 ;;227
- +403 ;;21,"16714-0622-01 ")
- +404 ;;538
- +405 ;;21,"16714-0622-02 ")
- +406 ;;539
- +407 ;;21,"21695-0105-14 ")
- +408 ;;845
- +409 ;;21,"21695-0105-30 ")
- +410 ;;846
- +411 ;;21,"21695-0105-60 ")
- +412 ;;847
- +413 ;;21,"21695-0211-15 ")
- +414 ;;18
- +415 ;;21,"21695-0211-30 ")
- +416 ;;19
- +417 ;;21,"21695-0212-15 ")
- +418 ;;291
- +419 ;;21,"21695-0212-30 ")
- +420 ;;292
- +421 ;;21,"21695-0212-45 ")
- +422 ;;293
- +423 ;;21,"21695-0213-15 ")
- +424 ;;685
- +425 ;;21,"21695-0213-30 ")
- +426 ;;686
- +427 ;;21,"21695-0225-30 ")
- +428 ;;936
- +429 ;;21,"21695-0226-15 ")
- +430 ;;974
- +431 ;;21,"21695-0226-30 ")
- +432 ;;975
- +433 ;;21,"21695-0319-30 ")
- +434 ;;638
- +435 ;;21,"21695-0376-30 ")
- +436 ;;779
- +437 ;;21,"21695-0376-60 ")
- +438 ;;780
- +439 ;;21,"21695-0506-07 ")
- +440 ;;220
- +441 ;;21,"21695-0506-10 ")
- +442 ;;221
- +443 ;;21,"21695-0506-15 ")
- +444 ;;222
- +445 ;;21,"21695-0506-30 ")
- +446 ;;223
- +447 ;;21,"21695-0506-60 ")
- +448 ;;224
- +449 ;;21,"21695-0506-90 ")
- +450 ;;225
- +451 ;;21,"21695-0507-04 ")
- +452 ;;529
- +453 ;;21,"21695-0507-07 ")
- +454 ;;530
- +455 ;;21,"21695-0507-10 ")
- +456 ;;531
- +457 ;;21,"21695-0507-14 ")
- +458 ;;532
- +459 ;;21,"21695-0507-15 ")
- +460 ;;533
- +461 ;;21,"21695-0507-20 ")
- +462 ;;534
- +463 ;;21,"21695-0507-30 ")
- +464 ;;535
- +465 ;;21,"21695-0507-60 ")
- +466 ;;536
- +467 ;;21,"21695-0507-90 ")
- +468 ;;537
- +469 ;;21,"23490-6489-01 ")
- +470 ;;598
- +471 ;;21,"23490-6489-06 ")
- +472 ;;599
- +473 ;;21,"23490-6489-09 ")
- +474 ;;600
- +475 ;;21,"29300-0131-01 ")
- +476 ;;793
- +477 ;;21,"29300-0132-01 ")
- +478 ;;857
- +479 ;;21,"33261-0172-07 ")
- +480 ;;195
- +481 ;;21,"33261-0172-14 ")
- +482 ;;196
- +483 ;;21,"33261-0172-21 ")
- +484 ;;197
- +485 ;;21,"33261-0172-28 ")
- +486 ;;198
- +487 ;;21,"33261-0172-30 ")
- +488 ;;199
- +489 ;;21,"33261-0172-60 ")
- +490 ;;200
- +491 ;;21,"33261-0172-90 ")
- +492 ;;201
- +493 ;;21,"33261-0173-07 ")
- +494 ;;588
- +495 ;;21,"33261-0173-12 ")
- +496 ;;589
- +497 ;;21,"33261-0173-14 ")
- +498 ;;590
- +499 ;;21,"33261-0173-15 ")
- +500 ;;591
- +501 ;;21,"33261-0173-21 ")
- +502 ;;592
- +503 ;;21,"33261-0173-28 ")
- +504 ;;593
- +505 ;;21,"33261-0173-30 ")
- +506 ;;594
- +507 ;;21,"33261-0173-42 ")
- +508 ;;595
- +509 ;;21,"33261-0173-60 ")
- +510 ;;596
- +511 ;;21,"33261-0173-90 ")
- +512 ;;597
- +513 ;;21,"33261-0454-02 ")
- +514 ;;853
- +515 ;;21,"33261-0454-30 ")
- +516 ;;854
- +517 ;;21,"33261-0454-60 ")
- +518 ;;855
- +519 ;;21,"33261-0454-90 ")
- +520 ;;856
- +521 ;;21,"33261-0486-30 ")
- +522 ;;790
- +523 ;;21,"33261-0486-60 ")
- +524 ;;791
- +525 ;;21,"33261-0486-90 ")
- +526 ;;792
- +527 ;;21,"33261-0652-07 ")
- +528 ;;671
- +529 ;;21,"33261-0652-14 ")
- +530 ;;672
- +531 ;;21,"33261-0652-30 ")
- +532 ;;673
- +533 ;;21,"33261-0652-60 ")
- +534 ;;674
- +535 ;;21,"33358-0227-30 ")
- +536 ;;988
- +537 ;;21,"33358-0326-30 ")
- +538 ;;832
- +539 ;;21,"35356-0572-30 ")
- +540 ;;788
- +541 ;;21,"35356-0572-60 ")
- +542 ;;789
- +543 ;;21,"35356-0573-30 ")
- +544 ;;858
- +545 ;;21,"35356-0573-60 ")
- +546 ;;859
- +547 ;;21,"35356-0574-30 ")
- +548 ;;771
- +549 ;;21,"35356-0574-60 ")
- +550 ;;772
- +551 ;;21,"35356-0645-30 ")
- +552 ;;191
- +553 ;;21,"35356-0645-60 ")
- +554 ;;192
- +555 ;;21,"35356-0656-30 ")
- +556 ;;860
- +557 ;;21,"35356-0745-15 ")
- +558 ;;587
- +559 ;;21,"35356-0764-30 ")
- +560 ;;861
- +561 ;;21,"35356-0845-30 ")
- +562 ;;667
- +563 ;;21,"42254-0130-60 ")
- +564 ;;806
- +565 ;;21,"42254-0147-14 ")
- +566 ;;876
- +567 ;;21,"42254-0147-30 ")
- +568 ;;877
- +569 ;;21,"42254-0147-60 ")
- +570 ;;878
- +571 ;;21,"42254-0189-60 ")
- +572 ;;807
- +573 ;;21,"42254-0316-30 ")
- +574 ;;804
- +575 ;;21,"42254-0316-60 ")
- +576 ;;805
- +577 ;;21,"42254-0358-30 ")
- +578 ;;736
- +579 ;;21,"42291-0271-30 ")
- +580 ;;890
- +581 ;;21,"42291-0272-90 ")
- +582 ;;914
- +583 ;;21,"42291-0273-90 ")
- +584 ;;954
- +585 ;;21,"42549-0548-28 ")
- +586 ;;477
- +587 ;;21,"42549-0548-30 ")
- +588 ;;478
- +589 ;;21,"42549-0563-30 ")
- +590 ;;476
- +591 ;;21,"42549-0593-30 ")
- +592 ;;475
- +593 ;;21,"43063-0068-79 ")
- +594 ;;474
- +595 ;;21,"43063-0240-30 ")
- +596 ;;808
- +597 ;;21,"43063-0366-01 ")
- +598 ;;466
- +599 ;;21,"43063-0366-06 ")
- +600 ;;467
- +601 ;;21,"43063-0366-10 ")
- +602 ;;468
- +603 ;;21,"43063-0366-14 ")
- +604 ;;469
- +605 ;;21,"43063-0366-15 ")
- +606 ;;470
- +607 ;;21,"43063-0366-21 ")
- +608 ;;471
- +609 ;;21,"43063-0366-30 ")
- +610 ;;472
- +611 ;;21,"43063-0366-60 ")
- +612 ;;473
- +613 ;;21,"43063-0505-30 ")
- +614 ;;803
- +615 ;;21,"43353-0026-10 ")
- +616 ;;93
- +617 ;;21,"43353-0026-20 ")
- +618 ;;94
- +619 ;;21,"43353-0026-28 ")
- +620 ;;95
- +621 ;;21,"43353-0026-45 ")
- +622 ;;96
- +623 ;;21,"43353-0026-53 ")
- +624 ;;97
- +625 ;;21,"43353-0026-59 ")
- +626 ;;98
- +627 ;;21,"43353-0026-60 ")
- +628 ;;99
- +629 ;;21,"43353-0174-07 ")
- +630 ;;100
- +631 ;;21,"43353-0174-10 ")
- +632 ;;101
- +633 ;;21,"43353-0174-14 ")
- +634 ;;102
- +635 ;;21,"43353-0174-15 ")
- +636 ;;103
- +637 ;;21,"43353-0174-20 ")
- +638 ;;104
- +639 ;;21,"43353-0174-30 ")
- +640 ;;105
- +641 ;;21,"43353-0174-45 ")
- +642 ;;106
- +643 ;;21,"43353-0174-53 ")
- +644 ;;107
- +645 ;;21,"43353-0174-59 ")
- +646 ;;108
- +647 ;;21,"43353-0174-60 ")
- +648 ;;109
- +649 ;;21,"43353-0175-07 ")
- +650 ;;438
- +651 ;;21,"43353-0175-10 ")
- +652 ;;439
- +653 ;;21,"43353-0175-14 ")
- +654 ;;440
- +655 ;;21,"43353-0175-15 ")
- +656 ;;441
- +657 ;;21,"43353-0175-20 ")
- +658 ;;442
- +659 ;;21,"43353-0175-21 ")
- +660 ;;443
- +661 ;;21,"43353-0175-25 ")
- +662 ;;444
- +663 ;;21,"43353-0175-30 ")
- +664 ;;445
- +665 ;;21,"43353-0175-40 ")
- +666 ;;446
- +667 ;;21,"43353-0175-45 ")
- +668 ;;447
- +669 ;;21,"43353-0175-53 ")
- +670 ;;448
- +671 ;;21,"43353-0175-59 ")
- +672 ;;449
- +673 ;;21,"43353-0175-60 ")
- +674 ;;450
- +675 ;;21,"43353-0176-14 ")
- +676 ;;451
- +677 ;;21,"43353-0176-40 ")
- +678 ;;452
- +679 ;;21,"43353-0443-30 ")
- +680 ;;703
- +681 ;;21,"43353-0557-28 ")
- +682 ;;92
- +683 ;;21,"43353-0558-07 ")
- +684 ;;453
- +685 ;;21,"43353-0558-10 ")
- +686 ;;454
- +687 ;;21,"43353-0558-14 ")
- +688 ;;455
- +689 ;;21,"43353-0558-15 ")
- +690 ;;456
- +691 ;;21,"43353-0558-20 ")
- +692 ;;457
- +693 ;;21,"43353-0558-21 ")
- +694 ;;458
- +695 ;;21,"43353-0558-25 ")
- +696 ;;459
- +697 ;;21,"43353-0558-28 ")
- +698 ;;460
- +699 ;;21,"43353-0558-30 ")
- +700 ;;461
- +701 ;;21,"43353-0558-40 ")
- +702 ;;462
- +703 ;;21,"43353-0558-45 ")
- +704 ;;463
- +705 ;;21,"43353-0558-53 ")
- +706 ;;464
- +707 ;;21,"43353-0558-60 ")
- +708 ;;465
- +709 ;;21,"43353-0559-30 ")
- +710 ;;955
- +711 ;;21,"43353-0567-20 ")
- +712 ;;406
- +713 ;;21,"43353-0567-30 ")
- +714 ;;407
- +715 ;;21,"43353-0590-07 ")
- +716 ;;121
- +717 ;;21,"43353-0590-10 ")
- +718 ;;122
- +719 ;;21,"43353-0590-14 ")
- +720 ;;123
- +721 ;;21,"43353-0590-15 ")
- +722 ;;124
- +723 ;;21,"43353-0590-20 ")
- +724 ;;125
- +725 ;;21,"43353-0590-28 ")
- +726 ;;126
- +727 ;;21,"43353-0590-30 ")
- +728 ;;127
- +729 ;;21,"43353-0590-45 ")
- +730 ;;128
- +731 ;;21,"43353-0590-53 ")
- +732 ;;129
- +733 ;;21,"43353-0590-59 ")
- +734 ;;130
- +735 ;;21,"43353-0590-60 ")
- +736 ;;131
- +737 ;;21,"43353-0617-07 ")
- +738 ;;423
- +739 ;;21,"43353-0617-10 ")
- +740 ;;424
- +741 ;;21,"43353-0617-14 ")
- +742 ;;425
- +743 ;;21,"43353-0617-15 ")
- +744 ;;426
- +745 ;;21,"43353-0617-20 ")
- +746 ;;427
- +747 ;;21,"43353-0617-21 ")
- +748 ;;428
- +749 ;;21,"43353-0617-25 ")
- +750 ;;429
- +751 ;;21,"43353-0617-28 ")
- +752 ;;430
- +753 ;;21,"43353-0617-30 ")
- +754 ;;431
- +755 ;;21,"43353-0617-40 ")
- +756 ;;432
- +757 ;;21,"43353-0617-45 ")
- +758 ;;433
- +759 ;;21,"43353-0617-53 ")
- +760 ;;434
- +761 ;;21,"43353-0617-59 ")
- +762 ;;435
- +763 ;;21,"43353-0617-60 ")
- +764 ;;436
- +765 ;;21,"43353-0617-62 ")
- +766 ;;437
- +767 ;;21,"43353-0620-07 ")
- +768 ;;110
- +769 ;;21,"43353-0620-10 ")
- +770 ;;111
- +771 ;;21,"43353-0620-14 ")
- +772 ;;112
- +773 ;;21,"43353-0620-15 ")
- +774 ;;113
- +775 ;;21,"43353-0620-20 ")
- +776 ;;114
- +777 ;;21,"43353-0620-28 ")
- +778 ;;115
- +779 ;;21,"43353-0620-30 ")
- +780 ;;116
- +781 ;;21,"43353-0620-45 ")
- +782 ;;117
- +783 ;
- OTHER ; OTHER ROUTINES
- +1 DO ^BGP51K10
- +2 DO ^BGP51K11
- +3 DO ^BGP51K12
- +4 DO ^BGP51K2
- +5 DO ^BGP51K3
- +6 DO ^BGP51K4
- +7 DO ^BGP51K5
- +8 DO ^BGP51K6
- +9 DO ^BGP51K7
- +10 DO ^BGP51K8
- +11 DO ^BGP51K9
- +12 QUIT