- BGP6EXB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 21, 2005 ;
- ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
- ;;;BGP6;;AUG 21, 2005
- ;;BGP FRACTURE CPTS
- ;
- ; This routine loads Taxonomy BGP FRACTURE CPTS
- ;
- START ;
- K:'$G(ATXPGMC) ^TMP("ATX",$J)
- S ATXPGMC=$G(ATXPGMC)+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
- D OTHER
- I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
- I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
- D KILL^ATXSTX2
- Q
- ;
- TMP ;;TAXONOMY (WITH BULLETIN)
- ;;21,"21800 ")
- ;;1
- ;;21,"21805 ")
- ;;2
- ;;21,"21810 ")
- ;;3
- ;;21,"21820 ")
- ;;4
- ;;21,"21825 ")
- ;;5
- ;;21,"22305 ")
- ;;6
- ;;21,"22310 ")
- ;;7
- ;;21,"22315 ")
- ;;8
- ;;21,"22318 ")
- ;;9
- ;;21,"22319 ")
- ;;10
- ;;21,"22325 ")
- ;;11
- ;;21,"22326 ")
- ;;12
- ;;21,"22327 ")
- ;;13
- ;;21,"22328 ")
- ;;14
- ;;21,"23500 ")
- ;;15
- ;;21,"23505 ")
- ;;16
- ;;21,"23515 ")
- ;;17
- ;;21,"23570 ")
- ;;18
- ;;21,"23575 ")
- ;;19
- ;;21,"23585 ")
- ;;20
- ;;21,"23600 ")
- ;;21
- ;;21,"23605 ")
- ;;22
- ;;21,"23615 ")
- ;;23
- ;;21,"23616 ")
- ;;24
- ;;21,"23620 ")
- ;;25
- ;;21,"23625 ")
- ;;26
- ;;21,"23630 ")
- ;;27
- ;;21,"23665 ")
- ;;28
- ;;21,"23670 ")
- ;;29
- ;;21,"23675 ")
- ;;30
- ;;21,"23680 ")
- ;;31
- ;;21,"24500 ")
- ;;32
- ;;21,"24505 ")
- ;;33
- ;;21,"24515 ")
- ;;34
- ;;21,"24516 ")
- ;;35
- ;;21,"24530 ")
- ;;36
- ;;21,"24535 ")
- ;;37
- ;;21,"24538 ")
- ;;38
- ;;21,"24545 ")
- ;;39
- ;;21,"24546 ")
- ;;40
- ;;21,"24560 ")
- ;;41
- ;;21,"24565 ")
- ;;42
- ;;21,"24566 ")
- ;;43
- ;;21,"24575 ")
- ;;44
- ;;21,"24576 ")
- ;;45
- ;;21,"24577 ")
- ;;46
- ;;21,"24579 ")
- ;;47
- ;;21,"24582 ")
- ;;48
- ;;21,"24586 ")
- ;;49
- ;;21,"24587 ")
- ;;50
- ;;21,"24620 ")
- ;;51
- ;;21,"24635 ")
- ;;52
- ;;21,"24650 ")
- ;;53
- ;;21,"24655 ")
- ;;54
- ;;21,"24665 ")
- ;;55
- ;;21,"24666 ")
- ;;56
- ;;21,"24670 ")
- ;;57
- ;;21,"24675 ")
- ;;58
- ;;21,"24685 ")
- ;;59
- ;;21,"25500 ")
- ;;60
- ;;21,"25505 ")
- ;;61
- ;;21,"25515 ")
- ;;62
- ;;21,"25520 ")
- ;;63
- ;;21,"25525 ")
- ;;64
- ;;21,"25526 ")
- ;;65
- ;;21,"25530 ")
- ;;66
- ;;21,"25535 ")
- ;;67
- ;;21,"25545 ")
- ;;68
- ;;21,"25560 ")
- ;;69
- ;;21,"25565 ")
- ;;70
- ;;21,"25574 ")
- ;;71
- ;;21,"25575 ")
- ;;72
- ;;21,"25600 ")
- ;;73
- ;;21,"25605 ")
- ;;74
- ;;21,"25611 ")
- ;;75
- ;;21,"25620 ")
- ;;76
- ;;21,"25622 ")
- ;;77
- ;;21,"25624 ")
- ;;78
- ;;21,"25628 ")
- ;;79
- ;;21,"25630 ")
- ;;80
- ;;21,"25635 ")
- ;;81
- ;;21,"25645 ")
- ;;82
- ;;21,"25650 ")
- ;;83
- ;;21,"25651 ")
- ;;84
- ;;21,"25652 ")
- ;;85
- ;;21,"25680 ")
- ;;86
- ;;21,"25685 ")
- ;;87
- ;;21,"26600 ")
- ;;88
- ;;21,"26605 ")
- ;;89
- ;;21,"26607 ")
- ;;90
- ;;21,"26608 ")
- ;;91
- ;;21,"26615 ")
- ;;92
- ;;21,"27193 ")
- ;;93
- ;;21,"27194 ")
- ;;94
- ;;21,"27200 ")
- ;;95
- ;;21,"27202 ")
- ;;96
- ;;21,"27215 ")
- ;;97
- ;;21,"27216 ")
- ;;98
- ;;21,"27217 ")
- ;;99
- ;;21,"27218 ")
- ;;100
- ;;21,"27220 ")
- ;;101
- ;;21,"27222 ")
- ;;102
- ;;21,"27226 ")
- ;;103
- ;;21,"27227 ")
- ;;104
- ;;21,"27228 ")
- ;;105
- ;;21,"27230 ")
- ;;106
- ;;21,"27232 ")
- ;;107
- ;;21,"27235 ")
- ;;108
- ;;21,"27236 ")
- ;;109
- ;;21,"27238 ")
- ;;110
- ;;21,"27240 ")
- ;;111
- ;;21,"27244 ")
- ;;112
- ;;21,"27245 ")
- ;;113
- ;;21,"27246 ")
- ;;114
- ;;21,"27248 ")
- ;;115
- ;;21,"27254 ")
- ;;116
- ;;21,"27500 ")
- ;;117
- ;;21,"27501 ")
- ;;118
- ;;21,"27502 ")
- ;;119
- ;;21,"27503 ")
- ;;120
- ;;21,"27506 ")
- ;;121
- ;;21,"27507 ")
- ;;122
- ;;21,"27508 ")
- ;;123
- ;;21,"27509 ")
- ;;124
- ;;21,"27510 ")
- ;;125
- ;;21,"27511 ")
- ;;126
- ;;21,"27513 ")
- ;;127
- ;;21,"27514 ")
- ;;128
- ;;21,"27520 ")
- ;;129
- ;;21,"27524 ")
- ;;130
- ;;21,"27530 ")
- ;;131
- ;;21,"27532 ")
- ;;132
- ;;21,"27535 ")
- ;;133
- ;;21,"27536 ")
- ;;134
- ;;21,"27538 ")
- ;;135
- ;;21,"27540 ")
- ;;136
- ;;21,"27750 ")
- ;;137
- ;;21,"27752 ")
- ;;138
- ;;21,"27756 ")
- ;;139
- ;;21,"27758 ")
- ;;140
- ;;21,"27759 ")
- ;;141
- ;;21,"27760 ")
- ;;142
- ;;21,"27762 ")
- ;;143
- ;;21,"27766 ")
- ;;144
- ;;21,"27780 ")
- ;;145
- ;;21,"27781 ")
- ;;146
- ;;21,"27784 ")
- ;;147
- ;;21,"27786 ")
- ;;148
- ;;21,"27788 ")
- ;;149
- ;;21,"27792 ")
- ;;150
- ;;21,"27808 ")
- ;;151
- ;;21,"27810 ")
- ;;152
- ;;21,"27814 ")
- ;;153
- ;;21,"27816 ")
- ;;154
- ;;21,"27818 ")
- ;;155
- ;;21,"27822 ")
- ;;156
- ;;21,"27823 ")
- ;;157
- ;;21,"27824 ")
- ;;158
- ;;21,"27825 ")
- ;;159
- ;;21,"27826 ")
- ;;160
- ;;21,"27827 ")
- ;;161
- ;;21,"27828 ")
- ;;162
- ;;21,"28400 ")
- ;;163
- ;;21,"28405 ")
- ;;164
- ;;21,"28406 ")
- ;;165
- ;;21,"28415 ")
- ;;166
- ;;21,"28420 ")
- ;;167
- ;;21,"28430 ")
- ;;168
- ;;21,"28435 ")
- ;;169
- ;;21,"28436 ")
- ;;170
- ;;21,"28445 ")
- ;;171
- ;;21,"28450 ")
- ;;172
- ;;21,"28455 ")
- ;;173
- ;;21,"28456 ")
- ;;174
- ;;21,"28465 ")
- ;;175
- ;;21,"28470 ")
- ;;176
- ;;21,"28475 ")
- ;;177
- ;;21,"28476 ")
- ;;178
- ;;21,"28485 ")
- ;;179
- ;;9002226,370,.01)
- ;;BGP FRACTURE CPTS
- ;;9002226,370,.02)
- ;;@
- ;;9002226,370,.04)
- ;;n
- ;;9002226,370,.06)
- ;;@
- ;;9002226,370,.08)
- ;;0
- ;;9002226,370,.09)
- ;;3050304
- ;;9002226,370,.11)
- ;;@
- ;;9002226,370,.12)
- ;;455
- ;;9002226,370,.13)
- ;;1
- ;;9002226,370,.14)
- ;;@
- ;;9002226,370,.15)
- ;;81
- ;;9002226,370,.16)
- ;;@
- ;;9002226,370,.17)
- ;;@
- ;;9002226,370,3101)
- ;;@
- ;;9002226.02101,"370,21800 ",.01)
- ;;21800
- ;;9002226.02101,"370,21800 ",.02)
- ;;21800
- ;;9002226.02101,"370,21805 ",.01)
- ;;21805
- ;;9002226.02101,"370,21805 ",.02)
- ;;21805
- ;;9002226.02101,"370,21810 ",.01)
- ;;21810
- ;;9002226.02101,"370,21810 ",.02)
- ;;21810
- ;;9002226.02101,"370,21820 ",.01)
- ;;21820
- ;;9002226.02101,"370,21820 ",.02)
- ;;21820
- ;;9002226.02101,"370,21825 ",.01)
- ;;21825
- ;;9002226.02101,"370,21825 ",.02)
- ;;21825
- ;;9002226.02101,"370,22305 ",.01)
- ;;22305
- ;;9002226.02101,"370,22305 ",.02)
- ;;22305
- ;;9002226.02101,"370,22310 ",.01)
- ;;22310
- ;;9002226.02101,"370,22310 ",.02)
- ;;22310
- ;;9002226.02101,"370,22315 ",.01)
- ;;22315
- ;;9002226.02101,"370,22315 ",.02)
- ;;22315
- ;;9002226.02101,"370,22318 ",.01)
- ;;22318
- ;;9002226.02101,"370,22318 ",.02)
- ;;22318
- ;;9002226.02101,"370,22319 ",.01)
- ;;22319
- ;;9002226.02101,"370,22319 ",.02)
- ;;22319
- ;;9002226.02101,"370,22325 ",.01)
- ;;22325
- ;;9002226.02101,"370,22325 ",.02)
- ;;22325
- ;;9002226.02101,"370,22326 ",.01)
- ;;22326
- ;;9002226.02101,"370,22326 ",.02)
- ;;22326
- ;;9002226.02101,"370,22327 ",.01)
- ;;22327
- ;;9002226.02101,"370,22327 ",.02)
- ;;22327
- ;;9002226.02101,"370,22328 ",.01)
- ;;22328
- ;;9002226.02101,"370,22328 ",.02)
- ;;22328
- ;;9002226.02101,"370,23500 ",.01)
- ;;23500
- ;;9002226.02101,"370,23500 ",.02)
- ;;23500
- ;;9002226.02101,"370,23505 ",.01)
- ;;23505
- ;;9002226.02101,"370,23505 ",.02)
- ;;23505
- ;;9002226.02101,"370,23515 ",.01)
- ;;23515
- ;;9002226.02101,"370,23515 ",.02)
- ;;23515
- ;;9002226.02101,"370,23570 ",.01)
- ;;23570
- ;;9002226.02101,"370,23570 ",.02)
- ;;23570
- ;;9002226.02101,"370,23575 ",.01)
- ;;23575
- ;;9002226.02101,"370,23575 ",.02)
- ;;23575
- ;;9002226.02101,"370,23585 ",.01)
- ;;23585
- ;;9002226.02101,"370,23585 ",.02)
- ;;23585
- ;;9002226.02101,"370,23600 ",.01)
- ;;23600
- ;;9002226.02101,"370,23600 ",.02)
- ;;23600
- ;;9002226.02101,"370,23605 ",.01)
- ;;23605
- ;;9002226.02101,"370,23605 ",.02)
- ;;23605
- ;;9002226.02101,"370,23615 ",.01)
- ;;23615
- ;;9002226.02101,"370,23615 ",.02)
- ;;23615
- ;;9002226.02101,"370,23616 ",.01)
- ;;23616
- ;;9002226.02101,"370,23616 ",.02)
- ;;23616
- ;;9002226.02101,"370,23620 ",.01)
- ;;23620
- ;;9002226.02101,"370,23620 ",.02)
- ;;23620
- ;;9002226.02101,"370,23625 ",.01)
- ;;23625
- ;;9002226.02101,"370,23625 ",.02)
- ;;23625
- ;;9002226.02101,"370,23630 ",.01)
- ;;23630
- ;;9002226.02101,"370,23630 ",.02)
- ;;23630
- ;;9002226.02101,"370,23665 ",.01)
- ;;23665
- ;;9002226.02101,"370,23665 ",.02)
- ;;23665
- ;;9002226.02101,"370,23670 ",.01)
- ;;23670
- ;;9002226.02101,"370,23670 ",.02)
- ;;23670
- ;;9002226.02101,"370,23675 ",.01)
- ;;23675
- ;;9002226.02101,"370,23675 ",.02)
- ;;23675
- ;;9002226.02101,"370,23680 ",.01)
- ;;23680
- ;;9002226.02101,"370,23680 ",.02)
- ;;23680
- ;;9002226.02101,"370,24500 ",.01)
- ;;24500
- ;;9002226.02101,"370,24500 ",.02)
- ;;24500
- ;;9002226.02101,"370,24505 ",.01)
- ;;24505
- ;;9002226.02101,"370,24505 ",.02)
- ;;24505
- ;;9002226.02101,"370,24515 ",.01)
- ;;24515
- ;;9002226.02101,"370,24515 ",.02)
- ;;24515
- ;;9002226.02101,"370,24516 ",.01)
- ;;24516
- ;;9002226.02101,"370,24516 ",.02)
- ;;24516
- ;;9002226.02101,"370,24530 ",.01)
- ;;24530
- ;;9002226.02101,"370,24530 ",.02)
- ;;24530
- ;;9002226.02101,"370,24535 ",.01)
- ;;24535
- ;;9002226.02101,"370,24535 ",.02)
- ;;24535
- ;;9002226.02101,"370,24538 ",.01)
- ;;24538
- ;;9002226.02101,"370,24538 ",.02)
- ;;24538
- ;;9002226.02101,"370,24545 ",.01)
- ;;24545
- ;;9002226.02101,"370,24545 ",.02)
- ;;24545
- ;;9002226.02101,"370,24546 ",.01)
- ;;24546
- ;;9002226.02101,"370,24546 ",.02)
- ;;24546
- ;;9002226.02101,"370,24560 ",.01)
- ;;24560
- ;;9002226.02101,"370,24560 ",.02)
- ;;24560
- ;;9002226.02101,"370,24565 ",.01)
- ;;24565
- ;;9002226.02101,"370,24565 ",.02)
- ;;24565
- ;;9002226.02101,"370,24566 ",.01)
- ;;24566
- ;;9002226.02101,"370,24566 ",.02)
- ;;24566
- ;;9002226.02101,"370,24575 ",.01)
- ;;24575
- ;;9002226.02101,"370,24575 ",.02)
- ;;24575
- ;;9002226.02101,"370,24576 ",.01)
- ;;24576
- ;;9002226.02101,"370,24576 ",.02)
- ;;24576
- ;;9002226.02101,"370,24577 ",.01)
- ;;24577
- ;;9002226.02101,"370,24577 ",.02)
- ;;24577
- ;;9002226.02101,"370,24579 ",.01)
- ;;24579
- ;;9002226.02101,"370,24579 ",.02)
- ;;24579
- ;;9002226.02101,"370,24582 ",.01)
- ;;24582
- ;;9002226.02101,"370,24582 ",.02)
- ;;24582
- ;;9002226.02101,"370,24586 ",.01)
- ;;24586
- ;;9002226.02101,"370,24586 ",.02)
- ;;24586
- ;;9002226.02101,"370,24587 ",.01)
- ;;24587
- ;;9002226.02101,"370,24587 ",.02)
- ;;24587
- ;;9002226.02101,"370,24620 ",.01)
- ;;24620
- ;;9002226.02101,"370,24620 ",.02)
- ;;24620
- ;;9002226.02101,"370,24635 ",.01)
- ;;24635
- ;;9002226.02101,"370,24635 ",.02)
- ;;24635
- ;;9002226.02101,"370,24650 ",.01)
- ;;24650
- ;;9002226.02101,"370,24650 ",.02)
- ;;24650
- ;;9002226.02101,"370,24655 ",.01)
- ;;24655
- ;;9002226.02101,"370,24655 ",.02)
- ;;24655
- ;;9002226.02101,"370,24665 ",.01)
- ;;24665
- ;;9002226.02101,"370,24665 ",.02)
- ;;24665
- ;;9002226.02101,"370,24666 ",.01)
- ;;24666
- ;;9002226.02101,"370,24666 ",.02)
- ;;24666
- ;;9002226.02101,"370,24670 ",.01)
- ;;24670
- ;;9002226.02101,"370,24670 ",.02)
- ;;24670
- ;;9002226.02101,"370,24675 ",.01)
- ;;24675
- ;;9002226.02101,"370,24675 ",.02)
- ;;24675
- ;;9002226.02101,"370,24685 ",.01)
- ;;24685
- ;;9002226.02101,"370,24685 ",.02)
- ;;24685
- ;;9002226.02101,"370,25500 ",.01)
- ;;25500
- ;;9002226.02101,"370,25500 ",.02)
- ;;25500
- ;;9002226.02101,"370,25505 ",.01)
- ;;25505
- ;;9002226.02101,"370,25505 ",.02)
- ;;25505
- ;;9002226.02101,"370,25515 ",.01)
- ;;25515
- ;;9002226.02101,"370,25515 ",.02)
- ;;25515
- ;;9002226.02101,"370,25520 ",.01)
- ;;25520
- ;;9002226.02101,"370,25520 ",.02)
- ;;25520
- ;;9002226.02101,"370,25525 ",.01)
- ;;25525
- ;;9002226.02101,"370,25525 ",.02)
- ;;25525
- ;;9002226.02101,"370,25526 ",.01)
- ;;25526
- ;;9002226.02101,"370,25526 ",.02)
- ;;25526
- ;;9002226.02101,"370,25530 ",.01)
- ;;25530
- ;;9002226.02101,"370,25530 ",.02)
- ;;25530
- ;;9002226.02101,"370,25535 ",.01)
- ;;25535
- ;;9002226.02101,"370,25535 ",.02)
- ;;25535
- ;;9002226.02101,"370,25545 ",.01)
- ;;25545
- ;;9002226.02101,"370,25545 ",.02)
- ;;25545
- ;;9002226.02101,"370,25560 ",.01)
- ;;25560
- ;;9002226.02101,"370,25560 ",.02)
- ;;25560
- ;;9002226.02101,"370,25565 ",.01)
- ;;25565
- ;;9002226.02101,"370,25565 ",.02)
- ;;25565
- ;;9002226.02101,"370,25574 ",.01)
- ;;25574
- ;;9002226.02101,"370,25574 ",.02)
- ;;25574
- ;;9002226.02101,"370,25575 ",.01)
- ;;25575
- ;;9002226.02101,"370,25575 ",.02)
- ;;25575
- ;;9002226.02101,"370,25600 ",.01)
- ;;25600
- ;;9002226.02101,"370,25600 ",.02)
- ;;25600
- ;;9002226.02101,"370,25605 ",.01)
- ;;25605
- ;;9002226.02101,"370,25605 ",.02)
- ;;25605
- ;;9002226.02101,"370,25611 ",.01)
- ;;25611
- ;;9002226.02101,"370,25611 ",.02)
- ;;25611
- ;;9002226.02101,"370,25620 ",.01)
- ;;25620
- ;;9002226.02101,"370,25620 ",.02)
- ;;25620
- ;;9002226.02101,"370,25622 ",.01)
- ;;25622
- ;;9002226.02101,"370,25622 ",.02)
- ;;25622
- ;;9002226.02101,"370,25624 ",.01)
- ;;25624
- ;;9002226.02101,"370,25624 ",.02)
- ;;25624
- ;;9002226.02101,"370,25628 ",.01)
- ;;25628
- ;;9002226.02101,"370,25628 ",.02)
- ;;25628
- ;;9002226.02101,"370,25630 ",.01)
- ;;25630
- ;;9002226.02101,"370,25630 ",.02)
- ;;25630
- ;;9002226.02101,"370,25635 ",.01)
- ;;25635
- ;;9002226.02101,"370,25635 ",.02)
- ;;25635
- ;;9002226.02101,"370,25645 ",.01)
- ;;25645
- ;;9002226.02101,"370,25645 ",.02)
- ;;25645
- ;;9002226.02101,"370,25650 ",.01)
- ;;25650
- ;;9002226.02101,"370,25650 ",.02)
- ;;25650
- ;;9002226.02101,"370,25651 ",.01)
- ;;25651
- ;;9002226.02101,"370,25651 ",.02)
- ;;25651
- ;;9002226.02101,"370,25652 ",.01)
- ;;25652
- ;;9002226.02101,"370,25652 ",.02)
- ;;25652
- ;;9002226.02101,"370,25680 ",.01)
- ;;25680
- ;;9002226.02101,"370,25680 ",.02)
- ;;25680
- ;;9002226.02101,"370,25685 ",.01)
- ;;25685
- ;;9002226.02101,"370,25685 ",.02)
- ;;25685
- ;;9002226.02101,"370,26600 ",.01)
- ;;26600
- ;
- OTHER ; OTHER ROUTINES
- D ^BGP6EXBB
- Q
- BGP6EXB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 21, 2005 ;
- +1 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
- +2 ;;;BGP6;;AUG 21, 2005
- +3 ;;BGP FRACTURE CPTS
- +4 ;
- +5 ; This routine loads Taxonomy BGP FRACTURE CPTS
- +6 ;
- 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,"21800 ")
- +2 ;;1
- +3 ;;21,"21805 ")
- +4 ;;2
- +5 ;;21,"21810 ")
- +6 ;;3
- +7 ;;21,"21820 ")
- +8 ;;4
- +9 ;;21,"21825 ")
- +10 ;;5
- +11 ;;21,"22305 ")
- +12 ;;6
- +13 ;;21,"22310 ")
- +14 ;;7
- +15 ;;21,"22315 ")
- +16 ;;8
- +17 ;;21,"22318 ")
- +18 ;;9
- +19 ;;21,"22319 ")
- +20 ;;10
- +21 ;;21,"22325 ")
- +22 ;;11
- +23 ;;21,"22326 ")
- +24 ;;12
- +25 ;;21,"22327 ")
- +26 ;;13
- +27 ;;21,"22328 ")
- +28 ;;14
- +29 ;;21,"23500 ")
- +30 ;;15
- +31 ;;21,"23505 ")
- +32 ;;16
- +33 ;;21,"23515 ")
- +34 ;;17
- +35 ;;21,"23570 ")
- +36 ;;18
- +37 ;;21,"23575 ")
- +38 ;;19
- +39 ;;21,"23585 ")
- +40 ;;20
- +41 ;;21,"23600 ")
- +42 ;;21
- +43 ;;21,"23605 ")
- +44 ;;22
- +45 ;;21,"23615 ")
- +46 ;;23
- +47 ;;21,"23616 ")
- +48 ;;24
- +49 ;;21,"23620 ")
- +50 ;;25
- +51 ;;21,"23625 ")
- +52 ;;26
- +53 ;;21,"23630 ")
- +54 ;;27
- +55 ;;21,"23665 ")
- +56 ;;28
- +57 ;;21,"23670 ")
- +58 ;;29
- +59 ;;21,"23675 ")
- +60 ;;30
- +61 ;;21,"23680 ")
- +62 ;;31
- +63 ;;21,"24500 ")
- +64 ;;32
- +65 ;;21,"24505 ")
- +66 ;;33
- +67 ;;21,"24515 ")
- +68 ;;34
- +69 ;;21,"24516 ")
- +70 ;;35
- +71 ;;21,"24530 ")
- +72 ;;36
- +73 ;;21,"24535 ")
- +74 ;;37
- +75 ;;21,"24538 ")
- +76 ;;38
- +77 ;;21,"24545 ")
- +78 ;;39
- +79 ;;21,"24546 ")
- +80 ;;40
- +81 ;;21,"24560 ")
- +82 ;;41
- +83 ;;21,"24565 ")
- +84 ;;42
- +85 ;;21,"24566 ")
- +86 ;;43
- +87 ;;21,"24575 ")
- +88 ;;44
- +89 ;;21,"24576 ")
- +90 ;;45
- +91 ;;21,"24577 ")
- +92 ;;46
- +93 ;;21,"24579 ")
- +94 ;;47
- +95 ;;21,"24582 ")
- +96 ;;48
- +97 ;;21,"24586 ")
- +98 ;;49
- +99 ;;21,"24587 ")
- +100 ;;50
- +101 ;;21,"24620 ")
- +102 ;;51
- +103 ;;21,"24635 ")
- +104 ;;52
- +105 ;;21,"24650 ")
- +106 ;;53
- +107 ;;21,"24655 ")
- +108 ;;54
- +109 ;;21,"24665 ")
- +110 ;;55
- +111 ;;21,"24666 ")
- +112 ;;56
- +113 ;;21,"24670 ")
- +114 ;;57
- +115 ;;21,"24675 ")
- +116 ;;58
- +117 ;;21,"24685 ")
- +118 ;;59
- +119 ;;21,"25500 ")
- +120 ;;60
- +121 ;;21,"25505 ")
- +122 ;;61
- +123 ;;21,"25515 ")
- +124 ;;62
- +125 ;;21,"25520 ")
- +126 ;;63
- +127 ;;21,"25525 ")
- +128 ;;64
- +129 ;;21,"25526 ")
- +130 ;;65
- +131 ;;21,"25530 ")
- +132 ;;66
- +133 ;;21,"25535 ")
- +134 ;;67
- +135 ;;21,"25545 ")
- +136 ;;68
- +137 ;;21,"25560 ")
- +138 ;;69
- +139 ;;21,"25565 ")
- +140 ;;70
- +141 ;;21,"25574 ")
- +142 ;;71
- +143 ;;21,"25575 ")
- +144 ;;72
- +145 ;;21,"25600 ")
- +146 ;;73
- +147 ;;21,"25605 ")
- +148 ;;74
- +149 ;;21,"25611 ")
- +150 ;;75
- +151 ;;21,"25620 ")
- +152 ;;76
- +153 ;;21,"25622 ")
- +154 ;;77
- +155 ;;21,"25624 ")
- +156 ;;78
- +157 ;;21,"25628 ")
- +158 ;;79
- +159 ;;21,"25630 ")
- +160 ;;80
- +161 ;;21,"25635 ")
- +162 ;;81
- +163 ;;21,"25645 ")
- +164 ;;82
- +165 ;;21,"25650 ")
- +166 ;;83
- +167 ;;21,"25651 ")
- +168 ;;84
- +169 ;;21,"25652 ")
- +170 ;;85
- +171 ;;21,"25680 ")
- +172 ;;86
- +173 ;;21,"25685 ")
- +174 ;;87
- +175 ;;21,"26600 ")
- +176 ;;88
- +177 ;;21,"26605 ")
- +178 ;;89
- +179 ;;21,"26607 ")
- +180 ;;90
- +181 ;;21,"26608 ")
- +182 ;;91
- +183 ;;21,"26615 ")
- +184 ;;92
- +185 ;;21,"27193 ")
- +186 ;;93
- +187 ;;21,"27194 ")
- +188 ;;94
- +189 ;;21,"27200 ")
- +190 ;;95
- +191 ;;21,"27202 ")
- +192 ;;96
- +193 ;;21,"27215 ")
- +194 ;;97
- +195 ;;21,"27216 ")
- +196 ;;98
- +197 ;;21,"27217 ")
- +198 ;;99
- +199 ;;21,"27218 ")
- +200 ;;100
- +201 ;;21,"27220 ")
- +202 ;;101
- +203 ;;21,"27222 ")
- +204 ;;102
- +205 ;;21,"27226 ")
- +206 ;;103
- +207 ;;21,"27227 ")
- +208 ;;104
- +209 ;;21,"27228 ")
- +210 ;;105
- +211 ;;21,"27230 ")
- +212 ;;106
- +213 ;;21,"27232 ")
- +214 ;;107
- +215 ;;21,"27235 ")
- +216 ;;108
- +217 ;;21,"27236 ")
- +218 ;;109
- +219 ;;21,"27238 ")
- +220 ;;110
- +221 ;;21,"27240 ")
- +222 ;;111
- +223 ;;21,"27244 ")
- +224 ;;112
- +225 ;;21,"27245 ")
- +226 ;;113
- +227 ;;21,"27246 ")
- +228 ;;114
- +229 ;;21,"27248 ")
- +230 ;;115
- +231 ;;21,"27254 ")
- +232 ;;116
- +233 ;;21,"27500 ")
- +234 ;;117
- +235 ;;21,"27501 ")
- +236 ;;118
- +237 ;;21,"27502 ")
- +238 ;;119
- +239 ;;21,"27503 ")
- +240 ;;120
- +241 ;;21,"27506 ")
- +242 ;;121
- +243 ;;21,"27507 ")
- +244 ;;122
- +245 ;;21,"27508 ")
- +246 ;;123
- +247 ;;21,"27509 ")
- +248 ;;124
- +249 ;;21,"27510 ")
- +250 ;;125
- +251 ;;21,"27511 ")
- +252 ;;126
- +253 ;;21,"27513 ")
- +254 ;;127
- +255 ;;21,"27514 ")
- +256 ;;128
- +257 ;;21,"27520 ")
- +258 ;;129
- +259 ;;21,"27524 ")
- +260 ;;130
- +261 ;;21,"27530 ")
- +262 ;;131
- +263 ;;21,"27532 ")
- +264 ;;132
- +265 ;;21,"27535 ")
- +266 ;;133
- +267 ;;21,"27536 ")
- +268 ;;134
- +269 ;;21,"27538 ")
- +270 ;;135
- +271 ;;21,"27540 ")
- +272 ;;136
- +273 ;;21,"27750 ")
- +274 ;;137
- +275 ;;21,"27752 ")
- +276 ;;138
- +277 ;;21,"27756 ")
- +278 ;;139
- +279 ;;21,"27758 ")
- +280 ;;140
- +281 ;;21,"27759 ")
- +282 ;;141
- +283 ;;21,"27760 ")
- +284 ;;142
- +285 ;;21,"27762 ")
- +286 ;;143
- +287 ;;21,"27766 ")
- +288 ;;144
- +289 ;;21,"27780 ")
- +290 ;;145
- +291 ;;21,"27781 ")
- +292 ;;146
- +293 ;;21,"27784 ")
- +294 ;;147
- +295 ;;21,"27786 ")
- +296 ;;148
- +297 ;;21,"27788 ")
- +298 ;;149
- +299 ;;21,"27792 ")
- +300 ;;150
- +301 ;;21,"27808 ")
- +302 ;;151
- +303 ;;21,"27810 ")
- +304 ;;152
- +305 ;;21,"27814 ")
- +306 ;;153
- +307 ;;21,"27816 ")
- +308 ;;154
- +309 ;;21,"27818 ")
- +310 ;;155
- +311 ;;21,"27822 ")
- +312 ;;156
- +313 ;;21,"27823 ")
- +314 ;;157
- +315 ;;21,"27824 ")
- +316 ;;158
- +317 ;;21,"27825 ")
- +318 ;;159
- +319 ;;21,"27826 ")
- +320 ;;160
- +321 ;;21,"27827 ")
- +322 ;;161
- +323 ;;21,"27828 ")
- +324 ;;162
- +325 ;;21,"28400 ")
- +326 ;;163
- +327 ;;21,"28405 ")
- +328 ;;164
- +329 ;;21,"28406 ")
- +330 ;;165
- +331 ;;21,"28415 ")
- +332 ;;166
- +333 ;;21,"28420 ")
- +334 ;;167
- +335 ;;21,"28430 ")
- +336 ;;168
- +337 ;;21,"28435 ")
- +338 ;;169
- +339 ;;21,"28436 ")
- +340 ;;170
- +341 ;;21,"28445 ")
- +342 ;;171
- +343 ;;21,"28450 ")
- +344 ;;172
- +345 ;;21,"28455 ")
- +346 ;;173
- +347 ;;21,"28456 ")
- +348 ;;174
- +349 ;;21,"28465 ")
- +350 ;;175
- +351 ;;21,"28470 ")
- +352 ;;176
- +353 ;;21,"28475 ")
- +354 ;;177
- +355 ;;21,"28476 ")
- +356 ;;178
- +357 ;;21,"28485 ")
- +358 ;;179
- +359 ;;9002226,370,.01)
- +360 ;;BGP FRACTURE CPTS
- +361 ;;9002226,370,.02)
- +362 ;;@
- +363 ;;9002226,370,.04)
- +364 ;;n
- +365 ;;9002226,370,.06)
- +366 ;;@
- +367 ;;9002226,370,.08)
- +368 ;;0
- +369 ;;9002226,370,.09)
- +370 ;;3050304
- +371 ;;9002226,370,.11)
- +372 ;;@
- +373 ;;9002226,370,.12)
- +374 ;;455
- +375 ;;9002226,370,.13)
- +376 ;;1
- +377 ;;9002226,370,.14)
- +378 ;;@
- +379 ;;9002226,370,.15)
- +380 ;;81
- +381 ;;9002226,370,.16)
- +382 ;;@
- +383 ;;9002226,370,.17)
- +384 ;;@
- +385 ;;9002226,370,3101)
- +386 ;;@
- +387 ;;9002226.02101,"370,21800 ",.01)
- +388 ;;21800
- +389 ;;9002226.02101,"370,21800 ",.02)
- +390 ;;21800
- +391 ;;9002226.02101,"370,21805 ",.01)
- +392 ;;21805
- +393 ;;9002226.02101,"370,21805 ",.02)
- +394 ;;21805
- +395 ;;9002226.02101,"370,21810 ",.01)
- +396 ;;21810
- +397 ;;9002226.02101,"370,21810 ",.02)
- +398 ;;21810
- +399 ;;9002226.02101,"370,21820 ",.01)
- +400 ;;21820
- +401 ;;9002226.02101,"370,21820 ",.02)
- +402 ;;21820
- +403 ;;9002226.02101,"370,21825 ",.01)
- +404 ;;21825
- +405 ;;9002226.02101,"370,21825 ",.02)
- +406 ;;21825
- +407 ;;9002226.02101,"370,22305 ",.01)
- +408 ;;22305
- +409 ;;9002226.02101,"370,22305 ",.02)
- +410 ;;22305
- +411 ;;9002226.02101,"370,22310 ",.01)
- +412 ;;22310
- +413 ;;9002226.02101,"370,22310 ",.02)
- +414 ;;22310
- +415 ;;9002226.02101,"370,22315 ",.01)
- +416 ;;22315
- +417 ;;9002226.02101,"370,22315 ",.02)
- +418 ;;22315
- +419 ;;9002226.02101,"370,22318 ",.01)
- +420 ;;22318
- +421 ;;9002226.02101,"370,22318 ",.02)
- +422 ;;22318
- +423 ;;9002226.02101,"370,22319 ",.01)
- +424 ;;22319
- +425 ;;9002226.02101,"370,22319 ",.02)
- +426 ;;22319
- +427 ;;9002226.02101,"370,22325 ",.01)
- +428 ;;22325
- +429 ;;9002226.02101,"370,22325 ",.02)
- +430 ;;22325
- +431 ;;9002226.02101,"370,22326 ",.01)
- +432 ;;22326
- +433 ;;9002226.02101,"370,22326 ",.02)
- +434 ;;22326
- +435 ;;9002226.02101,"370,22327 ",.01)
- +436 ;;22327
- +437 ;;9002226.02101,"370,22327 ",.02)
- +438 ;;22327
- +439 ;;9002226.02101,"370,22328 ",.01)
- +440 ;;22328
- +441 ;;9002226.02101,"370,22328 ",.02)
- +442 ;;22328
- +443 ;;9002226.02101,"370,23500 ",.01)
- +444 ;;23500
- +445 ;;9002226.02101,"370,23500 ",.02)
- +446 ;;23500
- +447 ;;9002226.02101,"370,23505 ",.01)
- +448 ;;23505
- +449 ;;9002226.02101,"370,23505 ",.02)
- +450 ;;23505
- +451 ;;9002226.02101,"370,23515 ",.01)
- +452 ;;23515
- +453 ;;9002226.02101,"370,23515 ",.02)
- +454 ;;23515
- +455 ;;9002226.02101,"370,23570 ",.01)
- +456 ;;23570
- +457 ;;9002226.02101,"370,23570 ",.02)
- +458 ;;23570
- +459 ;;9002226.02101,"370,23575 ",.01)
- +460 ;;23575
- +461 ;;9002226.02101,"370,23575 ",.02)
- +462 ;;23575
- +463 ;;9002226.02101,"370,23585 ",.01)
- +464 ;;23585
- +465 ;;9002226.02101,"370,23585 ",.02)
- +466 ;;23585
- +467 ;;9002226.02101,"370,23600 ",.01)
- +468 ;;23600
- +469 ;;9002226.02101,"370,23600 ",.02)
- +470 ;;23600
- +471 ;;9002226.02101,"370,23605 ",.01)
- +472 ;;23605
- +473 ;;9002226.02101,"370,23605 ",.02)
- +474 ;;23605
- +475 ;;9002226.02101,"370,23615 ",.01)
- +476 ;;23615
- +477 ;;9002226.02101,"370,23615 ",.02)
- +478 ;;23615
- +479 ;;9002226.02101,"370,23616 ",.01)
- +480 ;;23616
- +481 ;;9002226.02101,"370,23616 ",.02)
- +482 ;;23616
- +483 ;;9002226.02101,"370,23620 ",.01)
- +484 ;;23620
- +485 ;;9002226.02101,"370,23620 ",.02)
- +486 ;;23620
- +487 ;;9002226.02101,"370,23625 ",.01)
- +488 ;;23625
- +489 ;;9002226.02101,"370,23625 ",.02)
- +490 ;;23625
- +491 ;;9002226.02101,"370,23630 ",.01)
- +492 ;;23630
- +493 ;;9002226.02101,"370,23630 ",.02)
- +494 ;;23630
- +495 ;;9002226.02101,"370,23665 ",.01)
- +496 ;;23665
- +497 ;;9002226.02101,"370,23665 ",.02)
- +498 ;;23665
- +499 ;;9002226.02101,"370,23670 ",.01)
- +500 ;;23670
- +501 ;;9002226.02101,"370,23670 ",.02)
- +502 ;;23670
- +503 ;;9002226.02101,"370,23675 ",.01)
- +504 ;;23675
- +505 ;;9002226.02101,"370,23675 ",.02)
- +506 ;;23675
- +507 ;;9002226.02101,"370,23680 ",.01)
- +508 ;;23680
- +509 ;;9002226.02101,"370,23680 ",.02)
- +510 ;;23680
- +511 ;;9002226.02101,"370,24500 ",.01)
- +512 ;;24500
- +513 ;;9002226.02101,"370,24500 ",.02)
- +514 ;;24500
- +515 ;;9002226.02101,"370,24505 ",.01)
- +516 ;;24505
- +517 ;;9002226.02101,"370,24505 ",.02)
- +518 ;;24505
- +519 ;;9002226.02101,"370,24515 ",.01)
- +520 ;;24515
- +521 ;;9002226.02101,"370,24515 ",.02)
- +522 ;;24515
- +523 ;;9002226.02101,"370,24516 ",.01)
- +524 ;;24516
- +525 ;;9002226.02101,"370,24516 ",.02)
- +526 ;;24516
- +527 ;;9002226.02101,"370,24530 ",.01)
- +528 ;;24530
- +529 ;;9002226.02101,"370,24530 ",.02)
- +530 ;;24530
- +531 ;;9002226.02101,"370,24535 ",.01)
- +532 ;;24535
- +533 ;;9002226.02101,"370,24535 ",.02)
- +534 ;;24535
- +535 ;;9002226.02101,"370,24538 ",.01)
- +536 ;;24538
- +537 ;;9002226.02101,"370,24538 ",.02)
- +538 ;;24538
- +539 ;;9002226.02101,"370,24545 ",.01)
- +540 ;;24545
- +541 ;;9002226.02101,"370,24545 ",.02)
- +542 ;;24545
- +543 ;;9002226.02101,"370,24546 ",.01)
- +544 ;;24546
- +545 ;;9002226.02101,"370,24546 ",.02)
- +546 ;;24546
- +547 ;;9002226.02101,"370,24560 ",.01)
- +548 ;;24560
- +549 ;;9002226.02101,"370,24560 ",.02)
- +550 ;;24560
- +551 ;;9002226.02101,"370,24565 ",.01)
- +552 ;;24565
- +553 ;;9002226.02101,"370,24565 ",.02)
- +554 ;;24565
- +555 ;;9002226.02101,"370,24566 ",.01)
- +556 ;;24566
- +557 ;;9002226.02101,"370,24566 ",.02)
- +558 ;;24566
- +559 ;;9002226.02101,"370,24575 ",.01)
- +560 ;;24575
- +561 ;;9002226.02101,"370,24575 ",.02)
- +562 ;;24575
- +563 ;;9002226.02101,"370,24576 ",.01)
- +564 ;;24576
- +565 ;;9002226.02101,"370,24576 ",.02)
- +566 ;;24576
- +567 ;;9002226.02101,"370,24577 ",.01)
- +568 ;;24577
- +569 ;;9002226.02101,"370,24577 ",.02)
- +570 ;;24577
- +571 ;;9002226.02101,"370,24579 ",.01)
- +572 ;;24579
- +573 ;;9002226.02101,"370,24579 ",.02)
- +574 ;;24579
- +575 ;;9002226.02101,"370,24582 ",.01)
- +576 ;;24582
- +577 ;;9002226.02101,"370,24582 ",.02)
- +578 ;;24582
- +579 ;;9002226.02101,"370,24586 ",.01)
- +580 ;;24586
- +581 ;;9002226.02101,"370,24586 ",.02)
- +582 ;;24586
- +583 ;;9002226.02101,"370,24587 ",.01)
- +584 ;;24587
- +585 ;;9002226.02101,"370,24587 ",.02)
- +586 ;;24587
- +587 ;;9002226.02101,"370,24620 ",.01)
- +588 ;;24620
- +589 ;;9002226.02101,"370,24620 ",.02)
- +590 ;;24620
- +591 ;;9002226.02101,"370,24635 ",.01)
- +592 ;;24635
- +593 ;;9002226.02101,"370,24635 ",.02)
- +594 ;;24635
- +595 ;;9002226.02101,"370,24650 ",.01)
- +596 ;;24650
- +597 ;;9002226.02101,"370,24650 ",.02)
- +598 ;;24650
- +599 ;;9002226.02101,"370,24655 ",.01)
- +600 ;;24655
- +601 ;;9002226.02101,"370,24655 ",.02)
- +602 ;;24655
- +603 ;;9002226.02101,"370,24665 ",.01)
- +604 ;;24665
- +605 ;;9002226.02101,"370,24665 ",.02)
- +606 ;;24665
- +607 ;;9002226.02101,"370,24666 ",.01)
- +608 ;;24666
- +609 ;;9002226.02101,"370,24666 ",.02)
- +610 ;;24666
- +611 ;;9002226.02101,"370,24670 ",.01)
- +612 ;;24670
- +613 ;;9002226.02101,"370,24670 ",.02)
- +614 ;;24670
- +615 ;;9002226.02101,"370,24675 ",.01)
- +616 ;;24675
- +617 ;;9002226.02101,"370,24675 ",.02)
- +618 ;;24675
- +619 ;;9002226.02101,"370,24685 ",.01)
- +620 ;;24685
- +621 ;;9002226.02101,"370,24685 ",.02)
- +622 ;;24685
- +623 ;;9002226.02101,"370,25500 ",.01)
- +624 ;;25500
- +625 ;;9002226.02101,"370,25500 ",.02)
- +626 ;;25500
- +627 ;;9002226.02101,"370,25505 ",.01)
- +628 ;;25505
- +629 ;;9002226.02101,"370,25505 ",.02)
- +630 ;;25505
- +631 ;;9002226.02101,"370,25515 ",.01)
- +632 ;;25515
- +633 ;;9002226.02101,"370,25515 ",.02)
- +634 ;;25515
- +635 ;;9002226.02101,"370,25520 ",.01)
- +636 ;;25520
- +637 ;;9002226.02101,"370,25520 ",.02)
- +638 ;;25520
- +639 ;;9002226.02101,"370,25525 ",.01)
- +640 ;;25525
- +641 ;;9002226.02101,"370,25525 ",.02)
- +642 ;;25525
- +643 ;;9002226.02101,"370,25526 ",.01)
- +644 ;;25526
- +645 ;;9002226.02101,"370,25526 ",.02)
- +646 ;;25526
- +647 ;;9002226.02101,"370,25530 ",.01)
- +648 ;;25530
- +649 ;;9002226.02101,"370,25530 ",.02)
- +650 ;;25530
- +651 ;;9002226.02101,"370,25535 ",.01)
- +652 ;;25535
- +653 ;;9002226.02101,"370,25535 ",.02)
- +654 ;;25535
- +655 ;;9002226.02101,"370,25545 ",.01)
- +656 ;;25545
- +657 ;;9002226.02101,"370,25545 ",.02)
- +658 ;;25545
- +659 ;;9002226.02101,"370,25560 ",.01)
- +660 ;;25560
- +661 ;;9002226.02101,"370,25560 ",.02)
- +662 ;;25560
- +663 ;;9002226.02101,"370,25565 ",.01)
- +664 ;;25565
- +665 ;;9002226.02101,"370,25565 ",.02)
- +666 ;;25565
- +667 ;;9002226.02101,"370,25574 ",.01)
- +668 ;;25574
- +669 ;;9002226.02101,"370,25574 ",.02)
- +670 ;;25574
- +671 ;;9002226.02101,"370,25575 ",.01)
- +672 ;;25575
- +673 ;;9002226.02101,"370,25575 ",.02)
- +674 ;;25575
- +675 ;;9002226.02101,"370,25600 ",.01)
- +676 ;;25600
- +677 ;;9002226.02101,"370,25600 ",.02)
- +678 ;;25600
- +679 ;;9002226.02101,"370,25605 ",.01)
- +680 ;;25605
- +681 ;;9002226.02101,"370,25605 ",.02)
- +682 ;;25605
- +683 ;;9002226.02101,"370,25611 ",.01)
- +684 ;;25611
- +685 ;;9002226.02101,"370,25611 ",.02)
- +686 ;;25611
- +687 ;;9002226.02101,"370,25620 ",.01)
- +688 ;;25620
- +689 ;;9002226.02101,"370,25620 ",.02)
- +690 ;;25620
- +691 ;;9002226.02101,"370,25622 ",.01)
- +692 ;;25622
- +693 ;;9002226.02101,"370,25622 ",.02)
- +694 ;;25622
- +695 ;;9002226.02101,"370,25624 ",.01)
- +696 ;;25624
- +697 ;;9002226.02101,"370,25624 ",.02)
- +698 ;;25624
- +699 ;;9002226.02101,"370,25628 ",.01)
- +700 ;;25628
- +701 ;;9002226.02101,"370,25628 ",.02)
- +702 ;;25628
- +703 ;;9002226.02101,"370,25630 ",.01)
- +704 ;;25630
- +705 ;;9002226.02101,"370,25630 ",.02)
- +706 ;;25630
- +707 ;;9002226.02101,"370,25635 ",.01)
- +708 ;;25635
- +709 ;;9002226.02101,"370,25635 ",.02)
- +710 ;;25635
- +711 ;;9002226.02101,"370,25645 ",.01)
- +712 ;;25645
- +713 ;;9002226.02101,"370,25645 ",.02)
- +714 ;;25645
- +715 ;;9002226.02101,"370,25650 ",.01)
- +716 ;;25650
- +717 ;;9002226.02101,"370,25650 ",.02)
- +718 ;;25650
- +719 ;;9002226.02101,"370,25651 ",.01)
- +720 ;;25651
- +721 ;;9002226.02101,"370,25651 ",.02)
- +722 ;;25651
- +723 ;;9002226.02101,"370,25652 ",.01)
- +724 ;;25652
- +725 ;;9002226.02101,"370,25652 ",.02)
- +726 ;;25652
- +727 ;;9002226.02101,"370,25680 ",.01)
- +728 ;;25680
- +729 ;;9002226.02101,"370,25680 ",.02)
- +730 ;;25680
- +731 ;;9002226.02101,"370,25685 ",.01)
- +732 ;;25685
- +733 ;;9002226.02101,"370,25685 ",.02)
- +734 ;;25685
- +735 ;;9002226.02101,"370,26600 ",.01)
- +736 ;;26600
- +737 ;
- OTHER ; OTHER ROUTINES
- +1 DO ^BGP6EXBB
- +2 QUIT