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

BUDD1D24.m

Go to the documentation of this file.
BUDD1D24 ; 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,57237-0022-99 ",.02)
 ;;57237-0022-99
 ;;9002226.02101,"1078,57237-0022-99 ",.03)
 ;;30
 ;;9002226.02101,"1078,57237-0023-01 ",.01)
 ;;57237-0023-01
 ;;9002226.02101,"1078,57237-0023-01 ",.02)
 ;;57237-0023-01
 ;;9002226.02101,"1078,57237-0023-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,57237-0023-05 ",.01)
 ;;57237-0023-05
 ;;9002226.02101,"1078,57237-0023-05 ",.02)
 ;;57237-0023-05
 ;;9002226.02101,"1078,57237-0023-05 ",.03)
 ;;30
 ;;9002226.02101,"1078,57237-0024-01 ",.01)
 ;;57237-0024-01
 ;;9002226.02101,"1078,57237-0024-01 ",.02)
 ;;57237-0024-01
 ;;9002226.02101,"1078,57237-0024-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,57237-0024-05 ",.01)
 ;;57237-0024-05
 ;;9002226.02101,"1078,57237-0024-05 ",.02)
 ;;57237-0024-05
 ;;9002226.02101,"1078,57237-0024-05 ",.03)
 ;;30
 ;;9002226.02101,"1078,57237-0025-01 ",.01)
 ;;57237-0025-01
 ;;9002226.02101,"1078,57237-0025-01 ",.02)
 ;;57237-0025-01
 ;;9002226.02101,"1078,57237-0025-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,57237-0025-05 ",.01)
 ;;57237-0025-05
 ;;9002226.02101,"1078,57237-0025-05 ",.02)
 ;;57237-0025-05
 ;;9002226.02101,"1078,57237-0025-05 ",.03)
 ;;30
 ;;9002226.02101,"1078,57664-0398-13 ",.01)
 ;;57664-0398-13
 ;;9002226.02101,"1078,57664-0398-13 ",.02)
 ;;57664-0398-13
 ;;9002226.02101,"1078,57664-0398-13 ",.03)
 ;;30
 ;;9002226.02101,"1078,57664-0398-18 ",.01)
 ;;57664-0398-18
 ;;9002226.02101,"1078,57664-0398-18 ",.02)
 ;;57664-0398-18
 ;;9002226.02101,"1078,57664-0398-18 ",.03)
 ;;30
 ;;9002226.02101,"1078,57664-0398-88 ",.01)
 ;;57664-0398-88
 ;;9002226.02101,"1078,57664-0398-88 ",.02)
 ;;57664-0398-88
 ;;9002226.02101,"1078,57664-0398-88 ",.03)
 ;;30
 ;;9002226.02101,"1078,57664-0399-13 ",.01)
 ;;57664-0399-13
 ;;9002226.02101,"1078,57664-0399-13 ",.02)
 ;;57664-0399-13
 ;;9002226.02101,"1078,57664-0399-13 ",.03)
 ;;30
 ;;9002226.02101,"1078,57664-0399-18 ",.01)
 ;;57664-0399-18
 ;;9002226.02101,"1078,57664-0399-18 ",.02)
 ;;57664-0399-18
 ;;9002226.02101,"1078,57664-0399-18 ",.03)
 ;;30
 ;;9002226.02101,"1078,57664-0399-88 ",.01)
 ;;57664-0399-88
 ;;9002226.02101,"1078,57664-0399-88 ",.02)
 ;;57664-0399-88
 ;;9002226.02101,"1078,57664-0399-88 ",.03)
 ;;30
 ;;9002226.02101,"1078,57664-0724-88 ",.01)
 ;;57664-0724-88
 ;;9002226.02101,"1078,57664-0724-88 ",.02)
 ;;57664-0724-88
 ;;9002226.02101,"1078,57664-0724-88 ",.03)
 ;;30
 ;;9002226.02101,"1078,57664-0725-88 ",.01)
 ;;57664-0725-88
 ;;9002226.02101,"1078,57664-0725-88 ",.02)
 ;;57664-0725-88
 ;;9002226.02101,"1078,57664-0725-88 ",.03)
 ;;30
 ;;9002226.02101,"1078,57664-0727-88 ",.01)
 ;;57664-0727-88
 ;;9002226.02101,"1078,57664-0727-88 ",.02)
 ;;57664-0727-88
 ;;9002226.02101,"1078,57664-0727-88 ",.03)
 ;;30
 ;;9002226.02101,"1078,57664-0745-13 ",.01)
 ;;57664-0745-13
 ;;9002226.02101,"1078,57664-0745-13 ",.02)
 ;;57664-0745-13
 ;;9002226.02101,"1078,57664-0745-13 ",.03)
 ;;30
 ;;9002226.02101,"1078,57664-0745-88 ",.01)
 ;;57664-0745-88
 ;;9002226.02101,"1078,57664-0745-88 ",.02)
 ;;57664-0745-88
 ;;9002226.02101,"1078,57664-0745-88 ",.03)
 ;;30
 ;;9002226.02101,"1078,57664-0747-13 ",.01)
 ;;57664-0747-13
 ;;9002226.02101,"1078,57664-0747-13 ",.02)
 ;;57664-0747-13
 ;;9002226.02101,"1078,57664-0747-13 ",.03)
 ;;30
 ;;9002226.02101,"1078,57664-0747-88 ",.01)
 ;;57664-0747-88
 ;;9002226.02101,"1078,57664-0747-88 ",.02)
 ;;57664-0747-88
 ;;9002226.02101,"1078,57664-0747-88 ",.03)
 ;;30
 ;;9002226.02101,"1078,57866-6409-01 ",.01)
 ;;57866-6409-01
 ;;9002226.02101,"1078,57866-6409-01 ",.02)
 ;;57866-6409-01
 ;;9002226.02101,"1078,57866-6409-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,57866-6409-02 ",.01)
 ;;57866-6409-02
 ;;9002226.02101,"1078,57866-6409-02 ",.02)
 ;;57866-6409-02
 ;;9002226.02101,"1078,57866-6409-02 ",.03)
 ;;30
 ;;9002226.02101,"1078,57866-6409-03 ",.01)
 ;;57866-6409-03
 ;;9002226.02101,"1078,57866-6409-03 ",.02)
 ;;57866-6409-03
 ;;9002226.02101,"1078,57866-6409-03 ",.03)
 ;;30
 ;;9002226.02101,"1078,57866-6409-04 ",.01)
 ;;57866-6409-04
 ;;9002226.02101,"1078,57866-6409-04 ",.02)
 ;;57866-6409-04
 ;;9002226.02101,"1078,57866-6409-04 ",.03)
 ;;30
 ;;9002226.02101,"1078,57866-6409-05 ",.01)
 ;;57866-6409-05
 ;;9002226.02101,"1078,57866-6409-05 ",.02)
 ;;57866-6409-05
 ;;9002226.02101,"1078,57866-6409-05 ",.03)
 ;;30
 ;;9002226.02101,"1078,57866-6409-06 ",.01)
 ;;57866-6409-06
 ;;9002226.02101,"1078,57866-6409-06 ",.02)
 ;;57866-6409-06
 ;;9002226.02101,"1078,57866-6409-06 ",.03)
 ;;30
 ;;9002226.02101,"1078,57866-6462-01 ",.01)
 ;;57866-6462-01
 ;;9002226.02101,"1078,57866-6462-01 ",.02)
 ;;57866-6462-01
 ;;9002226.02101,"1078,57866-6462-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,57866-6462-02 ",.01)
 ;;57866-6462-02
 ;;9002226.02101,"1078,57866-6462-02 ",.02)
 ;;57866-6462-02
 ;;9002226.02101,"1078,57866-6462-02 ",.03)
 ;;30
 ;;9002226.02101,"1078,57866-6463-01 ",.01)
 ;;57866-6463-01
 ;;9002226.02101,"1078,57866-6463-01 ",.02)
 ;;57866-6463-01
 ;;9002226.02101,"1078,57866-6463-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,57866-6463-02 ",.01)
 ;;57866-6463-02
 ;;9002226.02101,"1078,57866-6463-02 ",.02)
 ;;57866-6463-02
 ;;9002226.02101,"1078,57866-6463-02 ",.03)
 ;;30
 ;;9002226.02101,"1078,57866-7073-01 ",.01)
 ;;57866-7073-01
 ;;9002226.02101,"1078,57866-7073-01 ",.02)
 ;;57866-7073-01
 ;;9002226.02101,"1078,57866-7073-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,57866-7073-02 ",.01)
 ;;57866-7073-02
 ;;9002226.02101,"1078,57866-7073-02 ",.02)
 ;;57866-7073-02
 ;;9002226.02101,"1078,57866-7073-02 ",.03)
 ;;30
 ;;9002226.02101,"1078,57866-7074-01 ",.01)
 ;;57866-7074-01
 ;;9002226.02101,"1078,57866-7074-01 ",.02)
 ;;57866-7074-01
 ;;9002226.02101,"1078,57866-7074-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,57866-7074-02 ",.01)
 ;;57866-7074-02
 ;;9002226.02101,"1078,57866-7074-02 ",.02)
 ;;57866-7074-02
 ;;9002226.02101,"1078,57866-7074-02 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0005-00 ",.01)
 ;;58016-0005-00
 ;;9002226.02101,"1078,58016-0005-00 ",.02)
 ;;58016-0005-00
 ;;9002226.02101,"1078,58016-0005-00 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0005-30 ",.01)
 ;;58016-0005-30
 ;;9002226.02101,"1078,58016-0005-30 ",.02)
 ;;58016-0005-30
 ;;9002226.02101,"1078,58016-0005-30 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0005-60 ",.01)
 ;;58016-0005-60
 ;;9002226.02101,"1078,58016-0005-60 ",.02)
 ;;58016-0005-60
 ;;9002226.02101,"1078,58016-0005-60 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0005-90 ",.01)
 ;;58016-0005-90
 ;;9002226.02101,"1078,58016-0005-90 ",.02)
 ;;58016-0005-90
 ;;9002226.02101,"1078,58016-0005-90 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0058-00 ",.01)
 ;;58016-0058-00
 ;;9002226.02101,"1078,58016-0058-00 ",.02)
 ;;58016-0058-00
 ;;9002226.02101,"1078,58016-0058-00 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0058-30 ",.01)
 ;;58016-0058-30
 ;;9002226.02101,"1078,58016-0058-30 ",.02)
 ;;58016-0058-30
 ;;9002226.02101,"1078,58016-0058-30 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0058-60 ",.01)
 ;;58016-0058-60
 ;;9002226.02101,"1078,58016-0058-60 ",.02)
 ;;58016-0058-60
 ;;9002226.02101,"1078,58016-0058-60 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0058-90 ",.01)
 ;;58016-0058-90
 ;;9002226.02101,"1078,58016-0058-90 ",.02)
 ;;58016-0058-90
 ;;9002226.02101,"1078,58016-0058-90 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0334-00 ",.01)
 ;;58016-0334-00
 ;;9002226.02101,"1078,58016-0334-00 ",.02)
 ;;58016-0334-00
 ;;9002226.02101,"1078,58016-0334-00 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0334-02 ",.01)
 ;;58016-0334-02
 ;;9002226.02101,"1078,58016-0334-02 ",.02)
 ;;58016-0334-02
 ;;9002226.02101,"1078,58016-0334-02 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0334-30 ",.01)
 ;;58016-0334-30
 ;;9002226.02101,"1078,58016-0334-30 ",.02)
 ;;58016-0334-30
 ;;9002226.02101,"1078,58016-0334-30 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0334-60 ",.01)
 ;;58016-0334-60
 ;;9002226.02101,"1078,58016-0334-60 ",.02)
 ;;58016-0334-60
 ;;9002226.02101,"1078,58016-0334-60 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0334-90 ",.01)
 ;;58016-0334-90
 ;;9002226.02101,"1078,58016-0334-90 ",.02)
 ;;58016-0334-90
 ;;9002226.02101,"1078,58016-0334-90 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0370-30 ",.01)
 ;;58016-0370-30
 ;;9002226.02101,"1078,58016-0370-30 ",.02)
 ;;58016-0370-30
 ;;9002226.02101,"1078,58016-0370-30 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0376-00 ",.01)
 ;;58016-0376-00
 ;;9002226.02101,"1078,58016-0376-00 ",.02)
 ;;58016-0376-00
 ;;9002226.02101,"1078,58016-0376-00 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0376-02 ",.01)
 ;;58016-0376-02
 ;;9002226.02101,"1078,58016-0376-02 ",.02)
 ;;58016-0376-02
 ;;9002226.02101,"1078,58016-0376-02 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0376-30 ",.01)
 ;;58016-0376-30
 ;;9002226.02101,"1078,58016-0376-30 ",.02)
 ;;58016-0376-30
 ;;9002226.02101,"1078,58016-0376-30 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0376-60 ",.01)
 ;;58016-0376-60
 ;;9002226.02101,"1078,58016-0376-60 ",.02)
 ;;58016-0376-60
 ;;9002226.02101,"1078,58016-0376-60 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0376-90 ",.01)
 ;;58016-0376-90
 ;;9002226.02101,"1078,58016-0376-90 ",.02)
 ;;58016-0376-90
 ;;9002226.02101,"1078,58016-0376-90 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0376-99 ",.01)
 ;;58016-0376-99
 ;;9002226.02101,"1078,58016-0376-99 ",.02)
 ;;58016-0376-99
 ;;9002226.02101,"1078,58016-0376-99 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0378-00 ",.01)
 ;;58016-0378-00
 ;;9002226.02101,"1078,58016-0378-00 ",.02)
 ;;58016-0378-00
 ;;9002226.02101,"1078,58016-0378-00 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0378-02 ",.01)
 ;;58016-0378-02
 ;;9002226.02101,"1078,58016-0378-02 ",.02)
 ;;58016-0378-02
 ;;9002226.02101,"1078,58016-0378-02 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0378-30 ",.01)
 ;;58016-0378-30
 ;;9002226.02101,"1078,58016-0378-30 ",.02)
 ;;58016-0378-30
 ;;9002226.02101,"1078,58016-0378-30 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0378-60 ",.01)
 ;;58016-0378-60
 ;;9002226.02101,"1078,58016-0378-60 ",.02)
 ;;58016-0378-60
 ;;9002226.02101,"1078,58016-0378-60 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0378-90 ",.01)
 ;;58016-0378-90
 ;;9002226.02101,"1078,58016-0378-90 ",.02)
 ;;58016-0378-90
 ;;9002226.02101,"1078,58016-0378-90 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0378-99 ",.01)
 ;;58016-0378-99
 ;;9002226.02101,"1078,58016-0378-99 ",.02)
 ;;58016-0378-99
 ;;9002226.02101,"1078,58016-0378-99 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0411-00 ",.01)
 ;;58016-0411-00
 ;;9002226.02101,"1078,58016-0411-00 ",.02)
 ;;58016-0411-00
 ;;9002226.02101,"1078,58016-0411-00 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0411-02 ",.01)
 ;;58016-0411-02
 ;;9002226.02101,"1078,58016-0411-02 ",.02)
 ;;58016-0411-02
 ;;9002226.02101,"1078,58016-0411-02 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0411-30 ",.01)
 ;;58016-0411-30
 ;;9002226.02101,"1078,58016-0411-30 ",.02)
 ;;58016-0411-30
 ;;9002226.02101,"1078,58016-0411-30 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0411-60 ",.01)
 ;;58016-0411-60
 ;;9002226.02101,"1078,58016-0411-60 ",.02)
 ;;58016-0411-60
 ;;9002226.02101,"1078,58016-0411-60 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0411-90 ",.01)
 ;;58016-0411-90
 ;;9002226.02101,"1078,58016-0411-90 ",.02)
 ;;58016-0411-90
 ;;9002226.02101,"1078,58016-0411-90 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0467-00 ",.01)
 ;;58016-0467-00
 ;;9002226.02101,"1078,58016-0467-00 ",.02)
 ;;58016-0467-00
 ;;9002226.02101,"1078,58016-0467-00 ",.03)
 ;;30
 ;;9002226.02101,"1078,58016-0467-30 ",.01)
 ;;58016-0467-30
 ;;9002226.02101,"1078,58016-0467-30 ",.02)
 ;;58016-0467-30
 ;;9002226.02101,"1078,58016-0467-30 ",.03)
 ;;30