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

BGP47J34.m

Go to the documentation of this file.
BGP47J34 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 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,"618,64980-0504-48 ",.02)
 ;;64980-0504-48
 ;;9002226.02101,"618,65162-0012-10 ",.01)
 ;;65162-0012-10
 ;;9002226.02101,"618,65162-0012-10 ",.02)
 ;;65162-0012-10
 ;;9002226.02101,"618,65162-0012-11 ",.01)
 ;;65162-0012-11
 ;;9002226.02101,"618,65162-0012-11 ",.02)
 ;;65162-0012-11
 ;;9002226.02101,"618,65162-0016-10 ",.01)
 ;;65162-0016-10
 ;;9002226.02101,"618,65162-0016-10 ",.02)
 ;;65162-0016-10
 ;;9002226.02101,"618,65162-0016-11 ",.01)
 ;;65162-0016-11
 ;;9002226.02101,"618,65162-0016-11 ",.02)
 ;;65162-0016-11
 ;;9002226.02101,"618,65162-0521-10 ",.01)
 ;;65162-0521-10
 ;;9002226.02101,"618,65162-0521-10 ",.02)
 ;;65162-0521-10
 ;;9002226.02101,"618,65162-0521-11 ",.01)
 ;;65162-0521-11
 ;;9002226.02101,"618,65162-0521-11 ",.02)
 ;;65162-0521-11
 ;;9002226.02101,"618,65162-0522-10 ",.01)
 ;;65162-0522-10
 ;;9002226.02101,"618,65162-0522-10 ",.02)
 ;;65162-0522-10
 ;;9002226.02101,"618,65162-0662-86 ",.01)
 ;;65162-0662-86
 ;;9002226.02101,"618,65162-0662-86 ",.02)
 ;;65162-0662-86
 ;;9002226.02101,"618,65162-0662-90 ",.01)
 ;;65162-0662-90
 ;;9002226.02101,"618,65162-0662-90 ",.02)
 ;;65162-0662-90
 ;;9002226.02101,"618,65162-0745-10 ",.01)
 ;;65162-0745-10
 ;;9002226.02101,"618,65162-0745-10 ",.02)
 ;;65162-0745-10
 ;;9002226.02101,"618,65162-0756-86 ",.01)
 ;;65162-0756-86
 ;;9002226.02101,"618,65162-0756-86 ",.02)
 ;;65162-0756-86
 ;;9002226.02101,"618,65162-0756-90 ",.01)
 ;;65162-0756-90
 ;;9002226.02101,"618,65162-0756-90 ",.02)
 ;;65162-0756-90
 ;;9002226.02101,"618,65224-0123-16 ",.01)
 ;;65224-0123-16
 ;;9002226.02101,"618,65224-0123-16 ",.02)
 ;;65224-0123-16
 ;;9002226.02101,"618,65224-0148-16 ",.01)
 ;;65224-0148-16
 ;;9002226.02101,"618,65224-0148-16 ",.02)
 ;;65224-0148-16
 ;;9002226.02101,"618,65224-0150-16 ",.01)
 ;;65224-0150-16
 ;;9002226.02101,"618,65224-0150-16 ",.02)
 ;;65224-0150-16
 ;;9002226.02101,"618,65224-0175-16 ",.01)
 ;;65224-0175-16
 ;;9002226.02101,"618,65224-0175-16 ",.02)
 ;;65224-0175-16
 ;;9002226.02101,"618,65224-0225-16 ",.01)
 ;;65224-0225-16
 ;;9002226.02101,"618,65224-0225-16 ",.02)
 ;;65224-0225-16
 ;;9002226.02101,"618,65224-0293-16 ",.01)
 ;;65224-0293-16
 ;;9002226.02101,"618,65224-0293-16 ",.02)
 ;;65224-0293-16
 ;;9002226.02101,"618,65224-0295-16 ",.01)
 ;;65224-0295-16
 ;;9002226.02101,"618,65224-0295-16 ",.02)
 ;;65224-0295-16
 ;;9002226.02101,"618,65224-0300-16 ",.01)
 ;;65224-0300-16
 ;;9002226.02101,"618,65224-0300-16 ",.02)
 ;;65224-0300-16
 ;;9002226.02101,"618,65224-0321-16 ",.01)
 ;;65224-0321-16
 ;;9002226.02101,"618,65224-0321-16 ",.02)
 ;;65224-0321-16
 ;;9002226.02101,"618,65224-0443-16 ",.01)
 ;;65224-0443-16
 ;;9002226.02101,"618,65224-0443-16 ",.02)
 ;;65224-0443-16
 ;;9002226.02101,"618,65224-0445-16 ",.01)
 ;;65224-0445-16
 ;;9002226.02101,"618,65224-0445-16 ",.02)
 ;;65224-0445-16
 ;;9002226.02101,"618,65224-0450-16 ",.01)
 ;;65224-0450-16
 ;;9002226.02101,"618,65224-0450-16 ",.02)
 ;;65224-0450-16
 ;;9002226.02101,"618,65224-0457-16 ",.01)
 ;;65224-0457-16
 ;;9002226.02101,"618,65224-0457-16 ",.02)
 ;;65224-0457-16
 ;;9002226.02101,"618,65224-0501-16 ",.01)
 ;;65224-0501-16
 ;;9002226.02101,"618,65224-0501-16 ",.02)
 ;;65224-0501-16
 ;;9002226.02101,"618,65224-0503-16 ",.01)
 ;;65224-0503-16
 ;;9002226.02101,"618,65224-0503-16 ",.02)
 ;;65224-0503-16
 ;;9002226.02101,"618,65224-0537-30 ",.01)
 ;;65224-0537-30
 ;;9002226.02101,"618,65224-0537-30 ",.02)
 ;;65224-0537-30
 ;;9002226.02101,"618,65224-0539-30 ",.01)
 ;;65224-0539-30
 ;;9002226.02101,"618,65224-0539-30 ",.02)
 ;;65224-0539-30
 ;;9002226.02101,"618,65224-0540-01 ",.01)
 ;;65224-0540-01
 ;;9002226.02101,"618,65224-0540-01 ",.02)
 ;;65224-0540-01
 ;;9002226.02101,"618,65224-0545-01 ",.01)
 ;;65224-0545-01
 ;;9002226.02101,"618,65224-0545-01 ",.02)
 ;;65224-0545-01
 ;;9002226.02101,"618,65224-0750-01 ",.01)
 ;;65224-0750-01
 ;;9002226.02101,"618,65224-0750-01 ",.02)
 ;;65224-0750-01
 ;;9002226.02101,"618,65581-0020-45 ",.01)
 ;;65581-0020-45
 ;;9002226.02101,"618,65581-0020-45 ",.02)
 ;;65581-0020-45
 ;;9002226.02101,"618,66116-0230-30 ",.01)
 ;;66116-0230-30
 ;;9002226.02101,"618,66116-0230-30 ",.02)
 ;;66116-0230-30
 ;;9002226.02101,"618,66116-0284-12 ",.01)
 ;;66116-0284-12
 ;;9002226.02101,"618,66116-0284-12 ",.02)
 ;;66116-0284-12
 ;;9002226.02101,"618,66116-0488-30 ",.01)
 ;;66116-0488-30
 ;;9002226.02101,"618,66116-0488-30 ",.02)
 ;;66116-0488-30
 ;;9002226.02101,"618,66116-0618-18 ",.01)
 ;;66116-0618-18
 ;;9002226.02101,"618,66116-0618-18 ",.02)
 ;;66116-0618-18
 ;;9002226.02101,"618,66116-0651-30 ",.01)
 ;;66116-0651-30
 ;;9002226.02101,"618,66116-0651-30 ",.02)
 ;;66116-0651-30
 ;;9002226.02101,"618,66239-0157-16 ",.01)
 ;;66239-0157-16
 ;;9002226.02101,"618,66239-0157-16 ",.02)
 ;;66239-0157-16
 ;;9002226.02101,"618,66239-0192-16 ",.01)
 ;;66239-0192-16
 ;;9002226.02101,"618,66239-0192-16 ",.02)
 ;;66239-0192-16
 ;;9002226.02101,"618,66239-0195-04 ",.01)
 ;;66239-0195-04
 ;;9002226.02101,"618,66239-0195-04 ",.02)
 ;;66239-0195-04
 ;;9002226.02101,"618,66239-0195-16 ",.01)
 ;;66239-0195-16
 ;;9002226.02101,"618,66239-0195-16 ",.02)
 ;;66239-0195-16
 ;;9002226.02101,"618,66239-0202-16 ",.01)
 ;;66239-0202-16
 ;;9002226.02101,"618,66239-0202-16 ",.02)
 ;;66239-0202-16
 ;;9002226.02101,"618,66239-0208-16 ",.01)
 ;;66239-0208-16
 ;;9002226.02101,"618,66239-0208-16 ",.02)
 ;;66239-0208-16
 ;;9002226.02101,"618,66239-0242-30 ",.01)
 ;;66239-0242-30
 ;;9002226.02101,"618,66239-0242-30 ",.02)
 ;;66239-0242-30
 ;;9002226.02101,"618,66239-0245-30 ",.01)
 ;;66239-0245-30
 ;;9002226.02101,"618,66239-0245-30 ",.02)
 ;;66239-0245-30
 ;;9002226.02101,"618,66239-0264-16 ",.01)
 ;;66239-0264-16
 ;;9002226.02101,"618,66239-0264-16 ",.02)
 ;;66239-0264-16
 ;;9002226.02101,"618,66239-0288-16 ",.01)
 ;;66239-0288-16
 ;;9002226.02101,"618,66239-0288-16 ",.02)
 ;;66239-0288-16
 ;;9002226.02101,"618,66267-0080-20 ",.01)
 ;;66267-0080-20
 ;;9002226.02101,"618,66267-0080-20 ",.02)
 ;;66267-0080-20
 ;;9002226.02101,"618,66267-0081-20 ",.01)
 ;;66267-0081-20
 ;;9002226.02101,"618,66267-0081-20 ",.02)
 ;;66267-0081-20
 ;;9002226.02101,"618,66267-0081-30 ",.01)
 ;;66267-0081-30
 ;;9002226.02101,"618,66267-0081-30 ",.02)
 ;;66267-0081-30
 ;;9002226.02101,"618,66267-0081-60 ",.01)
 ;;66267-0081-60
 ;;9002226.02101,"618,66267-0081-60 ",.02)
 ;;66267-0081-60
 ;;9002226.02101,"618,66267-0112-15 ",.01)
 ;;66267-0112-15
 ;;9002226.02101,"618,66267-0112-15 ",.02)
 ;;66267-0112-15
 ;;9002226.02101,"618,66267-0112-30 ",.01)
 ;;66267-0112-30
 ;;9002226.02101,"618,66267-0112-30 ",.02)
 ;;66267-0112-30
 ;;9002226.02101,"618,66267-0112-40 ",.01)
 ;;66267-0112-40
 ;;9002226.02101,"618,66267-0112-40 ",.02)
 ;;66267-0112-40
 ;;9002226.02101,"618,66267-0112-60 ",.01)
 ;;66267-0112-60
 ;;9002226.02101,"618,66267-0112-60 ",.02)
 ;;66267-0112-60
 ;;9002226.02101,"618,66267-0113-15 ",.01)
 ;;66267-0113-15
 ;;9002226.02101,"618,66267-0113-15 ",.02)
 ;;66267-0113-15
 ;;9002226.02101,"618,66267-0113-20 ",.01)
 ;;66267-0113-20
 ;;9002226.02101,"618,66267-0113-20 ",.02)
 ;;66267-0113-20
 ;;9002226.02101,"618,66267-0113-30 ",.01)
 ;;66267-0113-30
 ;;9002226.02101,"618,66267-0113-30 ",.02)
 ;;66267-0113-30
 ;;9002226.02101,"618,66267-0114-20 ",.01)
 ;;66267-0114-20
 ;;9002226.02101,"618,66267-0114-20 ",.02)
 ;;66267-0114-20
 ;;9002226.02101,"618,66267-0114-30 ",.01)
 ;;66267-0114-30
 ;;9002226.02101,"618,66267-0114-30 ",.02)
 ;;66267-0114-30
 ;;9002226.02101,"618,66267-0164-04 ",.01)
 ;;66267-0164-04
 ;;9002226.02101,"618,66267-0164-04 ",.02)
 ;;66267-0164-04
 ;;9002226.02101,"618,66267-0177-10 ",.01)
 ;;66267-0177-10
 ;;9002226.02101,"618,66267-0177-10 ",.02)
 ;;66267-0177-10
 ;;9002226.02101,"618,66267-0177-15 ",.01)
 ;;66267-0177-15
 ;;9002226.02101,"618,66267-0177-15 ",.02)
 ;;66267-0177-15
 ;;9002226.02101,"618,66267-0177-20 ",.01)
 ;;66267-0177-20
 ;;9002226.02101,"618,66267-0177-20 ",.02)
 ;;66267-0177-20
 ;;9002226.02101,"618,66267-0177-30 ",.01)
 ;;66267-0177-30
 ;;9002226.02101,"618,66267-0177-30 ",.02)
 ;;66267-0177-30
 ;;9002226.02101,"618,66267-0177-60 ",.01)
 ;;66267-0177-60
 ;;9002226.02101,"618,66267-0177-60 ",.02)
 ;;66267-0177-60
 ;;9002226.02101,"618,66267-0177-90 ",.01)
 ;;66267-0177-90
 ;;9002226.02101,"618,66267-0177-90 ",.02)
 ;;66267-0177-90
 ;;9002226.02101,"618,66267-0184-06 ",.01)
 ;;66267-0184-06
 ;;9002226.02101,"618,66267-0184-06 ",.02)
 ;;66267-0184-06
 ;;9002226.02101,"618,66267-0184-20 ",.01)
 ;;66267-0184-20
 ;;9002226.02101,"618,66267-0184-20 ",.02)
 ;;66267-0184-20
 ;;9002226.02101,"618,66267-0813-06 ",.01)
 ;;66267-0813-06
 ;;9002226.02101,"618,66267-0813-06 ",.02)
 ;;66267-0813-06
 ;;9002226.02101,"618,66336-0045-06 ",.01)
 ;;66336-0045-06
 ;;9002226.02101,"618,66336-0045-06 ",.02)
 ;;66336-0045-06
 ;;9002226.02101,"618,66336-0045-15 ",.01)
 ;;66336-0045-15
 ;;9002226.02101,"618,66336-0045-15 ",.02)
 ;;66336-0045-15
 ;;9002226.02101,"618,66336-0045-30 ",.01)
 ;;66336-0045-30
 ;;9002226.02101,"618,66336-0045-30 ",.02)
 ;;66336-0045-30
 ;;9002226.02101,"618,66336-0045-60 ",.01)
 ;;66336-0045-60
 ;;9002226.02101,"618,66336-0045-60 ",.02)
 ;;66336-0045-60
 ;;9002226.02101,"618,66336-0085-06 ",.01)
 ;;66336-0085-06
 ;;9002226.02101,"618,66336-0085-06 ",.02)
 ;;66336-0085-06
 ;;9002226.02101,"618,66336-0085-10 ",.01)
 ;;66336-0085-10
 ;;9002226.02101,"618,66336-0085-10 ",.02)
 ;;66336-0085-10
 ;;9002226.02101,"618,66336-0085-12 ",.01)
 ;;66336-0085-12
 ;;9002226.02101,"618,66336-0085-12 ",.02)
 ;;66336-0085-12
 ;;9002226.02101,"618,66336-0085-20 ",.01)
 ;;66336-0085-20
 ;;9002226.02101,"618,66336-0085-20 ",.02)
 ;;66336-0085-20
 ;;9002226.02101,"618,66336-0085-25 ",.01)
 ;;66336-0085-25
 ;;9002226.02101,"618,66336-0085-25 ",.02)
 ;;66336-0085-25
 ;;9002226.02101,"618,66336-0085-30 ",.01)
 ;;66336-0085-30
 ;;9002226.02101,"618,66336-0085-30 ",.02)
 ;;66336-0085-30
 ;;9002226.02101,"618,66336-0085-60 ",.01)
 ;;66336-0085-60
 ;;9002226.02101,"618,66336-0085-60 ",.02)
 ;;66336-0085-60
 ;;9002226.02101,"618,66336-0085-90 ",.01)
 ;;66336-0085-90
 ;;9002226.02101,"618,66336-0085-90 ",.02)
 ;;66336-0085-90
 ;;9002226.02101,"618,66336-0085-94 ",.01)
 ;;66336-0085-94
 ;;9002226.02101,"618,66336-0085-94 ",.02)
 ;;66336-0085-94
 ;;9002226.02101,"618,66336-0086-06 ",.01)
 ;;66336-0086-06
 ;;9002226.02101,"618,66336-0086-06 ",.02)
 ;;66336-0086-06
 ;;9002226.02101,"618,66336-0086-15 ",.01)
 ;;66336-0086-15
 ;;9002226.02101,"618,66336-0086-15 ",.02)
 ;;66336-0086-15
 ;;9002226.02101,"618,66336-0086-20 ",.01)
 ;;66336-0086-20
 ;;9002226.02101,"618,66336-0086-20 ",.02)
 ;;66336-0086-20
 ;;9002226.02101,"618,66336-0086-30 ",.01)
 ;;66336-0086-30
 ;;9002226.02101,"618,66336-0086-30 ",.02)
 ;;66336-0086-30
 ;;9002226.02101,"618,66336-0086-60 ",.01)
 ;;66336-0086-60
 ;;9002226.02101,"618,66336-0086-60 ",.02)
 ;;66336-0086-60
 ;;9002226.02101,"618,66336-0208-14 ",.01)
 ;;66336-0208-14
 ;;9002226.02101,"618,66336-0208-14 ",.02)
 ;;66336-0208-14
 ;;9002226.02101,"618,66336-0208-20 ",.01)
 ;;66336-0208-20
 ;;9002226.02101,"618,66336-0208-20 ",.02)
 ;;66336-0208-20
 ;;9002226.02101,"618,66336-0208-30 ",.01)
 ;;66336-0208-30
 ;;9002226.02101,"618,66336-0208-30 ",.02)
 ;;66336-0208-30
 ;;9002226.02101,"618,66336-0208-90 ",.01)
 ;;66336-0208-90
 ;;9002226.02101,"618,66336-0208-90 ",.02)
 ;;66336-0208-90
 ;;9002226.02101,"618,66336-0416-30 ",.01)
 ;;66336-0416-30
 ;;9002226.02101,"618,66336-0416-30 ",.02)
 ;;66336-0416-30
 ;;9002226.02101,"618,66336-0416-99 ",.01)
 ;;66336-0416-99
 ;;9002226.02101,"618,66336-0416-99 ",.02)
 ;;66336-0416-99
 ;;9002226.02101,"618,66336-0696-06 ",.01)
 ;;66336-0696-06
 ;;9002226.02101,"618,66336-0696-06 ",.02)
 ;;66336-0696-06
 ;;9002226.02101,"618,66336-0699-30 ",.01)
 ;;66336-0699-30
 ;;9002226.02101,"618,66336-0699-30 ",.02)
 ;;66336-0699-30
 ;;9002226.02101,"618,66336-0776-30 ",.01)
 ;;66336-0776-30
 ;;9002226.02101,"618,66336-0776-30 ",.02)
 ;;66336-0776-30
 ;;9002226.02101,"618,66336-0776-60 ",.01)
 ;;66336-0776-60
 ;;9002226.02101,"618,66336-0776-60 ",.02)
 ;;66336-0776-60
 ;;9002226.02101,"618,66336-0795-15 ",.01)
 ;;66336-0795-15
 ;;9002226.02101,"618,66336-0795-15 ",.02)
 ;;66336-0795-15
 ;;9002226.02101,"618,66336-0796-30 ",.01)
 ;;66336-0796-30
 ;;9002226.02101,"618,66336-0796-30 ",.02)
 ;;66336-0796-30
 ;;9002226.02101,"618,66336-0797-20 ",.01)
 ;;66336-0797-20
 ;;9002226.02101,"618,66336-0797-20 ",.02)
 ;;66336-0797-20
 ;;9002226.02101,"618,66336-0797-60 ",.01)
 ;;66336-0797-60
 ;;9002226.02101,"618,66336-0797-60 ",.02)
 ;;66336-0797-60
 ;;9002226.02101,"618,66346-0091-30 ",.01)
 ;;66346-0091-30
 ;;9002226.02101,"618,66346-0091-30 ",.02)
 ;;66346-0091-30
 ;;9002226.02101,"618,66346-0161-30 ",.01)
 ;;66346-0161-30
 ;;9002226.02101,"618,66346-0161-30 ",.02)
 ;;66346-0161-30
 ;;9002226.02101,"618,66440-0082-51 ",.01)
 ;;66440-0082-51
 ;;9002226.02101,"618,66440-0082-51 ",.02)
 ;;66440-0082-51
 ;;9002226.02101,"618,66440-0110-02 ",.01)
 ;;66440-0110-02
 ;;9002226.02101,"618,66440-0110-02 ",.02)
 ;;66440-0110-02
 ;;9002226.02101,"618,66440-0110-03 ",.01)
 ;;66440-0110-03
 ;;9002226.02101,"618,66440-0110-03 ",.02)
 ;;66440-0110-03
 ;;9002226.02101,"618,66758-0601-19 ",.01)
 ;;66758-0601-19
 ;;9002226.02101,"618,66758-0601-19 ",.02)
 ;;66758-0601-19
 ;;9002226.02101,"618,66813-0271-01 ",.01)
 ;;66813-0271-01
 ;;9002226.02101,"618,66813-0271-01 ",.02)
 ;;66813-0271-01
 ;;9002226.02101,"618,66813-0272-04 ",.01)
 ;;66813-0272-04