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