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

BUD2ZA14.m

Go to the documentation of this file.
BUD2ZA14 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 16, 2012;
 ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
 ;
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,"1149,45802038465 ",.01)
 ;;45802038465
 ;;9002226.02101,"1149,45802038465 ",.02)
 ;;45802038465
 ;;9002226.02101,"1149,45802038475 ",.01)
 ;;45802038475
 ;;9002226.02101,"1149,45802038475 ",.02)
 ;;45802038475
 ;;9002226.02101,"1149,45802038493 ",.01)
 ;;45802038493
 ;;9002226.02101,"1149,45802038493 ",.02)
 ;;45802038493
 ;;9002226.02101,"1149,45802087901 ",.01)
 ;;45802087901
 ;;9002226.02101,"1149,45802087901 ",.02)
 ;;45802087901
 ;;9002226.02101,"1149,45802087965 ",.01)
 ;;45802087965
 ;;9002226.02101,"1149,45802087965 ",.02)
 ;;45802087965
 ;;9002226.02101,"1149,45802087975 ",.01)
 ;;45802087975
 ;;9002226.02101,"1149,45802087975 ",.02)
 ;;45802087975
 ;;9002226.02101,"1149,45802087993 ",.01)
 ;;45802087993
 ;;9002226.02101,"1149,45802087993 ",.02)
 ;;45802087993
 ;;9002226.02101,"1149,45802092465 ",.01)
 ;;45802092465
 ;;9002226.02101,"1149,45802092465 ",.02)
 ;;45802092465
 ;;9002226.02101,"1149,46193011401 ",.01)
 ;;46193011401
 ;;9002226.02101,"1149,46193011401 ",.02)
 ;;46193011401
 ;;9002226.02101,"1149,46193011410 ",.01)
 ;;46193011410
 ;;9002226.02101,"1149,46193011410 ",.02)
 ;;46193011410
 ;;9002226.02101,"1149,46193036301 ",.01)
 ;;46193036301
 ;;9002226.02101,"1149,46193036301 ",.02)
 ;;46193036301
 ;;9002226.02101,"1149,46193036310 ",.01)
 ;;46193036310
 ;;9002226.02101,"1149,46193036310 ",.02)
 ;;46193036310
 ;;9002226.02101,"1149,48817754701 ",.01)
 ;;48817754701
 ;;9002226.02101,"1149,48817754701 ",.02)
 ;;48817754701
 ;;9002226.02101,"1149,49072095377 ",.01)
 ;;49072095377
 ;;9002226.02101,"1149,49072095377 ",.02)
 ;;49072095377
 ;;9002226.02101,"1149,49348009710 ",.01)
 ;;49348009710
 ;;9002226.02101,"1149,49348009710 ",.02)
 ;;49348009710
 ;;9002226.02101,"1149,49348026212 ",.01)
 ;;49348026212
 ;;9002226.02101,"1149,49348026212 ",.02)
 ;;49348026212
 ;;9002226.02101,"1149,49483001301 ",.01)
 ;;49483001301
 ;;9002226.02101,"1149,49483001301 ",.02)
 ;;49483001301
 ;;9002226.02101,"1149,49483001310 ",.01)
 ;;49483001310
 ;;9002226.02101,"1149,49483001310 ",.02)
 ;;49483001310
 ;;9002226.02101,"1149,49483001401 ",.01)
 ;;49483001401
 ;;9002226.02101,"1149,49483001401 ",.02)
 ;;49483001401
 ;;9002226.02101,"1149,49483001410 ",.01)
 ;;49483001410
 ;;9002226.02101,"1149,49483001410 ",.02)
 ;;49483001410
 ;;9002226.02101,"1149,49483001501 ",.01)
 ;;49483001501
 ;;9002226.02101,"1149,49483001501 ",.02)
 ;;49483001501
 ;;9002226.02101,"1149,49483001510 ",.01)
 ;;49483001510
 ;;9002226.02101,"1149,49483001510 ",.02)
 ;;49483001510
 ;;9002226.02101,"1149,49483001801 ",.01)
 ;;49483001801
 ;;9002226.02101,"1149,49483001801 ",.02)
 ;;49483001801
 ;;9002226.02101,"1149,49648075000 ",.01)
 ;;49648075000
 ;;9002226.02101,"1149,49648075000 ",.02)
 ;;49648075000
 ;;9002226.02101,"1149,49648075001 ",.01)
 ;;49648075001
 ;;9002226.02101,"1149,49648075001 ",.02)
 ;;49648075001
 ;;9002226.02101,"1149,49648078100 ",.01)
 ;;49648078100
 ;;9002226.02101,"1149,49648078100 ",.02)
 ;;49648078100
 ;;9002226.02101,"1149,49648078101 ",.01)
 ;;49648078101
 ;;9002226.02101,"1149,49648078101 ",.02)
 ;;49648078101
 ;;9002226.02101,"1149,49856003400 ",.01)
 ;;49856003400
 ;;9002226.02101,"1149,49856003400 ",.02)
 ;;49856003400
 ;;9002226.02101,"1149,49856003406 ",.01)
 ;;49856003406
 ;;9002226.02101,"1149,49856003406 ",.02)
 ;;49856003406
 ;;9002226.02101,"1149,49856017700 ",.01)
 ;;49856017700
 ;;9002226.02101,"1149,49856017700 ",.02)
 ;;49856017700
 ;;9002226.02101,"1149,49856017701 ",.01)
 ;;49856017701
 ;;9002226.02101,"1149,49856017701 ",.02)
 ;;49856017701
 ;;9002226.02101,"1149,49856017703 ",.01)
 ;;49856017703
 ;;9002226.02101,"1149,49856017703 ",.02)
 ;;49856017703
 ;;9002226.02101,"1149,49856017709 ",.01)
 ;;49856017709
 ;;9002226.02101,"1149,49856017709 ",.02)
 ;;49856017709
 ;;9002226.02101,"1149,49856017800 ",.01)
 ;;49856017800
 ;;9002226.02101,"1149,49856017800 ",.02)
 ;;49856017800
 ;;9002226.02101,"1149,49856017801 ",.01)
 ;;49856017801
 ;;9002226.02101,"1149,49856017801 ",.02)
 ;;49856017801
 ;;9002226.02101,"1149,49856017803 ",.01)
 ;;49856017803
 ;;9002226.02101,"1149,49856017803 ",.02)
 ;;49856017803
 ;;9002226.02101,"1149,49856017809 ",.01)
 ;;49856017809
 ;;9002226.02101,"1149,49856017809 ",.02)
 ;;49856017809
 ;;9002226.02101,"1149,49856017900 ",.01)
 ;;49856017900
 ;;9002226.02101,"1149,49856017900 ",.02)
 ;;49856017900
 ;;9002226.02101,"1149,49856017901 ",.01)
 ;;49856017901
 ;;9002226.02101,"1149,49856017901 ",.02)
 ;;49856017901
 ;;9002226.02101,"1149,49856017903 ",.01)
 ;;49856017903
 ;;9002226.02101,"1149,49856017903 ",.02)
 ;;49856017903
 ;;9002226.02101,"1149,49856017909 ",.01)
 ;;49856017909
 ;;9002226.02101,"1149,49856017909 ",.02)
 ;;49856017909
 ;;9002226.02101,"1149,49884046565 ",.01)
 ;;49884046565
 ;;9002226.02101,"1149,49884046565 ",.02)
 ;;49884046565
 ;;9002226.02101,"1149,49884046566 ",.01)
 ;;49884046566
 ;;9002226.02101,"1149,49884046566 ",.02)
 ;;49884046566
 ;;9002226.02101,"1149,49884046665 ",.01)
 ;;49884046665
 ;;9002226.02101,"1149,49884046665 ",.02)
 ;;49884046665
 ;;9002226.02101,"1149,49884046667 ",.01)
 ;;49884046667
 ;;9002226.02101,"1149,49884046667 ",.02)
 ;;49884046667
 ;;9002226.02101,"1149,49884075401 ",.01)
 ;;49884075401
 ;;9002226.02101,"1149,49884075401 ",.02)
 ;;49884075401
 ;;9002226.02101,"1149,49884075402 ",.01)
 ;;49884075402
 ;;9002226.02101,"1149,49884075402 ",.02)
 ;;49884075402
 ;;9002226.02101,"1149,49884075410 ",.01)
 ;;49884075410
 ;;9002226.02101,"1149,49884075410 ",.02)
 ;;49884075410
 ;;9002226.02101,"1149,49884075501 ",.01)
 ;;49884075501
 ;;9002226.02101,"1149,49884075501 ",.02)
 ;;49884075501
 ;;9002226.02101,"1149,49884075502 ",.01)
 ;;49884075502
 ;;9002226.02101,"1149,49884075502 ",.02)
 ;;49884075502
 ;;9002226.02101,"1149,49884075510 ",.01)
 ;;49884075510
 ;;9002226.02101,"1149,49884075510 ",.02)
 ;;49884075510
 ;;9002226.02101,"1149,49884075601 ",.01)
 ;;49884075601
 ;;9002226.02101,"1149,49884075601 ",.02)
 ;;49884075601
 ;;9002226.02101,"1149,49884075602 ",.01)
 ;;49884075602
 ;;9002226.02101,"1149,49884075602 ",.02)
 ;;49884075602
 ;;9002226.02101,"1149,49884075610 ",.01)
 ;;49884075610
 ;;9002226.02101,"1149,49884075610 ",.02)
 ;;49884075610
 ;;9002226.02101,"1149,49999011430 ",.01)
 ;;49999011430
 ;;9002226.02101,"1149,49999011430 ",.02)
 ;;49999011430
 ;;9002226.02101,"1149,49999011460 ",.01)
 ;;49999011460
 ;;9002226.02101,"1149,49999011460 ",.02)
 ;;49999011460
 ;;9002226.02101,"1149,49999029330 ",.01)
 ;;49999029330
 ;;9002226.02101,"1149,49999029330 ",.02)
 ;;49999029330
 ;;9002226.02101,"1149,49999047060 ",.01)
 ;;49999047060
 ;;9002226.02101,"1149,49999047060 ",.02)
 ;;49999047060
 ;;9002226.02101,"1149,49999047100 ",.01)
 ;;49999047100
 ;;9002226.02101,"1149,49999047100 ",.02)
 ;;49999047100
 ;;9002226.02101,"1149,49999047130 ",.01)
 ;;49999047130
 ;;9002226.02101,"1149,49999047130 ",.02)
 ;;49999047130
 ;;9002226.02101,"1149,49999047160 ",.01)
 ;;49999047160
 ;;9002226.02101,"1149,49999047160 ",.02)
 ;;49999047160
 ;;9002226.02101,"1149,49999074130 ",.01)
 ;;49999074130
 ;;9002226.02101,"1149,49999074130 ",.02)
 ;;49999074130
 ;;9002226.02101,"1149,49999088930 ",.01)
 ;;49999088930
 ;;9002226.02101,"1149,49999088930 ",.02)
 ;;49999088930
 ;;9002226.02101,"1149,49999088960 ",.01)
 ;;49999088960
 ;;9002226.02101,"1149,49999088960 ",.02)
 ;;49999088960
 ;;9002226.02101,"1149,49999088990 ",.01)
 ;;49999088990
 ;;9002226.02101,"1149,49999088990 ",.02)
 ;;49999088990
 ;;9002226.02101,"1149,49999090090 ",.01)
 ;;49999090090
 ;;9002226.02101,"1149,49999090090 ",.02)
 ;;49999090090
 ;;9002226.02101,"1149,49999090315 ",.01)
 ;;49999090315
 ;;9002226.02101,"1149,49999090315 ",.02)
 ;;49999090315
 ;;9002226.02101,"1149,49999090330 ",.01)
 ;;49999090330
 ;;9002226.02101,"1149,49999090330 ",.02)
 ;;49999090330
 ;;9002226.02101,"1149,49999090390 ",.01)
 ;;49999090390
 ;;9002226.02101,"1149,49999090390 ",.02)
 ;;49999090390
 ;;9002226.02101,"1149,50111085702 ",.01)
 ;;50111085702
 ;;9002226.02101,"1149,50111085702 ",.02)
 ;;50111085702
 ;;9002226.02101,"1149,50111085704 ",.01)
 ;;50111085704
 ;;9002226.02101,"1149,50111085704 ",.02)
 ;;50111085704
 ;;9002226.02101,"1149,50428213843 ",.01)
 ;;50428213843
 ;;9002226.02101,"1149,50428213843 ",.02)
 ;;50428213843
 ;;9002226.02101,"1149,50752031080 ",.01)
 ;;50752031080
 ;;9002226.02101,"1149,50752031080 ",.02)
 ;;50752031080
 ;;9002226.02101,"1149,51079000820 ",.01)
 ;;51079000820
 ;;9002226.02101,"1149,51079000820 ",.02)
 ;;51079000820
 ;;9002226.02101,"1149,51079000920 ",.01)
 ;;51079000920
 ;;9002226.02101,"1149,51079000920 ",.02)
 ;;51079000920
 ;;9002226.02101,"1149,51079045401 ",.01)
 ;;51079045401
 ;;9002226.02101,"1149,51079045401 ",.02)
 ;;51079045401
 ;;9002226.02101,"1149,51079045420 ",.01)
 ;;51079045420
 ;;9002226.02101,"1149,51079045420 ",.02)
 ;;51079045420
 ;;9002226.02101,"1149,51079045501 ",.01)
 ;;51079045501
 ;;9002226.02101,"1149,51079045501 ",.02)
 ;;51079045501
 ;;9002226.02101,"1149,51079045520 ",.01)
 ;;51079045520
 ;;9002226.02101,"1149,51079045520 ",.02)
 ;;51079045520
 ;;9002226.02101,"1149,51079045601 ",.01)
 ;;51079045601
 ;;9002226.02101,"1149,51079045601 ",.02)
 ;;51079045601
 ;;9002226.02101,"1149,51079045620 ",.01)
 ;;51079045620
 ;;9002226.02101,"1149,51079045620 ",.02)
 ;;51079045620
 ;;9002226.02101,"1149,51079078701 ",.01)
 ;;51079078701
 ;;9002226.02101,"1149,51079078701 ",.02)
 ;;51079078701
 ;;9002226.02101,"1149,51079078717 ",.01)
 ;;51079078717
 ;;9002226.02101,"1149,51079078717 ",.02)
 ;;51079078717
 ;;9002226.02101,"1149,51079078719 ",.01)
 ;;51079078719
 ;;9002226.02101,"1149,51079078719 ",.02)
 ;;51079078719
 ;;9002226.02101,"1149,51079078720 ",.01)
 ;;51079078720
 ;;9002226.02101,"1149,51079078720 ",.02)
 ;;51079078720
 ;;9002226.02101,"1149,51079097401 ",.01)
 ;;51079097401
 ;;9002226.02101,"1149,51079097401 ",.02)
 ;;51079097401
 ;;9002226.02101,"1149,51079097420 ",.01)
 ;;51079097420
 ;;9002226.02101,"1149,51079097420 ",.02)
 ;;51079097420
 ;;9002226.02101,"1149,51079097501 ",.01)
 ;;51079097501
 ;;9002226.02101,"1149,51079097501 ",.02)
 ;;51079097501
 ;;9002226.02101,"1149,51079097520 ",.01)
 ;;51079097520
 ;;9002226.02101,"1149,51079097520 ",.02)
 ;;51079097520
 ;;9002226.02101,"1149,51079097530 ",.01)
 ;;51079097530
 ;;9002226.02101,"1149,51079097530 ",.02)
 ;;51079097530
 ;;9002226.02101,"1149,51079097556 ",.01)
 ;;51079097556
 ;;9002226.02101,"1149,51079097556 ",.02)
 ;;51079097556
 ;;9002226.02101,"1149,51079097601 ",.01)
 ;;51079097601
 ;;9002226.02101,"1149,51079097601 ",.02)
 ;;51079097601
 ;;9002226.02101,"1149,51079097620 ",.01)
 ;;51079097620
 ;;9002226.02101,"1149,51079097620 ",.02)
 ;;51079097620
 ;;9002226.02101,"1149,51079097630 ",.01)
 ;;51079097630
 ;;9002226.02101,"1149,51079097630 ",.02)
 ;;51079097630
 ;;9002226.02101,"1149,51079097656 ",.01)
 ;;51079097656
 ;;9002226.02101,"1149,51079097656 ",.02)
 ;;51079097656
 ;;9002226.02101,"1149,51129010301 ",.01)
 ;;51129010301
 ;;9002226.02101,"1149,51129010301 ",.02)
 ;;51129010301
 ;;9002226.02101,"1149,51129010401 ",.01)
 ;;51129010401
 ;;9002226.02101,"1149,51129010401 ",.02)
 ;;51129010401
 ;;9002226.02101,"1149,51129020000 ",.01)
 ;;51129020000
 ;;9002226.02101,"1149,51129020000 ",.02)
 ;;51129020000
 ;;9002226.02101,"1149,51129258201 ",.01)
 ;;51129258201
 ;;9002226.02101,"1149,51129258201 ",.02)
 ;;51129258201
 ;;9002226.02101,"1149,51129275401 ",.01)
 ;;51129275401
 ;;9002226.02101,"1149,51129275401 ",.02)
 ;;51129275401
 ;;9002226.02101,"1149,51129289201 ",.01)
 ;;51129289201
 ;;9002226.02101,"1149,51129289201 ",.02)
 ;;51129289201
 ;;9002226.02101,"1149,51129289901 ",.01)
 ;;51129289901
 ;;9002226.02101,"1149,51129289901 ",.02)
 ;;51129289901
 ;;9002226.02101,"1149,51129289902 ",.01)
 ;;51129289902
 ;;9002226.02101,"1149,51129289902 ",.02)
 ;;51129289902
 ;;9002226.02101,"1149,51129291101 ",.01)
 ;;51129291101
 ;;9002226.02101,"1149,51129291101 ",.02)
 ;;51129291101
 ;;9002226.02101,"1149,51129291102 ",.01)
 ;;51129291102
 ;;9002226.02101,"1149,51129291102 ",.02)
 ;;51129291102
 ;;9002226.02101,"1149,51129295201 ",.01)
 ;;51129295201
 ;;9002226.02101,"1149,51129295201 ",.02)
 ;;51129295201
 ;;9002226.02101,"1149,51129295202 ",.01)
 ;;51129295202
 ;;9002226.02101,"1149,51129295202 ",.02)
 ;;51129295202
 ;;9002226.02101,"1149,51129323601 ",.01)
 ;;51129323601
 ;;9002226.02101,"1149,51129323601 ",.02)
 ;;51129323601
 ;;9002226.02101,"1149,51129323602 ",.01)
 ;;51129323602
 ;;9002226.02101,"1149,51129323602 ",.02)
 ;;51129323602
 ;;9002226.02101,"1149,51129325001 ",.01)
 ;;51129325001
 ;;9002226.02101,"1149,51129325001 ",.02)
 ;;51129325001
 ;;9002226.02101,"1149,51129325002 ",.01)
 ;;51129325002
 ;;9002226.02101,"1149,51129325002 ",.02)
 ;;51129325002
 ;;9002226.02101,"1149,51129341001 ",.01)
 ;;51129341001
 ;;9002226.02101,"1149,51129341001 ",.02)
 ;;51129341001
 ;;9002226.02101,"1149,51129341002 ",.01)
 ;;51129341002
 ;;9002226.02101,"1149,51129341002 ",.02)
 ;;51129341002
 ;;9002226.02101,"1149,51129351401 ",.01)
 ;;51129351401
 ;;9002226.02101,"1149,51129351401 ",.02)
 ;;51129351401
 ;;9002226.02101,"1149,51129351402 ",.01)
 ;;51129351402
 ;;9002226.02101,"1149,51129351402 ",.02)
 ;;51129351402
 ;;9002226.02101,"1149,51129351601 ",.01)
 ;;51129351601
 ;;9002226.02101,"1149,51129351601 ",.02)
 ;;51129351601
 ;;9002226.02101,"1149,51129351602 ",.01)
 ;;51129351602