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

ATXF1E.m

Go to the documentation of this file.
  1. ATXF1E ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JUL 09, 2015;
  1. ;;5.1;TAXONOMY;**12**;FEB 04, 1997;Build 5
  1. ;;BGP PREGNANCY TRI 1 DXS
  1. ;
  1. ; This routine loads Taxonomy BGP PREGNANCY TRI 1 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,"O09.01 ")
  1. ;;1
  1. ;;21,"O09.11 ")
  1. ;;2
  1. ;;21,"O09.211 ")
  1. ;;3
  1. ;;21,"O09.291 ")
  1. ;;4
  1. ;;21,"O09.31 ")
  1. ;;5
  1. ;;21,"O09.41 ")
  1. ;;6
  1. ;;21,"O09.511 ")
  1. ;;7
  1. ;;21,"O09.521 ")
  1. ;;8
  1. ;;21,"O09.611 ")
  1. ;;9
  1. ;;21,"O09.621 ")
  1. ;;10
  1. ;;21,"O09.71 ")
  1. ;;11
  1. ;;21,"O09.811 ")
  1. ;;12
  1. ;;21,"O09.821 ")
  1. ;;13
  1. ;;21,"O09.891 ")
  1. ;;14
  1. ;;21,"O09.91 ")
  1. ;;15
  1. ;;21,"O10.011 ")
  1. ;;16
  1. ;;21,"O10.111 ")
  1. ;;17
  1. ;;21,"O10.211 ")
  1. ;;18
  1. ;;21,"O10.311 ")
  1. ;;19
  1. ;;21,"O10.411 ")
  1. ;;20
  1. ;;21,"O10.911 ")
  1. ;;21
  1. ;;21,"O11.1 ")
  1. ;;22
  1. ;;21,"O12.01 ")
  1. ;;23
  1. ;;21,"O12.11 ")
  1. ;;24
  1. ;;21,"O12.21 ")
  1. ;;25
  1. ;;21,"O13.1 ")
  1. ;;26
  1. ;;21,"O16.1 ")
  1. ;;27
  1. ;;21,"O22.01 ")
  1. ;;28
  1. ;;21,"O22.11 ")
  1. ;;29
  1. ;;21,"O22.21 ")
  1. ;;30
  1. ;;21,"O22.31 ")
  1. ;;31
  1. ;;21,"O22.41 ")
  1. ;;32
  1. ;;21,"O22.51 ")
  1. ;;33
  1. ;;21,"O22.8X1 ")
  1. ;;34
  1. ;;21,"O22.91 ")
  1. ;;35
  1. ;;21,"O23.01 ")
  1. ;;36
  1. ;;21,"O23.11 ")
  1. ;;37
  1. ;;21,"O23.21 ")
  1. ;;38
  1. ;;21,"O23.31 ")
  1. ;;39
  1. ;;21,"O23.41 ")
  1. ;;40
  1. ;;21,"O23.511 ")
  1. ;;41
  1. ;;21,"O23.521 ")
  1. ;;42
  1. ;;21,"O23.591 ")
  1. ;;43
  1. ;;21,"O23.91 ")
  1. ;;44
  1. ;;21,"O24.011 ")
  1. ;;45
  1. ;;21,"O24.111 ")
  1. ;;46
  1. ;;21,"O24.311 ")
  1. ;;47
  1. ;;21,"O24.811 ")
  1. ;;48
  1. ;;21,"O24.911 ")
  1. ;;49
  1. ;;21,"O25.11 ")
  1. ;;50
  1. ;;21,"O26.01 ")
  1. ;;51
  1. ;;21,"O26.11 ")
  1. ;;52
  1. ;;21,"O26.21 ")
  1. ;;53
  1. ;;21,"O26.31 ")
  1. ;;54
  1. ;;21,"O26.41 ")
  1. ;;55
  1. ;;21,"O26.51 ")
  1. ;;56
  1. ;;21,"O26.611 ")
  1. ;;57
  1. ;;21,"O26.711 ")
  1. ;;58
  1. ;;21,"O26.811 ")
  1. ;;59
  1. ;;21,"O26.821 ")
  1. ;;60
  1. ;;21,"O26.831 ")
  1. ;;61
  1. ;;21,"O26.841 ")
  1. ;;62
  1. ;;21,"O26.851 ")
  1. ;;63
  1. ;;21,"O26.891 ")
  1. ;;64
  1. ;;21,"O26.91 ")
  1. ;;65
  1. ;;21,"O29.011 ")
  1. ;;66
  1. ;;21,"O29.021 ")
  1. ;;67
  1. ;;21,"O29.091 ")
  1. ;;68
  1. ;;21,"O29.111 ")
  1. ;;69
  1. ;;21,"O29.121 ")
  1. ;;70
  1. ;;21,"O29.191 ")
  1. ;;71
  1. ;;21,"O29.211 ")
  1. ;;72
  1. ;;21,"O29.291 ")
  1. ;;73
  1. ;;21,"O29.3X1 ")
  1. ;;74
  1. ;;21,"O29.41 ")
  1. ;;75
  1. ;;21,"O29.5X1 ")
  1. ;;76
  1. ;;21,"O29.61 ")
  1. ;;77
  1. ;;21,"O29.8X1 ")
  1. ;;78
  1. ;;21,"O29.91 ")
  1. ;;79
  1. ;;21,"O30.001 ")
  1. ;;80
  1. ;;21,"O30.011 ")
  1. ;;81
  1. ;;21,"O30.021 ")
  1. ;;82
  1. ;;21,"O30.031 ")
  1. ;;83
  1. ;;21,"O30.041 ")
  1. ;;84
  1. ;;21,"O30.091 ")
  1. ;;85
  1. ;;21,"O30.101 ")
  1. ;;86
  1. ;;21,"O30.111 ")
  1. ;;87
  1. ;;21,"O30.121 ")
  1. ;;88
  1. ;;21,"O30.191 ")
  1. ;;89
  1. ;;21,"O30.201 ")
  1. ;;90
  1. ;;21,"O30.211 ")
  1. ;;91
  1. ;;21,"O30.221 ")
  1. ;;92
  1. ;;21,"O30.291 ")
  1. ;;93
  1. ;;21,"O30.801 ")
  1. ;;94
  1. ;;21,"O30.811 ")
  1. ;;95
  1. ;;21,"O30.821 ")
  1. ;;96
  1. ;;21,"O30.891 ")
  1. ;;97
  1. ;;21,"O30.91 ")
  1. ;;98
  1. ;;21,"O31.01X0 ")
  1. ;;99
  1. ;;21,"O31.01X1 ")
  1. ;;100
  1. ;;21,"O31.01X2 ")
  1. ;;101
  1. ;;21,"O31.01X3 ")
  1. ;;102
  1. ;;21,"O31.01X4 ")
  1. ;;103
  1. ;;21,"O31.01X5 ")
  1. ;;104
  1. ;;21,"O31.01X9 ")
  1. ;;105
  1. ;;21,"O31.11X0 ")
  1. ;;106
  1. ;;21,"O31.11X1 ")
  1. ;;107
  1. ;;21,"O31.11X2 ")
  1. ;;108
  1. ;;21,"O31.11X3 ")
  1. ;;109
  1. ;;21,"O31.11X4 ")
  1. ;;110
  1. ;;21,"O31.11X5 ")
  1. ;;111
  1. ;;21,"O31.11X9 ")
  1. ;;112
  1. ;;21,"O31.21X0 ")
  1. ;;113
  1. ;;21,"O31.21X1 ")
  1. ;;114
  1. ;;21,"O31.21X2 ")
  1. ;;115
  1. ;;21,"O31.21X3 ")
  1. ;;116
  1. ;;21,"O31.21X4 ")
  1. ;;117
  1. ;;21,"O31.21X5 ")
  1. ;;118
  1. ;;21,"O31.21X9 ")
  1. ;;119
  1. ;;21,"O31.31X0 ")
  1. ;;120
  1. ;;21,"O31.31X1 ")
  1. ;;121
  1. ;;21,"O31.31X2 ")
  1. ;;122
  1. ;;21,"O31.31X3 ")
  1. ;;123
  1. ;;21,"O31.31X4 ")
  1. ;;124
  1. ;;21,"O31.31X5 ")
  1. ;;125
  1. ;;21,"O31.31X9 ")
  1. ;;126
  1. ;;21,"O31.8X10 ")
  1. ;;127
  1. ;;21,"O31.8X11 ")
  1. ;;128
  1. ;;21,"O31.8X12 ")
  1. ;;129
  1. ;;21,"O31.8X13 ")
  1. ;;130
  1. ;;21,"O31.8X14 ")
  1. ;;131
  1. ;;21,"O31.8X15 ")
  1. ;;132
  1. ;;21,"O31.8X19 ")
  1. ;;133
  1. ;;21,"O34.01 ")
  1. ;;134
  1. ;;21,"O34.11 ")
  1. ;;135
  1. ;;21,"O34.31 ")
  1. ;;136
  1. ;;21,"O34.41 ")
  1. ;;137
  1. ;;21,"O34.511 ")
  1. ;;138
  1. ;;21,"O34.521 ")
  1. ;;139
  1. ;;21,"O34.531 ")
  1. ;;140
  1. ;;21,"O34.591 ")
  1. ;;141
  1. ;;21,"O34.61 ")
  1. ;;142
  1. ;;21,"O34.71 ")
  1. ;;143
  1. ;;21,"O34.81 ")
  1. ;;144
  1. ;;21,"O34.91 ")
  1. ;;145
  1. ;;21,"O36.0110 ")
  1. ;;146
  1. ;;21,"O36.0111 ")
  1. ;;147
  1. ;;21,"O36.0112 ")
  1. ;;148
  1. ;;21,"O36.0113 ")
  1. ;;149
  1. ;;21,"O36.0114 ")
  1. ;;150
  1. ;;21,"O36.0115 ")
  1. ;;151
  1. ;;21,"O36.0119 ")
  1. ;;152
  1. ;;21,"O36.0910 ")
  1. ;;153
  1. ;;21,"O36.0911 ")
  1. ;;154
  1. ;;21,"O36.0912 ")
  1. ;;155
  1. ;;21,"O36.0913 ")
  1. ;;156
  1. ;;21,"O36.0914 ")
  1. ;;157
  1. ;;21,"O36.0915 ")
  1. ;;158
  1. ;;21,"O36.0919 ")
  1. ;;159
  1. ;;21,"O36.1110 ")
  1. ;;160
  1. ;;21,"O36.1111 ")
  1. ;;161
  1. ;;21,"O36.1112 ")
  1. ;;162
  1. ;;21,"O36.1113 ")
  1. ;;163
  1. ;;21,"O36.1114 ")
  1. ;;164
  1. ;;21,"O36.1115 ")
  1. ;;165
  1. ;;21,"O36.1119 ")
  1. ;;166
  1. ;;21,"O36.1910 ")
  1. ;;167
  1. ;;21,"O36.1911 ")
  1. ;;168
  1. ;;21,"O36.1912 ")
  1. ;;169
  1. ;;21,"O36.1913 ")
  1. ;;170
  1. ;;21,"O36.1914 ")
  1. ;;171
  1. ;;21,"O36.1915 ")
  1. ;;172
  1. ;;21,"O36.1919 ")
  1. ;;173
  1. ;;21,"O36.21X0 ")
  1. ;;174
  1. ;;21,"O36.21X1 ")
  1. ;;175
  1. ;;21,"O36.21X2 ")
  1. ;;176
  1. ;;21,"O36.21X3 ")
  1. ;;177
  1. ;;21,"O36.21X4 ")
  1. ;;178
  1. ;;21,"O36.21X5 ")
  1. ;;179
  1. ;;21,"O36.21X9 ")
  1. ;;180
  1. ;;21,"O36.5110 ")
  1. ;;181
  1. ;;21,"O36.5111 ")
  1. ;;182
  1. ;;21,"O36.5112 ")
  1. ;;183
  1. ;;21,"O36.5113 ")
  1. ;;184
  1. ;;21,"O36.5114 ")
  1. ;;185
  1. ;;21,"O36.5115 ")
  1. ;;186
  1. ;;21,"O36.5119 ")
  1. ;;187
  1. ;;21,"O36.5910 ")
  1. ;;188
  1. ;;21,"O36.5911 ")
  1. ;;189
  1. ;;21,"O36.5912 ")
  1. ;;190
  1. ;;21,"O36.5913 ")
  1. ;;191
  1. ;;21,"O36.5914 ")
  1. ;;192
  1. ;;21,"O36.5915 ")
  1. ;;193
  1. ;;21,"O36.5919 ")
  1. ;;194
  1. ;;21,"O36.61X0 ")
  1. ;;195
  1. ;;21,"O36.61X1 ")
  1. ;;196
  1. ;;21,"O36.61X2 ")
  1. ;;197
  1. ;;21,"O36.61X3 ")
  1. ;;198
  1. ;;21,"O36.61X4 ")
  1. ;;199
  1. ;;21,"O36.61X5 ")
  1. ;;200
  1. ;;21,"O36.61X9 ")
  1. ;;201
  1. ;;21,"O36.71X0 ")
  1. ;;202
  1. ;;21,"O36.71X1 ")
  1. ;;203
  1. ;;21,"O36.71X2 ")
  1. ;;204
  1. ;;21,"O36.71X3 ")
  1. ;;205
  1. ;;21,"O36.71X4 ")
  1. ;;206
  1. ;;21,"O36.71X5 ")
  1. ;;207
  1. ;;21,"O36.71X9 ")
  1. ;;208
  1. ;;21,"O36.8210 ")
  1. ;;209
  1. ;;21,"O36.8211 ")
  1. ;;210
  1. ;;21,"O36.8212 ")
  1. ;;211
  1. ;;21,"O36.8213 ")
  1. ;;212
  1. ;;21,"O36.8214 ")
  1. ;;213
  1. ;;21,"O36.8215 ")
  1. ;;214
  1. ;;21,"O36.8219 ")
  1. ;;215
  1. ;;21,"O36.8910 ")
  1. ;;216
  1. ;;21,"O36.8911 ")
  1. ;;217
  1. ;;21,"O36.8912 ")
  1. ;;218
  1. ;;21,"O36.8913 ")
  1. ;;219
  1. ;;21,"O36.8914 ")
  1. ;;220
  1. ;;21,"O36.8915 ")
  1. ;;221
  1. ;;21,"O36.8919 ")
  1. ;;222
  1. ;;21,"O36.91X0 ")
  1. ;;223
  1. ;;21,"O36.91X1 ")
  1. ;;224
  1. ;;21,"O36.91X2 ")
  1. ;;225
  1. ;;21,"O36.91X3 ")
  1. ;;226
  1. ;;21,"O36.91X4 ")
  1. ;;227
  1. ;;21,"O36.91X5 ")
  1. ;;228
  1. ;;21,"O36.91X9 ")
  1. ;;229
  1. ;;21,"O40.1XX0 ")
  1. ;;230
  1. ;;21,"O40.1XX1 ")
  1. ;;231
  1. ;;21,"O40.1XX2 ")
  1. ;;232
  1. ;;21,"O40.1XX3 ")
  1. ;;233
  1. ;;21,"O40.1XX4 ")
  1. ;;234
  1. ;;21,"O40.1XX5 ")
  1. ;;235
  1. ;;21,"O40.1XX9 ")
  1. ;;236
  1. ;;21,"O41.01X0 ")
  1. ;;237
  1. ;;21,"O41.01X1 ")
  1. ;;238
  1. ;;21,"O41.01X2 ")
  1. ;;239
  1. ;;21,"O41.01X3 ")
  1. ;;240
  1. ;;21,"O41.01X4 ")
  1. ;;241
  1. ;;21,"O41.01X5 ")
  1. ;;242
  1. ;;21,"O41.01X9 ")
  1. ;;243
  1. ;;21,"O41.1011 ")
  1. ;;244
  1. ;;21,"O41.1012 ")
  1. ;;245
  1. ;;21,"O41.1013 ")
  1. ;;246
  1. ;;21,"O41.1014 ")
  1. ;;247
  1. ;;21,"O41.1015 ")
  1. ;;248
  1. ;;21,"O41.1019 ")
  1. ;;249
  1. ;;21,"O41.1210 ")
  1. ;;250
  1. ;;21,"O41.1211 ")
  1. ;;251
  1. ;;21,"O41.1212 ")
  1. ;;252
  1. ;;21,"O41.1213 ")
  1. ;;253
  1. ;;21,"O41.1214 ")
  1. ;;254
  1. ;;21,"O41.1215 ")
  1. ;;255
  1. ;;21,"O41.1219 ")
  1. ;;256
  1. ;;21,"O41.1410 ")
  1. ;;257
  1. ;;21,"O41.1411 ")
  1. ;;258
  1. ;;21,"O41.1412 ")
  1. ;;259
  1. ;;21,"O41.1413 ")
  1. ;;260
  1. ;;21,"O41.1414 ")
  1. ;;261
  1. ;;21,"O41.1415 ")
  1. ;;262
  1. ;;21,"O41.1419 ")
  1. ;;263
  1. ;;21,"O41.8X10 ")
  1. ;;264
  1. ;;21,"O41.8X11 ")
  1. ;;265
  1. ;;21,"O41.8X12 ")
  1. ;;266
  1. ;;21,"O41.8X13 ")
  1. ;;267
  1. ;;21,"O41.8X14 ")
  1. ;;268
  1. ;;21,"O41.8X15 ")
  1. ;;269
  1. ;;21,"O41.8X19 ")
  1. ;;270
  1. ;;21,"O41.91X0 ")
  1. ;;271
  1. ;;21,"O41.91X1 ")
  1. ;;272
  1. ;;21,"O41.91X2 ")
  1. ;;273
  1. ;;21,"O41.91X3 ")
  1. ;;274
  1. ;;21,"O41.91X4 ")
  1. ;;275
  1. ;;21,"O41.91X5 ")
  1. ;;276
  1. ;;21,"O41.91X9 ")
  1. ;;277
  1. ;;21,"O42.011 ")
  1. ;;278
  1. ;;21,"O42.111 ")
  1. ;;279
  1. ;;21,"O42.911 ")
  1. ;;280
  1. ;;21,"O43.011 ")
  1. ;;281
  1. ;;21,"O43.021 ")
  1. ;;282
  1. ;;21,"O43.101 ")
  1. ;;283
  1. ;;21,"O43.111 ")
  1. ;;284
  1. ;;21,"O43.121 ")
  1. ;;285
  1. ;;21,"O43.191 ")
  1. ;;286
  1. ;;21,"O43.211 ")
  1. ;;287
  1. ;;21,"O43.221 ")
  1. ;;288
  1. ;;21,"O43.231 ")
  1. ;;289
  1. ;;21,"O43.811 ")
  1. ;;290
  1. ;;21,"O43.891 ")
  1. ;;291
  1. ;;21,"O43.91 ")
  1. ;;292
  1. ;;21,"O44.01 ")
  1. ;;293
  1. ;;21,"O44.11 ")
  1. ;;294
  1. ;;21,"O45.001 ")
  1. ;;295
  1. ;;21,"O45.011 ")
  1. ;;296
  1. ;;21,"O45.021 ")
  1. ;;297
  1. ;;21,"O45.091 ")
  1. ;;298
  1. ;;21,"O45.8X1 ")
  1. ;;299
  1. ;;21,"O45.91 ")
  1. ;;300
  1. ;;21,"O46.001 ")
  1. ;;301
  1. ;;21,"O46.011 ")
  1. ;;302
  1. ;;21,"O46.021 ")
  1. ;;303
  1. ;;21,"O46.091 ")
  1. ;;304
  1. ;;21,"O46.8X1 ")
  1. ;;305
  1. ;;21,"O46.91 ")
  1. ;;306
  1. ;;21,"O88.011 ")
  1. ;;307
  1. ;;21,"O88.111 ")
  1. ;;308
  1. ;;21,"O88.211 ")
  1. ;;309
  1. ;;21,"O88.311 ")
  1. ;;310
  1. ;;21,"O88.811 ")
  1. ;;311
  1. ;;21,"O91.011 ")
  1. ;;312
  1. ;;21,"O91.111 ")
  1. ;;313
  1. ;;21,"O91.211 ")
  1. ;;314
  1. ;;21,"O92.011 ")
  1. ;;315
  1. ;;21,"O98.011 ")
  1. ;;316
  1. ;;21,"O98.111 ")
  1. ;;317
  1. ;;21,"O98.211 ")
  1. ;;318
  1. ;;21,"O98.311 ")
  1. ;;319
  1. ;;21,"O98.411 ")
  1. ;;320
  1. ;;21,"O98.511 ")
  1. ;;321
  1. ;;21,"O98.611 ")
  1. ;;322
  1. ;;21,"O98.711 ")
  1. ;;323
  1. ;;21,"O98.811 ")
  1. ;;324
  1. ;;21,"O98.911 ")
  1. ;;325
  1. ;;21,"O99.011 ")
  1. ;;326
  1. ;;21,"O99.111 ")
  1. ;;327
  1. ;;21,"O99.211 ")
  1. ;;328
  1. ;;21,"O99.281 ")
  1. ;;329
  1. ;;21,"O99.311 ")
  1. ;;330
  1. ;;21,"O99.321 ")
  1. ;;331
  1. ;;21,"O99.331 ")
  1. ;;332
  1. ;;21,"O99.341 ")
  1. ;;333
  1. ;;21,"O99.351 ")
  1. ;;334
  1. ;;21,"O99.411 ")
  1. ;;335
  1. ;;21,"O99.511 ")
  1. ;;336
  1. ;;21,"O99.611 ")
  1. ;;337
  1. ;;21,"O99.711 ")
  1. ;;338
  1. ;;21,"O99.841 ")
  1. ;;339
  1. ;;21,"O9A.111 ")
  1. ;;340
  1. ;;21,"O9A.211 ")
  1. ;;341
  1. ;;21,"O9A.311 ")
  1. ;;342
  1. ;;21,"O9A.411 ")
  1. ;;343
  1. ;;21,"O9A.511 ")
  1. ;;344
  1. ;;21,"Z34.01 ")
  1. ;;345
  1. ;;21,"Z34.81 ")
  1. ;;346
  1. ;;21,"Z34.91 ")
  1. ;;347
  1. ;;9002226,487,.01)
  1. ;;BGP PREGNANCY TRI 1 DXS
  1. ;;9002226,487,.02)
  1. ;;@
  1. ;;9002226,487,.04)
  1. ;;@
  1. ;;9002226,487,.06)
  1. ;;@
  1. ;;9002226,487,.08)
  1. ;;0
  1. ;;9002226,487,.09)
  1. ;;3150708
  1. ;;9002226,487,.11)
  1. ;;@
  1. ;;9002226,487,.12)
  1. ;;31
  1. ;;9002226,487,.13)
  1. ;;1
  1. ;;9002226,487,.14)
  1. ;;@
  1. ;;9002226,487,.15)
  1. ;;80
  1. ;;9002226,487,.16)
  1. ;;@
  1. ;;9002226,487,.17)
  1. ;;@
  1. ;;9002226,487,3101)
  1. ;;@
  1. ;;9002226.02101,"487,O09.01 ",.01)
  1. ;;O09.01
  1. ;;9002226.02101,"487,O09.01 ",.02)
  1. ;;O09.01
  1. ;;9002226.02101,"487,O09.01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O09.11 ",.01)
  1. ;;O09.11
  1. ;;9002226.02101,"487,O09.11 ",.02)
  1. ;;O09.11
  1. ;;9002226.02101,"487,O09.11 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O09.211 ",.01)
  1. ;;O09.211
  1. ;;9002226.02101,"487,O09.211 ",.02)
  1. ;;O09.211
  1. ;;9002226.02101,"487,O09.211 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O09.291 ",.01)
  1. ;;O09.291
  1. ;;9002226.02101,"487,O09.291 ",.02)
  1. ;;O09.291
  1. ;;9002226.02101,"487,O09.291 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O09.31 ",.01)
  1. ;;O09.31
  1. ;;9002226.02101,"487,O09.31 ",.02)
  1. ;;O09.31
  1. ;;9002226.02101,"487,O09.31 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O09.41 ",.01)
  1. ;;O09.41
  1. ;;9002226.02101,"487,O09.41 ",.02)
  1. ;;O09.41
  1. ;;9002226.02101,"487,O09.41 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O09.511 ",.01)
  1. ;;O09.511
  1. ;;9002226.02101,"487,O09.511 ",.02)
  1. ;;O09.511
  1. ;;9002226.02101,"487,O09.511 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O09.521 ",.01)
  1. ;;O09.521
  1. ;;9002226.02101,"487,O09.521 ",.02)
  1. ;;O09.521
  1. ;;9002226.02101,"487,O09.521 ",.03)
  1. ;;30
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^ATXF1E2
  1. D ^ATXF1E3
  1. D ^ATXF1E4
  1. D ^ATXF1E5
  1. D ^ATXF1E6
  1. Q