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

BUDD1D18.m

Go to the documentation of this file.
  1. BUDD1D18 ; 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,51079-0873-17 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51079-0873-19 ",.01)
  1. ;;51079-0873-19
  1. ;;9002226.02101,"1078,51079-0873-19 ",.02)
  1. ;;51079-0873-19
  1. ;;9002226.02101,"1078,51079-0873-19 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51079-0873-20 ",.01)
  1. ;;51079-0873-20
  1. ;;9002226.02101,"1078,51079-0873-20 ",.02)
  1. ;;51079-0873-20
  1. ;;9002226.02101,"1078,51079-0873-20 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51079051401 ",.01)
  1. ;;51079051401
  1. ;;9002226.02101,"1078,51079051401 ",.02)
  1. ;;51079051401
  1. ;;9002226.02101,"1078,51079051401 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51079051420 ",.01)
  1. ;;51079051420
  1. ;;9002226.02101,"1078,51079051420 ",.02)
  1. ;;51079051420
  1. ;;9002226.02101,"1078,51079051420 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51079051501 ",.01)
  1. ;;51079051501
  1. ;;9002226.02101,"1078,51079051501 ",.02)
  1. ;;51079051501
  1. ;;9002226.02101,"1078,51079051501 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51079051520 ",.01)
  1. ;;51079051520
  1. ;;9002226.02101,"1078,51079051520 ",.02)
  1. ;;51079051520
  1. ;;9002226.02101,"1078,51079051520 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51285-0598-04 ",.01)
  1. ;;51285-0598-04
  1. ;;9002226.02101,"1078,51285-0598-04 ",.02)
  1. ;;51285-0598-04
  1. ;;9002226.02101,"1078,51285-0598-04 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51285-0599-04 ",.01)
  1. ;;51285-0599-04
  1. ;;9002226.02101,"1078,51285-0599-04 ",.02)
  1. ;;51285-0599-04
  1. ;;9002226.02101,"1078,51285-0599-04 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51655-0904-24 ",.01)
  1. ;;51655-0904-24
  1. ;;9002226.02101,"1078,51655-0904-24 ",.02)
  1. ;;51655-0904-24
  1. ;;9002226.02101,"1078,51655-0904-24 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51655-0904-25 ",.01)
  1. ;;51655-0904-25
  1. ;;9002226.02101,"1078,51655-0904-25 ",.02)
  1. ;;51655-0904-25
  1. ;;9002226.02101,"1078,51655-0904-25 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51655-0961-24 ",.01)
  1. ;;51655-0961-24
  1. ;;9002226.02101,"1078,51655-0961-24 ",.02)
  1. ;;51655-0961-24
  1. ;;9002226.02101,"1078,51655-0961-24 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51655-0961-25 ",.01)
  1. ;;51655-0961-25
  1. ;;9002226.02101,"1078,51655-0961-25 ",.02)
  1. ;;51655-0961-25
  1. ;;9002226.02101,"1078,51655-0961-25 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51655-0962-24 ",.01)
  1. ;;51655-0962-24
  1. ;;9002226.02101,"1078,51655-0962-24 ",.02)
  1. ;;51655-0962-24
  1. ;;9002226.02101,"1078,51655-0962-24 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51862-0210-01 ",.01)
  1. ;;51862-0210-01
  1. ;;9002226.02101,"1078,51862-0210-01 ",.02)
  1. ;;51862-0210-01
  1. ;;9002226.02101,"1078,51862-0210-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51862-0211-01 ",.01)
  1. ;;51862-0211-01
  1. ;;9002226.02101,"1078,51862-0211-01 ",.02)
  1. ;;51862-0211-01
  1. ;;9002226.02101,"1078,51862-0211-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51862-0212-01 ",.01)
  1. ;;51862-0212-01
  1. ;;9002226.02101,"1078,51862-0212-01 ",.02)
  1. ;;51862-0212-01
  1. ;;9002226.02101,"1078,51862-0212-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51991-0708-10 ",.01)
  1. ;;51991-0708-10
  1. ;;9002226.02101,"1078,51991-0708-10 ",.02)
  1. ;;51991-0708-10
  1. ;;9002226.02101,"1078,51991-0708-10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51991-0708-33 ",.01)
  1. ;;51991-0708-33
  1. ;;9002226.02101,"1078,51991-0708-33 ",.02)
  1. ;;51991-0708-33
  1. ;;9002226.02101,"1078,51991-0708-33 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51991-0708-90 ",.01)
  1. ;;51991-0708-90
  1. ;;9002226.02101,"1078,51991-0708-90 ",.02)
  1. ;;51991-0708-90
  1. ;;9002226.02101,"1078,51991-0708-90 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51991070910 ",.01)
  1. ;;51991070910
  1. ;;9002226.02101,"1078,51991070910 ",.02)
  1. ;;51991070910
  1. ;;9002226.02101,"1078,51991070910 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51991070933 ",.01)
  1. ;;51991070933
  1. ;;9002226.02101,"1078,51991070933 ",.02)
  1. ;;51991070933
  1. ;;9002226.02101,"1078,51991070933 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51991070990 ",.01)
  1. ;;51991070990
  1. ;;9002226.02101,"1078,51991070990 ",.02)
  1. ;;51991070990
  1. ;;9002226.02101,"1078,51991070990 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51991071010 ",.01)
  1. ;;51991071010
  1. ;;9002226.02101,"1078,51991071010 ",.02)
  1. ;;51991071010
  1. ;;9002226.02101,"1078,51991071010 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51991071033 ",.01)
  1. ;;51991071033
  1. ;;9002226.02101,"1078,51991071033 ",.02)
  1. ;;51991071033
  1. ;;9002226.02101,"1078,51991071033 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,51991071090 ",.01)
  1. ;;51991071090
  1. ;;9002226.02101,"1078,51991071090 ",.02)
  1. ;;51991071090
  1. ;;9002226.02101,"1078,51991071090 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,52343005405 ",.01)
  1. ;;52343005405
  1. ;;9002226.02101,"1078,52343005405 ",.02)
  1. ;;52343005405
  1. ;;9002226.02101,"1078,52343005405 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,52343005430 ",.01)
  1. ;;52343005430
  1. ;;9002226.02101,"1078,52343005430 ",.02)
  1. ;;52343005430
  1. ;;9002226.02101,"1078,52343005430 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,52343005490 ",.01)
  1. ;;52343005490
  1. ;;9002226.02101,"1078,52343005490 ",.02)
  1. ;;52343005490
  1. ;;9002226.02101,"1078,52343005490 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,52959-0449-30 ",.01)
  1. ;;52959-0449-30
  1. ;;9002226.02101,"1078,52959-0449-30 ",.02)
  1. ;;52959-0449-30
  1. ;;9002226.02101,"1078,52959-0449-30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,52959-0449-60 ",.01)
  1. ;;52959-0449-60
  1. ;;9002226.02101,"1078,52959-0449-60 ",.02)
  1. ;;52959-0449-60
  1. ;;9002226.02101,"1078,52959-0449-60 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,52959-0822-00 ",.01)
  1. ;;52959-0822-00
  1. ;;9002226.02101,"1078,52959-0822-00 ",.02)
  1. ;;52959-0822-00
  1. ;;9002226.02101,"1078,52959-0822-00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,52959-0822-30 ",.01)
  1. ;;52959-0822-30
  1. ;;9002226.02101,"1078,52959-0822-30 ",.02)
  1. ;;52959-0822-30
  1. ;;9002226.02101,"1078,52959-0822-30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,52959-0822-60 ",.01)
  1. ;;52959-0822-60
  1. ;;9002226.02101,"1078,52959-0822-60 ",.02)
  1. ;;52959-0822-60
  1. ;;9002226.02101,"1078,52959-0822-60 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,52959-0823-20 ",.01)
  1. ;;52959-0823-20
  1. ;;9002226.02101,"1078,52959-0823-20 ",.02)
  1. ;;52959-0823-20
  1. ;;9002226.02101,"1078,52959-0823-20 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,52959-0823-60 ",.01)
  1. ;;52959-0823-60
  1. ;;9002226.02101,"1078,52959-0823-60 ",.02)
  1. ;;52959-0823-60
  1. ;;9002226.02101,"1078,52959-0823-60 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,52959-0888-00 ",.01)
  1. ;;52959-0888-00
  1. ;;9002226.02101,"1078,52959-0888-00 ",.02)
  1. ;;52959-0888-00
  1. ;;9002226.02101,"1078,52959-0888-00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,52959-0888-30 ",.01)
  1. ;;52959-0888-30
  1. ;;9002226.02101,"1078,52959-0888-30 ",.02)
  1. ;;52959-0888-30
  1. ;;9002226.02101,"1078,52959-0888-30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,52959-0936-30 ",.01)
  1. ;;52959-0936-30
  1. ;;9002226.02101,"1078,52959-0936-30 ",.02)
  1. ;;52959-0936-30
  1. ;;9002226.02101,"1078,52959-0936-30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,53746-0286-02 ",.01)
  1. ;;53746-0286-02
  1. ;;9002226.02101,"1078,53746-0286-02 ",.02)
  1. ;;53746-0286-02
  1. ;;9002226.02101,"1078,53746-0286-02 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,53808-0257-01 ",.01)
  1. ;;53808-0257-01
  1. ;;9002226.02101,"1078,53808-0257-01 ",.02)
  1. ;;53808-0257-01
  1. ;;9002226.02101,"1078,53808-0257-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,53808-0258-01 ",.01)
  1. ;;53808-0258-01
  1. ;;9002226.02101,"1078,53808-0258-01 ",.02)
  1. ;;53808-0258-01
  1. ;;9002226.02101,"1078,53808-0258-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,53808-0259-01 ",.01)
  1. ;;53808-0259-01
  1. ;;9002226.02101,"1078,53808-0259-01 ",.02)
  1. ;;53808-0259-01
  1. ;;9002226.02101,"1078,53808-0259-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,53808-0260-01 ",.01)
  1. ;;53808-0260-01
  1. ;;9002226.02101,"1078,53808-0260-01 ",.02)
  1. ;;53808-0260-01
  1. ;;9002226.02101,"1078,53808-0260-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,53808-0369-01 ",.01)
  1. ;;53808-0369-01
  1. ;;9002226.02101,"1078,53808-0369-01 ",.02)
  1. ;;53808-0369-01
  1. ;;9002226.02101,"1078,53808-0369-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,53808-0400-01 ",.01)
  1. ;;53808-0400-01
  1. ;;9002226.02101,"1078,53808-0400-01 ",.02)
  1. ;;53808-0400-01
  1. ;;9002226.02101,"1078,53808-0400-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54458-0885-10 ",.01)
  1. ;;54458-0885-10
  1. ;;9002226.02101,"1078,54458-0885-10 ",.02)
  1. ;;54458-0885-10
  1. ;;9002226.02101,"1078,54458-0885-10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54458-0966-10 ",.01)
  1. ;;54458-0966-10
  1. ;;9002226.02101,"1078,54458-0966-10 ",.02)
  1. ;;54458-0966-10
  1. ;;9002226.02101,"1078,54458-0966-10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54458-0967-10 ",.01)
  1. ;;54458-0967-10
  1. ;;9002226.02101,"1078,54458-0967-10 ",.02)
  1. ;;54458-0967-10
  1. ;;9002226.02101,"1078,54458-0967-10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54458-0968-10 ",.01)
  1. ;;54458-0968-10
  1. ;;9002226.02101,"1078,54458-0968-10 ",.02)
  1. ;;54458-0968-10
  1. ;;9002226.02101,"1078,54458-0968-10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54458088310 ",.01)
  1. ;;54458088310
  1. ;;9002226.02101,"1078,54458088310 ",.02)
  1. ;;54458088310
  1. ;;9002226.02101,"1078,54458088310 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54458088410 ",.01)
  1. ;;54458088410
  1. ;;9002226.02101,"1078,54458088410 ",.02)
  1. ;;54458088410
  1. ;;9002226.02101,"1078,54458088410 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54569-0200-00 ",.01)
  1. ;;54569-0200-00
  1. ;;9002226.02101,"1078,54569-0200-00 ",.02)
  1. ;;54569-0200-00
  1. ;;9002226.02101,"1078,54569-0200-00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54569-0203-00 ",.01)
  1. ;;54569-0203-00
  1. ;;9002226.02101,"1078,54569-0203-00 ",.02)
  1. ;;54569-0203-00
  1. ;;9002226.02101,"1078,54569-0203-00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54569-0203-01 ",.01)
  1. ;;54569-0203-01
  1. ;;9002226.02101,"1078,54569-0203-01 ",.02)
  1. ;;54569-0203-01
  1. ;;9002226.02101,"1078,54569-0203-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54569-0203-40 ",.01)
  1. ;;54569-0203-40
  1. ;;9002226.02101,"1078,54569-0203-40 ",.02)
  1. ;;54569-0203-40
  1. ;;9002226.02101,"1078,54569-0203-40 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54569-0206-01 ",.01)
  1. ;;54569-0206-01
  1. ;;9002226.02101,"1078,54569-0206-01 ",.02)
  1. ;;54569-0206-01
  1. ;;9002226.02101,"1078,54569-0206-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54569-0206-02 ",.01)
  1. ;;54569-0206-02
  1. ;;9002226.02101,"1078,54569-0206-02 ",.02)
  1. ;;54569-0206-02
  1. ;;9002226.02101,"1078,54569-0206-02 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54569-0206-03 ",.01)
  1. ;;54569-0206-03
  1. ;;9002226.02101,"1078,54569-0206-03 ",.02)
  1. ;;54569-0206-03
  1. ;;9002226.02101,"1078,54569-0206-03 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54569-2017-01 ",.01)
  1. ;;54569-2017-01
  1. ;;9002226.02101,"1078,54569-2017-01 ",.02)
  1. ;;54569-2017-01
  1. ;;9002226.02101,"1078,54569-2017-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54569-2318-00 ",.01)
  1. ;;54569-2318-00
  1. ;;9002226.02101,"1078,54569-2318-00 ",.02)
  1. ;;54569-2318-00
  1. ;;9002226.02101,"1078,54569-2318-00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54569-2319-00 ",.01)
  1. ;;54569-2319-00
  1. ;;9002226.02101,"1078,54569-2319-00 ",.02)
  1. ;;54569-2319-00
  1. ;;9002226.02101,"1078,54569-2319-00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54569-2918-00 ",.01)
  1. ;;54569-2918-00
  1. ;;9002226.02101,"1078,54569-2918-00 ",.02)
  1. ;;54569-2918-00
  1. ;;9002226.02101,"1078,54569-2918-00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54569-2918-01 ",.01)
  1. ;;54569-2918-01
  1. ;;9002226.02101,"1078,54569-2918-01 ",.02)
  1. ;;54569-2918-01
  1. ;;9002226.02101,"1078,54569-2918-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54569-2918-02 ",.01)
  1. ;;54569-2918-02
  1. ;;9002226.02101,"1078,54569-2918-02 ",.02)
  1. ;;54569-2918-02
  1. ;;9002226.02101,"1078,54569-2918-02 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54569-3467-00 ",.01)
  1. ;;54569-3467-00
  1. ;;9002226.02101,"1078,54569-3467-00 ",.02)
  1. ;;54569-3467-00
  1. ;;9002226.02101,"1078,54569-3467-00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54569-3690-00 ",.01)
  1. ;;54569-3690-00
  1. ;;9002226.02101,"1078,54569-3690-00 ",.02)
  1. ;;54569-3690-00
  1. ;;9002226.02101,"1078,54569-3690-00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,54569-3690-01 ",.01)
  1. ;;54569-3690-01
  1. ;;9002226.02101,"1078,54569-3690-01 ",.02)
  1. ;;54569-3690-01
  1. ;;9002226.02101,"1078,54569-3690-01 ",.03)
  1. ;;30