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

BJPC2UJC.m

Go to the documentation of this file.
  1. BJPC2UJC ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 17, 2009;
  1. ;;2.0;IHS PCC SUITE;;MAY 14, 2009
  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. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"00405-4990-01 ")
  1. ;;305
  1. ;;21,"00430-0214-24 ")
  1. ;;306
  1. ;;21,"00430-0221-24 ")
  1. ;;307
  1. ;;21,"00456-0646-00 ")
  1. ;;308
  1. ;;21,"00456-0646-01 ")
  1. ;;309
  1. ;;21,"00456-0646-63 ")
  1. ;;310
  1. ;;21,"00456-0647-01 ")
  1. ;;311
  1. ;;21,"00456-0647-63 ")
  1. ;;312
  1. ;;21,"00456-4310-01 ")
  1. ;;313
  1. ;;21,"00456-4310-02 ")
  1. ;;314
  1. ;;21,"00456-4320-00 ")
  1. ;;315
  1. ;;21,"00456-4320-01 ")
  1. ;;316
  1. ;;21,"00456-4320-02 ")
  1. ;;317
  1. ;;21,"00456-4330-00 ")
  1. ;;318
  1. ;;21,"00456-4330-01 ")
  1. ;;319
  1. ;;21,"00456-4330-02 ")
  1. ;;320
  1. ;;21,"00456-4345-01 ")
  1. ;;321
  1. ;;21,"00463-3027-01 ")
  1. ;;322
  1. ;;21,"00472-0750-21 ")
  1. ;;323
  1. ;;21,"00472-0750-60 ")
  1. ;;324
  1. ;;21,"00472-0752-21 ")
  1. ;;325
  1. ;;21,"00472-0752-60 ")
  1. ;;326
  1. ;;21,"00536-4650-01 ")
  1. ;;327
  1. ;;21,"00536-4651-01 ")
  1. ;;328
  1. ;;21,"00536-4651-05 ")
  1. ;;329
  1. ;;21,"00536-4651-10 ")
  1. ;;330
  1. ;;21,"00536-4652-01 ")
  1. ;;331
  1. ;;21,"00536-4652-05 ")
  1. ;;332
  1. ;;21,"00536-4652-10 ")
  1. ;;333
  1. ;;21,"00536-4653-01 ")
  1. ;;334
  1. ;;21,"00536-4657-01 ")
  1. ;;335
  1. ;;21,"00536-4657-05 ")
  1. ;;336
  1. ;;21,"00536-4996-01 ")
  1. ;;337
  1. ;;21,"00536-4997-01 ")
  1. ;;338
  1. ;;21,"00536-4997-05 ")
  1. ;;339
  1. ;;21,"00536-4997-10 ")
  1. ;;340
  1. ;;21,"00536-4998-01 ")
  1. ;;341
  1. ;;21,"00536-4998-05 ")
  1. ;;342
  1. ;;21,"00536-4998-10 ")
  1. ;;343
  1. ;;21,"00536-5632-01 ")
  1. ;;344
  1. ;;21,"00536-5633-01 ")
  1. ;;345
  1. ;;21,"00536-5634-01 ")
  1. ;;346
  1. ;;21,"00537-6443-01 ")
  1. ;;347
  1. ;;21,"00537-6444-01 ")
  1. ;;348
  1. ;;21,"00537-6445-01 ")
  1. ;;349
  1. ;;21,"00580-0704-01 ")
  1. ;;350
  1. ;;21,"00580-0704-05 ")
  1. ;;351
  1. ;;21,"00580-0875-01 ")
  1. ;;352
  1. ;;21,"00580-0875-05 ")
  1. ;;353
  1. ;;21,"00585-0673-02 ")
  1. ;;354
  1. ;;21,"00585-0673-03 ")
  1. ;;355
  1. ;;21,"00585-0675-01 ")
  1. ;;356
  1. ;;21,"00585-0675-02 ")
  1. ;;357
  1. ;;21,"00585-0685-02 ")
  1. ;;358
  1. ;;21,"00585-0685-04 ")
  1. ;;359
  1. ;;21,"00597-0048-01 ")
  1. ;;360
  1. ;;21,"00597-0049-01 ")
  1. ;;361
  1. ;;21,"00603-5747-21 ")
  1. ;;362
  1. ;;21,"00603-5944-21 ")
  1. ;;363
  1. ;;21,"00603-5944-28 ")
  1. ;;364
  1. ;;21,"00603-5945-21 ")
  1. ;;365
  1. ;;21,"00603-5945-28 ")
  1. ;;366
  1. ;;21,"00603-5945-29 ")
  1. ;;367
  1. ;;21,"00603-5945-32 ")
  1. ;;368
  1. ;;21,"00603-5946-21 ")
  1. ;;369
  1. ;;21,"00603-5946-28 ")
  1. ;;370
  1. ;;21,"00603-5946-29 ")
  1. ;;371
  1. ;;21,"00603-5946-32 ")
  1. ;;372
  1. ;;21,"00603-5949-21 ")
  1. ;;373
  1. ;;21,"00603-5950-21 ")
  1. ;;374
  1. ;;21,"00603-5951-21 ")
  1. ;;375
  1. ;;21,"00603-5952-21 ")
  1. ;;376
  1. ;;21,"00675-4024-07 ")
  1. ;;377
  1. ;;21,"00675-4024-10 ")
  1. ;;378
  1. ;;21,"00677-0817-01 ")
  1. ;;379
  1. ;;21,"00677-0817-05 ")
  1. ;;380
  1. ;;21,"00677-0845-01 ")
  1. ;;381
  1. ;;21,"00677-0846-01 ")
  1. ;;382
  1. ;;21,"00677-0846-05 ")
  1. ;;383
  1. ;;21,"00677-1410-01 ")
  1. ;;384
  1. ;;21,"00686-1689-20 ")
  1. ;;385
  1. ;;21,"00686-1690-20 ")
  1. ;;386
  1. ;;21,"00719-1939-10 ")
  1. ;;387
  1. ;;21,"00719-1942-10 ")
  1. ;;388
  1. ;;21,"00719-1942-13 ")
  1. ;;389
  1. ;;21,"00719-1943-10 ")
  1. ;;390
  1. ;;21,"00719-1943-12 ")
  1. ;;391
  1. ;;21,"00719-1943-13 ")
  1. ;;392
  1. ;;21,"00719-1970-10 ")
  1. ;;393
  1. ;;21,"00719-1970-13 ")
  1. ;;394
  1. ;;21,"00781-1003-01 ")
  1. ;;395
  1. ;;21,"00781-1004-01 ")
  1. ;;396
  1. ;;21,"00781-1004-05 ")
  1. ;;397
  1. ;;21,"00781-1004-13 ")
  1. ;;398
  1. ;;21,"00781-1005-01 ")
  1. ;;399
  1. ;;21,"00781-1005-05 ")
  1. ;;400
  1. ;;21,"00781-1005-13 ")
  1. ;;401
  1. ;;21,"00781-1928-01 ")
  1. ;;402
  1. ;;21,"00814-7801-14 ")
  1. ;;403
  1. ;;21,"00814-7801-28 ")
  1. ;;404
  1. ;;21,"00814-7802-14 ")
  1. ;;405
  1. ;;21,"00814-7802-28 ")
  1. ;;406
  1. ;;21,"00814-7805-14 ")
  1. ;;407
  1. ;;21,"00814-7805-28 ")
  1. ;;408
  1. ;;21,"00839-6693-06 ")
  1. ;;409
  1. ;;21,"00839-6693-12 ")
  1. ;;410
  1. ;;21,"00839-6693-16 ")
  1. ;;411
  1. ;;21,"00839-6729-06 ")
  1. ;;412
  1. ;;21,"00839-6729-12 ")
  1. ;;413
  1. ;;21,"00839-6729-16 ")
  1. ;;414
  1. ;;21,"00839-6730-06 ")
  1. ;;415
  1. ;;21,"00839-6730-12 ")
  1. ;;416
  1. ;;21,"00839-6799-16 ")
  1. ;;417
  1. ;;21,"00839-7651-06 ")
  1. ;;418
  1. ;;21,"00839-7705-06 ")
  1. ;;419
  1. ;;21,"00839-7706-06 ")
  1. ;;420
  1. ;;21,"00839-7706-12 ")
  1. ;;421
  1. ;;21,"00839-7707-12 ")
  1. ;;422
  1. ;;21,"00839-7707-16 ")
  1. ;;423
  1. ;;21,"00839-7885-06 ")
  1. ;;424
  1. ;;21,"00839-7886-06 ")
  1. ;;425
  1. ;;21,"00839-7887-06 ")
  1. ;;426
  1. ;;21,"00839-7888-06 ")
  1. ;;427
  1. ;;21,"00904-1610-40 ")
  1. ;;428
  1. ;;21,"00904-1610-60 ")
  1. ;;429
  1. ;;21,"00904-1610-61 ")
  1. ;;430
  1. ;;21,"00904-1611-40 ")
  1. ;;431
  1. ;;21,"00904-1611-60 ")
  1. ;;432
  1. ;;21,"00904-1611-61 ")
  1. ;;433
  1. ;;21,"00904-1611-80 ")
  1. ;;434
  1. ;;21,"00904-1612-40 ")
  1. ;;435
  1. ;;21,"00904-1612-60 ")
  1. ;;436
  1. ;;21,"00904-1612-61 ")
  1. ;;437
  1. ;;21,"00904-1612-80 ")
  1. ;;438
  1. ;;21,"00904-1613-60 ")
  1. ;;439
  1. ;;21,"00904-7846-60 ")
  1. ;;440
  1. ;;21,"00904-7847-60 ")
  1. ;;441
  1. ;;21,"00904-7848-60 ")
  1. ;;442
  1. ;;21,"00904-7849-60 ")
  1. ;;443
  1. ;;21,"11517-3169-01 ")
  1. ;;444
  1. ;;21,"11517-3169-02 ")
  1. ;;445
  1. ;;21,"11517-3169-09 ")
  1. ;;446
  1. ;;21,"11845-0358-01 ")
  1. ;;447
  1. ;;21,"11845-0358-03 ")
  1. ;;448
  1. ;;21,"11845-0359-01 ")
  1. ;;449
  1. ;;21,"11845-0359-03 ")
  1. ;;450
  1. ;;21,"11845-0359-04 ")
  1. ;;451
  1. ;;21,"11845-0360-01 ")
  1. ;;452
  1. ;;21,"11845-0360-03 ")
  1. ;;453
  1. ;;21,"11845-0360-04 ")
  1. ;;454
  1. ;;21,"12525-0675-01 ")
  1. ;;455
  1. ;;21,"12525-0675-02 ")
  1. ;;456
  1. ;;21,"12525-0675-99 ")
  1. ;;457