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

BUDD1D26.m

Go to the documentation of this file.
BUDD1D26 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON NOV 30, 2016 ;
 ;;11.0;IHS/RPMS UNIFORM DATA SYSTEM;;JAN 18, 2017;Build 66
 ;
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,"1078,59762-5033-01 ",.02)
 ;;59762-5033-01
 ;;9002226.02101,"1078,59762-5033-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,59762-5033-02 ",.01)
 ;;59762-5033-02
 ;;9002226.02101,"1078,59762-5033-02 ",.02)
 ;;59762-5033-02
 ;;9002226.02101,"1078,59762-5033-02 ",.03)
 ;;30
 ;;9002226.02101,"1078,59762-7020-09 ",.01)
 ;;59762-7020-09
 ;;9002226.02101,"1078,59762-7020-09 ",.02)
 ;;59762-7020-09
 ;;9002226.02101,"1078,59762-7020-09 ",.03)
 ;;30
 ;;9002226.02101,"1078,59762-7021-05 ",.01)
 ;;59762-7021-05
 ;;9002226.02101,"1078,59762-7021-05 ",.02)
 ;;59762-7021-05
 ;;9002226.02101,"1078,59762-7021-05 ",.03)
 ;;30
 ;;9002226.02101,"1078,59762-7021-09 ",.01)
 ;;59762-7021-09
 ;;9002226.02101,"1078,59762-7021-09 ",.02)
 ;;59762-7021-09
 ;;9002226.02101,"1078,59762-7021-09 ",.03)
 ;;30
 ;;9002226.02101,"1078,59762-7022-05 ",.01)
 ;;59762-7022-05
 ;;9002226.02101,"1078,59762-7022-05 ",.02)
 ;;59762-7022-05
 ;;9002226.02101,"1078,59762-7022-05 ",.03)
 ;;30
 ;;9002226.02101,"1078,59762-7022-09 ",.01)
 ;;59762-7022-09
 ;;9002226.02101,"1078,59762-7022-09 ",.02)
 ;;59762-7022-09
 ;;9002226.02101,"1078,59762-7022-09 ",.03)
 ;;30
 ;;9002226.02101,"1078,60505-0141-00 ",.01)
 ;;60505-0141-00
 ;;9002226.02101,"1078,60505-0141-00 ",.02)
 ;;60505-0141-00
 ;;9002226.02101,"1078,60505-0141-00 ",.03)
 ;;30
 ;;9002226.02101,"1078,60505-0141-01 ",.01)
 ;;60505-0141-01
 ;;9002226.02101,"1078,60505-0141-01 ",.02)
 ;;60505-0141-01
 ;;9002226.02101,"1078,60505-0141-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,60505-0141-02 ",.01)
 ;;60505-0141-02
 ;;9002226.02101,"1078,60505-0141-02 ",.02)
 ;;60505-0141-02
 ;;9002226.02101,"1078,60505-0141-02 ",.03)
 ;;30
 ;;9002226.02101,"1078,60505-0141-08 ",.01)
 ;;60505-0141-08
 ;;9002226.02101,"1078,60505-0141-08 ",.02)
 ;;60505-0141-08
 ;;9002226.02101,"1078,60505-0141-08 ",.03)
 ;;30
 ;;9002226.02101,"1078,60505-0142-00 ",.01)
 ;;60505-0142-00
 ;;9002226.02101,"1078,60505-0142-00 ",.02)
 ;;60505-0142-00
 ;;9002226.02101,"1078,60505-0142-00 ",.03)
 ;;30
 ;;9002226.02101,"1078,60505-0142-01 ",.01)
 ;;60505-0142-01
 ;;9002226.02101,"1078,60505-0142-01 ",.02)
 ;;60505-0142-01
 ;;9002226.02101,"1078,60505-0142-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,60505-0142-02 ",.01)
 ;;60505-0142-02
 ;;9002226.02101,"1078,60505-0142-02 ",.02)
 ;;60505-0142-02
 ;;9002226.02101,"1078,60505-0142-02 ",.03)
 ;;30
 ;;9002226.02101,"1078,60505-0142-04 ",.01)
 ;;60505-0142-04
 ;;9002226.02101,"1078,60505-0142-04 ",.02)
 ;;60505-0142-04
 ;;9002226.02101,"1078,60505-0142-04 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0063-45 ",.01)
 ;;61392-0063-45
 ;;9002226.02101,"1078,61392-0063-45 ",.02)
 ;;61392-0063-45
 ;;9002226.02101,"1078,61392-0063-45 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0063-54 ",.01)
 ;;61392-0063-54
 ;;9002226.02101,"1078,61392-0063-54 ",.02)
 ;;61392-0063-54
 ;;9002226.02101,"1078,61392-0063-54 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0063-91 ",.01)
 ;;61392-0063-91
 ;;9002226.02101,"1078,61392-0063-91 ",.02)
 ;;61392-0063-91
 ;;9002226.02101,"1078,61392-0063-91 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0064-45 ",.01)
 ;;61392-0064-45
 ;;9002226.02101,"1078,61392-0064-45 ",.02)
 ;;61392-0064-45
 ;;9002226.02101,"1078,61392-0064-45 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0064-51 ",.01)
 ;;61392-0064-51
 ;;9002226.02101,"1078,61392-0064-51 ",.02)
 ;;61392-0064-51
 ;;9002226.02101,"1078,61392-0064-51 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0064-54 ",.01)
 ;;61392-0064-54
 ;;9002226.02101,"1078,61392-0064-54 ",.02)
 ;;61392-0064-54
 ;;9002226.02101,"1078,61392-0064-54 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0064-91 ",.01)
 ;;61392-0064-91
 ;;9002226.02101,"1078,61392-0064-91 ",.02)
 ;;61392-0064-91
 ;;9002226.02101,"1078,61392-0064-91 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0117-30 ",.01)
 ;;61392-0117-30
 ;;9002226.02101,"1078,61392-0117-30 ",.02)
 ;;61392-0117-30
 ;;9002226.02101,"1078,61392-0117-30 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0117-31 ",.01)
 ;;61392-0117-31
 ;;9002226.02101,"1078,61392-0117-31 ",.02)
 ;;61392-0117-31
 ;;9002226.02101,"1078,61392-0117-31 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0117-32 ",.01)
 ;;61392-0117-32
 ;;9002226.02101,"1078,61392-0117-32 ",.02)
 ;;61392-0117-32
 ;;9002226.02101,"1078,61392-0117-32 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0117-39 ",.01)
 ;;61392-0117-39
 ;;9002226.02101,"1078,61392-0117-39 ",.02)
 ;;61392-0117-39
 ;;9002226.02101,"1078,61392-0117-39 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0117-45 ",.01)
 ;;61392-0117-45
 ;;9002226.02101,"1078,61392-0117-45 ",.02)
 ;;61392-0117-45
 ;;9002226.02101,"1078,61392-0117-45 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0117-51 ",.01)
 ;;61392-0117-51
 ;;9002226.02101,"1078,61392-0117-51 ",.02)
 ;;61392-0117-51
 ;;9002226.02101,"1078,61392-0117-51 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0117-54 ",.01)
 ;;61392-0117-54
 ;;9002226.02101,"1078,61392-0117-54 ",.02)
 ;;61392-0117-54
 ;;9002226.02101,"1078,61392-0117-54 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0117-60 ",.01)
 ;;61392-0117-60
 ;;9002226.02101,"1078,61392-0117-60 ",.02)
 ;;61392-0117-60
 ;;9002226.02101,"1078,61392-0117-60 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0117-90 ",.01)
 ;;61392-0117-90
 ;;9002226.02101,"1078,61392-0117-90 ",.02)
 ;;61392-0117-90
 ;;9002226.02101,"1078,61392-0117-90 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0117-91 ",.01)
 ;;61392-0117-91
 ;;9002226.02101,"1078,61392-0117-91 ",.02)
 ;;61392-0117-91
 ;;9002226.02101,"1078,61392-0117-91 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0119-30 ",.01)
 ;;61392-0119-30
 ;;9002226.02101,"1078,61392-0119-30 ",.02)
 ;;61392-0119-30
 ;;9002226.02101,"1078,61392-0119-30 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0119-31 ",.01)
 ;;61392-0119-31
 ;;9002226.02101,"1078,61392-0119-31 ",.02)
 ;;61392-0119-31
 ;;9002226.02101,"1078,61392-0119-31 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0119-32 ",.01)
 ;;61392-0119-32
 ;;9002226.02101,"1078,61392-0119-32 ",.02)
 ;;61392-0119-32
 ;;9002226.02101,"1078,61392-0119-32 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0119-39 ",.01)
 ;;61392-0119-39
 ;;9002226.02101,"1078,61392-0119-39 ",.02)
 ;;61392-0119-39
 ;;9002226.02101,"1078,61392-0119-39 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0119-45 ",.01)
 ;;61392-0119-45
 ;;9002226.02101,"1078,61392-0119-45 ",.02)
 ;;61392-0119-45
 ;;9002226.02101,"1078,61392-0119-45 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0119-51 ",.01)
 ;;61392-0119-51
 ;;9002226.02101,"1078,61392-0119-51 ",.02)
 ;;61392-0119-51
 ;;9002226.02101,"1078,61392-0119-51 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0119-54 ",.01)
 ;;61392-0119-54
 ;;9002226.02101,"1078,61392-0119-54 ",.02)
 ;;61392-0119-54
 ;;9002226.02101,"1078,61392-0119-54 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0119-60 ",.01)
 ;;61392-0119-60
 ;;9002226.02101,"1078,61392-0119-60 ",.02)
 ;;61392-0119-60
 ;;9002226.02101,"1078,61392-0119-60 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0119-90 ",.01)
 ;;61392-0119-90
 ;;9002226.02101,"1078,61392-0119-90 ",.02)
 ;;61392-0119-90
 ;;9002226.02101,"1078,61392-0119-90 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0119-91 ",.01)
 ;;61392-0119-91
 ;;9002226.02101,"1078,61392-0119-91 ",.02)
 ;;61392-0119-91
 ;;9002226.02101,"1078,61392-0119-91 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0120-45 ",.01)
 ;;61392-0120-45
 ;;9002226.02101,"1078,61392-0120-45 ",.02)
 ;;61392-0120-45
 ;;9002226.02101,"1078,61392-0120-45 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0120-51 ",.01)
 ;;61392-0120-51
 ;;9002226.02101,"1078,61392-0120-51 ",.02)
 ;;61392-0120-51
 ;;9002226.02101,"1078,61392-0120-51 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0120-54 ",.01)
 ;;61392-0120-54
 ;;9002226.02101,"1078,61392-0120-54 ",.02)
 ;;61392-0120-54
 ;;9002226.02101,"1078,61392-0120-54 ",.03)
 ;;30
 ;;9002226.02101,"1078,61392-0120-91 ",.01)
 ;;61392-0120-91
 ;;9002226.02101,"1078,61392-0120-91 ",.02)
 ;;61392-0120-91
 ;;9002226.02101,"1078,61392-0120-91 ",.03)
 ;;30
 ;;9002226.02101,"1078,61442-0115-01 ",.01)
 ;;61442-0115-01
 ;;9002226.02101,"1078,61442-0115-01 ",.02)
 ;;61442-0115-01
 ;;9002226.02101,"1078,61442-0115-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,61442-0116-01 ",.01)
 ;;61442-0116-01
 ;;9002226.02101,"1078,61442-0116-01 ",.02)
 ;;61442-0116-01
 ;;9002226.02101,"1078,61442-0116-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,61442-0117-01 ",.01)
 ;;61442-0117-01
 ;;9002226.02101,"1078,61442-0117-01 ",.02)
 ;;61442-0117-01
 ;;9002226.02101,"1078,61442-0117-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,62037-0872-01 ",.01)
 ;;62037-0872-01
 ;;9002226.02101,"1078,62037-0872-01 ",.02)
 ;;62037-0872-01
 ;;9002226.02101,"1078,62037-0872-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,62037-0872-05 ",.01)
 ;;62037-0872-05
 ;;9002226.02101,"1078,62037-0872-05 ",.02)
 ;;62037-0872-05
 ;;9002226.02101,"1078,62037-0872-05 ",.03)
 ;;30
 ;;9002226.02101,"1078,62037-0873-01 ",.01)
 ;;62037-0873-01
 ;;9002226.02101,"1078,62037-0873-01 ",.02)
 ;;62037-0873-01
 ;;9002226.02101,"1078,62037-0873-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,62037-0873-05 ",.01)
 ;;62037-0873-05
 ;;9002226.02101,"1078,62037-0873-05 ",.02)
 ;;62037-0873-05
 ;;9002226.02101,"1078,62037-0873-05 ",.03)
 ;;30
 ;;9002226.02101,"1078,62682-5004-03 ",.01)
 ;;62682-5004-03
 ;;9002226.02101,"1078,62682-5004-03 ",.02)
 ;;62682-5004-03
 ;;9002226.02101,"1078,62682-5004-03 ",.03)
 ;;30
 ;;9002226.02101,"1078,62682-5004-08 ",.01)
 ;;62682-5004-08
 ;;9002226.02101,"1078,62682-5004-08 ",.02)
 ;;62682-5004-08
 ;;9002226.02101,"1078,62682-5004-08 ",.03)
 ;;30
 ;;9002226.02101,"1078,62682-5006-03 ",.01)
 ;;62682-5006-03
 ;;9002226.02101,"1078,62682-5006-03 ",.02)
 ;;62682-5006-03
 ;;9002226.02101,"1078,62682-5006-03 ",.03)
 ;;30
 ;;9002226.02101,"1078,63304-0254-30 ",.01)
 ;;63304-0254-30
 ;;9002226.02101,"1078,63304-0254-30 ",.02)
 ;;63304-0254-30
 ;;9002226.02101,"1078,63304-0254-30 ",.03)
 ;;30
 ;;9002226.02101,"1078,63304-0254-90 ",.01)
 ;;63304-0254-90
 ;;9002226.02101,"1078,63304-0254-90 ",.02)
 ;;63304-0254-90
 ;;9002226.02101,"1078,63304-0254-90 ",.03)
 ;;30
 ;;9002226.02101,"1078,63304-0311-05 ",.01)
 ;;63304-0311-05
 ;;9002226.02101,"1078,63304-0311-05 ",.02)
 ;;63304-0311-05
 ;;9002226.02101,"1078,63304-0311-05 ",.03)
 ;;30
 ;;9002226.02101,"1078,63304-0311-30 ",.01)
 ;;63304-0311-30
 ;;9002226.02101,"1078,63304-0311-30 ",.02)
 ;;63304-0311-30
 ;;9002226.02101,"1078,63304-0311-30 ",.03)
 ;;30
 ;;9002226.02101,"1078,63304-0311-90 ",.01)
 ;;63304-0311-90
 ;;9002226.02101,"1078,63304-0311-90 ",.02)
 ;;63304-0311-90
 ;;9002226.02101,"1078,63304-0311-90 ",.03)
 ;;30
 ;;9002226.02101,"1078,63304-0425-01 ",.01)
 ;;63304-0425-01
 ;;9002226.02101,"1078,63304-0425-01 ",.02)
 ;;63304-0425-01
 ;;9002226.02101,"1078,63304-0425-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,63304-0426-01 ",.01)
 ;;63304-0426-01
 ;;9002226.02101,"1078,63304-0426-01 ",.02)
 ;;63304-0426-01
 ;;9002226.02101,"1078,63304-0426-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,63304-0427-01 ",.01)
 ;;63304-0427-01
 ;;9002226.02101,"1078,63304-0427-01 ",.02)
 ;;63304-0427-01
 ;;9002226.02101,"1078,63304-0427-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,63304025505 ",.01)
 ;;63304025505
 ;;9002226.02101,"1078,63304025505 ",.02)
 ;;63304025505
 ;;9002226.02101,"1078,63304025505 ",.03)
 ;;30
 ;;9002226.02101,"1078,63304025530 ",.01)
 ;;63304025530
 ;;9002226.02101,"1078,63304025530 ",.02)
 ;;63304025530
 ;;9002226.02101,"1078,63304025530 ",.03)
 ;;30
 ;;9002226.02101,"1078,63304025590 ",.01)
 ;;63304025590
 ;;9002226.02101,"1078,63304025590 ",.02)
 ;;63304025590
 ;;9002226.02101,"1078,63304025590 ",.03)
 ;;30
 ;;9002226.02101,"1078,63304026130 ",.01)
 ;;63304026130