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

BGP73F11.m

Go to the documentation of this file.
  1. BGP73F11 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  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,"54868-0425-00 ")
  1. ;;3355
  1. ;;21,"54868-0538-01 ")
  1. ;;3356
  1. ;;21,"54868-0538-02 ")
  1. ;;3357
  1. ;;21,"54868-0559-00 ")
  1. ;;3358
  1. ;;21,"54868-0654-00 ")
  1. ;;3359
  1. ;;21,"54868-0737-01 ")
  1. ;;3360
  1. ;;21,"54868-0840-00 ")
  1. ;;3361
  1. ;;21,"54868-0840-01 ")
  1. ;;3362
  1. ;;21,"54868-0840-02 ")
  1. ;;3363
  1. ;;21,"54868-0840-03 ")
  1. ;;3364
  1. ;;21,"54868-0840-04 ")
  1. ;;3365
  1. ;;21,"54868-0937-00 ")
  1. ;;3366
  1. ;;21,"54868-0937-01 ")
  1. ;;3367
  1. ;;21,"54868-0937-02 ")
  1. ;;3368
  1. ;;21,"54868-0939-05 ")
  1. ;;3369
  1. ;;21,"54868-0971-00 ")
  1. ;;3370
  1. ;;21,"54868-0971-01 ")
  1. ;;3371
  1. ;;21,"54868-1171-00 ")
  1. ;;3372
  1. ;;21,"54868-1171-01 ")
  1. ;;3373
  1. ;;21,"54868-1171-02 ")
  1. ;;3374
  1. ;;21,"54868-1171-03 ")
  1. ;;3375
  1. ;;21,"54868-1173-00 ")
  1. ;;3376
  1. ;;21,"54868-1173-01 ")
  1. ;;3377
  1. ;;21,"54868-1173-02 ")
  1. ;;3378
  1. ;;21,"54868-1173-04 ")
  1. ;;3379
  1. ;;21,"54868-1173-05 ")
  1. ;;3380
  1. ;;21,"54868-1173-06 ")
  1. ;;3381
  1. ;;21,"54868-1380-00 ")
  1. ;;3382
  1. ;;21,"54868-1380-01 ")
  1. ;;3383
  1. ;;21,"54868-1380-02 ")
  1. ;;3384
  1. ;;21,"54868-1380-03 ")
  1. ;;3385
  1. ;;21,"54868-1385-01 ")
  1. ;;3386
  1. ;;21,"54868-1385-02 ")
  1. ;;3387
  1. ;;21,"54868-1386-01 ")
  1. ;;3388
  1. ;;21,"54868-1386-02 ")
  1. ;;3389
  1. ;;21,"54868-1386-03 ")
  1. ;;3390
  1. ;;21,"54868-1386-04 ")
  1. ;;3391
  1. ;;21,"54868-1386-05 ")
  1. ;;3392
  1. ;;21,"54868-1387-00 ")
  1. ;;3393
  1. ;;21,"54868-1387-01 ")
  1. ;;3394
  1. ;;21,"54868-1387-02 ")
  1. ;;3395
  1. ;;21,"54868-1387-04 ")
  1. ;;3396
  1. ;;21,"54868-1392-00 ")
  1. ;;3397
  1. ;;21,"54868-1616-02 ")
  1. ;;3398
  1. ;;21,"54868-1780-01 ")
  1. ;;3399
  1. ;;21,"54868-1780-02 ")
  1. ;;3400
  1. ;;21,"54868-1857-00 ")
  1. ;;3401
  1. ;;21,"54868-1857-01 ")
  1. ;;3402
  1. ;;21,"54868-1857-02 ")
  1. ;;3403
  1. ;;21,"54868-1857-05 ")
  1. ;;3404
  1. ;;21,"54868-1857-06 ")
  1. ;;3405
  1. ;;21,"54868-1857-07 ")
  1. ;;3406
  1. ;;21,"54868-2390-00 ")
  1. ;;3407
  1. ;;21,"54868-2390-01 ")
  1. ;;3408
  1. ;;21,"54868-2391-00 ")
  1. ;;3409
  1. ;;21,"54868-2391-01 ")
  1. ;;3410
  1. ;;21,"54868-2391-02 ")
  1. ;;3411
  1. ;;21,"54868-2391-03 ")
  1. ;;3412
  1. ;;21,"54868-2391-04 ")
  1. ;;3413
  1. ;;21,"54868-2488-01 ")
  1. ;;3414
  1. ;;21,"54868-2840-00 ")
  1. ;;3415
  1. ;;21,"54868-2840-01 ")
  1. ;;3416
  1. ;;21,"54868-2910-00 ")
  1. ;;3417
  1. ;;21,"54868-3105-00 ")
  1. ;;3418
  1. ;;21,"54868-3105-01 ")
  1. ;;3419
  1. ;;21,"54868-3105-02 ")
  1. ;;3420
  1. ;;21,"54868-3105-03 ")
  1. ;;3421
  1. ;;21,"54868-3107-01 ")
  1. ;;3422
  1. ;;21,"54868-3107-02 ")
  1. ;;3423
  1. ;;21,"54868-3107-03 ")
  1. ;;3424
  1. ;;21,"54868-3107-06 ")
  1. ;;3425
  1. ;;21,"54868-3107-07 ")
  1. ;;3426
  1. ;;21,"54868-3107-09 ")
  1. ;;3427
  1. ;;21,"54868-3109-00 ")
  1. ;;3428
  1. ;;21,"54868-3109-01 ")
  1. ;;3429
  1. ;;21,"54868-3109-02 ")
  1. ;;3430
  1. ;;21,"54868-3109-06 ")
  1. ;;3431
  1. ;;21,"54868-3109-07 ")
  1. ;;3432
  1. ;;21,"54868-3109-08 ")
  1. ;;3433
  1. ;;21,"54868-3109-09 ")
  1. ;;3434
  1. ;;21,"54868-3113-00 ")
  1. ;;3435
  1. ;;21,"54868-3113-03 ")
  1. ;;3436
  1. ;;21,"54868-3113-05 ")
  1. ;;3437
  1. ;;21,"54868-3113-07 ")
  1. ;;3438
  1. ;;21,"54868-3113-08 ")
  1. ;;3439
  1. ;;21,"54868-3113-09 ")
  1. ;;3440
  1. ;;21,"54868-3169-00 ")
  1. ;;3441
  1. ;;21,"54868-3169-01 ")
  1. ;;3442
  1. ;;21,"54868-3169-02 ")
  1. ;;3443
  1. ;;21,"54868-3169-04 ")
  1. ;;3444
  1. ;;21,"54868-3169-05 ")
  1. ;;3445
  1. ;;21,"54868-3244-00 ")
  1. ;;3446
  1. ;;21,"54868-3384-00 ")
  1. ;;3447
  1. ;;21,"54868-3480-00 ")
  1. ;;3448
  1. ;;21,"54868-3695-00 ")
  1. ;;3449
  1. ;;21,"54868-3742-01 ")
  1. ;;3450
  1. ;;21,"54868-3742-02 ")
  1. ;;3451
  1. ;;21,"54868-3742-03 ")
  1. ;;3452
  1. ;;21,"54868-3923-00 ")
  1. ;;3453
  1. ;;21,"54868-3923-01 ")
  1. ;;3454
  1. ;;21,"54868-3923-02 ")
  1. ;;3455
  1. ;;21,"54868-3923-03 ")
  1. ;;3456
  1. ;;21,"54868-3923-04 ")
  1. ;;3457
  1. ;;21,"54868-3923-05 ")
  1. ;;3458
  1. ;;21,"54868-4047-00 ")
  1. ;;3459
  1. ;;21,"54868-4078-01 ")
  1. ;;3460
  1. ;;21,"54868-4125-01 ")
  1. ;;3461
  1. ;;21,"54868-4125-02 ")
  1. ;;3462
  1. ;;21,"54868-4150-01 ")
  1. ;;3463
  1. ;;21,"54868-4150-02 ")
  1. ;;3464
  1. ;;21,"54868-4154-00 ")
  1. ;;3465
  1. ;;21,"54868-4155-00 ")
  1. ;;3466
  1. ;;21,"54868-4155-01 ")
  1. ;;3467
  1. ;;21,"54868-4155-02 ")
  1. ;;3468
  1. ;;21,"54868-4155-03 ")
  1. ;;3469
  1. ;;21,"54868-4175-00 ")
  1. ;;3470
  1. ;;21,"54868-4175-01 ")
  1. ;;3471
  1. ;;21,"54868-4175-02 ")
  1. ;;3472
  1. ;;21,"54868-4175-03 ")
  1. ;;3473
  1. ;;21,"54868-4175-04 ")
  1. ;;3474
  1. ;;21,"54868-4175-05 ")
  1. ;;3475
  1. ;;21,"54868-4191-00 ")
  1. ;;3476
  1. ;;21,"54868-4191-01 ")
  1. ;;3477
  1. ;;21,"54868-4366-00 ")
  1. ;;3478
  1. ;;21,"54868-4366-01 ")
  1. ;;3479
  1. ;;21,"54868-4367-00 ")
  1. ;;3480
  1. ;;21,"54868-4367-01 ")
  1. ;;3481
  1. ;;21,"54868-4367-02 ")
  1. ;;3482
  1. ;;21,"54868-4367-03 ")
  1. ;;3483
  1. ;;21,"54868-4468-00 ")
  1. ;;3484
  1. ;;21,"54868-4488-00 ")
  1. ;;3485
  1. ;;21,"54868-4527-00 ")
  1. ;;3486
  1. ;;21,"54868-4543-00 ")
  1. ;;3487
  1. ;;21,"54868-4543-01 ")
  1. ;;3488
  1. ;;21,"54868-4543-02 ")
  1. ;;3489
  1. ;;21,"54868-4547-00 ")
  1. ;;3490
  1. ;;21,"54868-4644-01 ")
  1. ;;3491
  1. ;;21,"54868-4651-00 ")
  1. ;;3492
  1. ;;21,"54868-4682-00 ")
  1. ;;3493
  1. ;;21,"54868-4682-01 ")
  1. ;;3494
  1. ;;21,"54868-4735-01 ")
  1. ;;3495
  1. ;;21,"54868-4735-02 ")
  1. ;;3496
  1. ;;21,"54868-4743-00 ")
  1. ;;3497
  1. ;;21,"54868-4743-01 ")
  1. ;;3498
  1. ;;21,"54868-4743-02 ")
  1. ;;3499
  1. ;;21,"54868-4858-00 ")
  1. ;;3500
  1. ;;21,"54868-4858-01 ")
  1. ;;3501
  1. ;;21,"54868-4858-02 ")
  1. ;;3502
  1. ;;21,"54868-4858-03 ")
  1. ;;3503
  1. ;;21,"54868-4858-04 ")
  1. ;;3504
  1. ;;21,"54868-4858-05 ")
  1. ;;3505
  1. ;;21,"54868-4858-06 ")
  1. ;;3506
  1. ;;21,"54868-4858-07 ")
  1. ;;3507
  1. ;;21,"54868-4858-08 ")
  1. ;;3508
  1. ;;21,"54868-4898-00 ")
  1. ;;3509
  1. ;;21,"54868-4898-01 ")
  1. ;;3510
  1. ;;21,"54868-4898-02 ")
  1. ;;3511
  1. ;;21,"54868-4898-03 ")
  1. ;;3512
  1. ;;21,"54868-4898-04 ")
  1. ;;3513
  1. ;;21,"54868-4919-00 ")
  1. ;;3514
  1. ;;21,"54868-4951-00 ")
  1. ;;3515
  1. ;;21,"54868-4951-01 ")
  1. ;;3516
  1. ;;21,"54868-4951-02 ")
  1. ;;3517
  1. ;;21,"54868-4971-00 ")
  1. ;;3518
  1. ;;21,"54868-4990-00 ")
  1. ;;3519
  1. ;;21,"54868-5023-00 ")
  1. ;;3520
  1. ;;21,"54868-5023-01 ")
  1. ;;3521
  1. ;;21,"54868-5040-00 ")
  1. ;;3522
  1. ;;21,"54868-5040-01 ")
  1. ;;3523
  1. ;;21,"54868-5040-02 ")
  1. ;;3524
  1. ;;21,"54868-5101-00 ")
  1. ;;3525
  1. ;;21,"54868-5101-01 ")
  1. ;;3526
  1. ;;21,"54868-5101-02 ")
  1. ;;3527
  1. ;;21,"54868-5211-00 ")
  1. ;;3528
  1. ;;21,"54868-5211-01 ")
  1. ;;3529
  1. ;;21,"54868-5211-02 ")
  1. ;;3530
  1. ;;21,"54868-5211-03 ")
  1. ;;3531
  1. ;;21,"54868-5211-04 ")
  1. ;;3532
  1. ;;21,"54868-5269-00 ")
  1. ;;3533
  1. ;;21,"54868-5404-00 ")
  1. ;;3534
  1. ;;21,"54868-5430-00 ")
  1. ;;3535
  1. ;;21,"54868-5430-01 ")
  1. ;;3536
  1. ;;21,"54868-5430-02 ")
  1. ;;3537
  1. ;;21,"54868-5471-00 ")
  1. ;;3538
  1. ;;21,"54868-5478-00 ")
  1. ;;3539
  1. ;;21,"54868-5478-01 ")
  1. ;;3540
  1. ;;21,"54868-5478-02 ")
  1. ;;3541
  1. ;;21,"54868-5487-00 ")
  1. ;;3542
  1. ;;21,"54868-5533-00 ")
  1. ;;3543
  1. ;;21,"54868-5589-00 ")
  1. ;;3544
  1. ;;21,"54868-5647-00 ")
  1. ;;3545
  1. ;;21,"54868-5648-00 ")
  1. ;;3546
  1. ;;21,"54868-5648-01 ")
  1. ;;3547
  1. ;;21,"54868-5648-02 ")
  1. ;;3548
  1. ;;21,"54868-5676-00 ")
  1. ;;3549
  1. ;;21,"54868-5767-00 ")
  1. ;;3550
  1. ;;21,"54868-5768-00 ")
  1. ;;3551
  1. ;;21,"54868-5768-01 ")
  1. ;;3552
  1. ;;21,"54868-5769-00 ")
  1. ;;3553
  1. ;;21,"54868-5769-01 ")
  1. ;;3554
  1. ;;21,"54868-5833-00 ")
  1. ;;3555
  1. ;;21,"54879-0007-16 ")
  1. ;;3556
  1. ;;21,"55045-1170-00 ")
  1. ;;3557
  1. ;;21,"55045-1170-01 ")
  1. ;;3558
  1. ;;21,"55045-1176-01 ")
  1. ;;3559
  1. ;;21,"55045-1189-01 ")
  1. ;;3560
  1. ;;21,"55045-1199-03 ")
  1. ;;3561
  1. ;;21,"55045-1201-03 ")
  1. ;;3562
  1. ;;21,"55045-1201-07 ")
  1. ;;3563
  1. ;;21,"55045-1201-08 ")
  1. ;;3564
  1. ;;21,"55045-1202-00 ")
  1. ;;3565
  1. ;;21,"55045-1202-01 ")
  1. ;;3566
  1. ;;21,"55045-1202-02 ")
  1. ;;3567
  1. ;;21,"55045-1202-03 ")
  1. ;;3568
  1. ;;21,"55045-1202-04 ")
  1. ;;3569
  1. ;;21,"55045-1202-05 ")
  1. ;;3570
  1. ;;21,"55045-1202-06 ")
  1. ;;3571
  1. ;;21,"55045-1202-07 ")
  1. ;;3572
  1. ;;21,"55045-1202-08 ")
  1. ;;3573
  1. ;;21,"55045-1202-09 ")
  1. ;;3574
  1. ;;21,"55045-1204-09 ")
  1. ;;3575
  1. ;;21,"55045-1207-00 ")
  1. ;;3576
  1. ;;21,"55045-1207-01 ")
  1. ;;3577
  1. ;;21,"55045-1207-02 ")
  1. ;;3578
  1. ;;21,"55045-1207-03 ")
  1. ;;3579
  1. ;;21,"55045-1207-04 ")
  1. ;;3580
  1. ;;21,"55045-1207-05 ")
  1. ;;3581
  1. ;;21,"55045-1207-06 ")
  1. ;;3582
  1. ;;21,"55045-1207-07 ")
  1. ;;3583
  1. ;;21,"55045-1207-08 ")
  1. ;;3584
  1. ;;21,"55045-1210-00 ")
  1. ;;3585
  1. ;;21,"55045-1210-01 ")
  1. ;;3586
  1. ;;21,"55045-1210-03 ")
  1. ;;3587
  1. ;;21,"55045-1210-05 ")
  1. ;;3588
  1. ;;21,"55045-1210-06 ")
  1. ;;3589
  1. ;;21,"55045-1210-07 ")
  1. ;;3590
  1. ;;21,"55045-1210-08 ")
  1. ;;3591
  1. ;;21,"55045-1210-09 ")
  1. ;;3592
  1. ;;21,"55045-1227-00 ")
  1. ;;3593
  1. ;;21,"55045-1227-01 ")
  1. ;;3594
  1. ;;21,"55045-1227-02 ")
  1. ;;3595
  1. ;;21,"55045-1227-03 ")
  1. ;;3596
  1. ;;21,"55045-1227-04 ")
  1. ;;3597
  1. ;;21,"55045-1227-06 ")
  1. ;;3598
  1. ;;21,"55045-1227-07 ")
  1. ;;3599
  1. ;;21,"55045-1227-08 ")
  1. ;;3600
  1. ;;21,"55045-1227-09 ")
  1. ;;3601
  1. ;;21,"55045-1247-01 ")
  1. ;;3602
  1. ;;21,"55045-1258-07 ")
  1. ;;3603
  1. ;;21,"55045-1262-09 ")
  1. ;;3604
  1. ;;21,"55045-1270-03 ")
  1. ;;3605
  1. ;;21,"55045-1270-04 ")
  1. ;;3606
  1. ;;21,"55045-1270-06 ")
  1. ;;3607
  1. ;;21,"55045-1322-00 ")
  1. ;;3608
  1. ;;21,"55045-1322-01 ")
  1. ;;3609
  1. ;;21,"55045-1322-02 ")
  1. ;;3610
  1. ;;21,"55045-1322-03 ")
  1. ;;3611
  1. ;;21,"55045-1322-04 ")
  1. ;;3612
  1. ;;21,"55045-1322-05 ")
  1. ;;3613
  1. ;;21,"55045-1322-06 ")
  1. ;;3614
  1. ;;21,"55045-1322-07 ")
  1. ;;3615
  1. ;;21,"55045-1322-08 ")
  1. ;;3616
  1. ;;21,"55045-1322-09 ")
  1. ;;3617
  1. ;;21,"55045-1442-01 ")
  1. ;;3618
  1. ;;21,"55045-1469-09 ")
  1. ;;3619
  1. ;;21,"55045-1494-03 ")
  1. ;;3620
  1. ;;21,"55045-1494-05 ")
  1. ;;3621
  1. ;;21,"55045-1494-08 ")
  1. ;;3622
  1. ;;21,"55045-1494-09 ")
  1. ;;3623
  1. ;;21,"55045-1500-09 ")
  1. ;;3624
  1. ;;21,"55045-1514-06 ")
  1. ;;3625
  1. ;;21,"55045-1546-02 ")
  1. ;;3626
  1. ;;21,"55045-1546-03 ")
  1. ;;3627
  1. ;;21,"55045-1546-05 ")
  1. ;;3628
  1. ;;21,"55045-1546-07 ")
  1. ;;3629
  1. ;;21,"55045-1650-02 ")
  1. ;;3630
  1. ;;21,"55045-1865-07 ")
  1. ;;3631
  1. ;;21,"55045-1918-00 ")
  1. ;;3632
  1. ;;21,"55045-1918-01 ")
  1. ;;3633
  1. ;;21,"55045-1918-02 ")
  1. ;;3634
  1. ;;21,"55045-1918-03 ")
  1. ;;3635
  1. ;;21,"55045-1918-06 ")
  1. ;;3636
  1. ;;21,"55045-1918-07 ")
  1. ;;3637
  1. ;;21,"55045-1918-08 ")
  1. ;;3638
  1. ;;21,"55045-1918-09 ")
  1. ;;3639
  1. ;;21,"55045-2004-00 ")
  1. ;;3640
  1. ;;21,"55045-2004-04 ")
  1. ;;3641
  1. ;;21,"55045-2004-05 ")
  1. ;;3642
  1. ;;21,"55045-2004-06 ")
  1. ;;3643
  1. ;;21,"55045-2004-08 ")
  1. ;;3644
  1. ;;21,"55045-2006-00 ")
  1. ;;3645
  1. ;;21,"55045-2006-01 ")
  1. ;;3646
  1. ;;21,"55045-2006-02 ")
  1. ;;3647
  1. ;;21,"55045-2006-03 ")
  1. ;;3648
  1. ;;21,"55045-2006-04 ")
  1. ;;3649
  1. ;;21,"55045-2006-05 ")
  1. ;;3650
  1. ;;21,"55045-2006-06 ")
  1. ;;3651
  1. ;;21,"55045-2006-07 ")
  1. ;;3652
  1. ;;21,"55045-2006-08 ")
  1. ;;3653
  1. ;;21,"55045-2006-09 ")
  1. ;;3654
  1. ;;21,"55045-2012-02 ")
  1. ;;3655
  1. ;;21,"55045-2012-05 ")
  1. ;;3656
  1. ;;21,"55045-2012-08 ")
  1. ;;3657
  1. ;;21,"55045-2012-09 ")
  1. ;;3658
  1. ;;21,"55045-2076-03 ")
  1. ;;3659
  1. ;;21,"55045-2076-04 ")
  1. ;;3660
  1. ;;21,"55045-2076-06 ")
  1. ;;3661
  1. ;;21,"55045-2162-04 ")
  1. ;;3662
  1. ;;21,"55045-2162-07 ")
  1. ;;3663
  1. ;;21,"55045-2162-08 ")
  1. ;;3664
  1. ;;21,"55045-2302-03 ")
  1. ;;3665
  1. ;;21,"55045-2372-05 ")
  1. ;;3666
  1. ;;21,"55045-2373-05 ")
  1. ;;3667
  1. ;;21,"55045-2373-06 ")
  1. ;;3668
  1. ;;21,"55045-2373-08 ")
  1. ;;3669
  1. ;;21,"55045-2426-01 ")
  1. ;;3670
  1. ;;21,"55045-2426-02 ")
  1. ;;3671
  1. ;;21,"55045-2426-03 ")
  1. ;;3672
  1. ;;21,"55045-2426-06 ")
  1. ;;3673
  1. ;;21,"55045-2426-07 ")
  1. ;;3674
  1. ;;21,"55045-2426-08 ")
  1. ;;3675
  1. ;;21,"55045-2492-06 ")
  1. ;;3676
  1. ;;21,"55045-2597-01 ")
  1. ;;3677
  1. ;;21,"55045-2597-02 ")
  1. ;;3678
  1. ;;21,"55045-2597-03 ")
  1. ;;3679
  1. ;;21,"55045-2597-05 ")
  1. ;;3680
  1. ;;21,"55045-2597-06 ")
  1. ;;3681
  1. ;;21,"55045-2597-08 ")
  1. ;;3682
  1. ;;21,"55045-2598-03 ")
  1. ;;3683
  1. ;;21,"55045-2610-01 ")
  1. ;;3684
  1. ;;21,"55045-2610-02 ")
  1. ;;3685
  1. ;;21,"55045-2610-04 ")
  1. ;;3686
  1. ;;21,"55045-2610-06 ")
  1. ;;3687