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

BGP53R2.m

Go to the documentation of this file.
  1. BGP53R2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 24, 2015;
  1. ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
  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,"493,00093-5171-20 ",.01)
  1. ;;00093-5171-20
  1. ;;9002226.02101,"493,00093-5171-20 ",.02)
  1. ;;00093-5171-20
  1. ;;9002226.02101,"493,00093-5171-29 ",.01)
  1. ;;00093-5171-29
  1. ;;9002226.02101,"493,00093-5171-29 ",.02)
  1. ;;00093-5171-29
  1. ;;9002226.02101,"493,00093-5171-44 ",.01)
  1. ;;00093-5171-44
  1. ;;9002226.02101,"493,00093-5171-44 ",.02)
  1. ;;00093-5171-44
  1. ;;9002226.02101,"493,00093-5172-19 ",.01)
  1. ;;00093-5172-19
  1. ;;9002226.02101,"493,00093-5172-19 ",.02)
  1. ;;00093-5172-19
  1. ;;9002226.02101,"493,00093-5172-20 ",.01)
  1. ;;00093-5172-20
  1. ;;9002226.02101,"493,00093-5172-20 ",.02)
  1. ;;00093-5172-20
  1. ;;9002226.02101,"493,00093-5172-29 ",.01)
  1. ;;00093-5172-29
  1. ;;9002226.02101,"493,00093-5172-29 ",.02)
  1. ;;00093-5172-29
  1. ;;9002226.02101,"493,00093-5172-44 ",.01)
  1. ;;00093-5172-44
  1. ;;9002226.02101,"493,00093-5172-44 ",.02)
  1. ;;00093-5172-44
  1. ;;9002226.02101,"493,00093-7290-01 ",.01)
  1. ;;00093-7290-01
  1. ;;9002226.02101,"493,00093-7290-01 ",.02)
  1. ;;00093-7290-01
  1. ;;9002226.02101,"493,00093-7290-10 ",.01)
  1. ;;00093-7290-10
  1. ;;9002226.02101,"493,00093-7290-10 ",.02)
  1. ;;00093-7290-10
  1. ;;9002226.02101,"493,00093-7290-56 ",.01)
  1. ;;00093-7290-56
  1. ;;9002226.02101,"493,00093-7290-56 ",.02)
  1. ;;00093-7290-56
  1. ;;9002226.02101,"493,00143-9642-01 ",.01)
  1. ;;00143-9642-01
  1. ;;9002226.02101,"493,00143-9642-01 ",.02)
  1. ;;00143-9642-01
  1. ;;9002226.02101,"493,00149-0470-01 ",.01)
  1. ;;00149-0470-01
  1. ;;9002226.02101,"493,00149-0470-01 ",.02)
  1. ;;00149-0470-01
  1. ;;9002226.02101,"493,00149-0470-03 ",.01)
  1. ;;00149-0470-03
  1. ;;9002226.02101,"493,00149-0470-03 ",.02)
  1. ;;00149-0470-03
  1. ;;9002226.02101,"493,00149-0471-01 ",.01)
  1. ;;00149-0471-01
  1. ;;9002226.02101,"493,00149-0471-01 ",.02)
  1. ;;00149-0471-01
  1. ;;9002226.02101,"493,00149-0471-03 ",.01)
  1. ;;00149-0471-03
  1. ;;9002226.02101,"493,00149-0471-03 ",.02)
  1. ;;00149-0471-03
  1. ;;9002226.02101,"493,00149-0472-01 ",.01)
  1. ;;00149-0472-01
  1. ;;9002226.02101,"493,00149-0472-01 ",.02)
  1. ;;00149-0472-01
  1. ;;9002226.02101,"493,00149-0472-04 ",.01)
  1. ;;00149-0472-04
  1. ;;9002226.02101,"493,00149-0472-04 ",.02)
  1. ;;00149-0472-04
  1. ;;9002226.02101,"493,00149-0478-01 ",.01)
  1. ;;00149-0478-01
  1. ;;9002226.02101,"493,00149-0478-01 ",.02)
  1. ;;00149-0478-01
  1. ;;9002226.02101,"493,00149-0478-03 ",.01)
  1. ;;00149-0478-03
  1. ;;9002226.02101,"493,00149-0478-03 ",.02)
  1. ;;00149-0478-03
  1. ;;9002226.02101,"493,00178-0101-02 ",.01)
  1. ;;00178-0101-02
  1. ;;9002226.02101,"493,00178-0101-02 ",.02)
  1. ;;00178-0101-02
  1. ;;9002226.02101,"493,00245-0008-35 ",.01)
  1. ;;00245-0008-35
  1. ;;9002226.02101,"493,00245-0008-35 ",.02)
  1. ;;00245-0008-35
  1. ;;9002226.02101,"493,00247-1960-15 ",.01)
  1. ;;00247-1960-15
  1. ;;9002226.02101,"493,00247-1960-15 ",.02)
  1. ;;00247-1960-15
  1. ;;9002226.02101,"493,00247-1960-30 ",.01)
  1. ;;00247-1960-30
  1. ;;9002226.02101,"493,00247-1960-30 ",.02)
  1. ;;00247-1960-30
  1. ;;9002226.02101,"493,00378-3566-01 ",.01)
  1. ;;00378-3566-01
  1. ;;9002226.02101,"493,00378-3566-01 ",.02)
  1. ;;00378-3566-01
  1. ;;9002226.02101,"493,00378-3567-01 ",.01)
  1. ;;00378-3567-01
  1. ;;9002226.02101,"493,00378-3567-01 ",.02)
  1. ;;00378-3567-01
  1. ;;9002226.02101,"493,00378-3568-22 ",.01)
  1. ;;00378-3568-22
  1. ;;9002226.02101,"493,00378-3568-22 ",.02)
  1. ;;00378-3568-22
  1. ;;9002226.02101,"493,00378-3568-93 ",.01)
  1. ;;00378-3568-93
  1. ;;9002226.02101,"493,00378-3568-93 ",.02)
  1. ;;00378-3568-93
  1. ;;9002226.02101,"493,00378-3568-99 ",.01)
  1. ;;00378-3568-99
  1. ;;9002226.02101,"493,00378-3568-99 ",.02)
  1. ;;00378-3568-99
  1. ;;9002226.02101,"493,00378-3569-22 ",.01)
  1. ;;00378-3569-22
  1. ;;9002226.02101,"493,00378-3569-22 ",.02)
  1. ;;00378-3569-22
  1. ;;9002226.02101,"493,00378-3569-93 ",.01)
  1. ;;00378-3569-93
  1. ;;9002226.02101,"493,00378-3569-93 ",.02)
  1. ;;00378-3569-93
  1. ;;9002226.02101,"493,00378-3569-99 ",.01)
  1. ;;00378-3569-99
  1. ;;9002226.02101,"493,00378-3569-99 ",.02)
  1. ;;00378-3569-99
  1. ;;9002226.02101,"493,00378-4150-32 ",.01)
  1. ;;00378-4150-32
  1. ;;9002226.02101,"493,00378-4150-32 ",.02)
  1. ;;00378-4150-32
  1. ;;9002226.02101,"493,00378-4150-53 ",.01)
  1. ;;00378-4150-53
  1. ;;9002226.02101,"493,00378-4150-53 ",.02)
  1. ;;00378-4150-53
  1. ;;9002226.02101,"493,00378-5215-53 ",.01)
  1. ;;00378-5215-53
  1. ;;9002226.02101,"493,00378-5215-53 ",.02)
  1. ;;00378-5215-53
  1. ;;9002226.02101,"493,00430-0470-15 ",.01)
  1. ;;00430-0470-15
  1. ;;9002226.02101,"493,00430-0470-15 ",.02)
  1. ;;00430-0470-15
  1. ;;9002226.02101,"493,00430-0471-15 ",.01)
  1. ;;00430-0471-15
  1. ;;9002226.02101,"493,00430-0471-15 ",.02)
  1. ;;00430-0471-15
  1. ;;9002226.02101,"493,00430-0472-03 ",.01)
  1. ;;00430-0472-03
  1. ;;9002226.02101,"493,00430-0472-03 ",.02)
  1. ;;00430-0472-03
  1. ;;9002226.02101,"493,00430-0472-07 ",.01)
  1. ;;00430-0472-07
  1. ;;9002226.02101,"493,00430-0472-07 ",.02)
  1. ;;00430-0472-07
  1. ;;9002226.02101,"493,00430-0478-01 ",.01)
  1. ;;00430-0478-01
  1. ;;9002226.02101,"493,00430-0478-01 ",.02)
  1. ;;00430-0478-01
  1. ;;9002226.02101,"493,00430-0478-02 ",.01)
  1. ;;00430-0478-02
  1. ;;9002226.02101,"493,00430-0478-02 ",.02)
  1. ;;00430-0478-02
  1. ;;9002226.02101,"493,00430-0979-03 ",.01)
  1. ;;00430-0979-03
  1. ;;9002226.02101,"493,00430-0979-03 ",.02)
  1. ;;00430-0979-03
  1. ;;9002226.02101,"493,00555-0720-54 ",.01)
  1. ;;00555-0720-54
  1. ;;9002226.02101,"493,00555-0720-54 ",.02)
  1. ;;00555-0720-54
  1. ;;9002226.02101,"493,00591-0031-04 ",.01)
  1. ;;00591-0031-04
  1. ;;9002226.02101,"493,00591-0031-04 ",.02)
  1. ;;00591-0031-04
  1. ;;9002226.02101,"493,00591-0077-04 ",.01)
  1. ;;00591-0077-04
  1. ;;9002226.02101,"493,00591-0077-04 ",.02)
  1. ;;00591-0077-04
  1. ;;9002226.02101,"493,00591-2044-03 ",.01)
  1. ;;00591-2044-03
  1. ;;9002226.02101,"493,00591-2044-03 ",.02)
  1. ;;00591-2044-03
  1. ;;9002226.02101,"493,00591-2044-54 ",.01)
  1. ;;00591-2044-54
  1. ;;9002226.02101,"493,00591-2044-54 ",.02)
  1. ;;00591-2044-54
  1. ;;9002226.02101,"493,00591-3171-04 ",.01)
  1. ;;00591-3171-04
  1. ;;9002226.02101,"493,00591-3171-04 ",.02)
  1. ;;00591-3171-04
  1. ;;9002226.02101,"493,00591-3173-04 ",.01)
  1. ;;00591-3173-04
  1. ;;9002226.02101,"493,00591-3173-04 ",.02)
  1. ;;00591-3173-04
  1. ;;9002226.02101,"493,00591-3770-31 ",.01)
  1. ;;00591-3770-31
  1. ;;9002226.02101,"493,00591-3770-31 ",.02)
  1. ;;00591-3770-31
  1. ;;9002226.02101,"493,00781-6320-79 ",.01)
  1. ;;00781-6320-79
  1. ;;9002226.02101,"493,00781-6320-79 ",.02)
  1. ;;00781-6320-79
  1. ;;9002226.02101,"493,12280-0418-30 ",.01)
  1. ;;12280-0418-30
  1. ;;9002226.02101,"493,12280-0418-30 ",.02)
  1. ;;12280-0418-30
  1. ;;9002226.02101,"493,16252-0599-02 ",.01)
  1. ;;16252-0599-02
  1. ;;9002226.02101,"493,16252-0599-02 ",.02)
  1. ;;16252-0599-02
  1. ;;9002226.02101,"493,16252-0599-44 ",.01)
  1. ;;16252-0599-44
  1. ;;9002226.02101,"493,16252-0599-44 ",.02)
  1. ;;16252-0599-44
  1. ;;9002226.02101,"493,16252-0601-02 ",.01)
  1. ;;16252-0601-02
  1. ;;9002226.02101,"493,16252-0601-02 ",.02)
  1. ;;16252-0601-02
  1. ;;9002226.02101,"493,16252-0601-44 ",.01)
  1. ;;16252-0601-44
  1. ;;9002226.02101,"493,16252-0601-44 ",.02)
  1. ;;16252-0601-44
  1. ;;9002226.02101,"493,16590-0491-04 ",.01)
  1. ;;16590-0491-04
  1. ;;9002226.02101,"493,16590-0491-04 ",.02)
  1. ;;16590-0491-04
  1. ;;9002226.02101,"493,16590-0718-04 ",.01)
  1. ;;16590-0718-04
  1. ;;9002226.02101,"493,16590-0718-04 ",.02)
  1. ;;16590-0718-04
  1. ;;9002226.02101,"493,16590-0718-20 ",.01)
  1. ;;16590-0718-20
  1. ;;9002226.02101,"493,16590-0718-20 ",.02)
  1. ;;16590-0718-20
  1. ;;9002226.02101,"493,16590-0718-30 ",.01)
  1. ;;16590-0718-30
  1. ;;9002226.02101,"493,16590-0718-30 ",.02)
  1. ;;16590-0718-30
  1. ;;9002226.02101,"493,16590-0721-04 ",.01)
  1. ;;16590-0721-04
  1. ;;9002226.02101,"493,16590-0721-04 ",.02)
  1. ;;16590-0721-04
  1. ;;9002226.02101,"493,16714-0631-01 ",.01)
  1. ;;16714-0631-01
  1. ;;9002226.02101,"493,16714-0631-01 ",.02)
  1. ;;16714-0631-01
  1. ;;9002226.02101,"493,16714-0631-02 ",.01)
  1. ;;16714-0631-02
  1. ;;9002226.02101,"493,16714-0631-02 ",.02)
  1. ;;16714-0631-02
  1. ;;9002226.02101,"493,16714-0632-01 ",.01)
  1. ;;16714-0632-01
  1. ;;9002226.02101,"493,16714-0632-01 ",.02)
  1. ;;16714-0632-01
  1. ;;9002226.02101,"493,16714-0632-02 ",.01)
  1. ;;16714-0632-02
  1. ;;9002226.02101,"493,16714-0632-02 ",.02)
  1. ;;16714-0632-02
  1. ;;9002226.02101,"493,16714-0633-01 ",.01)
  1. ;;16714-0633-01
  1. ;;9002226.02101,"493,16714-0633-01 ",.02)
  1. ;;16714-0633-01
  1. ;;9002226.02101,"493,16714-0633-02 ",.01)
  1. ;;16714-0633-02
  1. ;;9002226.02101,"493,16714-0633-02 ",.02)
  1. ;;16714-0633-02
  1. ;;9002226.02101,"493,21695-0901-04 ",.01)
  1. ;;21695-0901-04
  1. ;;9002226.02101,"493,21695-0901-04 ",.02)
  1. ;;21695-0901-04
  1. ;;9002226.02101,"493,21695-0902-04 ",.01)
  1. ;;21695-0902-04
  1. ;;9002226.02101,"493,21695-0902-04 ",.02)
  1. ;;21695-0902-04
  1. ;;9002226.02101,"493,23155-0170-31 ",.01)
  1. ;;23155-0170-31
  1. ;;9002226.02101,"493,23155-0170-31 ",.02)
  1. ;;23155-0170-31
  1. ;;9002226.02101,"493,23155-0186-31 ",.01)
  1. ;;23155-0186-31
  1. ;;9002226.02101,"493,23155-0186-31 ",.02)
  1. ;;23155-0186-31
  1. ;;9002226.02101,"493,23490-9245-00 ",.01)
  1. ;;23490-9245-00
  1. ;;9002226.02101,"493,23490-9245-00 ",.02)
  1. ;;23490-9245-00
  1. ;;9002226.02101,"493,24658-0162-71 ",.01)
  1. ;;24658-0162-71
  1. ;;9002226.02101,"493,24658-0162-71 ",.02)
  1. ;;24658-0162-71
  1. ;;9002226.02101,"493,24658-0162-73 ",.01)
  1. ;;24658-0162-73
  1. ;;9002226.02101,"493,24658-0162-73 ",.02)
  1. ;;24658-0162-73
  1. ;;9002226.02101,"493,24658-0163-71 ",.01)
  1. ;;24658-0163-71
  1. ;;9002226.02101,"493,24658-0163-71 ",.02)
  1. ;;24658-0163-71
  1. ;;9002226.02101,"493,24658-0163-73 ",.01)
  1. ;;24658-0163-73
  1. ;;9002226.02101,"493,24658-0163-73 ",.02)
  1. ;;24658-0163-73
  1. ;;9002226.02101,"493,25021-0801-66 ",.01)
  1. ;;25021-0801-66
  1. ;;9002226.02101,"493,25021-0801-66 ",.02)
  1. ;;25021-0801-66
  1. ;;9002226.02101,"493,25021-0826-82 ",.01)
  1. ;;25021-0826-82
  1. ;;9002226.02101,"493,25021-0826-82 ",.02)
  1. ;;25021-0826-82
  1. ;;9002226.02101,"493,25021-0827-61 ",.01)
  1. ;;25021-0827-61
  1. ;;9002226.02101,"493,25021-0827-61 ",.02)
  1. ;;25021-0827-61
  1. ;;9002226.02101,"493,25021-0830-82 ",.01)
  1. ;;25021-0830-82
  1. ;;9002226.02101,"493,25021-0830-82 ",.02)
  1. ;;25021-0830-82
  1. ;;9002226.02101,"493,35356-0351-01 ",.01)
  1. ;;35356-0351-01
  1. ;;9002226.02101,"493,35356-0351-01 ",.02)
  1. ;;35356-0351-01
  1. ;;9002226.02101,"493,35356-0423-03 ",.01)
  1. ;;35356-0423-03
  1. ;;9002226.02101,"493,35356-0423-03 ",.02)
  1. ;;35356-0423-03
  1. ;;9002226.02101,"493,41616-0635-83 ",.01)
  1. ;;41616-0635-83
  1. ;;9002226.02101,"493,41616-0635-83 ",.02)
  1. ;;41616-0635-83
  1. ;;9002226.02101,"493,41616-0635-88 ",.01)
  1. ;;41616-0635-88
  1. ;;9002226.02101,"493,41616-0635-88 ",.02)
  1. ;;41616-0635-88
  1. ;;9002226.02101,"493,41616-0636-83 ",.01)
  1. ;;41616-0636-83
  1. ;;9002226.02101,"493,41616-0636-83 ",.02)
  1. ;;41616-0636-83
  1. ;;9002226.02101,"493,41616-0636-88 ",.01)
  1. ;;41616-0636-88
  1. ;;9002226.02101,"493,41616-0636-88 ",.02)
  1. ;;41616-0636-88
  1. ;;9002226.02101,"493,41616-0637-68 ",.01)
  1. ;;41616-0637-68
  1. ;;9002226.02101,"493,41616-0637-68 ",.02)
  1. ;;41616-0637-68
  1. ;;9002226.02101,"493,41616-0638-68 ",.01)
  1. ;;41616-0638-68
  1. ;;9002226.02101,"493,41616-0638-68 ",.02)
  1. ;;41616-0638-68
  1. ;;9002226.02101,"493,42023-0151-01 ",.01)
  1. ;;42023-0151-01
  1. ;;9002226.02101,"493,42023-0151-01 ",.02)
  1. ;;42023-0151-01
  1. ;;9002226.02101,"493,42023-0163-01 ",.01)
  1. ;;42023-0163-01
  1. ;;9002226.02101,"493,42023-0163-01 ",.02)
  1. ;;42023-0163-01
  1. ;;9002226.02101,"493,42291-0336-03 ",.01)
  1. ;;42291-0336-03
  1. ;;9002226.02101,"493,42291-0336-03 ",.02)
  1. ;;42291-0336-03
  1. ;;9002226.02101,"493,43598-0330-11 ",.01)
  1. ;;43598-0330-11
  1. ;;9002226.02101,"493,43598-0330-11 ",.02)
  1. ;;43598-0330-11
  1. ;;9002226.02101,"493,43598-0331-11 ",.01)
  1. ;;43598-0331-11
  1. ;;9002226.02101,"493,43598-0331-11 ",.02)
  1. ;;43598-0331-11
  1. ;;9002226.02101,"493,47335-0035-40 ",.01)
  1. ;;47335-0035-40
  1. ;;9002226.02101,"493,47335-0035-40 ",.02)
  1. ;;47335-0035-40
  1. ;;9002226.02101,"493,47335-0962-41 ",.01)
  1. ;;47335-0962-41
  1. ;;9002226.02101,"493,47335-0962-41 ",.02)
  1. ;;47335-0962-41
  1. ;;9002226.02101,"493,49884-0161-11 ",.01)
  1. ;;49884-0161-11
  1. ;;9002226.02101,"493,49884-0161-11 ",.02)
  1. ;;49884-0161-11
  1. ;;9002226.02101,"493,49999-0448-04 ",.01)
  1. ;;49999-0448-04
  1. ;;9002226.02101,"493,49999-0448-04 ",.02)
  1. ;;49999-0448-04
  1. ;;9002226.02101,"493,49999-0458-30 ",.01)
  1. ;;49999-0458-30
  1. ;;9002226.02101,"493,49999-0458-30 ",.02)
  1. ;;49999-0458-30
  1. ;;9002226.02101,"493,49999-0501-04 ",.01)
  1. ;;49999-0501-04
  1. ;;9002226.02101,"493,49999-0501-04 ",.02)
  1. ;;49999-0501-04
  1. ;;9002226.02101,"493,51079-0941-01 ",.01)
  1. ;;51079-0941-01
  1. ;;9002226.02101,"493,51079-0941-01 ",.02)
  1. ;;51079-0941-01
  1. ;;9002226.02101,"493,51079-0941-05 ",.01)
  1. ;;51079-0941-05
  1. ;;9002226.02101,"493,51079-0941-05 ",.02)
  1. ;;51079-0941-05
  1. ;;9002226.02101,"493,51079-0942-01 ",.01)
  1. ;;51079-0942-01
  1. ;;9002226.02101,"493,51079-0942-01 ",.02)
  1. ;;51079-0942-01
  1. ;;9002226.02101,"493,51079-0942-05 ",.01)
  1. ;;51079-0942-05
  1. ;;9002226.02101,"493,51079-0942-05 ",.02)
  1. ;;51079-0942-05
  1. ;;9002226.02101,"493,51224-0301-10 ",.01)
  1. ;;51224-0301-10
  1. ;;9002226.02101,"493,51224-0301-10 ",.02)
  1. ;;51224-0301-10
  1. ;;9002226.02101,"493,53150-0871-01 ",.01)
  1. ;;53150-0871-01
  1. ;;9002226.02101,"493,53150-0871-01 ",.02)
  1. ;;53150-0871-01
  1. ;;9002226.02101,"493,54569-4628-00 ",.01)
  1. ;;54569-4628-00
  1. ;;9002226.02101,"493,54569-4628-00 ",.02)
  1. ;;54569-4628-00
  1. ;;9002226.02101,"493,54569-4866-00 ",.01)
  1. ;;54569-4866-00
  1. ;;9002226.02101,"493,54569-4866-00 ",.02)
  1. ;;54569-4866-00
  1. ;;9002226.02101,"493,54569-5218-00 ",.01)
  1. ;;54569-5218-00
  1. ;;9002226.02101,"493,54569-5218-00 ",.02)
  1. ;;54569-5218-00
  1. ;;9002226.02101,"493,54569-5399-00 ",.01)
  1. ;;54569-5399-00
  1. ;;9002226.02101,"493,54569-5399-00 ",.02)
  1. ;;54569-5399-00
  1. ;;9002226.02101,"493,54569-5462-00 ",.01)
  1. ;;54569-5462-00
  1. ;;9002226.02101,"493,54569-5462-00 ",.02)
  1. ;;54569-5462-00
  1. ;;9002226.02101,"493,54569-6047-00 ",.01)
  1. ;;54569-6047-00
  1. ;;9002226.02101,"493,54569-6047-00 ",.02)
  1. ;;54569-6047-00
  1. ;;9002226.02101,"493,54569-6050-00 ",.01)
  1. ;;54569-6050-00
  1. ;;9002226.02101,"493,54569-6050-00 ",.02)
  1. ;;54569-6050-00