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

ATXD5O.m

Go to the documentation of this file.
ATXD5O ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 12, 2013;
 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
 ;;APCL INJ MOTOR
 ;
 ; This routine loads Taxonomy APCL INJ MOTOR
 ;
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,"E800.0 ")
 ;;1
 ;;21,"E929.0 ")
 ;;2
 ;;21,"E929.9 ")
 ;;3
 ;;21,"E988.5 ")
 ;;4
 ;;21,"V02.00XA ")
 ;;5
 ;;21,"V02.00XD ")
 ;;6
 ;;21,"V02.00XS ")
 ;;7
 ;;21,"V02.01XA ")
 ;;8
 ;;21,"V02.01XD ")
 ;;9
 ;;21,"V02.01XS ")
 ;;10
 ;;21,"V02.02XA ")
 ;;11
 ;;21,"V02.02XD ")
 ;;12
 ;;21,"V02.02XS ")
 ;;13
 ;;21,"V02.09XA ")
 ;;14
 ;;21,"V02.09XD ")
 ;;15
 ;;21,"V02.09XS ")
 ;;16
 ;;21,"V02.10XA ")
 ;;17
 ;;21,"V02.10XD ")
 ;;18
 ;;21,"V02.10XS ")
 ;;19
 ;;21,"V02.11XA ")
 ;;20
 ;;21,"V02.11XD ")
 ;;21
 ;;21,"V02.11XS ")
 ;;22
 ;;21,"V02.12XA ")
 ;;23
 ;;21,"V02.12XD ")
 ;;24
 ;;21,"V02.12XS ")
 ;;25
 ;;21,"V02.19XA ")
 ;;26
 ;;21,"V02.19XD ")
 ;;27
 ;;21,"V02.19XS ")
 ;;28
 ;;21,"V02.90XA ")
 ;;29
 ;;21,"V02.90XD ")
 ;;30
 ;;21,"V02.90XS ")
 ;;31
 ;;21,"V02.91XA ")
 ;;32
 ;;21,"V02.91XD ")
 ;;33
 ;;21,"V02.91XS ")
 ;;34
 ;;21,"V02.92XA ")
 ;;35
 ;;21,"V02.92XD ")
 ;;36
 ;;21,"V02.92XS ")
 ;;37
 ;;21,"V02.99XA ")
 ;;38
 ;;21,"V02.99XD ")
 ;;39
 ;;21,"V02.99XS ")
 ;;40
 ;;21,"V03.00XA ")
 ;;41
 ;;21,"V03.00XD ")
 ;;42
 ;;21,"V03.00XS ")
 ;;43
 ;;21,"V03.01XA ")
 ;;44
 ;;21,"V03.01XD ")
 ;;45
 ;;21,"V03.01XS ")
 ;;46
 ;;21,"V03.02XA ")
 ;;47
 ;;21,"V03.02XD ")
 ;;48
 ;;21,"V03.02XS ")
 ;;49
 ;;21,"V03.09XA ")
 ;;50
 ;;21,"V03.09XD ")
 ;;51
 ;;21,"V03.09XS ")
 ;;52
 ;;21,"V03.10XA ")
 ;;53
 ;;21,"V03.10XD ")
 ;;54
 ;;21,"V03.10XS ")
 ;;55
 ;;21,"V03.11XA ")
 ;;56
 ;;21,"V03.11XD ")
 ;;57
 ;;21,"V03.11XS ")
 ;;58
 ;;21,"V03.12XA ")
 ;;59
 ;;21,"V03.12XD ")
 ;;60
 ;;21,"V03.12XS ")
 ;;61
 ;;21,"V03.19XA ")
 ;;62
 ;;21,"V03.19XD ")
 ;;63
 ;;21,"V03.19XS ")
 ;;64
 ;;21,"V03.90XA ")
 ;;65
 ;;21,"V03.90XD ")
 ;;66
 ;;21,"V03.90XS ")
 ;;67
 ;;21,"V03.91XA ")
 ;;68
 ;;21,"V03.91XD ")
 ;;69
 ;;21,"V03.91XS ")
 ;;70
 ;;21,"V03.92XA ")
 ;;71
 ;;21,"V03.92XD ")
 ;;72
 ;;21,"V03.92XS ")
 ;;73
 ;;21,"V03.99XA ")
 ;;74
 ;;21,"V03.99XD ")
 ;;75
 ;;21,"V03.99XS ")
 ;;76
 ;;21,"V04.00XA ")
 ;;77
 ;;21,"V04.00XD ")
 ;;78
 ;;21,"V04.00XS ")
 ;;79
 ;;21,"V04.01XA ")
 ;;80
 ;;21,"V04.01XD ")
 ;;81
 ;;21,"V04.01XS ")
 ;;82
 ;;21,"V04.02XA ")
 ;;83
 ;;21,"V04.02XD ")
 ;;84
 ;;21,"V04.02XS ")
 ;;85
 ;;21,"V04.09XA ")
 ;;86
 ;;21,"V04.09XD ")
 ;;87
 ;;21,"V04.09XS ")
 ;;88
 ;;21,"V04.10XA ")
 ;;89
 ;;21,"V04.10XD ")
 ;;90
 ;;21,"V04.10XS ")
 ;;91
 ;;21,"V04.11XA ")
 ;;92
 ;;21,"V04.11XD ")
 ;;93
 ;;21,"V04.11XS ")
 ;;94
 ;;21,"V04.12XA ")
 ;;95
 ;;21,"V04.12XD ")
 ;;96
 ;;21,"V04.12XS ")
 ;;97
 ;;21,"V04.19XA ")
 ;;98
 ;;21,"V04.19XD ")
 ;;99
 ;;21,"V04.19XS ")
 ;;100
 ;;21,"V04.90XA ")
 ;;101
 ;;21,"V04.90XD ")
 ;;102
 ;;21,"V04.90XS ")
 ;;103
 ;;21,"V04.91XA ")
 ;;104
 ;;21,"V04.91XD ")
 ;;105
 ;;21,"V04.91XS ")
 ;;106
 ;;21,"V04.92XA ")
 ;;107
 ;;21,"V04.92XD ")
 ;;108
 ;;21,"V04.92XS ")
 ;;109
 ;;21,"V04.99XA ")
 ;;110
 ;;21,"V04.99XD ")
 ;;111
 ;;21,"V04.99XS ")
 ;;112
 ;;21,"V05.00XA ")
 ;;113
 ;;21,"V05.00XD ")
 ;;114
 ;;21,"V05.00XS ")
 ;;115
 ;;21,"V05.01XA ")
 ;;116
 ;;21,"V05.01XD ")
 ;;117
 ;;21,"V05.01XS ")
 ;;118
 ;;21,"V05.02XA ")
 ;;119
 ;;21,"V05.02XD ")
 ;;120
 ;;21,"V05.02XS ")
 ;;121
 ;;21,"V05.09XA ")
 ;;122
 ;;21,"V05.09XD ")
 ;;123
 ;;21,"V05.09XS ")
 ;;124
 ;;21,"V05.10XA ")
 ;;125
 ;;21,"V05.10XD ")
 ;;126
 ;;21,"V05.10XS ")
 ;;127
 ;;21,"V05.11XA ")
 ;;128
 ;;21,"V05.11XD ")
 ;;129
 ;;21,"V05.11XS ")
 ;;130
 ;;21,"V05.12XA ")
 ;;131
 ;;21,"V05.12XD ")
 ;;132
 ;;21,"V05.12XS ")
 ;;133
 ;;21,"V05.19XA ")
 ;;134
 ;;21,"V05.19XD ")
 ;;135
 ;;21,"V05.19XS ")
 ;;136
 ;;21,"V05.90XA ")
 ;;137
 ;;21,"V05.90XD ")
 ;;138
 ;;21,"V05.90XS ")
 ;;139
 ;;21,"V05.91XA ")
 ;;140
 ;;21,"V05.91XD ")
 ;;141
 ;;21,"V05.91XS ")
 ;;142
 ;;21,"V05.92XA ")
 ;;143
 ;;21,"V05.92XD ")
 ;;144
 ;;21,"V05.92XS ")
 ;;145
 ;;21,"V05.99XA ")
 ;;146
 ;;21,"V05.99XD ")
 ;;147
 ;;21,"V05.99XS ")
 ;;148
 ;;21,"V06.00XA ")
 ;;149
 ;;21,"V06.00XD ")
 ;;150
 ;;21,"V06.00XS ")
 ;;151
 ;;21,"V06.01XA ")
 ;;152
 ;;21,"V06.01XD ")
 ;;153
 ;;21,"V06.01XS ")
 ;;154
 ;;21,"V06.02XA ")
 ;;155
 ;;21,"V06.02XD ")
 ;;156
 ;;21,"V06.02XS ")
 ;;157
 ;;21,"V06.09XA ")
 ;;158
 ;;21,"V06.09XD ")
 ;;159
 ;;21,"V06.09XS ")
 ;;160
 ;;21,"V06.10XA ")
 ;;161
 ;;21,"V06.10XD ")
 ;;162
 ;;21,"V06.10XS ")
 ;;163
 ;;21,"V06.11XA ")
 ;;164
 ;;21,"V06.11XD ")
 ;;165
 ;;21,"V06.11XS ")
 ;;166
 ;;21,"V06.12XA ")
 ;;167
 ;;21,"V06.12XD ")
 ;;168
 ;;21,"V06.12XS ")
 ;;169
 ;;21,"V06.19XA ")
 ;;170
 ;;21,"V06.19XD ")
 ;;171
 ;;21,"V06.19XS ")
 ;;172
 ;;21,"V06.90XA ")
 ;;173
 ;;21,"V06.90XD ")
 ;;174
 ;;21,"V06.90XS ")
 ;;175
 ;;21,"V06.91XA ")
 ;;176
 ;;21,"V06.91XD ")
 ;;177
 ;;21,"V06.91XS ")
 ;;178
 ;;21,"V06.92XA ")
 ;;179
 ;;21,"V06.92XD ")
 ;;180
 ;;21,"V06.92XS ")
 ;;181
 ;;21,"V06.99XA ")
 ;;182
 ;;21,"V06.99XD ")
 ;;183
 ;;21,"V06.99XS ")
 ;;184
 ;;21,"V09.00XA ")
 ;;185
 ;;21,"V09.00XD ")
 ;;186
 ;;21,"V09.00XS ")
 ;;187
 ;;21,"V09.01XA ")
 ;;188
 ;;21,"V09.01XD ")
 ;;189
 ;;21,"V09.01XS ")
 ;;190
 ;;21,"V09.09XA ")
 ;;191
 ;;21,"V09.09XD ")
 ;;192
 ;;21,"V09.09XS ")
 ;;193
 ;;21,"V09.1XXA ")
 ;;194
 ;;21,"V09.1XXD ")
 ;;195
 ;;21,"V09.1XXS ")
 ;;196
 ;;21,"V09.20XA ")
 ;;197
 ;;21,"V09.20XD ")
 ;;198
 ;;21,"V09.20XS ")
 ;;199
 ;;21,"V09.21XA ")
 ;;200
 ;;21,"V09.21XD ")
 ;;201
 ;;21,"V09.21XS ")
 ;;202
 ;;21,"V09.29XA ")
 ;;203
 ;;21,"V09.29XD ")
 ;;204
 ;;21,"V09.29XS ")
 ;;205
 ;;21,"V12.0XXA ")
 ;;206
 ;;21,"V12.0XXD ")
 ;;207
 ;;21,"V12.0XXS ")
 ;;208
 ;;21,"V12.1XXA ")
 ;;209
 ;;21,"V12.1XXD ")
 ;;210
 ;;21,"V12.1XXS ")
 ;;211
 ;;21,"V12.2XXA ")
 ;;212
 ;;21,"V12.2XXD ")
 ;;213
 ;;21,"V12.2XXS ")
 ;;214
 ;;21,"V12.3XXA ")
 ;;215
 ;;21,"V12.3XXD ")
 ;;216
 ;;21,"V12.3XXS ")
 ;;217
 ;;21,"V12.4XXA ")
 ;;218
 ;;21,"V12.4XXD ")
 ;;219
 ;;21,"V12.4XXS ")
 ;;220
 ;;21,"V12.5XXA ")
 ;;221
 ;;21,"V12.5XXD ")
 ;;222
 ;;21,"V12.5XXS ")
 ;;223
 ;;21,"V12.9XXA ")
 ;;224
 ;;21,"V12.9XXD ")
 ;;225
 ;;21,"V12.9XXS ")
 ;;226
 ;;21,"V13.0XXA ")
 ;;227
 ;;21,"V13.0XXD ")
 ;;228
 ;;21,"V13.0XXS ")
 ;;229
 ;;21,"V13.1XXA ")
 ;;230
 ;;21,"V13.1XXD ")
 ;;231
 ;;21,"V13.1XXS ")
 ;;232
 ;;21,"V13.2XXA ")
 ;;233
 ;;21,"V13.2XXD ")
 ;;234
 ;;21,"V13.2XXS ")
 ;;235
 ;;21,"V13.3XXA ")
 ;;236
 ;;21,"V13.3XXD ")
 ;;237
 ;;21,"V13.3XXS ")
 ;;238
 ;;21,"V13.4XXA ")
 ;;239
 ;;21,"V13.4XXD ")
 ;;240
 ;;21,"V13.4XXS ")
 ;;241
 ;;21,"V13.5XXA ")
 ;;242
 ;;21,"V13.5XXD ")
 ;;243
 ;;21,"V13.5XXS ")
 ;;244
 ;;21,"V13.9XXA ")
 ;;245
 ;;21,"V13.9XXD ")
 ;;246
 ;;21,"V13.9XXS ")
 ;;247
 ;;21,"V14.0XXA ")
 ;;248
 ;;21,"V14.0XXD ")
 ;;249
 ;;21,"V14.0XXS ")
 ;;250
 ;;21,"V14.1XXA ")
 ;;251
 ;;21,"V14.1XXD ")
 ;;252
 ;;21,"V14.1XXS ")
 ;;253
 ;;21,"V14.2XXA ")
 ;;254
 ;;21,"V14.2XXD ")
 ;;255
 ;;21,"V14.2XXS ")
 ;;256
 ;;21,"V14.3XXA ")
 ;;257
 ;;21,"V14.3XXD ")
 ;;258
 ;;21,"V14.3XXS ")
 ;;259
 ;;21,"V14.4XXA ")
 ;;260
 ;;21,"V14.4XXD ")
 ;;261
 ;;21,"V14.4XXS ")
 ;;262
 ;;21,"V14.5XXA ")
 ;;263
 ;;21,"V14.5XXD ")
 ;;264
 ;;21,"V14.5XXS ")
 ;;265
 ;;21,"V14.9XXA ")
 ;;266
 ;;21,"V14.9XXD ")
 ;;267
 ;;21,"V14.9XXS ")
 ;;268
 ;;21,"V15.0XXA ")
 ;;269
 ;;21,"V15.0XXD ")
 ;;270
 ;;21,"V15.0XXS ")
 ;;271
 ;;21,"V15.1XXA ")
 ;;272
 ;;21,"V15.1XXD ")
 ;;273
 ;;21,"V15.1XXS ")
 ;;274
 ;;21,"V15.2XXA ")
 ;;275
 ;;21,"V15.2XXD ")
 ;;276
 ;;21,"V15.2XXS ")
 ;;277
 ;;21,"V15.3XXA ")
 ;;278
 ;;21,"V15.3XXD ")
 ;;279
 ;;21,"V15.3XXS ")
 ;;280
 ;;21,"V15.4XXA ")
 ;;281
 ;;21,"V15.4XXD ")
 ;;282
 ;;21,"V15.4XXS ")
 ;;283
 ;;21,"V15.5XXA ")
 ;;284
 ;;21,"V15.5XXD ")
 ;;285
 ;;21,"V15.5XXS ")
 ;;286
 ;;21,"V15.9XXA ")
 ;;287
 ;;21,"V15.9XXD ")
 ;;288
 ;;21,"V15.9XXS ")
 ;;289
 ;;21,"V16.0XXA ")
 ;;290
 ;;21,"V19.00XA ")
 ;;291
 ;;21,"V19.00XD ")
 ;;292
 ;;21,"V19.00XS ")
 ;;293
 ;;21,"V19.09XA ")
 ;;294
 ;;21,"V19.09XD ")
 ;;295
 ;;21,"V19.09XS ")
 ;;296
 ;;21,"V19.10XA ")
 ;;297
 ;;21,"V19.10XD ")
 ;;298
 ;;21,"V19.10XS ")
 ;;299
 ;;21,"V19.19XA ")
 ;;300
 ;;21,"V19.19XD ")
 ;;301
 ;;21,"V19.19XS ")
 ;;302
 ;;21,"V19.20XA ")
 ;;303
 ;;21,"V19.20XD ")
 ;;304
 ;;21,"V19.20XS ")
 ;;305
 ;;21,"V19.29XA ")
 ;;306
 ;;21,"V19.29XD ")
 ;;307
 ;;21,"V19.29XS ")
 ;;308
 ;;21,"V19.3XXA ")
 ;;309
 ;;21,"V19.3XXD ")
 ;;310
 ;;21,"V19.3XXS ")
 ;;311
 ;;21,"V19.40XA ")
 ;;312
 ;;21,"V19.40XD ")
 ;;313
 ;;21,"V19.40XS ")
 ;;314
 ;;21,"V19.49XA ")
 ;;315
 ;;21,"V19.49XD ")
 ;;316
 ;;21,"V19.49XS ")
 ;;317
 ;;21,"V19.50XA ")
 ;;318
 ;;21,"V19.50XD ")
 ;;319
 ;;21,"V19.50XS ")
 ;;320
 ;;21,"V19.59XA ")
 ;;321
 ;;21,"V19.59XD ")
 ;;322
 ;;21,"V19.59XS ")
 ;;323
 ;;21,"V19.60XA ")
 ;;324
 ;;21,"V19.60XD ")
 ;;325
 ;;21,"V19.60XS ")
 ;;326
 ;;21,"V19.69XA ")
 ;;327
 ;;21,"V19.69XD ")
 ;;328
 ;;21,"V19.69XS ")
 ;;329
 ;;21,"V19.81XA ")
 ;;330
 ;;21,"V19.81XD ")
 ;;331
 ;;21,"V19.81XS ")
 ;;332
 ;;21,"V19.88XA ")
 ;;333
 ;;21,"V19.88XD ")
 ;;334
 ;;21,"V19.88XS ")
 ;;335
 ;;21,"V19.9XXA ")
 ;;336
 ;;21,"V19.9XXD ")
 ;;337
 ;;21,"V19.9XXS ")
 ;;338
 ;;21,"V20.0XXA ")
 ;;339
 ;;21,"V20.0XXD ")
 ;;340
 ;;21,"V20.0XXS ")
 ;;341
 ;;21,"V20.1XXA ")
 ;;342
 ;;21,"V20.1XXD ")
 ;;343
 ;;21,"V20.1XXS ")
 ;;344
 ;;21,"V20.2XXA ")
 ;;345
 ;;21,"V20.2XXD ")
 ;;346
 ;;21,"V20.2XXS ")
 ;;347
 ;;21,"V20.3XXA ")
 ;;348
 ;;21,"V20.3XXD ")
 ;;349
 ;;21,"V20.3XXS ")
 ;;350
 ;;21,"V20.4XXA ")
 ;;351
 ;;21,"V20.4XXD ")
 ;;352
 ;;21,"V20.4XXS ")
 ;;353
 ;;21,"V20.5XXA ")
 ;;354
 ;;21,"V20.5XXD ")
 ;;355
 ;;21,"V20.5XXS ")
 ;;356
 ;;21,"V20.9XXA ")
 ;;357
 ;;21,"V20.9XXD ")
 ;;358
 ;;21,"V20.9XXS ")
 ;;359
 ;;21,"V21.0XXA ")
 ;;360
 ;;21,"V21.0XXD ")
 ;;361
 ;;21,"V21.0XXS ")
 ;;362
 ;;21,"V21.1XXA ")
 ;;363
 ;;21,"V21.1XXD ")
 ;;364
 ;;21,"V21.1XXS ")
 ;;365
 ;;21,"V21.2XXA ")
 ;;366
 ;;21,"V21.2XXD ")
 ;;367
 ;;21,"V21.2XXS ")
 ;;368
 ;;21,"V21.3XXA ")
 ;;369
 ;;21,"V21.3XXD ")
 ;;370
 ;;21,"V21.3XXS ")
 ;;371
 ;;21,"V21.4XXA ")
 ;;372
 ;;21,"V21.4XXD ")
 ;;373
 ;;21,"V21.4XXS ")
 ;;374
 ;;21,"V21.5XXA ")
 ;;375
 ;;21,"V21.5XXD ")
 ;;376
 ;;21,"V21.5XXS ")
 ;;377
 ;;21,"V21.9XXA ")
 ;;378
 ;;21,"V21.9XXD ")
 ;;379
 ;;21,"V21.9XXS ")
 ;;380
 ;;21,"V22.0XXA ")
 ;;381
 ;;21,"V22.0XXD ")
 ;;382
 ;;21,"V22.0XXS ")
 ;;383
 ;;21,"V22.1XXA ")
 ;;384
 ;;21,"V22.1XXD ")
 ;;385
 ;;21,"V22.1XXS ")
 ;;386
 ;;21,"V22.2XXA ")
 ;;387
 ;;21,"V22.2XXD ")
 ;;388
 ;;21,"V22.2XXS ")
 ;;389
 ;;21,"V22.3XXA ")
 ;;390
 ;;21,"V22.3XXD ")
 ;;391
 ;;21,"V22.3XXS ")
 ;;392
 ;;21,"V22.4XXA ")
 ;;393
 ;;21,"V22.4XXD ")
 ;;394
 ;;21,"V22.4XXS ")
 ;;395
 ;;21,"V22.5XXA ")
 ;;396
 ;;21,"V22.5XXD ")
 ;;397
 ;;21,"V22.5XXS ")
 ;;398
 ;;21,"V22.9XXA ")
 ;;399
 ;;21,"V22.9XXD ")
 ;;400
 ;;21,"V22.9XXS ")
 ;;401
 ;;21,"V23.0XXA ")
 ;;402
 ;;21,"V23.0XXD ")
 ;;403
 ;;21,"V23.0XXS ")
 ;;404
 ;;21,"V23.1XXA ")
 ;;405
 ;;21,"V23.1XXD ")
 ;;406
 ;;21,"V23.1XXS ")
 ;;407
 ;;21,"V23.2XXA ")
 ;;408
 ;;21,"V23.2XXD ")
 ;;409
 ;;21,"V23.2XXS ")
 ;;410
 ;;21,"V23.3XXA ")
 ;;411
 ;;21,"V23.3XXD ")
 ;;412
 ;;21,"V23.3XXS ")
 ;;413
 ;;21,"V23.4XXA ")
 ;;414
 ;;21,"V23.4XXD ")
 ;;415
 ;;21,"V23.4XXS ")
 ;;416
 ;;21,"V23.5XXA ")
 ;;417
 ;;21,"V23.5XXD ")
 ;;418
 ;;21,"V23.5XXS ")
 ;;419
 ;;21,"V23.9XXA ")
 ;;420
 ;;21,"V23.9XXD ")
 ;;421
 ;;21,"V23.9XXS ")
 ;;422
 ;;21,"V24.0XXA ")
 ;;423
 ;;21,"V24.0XXD ")
 ;;424
 ;;21,"V24.0XXS ")
 ;;425
 ;;21,"V24.1XXA ")
 ;;426
 ;;21,"V24.1XXD ")
 ;;427
 ;;21,"V24.1XXS ")
 ;;428
 ;;21,"V24.2XXA ")
 ;;429
 ;;21,"V24.2XXD ")
 ;;430
 ;;21,"V24.2XXS ")
 ;;431
 ;;21,"V24.3XXA ")
 ;;432
 ;;21,"V24.3XXD ")
 ;;433
 ;;21,"V24.3XXS ")
 ;;434
 ;;21,"V24.4XXA ")
 ;;435
 ;;21,"V24.4XXD ")
 ;;436
 ;;21,"V24.4XXS ")
 ;;437
 ;;21,"V24.5XXA ")
 ;;438
 ;;21,"V24.5XXD ")
 ;;439
 ;;21,"V24.5XXS ")
 ;;440
 ;;21,"V24.9XXA ")
 ;;441
 ;;21,"V24.9XXD ")
 ;;442
 ;;21,"V24.9XXS ")
 ;;443
 ;;21,"V25.0XXA ")
 ;;444
 ;;21,"V25.0XXD ")
 ;;445
 ;;21,"V25.0XXS ")
 ;;446
 ;;21,"V25.1XXA ")
 ;;447
 ;;21,"V25.1XXD ")
 ;;448
 ;;21,"V25.1XXS ")
 ;;449
 ;;21,"V25.2XXA ")
 ;;450
 ;;21,"V25.2XXD ")
 ;;451
 ;;21,"V25.2XXS ")
 ;;452
 ;;21,"V25.3XXA ")
 ;;453
 ;;21,"V25.3XXD ")
 ;;454
 ;;21,"V25.3XXS ")
 ;;455
 ;;21,"V25.4XXA ")
 ;;456
 ;
OTHER ; OTHER ROUTINES
 D ^ATXD5O10
 D ^ATXD5O11
 D ^ATXD5O12
 D ^ATXD5O13
 D ^ATXD5O14
 D ^ATXD5O15
 D ^ATXD5O16
 D ^ATXD5O17
 D ^ATXD5O18
 D ^ATXD5O19
 D ^ATXD5O2
 D ^ATXD5O20
 D ^ATXD5O21
 D ^ATXD5O22
 D ^ATXD5O23
 D ^ATXD5O24
 D ^ATXD5O25
 D ^ATXD5O26
 D ^ATXD5O27
 D ^ATXD5O28
 D ^ATXD5O29
 D ^ATXD5O3
 D ^ATXD5O30
 D ^ATXD5O31
 D ^ATXD5O32
 D ^ATXD5O33
 D ^ATXD5O34
 D ^ATXD5O4
 D ^ATXD5O5
 D ^ATXD5O6
 D ^ATXD5O7
 D ^ATXD5O8
 D ^ATXD5O9
 Q