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

BUDD1D12.m

Go to the documentation of this file.
  1. BUDD1D12 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON NOV 30, 2016 ;
  1. ;;11.0;IHS/RPMS UNIFORM DATA SYSTEM;;JAN 18, 2017;Build 66
  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,"1078,00310-6205-30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00310-6210-30 ",.01)
  1. ;;00310-6210-30
  1. ;;9002226.02101,"1078,00310-6210-30 ",.02)
  1. ;;00310-6210-30
  1. ;;9002226.02101,"1078,00310-6210-30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00310-6512-01 ",.01)
  1. ;;00310-6512-01
  1. ;;9002226.02101,"1078,00310-6512-01 ",.02)
  1. ;;00310-6512-01
  1. ;;9002226.02101,"1078,00310-6512-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00310-6520-04 ",.01)
  1. ;;00310-6520-04
  1. ;;9002226.02101,"1078,00310-6520-04 ",.02)
  1. ;;00310-6520-04
  1. ;;9002226.02101,"1078,00310-6520-04 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00310-6524-01 ",.01)
  1. ;;00310-6524-01
  1. ;;9002226.02101,"1078,00310-6524-01 ",.02)
  1. ;;00310-6524-01
  1. ;;9002226.02101,"1078,00310-6524-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00310-6530-04 ",.01)
  1. ;;00310-6530-04
  1. ;;9002226.02101,"1078,00310-6530-04 ",.02)
  1. ;;00310-6530-04
  1. ;;9002226.02101,"1078,00310-6530-04 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00310-6615-02 ",.01)
  1. ;;00310-6615-02
  1. ;;9002226.02101,"1078,00310-6615-02 ",.02)
  1. ;;00310-6615-02
  1. ;;9002226.02101,"1078,00310-6615-02 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00310-6627-02 ",.01)
  1. ;;00310-6627-02
  1. ;;9002226.02101,"1078,00310-6627-02 ",.02)
  1. ;;00310-6627-02
  1. ;;9002226.02101,"1078,00310-6627-02 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-0048-05 ",.01)
  1. ;;00378-0048-05
  1. ;;9002226.02101,"1078,00378-0048-05 ",.02)
  1. ;;00378-0048-05
  1. ;;9002226.02101,"1078,00378-0048-05 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-0048-77 ",.01)
  1. ;;00378-0048-77
  1. ;;9002226.02101,"1078,00378-0048-77 ",.02)
  1. ;;00378-0048-77
  1. ;;9002226.02101,"1078,00378-0048-77 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-0048-93 ",.01)
  1. ;;00378-0048-93
  1. ;;9002226.02101,"1078,00378-0048-93 ",.02)
  1. ;;00378-0048-93
  1. ;;9002226.02101,"1078,00378-0048-93 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-0197-01 ",.01)
  1. ;;00378-0197-01
  1. ;;9002226.02101,"1078,00378-0197-01 ",.02)
  1. ;;00378-0197-01
  1. ;;9002226.02101,"1078,00378-0197-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-0197-05 ",.01)
  1. ;;00378-0197-05
  1. ;;9002226.02101,"1078,00378-0197-05 ",.02)
  1. ;;00378-0197-05
  1. ;;9002226.02101,"1078,00378-0197-05 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-0210-01 ",.01)
  1. ;;00378-0210-01
  1. ;;9002226.02101,"1078,00378-0210-01 ",.02)
  1. ;;00378-0210-01
  1. ;;9002226.02101,"1078,00378-0210-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-0210-10 ",.01)
  1. ;;00378-0210-10
  1. ;;9002226.02101,"1078,00378-0210-10 ",.02)
  1. ;;00378-0210-10
  1. ;;9002226.02101,"1078,00378-0210-10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-0215-01 ",.01)
  1. ;;00378-0215-01
  1. ;;9002226.02101,"1078,00378-0215-01 ",.02)
  1. ;;00378-0215-01
  1. ;;9002226.02101,"1078,00378-0215-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-0215-05 ",.01)
  1. ;;00378-0215-05
  1. ;;9002226.02101,"1078,00378-0215-05 ",.02)
  1. ;;00378-0215-05
  1. ;;9002226.02101,"1078,00378-0215-05 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-0217-01 ",.01)
  1. ;;00378-0217-01
  1. ;;9002226.02101,"1078,00378-0217-01 ",.02)
  1. ;;00378-0217-01
  1. ;;9002226.02101,"1078,00378-0217-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-0228-05 ",.01)
  1. ;;00378-0228-05
  1. ;;9002226.02101,"1078,00378-0228-05 ",.02)
  1. ;;00378-0228-05
  1. ;;9002226.02101,"1078,00378-0228-05 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-0228-77 ",.01)
  1. ;;00378-0228-77
  1. ;;9002226.02101,"1078,00378-0228-77 ",.02)
  1. ;;00378-0228-77
  1. ;;9002226.02101,"1078,00378-0228-77 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-0228-93 ",.01)
  1. ;;00378-0228-93
  1. ;;9002226.02101,"1078,00378-0228-93 ",.02)
  1. ;;00378-0228-93
  1. ;;9002226.02101,"1078,00378-0228-93 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-0551-01 ",.01)
  1. ;;00378-0551-01
  1. ;;9002226.02101,"1078,00378-0551-01 ",.02)
  1. ;;00378-0551-01
  1. ;;9002226.02101,"1078,00378-0551-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-1105-01 ",.01)
  1. ;;00378-1105-01
  1. ;;9002226.02101,"1078,00378-1105-01 ",.02)
  1. ;;00378-1105-01
  1. ;;9002226.02101,"1078,00378-1105-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-1105-05 ",.01)
  1. ;;00378-1105-05
  1. ;;9002226.02101,"1078,00378-1105-05 ",.02)
  1. ;;00378-1105-05
  1. ;;9002226.02101,"1078,00378-1105-05 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-1110-01 ",.01)
  1. ;;00378-1110-01
  1. ;;9002226.02101,"1078,00378-1110-01 ",.02)
  1. ;;00378-1110-01
  1. ;;9002226.02101,"1078,00378-1110-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-1110-05 ",.01)
  1. ;;00378-1110-05
  1. ;;9002226.02101,"1078,00378-1110-05 ",.02)
  1. ;;00378-1110-05
  1. ;;9002226.02101,"1078,00378-1110-05 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-1113-01 ",.01)
  1. ;;00378-1113-01
  1. ;;9002226.02101,"1078,00378-1113-01 ",.02)
  1. ;;00378-1113-01
  1. ;;9002226.02101,"1078,00378-1113-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-1125-01 ",.01)
  1. ;;00378-1125-01
  1. ;;9002226.02101,"1078,00378-1125-01 ",.02)
  1. ;;00378-1125-01
  1. ;;9002226.02101,"1078,00378-1125-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-1125-10 ",.01)
  1. ;;00378-1125-10
  1. ;;9002226.02101,"1078,00378-1125-10 ",.02)
  1. ;;00378-1125-10
  1. ;;9002226.02101,"1078,00378-1125-10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-1142-01 ",.01)
  1. ;;00378-1142-01
  1. ;;9002226.02101,"1078,00378-1142-01 ",.02)
  1. ;;00378-1142-01
  1. ;;9002226.02101,"1078,00378-1142-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-1550-91 ",.01)
  1. ;;00378-1550-91
  1. ;;9002226.02101,"1078,00378-1550-91 ",.02)
  1. ;;00378-1550-91
  1. ;;9002226.02101,"1078,00378-1550-91 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-1575-91 ",.01)
  1. ;;00378-1575-91
  1. ;;9002226.02101,"1078,00378-1575-91 ",.02)
  1. ;;00378-1575-91
  1. ;;9002226.02101,"1078,00378-1575-91 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-2820-10 ",.01)
  1. ;;00378-2820-10
  1. ;;9002226.02101,"1078,00378-2820-10 ",.02)
  1. ;;00378-2820-10
  1. ;;9002226.02101,"1078,00378-2820-10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-2820-77 ",.01)
  1. ;;00378-2820-77
  1. ;;9002226.02101,"1078,00378-2820-77 ",.02)
  1. ;;00378-2820-77
  1. ;;9002226.02101,"1078,00378-2820-77 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-2821-10 ",.01)
  1. ;;00378-2821-10
  1. ;;9002226.02101,"1078,00378-2821-10 ",.02)
  1. ;;00378-2821-10
  1. ;;9002226.02101,"1078,00378-2821-10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-2821-77 ",.01)
  1. ;;00378-2821-77
  1. ;;9002226.02101,"1078,00378-2821-77 ",.02)
  1. ;;00378-2821-77
  1. ;;9002226.02101,"1078,00378-2821-77 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-2822-10 ",.01)
  1. ;;00378-2822-10
  1. ;;9002226.02101,"1078,00378-2822-10 ",.02)
  1. ;;00378-2822-10
  1. ;;9002226.02101,"1078,00378-2822-10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-2822-77 ",.01)
  1. ;;00378-2822-77
  1. ;;9002226.02101,"1078,00378-2822-77 ",.02)
  1. ;;00378-2822-77
  1. ;;9002226.02101,"1078,00378-2822-77 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-3121-01 ",.01)
  1. ;;00378-3121-01
  1. ;;9002226.02101,"1078,00378-3121-01 ",.02)
  1. ;;00378-3121-01
  1. ;;9002226.02101,"1078,00378-3121-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-3121-05 ",.01)
  1. ;;00378-3121-05
  1. ;;9002226.02101,"1078,00378-3121-05 ",.02)
  1. ;;00378-3121-05
  1. ;;9002226.02101,"1078,00378-3121-05 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-3122-01 ",.01)
  1. ;;00378-3122-01
  1. ;;9002226.02101,"1078,00378-3122-01 ",.02)
  1. ;;00378-3122-01
  1. ;;9002226.02101,"1078,00378-3122-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-3123-01 ",.01)
  1. ;;00378-3123-01
  1. ;;9002226.02101,"1078,00378-3123-01 ",.02)
  1. ;;00378-3123-01
  1. ;;9002226.02101,"1078,00378-3123-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-3131-01 ",.01)
  1. ;;00378-3131-01
  1. ;;9002226.02101,"1078,00378-3131-01 ",.02)
  1. ;;00378-3131-01
  1. ;;9002226.02101,"1078,00378-3131-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-3132-01 ",.01)
  1. ;;00378-3132-01
  1. ;;9002226.02101,"1078,00378-3132-01 ",.02)
  1. ;;00378-3132-01
  1. ;;9002226.02101,"1078,00378-3132-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-3133-01 ",.01)
  1. ;;00378-3133-01
  1. ;;9002226.02101,"1078,00378-3133-01 ",.02)
  1. ;;00378-3133-01
  1. ;;9002226.02101,"1078,00378-3133-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-4011-01 ",.01)
  1. ;;00378-4011-01
  1. ;;9002226.02101,"1078,00378-4011-01 ",.02)
  1. ;;00378-4011-01
  1. ;;9002226.02101,"1078,00378-4011-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-4012-01 ",.01)
  1. ;;00378-4012-01
  1. ;;9002226.02101,"1078,00378-4012-01 ",.02)
  1. ;;00378-4012-01
  1. ;;9002226.02101,"1078,00378-4012-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378-4013-01 ",.01)
  1. ;;00378-4013-01
  1. ;;9002226.02101,"1078,00378-4013-01 ",.02)
  1. ;;00378-4013-01
  1. ;;9002226.02101,"1078,00378-4013-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378031805 ",.01)
  1. ;;00378031805
  1. ;;9002226.02101,"1078,00378031805 ",.02)
  1. ;;00378031805
  1. ;;9002226.02101,"1078,00378031805 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378031877 ",.01)
  1. ;;00378031877
  1. ;;9002226.02101,"1078,00378031877 ",.02)
  1. ;;00378031877
  1. ;;9002226.02101,"1078,00378031877 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00378031893 ",.01)
  1. ;;00378031893
  1. ;;9002226.02101,"1078,00378031893 ",.02)
  1. ;;00378031893
  1. ;;9002226.02101,"1078,00378031893 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00440-7566-30 ",.01)
  1. ;;00440-7566-30
  1. ;;9002226.02101,"1078,00440-7566-30 ",.02)
  1. ;;00440-7566-30
  1. ;;9002226.02101,"1078,00440-7566-30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00555-0625-02 ",.01)
  1. ;;00555-0625-02
  1. ;;9002226.02101,"1078,00555-0625-02 ",.02)
  1. ;;00555-0625-02
  1. ;;9002226.02101,"1078,00555-0625-02 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00555-0626-02 ",.01)
  1. ;;00555-0626-02
  1. ;;9002226.02101,"1078,00555-0626-02 ",.02)
  1. ;;00555-0626-02
  1. ;;9002226.02101,"1078,00555-0626-02 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00555-0627-02 ",.01)
  1. ;;00555-0627-02
  1. ;;9002226.02101,"1078,00555-0627-02 ",.02)
  1. ;;00555-0627-02
  1. ;;9002226.02101,"1078,00555-0627-02 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00574-0240-01 ",.01)
  1. ;;00574-0240-01
  1. ;;9002226.02101,"1078,00574-0240-01 ",.02)
  1. ;;00574-0240-01
  1. ;;9002226.02101,"1078,00574-0240-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00574-0241-01 ",.01)
  1. ;;00574-0241-01
  1. ;;9002226.02101,"1078,00574-0241-01 ",.02)
  1. ;;00574-0241-01
  1. ;;9002226.02101,"1078,00574-0241-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00574-0242-01 ",.01)
  1. ;;00574-0242-01
  1. ;;9002226.02101,"1078,00574-0242-01 ",.02)
  1. ;;00574-0242-01
  1. ;;9002226.02101,"1078,00574-0242-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00591-0460-01 ",.01)
  1. ;;00591-0460-01
  1. ;;9002226.02101,"1078,00591-0460-01 ",.02)
  1. ;;00591-0460-01
  1. ;;9002226.02101,"1078,00591-0460-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00591-0460-05 ",.01)
  1. ;;00591-0460-05
  1. ;;9002226.02101,"1078,00591-0460-05 ",.02)
  1. ;;00591-0460-05
  1. ;;9002226.02101,"1078,00591-0460-05 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00591-0460-10 ",.01)
  1. ;;00591-0460-10
  1. ;;9002226.02101,"1078,00591-0460-10 ",.02)
  1. ;;00591-0460-10
  1. ;;9002226.02101,"1078,00591-0460-10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00591-0461-01 ",.01)
  1. ;;00591-0461-01
  1. ;;9002226.02101,"1078,00591-0461-01 ",.02)
  1. ;;00591-0461-01
  1. ;;9002226.02101,"1078,00591-0461-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00591-0461-05 ",.01)
  1. ;;00591-0461-05
  1. ;;9002226.02101,"1078,00591-0461-05 ",.02)
  1. ;;00591-0461-05
  1. ;;9002226.02101,"1078,00591-0461-05 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00591-0461-10 ",.01)
  1. ;;00591-0461-10
  1. ;;9002226.02101,"1078,00591-0461-10 ",.02)
  1. ;;00591-0461-10
  1. ;;9002226.02101,"1078,00591-0461-10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00591-0844-01 ",.01)
  1. ;;00591-0844-01
  1. ;;9002226.02101,"1078,00591-0844-01 ",.02)
  1. ;;00591-0844-01
  1. ;;9002226.02101,"1078,00591-0844-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00591-0844-10 ",.01)
  1. ;;00591-0844-10
  1. ;;9002226.02101,"1078,00591-0844-10 ",.02)
  1. ;;00591-0844-10
  1. ;;9002226.02101,"1078,00591-0844-10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00591-0844-15 ",.01)
  1. ;;00591-0844-15
  1. ;;9002226.02101,"1078,00591-0844-15 ",.02)
  1. ;;00591-0844-15
  1. ;;9002226.02101,"1078,00591-0844-15 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,00591-0845-01 ",.01)
  1. ;;00591-0845-01
  1. ;;9002226.02101,"1078,00591-0845-01 ",.02)
  1. ;;00591-0845-01