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

ATXD6S.m

Go to the documentation of this file.
  1. ATXD6S ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 12, 2013;
  1. ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
  1. ;;BKM STATE REPORTABLE DXS
  1. ;
  1. ; This routine loads Taxonomy BKM STATE REPORTABLE DXS
  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,"003.1 ")
  1. ;;1
  1. ;;21,"007.2 ")
  1. ;;2
  1. ;;21,"007.4 ")
  1. ;;3
  1. ;;21,"011.00 ")
  1. ;;4
  1. ;;21,"031.2 ")
  1. ;;5
  1. ;;21,"031.9 ")
  1. ;;6
  1. ;;21,"042. ")
  1. ;;7
  1. ;;21,"046.3 ")
  1. ;;8
  1. ;;21,"054.0 ")
  1. ;;9
  1. ;;21,"078.5 ")
  1. ;;10
  1. ;;21,"112.4 ")
  1. ;;11
  1. ;;21,"112.84 ")
  1. ;;12
  1. ;;21,"112.89 ")
  1. ;;13
  1. ;;21,"112.9 ")
  1. ;;14
  1. ;;21,"114.1 ")
  1. ;;15
  1. ;;21,"114.2 ")
  1. ;;16
  1. ;;21,"114.3 ")
  1. ;;17
  1. ;;21,"115.00 ")
  1. ;;18
  1. ;;21,"117.5 ")
  1. ;;19
  1. ;;21,"130.0 ")
  1. ;;20
  1. ;;21,"136.3 ")
  1. ;;21
  1. ;;21,"176.0 ")
  1. ;;22
  1. ;;21,"180.0 ")
  1. ;;23
  1. ;;21,"200.20 ")
  1. ;;24
  1. ;;21,"200.80 ")
  1. ;;25
  1. ;;21,"202.80 ")
  1. ;;26
  1. ;;21,"261. ")
  1. ;;27
  1. ;;21,"348.3 ")
  1. ;;28
  1. ;;21,"363.15 ")
  1. ;;29
  1. ;;21,"363.20 ")
  1. ;;30
  1. ;;21,"480.0 ")
  1. ;;31
  1. ;;21,"482.89 ")
  1. ;;32
  1. ;;21,"483.8 ")
  1. ;;33
  1. ;;21,"486. ")
  1. ;;34
  1. ;;21,"487.0 ")
  1. ;;35
  1. ;;21,"799.4 ")
  1. ;;36
  1. ;;21,"A02.1 ")
  1. ;;37
  1. ;;21,"A07.2 ")
  1. ;;38
  1. ;;21,"A07.3 ")
  1. ;;39
  1. ;;21,"A15.0 ")
  1. ;;40
  1. ;;21,"A15.5 ")
  1. ;;41
  1. ;;21,"A31.2 ")
  1. ;;42
  1. ;;21,"A31.9 ")
  1. ;;43
  1. ;;21,"A60.00 ")
  1. ;;44
  1. ;;21,"A60.01 ")
  1. ;;45
  1. ;;21,"A60.02 ")
  1. ;;46
  1. ;;21,"A60.03 ")
  1. ;;47
  1. ;;21,"A60.04 ")
  1. ;;48
  1. ;;21,"A60.09 ")
  1. ;;49
  1. ;;21,"A60.1 ")
  1. ;;50
  1. ;;21,"A60.9 ")
  1. ;;51
  1. ;;21,"A81.2 ")
  1. ;;52
  1. ;;21,"B00.0 ")
  1. ;;53
  1. ;;21,"B00.1 ")
  1. ;;54
  1. ;;21,"B00.2 ")
  1. ;;55
  1. ;;21,"B00.3 ")
  1. ;;56
  1. ;;21,"B00.4 ")
  1. ;;57
  1. ;;21,"B00.50 ")
  1. ;;58
  1. ;;21,"B00.51 ")
  1. ;;59
  1. ;;21,"B00.52 ")
  1. ;;60
  1. ;;21,"B00.53 ")
  1. ;;61
  1. ;;21,"B00.59 ")
  1. ;;62
  1. ;;21,"B00.7 ")
  1. ;;63
  1. ;;21,"B00.81 ")
  1. ;;64
  1. ;;21,"B00.82 ")
  1. ;;65
  1. ;;21,"B00.89 ")
  1. ;;66
  1. ;;21,"B00.9 ")
  1. ;;67
  1. ;;21,"B20. ")
  1. ;;68
  1. ;;21,"B25.0 ")
  1. ;;69
  1. ;;21,"B25.1 ")
  1. ;;70
  1. ;;21,"B25.2 ")
  1. ;;71
  1. ;;21,"B25.8 ")
  1. ;;72
  1. ;;21,"B25.9 ")
  1. ;;73
  1. ;;21,"B37.81 ")
  1. ;;74
  1. ;;21,"B37.89 ")
  1. ;;75
  1. ;;21,"B37.9 ")
  1. ;;76
  1. ;;21,"B38.3 ")
  1. ;;77
  1. ;;21,"B38.4 ")
  1. ;;78
  1. ;;21,"B38.7 ")
  1. ;;79
  1. ;;21,"B38.81 ")
  1. ;;80
  1. ;;21,"B38.89 ")
  1. ;;81
  1. ;;21,"B39.0 ")
  1. ;;82
  1. ;;21,"B39.1 ")
  1. ;;83
  1. ;;21,"B39.2 ")
  1. ;;84
  1. ;;21,"B39.3 ")
  1. ;;85
  1. ;;21,"B39.4 ")
  1. ;;86
  1. ;;21,"B39.5 ")
  1. ;;87
  1. ;;21,"B39.9 ")
  1. ;;88
  1. ;;21,"B45.0 ")
  1. ;;89
  1. ;;21,"B45.1 ")
  1. ;;90
  1. ;;21,"B45.2 ")
  1. ;;91
  1. ;;21,"B45.3 ")
  1. ;;92
  1. ;;21,"B45.7 ")
  1. ;;93
  1. ;;21,"B45.8 ")
  1. ;;94
  1. ;;21,"B45.9 ")
  1. ;;95
  1. ;;21,"B58.00 ")
  1. ;;96
  1. ;;21,"B58.01 ")
  1. ;;97
  1. ;;21,"B58.09 ")
  1. ;;98
  1. ;;21,"B58.1 ")
  1. ;;99
  1. ;;21,"B58.2 ")
  1. ;;100
  1. ;;21,"B58.3 ")
  1. ;;101
  1. ;;21,"B58.81 ")
  1. ;;102
  1. ;;21,"B58.82 ")
  1. ;;103
  1. ;;21,"B58.83 ")
  1. ;;104
  1. ;;21,"B58.89 ")
  1. ;;105
  1. ;;21,"B58.9 ")
  1. ;;106
  1. ;;21,"B59. ")
  1. ;;107
  1. ;;21,"C46.0 ")
  1. ;;108
  1. ;;21,"C46.1 ")
  1. ;;109
  1. ;;21,"C46.2 ")
  1. ;;110
  1. ;;21,"C46.3 ")
  1. ;;111
  1. ;;21,"C46.4 ")
  1. ;;112
  1. ;;21,"C46.50 ")
  1. ;;113
  1. ;;21,"C46.51 ")
  1. ;;114
  1. ;;21,"C46.52 ")
  1. ;;115
  1. ;;21,"C46.7 ")
  1. ;;116
  1. ;;21,"C46.9 ")
  1. ;;117
  1. ;;21,"C53.0 ")
  1. ;;118
  1. ;;21,"C53.1 ")
  1. ;;119
  1. ;;21,"C53.8 ")
  1. ;;120
  1. ;;21,"C53.9 ")
  1. ;;121
  1. ;;21,"C82.50 ")
  1. ;;122
  1. ;;21,"C82.51 ")
  1. ;;123
  1. ;;21,"C82.52 ")
  1. ;;124
  1. ;;21,"C82.53 ")
  1. ;;125
  1. ;;21,"C82.54 ")
  1. ;;126
  1. ;;21,"C82.55 ")
  1. ;;127
  1. ;;21,"C82.56 ")
  1. ;;128
  1. ;;21,"C82.57 ")
  1. ;;129
  1. ;;21,"C82.58 ")
  1. ;;130
  1. ;;21,"C82.59 ")
  1. ;;131
  1. ;;21,"C83.00 ")
  1. ;;132
  1. ;;21,"C83.01 ")
  1. ;;133
  1. ;;21,"C83.02 ")
  1. ;;134
  1. ;;21,"C83.03 ")
  1. ;;135
  1. ;;21,"C83.04 ")
  1. ;;136
  1. ;;21,"C83.05 ")
  1. ;;137
  1. ;;21,"C83.06 ")
  1. ;;138
  1. ;;21,"C83.07 ")
  1. ;;139
  1. ;;21,"C83.08 ")
  1. ;;140
  1. ;;21,"C83.09 ")
  1. ;;141
  1. ;;21,"C83.31 ")
  1. ;;142
  1. ;;21,"C83.32 ")
  1. ;;143
  1. ;;21,"C83.33 ")
  1. ;;144
  1. ;;21,"C83.34 ")
  1. ;;145
  1. ;;21,"C83.35 ")
  1. ;;146
  1. ;;21,"C83.36 ")
  1. ;;147
  1. ;;21,"C83.37 ")
  1. ;;148
  1. ;;21,"C83.38 ")
  1. ;;149
  1. ;;21,"C83.71 ")
  1. ;;150
  1. ;;21,"C83.72 ")
  1. ;;151
  1. ;;21,"C83.73 ")
  1. ;;152
  1. ;;21,"C83.74 ")
  1. ;;153
  1. ;;21,"C83.75 ")
  1. ;;154
  1. ;;21,"C83.76 ")
  1. ;;155
  1. ;;21,"C83.77 ")
  1. ;;156
  1. ;;21,"C83.78 ")
  1. ;;157
  1. ;;21,"C83.79 ")
  1. ;;158
  1. ;;21,"C83.80 ")
  1. ;;159
  1. ;;21,"C83.81 ")
  1. ;;160
  1. ;;21,"C83.82 ")
  1. ;;161
  1. ;;21,"C83.83 ")
  1. ;;162
  1. ;;21,"C83.84 ")
  1. ;;163
  1. ;;21,"C83.85 ")
  1. ;;164
  1. ;;21,"C83.86 ")
  1. ;;165
  1. ;;21,"C83.87 ")
  1. ;;166
  1. ;;21,"C83.88 ")
  1. ;;167
  1. ;;21,"C83.89 ")
  1. ;;168
  1. ;;21,"C83.90 ")
  1. ;;169
  1. ;;21,"C83.91 ")
  1. ;;170
  1. ;;21,"C83.92 ")
  1. ;;171
  1. ;;21,"C83.93 ")
  1. ;;172
  1. ;;21,"C83.94 ")
  1. ;;173
  1. ;;21,"C83.95 ")
  1. ;;174
  1. ;;21,"C83.96 ")
  1. ;;175
  1. ;;21,"C83.97 ")
  1. ;;176
  1. ;;21,"C83.98 ")
  1. ;;177
  1. ;;21,"C83.99 ")
  1. ;;178
  1. ;;21,"C84.90 ")
  1. ;;179
  1. ;;21,"C84.91 ")
  1. ;;180
  1. ;;21,"C84.92 ")
  1. ;;181
  1. ;;21,"C84.93 ")
  1. ;;182
  1. ;;21,"C84.94 ")
  1. ;;183
  1. ;;21,"C84.95 ")
  1. ;;184
  1. ;;21,"C84.96 ")
  1. ;;185
  1. ;;21,"C84.97 ")
  1. ;;186
  1. ;;21,"C84.98 ")
  1. ;;187
  1. ;;21,"C84.99 ")
  1. ;;188
  1. ;;21,"C84.A0 ")
  1. ;;189
  1. ;;21,"C84.A1 ")
  1. ;;190
  1. ;;21,"C84.A2 ")
  1. ;;191
  1. ;;21,"C84.A3 ")
  1. ;;192
  1. ;;21,"C84.A4 ")
  1. ;;193
  1. ;;21,"C84.A5 ")
  1. ;;194
  1. ;;21,"C84.A6 ")
  1. ;;195
  1. ;;21,"C84.A7 ")
  1. ;;196
  1. ;;21,"C84.A8 ")
  1. ;;197
  1. ;;21,"C84.A9 ")
  1. ;;198
  1. ;;21,"C84.Z0 ")
  1. ;;199
  1. ;;21,"C84.Z1 ")
  1. ;;200
  1. ;;21,"C84.Z2 ")
  1. ;;201
  1. ;;21,"C84.Z3 ")
  1. ;;202
  1. ;;21,"C84.Z4 ")
  1. ;;203
  1. ;;21,"C84.Z5 ")
  1. ;;204
  1. ;;21,"C84.Z6 ")
  1. ;;205
  1. ;;21,"C84.Z7 ")
  1. ;;206
  1. ;;21,"C84.Z8 ")
  1. ;;207
  1. ;;21,"C84.Z9 ")
  1. ;;208
  1. ;;21,"C85.10 ")
  1. ;;209
  1. ;;21,"C85.11 ")
  1. ;;210
  1. ;;21,"C85.12 ")
  1. ;;211
  1. ;;21,"C85.13 ")
  1. ;;212
  1. ;;21,"C85.14 ")
  1. ;;213
  1. ;;21,"C85.15 ")
  1. ;;214
  1. ;;21,"C85.16 ")
  1. ;;215
  1. ;;21,"C85.17 ")
  1. ;;216
  1. ;;21,"C85.18 ")
  1. ;;217
  1. ;;21,"C85.19 ")
  1. ;;218
  1. ;;21,"C85.20 ")
  1. ;;219
  1. ;;21,"C85.21 ")
  1. ;;220
  1. ;;21,"C85.22 ")
  1. ;;221
  1. ;;21,"C85.23 ")
  1. ;;222
  1. ;;21,"C85.24 ")
  1. ;;223
  1. ;;21,"C85.25 ")
  1. ;;224
  1. ;;21,"C85.26 ")
  1. ;;225
  1. ;;21,"C85.27 ")
  1. ;;226
  1. ;;21,"C85.28 ")
  1. ;;227
  1. ;;21,"C85.29 ")
  1. ;;228
  1. ;;21,"C85.80 ")
  1. ;;229
  1. ;;21,"C85.81 ")
  1. ;;230
  1. ;;21,"C85.82 ")
  1. ;;231
  1. ;;21,"C85.83 ")
  1. ;;232
  1. ;;21,"C85.84 ")
  1. ;;233
  1. ;;21,"C85.85 ")
  1. ;;234
  1. ;;21,"C85.86 ")
  1. ;;235
  1. ;;21,"C85.87 ")
  1. ;;236
  1. ;;21,"C85.88 ")
  1. ;;237
  1. ;;21,"C85.89 ")
  1. ;;238
  1. ;;21,"C85.90 ")
  1. ;;239
  1. ;;21,"C85.91 ")
  1. ;;240
  1. ;;21,"C85.92 ")
  1. ;;241
  1. ;;21,"C85.93 ")
  1. ;;242
  1. ;;21,"C85.94 ")
  1. ;;243
  1. ;;21,"C85.95 ")
  1. ;;244
  1. ;;21,"C85.96 ")
  1. ;;245
  1. ;;21,"C85.97 ")
  1. ;;246
  1. ;;21,"C85.98 ")
  1. ;;247
  1. ;;21,"C85.99 ")
  1. ;;248
  1. ;;21,"C86.0 ")
  1. ;;249
  1. ;;21,"C86.1 ")
  1. ;;250
  1. ;;21,"C86.2 ")
  1. ;;251
  1. ;;21,"C86.3 ")
  1. ;;252
  1. ;;21,"C86.4 ")
  1. ;;253
  1. ;;21,"C86.5 ")
  1. ;;254
  1. ;;21,"C86.6 ")
  1. ;;255
  1. ;;21,"E41. ")
  1. ;;256
  1. ;;21,"E43. ")
  1. ;;257
  1. ;;21,"G02. ")
  1. ;;258
  1. ;;21,"G93.40 ")
  1. ;;259
  1. ;;21,"G93.41 ")
  1. ;;260
  1. ;;21,"G93.49 ")
  1. ;;261
  1. ;;21,"H30.141 ")
  1. ;;262
  1. ;;21,"H30.142 ")
  1. ;;263
  1. ;;21,"H30.143 ")
  1. ;;264
  1. ;;21,"H30.149 ")
  1. ;;265
  1. ;;21,"H30.891 ")
  1. ;;266
  1. ;;21,"H30.892 ")
  1. ;;267
  1. ;;21,"H30.893 ")
  1. ;;268
  1. ;;21,"H30.899 ")
  1. ;;269
  1. ;;21,"H30.90 ")
  1. ;;270
  1. ;;21,"H30.91 ")
  1. ;;271
  1. ;;21,"H30.92 ")
  1. ;;272
  1. ;;21,"H30.93 ")
  1. ;;273
  1. ;;21,"H32. ")
  1. ;;274
  1. ;;21,"I32. ")
  1. ;;275
  1. ;;21,"I39. ")
  1. ;;276
  1. ;;21,"I67.3 ")
  1. ;;277
  1. ;;21,"I67.83 ")
  1. ;;278
  1. ;;21,"J10.00 ")
  1. ;;279
  1. ;;21,"J10.08 ")
  1. ;;280
  1. ;;21,"J11.00 ")
  1. ;;281
  1. ;;21,"J11.08 ")
  1. ;;282
  1. ;;21,"J12.0 ")
  1. ;;283
  1. ;;21,"J12.1 ")
  1. ;;284
  1. ;;21,"J12.2 ")
  1. ;;285
  1. ;;21,"J12.3 ")
  1. ;;286
  1. ;;21,"J12.81 ")
  1. ;;287
  1. ;;21,"J12.89 ")
  1. ;;288
  1. ;;21,"J12.9 ")
  1. ;;289
  1. ;;21,"J15.8 ")
  1. ;;290
  1. ;;21,"J16.8 ")
  1. ;;291
  1. ;;21,"J17. ")
  1. ;;292
  1. ;;21,"J18.8 ")
  1. ;;293
  1. ;;21,"J18.9 ")
  1. ;;294
  1. ;;21,"R64. ")
  1. ;;295
  1. ;;9002226,464,.01)
  1. ;;BKM STATE REPORTABLE DXS
  1. ;;9002226,464,.02)
  1. ;;STATE REPORTABLE DXS
  1. ;;9002226,464,.04)
  1. ;;@
  1. ;;9002226,464,.06)
  1. ;;@
  1. ;;9002226,464,.08)
  1. ;;0
  1. ;;9002226,464,.09)
  1. ;;3131112
  1. ;;9002226,464,.11)
  1. ;;@
  1. ;;9002226,464,.12)
  1. ;;31
  1. ;;9002226,464,.13)
  1. ;;0
  1. ;;9002226,464,.14)
  1. ;;@
  1. ;;9002226,464,.15)
  1. ;;80
  1. ;;9002226,464,.16)
  1. ;;@
  1. ;;9002226,464,.17)
  1. ;;@
  1. ;;9002226,464,3101)
  1. ;;@
  1. ;;9002226.02101,"464,003.1 ",.01)
  1. ;;003.1
  1. ;;9002226.02101,"464,003.1 ",.02)
  1. ;;003.1
  1. ;;9002226.02101,"464,003.1 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,007.2 ",.01)
  1. ;;007.2
  1. ;;9002226.02101,"464,007.2 ",.02)
  1. ;;007.2
  1. ;;9002226.02101,"464,007.2 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,007.4 ",.01)
  1. ;;007.4
  1. ;;9002226.02101,"464,007.4 ",.02)
  1. ;;007.4
  1. ;;9002226.02101,"464,007.4 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,011.00 ",.01)
  1. ;;011.00
  1. ;;9002226.02101,"464,011.00 ",.02)
  1. ;;011.96
  1. ;;9002226.02101,"464,011.00 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,031.2 ",.01)
  1. ;;031.2
  1. ;;9002226.02101,"464,031.2 ",.02)
  1. ;;031.2
  1. ;;9002226.02101,"464,031.2 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,031.9 ",.01)
  1. ;;031.9
  1. ;;9002226.02101,"464,031.9 ",.02)
  1. ;;031.9
  1. ;;9002226.02101,"464,031.9 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,042. ",.01)
  1. ;;042.
  1. ;;9002226.02101,"464,042. ",.02)
  1. ;;042.
  1. ;;9002226.02101,"464,042. ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,046.3 ",.01)
  1. ;;046.3
  1. ;;9002226.02101,"464,046.3 ",.02)
  1. ;;046.3
  1. ;;9002226.02101,"464,046.3 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,054.0 ",.01)
  1. ;;054.0
  1. ;;9002226.02101,"464,054.0 ",.02)
  1. ;;054.9
  1. ;;9002226.02101,"464,054.0 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,078.5 ",.01)
  1. ;;078.5
  1. ;;9002226.02101,"464,078.5 ",.02)
  1. ;;078.5
  1. ;;9002226.02101,"464,078.5 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,112.4 ",.01)
  1. ;;112.4
  1. ;;9002226.02101,"464,112.4 ",.02)
  1. ;;112.4
  1. ;;9002226.02101,"464,112.4 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,112.84 ",.01)
  1. ;;112.84
  1. ;;9002226.02101,"464,112.84 ",.02)
  1. ;;112.84
  1. ;;9002226.02101,"464,112.84 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,112.89 ",.01)
  1. ;;112.89
  1. ;;9002226.02101,"464,112.89 ",.02)
  1. ;;112.89
  1. ;;9002226.02101,"464,112.89 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,112.9 ",.01)
  1. ;;112.9
  1. ;;9002226.02101,"464,112.9 ",.02)
  1. ;;112.9
  1. ;;9002226.02101,"464,112.9 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,114.1 ",.01)
  1. ;;114.1
  1. ;;9002226.02101,"464,114.1 ",.02)
  1. ;;114.1
  1. ;;9002226.02101,"464,114.1 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,114.2 ",.01)
  1. ;;114.2
  1. ;;9002226.02101,"464,114.2 ",.02)
  1. ;;114.2
  1. ;;9002226.02101,"464,114.2 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,114.3 ",.01)
  1. ;;114.3
  1. ;;9002226.02101,"464,114.3 ",.02)
  1. ;;114.3
  1. ;;9002226.02101,"464,114.3 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,115.00 ",.01)
  1. ;;115.00
  1. ;;9002226.02101,"464,115.00 ",.02)
  1. ;;115.99
  1. ;;9002226.02101,"464,115.00 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,117.5 ",.01)
  1. ;;117.5
  1. ;;9002226.02101,"464,117.5 ",.02)
  1. ;;117.5
  1. ;;9002226.02101,"464,117.5 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,130.0 ",.01)
  1. ;;130.0
  1. ;;9002226.02101,"464,130.0 ",.02)
  1. ;;130.9
  1. ;;9002226.02101,"464,130.0 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,136.3 ",.01)
  1. ;;136.3
  1. ;;9002226.02101,"464,136.3 ",.02)
  1. ;;136.3
  1. ;;9002226.02101,"464,136.3 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,176.0 ",.01)
  1. ;;176.0
  1. ;;9002226.02101,"464,176.0 ",.02)
  1. ;;176.9
  1. ;;9002226.02101,"464,176.0 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,180.0 ",.01)
  1. ;;180.0
  1. ;;9002226.02101,"464,180.0 ",.02)
  1. ;;180.9
  1. ;;9002226.02101,"464,180.0 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,200.20 ",.01)
  1. ;;200.20
  1. ;;9002226.02101,"464,200.20 ",.02)
  1. ;;200.28
  1. ;;9002226.02101,"464,200.20 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,200.80 ",.01)
  1. ;;200.80
  1. ;;9002226.02101,"464,200.80 ",.02)
  1. ;;200.88
  1. ;;9002226.02101,"464,200.80 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,202.80 ",.01)
  1. ;;202.80
  1. ;;9002226.02101,"464,202.80 ",.02)
  1. ;;202.88
  1. ;;9002226.02101,"464,202.80 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,261. ",.01)
  1. ;;261.
  1. ;;9002226.02101,"464,261. ",.02)
  1. ;;261.
  1. ;;9002226.02101,"464,261. ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,348.3 ",.01)
  1. ;;348.3
  1. ;;9002226.02101,"464,348.3 ",.02)
  1. ;;348.39
  1. ;;9002226.02101,"464,348.3 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,363.15 ",.01)
  1. ;;363.15
  1. ;;9002226.02101,"464,363.15 ",.02)
  1. ;;363.15
  1. ;;9002226.02101,"464,363.15 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,363.20 ",.01)
  1. ;;363.20
  1. ;;9002226.02101,"464,363.20 ",.02)
  1. ;;363.20
  1. ;;9002226.02101,"464,363.20 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,480.0 ",.01)
  1. ;;480.0
  1. ;;9002226.02101,"464,480.0 ",.02)
  1. ;;480.9
  1. ;;9002226.02101,"464,480.0 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,482.89 ",.01)
  1. ;;482.89
  1. ;;9002226.02101,"464,482.89 ",.02)
  1. ;;482.89
  1. ;;9002226.02101,"464,482.89 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,483.8 ",.01)
  1. ;;483.8
  1. ;;9002226.02101,"464,483.8 ",.02)
  1. ;;483.8
  1. ;;9002226.02101,"464,483.8 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,486. ",.01)
  1. ;;486.
  1. ;;9002226.02101,"464,486. ",.02)
  1. ;;486.
  1. ;;9002226.02101,"464,486. ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,487.0 ",.01)
  1. ;;487.0
  1. ;;9002226.02101,"464,487.0 ",.02)
  1. ;;487.0
  1. ;;9002226.02101,"464,487.0 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,799.4 ",.01)
  1. ;;799.4
  1. ;;9002226.02101,"464,799.4 ",.02)
  1. ;;799.4
  1. ;;9002226.02101,"464,799.4 ",.03)
  1. ;;1
  1. ;;9002226.02101,"464,A02.1 ",.01)
  1. ;;A02.1
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^ATXD6S2
  1. D ^ATXD6S3
  1. D ^ATXD6S4
  1. Q