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

ATXFAA.m

Go to the documentation of this file.
  1. ATXFAA ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 01, 2017;
  1. ;;5.1;TAXONOMY;**24**;FEB 04, 1997;Build 40
  1. ;;BQI CANCER REPORTABLE DXS
  1. ;
  1. ; This routine loads Taxonomy BQI CANCER 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,"140.0 ")
  1. ;;1
  1. ;;21,"141.0 ")
  1. ;;2
  1. ;;21,"142.0 ")
  1. ;;3
  1. ;;21,"143.0 ")
  1. ;;4
  1. ;;21,"144.0 ")
  1. ;;5
  1. ;;21,"145.0 ")
  1. ;;6
  1. ;;21,"146.0 ")
  1. ;;7
  1. ;;21,"147.0 ")
  1. ;;8
  1. ;;21,"148.0 ")
  1. ;;9
  1. ;;21,"149.0 ")
  1. ;;10
  1. ;;21,"150.0 ")
  1. ;;11
  1. ;;21,"151.0 ")
  1. ;;12
  1. ;;21,"152.0 ")
  1. ;;13
  1. ;;21,"153.0 ")
  1. ;;14
  1. ;;21,"154.0 ")
  1. ;;15
  1. ;;21,"155.0 ")
  1. ;;16
  1. ;;21,"156.0 ")
  1. ;;17
  1. ;;21,"157.0 ")
  1. ;;18
  1. ;;21,"158.0 ")
  1. ;;19
  1. ;;21,"159.0 ")
  1. ;;20
  1. ;;21,"160.0 ")
  1. ;;21
  1. ;;21,"161.0 ")
  1. ;;22
  1. ;;21,"162.0 ")
  1. ;;23
  1. ;;21,"163.0 ")
  1. ;;24
  1. ;;21,"164.0 ")
  1. ;;25
  1. ;;21,"165.0 ")
  1. ;;26
  1. ;;21,"170.0 ")
  1. ;;27
  1. ;;21,"171.0 ")
  1. ;;28
  1. ;;21,"172.0 ")
  1. ;;29
  1. ;;21,"173.00 ")
  1. ;;30
  1. ;;21,"173.09 ")
  1. ;;31
  1. ;;21,"173.10 ")
  1. ;;32
  1. ;;21,"173.19 ")
  1. ;;33
  1. ;;21,"173.20 ")
  1. ;;34
  1. ;;21,"173.29 ")
  1. ;;35
  1. ;;21,"173.30 ")
  1. ;;36
  1. ;;21,"173.39 ")
  1. ;;37
  1. ;;21,"173.40 ")
  1. ;;38
  1. ;;21,"173.49 ")
  1. ;;39
  1. ;;21,"173.50 ")
  1. ;;40
  1. ;;21,"173.59 ")
  1. ;;41
  1. ;;21,"173.60 ")
  1. ;;42
  1. ;;21,"173.69 ")
  1. ;;43
  1. ;;21,"173.70 ")
  1. ;;44
  1. ;;21,"173.79 ")
  1. ;;45
  1. ;;21,"173.80 ")
  1. ;;46
  1. ;;21,"173.89 ")
  1. ;;47
  1. ;;21,"173.90 ")
  1. ;;48
  1. ;;21,"173.99 ")
  1. ;;49
  1. ;;21,"174.0 ")
  1. ;;50
  1. ;;21,"175.0 ")
  1. ;;51
  1. ;;21,"176.0 ")
  1. ;;52
  1. ;;21,"180.0 ")
  1. ;;53
  1. ;;21,"182.0 ")
  1. ;;54
  1. ;;21,"183.0 ")
  1. ;;55
  1. ;;21,"184.0 ")
  1. ;;56
  1. ;;21,"186.0 ")
  1. ;;57
  1. ;;21,"187.1 ")
  1. ;;58
  1. ;;21,"188.0 ")
  1. ;;59
  1. ;;21,"189.0 ")
  1. ;;60
  1. ;;21,"190.0 ")
  1. ;;61
  1. ;;21,"191.0 ")
  1. ;;62
  1. ;;21,"192.0 ")
  1. ;;63
  1. ;;21,"194.0 ")
  1. ;;64
  1. ;;21,"195.0 ")
  1. ;;65
  1. ;;21,"196.0 ")
  1. ;;66
  1. ;;21,"197.0 ")
  1. ;;67
  1. ;;21,"198.0 ")
  1. ;;68
  1. ;;21,"198.81 ")
  1. ;;69
  1. ;;21,"199.0 ")
  1. ;;70
  1. ;;21,"200.0 ")
  1. ;;71
  1. ;;21,"201.0 ")
  1. ;;72
  1. ;;21,"202.0 ")
  1. ;;73
  1. ;;21,"203.00 ")
  1. ;;74
  1. ;;21,"203.10 ")
  1. ;;75
  1. ;;21,"203.80 ")
  1. ;;76
  1. ;;21,"204.00 ")
  1. ;;77
  1. ;;21,"204.10 ")
  1. ;;78
  1. ;;21,"204.20 ")
  1. ;;79
  1. ;;21,"204.80 ")
  1. ;;80
  1. ;;21,"204.90 ")
  1. ;;81
  1. ;;21,"205.00 ")
  1. ;;82
  1. ;;21,"205.10 ")
  1. ;;83
  1. ;;21,"205.20 ")
  1. ;;84
  1. ;;21,"205.30 ")
  1. ;;85
  1. ;;21,"205.80 ")
  1. ;;86
  1. ;;21,"205.90 ")
  1. ;;87
  1. ;;21,"206.00 ")
  1. ;;88
  1. ;;21,"206.10 ")
  1. ;;89
  1. ;;21,"206.20 ")
  1. ;;90
  1. ;;21,"206.80 ")
  1. ;;91
  1. ;;21,"206.90 ")
  1. ;;92
  1. ;;21,"207.00 ")
  1. ;;93
  1. ;;21,"207.10 ")
  1. ;;94
  1. ;;21,"207.20 ")
  1. ;;95
  1. ;;21,"207.90 ")
  1. ;;96
  1. ;;21,"208.00 ")
  1. ;;97
  1. ;;21,"208.10 ")
  1. ;;98
  1. ;;21,"208.20 ")
  1. ;;99
  1. ;;21,"208.80 ")
  1. ;;100
  1. ;;21,"208.90 ")
  1. ;;101
  1. ;;21,"209.00 ")
  1. ;;102
  1. ;;21,"209.10 ")
  1. ;;103
  1. ;;21,"209.20 ")
  1. ;;104
  1. ;;21,"209.30 ")
  1. ;;105
  1. ;;21,"209.70 ")
  1. ;;106
  1. ;;21,"225.0 ")
  1. ;;107
  1. ;;21,"227.3 ")
  1. ;;108
  1. ;;21,"228.02 ")
  1. ;;109
  1. ;;21,"228.1 ")
  1. ;;110
  1. ;;21,"230.0 ")
  1. ;;111
  1. ;;21,"231.0 ")
  1. ;;112
  1. ;;21,"232.0 ")
  1. ;;113
  1. ;;21,"233.0 ")
  1. ;;114
  1. ;;21,"234.0 ")
  1. ;;115
  1. ;;21,"237.0 ")
  1. ;;116
  1. ;;21,"237.5 ")
  1. ;;117
  1. ;;21,"237.9 ")
  1. ;;118
  1. ;;21,"238.4 ")
  1. ;;119
  1. ;;21,"238.71 ")
  1. ;;120
  1. ;;21,"239.6 ")
  1. ;;121
  1. ;;21,"239.7 ")
  1. ;;122
  1. ;;21,"273.3 ")
  1. ;;123
  1. ;;21,"277.89 ")
  1. ;;124
  1. ;;21,"C00.0 ")
  1. ;;125
  1. ;;21,"C01. ")
  1. ;;126
  1. ;;21,"C02.0 ")
  1. ;;127
  1. ;;21,"C03.0 ")
  1. ;;128
  1. ;;21,"C04.0 ")
  1. ;;129
  1. ;;21,"C05.0 ")
  1. ;;130
  1. ;;21,"C06.0 ")
  1. ;;131
  1. ;;21,"C07. ")
  1. ;;132
  1. ;;21,"C08.0 ")
  1. ;;133
  1. ;;21,"C09.0 ")
  1. ;;134
  1. ;;21,"C10.0 ")
  1. ;;135
  1. ;;21,"C11.0 ")
  1. ;;136
  1. ;;21,"C12. ")
  1. ;;137
  1. ;;21,"C13.0 ")
  1. ;;138
  1. ;;21,"C14.0 ")
  1. ;;139
  1. ;;21,"C15.3 ")
  1. ;;140
  1. ;;21,"C16.0 ")
  1. ;;141
  1. ;;21,"C17.0 ")
  1. ;;142
  1. ;;21,"C18.0 ")
  1. ;;143
  1. ;;21,"C19. ")
  1. ;;144
  1. ;;21,"C20. ")
  1. ;;145
  1. ;;21,"C21.0 ")
  1. ;;146
  1. ;;21,"C22.0 ")
  1. ;;147
  1. ;;21,"C23. ")
  1. ;;148
  1. ;;21,"C24.0 ")
  1. ;;149
  1. ;;21,"C25.0 ")
  1. ;;150
  1. ;;21,"C26.0 ")
  1. ;;151
  1. ;;21,"C30.0 ")
  1. ;;152
  1. ;;21,"C31.0 ")
  1. ;;153
  1. ;;21,"C32.0 ")
  1. ;;154
  1. ;;21,"C33. ")
  1. ;;155
  1. ;;21,"C34.00 ")
  1. ;;156
  1. ;;21,"C34.10 ")
  1. ;;157
  1. ;;21,"C34.30 ")
  1. ;;158
  1. ;;21,"C34.80 ")
  1. ;;159
  1. ;;21,"C34.90 ")
  1. ;;160
  1. ;;21,"C37. ")
  1. ;;161
  1. ;;21,"C38.0 ")
  1. ;;162
  1. ;;21,"C39.0 ")
  1. ;;163
  1. ;;21,"C40.00 ")
  1. ;;164
  1. ;;21,"C40.10 ")
  1. ;;165
  1. ;;21,"C40.20 ")
  1. ;;166
  1. ;;21,"C40.30 ")
  1. ;;167
  1. ;;21,"C40.80 ")
  1. ;;168
  1. ;;21,"C40.90 ")
  1. ;;169
  1. ;;21,"C41.0 ")
  1. ;;170
  1. ;;21,"C43.0 ")
  1. ;;171
  1. ;;21,"C43.10 ")
  1. ;;172
  1. ;;21,"C43.20 ")
  1. ;;173
  1. ;;21,"C43.30 ")
  1. ;;174
  1. ;;21,"C43.51 ")
  1. ;;175
  1. ;;21,"C43.60 ")
  1. ;;176
  1. ;;21,"C43.70 ")
  1. ;;177
  1. ;;21,"C44.00 ")
  1. ;;178
  1. ;;21,"C44.09 ")
  1. ;;179
  1. ;;21,"C44.101 ")
  1. ;;180
  1. ;;21,"C44.109 ")
  1. ;;181
  1. ;;21,"C44.191 ")
  1. ;;182
  1. ;;21,"C44.199 ")
  1. ;;183
  1. ;;21,"C44.201 ")
  1. ;;184
  1. ;;21,"C44.209 ")
  1. ;;185
  1. ;;21,"C44.291 ")
  1. ;;186
  1. ;;21,"C44.300 ")
  1. ;;187
  1. ;;21,"C44.390 ")
  1. ;;188
  1. ;;21,"C44.40 ")
  1. ;;189
  1. ;;21,"C44.49 ")
  1. ;;190
  1. ;;21,"C44.500 ")
  1. ;;191
  1. ;;21,"C44.590 ")
  1. ;;192
  1. ;;21,"C44.601 ")
  1. ;;193
  1. ;;21,"C44.691 ")
  1. ;;194
  1. ;;21,"C44.701 ")
  1. ;;195
  1. ;;21,"C44.791 ")
  1. ;;196
  1. ;;21,"C44.80 ")
  1. ;;197
  1. ;;21,"C44.89 ")
  1. ;;198
  1. ;;21,"C44.90 ")
  1. ;;199
  1. ;;21,"C44.99 ")
  1. ;;200
  1. ;;21,"C45.0 ")
  1. ;;201
  1. ;;21,"C46.0 ")
  1. ;;202
  1. ;;21,"C46.50 ")
  1. ;;203
  1. ;;21,"C46.7 ")
  1. ;;204
  1. ;;21,"C46.9 ")
  1. ;;205
  1. ;;21,"C47.0 ")
  1. ;;206
  1. ;;21,"C47.10 ")
  1. ;;207
  1. ;;21,"C47.20 ")
  1. ;;208
  1. ;;21,"C48.0 ")
  1. ;;209
  1. ;;21,"C49.0 ")
  1. ;;210
  1. ;;21,"C49.10 ")
  1. ;;211
  1. ;;21,"C49.20 ")
  1. ;;212
  1. ;;21,"C4A.0 ")
  1. ;;213
  1. ;;21,"C4A.10 ")
  1. ;;214
  1. ;;21,"C4A.20 ")
  1. ;;215
  1. ;;21,"C4A.30 ")
  1. ;;216
  1. ;;21,"C4A.51 ")
  1. ;;217
  1. ;;21,"C4A.60 ")
  1. ;;218
  1. ;;21,"C4A.70 ")
  1. ;;219
  1. ;;21,"C50.011 ")
  1. ;;220
  1. ;;21,"C50.021 ")
  1. ;;221
  1. ;;21,"C50.111 ")
  1. ;;222
  1. ;;21,"C50.121 ")
  1. ;;223
  1. ;;21,"C50.211 ")
  1. ;;224
  1. ;;21,"C50.221 ")
  1. ;;225
  1. ;;21,"C50.311 ")
  1. ;;226
  1. ;;21,"C50.321 ")
  1. ;;227
  1. ;;21,"C50.411 ")
  1. ;;228
  1. ;;21,"C50.421 ")
  1. ;;229
  1. ;;21,"C50.511 ")
  1. ;;230
  1. ;;21,"C50.521 ")
  1. ;;231
  1. ;;21,"C50.611 ")
  1. ;;232
  1. ;;21,"C50.621 ")
  1. ;;233
  1. ;;21,"C50.811 ")
  1. ;;234
  1. ;;21,"C50.821 ")
  1. ;;235
  1. ;;21,"C50.911 ")
  1. ;;236
  1. ;;21,"C50.921 ")
  1. ;;237
  1. ;;21,"C51.0 ")
  1. ;;238
  1. ;;21,"C52. ")
  1. ;;239
  1. ;;21,"C53.0 ")
  1. ;;240
  1. ;;21,"C54.0 ")
  1. ;;241
  1. ;;21,"C55. ")
  1. ;;242
  1. ;;21,"C56.1 ")
  1. ;;243
  1. ;;21,"C57.00 ")
  1. ;;244
  1. ;;21,"C57.10 ")
  1. ;;245
  1. ;;21,"C57.20 ")
  1. ;;246
  1. ;;21,"C58. ")
  1. ;;247
  1. ;;21,"C60.0 ")
  1. ;;248
  1. ;;21,"C62. ")
  1. ;;249
  1. ;;21,"C62.00 ")
  1. ;;250
  1. ;;21,"C62.10 ")
  1. ;;251
  1. ;;21,"C62.90 ")
  1. ;;252
  1. ;;21,"C63.00 ")
  1. ;;253
  1. ;;21,"C63.10 ")
  1. ;;254
  1. ;;21,"C63.7 ")
  1. ;;255
  1. ;;21,"C64.1 ")
  1. ;;256
  1. ;;21,"C65.1 ")
  1. ;;257
  1. ;;21,"C66.1 ")
  1. ;;258
  1. ;;21,"C67.0 ")
  1. ;;259
  1. ;;21,"C68.0 ")
  1. ;;260
  1. ;;21,"C69.00 ")
  1. ;;261
  1. ;;21,"C69.10 ")
  1. ;;262
  1. ;;21,"C69.20 ")
  1. ;;263
  1. ;;21,"C69.30 ")
  1. ;;264
  1. ;;21,"C69.40 ")
  1. ;;265
  1. ;;21,"C69.50 ")
  1. ;;266
  1. ;;21,"C69.60 ")
  1. ;;267
  1. ;;21,"C69.80 ")
  1. ;;268
  1. ;;21,"C69.90 ")
  1. ;;269
  1. ;;21,"C70.0 ")
  1. ;;270
  1. ;;21,"C71.0 ")
  1. ;;271
  1. ;;21,"C72.0 ")
  1. ;;272
  1. ;;21,"C72.20 ")
  1. ;;273
  1. ;;21,"C72.30 ")
  1. ;;274
  1. ;;21,"C72.40 ")
  1. ;;275
  1. ;;21,"C72.50 ")
  1. ;;276
  1. ;;21,"C72.9 ")
  1. ;;277
  1. ;;21,"C73. ")
  1. ;;278
  1. ;;21,"C74.0 ")
  1. ;;279
  1. ;;21,"C74.10 ")
  1. ;;280
  1. ;;21,"C74.90 ")
  1. ;;281
  1. ;;21,"C75.0 ")
  1. ;;282
  1. ;;21,"C76.0 ")
  1. ;;283
  1. ;;21,"C76.40 ")
  1. ;;284
  1. ;;21,"C76.50 ")
  1. ;;285
  1. ;;21,"C77.0 ")
  1. ;;286
  1. ;;21,"C78.00 ")
  1. ;;287
  1. ;;21,"C79.00 ")
  1. ;;288
  1. ;;21,"C7A.00 ")
  1. ;;289
  1. ;;21,"C7A.010 ")
  1. ;;290
  1. ;;21,"C7A.020 ")
  1. ;;291
  1. ;;21,"C7A.090 ")
  1. ;;292
  1. ;;21,"C7A.1 ")
  1. ;;293
  1. ;;21,"C7B.00 ")
  1. ;;294
  1. ;;21,"C80.0 ")
  1. ;;295
  1. ;;21,"C81.0 ")
  1. ;;296
  1. ;;21,"C82.0 ")
  1. ;;297
  1. ;;21,"C83.0 ")
  1. ;;298
  1. ;;21,"C84.0 ")
  1. ;;299
  1. ;;21,"C85.10 ")
  1. ;;300
  1. ;;21,"C86.0 ")
  1. ;;301
  1. ;;21,"C88.0 ")
  1. ;;302
  1. ;;21,"C90.00 ")
  1. ;;303
  1. ;;21,"C90.10 ")
  1. ;;304
  1. ;;21,"C90.20 ")
  1. ;;305
  1. ;;21,"C90.30 ")
  1. ;;306
  1. ;;21,"C91.00 ")
  1. ;;307
  1. ;;21,"C91.10 ")
  1. ;;308
  1. ;;21,"C91.30 ")
  1. ;;309
  1. ;;21,"C91.40 ")
  1. ;;310
  1. ;;21,"C91.50 ")
  1. ;;311
  1. ;;21,"C91.60 ")
  1. ;;312
  1. ;;21,"C91.90 ")
  1. ;;313
  1. ;;21,"C91.A0 ")
  1. ;;314
  1. ;;21,"C91.Z0 ")
  1. ;;315
  1. ;;21,"C92.00 ")
  1. ;;316
  1. ;;21,"C92.10 ")
  1. ;;317
  1. ;;21,"C92.20 ")
  1. ;;318
  1. ;;21,"C92.30 ")
  1. ;;319
  1. ;;21,"C92.40 ")
  1. ;;320
  1. ;;21,"C92.50 ")
  1. ;;321
  1. ;;21,"C92.60 ")
  1. ;;322
  1. ;;21,"C92.90 ")
  1. ;;323
  1. ;;21,"C92.A0 ")
  1. ;;324
  1. ;;21,"C92.Z0 ")
  1. ;;325
  1. ;;21,"C93.00 ")
  1. ;;326
  1. ;;21,"C93.10 ")
  1. ;;327
  1. ;;21,"C93.30 ")
  1. ;;328
  1. ;;21,"C93.90 ")
  1. ;;329
  1. ;;21,"C93.Z0 ")
  1. ;;330
  1. ;;21,"C94.00 ")
  1. ;;331
  1. ;;21,"C94.20 ")
  1. ;;332
  1. ;;21,"C94.30 ")
  1. ;;333
  1. ;;21,"C94.40 ")
  1. ;;334
  1. ;;21,"C94.80 ")
  1. ;;335
  1. ;;21,"C95.00 ")
  1. ;;336
  1. ;;21,"C95.10 ")
  1. ;;337
  1. ;;21,"C95.90 ")
  1. ;;338
  1. ;;21,"C96.0 ")
  1. ;;339
  1. ;;21,"C96.20 ")
  1. ;;340
  1. ;;21,"D00.00 ")
  1. ;;341
  1. ;;21,"D01.0 ")
  1. ;;342
  1. ;;21,"D01.40 ")
  1. ;;343
  1. ;;21,"D02.0 ")
  1. ;;344
  1. ;;21,"D02.20 ")
  1. ;;345
  1. ;;21,"D03.0 ")
  1. ;;346
  1. ;;21,"D03.10 ")
  1. ;;347
  1. ;;21,"D03.20 ")
  1. ;;348
  1. ;;21,"D03.30 ")
  1. ;;349
  1. ;;21,"D03.51 ")
  1. ;;350
  1. ;;21,"D03.60 ")
  1. ;;351
  1. ;;21,"D03.70 ")
  1. ;;352
  1. ;;21,"D04.0 ")
  1. ;;353
  1. ;;21,"D04.10 ")
  1. ;;354
  1. ;;21,"D04.20 ")
  1. ;;355
  1. ;;21,"D04.30 ")
  1. ;;356
  1. ;;21,"D04.60 ")
  1. ;;357
  1. ;;21,"D04.70 ")
  1. ;;358
  1. ;;21,"D05.00 ")
  1. ;;359
  1. ;;21,"D05.10 ")
  1. ;;360
  1. ;;21,"D05.80 ")
  1. ;;361
  1. ;;21,"D05.90 ")
  1. ;;362
  1. ;;21,"D06.0 ")
  1. ;;363
  1. ;;21,"D07.0 ")
  1. ;;364
  1. ;;21,"D07.30 ")
  1. ;;365
  1. ;;21,"D07.60 ")
  1. ;;366
  1. ;;21,"D09.0 ")
  1. ;;367
  1. ;;21,"D09.10 ")
  1. ;;368
  1. ;;21,"D09.20 ")
  1. ;;369
  1. ;;21,"D18.02 ")
  1. ;;370
  1. ;;21,"D18.1 ")
  1. ;;371
  1. ;;21,"D32.0 ")
  1. ;;372
  1. ;;21,"D33.0 ")
  1. ;;373
  1. ;;21,"D35.2 ")
  1. ;;374
  1. ;;21,"D42.0 ")
  1. ;;375
  1. ;;21,"D43.0 ")
  1. ;;376
  1. ;;21,"D44.3 ")
  1. ;;377
  1. ;;21,"D46.0 ")
  1. ;;378
  1. ;;21,"D46.20 ")
  1. ;;379
  1. ;;21,"D47.1 ")
  1. ;;380
  1. ;;21,"D47.3 ")
  1. ;;381
  1. ;;21,"D47.Z1 ")
  1. ;;382
  1. ;;21,"D49.6 ")
  1. ;;383
  1. ;;9002226,1785,.01)
  1. ;;BQI CANCER REPORTABLE DXS
  1. ;;9002226,1785,.02)
  1. ;;@
  1. ;;9002226,1785,.04)
  1. ;;n
  1. ;;9002226,1785,.06)
  1. ;;@
  1. ;;9002226,1785,.08)
  1. ;;0
  1. ;;9002226,1785,.09)
  1. ;;3171101
  1. ;;9002226,1785,.11)
  1. ;;@
  1. ;;9002226,1785,.12)
  1. ;;31
  1. ;;9002226,1785,.13)
  1. ;;1
  1. ;;9002226,1785,.14)
  1. ;;@
  1. ;;9002226,1785,.15)
  1. ;;80
  1. ;;9002226,1785,.16)
  1. ;;@
  1. ;;9002226,1785,.17)
  1. ;;@
  1. ;;9002226,1785,.22)
  1. ;;1
  1. ;;9002226,1785,3101)
  1. ;;@
  1. ;;9002226.02101,"1785,140.0 ",.01)
  1. ;;140.0
  1. ;;9002226.02101,"1785,140.0 ",.02)
  1. ;;140.9
  1. ;;9002226.02101,"1785,140.0 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1785,141.0 ",.01)
  1. ;;141.0
  1. ;;9002226.02101,"1785,141.0 ",.02)
  1. ;;141.9
  1. ;;9002226.02101,"1785,141.0 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1785,142.0 ",.01)
  1. ;;142.0
  1. ;;9002226.02101,"1785,142.0 ",.02)
  1. ;;142.9
  1. ;;9002226.02101,"1785,142.0 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1785,143.0 ",.01)
  1. ;;143.0
  1. ;;9002226.02101,"1785,143.0 ",.02)
  1. ;;143.9
  1. ;;9002226.02101,"1785,143.0 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1785,144.0 ",.01)
  1. ;;144.0
  1. ;;9002226.02101,"1785,144.0 ",.02)
  1. ;;144.9
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^ATXFAA2
  1. D ^ATXFAA3
  1. D ^ATXFAA4
  1. D ^ATXFAA5
  1. D ^ATXFAA6
  1. Q