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

BUDD1D6.m

Go to the documentation of this file.
BUDD1D6 ; 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)
 ;;21,"68115-0159-60 ")
 ;;1697
 ;;21,"68115-0160-90 ")
 ;;1698
 ;;21,"68115-0161-90 ")
 ;;1699
 ;;21,"68645-0150-54 ")
 ;;1700
 ;;21,"68645-0151-59 ")
 ;;1701
 ;;21,"68645-0210-54 ")
 ;;1702
 ;;21,"68645-0211-54 ")
 ;;1703
 ;;21,"69543-0123-10 ")
 ;;1704
 ;;21,"69543-0124-10 ")
 ;;1705
 ;;21,"69543-0125-10 ")
 ;;1706
 ;;21,"76439-0120-10 ")
 ;;1707
 ;;21,"76439-0120-11 ")
 ;;1708
 ;;21,"76439-0121-10 ")
 ;;1709
 ;;21,"76439-0121-11 ")
 ;;1710
 ;;21,"76439-0122-10 ")
 ;;1711
 ;;21,"76439-0122-11 ")
 ;;1712
 ;;21,"76439-0123-10 ")
 ;;1713
 ;;21,"76439-0124-10 ")
 ;;1714
 ;;21,"76439-0125-10 ")
 ;;1715
 ;;9002226,1078,.01)
 ;;BUD DIABETES MEDS NDC
 ;;9002226,1078,.02)
 ;;DM MEDS FOR UDS
 ;;9002226,1078,.04)
 ;;n
 ;;9002226,1078,.06)
 ;;@
 ;;9002226,1078,.08)
 ;;@
 ;;9002226,1078,.09)
 ;;3161130
 ;;9002226,1078,.11)
 ;;@
 ;;9002226,1078,.12)
 ;;@
 ;;9002226,1078,.13)
 ;;1
 ;;9002226,1078,.14)
 ;;@
 ;;9002226,1078,.15)
 ;;50.67
 ;;9002226,1078,.16)
 ;;@
 ;;9002226,1078,.17)
 ;;@
 ;;9002226,1078,.22)
 ;;1
 ;;9002226,1078,3101)
 ;;@
 ;;9002226.02101,"1078,00002-1433-80 ",.01)
 ;;00002-1433-80
 ;;9002226.02101,"1078,00002-1433-80 ",.02)
 ;;00002-1433-80
 ;;9002226.02101,"1078,00002-1433-80 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-1434-80 ",.01)
 ;;00002-1434-80
 ;;9002226.02101,"1078,00002-1434-80 ",.02)
 ;;00002-1434-80
 ;;9002226.02101,"1078,00002-1434-80 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-7510-01 ",.01)
 ;;00002-7510-01
 ;;9002226.02101,"1078,00002-7510-01 ",.02)
 ;;00002-7510-01
 ;;9002226.02101,"1078,00002-7510-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-7510-17 ",.01)
 ;;00002-7510-17
 ;;9002226.02101,"1078,00002-7510-17 ",.02)
 ;;00002-7510-17
 ;;9002226.02101,"1078,00002-7510-17 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-7511-01 ",.01)
 ;;00002-7511-01
 ;;9002226.02101,"1078,00002-7511-01 ",.02)
 ;;00002-7511-01
 ;;9002226.02101,"1078,00002-7511-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-7512-01 ",.01)
 ;;00002-7512-01
 ;;9002226.02101,"1078,00002-7512-01 ",.02)
 ;;00002-7512-01
 ;;9002226.02101,"1078,00002-7512-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-7516-01 ",.01)
 ;;00002-7516-01
 ;;9002226.02101,"1078,00002-7516-01 ",.02)
 ;;00002-7516-01
 ;;9002226.02101,"1078,00002-7516-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-7516-59 ",.01)
 ;;00002-7516-59
 ;;9002226.02101,"1078,00002-7516-59 ",.02)
 ;;00002-7516-59
 ;;9002226.02101,"1078,00002-7516-59 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-7712-27 ",.01)
 ;;00002-7712-27
 ;;9002226.02101,"1078,00002-7712-27 ",.02)
 ;;00002-7712-27
 ;;9002226.02101,"1078,00002-7712-27 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8215-01 ",.01)
 ;;00002-8215-01
 ;;9002226.02101,"1078,00002-8215-01 ",.02)
 ;;00002-8215-01
 ;;9002226.02101,"1078,00002-8215-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8215-17 ",.01)
 ;;00002-8215-17
 ;;9002226.02101,"1078,00002-8215-17 ",.02)
 ;;00002-8215-17
 ;;9002226.02101,"1078,00002-8215-17 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8215-91 ",.01)
 ;;00002-8215-91
 ;;9002226.02101,"1078,00002-8215-91 ",.02)
 ;;00002-8215-91
 ;;9002226.02101,"1078,00002-8215-91 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8315-01 ",.01)
 ;;00002-8315-01
 ;;9002226.02101,"1078,00002-8315-01 ",.02)
 ;;00002-8315-01
 ;;9002226.02101,"1078,00002-8315-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8315-17 ",.01)
 ;;00002-8315-17
 ;;9002226.02101,"1078,00002-8315-17 ",.02)
 ;;00002-8315-17
 ;;9002226.02101,"1078,00002-8315-17 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8315-91 ",.01)
 ;;00002-8315-91
 ;;9002226.02101,"1078,00002-8315-91 ",.02)
 ;;00002-8315-91
 ;;9002226.02101,"1078,00002-8315-91 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8501-01 ",.01)
 ;;00002-8501-01
 ;;9002226.02101,"1078,00002-8501-01 ",.02)
 ;;00002-8501-01
 ;;9002226.02101,"1078,00002-8501-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8715-01 ",.01)
 ;;00002-8715-01
 ;;9002226.02101,"1078,00002-8715-01 ",.02)
 ;;00002-8715-01
 ;;9002226.02101,"1078,00002-8715-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8715-17 ",.01)
 ;;00002-8715-17
 ;;9002226.02101,"1078,00002-8715-17 ",.02)
 ;;00002-8715-17
 ;;9002226.02101,"1078,00002-8715-17 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8715-91 ",.01)
 ;;00002-8715-91
 ;;9002226.02101,"1078,00002-8715-91 ",.02)
 ;;00002-8715-91
 ;;9002226.02101,"1078,00002-8715-91 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8725-01 ",.01)
 ;;00002-8725-01
 ;;9002226.02101,"1078,00002-8725-01 ",.02)
 ;;00002-8725-01
 ;;9002226.02101,"1078,00002-8725-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8725-59 ",.01)
 ;;00002-8725-59
 ;;9002226.02101,"1078,00002-8725-59 ",.02)
 ;;00002-8725-59
 ;;9002226.02101,"1078,00002-8725-59 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8730-01 ",.01)
 ;;00002-8730-01
 ;;9002226.02101,"1078,00002-8730-01 ",.02)
 ;;00002-8730-01
 ;;9002226.02101,"1078,00002-8730-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8730-59 ",.01)
 ;;00002-8730-59
 ;;9002226.02101,"1078,00002-8730-59 ",.02)
 ;;00002-8730-59
 ;;9002226.02101,"1078,00002-8730-59 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8770-01 ",.01)
 ;;00002-8770-01
 ;;9002226.02101,"1078,00002-8770-01 ",.02)
 ;;00002-8770-01
 ;;9002226.02101,"1078,00002-8770-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8770-59 ",.01)
 ;;00002-8770-59
 ;;9002226.02101,"1078,00002-8770-59 ",.02)
 ;;00002-8770-59
 ;;9002226.02101,"1078,00002-8770-59 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8793-01 ",.01)
 ;;00002-8793-01
 ;;9002226.02101,"1078,00002-8793-01 ",.02)
 ;;00002-8793-01
 ;;9002226.02101,"1078,00002-8793-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8793-59 ",.01)
 ;;00002-8793-59
 ;;9002226.02101,"1078,00002-8793-59 ",.02)
 ;;00002-8793-59
 ;;9002226.02101,"1078,00002-8793-59 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8794-01 ",.01)
 ;;00002-8794-01
 ;;9002226.02101,"1078,00002-8794-01 ",.02)
 ;;00002-8794-01
 ;;9002226.02101,"1078,00002-8794-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8794-59 ",.01)
 ;;00002-8794-59
 ;;9002226.02101,"1078,00002-8794-59 ",.02)
 ;;00002-8794-59
 ;;9002226.02101,"1078,00002-8794-59 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8797-01 ",.01)
 ;;00002-8797-01
 ;;9002226.02101,"1078,00002-8797-01 ",.02)
 ;;00002-8797-01
 ;;9002226.02101,"1078,00002-8797-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8797-59 ",.01)
 ;;00002-8797-59
 ;;9002226.02101,"1078,00002-8797-59 ",.02)
 ;;00002-8797-59
 ;;9002226.02101,"1078,00002-8797-59 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8798-01 ",.01)
 ;;00002-8798-01
 ;;9002226.02101,"1078,00002-8798-01 ",.02)
 ;;00002-8798-01
 ;;9002226.02101,"1078,00002-8798-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8798-59 ",.01)
 ;;00002-8798-59
 ;;9002226.02101,"1078,00002-8798-59 ",.02)
 ;;00002-8798-59
 ;;9002226.02101,"1078,00002-8798-59 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8799-01 ",.01)
 ;;00002-8799-01
 ;;9002226.02101,"1078,00002-8799-01 ",.02)
 ;;00002-8799-01
 ;;9002226.02101,"1078,00002-8799-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8799-59 ",.01)
 ;;00002-8799-59
 ;;9002226.02101,"1078,00002-8799-59 ",.02)
 ;;00002-8799-59
 ;;9002226.02101,"1078,00002-8799-59 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8803-01 ",.01)
 ;;00002-8803-01
 ;;9002226.02101,"1078,00002-8803-01 ",.02)
 ;;00002-8803-01
 ;;9002226.02101,"1078,00002-8803-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8803-59 ",.01)
 ;;00002-8803-59
 ;;9002226.02101,"1078,00002-8803-59 ",.02)
 ;;00002-8803-59
 ;;9002226.02101,"1078,00002-8803-59 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8805-01 ",.01)
 ;;00002-8805-01
 ;;9002226.02101,"1078,00002-8805-01 ",.02)
 ;;00002-8805-01
 ;;9002226.02101,"1078,00002-8805-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-8805-59 ",.01)
 ;;00002-8805-59
 ;;9002226.02101,"1078,00002-8805-59 ",.02)
 ;;00002-8805-59
 ;;9002226.02101,"1078,00002-8805-59 ",.03)
 ;;30
 ;;9002226.02101,"1078,00002-9515-01 ",.01)
 ;;00002-9515-01
 ;;9002226.02101,"1078,00002-9515-01 ",.02)
 ;;00002-9515-01
 ;;9002226.02101,"1078,00002-9515-01 ",.03)
 ;;30
 ;;9002226.02101,"1078,00003-1427-11 ",.01)
 ;;00003-1427-11
 ;;9002226.02101,"1078,00003-1427-11 ",.02)
 ;;00003-1427-11
 ;;9002226.02101,"1078,00003-1427-11 ",.03)
 ;;30
 ;;9002226.02101,"1078,00003-1428-11 ",.01)
 ;;00003-1428-11
 ;;9002226.02101,"1078,00003-1428-11 ",.02)
 ;;00003-1428-11
 ;;9002226.02101,"1078,00003-1428-11 ",.03)
 ;;30
 ;;9002226.02101,"1078,00003-4214-11 ",.01)
 ;;00003-4214-11
 ;;9002226.02101,"1078,00003-4214-11 ",.02)
 ;;00003-4214-11
 ;;9002226.02101,"1078,00003-4214-11 ",.03)
 ;;30
 ;;9002226.02101,"1078,00003-4214-21 ",.01)
 ;;00003-4214-21
 ;;9002226.02101,"1078,00003-4214-21 ",.02)
 ;;00003-4214-21
 ;;9002226.02101,"1078,00003-4214-21 ",.03)
 ;;30
 ;;9002226.02101,"1078,00003-4215-11 ",.01)
 ;;00003-4215-11
 ;;9002226.02101,"1078,00003-4215-11 ",.02)
 ;;00003-4215-11
 ;;9002226.02101,"1078,00003-4215-11 ",.03)
 ;;30
 ;;9002226.02101,"1078,00003-4215-21 ",.01)
 ;;00003-4215-21
 ;;9002226.02101,"1078,00003-4215-21 ",.02)
 ;;00003-4215-21
 ;;9002226.02101,"1078,00003-4215-21 ",.03)
 ;;30
 ;;9002226.02101,"1078,00003-4215-31 ",.01)
 ;;00003-4215-31
 ;;9002226.02101,"1078,00003-4215-31 ",.02)
 ;;00003-4215-31
 ;;9002226.02101,"1078,00003-4215-31 ",.03)
 ;;30
 ;;9002226.02101,"1078,00003-4215-41 ",.01)
 ;;00003-4215-41
 ;;9002226.02101,"1078,00003-4215-41 ",.02)
 ;;00003-4215-41
 ;;9002226.02101,"1078,00003-4215-41 ",.03)
 ;;30
 ;;9002226.02101,"1078,00003-4221-11 ",.01)
 ;;00003-4221-11
 ;;9002226.02101,"1078,00003-4221-11 ",.02)
 ;;00003-4221-11
 ;;9002226.02101,"1078,00003-4221-11 ",.03)
 ;;30
 ;;9002226.02101,"1078,00003-4222-16 ",.01)
 ;;00003-4222-16
 ;;9002226.02101,"1078,00003-4222-16 ",.02)
 ;;00003-4222-16
 ;;9002226.02101,"1078,00003-4222-16 ",.03)
 ;;30
 ;;9002226.02101,"1078,00003-4223-11 ",.01)
 ;;00003-4223-11
 ;;9002226.02101,"1078,00003-4223-11 ",.02)
 ;;00003-4223-11
 ;;9002226.02101,"1078,00003-4223-11 ",.03)
 ;;30
 ;;9002226.02101,"1078,00006-0078-61 ",.01)
 ;;00006-0078-61
 ;;9002226.02101,"1078,00006-0078-61 ",.02)
 ;;00006-0078-61
 ;;9002226.02101,"1078,00006-0078-61 ",.03)
 ;;30
 ;;9002226.02101,"1078,00006-0078-62 ",.01)
 ;;00006-0078-62
 ;;9002226.02101,"1078,00006-0078-62 ",.02)
 ;;00006-0078-62
 ;;9002226.02101,"1078,00006-0078-62 ",.03)
 ;;30
 ;;9002226.02101,"1078,00006-0078-82 ",.01)
 ;;00006-0078-82
 ;;9002226.02101,"1078,00006-0078-82 ",.02)
 ;;00006-0078-82
 ;;9002226.02101,"1078,00006-0078-82 ",.03)
 ;;30
 ;;9002226.02101,"1078,00006-0080-61 ",.01)
 ;;00006-0080-61
 ;;9002226.02101,"1078,00006-0080-61 ",.02)
 ;;00006-0080-61
 ;;9002226.02101,"1078,00006-0080-61 ",.03)
 ;;30
 ;;9002226.02101,"1078,00006-0080-62 ",.01)
 ;;00006-0080-62
 ;;9002226.02101,"1078,00006-0080-62 ",.02)
 ;;00006-0080-62
 ;;9002226.02101,"1078,00006-0080-62 ",.03)
 ;;30
 ;;9002226.02101,"1078,00006-0080-82 ",.01)
 ;;00006-0080-82
 ;;9002226.02101,"1078,00006-0080-82 ",.02)
 ;;00006-0080-82
 ;;9002226.02101,"1078,00006-0080-82 ",.03)
 ;;30
 ;;9002226.02101,"1078,00006-0081-31 ",.01)
 ;;00006-0081-31
 ;;9002226.02101,"1078,00006-0081-31 ",.02)
 ;;00006-0081-31
 ;;9002226.02101,"1078,00006-0081-31 ",.03)
 ;;30
 ;;9002226.02101,"1078,00006-0081-54 ",.01)
 ;;00006-0081-54
 ;;9002226.02101,"1078,00006-0081-54 ",.02)
 ;;00006-0081-54
 ;;9002226.02101,"1078,00006-0081-54 ",.03)
 ;;30
 ;;9002226.02101,"1078,00006-0081-82 ",.01)
 ;;00006-0081-82
 ;;9002226.02101,"1078,00006-0081-82 ",.02)
 ;;00006-0081-82
 ;;9002226.02101,"1078,00006-0081-82 ",.03)
 ;;30