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

BGP45RC.m

Go to the documentation of this file.
BGP45RC ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 26, 2013;
 ;;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,"1109,51138-0495-20 ",.02)
 ;;51138-0495-20
 ;;9002226.02101,"1109,51138-0495-30 ",.01)
 ;;51138-0495-30
 ;;9002226.02101,"1109,51138-0495-30 ",.02)
 ;;51138-0495-30
 ;;9002226.02101,"1109,51138-0496-30 ",.01)
 ;;51138-0496-30
 ;;9002226.02101,"1109,51138-0496-30 ",.02)
 ;;51138-0496-30
 ;;9002226.02101,"1109,51138-0497-30 ",.01)
 ;;51138-0497-30
 ;;9002226.02101,"1109,51138-0497-30 ",.02)
 ;;51138-0497-30
 ;;9002226.02101,"1109,51138-0498-30 ",.01)
 ;;51138-0498-30
 ;;9002226.02101,"1109,51138-0498-30 ",.02)
 ;;51138-0498-30
 ;;9002226.02101,"1109,51138-0499-30 ",.01)
 ;;51138-0499-30
 ;;9002226.02101,"1109,51138-0499-30 ",.02)
 ;;51138-0499-30
 ;;9002226.02101,"1109,51138-0500-30 ",.01)
 ;;51138-0500-30
 ;;9002226.02101,"1109,51138-0500-30 ",.02)
 ;;51138-0500-30
 ;;9002226.02101,"1109,51138-0501-30 ",.01)
 ;;51138-0501-30
 ;;9002226.02101,"1109,51138-0501-30 ",.02)
 ;;51138-0501-30
 ;;9002226.02101,"1109,51991-0708-10 ",.01)
 ;;51991-0708-10
 ;;9002226.02101,"1109,51991-0708-10 ",.02)
 ;;51991-0708-10
 ;;9002226.02101,"1109,51991-0708-33 ",.01)
 ;;51991-0708-33
 ;;9002226.02101,"1109,51991-0708-33 ",.02)
 ;;51991-0708-33
 ;;9002226.02101,"1109,51991-0708-90 ",.01)
 ;;51991-0708-90
 ;;9002226.02101,"1109,51991-0708-90 ",.02)
 ;;51991-0708-90
 ;;9002226.02101,"1109,51991-0709-10 ",.01)
 ;;51991-0709-10
 ;;9002226.02101,"1109,51991-0709-10 ",.02)
 ;;51991-0709-10
 ;;9002226.02101,"1109,51991-0709-33 ",.01)
 ;;51991-0709-33
 ;;9002226.02101,"1109,51991-0709-33 ",.02)
 ;;51991-0709-33
 ;;9002226.02101,"1109,51991-0709-90 ",.01)
 ;;51991-0709-90
 ;;9002226.02101,"1109,51991-0709-90 ",.02)
 ;;51991-0709-90
 ;;9002226.02101,"1109,51991-0710-10 ",.01)
 ;;51991-0710-10
 ;;9002226.02101,"1109,51991-0710-10 ",.02)
 ;;51991-0710-10
 ;;9002226.02101,"1109,51991-0710-33 ",.01)
 ;;51991-0710-33
 ;;9002226.02101,"1109,51991-0710-33 ",.02)
 ;;51991-0710-33
 ;;9002226.02101,"1109,51991-0710-90 ",.01)
 ;;51991-0710-90
 ;;9002226.02101,"1109,51991-0710-90 ",.02)
 ;;51991-0710-90
 ;;9002226.02101,"1109,54569-4880-00 ",.01)
 ;;54569-4880-00
 ;;9002226.02101,"1109,54569-4880-00 ",.02)
 ;;54569-4880-00
 ;;9002226.02101,"1109,54569-4881-00 ",.01)
 ;;54569-4881-00
 ;;9002226.02101,"1109,54569-4881-00 ",.02)
 ;;54569-4881-00
 ;;9002226.02101,"1109,54569-4882-00 ",.01)
 ;;54569-4882-00
 ;;9002226.02101,"1109,54569-4882-00 ",.02)
 ;;54569-4882-00
 ;;9002226.02101,"1109,54569-6354-00 ",.01)
 ;;54569-6354-00
 ;;9002226.02101,"1109,54569-6354-00 ",.02)
 ;;54569-6354-00
 ;;9002226.02101,"1109,54569-6354-01 ",.01)
 ;;54569-6354-01
 ;;9002226.02101,"1109,54569-6354-01 ",.02)
 ;;54569-6354-01
 ;;9002226.02101,"1109,54569-6355-00 ",.01)
 ;;54569-6355-00
 ;;9002226.02101,"1109,54569-6355-00 ",.02)
 ;;54569-6355-00
 ;;9002226.02101,"1109,54569-6355-01 ",.01)
 ;;54569-6355-01
 ;;9002226.02101,"1109,54569-6355-01 ",.02)
 ;;54569-6355-01
 ;;9002226.02101,"1109,54569-6356-00 ",.01)
 ;;54569-6356-00
 ;;9002226.02101,"1109,54569-6356-00 ",.02)
 ;;54569-6356-00
 ;;9002226.02101,"1109,54569-6356-01 ",.01)
 ;;54569-6356-01
 ;;9002226.02101,"1109,54569-6356-01 ",.02)
 ;;54569-6356-01
 ;;9002226.02101,"1109,54868-4198-00 ",.01)
 ;;54868-4198-00
 ;;9002226.02101,"1109,54868-4198-00 ",.02)
 ;;54868-4198-00
 ;;9002226.02101,"1109,54868-4198-01 ",.01)
 ;;54868-4198-01
 ;;9002226.02101,"1109,54868-4198-01 ",.02)
 ;;54868-4198-01
 ;;9002226.02101,"1109,54868-4221-00 ",.01)
 ;;54868-4221-00
 ;;9002226.02101,"1109,54868-4221-00 ",.02)
 ;;54868-4221-00
 ;;9002226.02101,"1109,54868-4343-00 ",.01)
 ;;54868-4343-00
 ;;9002226.02101,"1109,54868-4343-00 ",.02)
 ;;54868-4343-00
 ;;9002226.02101,"1109,54868-4343-01 ",.01)
 ;;54868-4343-01
 ;;9002226.02101,"1109,54868-4343-01 ",.02)
 ;;54868-4343-01
 ;;9002226.02101,"1109,54868-4354-00 ",.01)
 ;;54868-4354-00
 ;;9002226.02101,"1109,54868-4354-00 ",.02)
 ;;54868-4354-00
 ;;9002226.02101,"1109,54868-4354-01 ",.01)
 ;;54868-4354-01
 ;;9002226.02101,"1109,54868-4354-01 ",.02)
 ;;54868-4354-01
 ;;9002226.02101,"1109,54868-4391-00 ",.01)
 ;;54868-4391-00
 ;;9002226.02101,"1109,54868-4391-00 ",.02)
 ;;54868-4391-00
 ;;9002226.02101,"1109,54868-4391-01 ",.01)
 ;;54868-4391-01
 ;;9002226.02101,"1109,54868-4391-01 ",.02)
 ;;54868-4391-01
 ;;9002226.02101,"1109,54868-4965-00 ",.01)
 ;;54868-4965-00
 ;;9002226.02101,"1109,54868-4965-00 ",.02)
 ;;54868-4965-00
 ;;9002226.02101,"1109,54868-4965-01 ",.01)
 ;;54868-4965-01
 ;;9002226.02101,"1109,54868-4965-01 ",.02)
 ;;54868-4965-01
 ;;9002226.02101,"1109,54868-4965-02 ",.01)
 ;;54868-4965-02
 ;;9002226.02101,"1109,54868-4965-02 ",.02)
 ;;54868-4965-02
 ;;9002226.02101,"1109,54868-5157-00 ",.01)
 ;;54868-5157-00
 ;;9002226.02101,"1109,54868-5157-00 ",.02)
 ;;54868-5157-00
 ;;9002226.02101,"1109,54868-5157-01 ",.01)
 ;;54868-5157-01
 ;;9002226.02101,"1109,54868-5157-01 ",.02)
 ;;54868-5157-01
 ;;9002226.02101,"1109,54868-5249-00 ",.01)
 ;;54868-5249-00
 ;;9002226.02101,"1109,54868-5249-00 ",.02)
 ;;54868-5249-00
 ;;9002226.02101,"1109,54868-5249-01 ",.01)
 ;;54868-5249-01
 ;;9002226.02101,"1109,54868-5249-01 ",.02)
 ;;54868-5249-01
 ;;9002226.02101,"1109,54868-5262-00 ",.01)
 ;;54868-5262-00
 ;;9002226.02101,"1109,54868-5262-00 ",.02)
 ;;54868-5262-00
 ;;9002226.02101,"1109,54868-5262-01 ",.01)
 ;;54868-5262-01
 ;;9002226.02101,"1109,54868-5262-01 ",.02)
 ;;54868-5262-01
 ;;9002226.02101,"1109,54868-5376-00 ",.01)
 ;;54868-5376-00
 ;;9002226.02101,"1109,54868-5376-00 ",.02)
 ;;54868-5376-00
 ;;9002226.02101,"1109,54868-5500-00 ",.01)
 ;;54868-5500-00
 ;;9002226.02101,"1109,54868-5500-00 ",.02)
 ;;54868-5500-00
 ;;9002226.02101,"1109,54868-5500-01 ",.01)
 ;;54868-5500-01
 ;;9002226.02101,"1109,54868-5500-01 ",.02)
 ;;54868-5500-01
 ;;9002226.02101,"1109,54868-5500-02 ",.01)
 ;;54868-5500-02
 ;;9002226.02101,"1109,54868-5500-02 ",.02)
 ;;54868-5500-02
 ;;9002226.02101,"1109,54868-5553-00 ",.01)
 ;;54868-5553-00
 ;;9002226.02101,"1109,54868-5553-00 ",.02)
 ;;54868-5553-00
 ;;9002226.02101,"1109,54868-5553-01 ",.01)
 ;;54868-5553-01
 ;;9002226.02101,"1109,54868-5553-01 ",.02)
 ;;54868-5553-01
 ;;9002226.02101,"1109,54868-5553-02 ",.01)
 ;;54868-5553-02
 ;;9002226.02101,"1109,54868-5553-02 ",.02)
 ;;54868-5553-02
 ;;9002226.02101,"1109,54868-5739-00 ",.01)
 ;;54868-5739-00
 ;;9002226.02101,"1109,54868-5739-00 ",.02)
 ;;54868-5739-00
 ;;9002226.02101,"1109,55048-0583-30 ",.01)
 ;;55048-0583-30
 ;;9002226.02101,"1109,55048-0583-30 ",.02)
 ;;55048-0583-30
 ;;9002226.02101,"1109,55048-0584-30 ",.01)
 ;;55048-0584-30
 ;;9002226.02101,"1109,55048-0584-30 ",.02)
 ;;55048-0584-30
 ;;9002226.02101,"1109,55048-0585-30 ",.01)
 ;;55048-0585-30
 ;;9002226.02101,"1109,55048-0585-30 ",.02)
 ;;55048-0585-30
 ;;9002226.02101,"1109,55048-0764-60 ",.01)
 ;;55048-0764-60
 ;;9002226.02101,"1109,55048-0764-60 ",.02)
 ;;55048-0764-60
 ;;9002226.02101,"1109,55048-0765-30 ",.01)
 ;;55048-0765-30
 ;;9002226.02101,"1109,55048-0765-30 ",.02)
 ;;55048-0765-30
 ;;9002226.02101,"1109,55048-0766-30 ",.01)
 ;;55048-0766-30
 ;;9002226.02101,"1109,55048-0766-30 ",.02)
 ;;55048-0766-30
 ;;9002226.02101,"1109,58016-0081-00 ",.01)
 ;;58016-0081-00
 ;;9002226.02101,"1109,58016-0081-00 ",.02)
 ;;58016-0081-00
 ;;9002226.02101,"1109,58016-0081-30 ",.01)
 ;;58016-0081-30
 ;;9002226.02101,"1109,58016-0081-30 ",.02)
 ;;58016-0081-30
 ;;9002226.02101,"1109,58016-0081-60 ",.01)
 ;;58016-0081-60
 ;;9002226.02101,"1109,58016-0081-60 ",.02)
 ;;58016-0081-60
 ;;9002226.02101,"1109,58016-0081-90 ",.01)
 ;;58016-0081-90
 ;;9002226.02101,"1109,58016-0081-90 ",.02)
 ;;58016-0081-90
 ;;9002226.02101,"1109,58016-0082-00 ",.01)
 ;;58016-0082-00
 ;;9002226.02101,"1109,58016-0082-00 ",.02)
 ;;58016-0082-00
 ;;9002226.02101,"1109,58016-0082-30 ",.01)
 ;;58016-0082-30
 ;;9002226.02101,"1109,58016-0082-30 ",.02)
 ;;58016-0082-30
 ;;9002226.02101,"1109,58016-0082-60 ",.01)
 ;;58016-0082-60
 ;;9002226.02101,"1109,58016-0082-60 ",.02)
 ;;58016-0082-60
 ;;9002226.02101,"1109,58016-0082-90 ",.01)
 ;;58016-0082-90
 ;;9002226.02101,"1109,58016-0082-90 ",.02)
 ;;58016-0082-90
 ;;9002226.02101,"1109,58864-0687-30 ",.01)
 ;;58864-0687-30
 ;;9002226.02101,"1109,58864-0687-30 ",.02)
 ;;58864-0687-30
 ;;9002226.02101,"1109,58864-0687-60 ",.01)
 ;;58864-0687-60
 ;;9002226.02101,"1109,58864-0687-60 ",.02)
 ;;58864-0687-60
 ;;9002226.02101,"1109,60429-0330-10 ",.01)
 ;;60429-0330-10
 ;;9002226.02101,"1109,60429-0330-10 ",.02)
 ;;60429-0330-10
 ;;9002226.02101,"1109,60429-0330-30 ",.01)
 ;;60429-0330-30
 ;;9002226.02101,"1109,60429-0330-30 ",.02)
 ;;60429-0330-30
 ;;9002226.02101,"1109,60429-0330-90 ",.01)
 ;;60429-0330-90
 ;;9002226.02101,"1109,60429-0330-90 ",.02)
 ;;60429-0330-90
 ;;9002226.02101,"1109,60429-0331-10 ",.01)
 ;;60429-0331-10
 ;;9002226.02101,"1109,60429-0331-10 ",.02)
 ;;60429-0331-10
 ;;9002226.02101,"1109,60429-0331-30 ",.01)
 ;;60429-0331-30
 ;;9002226.02101,"1109,60429-0331-30 ",.02)
 ;;60429-0331-30
 ;;9002226.02101,"1109,60429-0331-90 ",.01)
 ;;60429-0331-90
 ;;9002226.02101,"1109,60429-0331-90 ",.02)
 ;;60429-0331-90
 ;;9002226.02101,"1109,60429-0332-10 ",.01)
 ;;60429-0332-10
 ;;9002226.02101,"1109,60429-0332-10 ",.02)
 ;;60429-0332-10
 ;;9002226.02101,"1109,60429-0332-30 ",.01)
 ;;60429-0332-30
 ;;9002226.02101,"1109,60429-0332-30 ",.02)
 ;;60429-0332-30
 ;;9002226.02101,"1109,60429-0332-90 ",.01)
 ;;60429-0332-90
 ;;9002226.02101,"1109,60429-0332-90 ",.02)
 ;;60429-0332-90
 ;;9002226.02101,"1109,63304-0254-30 ",.01)
 ;;63304-0254-30
 ;;9002226.02101,"1109,63304-0254-30 ",.02)
 ;;63304-0254-30
 ;;9002226.02101,"1109,63304-0254-90 ",.01)
 ;;63304-0254-90
 ;;9002226.02101,"1109,63304-0254-90 ",.02)
 ;;63304-0254-90
 ;;9002226.02101,"1109,63304-0255-30 ",.01)
 ;;63304-0255-30
 ;;9002226.02101,"1109,63304-0255-30 ",.02)
 ;;63304-0255-30
 ;;9002226.02101,"1109,63304-0255-90 ",.01)
 ;;63304-0255-90
 ;;9002226.02101,"1109,63304-0255-90 ",.02)
 ;;63304-0255-90
 ;;9002226.02101,"1109,63304-0261-30 ",.01)
 ;;63304-0261-30
 ;;9002226.02101,"1109,63304-0261-30 ",.02)
 ;;63304-0261-30
 ;;9002226.02101,"1109,63304-0261-90 ",.01)
 ;;63304-0261-90
 ;;9002226.02101,"1109,63304-0261-90 ",.02)
 ;;63304-0261-90
 ;;9002226.02101,"1109,63304-0311-05 ",.01)
 ;;63304-0311-05
 ;;9002226.02101,"1109,63304-0311-05 ",.02)
 ;;63304-0311-05
 ;;9002226.02101,"1109,63304-0311-30 ",.01)
 ;;63304-0311-30
 ;;9002226.02101,"1109,63304-0311-30 ",.02)
 ;;63304-0311-30
 ;;9002226.02101,"1109,63304-0311-90 ",.01)
 ;;63304-0311-90
 ;;9002226.02101,"1109,63304-0311-90 ",.02)
 ;;63304-0311-90
 ;;9002226.02101,"1109,63304-0312-05 ",.01)
 ;;63304-0312-05
 ;;9002226.02101,"1109,63304-0312-05 ",.02)
 ;;63304-0312-05
 ;;9002226.02101,"1109,63304-0312-30 ",.01)
 ;;63304-0312-30
 ;;9002226.02101,"1109,63304-0312-30 ",.02)
 ;;63304-0312-30
 ;;9002226.02101,"1109,63304-0312-90 ",.01)
 ;;63304-0312-90
 ;;9002226.02101,"1109,63304-0312-90 ",.02)
 ;;63304-0312-90
 ;;9002226.02101,"1109,63304-0313-05 ",.01)
 ;;63304-0313-05
 ;;9002226.02101,"1109,63304-0313-05 ",.02)
 ;;63304-0313-05
 ;;9002226.02101,"1109,63304-0313-30 ",.01)
 ;;63304-0313-30
 ;;9002226.02101,"1109,63304-0313-30 ",.02)
 ;;63304-0313-30
 ;;9002226.02101,"1109,63304-0313-90 ",.01)
 ;;63304-0313-90
 ;;9002226.02101,"1109,63304-0313-90 ",.02)
 ;;63304-0313-90
 ;;9002226.02101,"1109,63629-1269-01 ",.01)
 ;;63629-1269-01
 ;;9002226.02101,"1109,63629-1269-01 ",.02)
 ;;63629-1269-01
 ;;9002226.02101,"1109,64764-0151-04 ",.01)
 ;;64764-0151-04
 ;;9002226.02101,"1109,64764-0151-04 ",.02)
 ;;64764-0151-04
 ;;9002226.02101,"1109,64764-0151-05 ",.01)
 ;;64764-0151-05
 ;;9002226.02101,"1109,64764-0151-05 ",.02)
 ;;64764-0151-05
 ;;9002226.02101,"1109,64764-0151-06 ",.01)
 ;;64764-0151-06
 ;;9002226.02101,"1109,64764-0151-06 ",.02)
 ;;64764-0151-06
 ;;9002226.02101,"1109,64764-0155-18 ",.01)
 ;;64764-0155-18
 ;;9002226.02101,"1109,64764-0155-18 ",.02)
 ;;64764-0155-18
 ;;9002226.02101,"1109,64764-0155-60 ",.01)
 ;;64764-0155-60
 ;;9002226.02101,"1109,64764-0155-60 ",.02)
 ;;64764-0155-60
 ;;9002226.02101,"1109,64764-0158-18 ",.01)
 ;;64764-0158-18
 ;;9002226.02101,"1109,64764-0158-18 ",.02)
 ;;64764-0158-18
 ;;9002226.02101,"1109,64764-0158-60 ",.01)
 ;;64764-0158-60
 ;;9002226.02101,"1109,64764-0158-60 ",.02)
 ;;64764-0158-60
 ;;9002226.02101,"1109,64764-0301-14 ",.01)
 ;;64764-0301-14
 ;;9002226.02101,"1109,64764-0301-14 ",.02)
 ;;64764-0301-14
 ;;9002226.02101,"1109,64764-0301-15 ",.01)
 ;;64764-0301-15
 ;;9002226.02101,"1109,64764-0301-15 ",.02)
 ;;64764-0301-15
 ;;9002226.02101,"1109,64764-0301-16 ",.01)
 ;;64764-0301-16
 ;;9002226.02101,"1109,64764-0301-16 ",.02)
 ;;64764-0301-16
 ;;9002226.02101,"1109,64764-0302-30 ",.01)
 ;;64764-0302-30
 ;;9002226.02101,"1109,64764-0302-30 ",.02)
 ;;64764-0302-30
 ;;9002226.02101,"1109,64764-0304-30 ",.01)
 ;;64764-0304-30
 ;;9002226.02101,"1109,64764-0304-30 ",.02)
 ;;64764-0304-30
 ;;9002226.02101,"1109,64764-0310-30 ",.01)
 ;;64764-0310-30
 ;;9002226.02101,"1109,64764-0310-30 ",.02)
 ;;64764-0310-30
 ;;9002226.02101,"1109,64764-0451-24 ",.01)
 ;;64764-0451-24
 ;;9002226.02101,"1109,64764-0451-24 ",.02)
 ;;64764-0451-24
 ;;9002226.02101,"1109,64764-0451-25 ",.01)
 ;;64764-0451-25
 ;;9002226.02101,"1109,64764-0451-25 ",.02)
 ;;64764-0451-25
 ;;9002226.02101,"1109,64764-0451-26 ",.01)
 ;;64764-0451-26
 ;;9002226.02101,"1109,64764-0451-26 ",.02)
 ;;64764-0451-26
 ;;9002226.02101,"1109,64764-0510-30 ",.01)
 ;;64764-0510-30
 ;;9002226.02101,"1109,64764-0510-30 ",.02)
 ;;64764-0510-30