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

BGP31L31.m

Go to the documentation of this file.
BGP31L31 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
 ;
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,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-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-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-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-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
 ;;9002226.02101,"618,66813-0272-04 ",.02)
 ;;66813-0272-04
 ;;9002226.02101,"618,66813-0273-60 ",.01)
 ;;66813-0273-60
 ;;9002226.02101,"618,66813-0273-60 ",.02)
 ;;66813-0273-60
 ;;9002226.02101,"618,66813-0274-16 ",.01)
 ;;66813-0274-16
 ;;9002226.02101,"618,66813-0274-16 ",.02)
 ;;66813-0274-16
 ;;9002226.02101,"618,66860-0098-03 ",.01)
 ;;66860-0098-03
 ;;9002226.02101,"618,66860-0098-03 ",.02)
 ;;66860-0098-03
 ;;9002226.02101,"618,66860-0099-03 ",.01)
 ;;66860-0099-03
 ;;9002226.02101,"618,66860-0099-03 ",.02)
 ;;66860-0099-03
 ;;9002226.02101,"618,66869-0116-10 ",.01)
 ;;66869-0116-10
 ;;9002226.02101,"618,66869-0116-10 ",.02)
 ;;66869-0116-10
 ;;9002226.02101,"618,66869-0201-10 ",.01)
 ;;66869-0201-10
 ;;9002226.02101,"618,66869-0201-10 ",.02)
 ;;66869-0201-10
 ;;9002226.02101,"618,66869-0307-10 ",.01)
 ;;66869-0307-10
 ;;9002226.02101,"618,66869-0307-10 ",.02)
 ;;66869-0307-10
 ;;9002226.02101,"618,66869-0721-10 ",.01)
 ;;66869-0721-10
 ;;9002226.02101,"618,66869-0721-10 ",.02)
 ;;66869-0721-10
 ;;9002226.02101,"618,66870-0032-01 ",.01)
 ;;66870-0032-01
 ;;9002226.02101,"618,66870-0032-01 ",.02)
 ;;66870-0032-01
 ;;9002226.02101,"618,66992-0130-16 ",.01)
 ;;66992-0130-16
 ;;9002226.02101,"618,66992-0130-16 ",.02)
 ;;66992-0130-16
 ;;9002226.02101,"618,66992-0135-16 ",.01)
 ;;66992-0135-16
 ;;9002226.02101,"618,66992-0135-16 ",.02)
 ;;66992-0135-16
 ;;9002226.02101,"618,66992-0136-16 ",.01)
 ;;66992-0136-16
 ;;9002226.02101,"618,66992-0136-16 ",.02)
 ;;66992-0136-16
 ;;9002226.02101,"618,66992-0230-04 ",.01)
 ;;66992-0230-04
 ;;9002226.02101,"618,66992-0230-04 ",.02)
 ;;66992-0230-04
 ;;9002226.02101,"618,66992-0235-60 ",.01)
 ;;66992-0235-60
 ;;9002226.02101,"618,66992-0235-60 ",.02)
 ;;66992-0235-60
 ;;9002226.02101,"618,66993-0502-55 ",.01)
 ;;66993-0502-55
 ;;9002226.02101,"618,66993-0502-55 ",.02)
 ;;66993-0502-55
 ;;9002226.02101,"618,66993-0531-55 ",.01)
 ;;66993-0531-55
 ;;9002226.02101,"618,66993-0531-55 ",.02)
 ;;66993-0531-55
 ;;9002226.02101,"618,66993-0537-57 ",.01)
 ;;66993-0537-57
 ;;9002226.02101,"618,66993-0537-57 ",.02)
 ;;66993-0537-57
 ;;9002226.02101,"618,67000-0200-10 ",.01)
 ;;67000-0200-10
 ;;9002226.02101,"618,67000-0200-10 ",.02)
 ;;67000-0200-10
 ;;9002226.02101,"618,67000-0201-10 ",.01)
 ;;67000-0201-10
 ;;9002226.02101,"618,67000-0201-10 ",.02)
 ;;67000-0201-10
 ;;9002226.02101,"618,67204-0245-16 ",.01)
 ;;67204-0245-16
 ;;9002226.02101,"618,67204-0245-16 ",.02)
 ;;67204-0245-16
 ;;9002226.02101,"618,67204-0320-16 ",.01)
 ;;67204-0320-16
 ;;9002226.02101,"618,67204-0320-16 ",.02)
 ;;67204-0320-16
 ;;9002226.02101,"618,67204-0325-16 ",.01)
 ;;67204-0325-16
 ;;9002226.02101,"618,67204-0325-16 ",.02)
 ;;67204-0325-16
 ;;9002226.02101,"618,67204-0340-16 ",.01)
 ;;67204-0340-16
 ;;9002226.02101,"618,67204-0340-16 ",.02)
 ;;67204-0340-16
 ;;9002226.02101,"618,67204-0390-16 ",.01)
 ;;67204-0390-16
 ;;9002226.02101,"618,67204-0390-16 ",.02)
 ;;67204-0390-16
 ;;9002226.02101,"618,67336-0050-60 ",.01)
 ;;67336-0050-60
 ;;9002226.02101,"618,67336-0050-60 ",.02)
 ;;67336-0050-60
 ;;9002226.02101,"618,67336-0089-01 ",.01)
 ;;67336-0089-01
 ;;9002226.02101,"618,67336-0089-01 ",.02)
 ;;67336-0089-01
 ;;9002226.02101,"618,67336-0254-16 ",.01)
 ;;67336-0254-16
 ;;9002226.02101,"618,67336-0254-16 ",.02)
 ;;67336-0254-16
 ;;9002226.02101,"618,67336-0258-01 ",.01)
 ;;67336-0258-01
 ;;9002226.02101,"618,67336-0258-01 ",.02)
 ;;67336-0258-01
 ;;9002226.02101,"618,67336-0275-16 ",.01)
 ;;67336-0275-16
 ;;9002226.02101,"618,67336-0275-16 ",.02)
 ;;67336-0275-16
 ;;9002226.02101,"618,67336-0532-04 ",.01)
 ;;67336-0532-04
 ;;9002226.02101,"618,67336-0532-04 ",.02)
 ;;67336-0532-04
 ;;9002226.02101,"618,67336-0532-16 ",.01)
 ;;67336-0532-16
 ;;9002226.02101,"618,67336-0532-16 ",.02)
 ;;67336-0532-16
 ;;9002226.02101,"618,67336-0910-16 ",.01)
 ;;67336-0910-16
 ;;9002226.02101,"618,67336-0910-16 ",.02)
 ;;67336-0910-16
 ;;9002226.02101,"618,67405-0575-10 ",.01)
 ;;67405-0575-10
 ;;9002226.02101,"618,67405-0575-10 ",.02)
 ;;67405-0575-10