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

BUDD1D25.m

Go to the documentation of this file.
  1. BUDD1D25 ; 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,58016-0467-60 ",.01)
  1. ;;58016-0467-60
  1. ;;9002226.02101,"1078,58016-0467-60 ",.02)
  1. ;;58016-0467-60
  1. ;;9002226.02101,"1078,58016-0467-60 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016-0467-90 ",.01)
  1. ;;58016-0467-90
  1. ;;9002226.02101,"1078,58016-0467-90 ",.02)
  1. ;;58016-0467-90
  1. ;;9002226.02101,"1078,58016-0467-90 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016-0844-00 ",.01)
  1. ;;58016-0844-00
  1. ;;9002226.02101,"1078,58016-0844-00 ",.02)
  1. ;;58016-0844-00
  1. ;;9002226.02101,"1078,58016-0844-00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016-0844-30 ",.01)
  1. ;;58016-0844-30
  1. ;;9002226.02101,"1078,58016-0844-30 ",.02)
  1. ;;58016-0844-30
  1. ;;9002226.02101,"1078,58016-0844-30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016-0844-60 ",.01)
  1. ;;58016-0844-60
  1. ;;9002226.02101,"1078,58016-0844-60 ",.02)
  1. ;;58016-0844-60
  1. ;;9002226.02101,"1078,58016-0844-60 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016-0844-90 ",.01)
  1. ;;58016-0844-90
  1. ;;9002226.02101,"1078,58016-0844-90 ",.02)
  1. ;;58016-0844-90
  1. ;;9002226.02101,"1078,58016-0844-90 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016-0876-00 ",.01)
  1. ;;58016-0876-00
  1. ;;9002226.02101,"1078,58016-0876-00 ",.02)
  1. ;;58016-0876-00
  1. ;;9002226.02101,"1078,58016-0876-00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016-0876-10 ",.01)
  1. ;;58016-0876-10
  1. ;;9002226.02101,"1078,58016-0876-10 ",.02)
  1. ;;58016-0876-10
  1. ;;9002226.02101,"1078,58016-0876-10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016-0876-12 ",.01)
  1. ;;58016-0876-12
  1. ;;9002226.02101,"1078,58016-0876-12 ",.02)
  1. ;;58016-0876-12
  1. ;;9002226.02101,"1078,58016-0876-12 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016-0876-14 ",.01)
  1. ;;58016-0876-14
  1. ;;9002226.02101,"1078,58016-0876-14 ",.02)
  1. ;;58016-0876-14
  1. ;;9002226.02101,"1078,58016-0876-14 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016-0876-15 ",.01)
  1. ;;58016-0876-15
  1. ;;9002226.02101,"1078,58016-0876-15 ",.02)
  1. ;;58016-0876-15
  1. ;;9002226.02101,"1078,58016-0876-15 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016-0876-20 ",.01)
  1. ;;58016-0876-20
  1. ;;9002226.02101,"1078,58016-0876-20 ",.02)
  1. ;;58016-0876-20
  1. ;;9002226.02101,"1078,58016-0876-20 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016-0876-21 ",.01)
  1. ;;58016-0876-21
  1. ;;9002226.02101,"1078,58016-0876-21 ",.02)
  1. ;;58016-0876-21
  1. ;;9002226.02101,"1078,58016-0876-21 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016-0876-24 ",.01)
  1. ;;58016-0876-24
  1. ;;9002226.02101,"1078,58016-0876-24 ",.02)
  1. ;;58016-0876-24
  1. ;;9002226.02101,"1078,58016-0876-24 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016-0876-28 ",.01)
  1. ;;58016-0876-28
  1. ;;9002226.02101,"1078,58016-0876-28 ",.02)
  1. ;;58016-0876-28
  1. ;;9002226.02101,"1078,58016-0876-28 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016-0876-30 ",.01)
  1. ;;58016-0876-30
  1. ;;9002226.02101,"1078,58016-0876-30 ",.02)
  1. ;;58016-0876-30
  1. ;;9002226.02101,"1078,58016-0876-30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016-0876-40 ",.01)
  1. ;;58016-0876-40
  1. ;;9002226.02101,"1078,58016-0876-40 ",.02)
  1. ;;58016-0876-40
  1. ;;9002226.02101,"1078,58016-0876-40 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016-0876-50 ",.01)
  1. ;;58016-0876-50
  1. ;;9002226.02101,"1078,58016-0876-50 ",.02)
  1. ;;58016-0876-50
  1. ;;9002226.02101,"1078,58016-0876-50 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016-0876-60 ",.01)
  1. ;;58016-0876-60
  1. ;;9002226.02101,"1078,58016-0876-60 ",.02)
  1. ;;58016-0876-60
  1. ;;9002226.02101,"1078,58016-0876-60 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016-4788-01 ",.01)
  1. ;;58016-4788-01
  1. ;;9002226.02101,"1078,58016-4788-01 ",.02)
  1. ;;58016-4788-01
  1. ;;9002226.02101,"1078,58016-4788-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016008100 ",.01)
  1. ;;58016008100
  1. ;;9002226.02101,"1078,58016008100 ",.02)
  1. ;;58016008100
  1. ;;9002226.02101,"1078,58016008100 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016008130 ",.01)
  1. ;;58016008130
  1. ;;9002226.02101,"1078,58016008130 ",.02)
  1. ;;58016008130
  1. ;;9002226.02101,"1078,58016008130 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016008160 ",.01)
  1. ;;58016008160
  1. ;;9002226.02101,"1078,58016008160 ",.02)
  1. ;;58016008160
  1. ;;9002226.02101,"1078,58016008160 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016008190 ",.01)
  1. ;;58016008190
  1. ;;9002226.02101,"1078,58016008190 ",.02)
  1. ;;58016008190
  1. ;;9002226.02101,"1078,58016008190 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016008200 ",.01)
  1. ;;58016008200
  1. ;;9002226.02101,"1078,58016008200 ",.02)
  1. ;;58016008200
  1. ;;9002226.02101,"1078,58016008200 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016008230 ",.01)
  1. ;;58016008230
  1. ;;9002226.02101,"1078,58016008230 ",.02)
  1. ;;58016008230
  1. ;;9002226.02101,"1078,58016008230 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016008260 ",.01)
  1. ;;58016008260
  1. ;;9002226.02101,"1078,58016008260 ",.02)
  1. ;;58016008260
  1. ;;9002226.02101,"1078,58016008260 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58016008290 ",.01)
  1. ;;58016008290
  1. ;;9002226.02101,"1078,58016008290 ",.02)
  1. ;;58016008290
  1. ;;9002226.02101,"1078,58016008290 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58864-0027-14 ",.01)
  1. ;;58864-0027-14
  1. ;;9002226.02101,"1078,58864-0027-14 ",.02)
  1. ;;58864-0027-14
  1. ;;9002226.02101,"1078,58864-0027-14 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58864-0027-90 ",.01)
  1. ;;58864-0027-90
  1. ;;9002226.02101,"1078,58864-0027-90 ",.02)
  1. ;;58864-0027-90
  1. ;;9002226.02101,"1078,58864-0027-90 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58864-0161-30 ",.01)
  1. ;;58864-0161-30
  1. ;;9002226.02101,"1078,58864-0161-30 ",.02)
  1. ;;58864-0161-30
  1. ;;9002226.02101,"1078,58864-0161-30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58864-0224-60 ",.01)
  1. ;;58864-0224-60
  1. ;;9002226.02101,"1078,58864-0224-60 ",.02)
  1. ;;58864-0224-60
  1. ;;9002226.02101,"1078,58864-0224-60 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58864-0224-93 ",.01)
  1. ;;58864-0224-93
  1. ;;9002226.02101,"1078,58864-0224-93 ",.02)
  1. ;;58864-0224-93
  1. ;;9002226.02101,"1078,58864-0224-93 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58864-0670-14 ",.01)
  1. ;;58864-0670-14
  1. ;;9002226.02101,"1078,58864-0670-14 ",.02)
  1. ;;58864-0670-14
  1. ;;9002226.02101,"1078,58864-0670-14 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58864-0670-30 ",.01)
  1. ;;58864-0670-30
  1. ;;9002226.02101,"1078,58864-0670-30 ",.02)
  1. ;;58864-0670-30
  1. ;;9002226.02101,"1078,58864-0670-30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58864-0689-30 ",.01)
  1. ;;58864-0689-30
  1. ;;9002226.02101,"1078,58864-0689-30 ",.02)
  1. ;;58864-0689-30
  1. ;;9002226.02101,"1078,58864-0689-30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58864-0689-60 ",.01)
  1. ;;58864-0689-60
  1. ;;9002226.02101,"1078,58864-0689-60 ",.02)
  1. ;;58864-0689-60
  1. ;;9002226.02101,"1078,58864-0689-60 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58864-0705-30 ",.01)
  1. ;;58864-0705-30
  1. ;;9002226.02101,"1078,58864-0705-30 ",.02)
  1. ;;58864-0705-30
  1. ;;9002226.02101,"1078,58864-0705-30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58864-0858-30 ",.01)
  1. ;;58864-0858-30
  1. ;;9002226.02101,"1078,58864-0858-30 ",.02)
  1. ;;58864-0858-30
  1. ;;9002226.02101,"1078,58864-0858-30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58864-0952-30 ",.01)
  1. ;;58864-0952-30
  1. ;;9002226.02101,"1078,58864-0952-30 ",.02)
  1. ;;58864-0952-30
  1. ;;9002226.02101,"1078,58864-0952-30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58864-0953-30 ",.01)
  1. ;;58864-0953-30
  1. ;;9002226.02101,"1078,58864-0953-30 ",.02)
  1. ;;58864-0953-30
  1. ;;9002226.02101,"1078,58864-0953-30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58864-0956-30 ",.01)
  1. ;;58864-0956-30
  1. ;;9002226.02101,"1078,58864-0956-30 ",.02)
  1. ;;58864-0956-30
  1. ;;9002226.02101,"1078,58864-0956-30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58864-0957-30 ",.01)
  1. ;;58864-0957-30
  1. ;;9002226.02101,"1078,58864-0957-30 ",.02)
  1. ;;58864-0957-30
  1. ;;9002226.02101,"1078,58864-0957-30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58864068730 ",.01)
  1. ;;58864068730
  1. ;;9002226.02101,"1078,58864068730 ",.02)
  1. ;;58864068730
  1. ;;9002226.02101,"1078,58864068730 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58864068760 ",.01)
  1. ;;58864068760
  1. ;;9002226.02101,"1078,58864068760 ",.02)
  1. ;;58864068760
  1. ;;9002226.02101,"1078,58864068760 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58864074515 ",.01)
  1. ;;58864074515
  1. ;;9002226.02101,"1078,58864074515 ",.02)
  1. ;;58864074515
  1. ;;9002226.02101,"1078,58864074515 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58864074530 ",.01)
  1. ;;58864074530
  1. ;;9002226.02101,"1078,58864074530 ",.02)
  1. ;;58864074530
  1. ;;9002226.02101,"1078,58864074530 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,58864086230 ",.01)
  1. ;;58864086230
  1. ;;9002226.02101,"1078,58864086230 ",.02)
  1. ;;58864086230
  1. ;;9002226.02101,"1078,58864086230 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,59060-1833-02 ",.01)
  1. ;;59060-1833-02
  1. ;;9002226.02101,"1078,59060-1833-02 ",.02)
  1. ;;59060-1833-02
  1. ;;9002226.02101,"1078,59060-1833-02 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,59060-1834-02 ",.01)
  1. ;;59060-1834-02
  1. ;;9002226.02101,"1078,59060-1834-02 ",.02)
  1. ;;59060-1834-02
  1. ;;9002226.02101,"1078,59060-1834-02 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,59060-1837-02 ",.01)
  1. ;;59060-1837-02
  1. ;;9002226.02101,"1078,59060-1837-02 ",.02)
  1. ;;59060-1837-02
  1. ;;9002226.02101,"1078,59060-1837-02 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,59060-2317-04 ",.01)
  1. ;;59060-2317-04
  1. ;;9002226.02101,"1078,59060-2317-04 ",.02)
  1. ;;59060-2317-04
  1. ;;9002226.02101,"1078,59060-2317-04 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,59762-0540-01 ",.01)
  1. ;;59762-0540-01
  1. ;;9002226.02101,"1078,59762-0540-01 ",.02)
  1. ;;59762-0540-01
  1. ;;9002226.02101,"1078,59762-0540-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,59762-0541-01 ",.01)
  1. ;;59762-0541-01
  1. ;;9002226.02101,"1078,59762-0541-01 ",.02)
  1. ;;59762-0541-01
  1. ;;9002226.02101,"1078,59762-0541-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,59762-0541-02 ",.01)
  1. ;;59762-0541-02
  1. ;;9002226.02101,"1078,59762-0541-02 ",.02)
  1. ;;59762-0541-02
  1. ;;9002226.02101,"1078,59762-0541-02 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,59762-0542-01 ",.01)
  1. ;;59762-0542-01
  1. ;;9002226.02101,"1078,59762-0542-01 ",.02)
  1. ;;59762-0542-01
  1. ;;9002226.02101,"1078,59762-0542-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,59762-0542-02 ",.01)
  1. ;;59762-0542-02
  1. ;;9002226.02101,"1078,59762-0542-02 ",.02)
  1. ;;59762-0542-02
  1. ;;9002226.02101,"1078,59762-0542-02 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,59762-2330-07 ",.01)
  1. ;;59762-2330-07
  1. ;;9002226.02101,"1078,59762-2330-07 ",.02)
  1. ;;59762-2330-07
  1. ;;9002226.02101,"1078,59762-2330-07 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,59762-2331-06 ",.01)
  1. ;;59762-2331-06
  1. ;;9002226.02101,"1078,59762-2331-06 ",.02)
  1. ;;59762-2331-06
  1. ;;9002226.02101,"1078,59762-2331-06 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,59762-2331-08 ",.01)
  1. ;;59762-2331-08
  1. ;;9002226.02101,"1078,59762-2331-08 ",.02)
  1. ;;59762-2331-08
  1. ;;9002226.02101,"1078,59762-2331-08 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,59762-2332-06 ",.01)
  1. ;;59762-2332-06
  1. ;;9002226.02101,"1078,59762-2332-06 ",.02)
  1. ;;59762-2332-06
  1. ;;9002226.02101,"1078,59762-2332-06 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,59762-2332-08 ",.01)
  1. ;;59762-2332-08
  1. ;;9002226.02101,"1078,59762-2332-08 ",.02)
  1. ;;59762-2332-08
  1. ;;9002226.02101,"1078,59762-2332-08 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,59762-3727-06 ",.01)
  1. ;;59762-3727-06
  1. ;;9002226.02101,"1078,59762-3727-06 ",.02)
  1. ;;59762-3727-06
  1. ;;9002226.02101,"1078,59762-3727-06 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,59762-3727-07 ",.01)
  1. ;;59762-3727-07
  1. ;;9002226.02101,"1078,59762-3727-07 ",.02)
  1. ;;59762-3727-07
  1. ;;9002226.02101,"1078,59762-3727-07 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,59762-5031-01 ",.01)
  1. ;;59762-5031-01
  1. ;;9002226.02101,"1078,59762-5031-01 ",.02)
  1. ;;59762-5031-01
  1. ;;9002226.02101,"1078,59762-5031-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,59762-5032-01 ",.01)
  1. ;;59762-5032-01
  1. ;;9002226.02101,"1078,59762-5032-01 ",.02)
  1. ;;59762-5032-01
  1. ;;9002226.02101,"1078,59762-5032-01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,59762-5032-02 ",.01)
  1. ;;59762-5032-02
  1. ;;9002226.02101,"1078,59762-5032-02 ",.02)
  1. ;;59762-5032-02
  1. ;;9002226.02101,"1078,59762-5032-02 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1078,59762-5033-01 ",.01)
  1. ;;59762-5033-01