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

BGP7LXJB.m

Go to the documentation of this file.
  1. BGP7LXJB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 29, 2006 ;
  1. ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
  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,"627,00115-3200-01 ",.02)
  1. ;;00115-3200-01
  1. ;;9002226.02101,"627,00115-3200-03 ",.01)
  1. ;;00115-3200-03
  1. ;;9002226.02101,"627,00115-3200-03 ",.02)
  1. ;;00115-3200-03
  1. ;;9002226.02101,"627,00115-3220-01 ",.01)
  1. ;;00115-3220-01
  1. ;;9002226.02101,"627,00115-3220-01 ",.02)
  1. ;;00115-3220-01
  1. ;;9002226.02101,"627,00115-3220-03 ",.01)
  1. ;;00115-3220-03
  1. ;;9002226.02101,"627,00115-3220-03 ",.02)
  1. ;;00115-3220-03
  1. ;;9002226.02101,"627,00115-4308-01 ",.01)
  1. ;;00115-4308-01
  1. ;;9002226.02101,"627,00115-4308-01 ",.02)
  1. ;;00115-4308-01
  1. ;;9002226.02101,"627,00115-4308-03 ",.01)
  1. ;;00115-4308-03
  1. ;;9002226.02101,"627,00115-4308-03 ",.02)
  1. ;;00115-4308-03
  1. ;;9002226.02101,"627,00143-1227-01 ",.01)
  1. ;;00143-1227-01
  1. ;;9002226.02101,"627,00143-1227-01 ",.02)
  1. ;;00143-1227-01
  1. ;;9002226.02101,"627,00143-1227-10 ",.01)
  1. ;;00143-1227-10
  1. ;;9002226.02101,"627,00143-1227-10 ",.02)
  1. ;;00143-1227-10
  1. ;;9002226.02101,"627,00143-3126-01 ",.01)
  1. ;;00143-3126-01
  1. ;;9002226.02101,"627,00143-3126-01 ",.02)
  1. ;;00143-3126-01
  1. ;;9002226.02101,"627,00143-3126-10 ",.01)
  1. ;;00143-3126-10
  1. ;;9002226.02101,"627,00143-3126-10 ",.02)
  1. ;;00143-3126-10
  1. ;;9002226.02101,"627,00182-0519-01 ",.01)
  1. ;;00182-0519-01
  1. ;;9002226.02101,"627,00182-0519-01 ",.02)
  1. ;;00182-0519-01
  1. ;;9002226.02101,"627,00182-0519-10 ",.01)
  1. ;;00182-0519-10
  1. ;;9002226.02101,"627,00182-0519-10 ",.02)
  1. ;;00182-0519-10
  1. ;;9002226.02101,"627,00182-0708-63 ",.01)
  1. ;;00182-0708-63
  1. ;;9002226.02101,"627,00182-0708-63 ",.02)
  1. ;;00182-0708-63
  1. ;;9002226.02101,"627,00182-1578-10 ",.01)
  1. ;;00182-1578-10
  1. ;;9002226.02101,"627,00182-1578-10 ",.02)
  1. ;;00182-1578-10
  1. ;;9002226.02101,"627,00182-1578-89 ",.01)
  1. ;;00182-1578-89
  1. ;;9002226.02101,"627,00182-1578-89 ",.02)
  1. ;;00182-1578-89
  1. ;;9002226.02101,"627,00182-1579-01 ",.01)
  1. ;;00182-1579-01
  1. ;;9002226.02101,"627,00182-1579-01 ",.02)
  1. ;;00182-1579-01
  1. ;;9002226.02101,"627,00182-1858-01 ",.01)
  1. ;;00182-1858-01
  1. ;;9002226.02101,"627,00182-1858-01 ",.02)
  1. ;;00182-1858-01
  1. ;;9002226.02101,"627,00223-0795-01 ",.01)
  1. ;;00223-0795-01
  1. ;;9002226.02101,"627,00223-0795-01 ",.02)
  1. ;;00223-0795-01
  1. ;;9002226.02101,"627,00223-0795-02 ",.01)
  1. ;;00223-0795-02
  1. ;;9002226.02101,"627,00223-0795-02 ",.02)
  1. ;;00223-0795-02
  1. ;;9002226.02101,"627,00223-2128-00 ",.01)
  1. ;;00223-2128-00
  1. ;;9002226.02101,"627,00223-2128-00 ",.02)
  1. ;;00223-2128-00
  1. ;;9002226.02101,"627,00223-2128-05 ",.01)
  1. ;;00223-2128-05
  1. ;;9002226.02101,"627,00223-2128-05 ",.02)
  1. ;;00223-2128-05
  1. ;;9002226.02101,"627,00223-2130-05 ",.01)
  1. ;;00223-2130-05
  1. ;;9002226.02101,"627,00223-2130-05 ",.02)
  1. ;;00223-2130-05
  1. ;;9002226.02101,"627,00223-2131-05 ",.01)
  1. ;;00223-2131-05
  1. ;;9002226.02101,"627,00223-2131-05 ",.02)
  1. ;;00223-2131-05
  1. ;;9002226.02101,"627,00223-7430-10 ",.01)
  1. ;;00223-7430-10
  1. ;;9002226.02101,"627,00223-7430-10 ",.02)
  1. ;;00223-7430-10
  1. ;;9002226.02101,"627,00247-0188-00 ",.01)
  1. ;;00247-0188-00
  1. ;;9002226.02101,"627,00247-0188-00 ",.02)
  1. ;;00247-0188-00
  1. ;;9002226.02101,"627,00247-0188-02 ",.01)
  1. ;;00247-0188-02
  1. ;;9002226.02101,"627,00247-0188-02 ",.02)
  1. ;;00247-0188-02
  1. ;;9002226.02101,"627,00247-0188-03 ",.01)
  1. ;;00247-0188-03
  1. ;;9002226.02101,"627,00247-0188-03 ",.02)
  1. ;;00247-0188-03
  1. ;;9002226.02101,"627,00247-0188-04 ",.01)
  1. ;;00247-0188-04
  1. ;;9002226.02101,"627,00247-0188-04 ",.02)
  1. ;;00247-0188-04
  1. ;;9002226.02101,"627,00247-0188-06 ",.01)
  1. ;;00247-0188-06
  1. ;;9002226.02101,"627,00247-0188-06 ",.02)
  1. ;;00247-0188-06
  1. ;;9002226.02101,"627,00247-0188-10 ",.01)
  1. ;;00247-0188-10
  1. ;;9002226.02101,"627,00247-0188-10 ",.02)
  1. ;;00247-0188-10
  1. ;;9002226.02101,"627,00247-0188-12 ",.01)
  1. ;;00247-0188-12
  1. ;;9002226.02101,"627,00247-0188-12 ",.02)
  1. ;;00247-0188-12
  1. ;;9002226.02101,"627,00247-0188-14 ",.01)
  1. ;;00247-0188-14
  1. ;;9002226.02101,"627,00247-0188-14 ",.02)
  1. ;;00247-0188-14
  1. ;;9002226.02101,"627,00247-0188-15 ",.01)
  1. ;;00247-0188-15
  1. ;;9002226.02101,"627,00247-0188-15 ",.02)
  1. ;;00247-0188-15
  1. ;;9002226.02101,"627,00247-0188-20 ",.01)
  1. ;;00247-0188-20
  1. ;;9002226.02101,"627,00247-0188-20 ",.02)
  1. ;;00247-0188-20
  1. ;;9002226.02101,"627,00247-0188-24 ",.01)
  1. ;;00247-0188-24
  1. ;;9002226.02101,"627,00247-0188-24 ",.02)
  1. ;;00247-0188-24
  1. ;;9002226.02101,"627,00247-0188-30 ",.01)
  1. ;;00247-0188-30
  1. ;;9002226.02101,"627,00247-0188-30 ",.02)
  1. ;;00247-0188-30
  1. ;;9002226.02101,"627,00247-0188-40 ",.01)
  1. ;;00247-0188-40
  1. ;;9002226.02101,"627,00247-0188-40 ",.02)
  1. ;;00247-0188-40
  1. ;;9002226.02101,"627,00302-7100-01 ",.01)
  1. ;;00302-7100-01
  1. ;;9002226.02101,"627,00302-7100-01 ",.02)
  1. ;;00302-7100-01
  1. ;;9002226.02101,"627,00302-7104-01 ",.01)
  1. ;;00302-7104-01
  1. ;;9002226.02101,"627,00302-7104-01 ",.02)
  1. ;;00302-7104-01
  1. ;;9002226.02101,"627,00302-7104-10 ",.01)
  1. ;;00302-7104-10
  1. ;;9002226.02101,"627,00302-7104-10 ",.02)
  1. ;;00302-7104-10
  1. ;;9002226.02101,"627,00302-7106-01 ",.01)
  1. ;;00302-7106-01
  1. ;;9002226.02101,"627,00302-7106-01 ",.02)
  1. ;;00302-7106-01
  1. ;;9002226.02101,"627,00314-0299-70 ",.01)
  1. ;;00314-0299-70
  1. ;;9002226.02101,"627,00314-0299-70 ",.02)
  1. ;;00314-0299-70
  1. ;;9002226.02101,"627,00349-8268-01 ",.01)
  1. ;;00349-8268-01
  1. ;;9002226.02101,"627,00349-8268-01 ",.02)
  1. ;;00349-8268-01
  1. ;;9002226.02101,"627,00349-8268-10 ",.01)
  1. ;;00349-8268-10
  1. ;;9002226.02101,"627,00349-8268-10 ",.02)
  1. ;;00349-8268-10
  1. ;;9002226.02101,"627,00349-8269-01 ",.01)
  1. ;;00349-8269-01
  1. ;;9002226.02101,"627,00349-8269-01 ",.02)
  1. ;;00349-8269-01
  1. ;;9002226.02101,"627,00349-8269-10 ",.01)
  1. ;;00349-8269-10
  1. ;;9002226.02101,"627,00349-8269-10 ",.02)
  1. ;;00349-8269-10
  1. ;;9002226.02101,"627,00349-8270-01 ",.01)
  1. ;;00349-8270-01
  1. ;;9002226.02101,"627,00349-8270-01 ",.02)
  1. ;;00349-8270-01
  1. ;;9002226.02101,"627,00349-8270-10 ",.01)
  1. ;;00349-8270-10
  1. ;;9002226.02101,"627,00349-8270-10 ",.02)
  1. ;;00349-8270-10
  1. ;;9002226.02101,"627,00349-8360-01 ",.01)
  1. ;;00349-8360-01
  1. ;;9002226.02101,"627,00349-8360-01 ",.02)
  1. ;;00349-8360-01
  1. ;;9002226.02101,"627,00349-8360-10 ",.01)
  1. ;;00349-8360-10
  1. ;;9002226.02101,"627,00349-8360-10 ",.02)
  1. ;;00349-8360-10
  1. ;;9002226.02101,"627,00349-8361-01 ",.01)
  1. ;;00349-8361-01
  1. ;;9002226.02101,"627,00349-8361-01 ",.02)
  1. ;;00349-8361-01
  1. ;;9002226.02101,"627,00349-8361-10 ",.01)
  1. ;;00349-8361-10
  1. ;;9002226.02101,"627,00349-8361-10 ",.02)
  1. ;;00349-8361-10
  1. ;;9002226.02101,"627,00349-8362-01 ",.01)
  1. ;;00349-8362-01
  1. ;;9002226.02101,"627,00349-8362-01 ",.02)
  1. ;;00349-8362-01
  1. ;;9002226.02101,"627,00349-8362-10 ",.01)
  1. ;;00349-8362-10
  1. ;;9002226.02101,"627,00349-8362-10 ",.02)
  1. ;;00349-8362-10
  1. ;;9002226.02101,"627,00378-1610-01 ",.01)
  1. ;;00378-1610-01
  1. ;;9002226.02101,"627,00378-1610-01 ",.02)
  1. ;;00378-1610-01
  1. ;;9002226.02101,"627,00378-1610-05 ",.01)
  1. ;;00378-1610-05
  1. ;;9002226.02101,"627,00378-1610-05 ",.02)
  1. ;;00378-1610-05
  1. ;;9002226.02101,"627,00378-1620-01 ",.01)
  1. ;;00378-1620-01
  1. ;;9002226.02101,"627,00378-1620-01 ",.02)
  1. ;;00378-1620-01
  1. ;;9002226.02101,"627,00378-1620-05 ",.01)
  1. ;;00378-1620-05
  1. ;;9002226.02101,"627,00378-1620-05 ",.02)
  1. ;;00378-1620-05
  1. ;;9002226.02101,"627,00405-4328-01 ",.01)
  1. ;;00405-4328-01
  1. ;;9002226.02101,"627,00405-4328-01 ",.02)
  1. ;;00405-4328-01
  1. ;;9002226.02101,"627,00405-4328-03 ",.01)
  1. ;;00405-4328-03
  1. ;;9002226.02101,"627,00405-4328-03 ",.02)
  1. ;;00405-4328-03
  1. ;;9002226.02101,"627,00463-1104-10 ",.01)
  1. ;;00463-1104-10
  1. ;;9002226.02101,"627,00463-1104-10 ",.02)
  1. ;;00463-1104-10
  1. ;;9002226.02101,"627,00472-1450-94 ",.01)
  1. ;;00472-1450-94
  1. ;;9002226.02101,"627,00472-1450-94 ",.02)
  1. ;;00472-1450-94
  1. ;;9002226.02101,"627,00527-0586-01 ",.01)
  1. ;;00527-0586-01
  1. ;;9002226.02101,"627,00527-0586-01 ",.02)
  1. ;;00527-0586-01
  1. ;;9002226.02101,"627,00527-0586-05 ",.01)
  1. ;;00527-0586-05
  1. ;;9002226.02101,"627,00527-0586-05 ",.02)
  1. ;;00527-0586-05
  1. ;;9002226.02101,"627,00527-0586-10 ",.01)
  1. ;;00527-0586-10
  1. ;;9002226.02101,"627,00527-0586-10 ",.02)
  1. ;;00527-0586-10
  1. ;;9002226.02101,"627,00527-1282-01 ",.01)
  1. ;;00527-1282-01
  1. ;;9002226.02101,"627,00527-1282-01 ",.02)
  1. ;;00527-1282-01
  1. ;;9002226.02101,"627,00527-1282-05 ",.01)
  1. ;;00527-1282-05
  1. ;;9002226.02101,"627,00527-1282-05 ",.02)
  1. ;;00527-1282-05
  1. ;;9002226.02101,"627,00527-1282-10 ",.01)
  1. ;;00527-1282-10
  1. ;;9002226.02101,"627,00527-1282-10 ",.02)
  1. ;;00527-1282-10
  1. ;;9002226.02101,"627,00536-3801-11 ",.01)
  1. ;;00536-3801-11
  1. ;;9002226.02101,"627,00536-3801-11 ",.02)
  1. ;;00536-3801-11
  1. ;;9002226.02101,"627,00556-0352-01 ",.01)
  1. ;;00556-0352-01
  1. ;;9002226.02101,"627,00556-0352-01 ",.02)
  1. ;;00556-0352-01
  1. ;;9002226.02101,"627,00556-0352-10 ",.01)
  1. ;;00556-0352-10
  1. ;;9002226.02101,"627,00556-0352-10 ",.02)
  1. ;;00556-0352-10
  1. ;;9002226.02101,"627,00556-0353-01 ",.01)
  1. ;;00556-0353-01
  1. ;;9002226.02101,"627,00556-0353-01 ",.02)
  1. ;;00556-0353-01
  1. ;;9002226.02101,"627,00556-0353-10 ",.01)
  1. ;;00556-0353-10
  1. ;;9002226.02101,"627,00556-0353-10 ",.02)
  1. ;;00556-0353-10
  1. ;;9002226.02101,"627,00556-0354-01 ",.01)
  1. ;;00556-0354-01
  1. ;;9002226.02101,"627,00556-0354-01 ",.02)
  1. ;;00556-0354-01
  1. ;;9002226.02101,"627,00556-0354-10 ",.01)
  1. ;;00556-0354-10
  1. ;;9002226.02101,"627,00556-0354-10 ",.02)
  1. ;;00556-0354-10
  1. ;;9002226.02101,"627,00591-0794-01 ",.01)
  1. ;;00591-0794-01
  1. ;;9002226.02101,"627,00591-0794-01 ",.02)
  1. ;;00591-0794-01
  1. ;;9002226.02101,"627,00591-0794-10 ",.01)
  1. ;;00591-0794-10
  1. ;;9002226.02101,"627,00591-0794-10 ",.02)
  1. ;;00591-0794-10
  1. ;;9002226.02101,"627,00591-0795-01 ",.01)
  1. ;;00591-0795-01
  1. ;;9002226.02101,"627,00591-0795-01 ",.02)
  1. ;;00591-0795-01
  1. ;;9002226.02101,"627,00591-0795-10 ",.01)
  1. ;;00591-0795-10
  1. ;;9002226.02101,"627,00591-0795-10 ",.02)
  1. ;;00591-0795-10
  1. ;;9002226.02101,"627,00591-5542-01 ",.01)
  1. ;;00591-5542-01
  1. ;;9002226.02101,"627,00591-5542-01 ",.02)
  1. ;;00591-5542-01
  1. ;;9002226.02101,"627,00591-5542-04 ",.01)
  1. ;;00591-5542-04
  1. ;;9002226.02101,"627,00591-5542-04 ",.02)
  1. ;;00591-5542-04
  1. ;;9002226.02101,"627,00591-5566-01 ",.01)
  1. ;;00591-5566-01
  1. ;;9002226.02101,"627,00591-5566-01 ",.02)
  1. ;;00591-5566-01
  1. ;;9002226.02101,"627,00591-5566-04 ",.01)
  1. ;;00591-5566-04
  1. ;;9002226.02101,"627,00591-5566-04 ",.02)
  1. ;;00591-5566-04
  1. ;;9002226.02101,"627,00591-5568-01 ",.01)
  1. ;;00591-5568-01
  1. ;;9002226.02101,"627,00591-5568-01 ",.02)
  1. ;;00591-5568-01
  1. ;;9002226.02101,"627,00591-5568-04 ",.01)
  1. ;;00591-5568-04
  1. ;;9002226.02101,"627,00591-5568-04 ",.02)
  1. ;;00591-5568-04
  1. ;;9002226.02101,"627,00603-1161-58 ",.01)
  1. ;;00603-1161-58
  1. ;;9002226.02101,"627,00603-1161-58 ",.02)
  1. ;;00603-1161-58
  1. ;;9002226.02101,"627,00603-3265-21 ",.01)
  1. ;;00603-3265-21
  1. ;;9002226.02101,"627,00603-3265-21 ",.02)
  1. ;;00603-3265-21
  1. ;;9002226.02101,"627,00603-3265-32 ",.01)
  1. ;;00603-3265-32
  1. ;;9002226.02101,"627,00603-3265-32 ",.02)
  1. ;;00603-3265-32
  1. ;;9002226.02101,"627,00603-3266-21 ",.01)
  1. ;;00603-3266-21
  1. ;;9002226.02101,"627,00603-3266-21 ",.02)
  1. ;;00603-3266-21
  1. ;;9002226.02101,"627,00615-0327-01 ",.01)
  1. ;;00615-0327-01
  1. ;;9002226.02101,"627,00615-0327-01 ",.02)
  1. ;;00615-0327-01
  1. ;;9002226.02101,"627,00615-0327-10 ",.01)
  1. ;;00615-0327-10
  1. ;;9002226.02101,"627,00615-0327-10 ",.02)
  1. ;;00615-0327-10
  1. ;;9002226.02101,"627,00615-1516-10 ",.01)
  1. ;;00615-1516-10
  1. ;;9002226.02101,"627,00615-1516-10 ",.02)
  1. ;;00615-1516-10
  1. ;;9002226.02101,"627,00615-2504-29 ",.01)
  1. ;;00615-2504-29
  1. ;;9002226.02101,"627,00615-2504-29 ",.02)
  1. ;;00615-2504-29
  1. ;;9002226.02101,"627,00615-2504-65 ",.01)
  1. ;;00615-2504-65
  1. ;;9002226.02101,"627,00615-2504-65 ",.02)
  1. ;;00615-2504-65
  1. ;;9002226.02101,"627,00615-2504-88 ",.01)
  1. ;;00615-2504-88
  1. ;;9002226.02101,"627,00615-2504-88 ",.02)
  1. ;;00615-2504-88
  1. ;;9002226.02101,"627,00615-2506-29 ",.01)
  1. ;;00615-2506-29
  1. ;;9002226.02101,"627,00615-2506-29 ",.02)
  1. ;;00615-2506-29
  1. ;;9002226.02101,"627,00615-2506-65 ",.01)
  1. ;;00615-2506-65
  1. ;;9002226.02101,"627,00615-2506-65 ",.02)
  1. ;;00615-2506-65
  1. ;;9002226.02101,"627,00615-2506-88 ",.01)
  1. ;;00615-2506-88
  1. ;;9002226.02101,"627,00615-2506-88 ",.02)
  1. ;;00615-2506-88
  1. ;;9002226.02101,"627,00615-2507-29 ",.01)
  1. ;;00615-2507-29
  1. ;;9002226.02101,"627,00615-2507-29 ",.02)
  1. ;;00615-2507-29
  1. ;;9002226.02101,"627,00615-2507-65 ",.01)
  1. ;;00615-2507-65
  1. ;;9002226.02101,"627,00615-2507-65 ",.02)
  1. ;;00615-2507-65
  1. ;;9002226.02101,"627,00615-2507-88 ",.01)
  1. ;;00615-2507-88
  1. ;;9002226.02101,"627,00615-2507-88 ",.02)
  1. ;;00615-2507-88
  1. ;;9002226.02101,"627,00675-4017-07 ",.01)
  1. ;;00675-4017-07
  1. ;;9002226.02101,"627,00675-4017-07 ",.02)
  1. ;;00675-4017-07
  1. ;;9002226.02101,"627,00675-4017-10 ",.01)
  1. ;;00675-4017-10
  1. ;;9002226.02101,"627,00675-4017-10 ",.02)
  1. ;;00675-4017-10
  1. ;;9002226.02101,"627,00675-4019-07 ",.01)
  1. ;;00675-4019-07
  1. ;;9002226.02101,"627,00675-4019-07 ",.02)
  1. ;;00675-4019-07
  1. ;;9002226.02101,"627,00675-4019-10 ",.01)
  1. ;;00675-4019-10
  1. ;;9002226.02101,"627,00675-4019-10 ",.02)
  1. ;;00675-4019-10
  1. ;;9002226.02101,"627,00675-4019-12 ",.01)
  1. ;;00675-4019-12
  1. ;;9002226.02101,"627,00675-4019-12 ",.02)
  1. ;;00675-4019-12
  1. ;;9002226.02101,"627,00675-4020-07 ",.01)
  1. ;;00675-4020-07
  1. ;;9002226.02101,"627,00675-4020-07 ",.02)
  1. ;;00675-4020-07
  1. ;;9002226.02101,"627,00675-4020-10 ",.01)
  1. ;;00675-4020-10
  1. ;;9002226.02101,"627,00675-4020-10 ",.02)
  1. ;;00675-4020-10
  1. ;;9002226.02101,"627,00675-4020-12 ",.01)
  1. ;;00675-4020-12
  1. ;;9002226.02101,"627,00675-4020-12 ",.02)
  1. ;;00675-4020-12
  1. ;;9002226.02101,"627,00677-0341-01 ",.01)
  1. ;;00677-0341-01
  1. ;;9002226.02101,"627,00677-0341-01 ",.02)
  1. ;;00677-0341-01
  1. ;;9002226.02101,"627,00677-0498-01 ",.01)
  1. ;;00677-0498-01
  1. ;;9002226.02101,"627,00677-0498-01 ",.02)
  1. ;;00677-0498-01
  1. ;;9002226.02101,"627,00686-0112-09 ",.01)
  1. ;;00686-0112-09