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

ATXFBQ2.m

Go to the documentation of this file.
  1. ATXFBQ2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON DEC 18, 2017;
  1. ;;5.1;TAXONOMY;**25**;FEB 04, 1997;Build 47
  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. ;;9002226.02101,"2218,E10.3213 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3219 ",.01)
  1. ;;E10.3219
  1. ;;9002226.02101,"2218,E10.3219 ",.02)
  1. ;;E10.3219
  1. ;;9002226.02101,"2218,E10.3219 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.329 ",.01)
  1. ;;E10.329
  1. ;;9002226.02101,"2218,E10.329 ",.02)
  1. ;;E10.329
  1. ;;9002226.02101,"2218,E10.329 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3291 ",.01)
  1. ;;E10.3291
  1. ;;9002226.02101,"2218,E10.3291 ",.02)
  1. ;;E10.3291
  1. ;;9002226.02101,"2218,E10.3291 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3292 ",.01)
  1. ;;E10.3292
  1. ;;9002226.02101,"2218,E10.3292 ",.02)
  1. ;;E10.3292
  1. ;;9002226.02101,"2218,E10.3292 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3293 ",.01)
  1. ;;E10.3293
  1. ;;9002226.02101,"2218,E10.3293 ",.02)
  1. ;;E10.3293
  1. ;;9002226.02101,"2218,E10.3293 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3299 ",.01)
  1. ;;E10.3299
  1. ;;9002226.02101,"2218,E10.3299 ",.02)
  1. ;;E10.3299
  1. ;;9002226.02101,"2218,E10.3299 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.331 ",.01)
  1. ;;E10.331
  1. ;;9002226.02101,"2218,E10.331 ",.02)
  1. ;;E10.331
  1. ;;9002226.02101,"2218,E10.331 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3311 ",.01)
  1. ;;E10.3311
  1. ;;9002226.02101,"2218,E10.3311 ",.02)
  1. ;;E10.3311
  1. ;;9002226.02101,"2218,E10.3311 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3312 ",.01)
  1. ;;E10.3312
  1. ;;9002226.02101,"2218,E10.3312 ",.02)
  1. ;;E10.3312
  1. ;;9002226.02101,"2218,E10.3312 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3313 ",.01)
  1. ;;E10.3313
  1. ;;9002226.02101,"2218,E10.3313 ",.02)
  1. ;;E10.3313
  1. ;;9002226.02101,"2218,E10.3313 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3319 ",.01)
  1. ;;E10.3319
  1. ;;9002226.02101,"2218,E10.3319 ",.02)
  1. ;;E10.3319
  1. ;;9002226.02101,"2218,E10.3319 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.339 ",.01)
  1. ;;E10.339
  1. ;;9002226.02101,"2218,E10.339 ",.02)
  1. ;;E10.339
  1. ;;9002226.02101,"2218,E10.339 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3391 ",.01)
  1. ;;E10.3391
  1. ;;9002226.02101,"2218,E10.3391 ",.02)
  1. ;;E10.3391
  1. ;;9002226.02101,"2218,E10.3391 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3392 ",.01)
  1. ;;E10.3392
  1. ;;9002226.02101,"2218,E10.3392 ",.02)
  1. ;;E10.3392
  1. ;;9002226.02101,"2218,E10.3392 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3393 ",.01)
  1. ;;E10.3393
  1. ;;9002226.02101,"2218,E10.3393 ",.02)
  1. ;;E10.3393
  1. ;;9002226.02101,"2218,E10.3393 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3399 ",.01)
  1. ;;E10.3399
  1. ;;9002226.02101,"2218,E10.3399 ",.02)
  1. ;;E10.3399
  1. ;;9002226.02101,"2218,E10.3399 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.341 ",.01)
  1. ;;E10.341
  1. ;;9002226.02101,"2218,E10.341 ",.02)
  1. ;;E10.341
  1. ;;9002226.02101,"2218,E10.341 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3411 ",.01)
  1. ;;E10.3411
  1. ;;9002226.02101,"2218,E10.3411 ",.02)
  1. ;;E10.3411
  1. ;;9002226.02101,"2218,E10.3411 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3412 ",.01)
  1. ;;E10.3412
  1. ;;9002226.02101,"2218,E10.3412 ",.02)
  1. ;;E10.3412
  1. ;;9002226.02101,"2218,E10.3412 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3413 ",.01)
  1. ;;E10.3413
  1. ;;9002226.02101,"2218,E10.3413 ",.02)
  1. ;;E10.3413
  1. ;;9002226.02101,"2218,E10.3413 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3419 ",.01)
  1. ;;E10.3419
  1. ;;9002226.02101,"2218,E10.3419 ",.02)
  1. ;;E10.3419
  1. ;;9002226.02101,"2218,E10.3419 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.349 ",.01)
  1. ;;E10.349
  1. ;;9002226.02101,"2218,E10.349 ",.02)
  1. ;;E10.349
  1. ;;9002226.02101,"2218,E10.349 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3491 ",.01)
  1. ;;E10.3491
  1. ;;9002226.02101,"2218,E10.3491 ",.02)
  1. ;;E10.3491
  1. ;;9002226.02101,"2218,E10.3491 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3492 ",.01)
  1. ;;E10.3492
  1. ;;9002226.02101,"2218,E10.3492 ",.02)
  1. ;;E10.3492
  1. ;;9002226.02101,"2218,E10.3492 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3493 ",.01)
  1. ;;E10.3493
  1. ;;9002226.02101,"2218,E10.3493 ",.02)
  1. ;;E10.3493
  1. ;;9002226.02101,"2218,E10.3493 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3499 ",.01)
  1. ;;E10.3499
  1. ;;9002226.02101,"2218,E10.3499 ",.02)
  1. ;;E10.3499
  1. ;;9002226.02101,"2218,E10.3499 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.351 ",.01)
  1. ;;E10.351
  1. ;;9002226.02101,"2218,E10.351 ",.02)
  1. ;;E10.351
  1. ;;9002226.02101,"2218,E10.351 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3511 ",.01)
  1. ;;E10.3511
  1. ;;9002226.02101,"2218,E10.3511 ",.02)
  1. ;;E10.3511
  1. ;;9002226.02101,"2218,E10.3511 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3512 ",.01)
  1. ;;E10.3512
  1. ;;9002226.02101,"2218,E10.3512 ",.02)
  1. ;;E10.3512
  1. ;;9002226.02101,"2218,E10.3512 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3513 ",.01)
  1. ;;E10.3513
  1. ;;9002226.02101,"2218,E10.3513 ",.02)
  1. ;;E10.3513
  1. ;;9002226.02101,"2218,E10.3513 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3519 ",.01)
  1. ;;E10.3519
  1. ;;9002226.02101,"2218,E10.3519 ",.02)
  1. ;;E10.3519
  1. ;;9002226.02101,"2218,E10.3519 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3521 ",.01)
  1. ;;E10.3521
  1. ;;9002226.02101,"2218,E10.3521 ",.02)
  1. ;;E10.3521
  1. ;;9002226.02101,"2218,E10.3521 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3522 ",.01)
  1. ;;E10.3522
  1. ;;9002226.02101,"2218,E10.3522 ",.02)
  1. ;;E10.3522
  1. ;;9002226.02101,"2218,E10.3522 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3523 ",.01)
  1. ;;E10.3523
  1. ;;9002226.02101,"2218,E10.3523 ",.02)
  1. ;;E10.3523
  1. ;;9002226.02101,"2218,E10.3523 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3529 ",.01)
  1. ;;E10.3529
  1. ;;9002226.02101,"2218,E10.3529 ",.02)
  1. ;;E10.3529
  1. ;;9002226.02101,"2218,E10.3529 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3531 ",.01)
  1. ;;E10.3531
  1. ;;9002226.02101,"2218,E10.3531 ",.02)
  1. ;;E10.3531
  1. ;;9002226.02101,"2218,E10.3531 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3532 ",.01)
  1. ;;E10.3532
  1. ;;9002226.02101,"2218,E10.3532 ",.02)
  1. ;;E10.3532
  1. ;;9002226.02101,"2218,E10.3532 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3533 ",.01)
  1. ;;E10.3533
  1. ;;9002226.02101,"2218,E10.3533 ",.02)
  1. ;;E10.3533
  1. ;;9002226.02101,"2218,E10.3533 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3539 ",.01)
  1. ;;E10.3539
  1. ;;9002226.02101,"2218,E10.3539 ",.02)
  1. ;;E10.3539
  1. ;;9002226.02101,"2218,E10.3539 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3541 ",.01)
  1. ;;E10.3541
  1. ;;9002226.02101,"2218,E10.3541 ",.02)
  1. ;;E10.3541
  1. ;;9002226.02101,"2218,E10.3541 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3542 ",.01)
  1. ;;E10.3542
  1. ;;9002226.02101,"2218,E10.3542 ",.02)
  1. ;;E10.3542
  1. ;;9002226.02101,"2218,E10.3542 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3543 ",.01)
  1. ;;E10.3543
  1. ;;9002226.02101,"2218,E10.3543 ",.02)
  1. ;;E10.3543
  1. ;;9002226.02101,"2218,E10.3543 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3549 ",.01)
  1. ;;E10.3549
  1. ;;9002226.02101,"2218,E10.3549 ",.02)
  1. ;;E10.3549
  1. ;;9002226.02101,"2218,E10.3549 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3551 ",.01)
  1. ;;E10.3551
  1. ;;9002226.02101,"2218,E10.3551 ",.02)
  1. ;;E10.3551
  1. ;;9002226.02101,"2218,E10.3551 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3552 ",.01)
  1. ;;E10.3552
  1. ;;9002226.02101,"2218,E10.3552 ",.02)
  1. ;;E10.3552
  1. ;;9002226.02101,"2218,E10.3552 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3553 ",.01)
  1. ;;E10.3553
  1. ;;9002226.02101,"2218,E10.3553 ",.02)
  1. ;;E10.3553
  1. ;;9002226.02101,"2218,E10.3553 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3559 ",.01)
  1. ;;E10.3559
  1. ;;9002226.02101,"2218,E10.3559 ",.02)
  1. ;;E10.3559
  1. ;;9002226.02101,"2218,E10.3559 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.359 ",.01)
  1. ;;E10.359
  1. ;;9002226.02101,"2218,E10.359 ",.02)
  1. ;;E10.359
  1. ;;9002226.02101,"2218,E10.359 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3591 ",.01)
  1. ;;E10.3591
  1. ;;9002226.02101,"2218,E10.3591 ",.02)
  1. ;;E10.3591
  1. ;;9002226.02101,"2218,E10.3591 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3592 ",.01)
  1. ;;E10.3592
  1. ;;9002226.02101,"2218,E10.3592 ",.02)
  1. ;;E10.3592
  1. ;;9002226.02101,"2218,E10.3592 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3593 ",.01)
  1. ;;E10.3593
  1. ;;9002226.02101,"2218,E10.3593 ",.02)
  1. ;;E10.3593
  1. ;;9002226.02101,"2218,E10.3593 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.3599 ",.01)
  1. ;;E10.3599
  1. ;;9002226.02101,"2218,E10.3599 ",.02)
  1. ;;E10.3599
  1. ;;9002226.02101,"2218,E10.3599 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.36 ",.01)
  1. ;;E10.36
  1. ;;9002226.02101,"2218,E10.36 ",.02)
  1. ;;E10.36
  1. ;;9002226.02101,"2218,E10.36 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.37X1 ",.01)
  1. ;;E10.37X1
  1. ;;9002226.02101,"2218,E10.37X1 ",.02)
  1. ;;E10.37X1
  1. ;;9002226.02101,"2218,E10.37X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.37X2 ",.01)
  1. ;;E10.37X2
  1. ;;9002226.02101,"2218,E10.37X2 ",.02)
  1. ;;E10.37X2
  1. ;;9002226.02101,"2218,E10.37X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.37X3 ",.01)
  1. ;;E10.37X3
  1. ;;9002226.02101,"2218,E10.37X3 ",.02)
  1. ;;E10.37X3
  1. ;;9002226.02101,"2218,E10.37X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.37X9 ",.01)
  1. ;;E10.37X9
  1. ;;9002226.02101,"2218,E10.37X9 ",.02)
  1. ;;E10.37X9
  1. ;;9002226.02101,"2218,E10.37X9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.39 ",.01)
  1. ;;E10.39
  1. ;;9002226.02101,"2218,E10.39 ",.02)
  1. ;;E10.39
  1. ;;9002226.02101,"2218,E10.39 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.40 ",.01)
  1. ;;E10.40
  1. ;;9002226.02101,"2218,E10.40 ",.02)
  1. ;;E10.40
  1. ;;9002226.02101,"2218,E10.40 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.41 ",.01)
  1. ;;E10.41
  1. ;;9002226.02101,"2218,E10.41 ",.02)
  1. ;;E10.41
  1. ;;9002226.02101,"2218,E10.41 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.42 ",.01)
  1. ;;E10.42
  1. ;;9002226.02101,"2218,E10.42 ",.02)
  1. ;;E10.42
  1. ;;9002226.02101,"2218,E10.42 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.43 ",.01)
  1. ;;E10.43
  1. ;;9002226.02101,"2218,E10.43 ",.02)
  1. ;;E10.43
  1. ;;9002226.02101,"2218,E10.43 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.44 ",.01)
  1. ;;E10.44
  1. ;;9002226.02101,"2218,E10.44 ",.02)
  1. ;;E10.44
  1. ;;9002226.02101,"2218,E10.44 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.49 ",.01)
  1. ;;E10.49
  1. ;;9002226.02101,"2218,E10.49 ",.02)
  1. ;;E10.49
  1. ;;9002226.02101,"2218,E10.49 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.51 ",.01)
  1. ;;E10.51
  1. ;;9002226.02101,"2218,E10.51 ",.02)
  1. ;;E10.51
  1. ;;9002226.02101,"2218,E10.51 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.52 ",.01)
  1. ;;E10.52
  1. ;;9002226.02101,"2218,E10.52 ",.02)
  1. ;;E10.52
  1. ;;9002226.02101,"2218,E10.52 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.59 ",.01)
  1. ;;E10.59
  1. ;;9002226.02101,"2218,E10.59 ",.02)
  1. ;;E10.59
  1. ;;9002226.02101,"2218,E10.59 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.610 ",.01)
  1. ;;E10.610
  1. ;;9002226.02101,"2218,E10.610 ",.02)
  1. ;;E10.610
  1. ;;9002226.02101,"2218,E10.610 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.618 ",.01)
  1. ;;E10.618
  1. ;;9002226.02101,"2218,E10.618 ",.02)
  1. ;;E10.618
  1. ;;9002226.02101,"2218,E10.618 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.620 ",.01)
  1. ;;E10.620
  1. ;;9002226.02101,"2218,E10.620 ",.02)
  1. ;;E10.620
  1. ;;9002226.02101,"2218,E10.620 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.621 ",.01)
  1. ;;E10.621
  1. ;;9002226.02101,"2218,E10.621 ",.02)
  1. ;;E10.621
  1. ;;9002226.02101,"2218,E10.621 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.622 ",.01)
  1. ;;E10.622
  1. ;;9002226.02101,"2218,E10.622 ",.02)
  1. ;;E10.622
  1. ;;9002226.02101,"2218,E10.622 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.628 ",.01)
  1. ;;E10.628
  1. ;;9002226.02101,"2218,E10.628 ",.02)
  1. ;;E10.628
  1. ;;9002226.02101,"2218,E10.628 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.630 ",.01)
  1. ;;E10.630
  1. ;;9002226.02101,"2218,E10.630 ",.02)
  1. ;;E10.630
  1. ;;9002226.02101,"2218,E10.630 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.638 ",.01)
  1. ;;E10.638
  1. ;;9002226.02101,"2218,E10.638 ",.02)
  1. ;;E10.638
  1. ;;9002226.02101,"2218,E10.638 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.641 ",.01)
  1. ;;E10.641
  1. ;;9002226.02101,"2218,E10.641 ",.02)
  1. ;;E10.641
  1. ;;9002226.02101,"2218,E10.641 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2218,E10.649 ",.01)
  1. ;;E10.649
  1. ;;9002226.02101,"2218,E10.649 ",.02)
  1. ;;E10.649