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

BGP6EXB.m

Go to the documentation of this file.
  1. BGP6EXB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 21, 2005 ;
  1. ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
  1. ;;;BGP6;;AUG 21, 2005
  1. ;;BGP FRACTURE CPTS
  1. ;
  1. ; This routine loads Taxonomy BGP FRACTURE CPTS
  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,"21800 ")
  1. ;;1
  1. ;;21,"21805 ")
  1. ;;2
  1. ;;21,"21810 ")
  1. ;;3
  1. ;;21,"21820 ")
  1. ;;4
  1. ;;21,"21825 ")
  1. ;;5
  1. ;;21,"22305 ")
  1. ;;6
  1. ;;21,"22310 ")
  1. ;;7
  1. ;;21,"22315 ")
  1. ;;8
  1. ;;21,"22318 ")
  1. ;;9
  1. ;;21,"22319 ")
  1. ;;10
  1. ;;21,"22325 ")
  1. ;;11
  1. ;;21,"22326 ")
  1. ;;12
  1. ;;21,"22327 ")
  1. ;;13
  1. ;;21,"22328 ")
  1. ;;14
  1. ;;21,"23500 ")
  1. ;;15
  1. ;;21,"23505 ")
  1. ;;16
  1. ;;21,"23515 ")
  1. ;;17
  1. ;;21,"23570 ")
  1. ;;18
  1. ;;21,"23575 ")
  1. ;;19
  1. ;;21,"23585 ")
  1. ;;20
  1. ;;21,"23600 ")
  1. ;;21
  1. ;;21,"23605 ")
  1. ;;22
  1. ;;21,"23615 ")
  1. ;;23
  1. ;;21,"23616 ")
  1. ;;24
  1. ;;21,"23620 ")
  1. ;;25
  1. ;;21,"23625 ")
  1. ;;26
  1. ;;21,"23630 ")
  1. ;;27
  1. ;;21,"23665 ")
  1. ;;28
  1. ;;21,"23670 ")
  1. ;;29
  1. ;;21,"23675 ")
  1. ;;30
  1. ;;21,"23680 ")
  1. ;;31
  1. ;;21,"24500 ")
  1. ;;32
  1. ;;21,"24505 ")
  1. ;;33
  1. ;;21,"24515 ")
  1. ;;34
  1. ;;21,"24516 ")
  1. ;;35
  1. ;;21,"24530 ")
  1. ;;36
  1. ;;21,"24535 ")
  1. ;;37
  1. ;;21,"24538 ")
  1. ;;38
  1. ;;21,"24545 ")
  1. ;;39
  1. ;;21,"24546 ")
  1. ;;40
  1. ;;21,"24560 ")
  1. ;;41
  1. ;;21,"24565 ")
  1. ;;42
  1. ;;21,"24566 ")
  1. ;;43
  1. ;;21,"24575 ")
  1. ;;44
  1. ;;21,"24576 ")
  1. ;;45
  1. ;;21,"24577 ")
  1. ;;46
  1. ;;21,"24579 ")
  1. ;;47
  1. ;;21,"24582 ")
  1. ;;48
  1. ;;21,"24586 ")
  1. ;;49
  1. ;;21,"24587 ")
  1. ;;50
  1. ;;21,"24620 ")
  1. ;;51
  1. ;;21,"24635 ")
  1. ;;52
  1. ;;21,"24650 ")
  1. ;;53
  1. ;;21,"24655 ")
  1. ;;54
  1. ;;21,"24665 ")
  1. ;;55
  1. ;;21,"24666 ")
  1. ;;56
  1. ;;21,"24670 ")
  1. ;;57
  1. ;;21,"24675 ")
  1. ;;58
  1. ;;21,"24685 ")
  1. ;;59
  1. ;;21,"25500 ")
  1. ;;60
  1. ;;21,"25505 ")
  1. ;;61
  1. ;;21,"25515 ")
  1. ;;62
  1. ;;21,"25520 ")
  1. ;;63
  1. ;;21,"25525 ")
  1. ;;64
  1. ;;21,"25526 ")
  1. ;;65
  1. ;;21,"25530 ")
  1. ;;66
  1. ;;21,"25535 ")
  1. ;;67
  1. ;;21,"25545 ")
  1. ;;68
  1. ;;21,"25560 ")
  1. ;;69
  1. ;;21,"25565 ")
  1. ;;70
  1. ;;21,"25574 ")
  1. ;;71
  1. ;;21,"25575 ")
  1. ;;72
  1. ;;21,"25600 ")
  1. ;;73
  1. ;;21,"25605 ")
  1. ;;74
  1. ;;21,"25611 ")
  1. ;;75
  1. ;;21,"25620 ")
  1. ;;76
  1. ;;21,"25622 ")
  1. ;;77
  1. ;;21,"25624 ")
  1. ;;78
  1. ;;21,"25628 ")
  1. ;;79
  1. ;;21,"25630 ")
  1. ;;80
  1. ;;21,"25635 ")
  1. ;;81
  1. ;;21,"25645 ")
  1. ;;82
  1. ;;21,"25650 ")
  1. ;;83
  1. ;;21,"25651 ")
  1. ;;84
  1. ;;21,"25652 ")
  1. ;;85
  1. ;;21,"25680 ")
  1. ;;86
  1. ;;21,"25685 ")
  1. ;;87
  1. ;;21,"26600 ")
  1. ;;88
  1. ;;21,"26605 ")
  1. ;;89
  1. ;;21,"26607 ")
  1. ;;90
  1. ;;21,"26608 ")
  1. ;;91
  1. ;;21,"26615 ")
  1. ;;92
  1. ;;21,"27193 ")
  1. ;;93
  1. ;;21,"27194 ")
  1. ;;94
  1. ;;21,"27200 ")
  1. ;;95
  1. ;;21,"27202 ")
  1. ;;96
  1. ;;21,"27215 ")
  1. ;;97
  1. ;;21,"27216 ")
  1. ;;98
  1. ;;21,"27217 ")
  1. ;;99
  1. ;;21,"27218 ")
  1. ;;100
  1. ;;21,"27220 ")
  1. ;;101
  1. ;;21,"27222 ")
  1. ;;102
  1. ;;21,"27226 ")
  1. ;;103
  1. ;;21,"27227 ")
  1. ;;104
  1. ;;21,"27228 ")
  1. ;;105
  1. ;;21,"27230 ")
  1. ;;106
  1. ;;21,"27232 ")
  1. ;;107
  1. ;;21,"27235 ")
  1. ;;108
  1. ;;21,"27236 ")
  1. ;;109
  1. ;;21,"27238 ")
  1. ;;110
  1. ;;21,"27240 ")
  1. ;;111
  1. ;;21,"27244 ")
  1. ;;112
  1. ;;21,"27245 ")
  1. ;;113
  1. ;;21,"27246 ")
  1. ;;114
  1. ;;21,"27248 ")
  1. ;;115
  1. ;;21,"27254 ")
  1. ;;116
  1. ;;21,"27500 ")
  1. ;;117
  1. ;;21,"27501 ")
  1. ;;118
  1. ;;21,"27502 ")
  1. ;;119
  1. ;;21,"27503 ")
  1. ;;120
  1. ;;21,"27506 ")
  1. ;;121
  1. ;;21,"27507 ")
  1. ;;122
  1. ;;21,"27508 ")
  1. ;;123
  1. ;;21,"27509 ")
  1. ;;124
  1. ;;21,"27510 ")
  1. ;;125
  1. ;;21,"27511 ")
  1. ;;126
  1. ;;21,"27513 ")
  1. ;;127
  1. ;;21,"27514 ")
  1. ;;128
  1. ;;21,"27520 ")
  1. ;;129
  1. ;;21,"27524 ")
  1. ;;130
  1. ;;21,"27530 ")
  1. ;;131
  1. ;;21,"27532 ")
  1. ;;132
  1. ;;21,"27535 ")
  1. ;;133
  1. ;;21,"27536 ")
  1. ;;134
  1. ;;21,"27538 ")
  1. ;;135
  1. ;;21,"27540 ")
  1. ;;136
  1. ;;21,"27750 ")
  1. ;;137
  1. ;;21,"27752 ")
  1. ;;138
  1. ;;21,"27756 ")
  1. ;;139
  1. ;;21,"27758 ")
  1. ;;140
  1. ;;21,"27759 ")
  1. ;;141
  1. ;;21,"27760 ")
  1. ;;142
  1. ;;21,"27762 ")
  1. ;;143
  1. ;;21,"27766 ")
  1. ;;144
  1. ;;21,"27780 ")
  1. ;;145
  1. ;;21,"27781 ")
  1. ;;146
  1. ;;21,"27784 ")
  1. ;;147
  1. ;;21,"27786 ")
  1. ;;148
  1. ;;21,"27788 ")
  1. ;;149
  1. ;;21,"27792 ")
  1. ;;150
  1. ;;21,"27808 ")
  1. ;;151
  1. ;;21,"27810 ")
  1. ;;152
  1. ;;21,"27814 ")
  1. ;;153
  1. ;;21,"27816 ")
  1. ;;154
  1. ;;21,"27818 ")
  1. ;;155
  1. ;;21,"27822 ")
  1. ;;156
  1. ;;21,"27823 ")
  1. ;;157
  1. ;;21,"27824 ")
  1. ;;158
  1. ;;21,"27825 ")
  1. ;;159
  1. ;;21,"27826 ")
  1. ;;160
  1. ;;21,"27827 ")
  1. ;;161
  1. ;;21,"27828 ")
  1. ;;162
  1. ;;21,"28400 ")
  1. ;;163
  1. ;;21,"28405 ")
  1. ;;164
  1. ;;21,"28406 ")
  1. ;;165
  1. ;;21,"28415 ")
  1. ;;166
  1. ;;21,"28420 ")
  1. ;;167
  1. ;;21,"28430 ")
  1. ;;168
  1. ;;21,"28435 ")
  1. ;;169
  1. ;;21,"28436 ")
  1. ;;170
  1. ;;21,"28445 ")
  1. ;;171
  1. ;;21,"28450 ")
  1. ;;172
  1. ;;21,"28455 ")
  1. ;;173
  1. ;;21,"28456 ")
  1. ;;174
  1. ;;21,"28465 ")
  1. ;;175
  1. ;;21,"28470 ")
  1. ;;176
  1. ;;21,"28475 ")
  1. ;;177
  1. ;;21,"28476 ")
  1. ;;178
  1. ;;21,"28485 ")
  1. ;;179
  1. ;;9002226,370,.01)
  1. ;;BGP FRACTURE CPTS
  1. ;;9002226,370,.02)
  1. ;;@
  1. ;;9002226,370,.04)
  1. ;;n
  1. ;;9002226,370,.06)
  1. ;;@
  1. ;;9002226,370,.08)
  1. ;;0
  1. ;;9002226,370,.09)
  1. ;;3050304
  1. ;;9002226,370,.11)
  1. ;;@
  1. ;;9002226,370,.12)
  1. ;;455
  1. ;;9002226,370,.13)
  1. ;;1
  1. ;;9002226,370,.14)
  1. ;;@
  1. ;;9002226,370,.15)
  1. ;;81
  1. ;;9002226,370,.16)
  1. ;;@
  1. ;;9002226,370,.17)
  1. ;;@
  1. ;;9002226,370,3101)
  1. ;;@
  1. ;;9002226.02101,"370,21800 ",.01)
  1. ;;21800
  1. ;;9002226.02101,"370,21800 ",.02)
  1. ;;21800
  1. ;;9002226.02101,"370,21805 ",.01)
  1. ;;21805
  1. ;;9002226.02101,"370,21805 ",.02)
  1. ;;21805
  1. ;;9002226.02101,"370,21810 ",.01)
  1. ;;21810
  1. ;;9002226.02101,"370,21810 ",.02)
  1. ;;21810
  1. ;;9002226.02101,"370,21820 ",.01)
  1. ;;21820
  1. ;;9002226.02101,"370,21820 ",.02)
  1. ;;21820
  1. ;;9002226.02101,"370,21825 ",.01)
  1. ;;21825
  1. ;;9002226.02101,"370,21825 ",.02)
  1. ;;21825
  1. ;;9002226.02101,"370,22305 ",.01)
  1. ;;22305
  1. ;;9002226.02101,"370,22305 ",.02)
  1. ;;22305
  1. ;;9002226.02101,"370,22310 ",.01)
  1. ;;22310
  1. ;;9002226.02101,"370,22310 ",.02)
  1. ;;22310
  1. ;;9002226.02101,"370,22315 ",.01)
  1. ;;22315
  1. ;;9002226.02101,"370,22315 ",.02)
  1. ;;22315
  1. ;;9002226.02101,"370,22318 ",.01)
  1. ;;22318
  1. ;;9002226.02101,"370,22318 ",.02)
  1. ;;22318
  1. ;;9002226.02101,"370,22319 ",.01)
  1. ;;22319
  1. ;;9002226.02101,"370,22319 ",.02)
  1. ;;22319
  1. ;;9002226.02101,"370,22325 ",.01)
  1. ;;22325
  1. ;;9002226.02101,"370,22325 ",.02)
  1. ;;22325
  1. ;;9002226.02101,"370,22326 ",.01)
  1. ;;22326
  1. ;;9002226.02101,"370,22326 ",.02)
  1. ;;22326
  1. ;;9002226.02101,"370,22327 ",.01)
  1. ;;22327
  1. ;;9002226.02101,"370,22327 ",.02)
  1. ;;22327
  1. ;;9002226.02101,"370,22328 ",.01)
  1. ;;22328
  1. ;;9002226.02101,"370,22328 ",.02)
  1. ;;22328
  1. ;;9002226.02101,"370,23500 ",.01)
  1. ;;23500
  1. ;;9002226.02101,"370,23500 ",.02)
  1. ;;23500
  1. ;;9002226.02101,"370,23505 ",.01)
  1. ;;23505
  1. ;;9002226.02101,"370,23505 ",.02)
  1. ;;23505
  1. ;;9002226.02101,"370,23515 ",.01)
  1. ;;23515
  1. ;;9002226.02101,"370,23515 ",.02)
  1. ;;23515
  1. ;;9002226.02101,"370,23570 ",.01)
  1. ;;23570
  1. ;;9002226.02101,"370,23570 ",.02)
  1. ;;23570
  1. ;;9002226.02101,"370,23575 ",.01)
  1. ;;23575
  1. ;;9002226.02101,"370,23575 ",.02)
  1. ;;23575
  1. ;;9002226.02101,"370,23585 ",.01)
  1. ;;23585
  1. ;;9002226.02101,"370,23585 ",.02)
  1. ;;23585
  1. ;;9002226.02101,"370,23600 ",.01)
  1. ;;23600
  1. ;;9002226.02101,"370,23600 ",.02)
  1. ;;23600
  1. ;;9002226.02101,"370,23605 ",.01)
  1. ;;23605
  1. ;;9002226.02101,"370,23605 ",.02)
  1. ;;23605
  1. ;;9002226.02101,"370,23615 ",.01)
  1. ;;23615
  1. ;;9002226.02101,"370,23615 ",.02)
  1. ;;23615
  1. ;;9002226.02101,"370,23616 ",.01)
  1. ;;23616
  1. ;;9002226.02101,"370,23616 ",.02)
  1. ;;23616
  1. ;;9002226.02101,"370,23620 ",.01)
  1. ;;23620
  1. ;;9002226.02101,"370,23620 ",.02)
  1. ;;23620
  1. ;;9002226.02101,"370,23625 ",.01)
  1. ;;23625
  1. ;;9002226.02101,"370,23625 ",.02)
  1. ;;23625
  1. ;;9002226.02101,"370,23630 ",.01)
  1. ;;23630
  1. ;;9002226.02101,"370,23630 ",.02)
  1. ;;23630
  1. ;;9002226.02101,"370,23665 ",.01)
  1. ;;23665
  1. ;;9002226.02101,"370,23665 ",.02)
  1. ;;23665
  1. ;;9002226.02101,"370,23670 ",.01)
  1. ;;23670
  1. ;;9002226.02101,"370,23670 ",.02)
  1. ;;23670
  1. ;;9002226.02101,"370,23675 ",.01)
  1. ;;23675
  1. ;;9002226.02101,"370,23675 ",.02)
  1. ;;23675
  1. ;;9002226.02101,"370,23680 ",.01)
  1. ;;23680
  1. ;;9002226.02101,"370,23680 ",.02)
  1. ;;23680
  1. ;;9002226.02101,"370,24500 ",.01)
  1. ;;24500
  1. ;;9002226.02101,"370,24500 ",.02)
  1. ;;24500
  1. ;;9002226.02101,"370,24505 ",.01)
  1. ;;24505
  1. ;;9002226.02101,"370,24505 ",.02)
  1. ;;24505
  1. ;;9002226.02101,"370,24515 ",.01)
  1. ;;24515
  1. ;;9002226.02101,"370,24515 ",.02)
  1. ;;24515
  1. ;;9002226.02101,"370,24516 ",.01)
  1. ;;24516
  1. ;;9002226.02101,"370,24516 ",.02)
  1. ;;24516
  1. ;;9002226.02101,"370,24530 ",.01)
  1. ;;24530
  1. ;;9002226.02101,"370,24530 ",.02)
  1. ;;24530
  1. ;;9002226.02101,"370,24535 ",.01)
  1. ;;24535
  1. ;;9002226.02101,"370,24535 ",.02)
  1. ;;24535
  1. ;;9002226.02101,"370,24538 ",.01)
  1. ;;24538
  1. ;;9002226.02101,"370,24538 ",.02)
  1. ;;24538
  1. ;;9002226.02101,"370,24545 ",.01)
  1. ;;24545
  1. ;;9002226.02101,"370,24545 ",.02)
  1. ;;24545
  1. ;;9002226.02101,"370,24546 ",.01)
  1. ;;24546
  1. ;;9002226.02101,"370,24546 ",.02)
  1. ;;24546
  1. ;;9002226.02101,"370,24560 ",.01)
  1. ;;24560
  1. ;;9002226.02101,"370,24560 ",.02)
  1. ;;24560
  1. ;;9002226.02101,"370,24565 ",.01)
  1. ;;24565
  1. ;;9002226.02101,"370,24565 ",.02)
  1. ;;24565
  1. ;;9002226.02101,"370,24566 ",.01)
  1. ;;24566
  1. ;;9002226.02101,"370,24566 ",.02)
  1. ;;24566
  1. ;;9002226.02101,"370,24575 ",.01)
  1. ;;24575
  1. ;;9002226.02101,"370,24575 ",.02)
  1. ;;24575
  1. ;;9002226.02101,"370,24576 ",.01)
  1. ;;24576
  1. ;;9002226.02101,"370,24576 ",.02)
  1. ;;24576
  1. ;;9002226.02101,"370,24577 ",.01)
  1. ;;24577
  1. ;;9002226.02101,"370,24577 ",.02)
  1. ;;24577
  1. ;;9002226.02101,"370,24579 ",.01)
  1. ;;24579
  1. ;;9002226.02101,"370,24579 ",.02)
  1. ;;24579
  1. ;;9002226.02101,"370,24582 ",.01)
  1. ;;24582
  1. ;;9002226.02101,"370,24582 ",.02)
  1. ;;24582
  1. ;;9002226.02101,"370,24586 ",.01)
  1. ;;24586
  1. ;;9002226.02101,"370,24586 ",.02)
  1. ;;24586
  1. ;;9002226.02101,"370,24587 ",.01)
  1. ;;24587
  1. ;;9002226.02101,"370,24587 ",.02)
  1. ;;24587
  1. ;;9002226.02101,"370,24620 ",.01)
  1. ;;24620
  1. ;;9002226.02101,"370,24620 ",.02)
  1. ;;24620
  1. ;;9002226.02101,"370,24635 ",.01)
  1. ;;24635
  1. ;;9002226.02101,"370,24635 ",.02)
  1. ;;24635
  1. ;;9002226.02101,"370,24650 ",.01)
  1. ;;24650
  1. ;;9002226.02101,"370,24650 ",.02)
  1. ;;24650
  1. ;;9002226.02101,"370,24655 ",.01)
  1. ;;24655
  1. ;;9002226.02101,"370,24655 ",.02)
  1. ;;24655
  1. ;;9002226.02101,"370,24665 ",.01)
  1. ;;24665
  1. ;;9002226.02101,"370,24665 ",.02)
  1. ;;24665
  1. ;;9002226.02101,"370,24666 ",.01)
  1. ;;24666
  1. ;;9002226.02101,"370,24666 ",.02)
  1. ;;24666
  1. ;;9002226.02101,"370,24670 ",.01)
  1. ;;24670
  1. ;;9002226.02101,"370,24670 ",.02)
  1. ;;24670
  1. ;;9002226.02101,"370,24675 ",.01)
  1. ;;24675
  1. ;;9002226.02101,"370,24675 ",.02)
  1. ;;24675
  1. ;;9002226.02101,"370,24685 ",.01)
  1. ;;24685
  1. ;;9002226.02101,"370,24685 ",.02)
  1. ;;24685
  1. ;;9002226.02101,"370,25500 ",.01)
  1. ;;25500
  1. ;;9002226.02101,"370,25500 ",.02)
  1. ;;25500
  1. ;;9002226.02101,"370,25505 ",.01)
  1. ;;25505
  1. ;;9002226.02101,"370,25505 ",.02)
  1. ;;25505
  1. ;;9002226.02101,"370,25515 ",.01)
  1. ;;25515
  1. ;;9002226.02101,"370,25515 ",.02)
  1. ;;25515
  1. ;;9002226.02101,"370,25520 ",.01)
  1. ;;25520
  1. ;;9002226.02101,"370,25520 ",.02)
  1. ;;25520
  1. ;;9002226.02101,"370,25525 ",.01)
  1. ;;25525
  1. ;;9002226.02101,"370,25525 ",.02)
  1. ;;25525
  1. ;;9002226.02101,"370,25526 ",.01)
  1. ;;25526
  1. ;;9002226.02101,"370,25526 ",.02)
  1. ;;25526
  1. ;;9002226.02101,"370,25530 ",.01)
  1. ;;25530
  1. ;;9002226.02101,"370,25530 ",.02)
  1. ;;25530
  1. ;;9002226.02101,"370,25535 ",.01)
  1. ;;25535
  1. ;;9002226.02101,"370,25535 ",.02)
  1. ;;25535
  1. ;;9002226.02101,"370,25545 ",.01)
  1. ;;25545
  1. ;;9002226.02101,"370,25545 ",.02)
  1. ;;25545
  1. ;;9002226.02101,"370,25560 ",.01)
  1. ;;25560
  1. ;;9002226.02101,"370,25560 ",.02)
  1. ;;25560
  1. ;;9002226.02101,"370,25565 ",.01)
  1. ;;25565
  1. ;;9002226.02101,"370,25565 ",.02)
  1. ;;25565
  1. ;;9002226.02101,"370,25574 ",.01)
  1. ;;25574
  1. ;;9002226.02101,"370,25574 ",.02)
  1. ;;25574
  1. ;;9002226.02101,"370,25575 ",.01)
  1. ;;25575
  1. ;;9002226.02101,"370,25575 ",.02)
  1. ;;25575
  1. ;;9002226.02101,"370,25600 ",.01)
  1. ;;25600
  1. ;;9002226.02101,"370,25600 ",.02)
  1. ;;25600
  1. ;;9002226.02101,"370,25605 ",.01)
  1. ;;25605
  1. ;;9002226.02101,"370,25605 ",.02)
  1. ;;25605
  1. ;;9002226.02101,"370,25611 ",.01)
  1. ;;25611
  1. ;;9002226.02101,"370,25611 ",.02)
  1. ;;25611
  1. ;;9002226.02101,"370,25620 ",.01)
  1. ;;25620
  1. ;;9002226.02101,"370,25620 ",.02)
  1. ;;25620
  1. ;;9002226.02101,"370,25622 ",.01)
  1. ;;25622
  1. ;;9002226.02101,"370,25622 ",.02)
  1. ;;25622
  1. ;;9002226.02101,"370,25624 ",.01)
  1. ;;25624
  1. ;;9002226.02101,"370,25624 ",.02)
  1. ;;25624
  1. ;;9002226.02101,"370,25628 ",.01)
  1. ;;25628
  1. ;;9002226.02101,"370,25628 ",.02)
  1. ;;25628
  1. ;;9002226.02101,"370,25630 ",.01)
  1. ;;25630
  1. ;;9002226.02101,"370,25630 ",.02)
  1. ;;25630
  1. ;;9002226.02101,"370,25635 ",.01)
  1. ;;25635
  1. ;;9002226.02101,"370,25635 ",.02)
  1. ;;25635
  1. ;;9002226.02101,"370,25645 ",.01)
  1. ;;25645
  1. ;;9002226.02101,"370,25645 ",.02)
  1. ;;25645
  1. ;;9002226.02101,"370,25650 ",.01)
  1. ;;25650
  1. ;;9002226.02101,"370,25650 ",.02)
  1. ;;25650
  1. ;;9002226.02101,"370,25651 ",.01)
  1. ;;25651
  1. ;;9002226.02101,"370,25651 ",.02)
  1. ;;25651
  1. ;;9002226.02101,"370,25652 ",.01)
  1. ;;25652
  1. ;;9002226.02101,"370,25652 ",.02)
  1. ;;25652
  1. ;;9002226.02101,"370,25680 ",.01)
  1. ;;25680
  1. ;;9002226.02101,"370,25680 ",.02)
  1. ;;25680
  1. ;;9002226.02101,"370,25685 ",.01)
  1. ;;25685
  1. ;;9002226.02101,"370,25685 ",.02)
  1. ;;25685
  1. ;;9002226.02101,"370,26600 ",.01)
  1. ;;26600
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP6EXBB
  1. Q