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

ATXD5P.m

Go to the documentation of this file.
ATXD5P ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 12, 2013;
 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
 ;;APCL INJ OTHER CAUSES
 ;
 ; This routine loads Taxonomy APCL INJ OTHER CAUSES
 ;
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,"T68.XXXA ")
 ;;2
 ;;21,"T68.XXXD ")
 ;;3
 ;;21,"T68.XXXS ")
 ;;4
 ;;21,"T71.111A ")
 ;;5
 ;;21,"T71.111D ")
 ;;6
 ;;21,"T71.111S ")
 ;;7
 ;;21,"T71.121A ")
 ;;8
 ;;21,"T71.121D ")
 ;;9
 ;;21,"T71.121S ")
 ;;10
 ;;21,"T71.131A ")
 ;;11
 ;;21,"T71.131D ")
 ;;12
 ;;21,"T71.131S ")
 ;;13
 ;;21,"T71.141A ")
 ;;14
 ;;21,"T71.141D ")
 ;;15
 ;;21,"T71.141S ")
 ;;16
 ;;21,"T71.151A ")
 ;;17
 ;;21,"T71.151D ")
 ;;18
 ;;21,"T71.151S ")
 ;;19
 ;;21,"T71.161A ")
 ;;20
 ;;21,"T71.161D ")
 ;;21
 ;;21,"T71.161S ")
 ;;22
 ;;21,"T71.191A ")
 ;;23
 ;;21,"T71.191D ")
 ;;24
 ;;21,"T71.191S ")
 ;;25
 ;;21,"T71.221A ")
 ;;26
 ;;21,"T71.221D ")
 ;;27
 ;;21,"T71.221S ")
 ;;28
 ;;21,"T71.231A ")
 ;;29
 ;;21,"T71.231D ")
 ;;30
 ;;21,"T71.231S ")
 ;;31
 ;;21,"V01.99XS ")
 ;;192
 ;;21,"V06.00XA ")
 ;;193
 ;;21,"V06.00XD ")
 ;;194
 ;;21,"V06.00XS ")
 ;;195
 ;;21,"V06.01XA ")
 ;;196
 ;;21,"V06.01XD ")
 ;;197
 ;;21,"V06.01XS ")
 ;;198
 ;;21,"V06.02XA ")
 ;;199
 ;;21,"V06.02XD ")
 ;;200
 ;;21,"V06.02XS ")
 ;;201
 ;;21,"V06.09XA ")
 ;;202
 ;;21,"V06.09XD ")
 ;;203
 ;;21,"V06.09XS ")
 ;;204
 ;;21,"V06.10XA ")
 ;;205
 ;;21,"V06.10XD ")
 ;;206
 ;;21,"V06.10XS ")
 ;;207
 ;;21,"V06.11XA ")
 ;;208
 ;;21,"V06.11XD ")
 ;;209
 ;;21,"V06.11XS ")
 ;;210
 ;;21,"V06.12XA ")
 ;;211
 ;;21,"V06.12XD ")
 ;;212
 ;;21,"V06.12XS ")
 ;;213
 ;;21,"V06.19XA ")
 ;;214
 ;;21,"V06.19XD ")
 ;;215
 ;;21,"V06.19XS ")
 ;;216
 ;;21,"V06.90XA ")
 ;;217
 ;;21,"V06.90XD ")
 ;;218
 ;;21,"V06.90XS ")
 ;;219
 ;;21,"V06.91XA ")
 ;;220
 ;;21,"V06.91XD ")
 ;;221
 ;;21,"V06.91XS ")
 ;;222
 ;;21,"V06.92XA ")
 ;;223
 ;;21,"V06.92XD ")
 ;;224
 ;;21,"V06.92XS ")
 ;;225
 ;;21,"V06.99XA ")
 ;;226
 ;;21,"V06.99XD ")
 ;;227
 ;;21,"V06.99XS ")
 ;;228
 ;;21,"V09.1XXA ")
 ;;229
 ;;21,"V09.1XXD ")
 ;;230
 ;;21,"V09.1XXS ")
 ;;231
 ;;21,"V09.3XXA ")
 ;;232
 ;;21,"V09.3XXD ")
 ;;233
 ;;21,"V09.3XXS ")
 ;;234
 ;;21,"V09.9XXA ")
 ;;235
 ;;21,"V09.9XXD ")
 ;;236
 ;;21,"V09.9XXS ")
 ;;237
 ;;21,"V10.0XXA ")
 ;;238
 ;;21,"V10.0XXD ")
 ;;239
 ;;21,"V10.0XXS ")
 ;;240
 ;;21,"V10.1XXA ")
 ;;241
 ;;21,"V10.1XXD ")
 ;;242
 ;;21,"V10.1XXS ")
 ;;243
 ;;21,"V10.2XXA ")
 ;;244
 ;;21,"V10.2XXD ")
 ;;245
 ;;21,"V10.2XXS ")
 ;;246
 ;;21,"V10.3XXA ")
 ;;247
 ;;21,"V10.3XXD ")
 ;;248
 ;;21,"V10.3XXS ")
 ;;249
 ;;21,"V10.4XXA ")
 ;;250
 ;;21,"V10.4XXD ")
 ;;251
 ;;21,"V10.4XXS ")
 ;;252
 ;;21,"V10.5XXA ")
 ;;253
 ;;21,"V10.5XXD ")
 ;;254
 ;;21,"V10.5XXS ")
 ;;255
 ;;21,"V10.9XXA ")
 ;;256
 ;;21,"V10.9XXD ")
 ;;257
 ;;21,"V10.9XXS ")
 ;;258
 ;;21,"V11.0XXA ")
 ;;259
 ;;21,"V11.0XXD ")
 ;;260
 ;;21,"V11.0XXS ")
 ;;261
 ;;21,"V11.1XXA ")
 ;;262
 ;;21,"V11.1XXD ")
 ;;263
 ;;21,"V11.1XXS ")
 ;;264
 ;;21,"V11.2XXA ")
 ;;265
 ;;21,"V11.2XXD ")
 ;;266
 ;;21,"V11.2XXS ")
 ;;267
 ;;21,"V11.3XXA ")
 ;;268
 ;;21,"V11.3XXD ")
 ;;269
 ;;21,"V11.3XXS ")
 ;;270
 ;;21,"V11.4XXA ")
 ;;271
 ;;21,"V11.4XXD ")
 ;;272
 ;;21,"V11.4XXS ")
 ;;273
 ;;21,"V11.5XXA ")
 ;;274
 ;;21,"V11.5XXD ")
 ;;275
 ;;21,"V11.5XXS ")
 ;;276
 ;;21,"V11.9XXA ")
 ;;277
 ;;21,"V11.9XXD ")
 ;;278
 ;;21,"V11.9XXS ")
 ;;279
 ;;21,"V16.1XXA ")
 ;;280
 ;;21,"V16.1XXD ")
 ;;281
 ;;21,"V16.1XXS ")
 ;;282
 ;;21,"V16.2XXA ")
 ;;283
 ;;21,"V16.2XXD ")
 ;;284
 ;;21,"V16.2XXS ")
 ;;285
 ;;21,"V16.3XXA ")
 ;;286
 ;;21,"V16.3XXD ")
 ;;287
 ;;21,"V16.3XXS ")
 ;;288
 ;;21,"V16.4XXA ")
 ;;289
 ;;21,"V16.4XXD ")
 ;;290
 ;;21,"V16.4XXS ")
 ;;291
 ;;21,"V16.5XXA ")
 ;;292
 ;;21,"V16.5XXD ")
 ;;293
 ;;21,"V16.5XXS ")
 ;;294
 ;;21,"V16.9XXA ")
 ;;295
 ;;21,"V16.9XXD ")
 ;;296
 ;;21,"V16.9XXS ")
 ;;297
 ;;21,"V17.0XXA ")
 ;;298
 ;;21,"V17.0XXD ")
 ;;299
 ;;21,"V17.0XXS ")
 ;;300
 ;;21,"V17.1XXA ")
 ;;301
 ;;21,"V17.1XXD ")
 ;;302
 ;;21,"V17.1XXS ")
 ;;303
 ;;21,"V17.2XXA ")
 ;;304
 ;;21,"V17.2XXD ")
 ;;305
 ;;21,"V17.2XXS ")
 ;;306
 ;;21,"V17.3XXA ")
 ;;307
 ;;21,"V17.3XXD ")
 ;;308
 ;;21,"V17.3XXS ")
 ;;309
 ;;21,"V17.4XXA ")
 ;;310
 ;;21,"V17.4XXD ")
 ;;311
 ;;21,"V17.4XXS ")
 ;;312
 ;;21,"V17.5XXA ")
 ;;313
 ;;21,"V17.5XXD ")
 ;;314
 ;;21,"V17.5XXS ")
 ;;315
 ;;21,"V17.9XXA ")
 ;;316
 ;;21,"V17.9XXD ")
 ;;317
 ;;21,"V17.9XXS ")
 ;;318
 ;;21,"V18.0XXA ")
 ;;319
 ;;21,"V18.0XXD ")
 ;;320
 ;;21,"V18.0XXS ")
 ;;321
 ;;21,"V18.1XXA ")
 ;;322
 ;;21,"V18.1XXD ")
 ;;323
 ;;21,"V18.1XXS ")
 ;;324
 ;;21,"V18.2XXA ")
 ;;325
 ;;21,"V18.2XXD ")
 ;;326
 ;;21,"V18.2XXS ")
 ;;327
 ;;21,"V18.3XXA ")
 ;;328
 ;;21,"V18.3XXD ")
 ;;329
 ;;21,"V18.3XXS ")
 ;;330
 ;;21,"V18.4XXA ")
 ;;331
 ;;21,"V18.4XXD ")
 ;;332
 ;;21,"V18.4XXS ")
 ;;333
 ;;21,"V18.5XXA ")
 ;;334
 ;;21,"V18.5XXD ")
 ;;335
 ;;21,"V18.5XXS ")
 ;;336
 ;;21,"V18.9XXA ")
 ;;337
 ;;21,"V18.9XXD ")
 ;;338
 ;;21,"V18.9XXS ")
 ;;339
 ;;21,"V19.3XXA ")
 ;;340
 ;;21,"V19.3XXD ")
 ;;341
 ;;21,"V19.3XXS ")
 ;;342
 ;;21,"V19.88XA ")
 ;;343
 ;;21,"V19.88XD ")
 ;;344
 ;;21,"V19.88XS ")
 ;;345
 ;;21,"V19.9XXA ")
 ;;346
 ;;21,"V19.9XXD ")
 ;;347
 ;;21,"V19.9XXS ")
 ;;348
 ;;21,"V80.010A ")
 ;;349
 ;;21,"V80.010D ")
 ;;350
 ;;21,"V80.010S ")
 ;;351
 ;;21,"V80.018A ")
 ;;352
 ;;21,"V80.018D ")
 ;;353
 ;;21,"V80.018S ")
 ;;354
 ;;21,"V80.02XA ")
 ;;355
 ;;21,"V80.02XD ")
 ;;356
 ;;21,"V80.02XS ")
 ;;357
 ;;21,"V80.11XA ")
 ;;358
 ;;21,"V80.11XD ")
 ;;359
 ;;21,"V80.11XS ")
 ;;360
 ;;21,"V80.12XA ")
 ;;361
 ;;21,"V80.12XD ")
 ;;362
 ;;21,"V80.12XS ")
 ;;363
 ;;21,"V80.21XA ")
 ;;364
 ;;21,"V80.21XD ")
 ;;365
 ;;21,"V80.21XS ")
 ;;366
 ;;21,"V80.22XA ")
 ;;367
 ;;21,"V80.22XD ")
 ;;368
 ;;21,"V80.22XS ")
 ;;369
 ;;21,"V80.710A ")
 ;;370
 ;;21,"V80.710D ")
 ;;371
 ;;21,"V80.710S ")
 ;;372
 ;;21,"V80.711A ")
 ;;373
 ;;21,"V80.711D ")
 ;;374
 ;;21,"V80.711S ")
 ;;375
 ;;21,"V80.720A ")
 ;;376
 ;;21,"V80.720D ")
 ;;377
 ;;21,"V80.720S ")
 ;;378
 ;;21,"V80.721A ")
 ;;379
 ;;21,"V80.721D ")
 ;;380
 ;;21,"V80.721S ")
 ;;381
 ;;21,"V80.730A ")
 ;;382
 ;;21,"V80.730D ")
 ;;383
 ;;21,"V80.790A ")
 ;;384
 ;;21,"V80.790D ")
 ;;385
 ;;21,"V80.790S ")
 ;;386
 ;;21,"V80.791A ")
 ;;387
 ;;21,"V80.791D ")
 ;;388
 ;;21,"V80.791S ")
 ;;389
 ;;21,"V80.81XA ")
 ;;390
 ;;21,"V80.81XD ")
 ;;391
 ;;21,"V80.81XS ")
 ;;392
 ;;21,"V80.82XA ")
 ;;393
 ;;21,"V80.82XD ")
 ;;394
 ;;21,"V80.82XS ")
 ;;395
 ;;21,"V80.918A ")
 ;;396
 ;;21,"V80.918D ")
 ;;397
 ;;21,"V80.918S ")
 ;;398
 ;;21,"V80.919A ")
 ;;399
 ;;21,"V80.919D ")
 ;;400
 ;;21,"V80.919S ")
 ;;401
 ;;21,"V80.928A ")
 ;;402
 ;;21,"V80.928D ")
 ;;403
 ;;21,"V80.928S ")
 ;;404
 ;;21,"V80.929A ")
 ;;405
 ;;21,"V80.929D ")
 ;;406
 ;;21,"V80.929S ")
 ;;407
 ;;21,"V88.9XXA ")
 ;;408
 ;;21,"V88.9XXD ")
 ;;409
 ;;21,"V88.9XXS ")
 ;;410
 ;;21,"V89.1XXA ")
 ;;411
 ;;21,"V89.1XXD ")
 ;;412
 ;;21,"V89.1XXS ")
 ;;413
 ;;21,"V89.3XXA ")
 ;;414
 ;;21,"V89.3XXD ")
 ;;415
 ;;21,"V89.3XXS ")
 ;;416
 ;;21,"V89.9XXA ")
 ;;417
 ;;21,"V89.9XXD ")
 ;;418
 ;;21,"V89.9XXS ")
 ;;419
 ;;21,"V91.00XA ")
 ;;420
 ;;21,"V91.00XD ")
 ;;421
 ;;21,"V91.00XS ")
 ;;422
 ;;21,"V91.01XA ")
 ;;423
 ;;21,"V91.01XD ")
 ;;424
 ;;21,"V91.01XS ")
 ;;425
 ;;21,"V91.02XA ")
 ;;426
 ;;21,"V91.02XD ")
 ;;427
 ;;21,"V91.02XS ")
 ;;428
 ;;21,"V91.03XA ")
 ;;429
 ;;21,"V91.03XD ")
 ;;430
 ;;21,"V91.03XS ")
 ;;431
 ;;21,"V91.04XA ")
 ;;432
 ;;21,"V91.04XD ")
 ;;433
 ;;21,"V91.04XS ")
 ;;434
 ;;21,"V91.05XA ")
 ;;435
 ;;21,"V91.05XD ")
 ;;436
 ;;21,"V91.05XS ")
 ;;437
 ;;21,"V91.06XA ")
 ;;438
 ;;21,"V91.06XD ")
 ;;439
 ;;21,"V91.06XS ")
 ;;440
 ;;21,"V91.07XA ")
 ;;441
 ;;21,"V91.07XD ")
 ;;442
 ;;21,"V91.07XS ")
 ;;443
 ;;21,"V91.08XA ")
 ;;444
 ;;21,"V91.08XD ")
 ;;445
 ;;21,"V91.08XS ")
 ;;446
 ;;21,"V91.09XA ")
 ;;447
 ;;21,"V91.09XD ")
 ;;448
 ;;21,"V91.09XS ")
 ;;449
 ;;21,"V91.10XA ")
 ;;450
 ;;21,"V91.10XD ")
 ;;451
 ;;21,"V91.10XS ")
 ;;452
 ;;21,"V91.11XA ")
 ;;453
 ;;21,"V91.11XD ")
 ;;454
 ;;21,"V91.11XS ")
 ;;455
 ;;21,"V91.12XA ")
 ;;456
 ;;21,"V91.12XD ")
 ;;457
 ;;21,"V91.12XS ")
 ;;458
 ;;21,"V91.13XA ")
 ;;459
 ;;21,"V91.13XD ")
 ;;460
 ;;21,"V91.13XS ")
 ;;461
 ;;21,"V91.14XA ")
 ;;462
 ;;21,"V91.14XD ")
 ;;463
 ;;21,"V91.14XS ")
 ;;464
 ;;21,"V91.15XA ")
 ;;465
 ;;21,"V91.15XD ")
 ;;466
 ;;21,"V91.15XS ")
 ;;467
 ;;21,"V91.16XA ")
 ;;468
 ;;21,"V91.16XD ")
 ;;469
 ;;21,"V91.16XS ")
 ;;470
 ;;21,"V91.18XA ")
 ;;471
 ;;21,"V91.18XD ")
 ;;472
 ;;21,"V91.18XS ")
 ;;473
 ;;21,"V91.19XA ")
 ;;474
 ;;21,"V91.19XD ")
 ;;475
 ;;21,"V91.19XS ")
 ;;476
 ;;21,"V91.30XA ")
 ;;477
 ;;21,"V91.30XD ")
 ;;478
 ;;21,"V91.30XS ")
 ;;479
 ;;21,"V91.31XA ")
 ;;480
 ;;21,"V91.31XD ")
 ;;481
 ;;21,"V91.31XS ")
 ;;482
 ;;21,"V91.32XA ")
 ;;483
 ;;21,"V91.32XD ")
 ;;484
 ;;21,"V91.32XS ")
 ;;485
 ;;21,"V91.33XA ")
 ;;486
 ;;21,"V91.33XD ")
 ;;487
 ;;21,"V91.33XS ")
 ;;488
 ;;21,"V91.34XA ")
 ;;489
 ;;21,"V91.34XD ")
 ;;490
 ;;21,"V91.34XS ")
 ;;491
 ;;21,"V91.35XA ")
 ;;492
 ;;21,"V91.35XD ")
 ;;493
 ;;21,"V91.35XS ")
 ;;494
 ;;21,"V91.36XA ")
 ;;495
 ;;21,"V91.36XD ")
 ;;496
 ;;21,"V91.36XS ")
 ;;497
 ;;21,"V91.37XA ")
 ;;498
 ;;21,"V91.37XD ")
 ;;499
 ;;21,"V91.37XS ")
 ;;500
 ;;21,"V91.38XA ")
 ;;501
 ;;21,"V91.38XD ")
 ;;502
 ;;21,"V91.38XS ")
 ;;503
 ;;21,"V91.39XA ")
 ;;504
 ;;21,"V91.39XD ")
 ;;505
 ;;21,"V91.39XS ")
 ;;506
 ;;21,"V91.80XA ")
 ;;507
 ;;21,"V91.80XD ")
 ;;508
 ;;21,"V91.80XS ")
 ;;509
 ;;21,"V91.81XA ")
 ;;510
 ;;21,"V91.81XD ")
 ;;511
 ;;21,"V91.81XS ")
 ;;512
 ;;21,"V91.82XA ")
 ;;513
 ;;21,"V91.82XD ")
 ;;514
 ;;21,"V91.82XS ")
 ;;515
 ;;21,"V91.83XA ")
 ;;516
 ;;21,"V91.83XD ")
 ;;517
 ;;21,"V91.83XS ")
 ;;518
 ;;21,"V91.84XA ")
 ;;519
 ;;21,"V91.84XD ")
 ;;520
 ;;21,"V91.84XS ")
 ;;521
 ;;21,"V91.85XA ")
 ;;522
 ;;21,"V91.85XD ")
 ;;523
 ;;21,"V91.85XS ")
 ;;524
 ;;21,"V91.86XA ")
 ;;525
 ;;21,"V91.86XD ")
 ;;526
 ;;21,"V91.86XS ")
 ;;527
 ;;21,"V91.87XA ")
 ;;528
 ;;21,"V91.87XD ")
 ;;529
 ;;21,"V91.87XS ")
 ;;530
 ;;21,"V91.88XA ")
 ;;531
 ;;21,"V91.88XD ")
 ;;532
 ;;21,"V91.88XS ")
 ;;533
 ;;21,"V91.89XA ")
 ;;534
 ;;21,"V91.89XD ")
 ;;535
 ;;21,"V91.89XS ")
 ;;536
 ;;21,"V93.00XA ")
 ;;537
 ;;21,"V93.00XD ")
 ;;538
 ;;21,"V93.00XS ")
 ;;539
 ;;21,"V93.01XA ")
 ;;540
 ;;21,"V93.01XD ")
 ;;541
 ;;21,"V93.01XS ")
 ;;542
 ;;21,"V93.02XA ")
 ;;543
 ;;21,"V93.02XD ")
 ;;544
 ;;21,"V93.02XS ")
 ;;545
 ;;21,"V93.03XA ")
 ;;546
 ;;21,"V93.03XD ")
 ;;547
 ;;21,"V93.03XS ")
 ;;548
 ;;21,"V93.04XA ")
 ;;549
 ;;21,"V93.04XD ")
 ;;550
 ;;21,"V93.04XS ")
 ;;551
 ;;21,"V93.09XA ")
 ;;552
 ;;21,"V93.09XD ")
 ;;553
 ;;21,"V93.09XS ")
 ;;554
 ;;21,"V93.10XA ")
 ;;555
 ;;21,"V93.10XD ")
 ;;556
 ;;21,"V93.10XS ")
 ;;557
 ;;21,"V93.11XA ")
 ;;558
 ;;21,"V93.11XD ")
 ;;559
 ;;21,"V93.11XS ")
 ;;560
 ;;21,"V93.12XA ")
 ;;561
 ;;21,"V93.12XD ")
 ;;562
 ;;21,"V93.12XS ")
 ;;563
 ;;21,"V93.13XA ")
 ;;564
 ;;21,"V93.13XD ")
 ;;565
 ;;21,"V93.13XS ")
 ;;566
 ;;21,"V93.14XA ")
 ;;567
 ;;21,"V93.14XD ")
 ;;568
 ;;21,"V93.14XS ")
 ;;569
 ;;21,"V93.19XA ")
 ;;570
 ;;21,"V93.19XD ")
 ;;571
 ;;21,"V93.19XS ")
 ;;572
 ;;21,"V93.20XA ")
 ;;573
 ;;21,"V93.20XD ")
 ;;574
 ;;21,"V93.20XS ")
 ;;575
 ;;21,"V93.21XA ")
 ;;576
 ;;21,"V93.21XD ")
 ;;577
 ;;21,"V93.21XS ")
 ;;578
 ;;21,"V93.22XA ")
 ;;579
 ;;21,"V93.22XD ")
 ;;580
 ;;21,"V93.22XS ")
 ;;581
 ;;21,"V93.23XA ")
 ;;582
 ;;21,"V93.23XD ")
 ;;583
 ;;21,"V93.23XS ")
 ;;584
 ;;21,"V93.24XA ")
 ;;585
 ;;21,"V93.24XD ")
 ;;586
 ;;21,"V93.24XS ")
 ;;587
 ;;21,"V93.29XA ")
 ;;588
 ;;21,"V93.29XD ")
 ;;589
 ;;21,"V93.29XS ")
 ;;590
 ;;21,"V93.40XA ")
 ;;591
 ;;21,"V93.40XD ")
 ;;592
 ;;21,"V93.40XS ")
 ;;593
 ;;21,"V93.41XA ")
 ;;594
 ;;21,"V93.41XD ")
 ;;595
 ;;21,"V93.41XS ")
 ;;596
 ;;21,"V93.42XA ")
 ;;597
 ;;21,"V93.42XD ")
 ;;598
 ;;21,"V93.42XS ")
 ;;599
 ;;21,"V93.43XA ")
 ;;600
 ;;21,"V93.43XD ")
 ;;601
 ;;21,"V93.43XS ")
 ;;602
 ;;21,"V93.44XA ")
 ;;603
 ;;21,"V93.44XD ")
 ;;604
 ;;21,"V93.44XS ")
 ;;605
 ;;21,"V93.48XA ")
 ;;606
 ;;21,"V93.48XD ")
 ;;607
 ;;21,"V93.48XS ")
 ;;608
 ;;21,"V93.49XA ")
 ;;609
 ;;21,"V93.49XD ")
 ;;610
 ;;21,"V93.49XS ")
 ;;611
 ;;21,"V93.50XA ")
 ;;612
 ;;21,"V93.50XD ")
 ;;613
 ;
OTHER ; OTHER ROUTINES
 D ^ATXD5P10
 D ^ATXD5P11
 D ^ATXD5P12
 D ^ATXD5P13
 D ^ATXD5P14
 D ^ATXD5P15
 D ^ATXD5P16
 D ^ATXD5P17
 D ^ATXD5P18
 D ^ATXD5P19
 D ^ATXD5P2
 D ^ATXD5P20
 D ^ATXD5P21
 D ^ATXD5P22
 D ^ATXD5P23
 D ^ATXD5P24
 D ^ATXD5P3
 D ^ATXD5P4
 D ^ATXD5P5
 D ^ATXD5P6
 D ^ATXD5P7
 D ^ATXD5P8
 D ^ATXD5P9
 Q