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

BGP48K9.m

Go to the documentation of this file.
BGP48K9 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 24, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"1813,08450-6037-05 ",.02)
 ;;08450-6037-05
 ;;9002226.02101,"1813,08450-6046-03 ",.01)
 ;;08450-6046-03
 ;;9002226.02101,"1813,08450-6046-03 ",.02)
 ;;08450-6046-03
 ;;9002226.02101,"1813,08450-6049-03 ",.01)
 ;;08450-6049-03
 ;;9002226.02101,"1813,08450-6049-03 ",.02)
 ;;08450-6049-03
 ;;9002226.02101,"1813,08450-6050-05 ",.01)
 ;;08450-6050-05
 ;;9002226.02101,"1813,08450-6050-05 ",.02)
 ;;08450-6050-05
 ;;9002226.02101,"1813,08450-6055-03 ",.01)
 ;;08450-6055-03
 ;;9002226.02101,"1813,08450-6055-03 ",.02)
 ;;08450-6055-03
 ;;9002226.02101,"1813,08450-6058-05 ",.01)
 ;;08450-6058-05
 ;;9002226.02101,"1813,08450-6058-05 ",.02)
 ;;08450-6058-05
 ;;9002226.02101,"1813,08881-5801-21 ",.01)
 ;;08881-5801-21
 ;;9002226.02101,"1813,08881-5801-21 ",.02)
 ;;08881-5801-21
 ;;9002226.02101,"1813,08881-5801-23 ",.01)
 ;;08881-5801-23
 ;;9002226.02101,"1813,08881-5801-23 ",.02)
 ;;08881-5801-23
 ;;9002226.02101,"1813,08881-5801-25 ",.01)
 ;;08881-5801-25
 ;;9002226.02101,"1813,08881-5801-25 ",.02)
 ;;08881-5801-25
 ;;9002226.02101,"1813,08881-5811-25 ",.01)
 ;;08881-5811-25
 ;;9002226.02101,"1813,08881-5811-25 ",.02)
 ;;08881-5811-25
 ;;9002226.02101,"1813,08881-5813-00 ",.01)
 ;;08881-5813-00
 ;;9002226.02101,"1813,08881-5813-00 ",.02)
 ;;08881-5813-00
 ;;9002226.02101,"1813,08881-5901-21 ",.01)
 ;;08881-5901-21
 ;;9002226.02101,"1813,08881-5901-21 ",.02)
 ;;08881-5901-21
 ;;9002226.02101,"1813,08881-5901-23 ",.01)
 ;;08881-5901-23
 ;;9002226.02101,"1813,08881-5901-23 ",.02)
 ;;08881-5901-23
 ;;9002226.02101,"1813,08881-5901-25 ",.01)
 ;;08881-5901-25
 ;;9002226.02101,"1813,08881-5901-25 ",.02)
 ;;08881-5901-25
 ;;9002226.02101,"1813,08881-5911-25 ",.01)
 ;;08881-5911-25
 ;;9002226.02101,"1813,08881-5911-25 ",.02)
 ;;08881-5911-25
 ;;9002226.02101,"1813,08881-5913-00 ",.01)
 ;;08881-5913-00
 ;;9002226.02101,"1813,08881-5913-00 ",.02)
 ;;08881-5913-00
 ;;9002226.02101,"1813,10974-0008-05 ",.01)
 ;;10974-0008-05
 ;;9002226.02101,"1813,10974-0008-05 ",.02)
 ;;10974-0008-05
 ;;9002226.02101,"1813,12280-0312-30 ",.01)
 ;;12280-0312-30
 ;;9002226.02101,"1813,12280-0312-30 ",.02)
 ;;12280-0312-30
 ;;9002226.02101,"1813,12280-0312-60 ",.01)
 ;;12280-0312-60
 ;;9002226.02101,"1813,12280-0312-60 ",.02)
 ;;12280-0312-60
 ;;9002226.02101,"1813,12280-0312-90 ",.01)
 ;;12280-0312-90
 ;;9002226.02101,"1813,12280-0312-90 ",.02)
 ;;12280-0312-90
 ;;9002226.02101,"1813,15330-0100-01 ",.01)
 ;;15330-0100-01
 ;;9002226.02101,"1813,15330-0100-01 ",.02)
 ;;15330-0100-01
 ;;9002226.02101,"1813,15330-0100-10 ",.01)
 ;;15330-0100-10
 ;;9002226.02101,"1813,15330-0100-10 ",.02)
 ;;15330-0100-10
 ;;9002226.02101,"1813,15330-0101-01 ",.01)
 ;;15330-0101-01
 ;;9002226.02101,"1813,15330-0101-01 ",.02)
 ;;15330-0101-01
 ;;9002226.02101,"1813,15330-0101-10 ",.01)
 ;;15330-0101-10
 ;;9002226.02101,"1813,15330-0101-10 ",.02)
 ;;15330-0101-10
 ;;9002226.02101,"1813,15330-0102-01 ",.01)
 ;;15330-0102-01
 ;;9002226.02101,"1813,15330-0102-01 ",.02)
 ;;15330-0102-01
 ;;9002226.02101,"1813,15330-0102-10 ",.01)
 ;;15330-0102-10
 ;;9002226.02101,"1813,15330-0102-10 ",.02)
 ;;15330-0102-10
 ;;9002226.02101,"1813,15330-0106-01 ",.01)
 ;;15330-0106-01
 ;;9002226.02101,"1813,15330-0106-01 ",.02)
 ;;15330-0106-01
 ;;9002226.02101,"1813,15330-0107-01 ",.01)
 ;;15330-0107-01
 ;;9002226.02101,"1813,15330-0107-01 ",.02)
 ;;15330-0107-01
 ;;9002226.02101,"1813,15330-0108-01 ",.01)
 ;;15330-0108-01
 ;;9002226.02101,"1813,15330-0108-01 ",.02)
 ;;15330-0108-01
 ;;9002226.02101,"1813,15330-0266-01 ",.01)
 ;;15330-0266-01
 ;;9002226.02101,"1813,15330-0266-01 ",.02)
 ;;15330-0266-01
 ;;9002226.02101,"1813,15330-0267-01 ",.01)
 ;;15330-0267-01
 ;;9002226.02101,"1813,15330-0267-01 ",.02)
 ;;15330-0267-01
 ;;9002226.02101,"1813,15330-0268-01 ",.01)
 ;;15330-0268-01
 ;;9002226.02101,"1813,15330-0268-01 ",.02)
 ;;15330-0268-01
 ;;9002226.02101,"1813,15330-0268-10 ",.01)
 ;;15330-0268-10
 ;;9002226.02101,"1813,15330-0268-10 ",.02)
 ;;15330-0268-10
 ;;9002226.02101,"1813,16590-0340-30 ",.01)
 ;;16590-0340-30
 ;;9002226.02101,"1813,16590-0340-30 ",.02)
 ;;16590-0340-30
 ;;9002226.02101,"1813,16590-0340-60 ",.01)
 ;;16590-0340-60
 ;;9002226.02101,"1813,16590-0340-60 ",.02)
 ;;16590-0340-60
 ;;9002226.02101,"1813,16590-0340-90 ",.01)
 ;;16590-0340-90
 ;;9002226.02101,"1813,16590-0340-90 ",.02)
 ;;16590-0340-90
 ;;9002226.02101,"1813,16590-0341-30 ",.01)
 ;;16590-0341-30
 ;;9002226.02101,"1813,16590-0341-30 ",.02)
 ;;16590-0341-30
 ;;9002226.02101,"1813,16590-0341-60 ",.01)
 ;;16590-0341-60
 ;;9002226.02101,"1813,16590-0341-60 ",.02)
 ;;16590-0341-60
 ;;9002226.02101,"1813,16590-0341-90 ",.01)
 ;;16590-0341-90
 ;;9002226.02101,"1813,16590-0341-90 ",.02)
 ;;16590-0341-90
 ;;9002226.02101,"1813,17474-0123-01 ",.01)
 ;;17474-0123-01
 ;;9002226.02101,"1813,17474-0123-01 ",.02)
 ;;17474-0123-01
 ;;9002226.02101,"1813,17474-0123-02 ",.01)
 ;;17474-0123-02
 ;;9002226.02101,"1813,17474-0123-02 ",.02)
 ;;17474-0123-02
 ;;9002226.02101,"1813,17474-0123-03 ",.01)
 ;;17474-0123-03
 ;;9002226.02101,"1813,17474-0123-03 ",.02)
 ;;17474-0123-03
 ;;9002226.02101,"1813,17474-0123-05 ",.01)
 ;;17474-0123-05
 ;;9002226.02101,"1813,17474-0123-05 ",.02)
 ;;17474-0123-05
 ;;9002226.02101,"1813,17474-0125-01 ",.01)
 ;;17474-0125-01
 ;;9002226.02101,"1813,17474-0125-01 ",.02)
 ;;17474-0125-01
 ;;9002226.02101,"1813,17474-0125-02 ",.01)
 ;;17474-0125-02
 ;;9002226.02101,"1813,17474-0125-02 ",.02)
 ;;17474-0125-02
 ;;9002226.02101,"1813,17474-0125-03 ",.01)
 ;;17474-0125-03
 ;;9002226.02101,"1813,17474-0125-03 ",.02)
 ;;17474-0125-03
 ;;9002226.02101,"1813,17474-0125-05 ",.01)
 ;;17474-0125-05
 ;;9002226.02101,"1813,17474-0125-05 ",.02)
 ;;17474-0125-05
 ;;9002226.02101,"1813,21695-0672-30 ",.01)
 ;;21695-0672-30
 ;;9002226.02101,"1813,21695-0672-30 ",.02)
 ;;21695-0672-30
 ;;9002226.02101,"1813,21695-0673-30 ",.01)
 ;;21695-0673-30
 ;;9002226.02101,"1813,21695-0673-30 ",.02)
 ;;21695-0673-30
 ;;9002226.02101,"1813,21695-0673-60 ",.01)
 ;;21695-0673-60
 ;;9002226.02101,"1813,21695-0673-60 ",.02)
 ;;21695-0673-60
 ;;9002226.02101,"1813,21695-0674-30 ",.01)
 ;;21695-0674-30
 ;;9002226.02101,"1813,21695-0674-30 ",.02)
 ;;21695-0674-30
 ;;9002226.02101,"1813,21695-0675-30 ",.01)
 ;;21695-0675-30
 ;;9002226.02101,"1813,21695-0675-30 ",.02)
 ;;21695-0675-30
 ;;9002226.02101,"1813,21695-0677-30 ",.01)
 ;;21695-0677-30
 ;;9002226.02101,"1813,21695-0677-30 ",.02)
 ;;21695-0677-30
 ;;9002226.02101,"1813,21695-0801-30 ",.01)
 ;;21695-0801-30
 ;;9002226.02101,"1813,21695-0801-30 ",.02)
 ;;21695-0801-30
 ;;9002226.02101,"1813,21695-0939-30 ",.01)
 ;;21695-0939-30
 ;;9002226.02101,"1813,21695-0939-30 ",.02)
 ;;21695-0939-30
 ;;9002226.02101,"1813,21695-0940-30 ",.01)
 ;;21695-0940-30
 ;;9002226.02101,"1813,21695-0940-30 ",.02)
 ;;21695-0940-30
 ;;9002226.02101,"1813,23490-6478-01 ",.01)
 ;;23490-6478-01
 ;;9002226.02101,"1813,23490-6478-01 ",.02)
 ;;23490-6478-01
 ;;9002226.02101,"1813,23490-6478-02 ",.01)
 ;;23490-6478-02
 ;;9002226.02101,"1813,23490-6478-02 ",.02)
 ;;23490-6478-02
 ;;9002226.02101,"1813,23490-6478-03 ",.01)
 ;;23490-6478-03
 ;;9002226.02101,"1813,23490-6478-03 ",.02)
 ;;23490-6478-03
 ;;9002226.02101,"1813,23490-6480-01 ",.01)
 ;;23490-6480-01
 ;;9002226.02101,"1813,23490-6480-01 ",.02)
 ;;23490-6480-01
 ;;9002226.02101,"1813,23490-6480-02 ",.01)
 ;;23490-6480-02
 ;;9002226.02101,"1813,23490-6480-02 ",.02)
 ;;23490-6480-02
 ;;9002226.02101,"1813,23490-6480-03 ",.01)
 ;;23490-6480-03
 ;;9002226.02101,"1813,23490-6480-03 ",.02)
 ;;23490-6480-03
 ;;9002226.02101,"1813,23490-6481-01 ",.01)
 ;;23490-6481-01
 ;;9002226.02101,"1813,23490-6481-01 ",.02)
 ;;23490-6481-01
 ;;9002226.02101,"1813,23490-6481-02 ",.01)
 ;;23490-6481-02
 ;;9002226.02101,"1813,23490-6481-02 ",.02)
 ;;23490-6481-02
 ;;9002226.02101,"1813,23490-6481-03 ",.01)
 ;;23490-6481-03
 ;;9002226.02101,"1813,23490-6481-03 ",.02)
 ;;23490-6481-03
 ;;9002226.02101,"1813,23490-6482-01 ",.01)
 ;;23490-6482-01
 ;;9002226.02101,"1813,23490-6482-01 ",.02)
 ;;23490-6482-01
 ;;9002226.02101,"1813,23490-6482-02 ",.01)
 ;;23490-6482-02
 ;;9002226.02101,"1813,23490-6482-02 ",.02)
 ;;23490-6482-02
 ;;9002226.02101,"1813,23490-6482-03 ",.01)
 ;;23490-6482-03
 ;;9002226.02101,"1813,23490-6482-03 ",.02)
 ;;23490-6482-03
 ;;9002226.02101,"1813,23490-6483-01 ",.01)
 ;;23490-6483-01
 ;;9002226.02101,"1813,23490-6483-01 ",.02)
 ;;23490-6483-01
 ;;9002226.02101,"1813,23490-6483-02 ",.01)
 ;;23490-6483-02
 ;;9002226.02101,"1813,23490-6483-02 ",.02)
 ;;23490-6483-02
 ;;9002226.02101,"1813,23490-6483-03 ",.01)
 ;;23490-6483-03
 ;;9002226.02101,"1813,23490-6483-03 ",.02)
 ;;23490-6483-03
 ;;9002226.02101,"1813,23490-6484-01 ",.01)
 ;;23490-6484-01
 ;;9002226.02101,"1813,23490-6484-01 ",.02)
 ;;23490-6484-01
 ;;9002226.02101,"1813,23490-6484-02 ",.01)
 ;;23490-6484-02
 ;;9002226.02101,"1813,23490-6484-02 ",.02)
 ;;23490-6484-02
 ;;9002226.02101,"1813,23490-6484-03 ",.01)
 ;;23490-6484-03
 ;;9002226.02101,"1813,23490-6484-03 ",.02)
 ;;23490-6484-03
 ;;9002226.02101,"1813,24200-0661-10 ",.01)
 ;;24200-0661-10
 ;;9002226.02101,"1813,24200-0661-10 ",.02)
 ;;24200-0661-10
 ;;9002226.02101,"1813,24200-0662-48 ",.01)
 ;;24200-0662-48
 ;;9002226.02101,"1813,24200-0662-48 ",.02)
 ;;24200-0662-48
 ;;9002226.02101,"1813,24200-1660-10 ",.01)
 ;;24200-1660-10
 ;;9002226.02101,"1813,24200-1660-10 ",.02)
 ;;24200-1660-10
 ;;9002226.02101,"1813,25021-0400-01 ",.01)
 ;;25021-0400-01
 ;;9002226.02101,"1813,25021-0400-01 ",.02)
 ;;25021-0400-01
 ;;9002226.02101,"1813,25021-0400-10 ",.01)
 ;;25021-0400-10
 ;;9002226.02101,"1813,25021-0400-10 ",.02)
 ;;25021-0400-10
 ;;9002226.02101,"1813,25021-0400-30 ",.01)
 ;;25021-0400-30
 ;;9002226.02101,"1813,25021-0400-30 ",.02)
 ;;25021-0400-30
 ;;9002226.02101,"1813,25021-0401-02 ",.01)
 ;;25021-0401-02
 ;;9002226.02101,"1813,25021-0401-02 ",.02)
 ;;25021-0401-02
 ;;9002226.02101,"1813,25021-0402-01 ",.01)
 ;;25021-0402-01
 ;;9002226.02101,"1813,25021-0402-01 ",.02)
 ;;25021-0402-01
 ;;9002226.02101,"1813,25021-0402-10 ",.01)
 ;;25021-0402-10
 ;;9002226.02101,"1813,25021-0402-10 ",.02)
 ;;25021-0402-10
 ;;9002226.02101,"1813,25021-0403-01 ",.01)
 ;;25021-0403-01
 ;;9002226.02101,"1813,25021-0403-01 ",.02)
 ;;25021-0403-01
 ;;9002226.02101,"1813,25021-0403-04 ",.01)
 ;;25021-0403-04
 ;;9002226.02101,"1813,25021-0403-04 ",.02)
 ;;25021-0403-04
 ;;9002226.02101,"1813,25021-0404-01 ",.01)
 ;;25021-0404-01
 ;;9002226.02101,"1813,25021-0404-01 ",.02)
 ;;25021-0404-01
 ;;9002226.02101,"1813,31722-0327-01 ",.01)
 ;;31722-0327-01
 ;;9002226.02101,"1813,31722-0327-01 ",.02)
 ;;31722-0327-01
 ;;9002226.02101,"1813,31722-0327-10 ",.01)
 ;;31722-0327-10
 ;;9002226.02101,"1813,31722-0327-10 ",.02)
 ;;31722-0327-10
 ;;9002226.02101,"1813,31722-0328-01 ",.01)
 ;;31722-0328-01
 ;;9002226.02101,"1813,31722-0328-01 ",.02)
 ;;31722-0328-01
 ;;9002226.02101,"1813,31722-0328-10 ",.01)
 ;;31722-0328-10
 ;;9002226.02101,"1813,31722-0328-10 ",.02)
 ;;31722-0328-10
 ;;9002226.02101,"1813,31722-0329-01 ",.01)
 ;;31722-0329-01
 ;;9002226.02101,"1813,31722-0329-01 ",.02)
 ;;31722-0329-01
 ;;9002226.02101,"1813,31722-0329-10 ",.01)
 ;;31722-0329-10
 ;;9002226.02101,"1813,31722-0329-10 ",.02)
 ;;31722-0329-10
 ;;9002226.02101,"1813,31722-0330-01 ",.01)
 ;;31722-0330-01
 ;;9002226.02101,"1813,31722-0330-01 ",.02)
 ;;31722-0330-01
 ;;9002226.02101,"1813,31722-0330-10 ",.01)
 ;;31722-0330-10
 ;;9002226.02101,"1813,31722-0330-10 ",.02)
 ;;31722-0330-10
 ;;9002226.02101,"1813,31722-0331-01 ",.01)
 ;;31722-0331-01
 ;;9002226.02101,"1813,31722-0331-01 ",.02)
 ;;31722-0331-01
 ;;9002226.02101,"1813,31722-0331-10 ",.01)
 ;;31722-0331-10
 ;;9002226.02101,"1813,31722-0331-10 ",.02)
 ;;31722-0331-10
 ;;9002226.02101,"1813,31722-0332-01 ",.01)
 ;;31722-0332-01
 ;;9002226.02101,"1813,31722-0332-01 ",.02)
 ;;31722-0332-01
 ;;9002226.02101,"1813,31722-0332-10 ",.01)
 ;;31722-0332-10
 ;;9002226.02101,"1813,31722-0332-10 ",.02)
 ;;31722-0332-10
 ;;9002226.02101,"1813,31722-0333-01 ",.01)
 ;;31722-0333-01
 ;;9002226.02101,"1813,31722-0333-01 ",.02)
 ;;31722-0333-01
 ;;9002226.02101,"1813,31722-0334-01 ",.01)
 ;;31722-0334-01
 ;;9002226.02101,"1813,31722-0334-01 ",.02)
 ;;31722-0334-01
 ;;9002226.02101,"1813,31722-0335-01 ",.01)
 ;;31722-0335-01
 ;;9002226.02101,"1813,31722-0335-01 ",.02)
 ;;31722-0335-01
 ;;9002226.02101,"1813,33261-0357-07 ",.01)
 ;;33261-0357-07
 ;;9002226.02101,"1813,33261-0357-07 ",.02)
 ;;33261-0357-07
 ;;9002226.02101,"1813,33261-0357-14 ",.01)
 ;;33261-0357-14
 ;;9002226.02101,"1813,33261-0357-14 ",.02)
 ;;33261-0357-14
 ;;9002226.02101,"1813,33261-0357-20 ",.01)
 ;;33261-0357-20
 ;;9002226.02101,"1813,33261-0357-20 ",.02)
 ;;33261-0357-20
 ;;9002226.02101,"1813,33261-0357-21 ",.01)
 ;;33261-0357-21
 ;;9002226.02101,"1813,33261-0357-21 ",.02)
 ;;33261-0357-21
 ;;9002226.02101,"1813,33261-0357-28 ",.01)
 ;;33261-0357-28
 ;;9002226.02101,"1813,33261-0357-28 ",.02)
 ;;33261-0357-28
 ;;9002226.02101,"1813,33261-0357-30 ",.01)
 ;;33261-0357-30
 ;;9002226.02101,"1813,33261-0357-30 ",.02)
 ;;33261-0357-30
 ;;9002226.02101,"1813,33261-0357-60 ",.01)
 ;;33261-0357-60
 ;;9002226.02101,"1813,33261-0357-60 ",.02)
 ;;33261-0357-60
 ;;9002226.02101,"1813,33261-0357-90 ",.01)
 ;;33261-0357-90
 ;;9002226.02101,"1813,33261-0357-90 ",.02)
 ;;33261-0357-90
 ;;9002226.02101,"1813,33261-0990-00 ",.01)
 ;;33261-0990-00
 ;;9002226.02101,"1813,33261-0990-00 ",.02)
 ;;33261-0990-00