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

ATXF7F4.m

Go to the documentation of this file.
ATXF7F4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 30, 2017;
 ;;5.1;TAXONOMY;**20**;FEB 04, 1997;Build 33
 ;
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
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;9002226.02101,"1,E13.10 ",.01)
 ;;E13.10
 ;;9002226.02101,"1,E13.10 ",.02)
 ;;E13.10
 ;;9002226.02101,"1,E13.10 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.11 ",.01)
 ;;E13.11
 ;;9002226.02101,"1,E13.11 ",.02)
 ;;E13.11
 ;;9002226.02101,"1,E13.11 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.21 ",.01)
 ;;E13.21
 ;;9002226.02101,"1,E13.21 ",.02)
 ;;E13.21
 ;;9002226.02101,"1,E13.21 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.22 ",.01)
 ;;E13.22
 ;;9002226.02101,"1,E13.22 ",.02)
 ;;E13.22
 ;;9002226.02101,"1,E13.22 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.29 ",.01)
 ;;E13.29
 ;;9002226.02101,"1,E13.29 ",.02)
 ;;E13.29
 ;;9002226.02101,"1,E13.29 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.311 ",.01)
 ;;E13.311
 ;;9002226.02101,"1,E13.311 ",.02)
 ;;E13.311
 ;;9002226.02101,"1,E13.311 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.319 ",.01)
 ;;E13.319
 ;;9002226.02101,"1,E13.319 ",.02)
 ;;E13.319
 ;;9002226.02101,"1,E13.319 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.321 ",.01)
 ;;E13.321
 ;;9002226.02101,"1,E13.321 ",.02)
 ;;E13.321
 ;;9002226.02101,"1,E13.321 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3211 ",.01)
 ;;E13.3211 
 ;;9002226.02101,"1,E13.3211 ",.02)
 ;;E13.3211 
 ;;9002226.02101,"1,E13.3211 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3212 ",.01)
 ;;E13.3212 
 ;;9002226.02101,"1,E13.3212 ",.02)
 ;;E13.3212 
 ;;9002226.02101,"1,E13.3212 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3213 ",.01)
 ;;E13.3213 
 ;;9002226.02101,"1,E13.3213 ",.02)
 ;;E13.3213 
 ;;9002226.02101,"1,E13.3213 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3219 ",.01)
 ;;E13.3219 
 ;;9002226.02101,"1,E13.3219 ",.02)
 ;;E13.3219 
 ;;9002226.02101,"1,E13.3219 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.329 ",.01)
 ;;E13.329
 ;;9002226.02101,"1,E13.329 ",.02)
 ;;E13.329
 ;;9002226.02101,"1,E13.329 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3291 ",.01)
 ;;E13.3291 
 ;;9002226.02101,"1,E13.3291 ",.02)
 ;;E13.3291 
 ;;9002226.02101,"1,E13.3291 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3292 ",.01)
 ;;E13.3292 
 ;;9002226.02101,"1,E13.3292 ",.02)
 ;;E13.3292 
 ;;9002226.02101,"1,E13.3292 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3293 ",.01)
 ;;E13.3293 
 ;;9002226.02101,"1,E13.3293 ",.02)
 ;;E13.3293 
 ;;9002226.02101,"1,E13.3293 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3299 ",.01)
 ;;E13.3299 
 ;;9002226.02101,"1,E13.3299 ",.02)
 ;;E13.3299 
 ;;9002226.02101,"1,E13.3299 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.331 ",.01)
 ;;E13.331
 ;;9002226.02101,"1,E13.331 ",.02)
 ;;E13.331
 ;;9002226.02101,"1,E13.331 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3311 ",.01)
 ;;E13.3311 
 ;;9002226.02101,"1,E13.3311 ",.02)
 ;;E13.3311 
 ;;9002226.02101,"1,E13.3311 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3312 ",.01)
 ;;E13.3312 
 ;;9002226.02101,"1,E13.3312 ",.02)
 ;;E13.3312 
 ;;9002226.02101,"1,E13.3312 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3313 ",.01)
 ;;E13.3313 
 ;;9002226.02101,"1,E13.3313 ",.02)
 ;;E13.3313 
 ;;9002226.02101,"1,E13.3313 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3319 ",.01)
 ;;E13.3319 
 ;;9002226.02101,"1,E13.3319 ",.02)
 ;;E13.3319 
 ;;9002226.02101,"1,E13.3319 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.339 ",.01)
 ;;E13.339
 ;;9002226.02101,"1,E13.339 ",.02)
 ;;E13.339
 ;;9002226.02101,"1,E13.339 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3391 ",.01)
 ;;E13.3391 
 ;;9002226.02101,"1,E13.3391 ",.02)
 ;;E13.3391 
 ;;9002226.02101,"1,E13.3391 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3392 ",.01)
 ;;E13.3392 
 ;;9002226.02101,"1,E13.3392 ",.02)
 ;;E13.3392 
 ;;9002226.02101,"1,E13.3392 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3393 ",.01)
 ;;E13.3393 
 ;;9002226.02101,"1,E13.3393 ",.02)
 ;;E13.3393 
 ;;9002226.02101,"1,E13.3393 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3399 ",.01)
 ;;E13.3399 
 ;;9002226.02101,"1,E13.3399 ",.02)
 ;;E13.3399 
 ;;9002226.02101,"1,E13.3399 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.341 ",.01)
 ;;E13.341
 ;;9002226.02101,"1,E13.341 ",.02)
 ;;E13.341
 ;;9002226.02101,"1,E13.341 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3411 ",.01)
 ;;E13.3411 
 ;;9002226.02101,"1,E13.3411 ",.02)
 ;;E13.3411 
 ;;9002226.02101,"1,E13.3411 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3412 ",.01)
 ;;E13.3412 
 ;;9002226.02101,"1,E13.3412 ",.02)
 ;;E13.3412 
 ;;9002226.02101,"1,E13.3412 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3413 ",.01)
 ;;E13.3413 
 ;;9002226.02101,"1,E13.3413 ",.02)
 ;;E13.3413 
 ;;9002226.02101,"1,E13.3413 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3419 ",.01)
 ;;E13.3419 
 ;;9002226.02101,"1,E13.3419 ",.02)
 ;;E13.3419 
 ;;9002226.02101,"1,E13.3419 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.349 ",.01)
 ;;E13.349
 ;;9002226.02101,"1,E13.349 ",.02)
 ;;E13.349
 ;;9002226.02101,"1,E13.349 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3491 ",.01)
 ;;E13.3491 
 ;;9002226.02101,"1,E13.3491 ",.02)
 ;;E13.3491 
 ;;9002226.02101,"1,E13.3491 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3492 ",.01)
 ;;E13.3492 
 ;;9002226.02101,"1,E13.3492 ",.02)
 ;;E13.3492 
 ;;9002226.02101,"1,E13.3492 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3493 ",.01)
 ;;E13.3493 
 ;;9002226.02101,"1,E13.3493 ",.02)
 ;;E13.3493 
 ;;9002226.02101,"1,E13.3493 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3499 ",.01)
 ;;E13.3499 
 ;;9002226.02101,"1,E13.3499 ",.02)
 ;;E13.3499 
 ;;9002226.02101,"1,E13.3499 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.351 ",.01)
 ;;E13.351
 ;;9002226.02101,"1,E13.351 ",.02)
 ;;E13.351
 ;;9002226.02101,"1,E13.351 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3511 ",.01)
 ;;E13.3511 
 ;;9002226.02101,"1,E13.3511 ",.02)
 ;;E13.3511 
 ;;9002226.02101,"1,E13.3511 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3512 ",.01)
 ;;E13.3512 
 ;;9002226.02101,"1,E13.3512 ",.02)
 ;;E13.3512 
 ;;9002226.02101,"1,E13.3512 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3513 ",.01)
 ;;E13.3513 
 ;;9002226.02101,"1,E13.3513 ",.02)
 ;;E13.3513 
 ;;9002226.02101,"1,E13.3513 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3519 ",.01)
 ;;E13.3519 
 ;;9002226.02101,"1,E13.3519 ",.02)
 ;;E13.3519 
 ;;9002226.02101,"1,E13.3519 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3521 ",.01)
 ;;E13.3521 
 ;;9002226.02101,"1,E13.3521 ",.02)
 ;;E13.3521 
 ;;9002226.02101,"1,E13.3521 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3522 ",.01)
 ;;E13.3522 
 ;;9002226.02101,"1,E13.3522 ",.02)
 ;;E13.3522 
 ;;9002226.02101,"1,E13.3522 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3523 ",.01)
 ;;E13.3523 
 ;;9002226.02101,"1,E13.3523 ",.02)
 ;;E13.3523 
 ;;9002226.02101,"1,E13.3523 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3529 ",.01)
 ;;E13.3529 
 ;;9002226.02101,"1,E13.3529 ",.02)
 ;;E13.3529 
 ;;9002226.02101,"1,E13.3529 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3531 ",.01)
 ;;E13.3531 
 ;;9002226.02101,"1,E13.3531 ",.02)
 ;;E13.3531 
 ;;9002226.02101,"1,E13.3531 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3532 ",.01)
 ;;E13.3532 
 ;;9002226.02101,"1,E13.3532 ",.02)
 ;;E13.3532 
 ;;9002226.02101,"1,E13.3532 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3533 ",.01)
 ;;E13.3533 
 ;;9002226.02101,"1,E13.3533 ",.02)
 ;;E13.3533 
 ;;9002226.02101,"1,E13.3533 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3539 ",.01)
 ;;E13.3539 
 ;;9002226.02101,"1,E13.3539 ",.02)
 ;;E13.3539 
 ;;9002226.02101,"1,E13.3539 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3541 ",.01)
 ;;E13.3541 
 ;;9002226.02101,"1,E13.3541 ",.02)
 ;;E13.3541 
 ;;9002226.02101,"1,E13.3541 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3542 ",.01)
 ;;E13.3542 
 ;;9002226.02101,"1,E13.3542 ",.02)
 ;;E13.3542 
 ;;9002226.02101,"1,E13.3542 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3543 ",.01)
 ;;E13.3543 
 ;;9002226.02101,"1,E13.3543 ",.02)
 ;;E13.3543 
 ;;9002226.02101,"1,E13.3543 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3549 ",.01)
 ;;E13.3549 
 ;;9002226.02101,"1,E13.3549 ",.02)
 ;;E13.3549 
 ;;9002226.02101,"1,E13.3549 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3551 ",.01)
 ;;E13.3551 
 ;;9002226.02101,"1,E13.3551 ",.02)
 ;;E13.3551 
 ;;9002226.02101,"1,E13.3551 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3552 ",.01)
 ;;E13.3552 
 ;;9002226.02101,"1,E13.3552 ",.02)
 ;;E13.3552 
 ;;9002226.02101,"1,E13.3552 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3553 ",.01)
 ;;E13.3553 
 ;;9002226.02101,"1,E13.3553 ",.02)
 ;;E13.3553 
 ;;9002226.02101,"1,E13.3553 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3559 ",.01)
 ;;E13.3559 
 ;;9002226.02101,"1,E13.3559 ",.02)
 ;;E13.3559 
 ;;9002226.02101,"1,E13.3559 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.359 ",.01)
 ;;E13.359
 ;;9002226.02101,"1,E13.359 ",.02)
 ;;E13.359
 ;;9002226.02101,"1,E13.359 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3591 ",.01)
 ;;E13.3591 
 ;;9002226.02101,"1,E13.3591 ",.02)
 ;;E13.3591 
 ;;9002226.02101,"1,E13.3591 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3592 ",.01)
 ;;E13.3592 
 ;;9002226.02101,"1,E13.3592 ",.02)
 ;;E13.3592 
 ;;9002226.02101,"1,E13.3592 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3593 ",.01)
 ;;E13.3593 
 ;;9002226.02101,"1,E13.3593 ",.02)
 ;;E13.3593 
 ;;9002226.02101,"1,E13.3593 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.3599 ",.01)
 ;;E13.3599 
 ;;9002226.02101,"1,E13.3599 ",.02)
 ;;E13.3599 
 ;;9002226.02101,"1,E13.3599 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.36 ",.01)
 ;;E13.36
 ;;9002226.02101,"1,E13.36 ",.02)
 ;;E13.36
 ;;9002226.02101,"1,E13.36 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.37X1 ",.01)
 ;;E13.37X1 
 ;;9002226.02101,"1,E13.37X1 ",.02)
 ;;E13.37X1 
 ;;9002226.02101,"1,E13.37X1 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.37X2 ",.01)
 ;;E13.37X2 
 ;;9002226.02101,"1,E13.37X2 ",.02)
 ;;E13.37X2 
 ;;9002226.02101,"1,E13.37X2 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.37X3 ",.01)
 ;;E13.37X3 
 ;;9002226.02101,"1,E13.37X3 ",.02)
 ;;E13.37X3 
 ;;9002226.02101,"1,E13.37X3 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.37X9 ",.01)
 ;;E13.37X9 
 ;;9002226.02101,"1,E13.37X9 ",.02)
 ;;E13.37X9 
 ;;9002226.02101,"1,E13.37X9 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.39 ",.01)
 ;;E13.39
 ;;9002226.02101,"1,E13.39 ",.02)
 ;;E13.39
 ;;9002226.02101,"1,E13.39 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.40 ",.01)
 ;;E13.40
 ;;9002226.02101,"1,E13.40 ",.02)
 ;;E13.40
 ;;9002226.02101,"1,E13.40 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.41 ",.01)
 ;;E13.41
 ;;9002226.02101,"1,E13.41 ",.02)
 ;;E13.41
 ;;9002226.02101,"1,E13.41 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.42 ",.01)
 ;;E13.42
 ;;9002226.02101,"1,E13.42 ",.02)
 ;;E13.42
 ;;9002226.02101,"1,E13.42 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.43 ",.01)
 ;;E13.43
 ;;9002226.02101,"1,E13.43 ",.02)
 ;;E13.43
 ;;9002226.02101,"1,E13.43 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.44 ",.01)
 ;;E13.44
 ;;9002226.02101,"1,E13.44 ",.02)
 ;;E13.44
 ;;9002226.02101,"1,E13.44 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.49 ",.01)
 ;;E13.49
 ;;9002226.02101,"1,E13.49 ",.02)
 ;;E13.49
 ;;9002226.02101,"1,E13.49 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.51 ",.01)
 ;;E13.51
 ;;9002226.02101,"1,E13.51 ",.02)
 ;;E13.51
 ;;9002226.02101,"1,E13.51 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.52 ",.01)
 ;;E13.52
 ;;9002226.02101,"1,E13.52 ",.02)
 ;;E13.52
 ;;9002226.02101,"1,E13.52 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.59 ",.01)
 ;;E13.59
 ;;9002226.02101,"1,E13.59 ",.02)
 ;;E13.59
 ;;9002226.02101,"1,E13.59 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.610 ",.01)
 ;;E13.610
 ;;9002226.02101,"1,E13.610 ",.02)
 ;;E13.610
 ;;9002226.02101,"1,E13.610 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.618 ",.01)
 ;;E13.618
 ;;9002226.02101,"1,E13.618 ",.02)
 ;;E13.618
 ;;9002226.02101,"1,E13.618 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.620 ",.01)
 ;;E13.620
 ;;9002226.02101,"1,E13.620 ",.02)
 ;;E13.620
 ;;9002226.02101,"1,E13.620 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.621 ",.01)
 ;;E13.621
 ;;9002226.02101,"1,E13.621 ",.02)
 ;;E13.621
 ;;9002226.02101,"1,E13.621 ",.03)
 ;;30