- BGPM5ATJ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;
- +1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
- +2 ;;BGPMU PHARYNGITIS MEDS NDCS
- +3 ;
- +4 ; This routine loads Taxonomy BGPMU PHARYNGITIS MEDS NDCS
- +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,"00003066805 ")
- +2 ;;6438
- +3 ;;21,"00009374301 ")
- +4 ;;6439
- +5 ;;21,"00009374302 ")
- +6 ;;6440
- +7 ;;21,"00009500901 ")
- +8 ;;6441
- +9 ;;21,"00015340095 ")
- +10 ;;6442
- +11 ;;21,"00015370995 ")
- +12 ;;6443
- +13 ;;21,"00015710028 ")
- +14 ;;6444
- +15 ;;21,"00015710098 ")
- +16 ;;6445
- +17 ;;21,"00015727675 ")
- +18 ;;6446
- +19 ;;21,"00015727760 ")
- +20 ;;6447
- +21 ;;21,"00015727775 ")
- +22 ;;6448
- +23 ;;21,"00015727862 ")
- +24 ;;6449
- +25 ;;21,"00015727873 ")
- +26 ;;6450
- +27 ;;21,"00015733812 ")
- +28 ;;6451
- +29 ;;21,"00015733833 ")
- +30 ;;6452
- +31 ;;21,"00015740120 ")
- +32 ;;6453
- +33 ;;21,"00015740199 ")
- +34 ;;6454
- +35 ;;21,"00015740220 ")
- +36 ;;6455
- +37 ;;21,"00015740299 ")
- +38 ;;6456
- +39 ;;21,"00015740320 ")
- +40 ;;6457
- +41 ;;21,"00015740399 ")
- +42 ;;6458
- +43 ;;21,"00015740418 ")
- +44 ;;6459
- +45 ;;21,"00015740420 ")
- +46 ;;6460
- +47 ;;21,"00015740436 ")
- +48 ;;6461
- +49 ;;21,"00015740489 ")
- +50 ;;6462
- +51 ;;21,"00015740494 ")
- +52 ;;6463
- +53 ;;21,"00015740499 ")
- +54 ;;6464
- +55 ;;21,"00015740518 ")
- +56 ;;6465
- +57 ;;21,"00015740520 ")
- +58 ;;6466
- +59 ;;21,"00015740528 ")
- +60 ;;6467
- +61 ;;21,"00015740589 ")
- +62 ;;6468
- +63 ;;21,"00015740595 ")
- +64 ;;6469
- +65 ;;21,"00015740599 ")
- +66 ;;6470
- +67 ;;21,"00015799368 ")
- +68 ;;6471
- +69 ;;21,"00051570801 ")
- +70 ;;6472
- +71 ;;21,"00054003621 ")
- +72 ;;6473
- +73 ;;21,"00054003721 ")
- +74 ;;6474
- +75 ;;21,"00069002601 ")
- +76 ;;6475
- +77 ;;21,"00069002605 ")
- +78 ;;6476
- +79 ;;21,"00069002710 ")
- +80 ;;6477
- +81 ;;21,"00069002712 ")
- +82 ;;6478
- +83 ;;21,"00069002918 ")
- +84 ;;6479
- +85 ;;21,"00069002920 ")
- +86 ;;6480
- +87 ;;21,"00069004631 ")
- +88 ;;6481
- +89 ;;21,"00069004637 ")
- +90 ;;6482
- +91 ;;21,"00069006525 ")
- +92 ;;6483
- +93 ;;21,"00069006530 ")
- +94 ;;6484
- +95 ;;21,"00069007128 ")
- +96 ;;6485
- +97 ;;21,"00069007135 ")
- +98 ;;6486
- +99 ;;21,"00069031003 ")
- +100 ;;6487
- +101 ;;21,"00069031020 ")
- +102 ;;6488
- +103 ;;21,"00069031203 ")
- +104 ;;6489
- +105 ;;21,"00069031220 ")
- +106 ;;6490
- +107 ;;21,"00069031503 ")
- +108 ;;6491
- +109 ;;21,"00069031520 ")
- +110 ;;6492
- +111 ;;21,"00069439519 ")
- +112 ;;6493
- +113 ;;21,"00069439627 ")
- +114 ;;6494
- +115 ;;21,"00069448003 ")
- +116 ;;6495
- +117 ;;21,"00069448010 ")
- +118 ;;6496
- +119 ;;21,"00069448103 ")
- +120 ;;6497
- +121 ;;21,"00069448110 ")
- +122 ;;6498
- +123 ;;21,"00069448203 ")
- +124 ;;6499
- +125 ;;21,"00069448210 ")
- +126 ;;6500
- +127 ;;21,"00069448303 ")
- +128 ;;6501
- +129 ;;21,"00069448310 ")
- +130 ;;6502
- +131 ;;21,"00069448401 ")
- +132 ;;6503
- +133 ;;21,"00074258913 ")
- +134 ;;6504
- +135 ;;21,"00074258953 ")
- +136 ;;6505
- +137 ;;21,"00074374716 ")
- +138 ;;6506
- +139 ;;21,"00074374816 ")
- +140 ;;6507
- +141 ;;21,"00074432560 ")
- +142 ;;6508
- +143 ;;21,"00074433860 ")
- +144 ;;6509
- +145 ;;21,"00074473203 ")
- +146 ;;6510
- +147 ;;21,"00074622713 ")
- +148 ;;6511
- +149 ;;21,"00074715613 ")
- +150 ;;6512
- +151 ;;21,"00074715643 ")
- +152 ;;6513
- +153 ;;21,"00074715653 ")
- +154 ;;6514
- +155 ;;21,"00078324009 ")
- +156 ;;6515
- +157 ;;21,"00078324048 ")
- +158 ;;6516
- +159 ;;21,"00093107573 ")
- +160 ;;6517
- +161 ;;21,"00093107576 ")
- +162 ;;6518
- +163 ;;21,"00093107578 ")
- +164 ;;6519
- +165 ;;21,"00093107673 ")
- +166 ;;6520
- +167 ;;21,"00093107676 ")
- +168 ;;6521
- +169 ;;21,"00093107678 ")
- +170 ;;6522
- +171 ;;21,"00093107701 ")
- +172 ;;6523
- +173 ;;21,"00093107801 ")
- +174 ;;6524
- +175 ;;21,"00093107853 ")
- +176 ;;6525
- +177 ;;21,"00093108701 ")
- +178 ;;6526
- +179 ;;21,"00093117201 ")
- +180 ;;6527
- +181 ;;21,"00093117210 ")
- +182 ;;6528
- +183 ;;21,"00093117401 ")
- +184 ;;6529
- +185 ;;21,"00093117410 ")
- +186 ;;6530
- +187 ;;21,"00093202623 ")
- +188 ;;6531
- +189 ;;21,"00093202631 ")
- +190 ;;6532
- +191 ;;21,"00093202694 ")
- +192 ;;6533
- +193 ;;21,"00093202723 ")
- +194 ;;6534
- +195 ;;21,"00093215801 ")
- +196 ;;6535
- +197 ;;21,"00093223801 ")
- +198 ;;6536
- +199 ;;21,"00093224001 ")
- +200 ;;6537
- +201 ;;21,"00093226301 ")
- +202 ;;6538
- +203 ;;21,"00093226401 ")
- +204 ;;6539
- +205 ;;21,"00093226701 ")
- +206 ;;6540
- +207 ;;21,"00093226801 ")
- +208 ;;6541
- +209 ;;21,"00093226805 ")
- +210 ;;6542
- +211 ;;21,"00093227034 ")
- +212 ;;6543
- +213 ;;21,"00093227234 ")
- +214 ;;6544
- +215 ;;21,"00093227434 ")
- +216 ;;6545
- +217 ;;21,"00093227534 ")
- +218 ;;6546
- +219 ;;21,"00093227773 ")
- +220 ;;6547
- +221 ;;21,"00093227973 ")
- +222 ;;6548
- +223 ;;21,"00093310701 ")
- +224 ;;6549
- +225 ;;21,"00093310705 ")
- +226 ;;6550
- +227 ;;21,"00093310719 ")
- +228 ;;6551
- +229 ;;21,"00093310756 ")
- +230 ;;6552
- +231 ;;21,"00093310793 ")
- +232 ;;6553
- +233 ;;21,"00093310905 ")
- +234 ;;6554
- +235 ;;21,"00093310919 ")
- +236 ;;6555
- +237 ;;21,"00093310953 ")
- +238 ;;6556
- +239 ;;21,"00093310993 ")
- +240 ;;6557
- +241 ;;21,"00093312301 ")
- +242 ;;6558
- +243 ;;21,"00093312501 ")
- +244 ;;6559
- +245 ;;21,"00093314501 ")
- +246 ;;6560
- +247 ;;21,"00093314505 ")
- +248 ;;6561
- +249 ;;21,"00093314519 ")
- +250 ;;6562
- +251 ;;21,"00093314593 ")
- +252 ;;6563
- +253 ;;21,"00093314701 ")
- +254 ;;6564
- +255 ;;21,"00093314705 ")
- +256 ;;6565
- +257 ;;21,"00093314719 ")
- +258 ;;6566
- +259 ;;21,"00093314793 ")
- +260 ;;6567
- +261 ;;21,"00093316006 ")
- +262 ;;6568
- +263 ;;21,"00093316501 ")
- +264 ;;6569
- +265 ;;21,"00093316753 ")
- +266 ;;6570
- +267 ;;21,"00093317101 ")
- +268 ;;6571
- +269 ;;21,"00093319601 ")
- +270 ;;6572
- +271 ;;21,"00093319653 ")
- +272 ;;6573
- +273 ;;21,"00093405953 ")
- +274 ;;6574
- +275 ;;21,"00093412573 ")
- +276 ;;6575
- +277 ;;21,"00093412574 ")
- +278 ;;6576
- +279 ;;21,"00093412773 ")
- +280 ;;6577
- +281 ;;21,"00093412774 ")
- +282 ;;6578
- +283 ;;21,"00093413664 ")
- +284 ;;6579
- +285 ;;21,"00093413673 ")
- +286 ;;6580
- +287 ;;21,"00093413764 ")
- +288 ;;6581
- +289 ;;21,"00093413773 ")
- +290 ;;6582
- +291 ;;21,"00093415073 ")
- +292 ;;6583
- +293 ;;21,"00093415079 ")
- +294 ;;6584
- +295 ;;21,"00093415080 ")
- +296 ;;6585
- +297 ;;21,"00093415573 ")
- +298 ;;6586
- +299 ;;21,"00093415579 ")
- +300 ;;6587
- +301 ;;21,"00093415580 ")
- +302 ;;6588
- +303 ;;21,"00093416073 ")
- +304 ;;6589
- +305 ;;21,"00093416076 ")
- +306 ;;6590
- +307 ;;21,"00093416078 ")
- +308 ;;6591
- +309 ;;21,"00093416173 ")
- +310 ;;6592
- +311 ;;21,"00093416176 ")
- +312 ;;6593
- +313 ;;21,"00093416178 ")
- +314 ;;6594
- +315 ;;21,"00093417064 ")
- +316 ;;6595
- +317 ;;21,"00093417573 ")
- +318 ;;6596
- +319 ;;21,"00093417574 ")
- +320 ;;6597
- +321 ;;21,"00093417773 ")
- +322 ;;6598
- +323 ;;21,"00093417774 ")
- +324 ;;6599
- +325 ;;21,"00093418073 ")
- +326 ;;6600
- +327 ;;21,"00093418076 ")
- +328 ;;6601
- +329 ;;21,"00093418173 ")
- +330 ;;6602
- +331 ;;21,"00093418178 ")
- +332 ;;6603
- +333 ;;21,"00093519501 ")
- +334 ;;6604
- +335 ;;21,"00093525601 ")
- +336 ;;6605
- +337 ;;21,"00093525668 ")
- +338 ;;6606
- +339 ;;21,"00093547616 ")
- +340 ;;6607
- +341 ;;21,"00093714656 ")
- +342 ;;6608
- +343 ;;21,"00093714823 ")
- +344 ;;6609
- +345 ;;21,"00093714923 ")
- +346 ;;6610
- +347 ;;21,"00093714931 ")
- +348 ;;6611
- +349 ;;21,"00093714994 ")
- +350 ;;6612
- +351 ;;21,"00093715706 ")
- +352 ;;6613
- +353 ;;21,"00093715806 ")
- +354 ;;6614
- +355 ;;21,"00093718001 ")
- +356 ;;6615
- +357 ;;21,"00093718101 ")
- +358 ;;6616
- +359 ;;21,"00093718201 ")
- +360 ;;6617
- +361 ;;21,"00093724406 ")
- +362 ;;6618
- +363 ;;21,"00093729353 ")
- +364 ;;6619
- +365 ;;21,"00093730001 ")
- +366 ;;6620
- +367 ;;21,"00093867574 ")
- +368 ;;6621
- +369 ;;21,"00093867575 ")
- +370 ;;6622
- +371 ;;21,"00093867578 ")
- +372 ;;6623
- +373 ;;21,"00115120801 ")
- +374 ;;6624
- +375 ;;21,"00115120808 ")
- +376 ;;6625
- +377 ;;21,"00115120813 ")
- +378 ;;6626
- +379 ;;21,"00115120901 ")
- +380 ;;6627
- +381 ;;21,"00115120903 ")
- +382 ;;6628
- +383 ;;21,"00115120908 ")
- +384 ;;6629
- +385 ;;21,"00115124501 ")
- +386 ;;6630
- +387 ;;21,"00115124502 ")
- +388 ;;6631
- +389 ;;21,"00115124503 ")
- +390 ;;6632
- +391 ;;21,"00115124508 ")
- +392 ;;6633
- +393 ;;21,"00115124510 ")
- +394 ;;6634
- +395 ;;21,"00115124601 ")
- +396 ;;6635
- +397 ;;21,"00115124602 ")
- +398 ;;6636
- +399 ;;21,"00115124603 ")
- +400 ;;6637
- +401 ;;21,"00115124608 ")
- +402 ;;6638
- +403 ;;21,"00115124610 ")
- +404 ;;6639
- +405 ;;21,"00115124701 ")
- +406 ;;6640
- +407 ;;21,"00115124702 ")
- +408 ;;6641
- +409 ;;21,"00115124703 ")
- +410 ;;6642
- +411 ;;21,"00115124708 ")
- +412 ;;6643
- +413 ;;21,"00115124710 ")
- +414 ;;6644
- +415 ;;21,"00115132701 ")
- +416 ;;6645
- +417 ;;21,"00115132703 ")
- +418 ;;6646
- +419 ;;21,"00115132708 ")
- +420 ;;6647
- +421 ;;21,"00115132710 ")
- +422 ;;6648
- +423 ;;21,"00115132713 ")
- +424 ;;6649
- +425 ;;21,"00115139901 ")
- +426 ;;6650
- +427 ;;21,"00115139903 ")
- +428 ;;6651
- +429 ;;21,"00115140001 ")
- +430 ;;6652
- +431 ;;21,"00115140003 ")
- +432 ;;6653
- +433 ;;21,"00115140201 ")
- +434 ;;6654
- +435 ;;21,"00115140203 ")
- +436 ;;6655
- +437 ;;21,"00115140501 ")
- +438 ;;6656
- +439 ;;21,"00115140503 ")
- +440 ;;6657
- +441 ;;21,"00115701701 ")
- +442 ;;6658
- +443 ;;21,"00115701806 ")
- +444 ;;6659
- +445 ;;21,"00115701813 ")
- +446 ;;6660
- +447 ;;21,"00115705401 ")
- +448 ;;6661
- +449 ;;21,"00121479320 ")
- +450 ;;6662
- +451 ;;21,"00143203601 ")
- +452 ;;6663
- +453 ;;21,"00143203701 ")
- +454 ;;6664
- +455 ;;21,"00143203705 ")
- +456 ;;6665
- +457 ;;21,"00143203850 ")
- +458 ;;6666
- +459 ;;21,"00143211201 ")
- +460 ;;6667
- +461 ;;21,"00143211205 ")
- +462 ;;6668
- +463 ;;21,"00143211250 ")
- +464 ;;6669
- +465 ;;21,"00143314105 ")
- +466 ;;6670
- +467 ;;21,"00143314125 ")
- +468 ;;6671
- +469 ;;21,"00143314150 ")
- +470 ;;6672
- +471 ;;21,"00143314205 ")
- +472 ;;6673
- +473 ;;21,"00143314214 ")
- +474 ;;6674
- +475 ;;21,"00143314225 ")
- +476 ;;6675
- +477 ;;21,"00143314250 ")
- +478 ;;6676
- +479 ;;21,"00143908305 ")
- +480 ;;6677
- +481 ;;21,"00143908314 ")
- +482 ;;6678
- +483 ;;21,"00143908320 ")
- +484 ;;6679
- +485 ;;21,"00143908350 ")
- +486 ;;6680
- +487 ;;21,"00143976801 ")
- +488 ;;6681
- +489 ;;21,"00143976846 ")
- +490 ;;6682
- +491 ;;21,"00143976901 ")
- +492 ;;6683
- +493 ;;21,"00143976924 ")
- +494 ;;6684
- +495 ;;21,"00143977001 ")
- +496 ;;6685
- +497 ;;21,"00143977024 ")
- +498 ;;6686
- +499 ;;21,"00143985316 ")
- +500 ;;6687
- +501 ;;21,"00143985324 ")
- +502 ;;6688
- +503 ;;21,"00143985375 ")
- +504 ;;6689
- +505 ;;21,"00143985625 ")
- +506 ;;6690
- +507 ;;21,"00143985725 ")
- +508 ;;6691
- +509 ;;21,"00143985825 ")
- +510 ;;6692
- +511 ;;21,"00143985925 ")
- +512 ;;6693
- +513 ;;21,"00143988601 ")
- +514 ;;6694
- +515 ;;21,"00143988650 ")
- +516 ;;6695
- +517 ;;21,"00143988675 ")
- +518 ;;6696
- +519 ;;21,"00143988701 ")
- +520 ;;6697
- +521 ;;21,"00143988750 ")
- +522 ;;6698
- +523 ;;21,"00143988775 ")
- +524 ;;6699
- +525 ;;21,"00143988801 ")
- +526 ;;6700
- +527 ;;21,"00143988805 ")
- +528 ;;6701
- +529 ;;21,"00143988815 ")
- +530 ;;6702
- +531 ;;21,"00143988880 ")
- +532 ;;6703
- +533 ;;21,"00143988901 ")
- +534 ;;6704
- +535 ;;21,"00143988905 ")
- +536 ;;6705
- +537 ;;21,"00143988915 ")
- +538 ;;6706
- +539 ;;21,"00143988980 ")
- +540 ;;6707
- +541 ;;21,"00143989701 ")
- +542 ;;6708
- +543 ;;21,"00143989705 ")
- +544 ;;6709
- +545 ;;21,"00143989801 ")
- +546 ;;6710
- +547 ;;21,"00143989805 ")
- +548 ;;6711
- +549 ;;21,"00143992390 ")
- +550 ;;6712
- +551 ;;21,"00143992490 ")
- +552 ;;6713
- +553 ;;21,"00143992591 ")
- +554 ;;6714
- +555 ;;21,"00143992701 ")
- +556 ;;6715
- +557 ;;21,"00143992705 ")
- +558 ;;6716
- +559 ;;21,"00143992730 ")
- +560 ;;6717
- +561 ;;21,"00143992801 ")
- +562 ;;6718
- +563 ;;21,"00143992805 ")
- +564 ;;6719
- +565 ;;21,"00143992830 ")
- +566 ;;6720
- +567 ;;21,"00143992901 ")
- +568 ;;6721
- +569 ;;21,"00143992950 ")
- +570 ;;6722
- +571 ;;21,"00143993801 ")
- +572 ;;6723
- +573 ;;21,"00143993805 ")
- +574 ;;6724
- +575 ;;21,"00143993830 ")
- +576 ;;6725
- +577 ;;21,"00143993901 ")
- +578 ;;6726
- +579 ;;21,"00143993905 ")
- +580 ;;6727
- +581 ;;21,"00143993920 ")
- +582 ;;6728
- +583 ;;21,"00143994701 ")
- +584 ;;6729
- +585 ;;21,"00143994720 ")
- +586 ;;6730
- +587 ;;21,"00143994750 ")
- +588 ;;6731
- +589 ;;21,"00143994801 ")
- +590 ;;6732
- +591 ;;21,"00143994850 ")
- +592 ;;6733
- +593 ;;21,"00143995101 ")
- +594 ;;6734
- +595 ;;21,"00143995120 ")
- +596 ;;6735
- +597 ;;21,"00143997603 ")
- +598 ;;6736
- +599 ;;21,"00143997691 ")
- +600 ;;6737
- +601 ;;21,"00143997722 ")
- +602 ;;6738
- +603 ;;21,"00143997790 ")
- +604 ;;6739
- +605 ;;21,"00143998101 ")
- +606 ;;6740
- +607 ;;21,"00143998150 ")
- +608 ;;6741
- +609 ;;21,"00143998175 ")
- +610 ;;6742
- +611 ;;21,"00143998201 ")
- +612 ;;6743
- +613 ;;21,"00143998250 ")
- +614 ;;6744
- +615 ;;21,"00143998275 ")
- +616 ;;6745
- +617 ;;21,"00143998303 ")
- +618 ;;6746
- +619 ;;21,"00143998391 ")
- +620 ;;6747
- +621 ;;21,"00143998501 ")
- +622 ;;6748
- +623 ;;21,"00143998515 ")
- +624 ;;6749
- +625 ;;21,"00143998601 ")
- +626 ;;6750
- +627 ;;21,"00143998615 ")
- +628 ;;6751
- +629 ;;21,"00168020101 ")
- +630 ;;6752
- +631 ;;21,"00168020130 ")
- +632 ;;6753
- +633 ;;21,"00168020160 ")
- +634 ;;6754
- +635 ;;21,"00168020230 ")
- +636 ;;6755
- +637 ;;21,"00168020260 ")
- +638 ;;6756
- +639 ;;21,"00168020360 ")
- +640 ;;6757
- +641 ;;21,"00168027740 ")
- +642 ;;6758
- +643 ;;21,"00172240700 ")
- +644 ;;6759
- +645 ;;21,"00172240710 ")
- +646 ;;6760
- +647 ;;21,"00172240760 ")
- +648 ;;6761
- +649 ;;21,"00172240780 ")
- +650 ;;6762
- +651 ;;21,"00172241600 ")
- +652 ;;6763
- +653 ;;21,"00172241610 ")
- +654 ;;6764
- +655 ;;21,"00172241660 ")
- +656 ;;6765
- +657 ;;21,"00172241680 ")
- +658 ;;6766
- +659 ;;21,"00172245860 ")
- +660 ;;6767
- +661 ;;21,"00172245870 ")
- +662 ;;6768
- +663 ;;21,"00172245880 ")
- +664 ;;6769
- +665 ;;21,"00172282360 ")
- +666 ;;6770
- +667 ;;21,"00172298448 ")
- +668 ;;6771
- +669 ;;21,"00172298470 ")
- +670 ;;6772
- +671 ;;21,"00172298500 ")
- +672 ;;6773
- +673 ;;21,"00172298510 ")
- +674 ;;6774
- +675 ;;21,"00172298548 ")
- +676 ;;6775
- +677 ;;21,"00172298570 ")
- +678 ;;6776
- +679 ;;21,"00172362600 ")
- +680 ;;6777
- +681 ;;21,"00172362610 ")
- +682 ;;6778
- +683 ;;21,"00172362648 ")
- +684 ;;6779
- +685 ;;21,"00172362670 ")
- +686 ;;6780
- +687 ;;21,"00172405848 ")
- +688 ;;6781
- +689 ;;21,"00172405860 ")
- +690 ;;6782
- +691 ;
- OTHER ; OTHER ROUTINES
- +1 DO ^BGPM5ATK
- +2 DO ^BGPM5ATL
- +3 DO ^BGPM5ATM
- +4 DO ^BGPM5ATN
- +5 DO ^BGPM5ATO
- +6 DO ^BGPM5ATP
- +7 DO ^BGPM5ATQ
- +8 DO ^BGPM5ATR
- +9 DO ^BGPM5ATS
- +10 DO ^BGPM5ATT
- +11 DO ^BGPM5ATU
- +12 DO ^BGPM5ATV
- +13 DO ^BGPM5ATW
- +14 DO ^BGPM5ATX
- +15 DO ^BGPM5ATY
- +16 DO ^BGPM5ATZ
- +17 DO ^BGPM5AU
- +18 DO ^BGPM5AUA
- +19 DO ^BGPM5AUB
- +20 DO ^BGPM5AUC
- +21 DO ^BGPM5AUD
- +22 DO ^BGPM5AUE
- +23 DO ^BGPM5AUF
- +24 DO ^BGPM5AUG
- +25 DO ^BGPM5AUH
- +26 DO ^BGPM5AUI
- +27 DO ^BGPM5AUJ
- +28 DO ^BGPM5AUK
- +29 DO ^BGPM5AUL
- +30 DO ^BGPM5AUM
- +31 DO ^BGPM5AUN
- +32 DO ^BGPM5AUO
- +33 DO ^BGPM5AUP
- +34 DO ^BGPM5AUQ
- +35 DO ^BGPM5AUR
- +36 DO ^BGPM5AUS
- +37 DO ^BGPM5AUT
- +38 DO ^BGPM5AUU
- +39 DO ^BGPM5AUV
- +40 DO ^BGPM5AUW
- +41 DO ^BGPM5AUX
- +42 DO ^BGPM5AUY
- +43 DO ^BGPM5AUZ
- +44 DO ^BGPM5AV
- +45 DO ^BGPM5AVA
- +46 DO ^BGPM5AVB
- +47 DO ^BGPM5AVC
- +48 DO ^BGPM5AVD
- +49 DO ^BGPM5AVE
- +50 DO ^BGPM5AVF
- +51 DO ^BGPM5AVG
- +52 DO ^BGPM5AVH
- +53 DO ^BGPM5AVI
- +54 DO ^BGPM5AVJ
- +55 DO ^BGPM5AVK
- +56 DO ^BGPM5AVL
- +57 DO ^BGPM5AVM
- +58 DO ^BGPM5AVN
- +59 DO ^BGPM5AVO
- +60 DO ^BGPM5AVP
- +61 DO ^BGPM5AVQ
- +62 DO ^BGPM5AVR
- +63 DO ^BGPM5AVS
- +64 DO ^BGPM5AVT
- +65 DO ^BGPM5AVU
- +66 DO ^BGPM5AVV
- +67 DO ^BGPM5AVW
- +68 DO ^BGPM5AVX
- +69 DO ^BGPM5AVY
- +70 DO ^BGPM5AVZ
- +71 DO ^BGPM5AW
- +72 DO ^BGPM5AWA
- +73 DO ^BGPM5AWB
- +74 DO ^BGPM5AWC
- +75 DO ^BGPM5AWD
- +76 DO ^BGPM5AWE
- +77 DO ^BGPM5AWF
- +78 DO ^BGPM5AWG
- +79 DO ^BGPM5AWH
- +80 DO ^BGPM5AWI
- +81 DO ^BGPM5AWJ
- +82 DO ^BGPM5AWK
- +83 DO ^BGPM5AWL
- +84 DO ^BGPM5AWM
- +85 DO ^BGPM5AWN
- +86 DO ^BGPM5AWO
- +87 DO ^BGPM5AWP
- +88 DO ^BGPM5AWQ
- +89 DO ^BGPM5AWR
- +90 DO ^BGPM5AWS
- +91 DO ^BGPM5AWT
- +92 DO ^BGPM5AWU
- +93 DO ^BGPM5AWV
- +94 DO ^BGPM5AWW
- +95 DO ^BGPM5AWX
- +96 DO ^BGPM5AWY
- +97 DO ^BGPM5AWZ
- +98 DO ^BGPM5AX
- +99 DO ^BGPM5AXA
- +100 DO ^BGPM5AXB
- +101 DO ^BGPM5AXC
- +102 DO ^BGPM5AXD
- +103 DO ^BGPM5AXE
- +104 QUIT