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

BGP82I37.m

Go to the documentation of this file.
BGP82I37 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"1733,50090-1995-00 ",.01)
 ;;50090-1995-00
 ;;9002226.02101,"1733,50090-1995-00 ",.02)
 ;;50090-1995-00
 ;;9002226.02101,"1733,50268-0109-11 ",.01)
 ;;50268-0109-11
 ;;9002226.02101,"1733,50268-0109-11 ",.02)
 ;;50268-0109-11
 ;;9002226.02101,"1733,50268-0109-15 ",.01)
 ;;50268-0109-15
 ;;9002226.02101,"1733,50268-0109-15 ",.02)
 ;;50268-0109-15
 ;;9002226.02101,"1733,50268-0110-11 ",.01)
 ;;50268-0110-11
 ;;9002226.02101,"1733,50268-0110-11 ",.02)
 ;;50268-0110-11
 ;;9002226.02101,"1733,50268-0110-15 ",.01)
 ;;50268-0110-15
 ;;9002226.02101,"1733,50268-0110-15 ",.02)
 ;;50268-0110-15
 ;;9002226.02101,"1733,50268-0111-11 ",.01)
 ;;50268-0111-11
 ;;9002226.02101,"1733,50268-0111-11 ",.02)
 ;;50268-0111-11
 ;;9002226.02101,"1733,50268-0111-15 ",.01)
 ;;50268-0111-15
 ;;9002226.02101,"1733,50268-0111-15 ",.02)
 ;;50268-0111-15
 ;;9002226.02101,"1733,50268-0112-11 ",.01)
 ;;50268-0112-11
 ;;9002226.02101,"1733,50268-0112-11 ",.02)
 ;;50268-0112-11
 ;;9002226.02101,"1733,50268-0112-15 ",.01)
 ;;50268-0112-15
 ;;9002226.02101,"1733,50268-0112-15 ",.02)
 ;;50268-0112-15
 ;;9002226.02101,"1733,50268-0440-11 ",.01)
 ;;50268-0440-11
 ;;9002226.02101,"1733,50268-0440-11 ",.02)
 ;;50268-0440-11
 ;;9002226.02101,"1733,50268-0440-15 ",.01)
 ;;50268-0440-15
 ;;9002226.02101,"1733,50268-0440-15 ",.02)
 ;;50268-0440-15
 ;;9002226.02101,"1733,50268-0441-11 ",.01)
 ;;50268-0441-11
 ;;9002226.02101,"1733,50268-0441-11 ",.02)
 ;;50268-0441-11
 ;;9002226.02101,"1733,50268-0441-15 ",.01)
 ;;50268-0441-15
 ;;9002226.02101,"1733,50268-0441-15 ",.02)
 ;;50268-0441-15
 ;;9002226.02101,"1733,50268-0442-11 ",.01)
 ;;50268-0442-11
 ;;9002226.02101,"1733,50268-0442-11 ",.02)
 ;;50268-0442-11
 ;;9002226.02101,"1733,50268-0442-15 ",.01)
 ;;50268-0442-15
 ;;9002226.02101,"1733,50268-0442-15 ",.02)
 ;;50268-0442-15
 ;;9002226.02101,"1733,50268-0513-11 ",.01)
 ;;50268-0513-11
 ;;9002226.02101,"1733,50268-0513-11 ",.02)
 ;;50268-0513-11
 ;;9002226.02101,"1733,50268-0513-15 ",.01)
 ;;50268-0513-15
 ;;9002226.02101,"1733,50268-0513-15 ",.02)
 ;;50268-0513-15
 ;;9002226.02101,"1733,50268-0514-11 ",.01)
 ;;50268-0514-11
 ;;9002226.02101,"1733,50268-0514-11 ",.02)
 ;;50268-0514-11
 ;;9002226.02101,"1733,50268-0514-15 ",.01)
 ;;50268-0514-15
 ;;9002226.02101,"1733,50268-0514-15 ",.02)
 ;;50268-0514-15
 ;;9002226.02101,"1733,50268-0515-11 ",.01)
 ;;50268-0515-11
 ;;9002226.02101,"1733,50268-0515-11 ",.02)
 ;;50268-0515-11
 ;;9002226.02101,"1733,50268-0515-15 ",.01)
 ;;50268-0515-15
 ;;9002226.02101,"1733,50268-0515-15 ",.02)
 ;;50268-0515-15
 ;;9002226.02101,"1733,50268-0516-11 ",.01)
 ;;50268-0516-11
 ;;9002226.02101,"1733,50268-0516-11 ",.02)
 ;;50268-0516-11
 ;;9002226.02101,"1733,50268-0516-15 ",.01)
 ;;50268-0516-15
 ;;9002226.02101,"1733,50268-0516-15 ",.02)
 ;;50268-0516-15
 ;;9002226.02101,"1733,50268-0517-11 ",.01)
 ;;50268-0517-11
 ;;9002226.02101,"1733,50268-0517-11 ",.02)
 ;;50268-0517-11
 ;;9002226.02101,"1733,50268-0517-15 ",.01)
 ;;50268-0517-15
 ;;9002226.02101,"1733,50268-0517-15 ",.02)
 ;;50268-0517-15
 ;;9002226.02101,"1733,50268-0518-11 ",.01)
 ;;50268-0518-11
 ;;9002226.02101,"1733,50268-0518-11 ",.02)
 ;;50268-0518-11
 ;;9002226.02101,"1733,50268-0518-15 ",.01)
 ;;50268-0518-15
 ;;9002226.02101,"1733,50268-0518-15 ",.02)
 ;;50268-0518-15
 ;;9002226.02101,"1733,50268-0688-11 ",.01)
 ;;50268-0688-11
 ;;9002226.02101,"1733,50268-0688-11 ",.02)
 ;;50268-0688-11
 ;;9002226.02101,"1733,50268-0688-15 ",.01)
 ;;50268-0688-15
 ;;9002226.02101,"1733,50268-0688-15 ",.02)
 ;;50268-0688-15
 ;;9002226.02101,"1733,50268-0689-11 ",.01)
 ;;50268-0689-11
 ;;9002226.02101,"1733,50268-0689-11 ",.02)
 ;;50268-0689-11
 ;;9002226.02101,"1733,50268-0689-15 ",.01)
 ;;50268-0689-15
 ;;9002226.02101,"1733,50268-0689-15 ",.02)
 ;;50268-0689-15
 ;;9002226.02101,"1733,50268-0690-11 ",.01)
 ;;50268-0690-11
 ;;9002226.02101,"1733,50268-0690-11 ",.02)
 ;;50268-0690-11
 ;;9002226.02101,"1733,50268-0690-15 ",.01)
 ;;50268-0690-15
 ;;9002226.02101,"1733,50268-0690-15 ",.02)
 ;;50268-0690-15
 ;;9002226.02101,"1733,50268-0691-11 ",.01)
 ;;50268-0691-11
 ;;9002226.02101,"1733,50268-0691-11 ",.02)
 ;;50268-0691-11
 ;;9002226.02101,"1733,50268-0691-15 ",.01)
 ;;50268-0691-15
 ;;9002226.02101,"1733,50268-0691-15 ",.02)
 ;;50268-0691-15
 ;;9002226.02101,"1733,50268-0783-11 ",.01)
 ;;50268-0783-11
 ;;9002226.02101,"1733,50268-0783-11 ",.02)
 ;;50268-0783-11
 ;;9002226.02101,"1733,50268-0783-15 ",.01)
 ;;50268-0783-15
 ;;9002226.02101,"1733,50268-0783-15 ",.02)
 ;;50268-0783-15
 ;;9002226.02101,"1733,50268-0784-11 ",.01)
 ;;50268-0784-11
 ;;9002226.02101,"1733,50268-0784-11 ",.02)
 ;;50268-0784-11
 ;;9002226.02101,"1733,50268-0784-15 ",.01)
 ;;50268-0784-15
 ;;9002226.02101,"1733,50268-0784-15 ",.02)
 ;;50268-0784-15
 ;;9002226.02101,"1733,50268-0785-11 ",.01)
 ;;50268-0785-11
 ;;9002226.02101,"1733,50268-0785-11 ",.02)
 ;;50268-0785-11
 ;;9002226.02101,"1733,50268-0785-15 ",.01)
 ;;50268-0785-15
 ;;9002226.02101,"1733,50268-0785-15 ",.02)
 ;;50268-0785-15
 ;;9002226.02101,"1733,50268-0786-11 ",.01)
 ;;50268-0786-11
 ;;9002226.02101,"1733,50268-0786-11 ",.02)
 ;;50268-0786-11
 ;;9002226.02101,"1733,50268-0786-13 ",.01)
 ;;50268-0786-13
 ;;9002226.02101,"1733,50268-0786-13 ",.02)
 ;;50268-0786-13
 ;;9002226.02101,"1733,50268-0790-11 ",.01)
 ;;50268-0790-11
 ;;9002226.02101,"1733,50268-0790-11 ",.02)
 ;;50268-0790-11
 ;;9002226.02101,"1733,50268-0790-15 ",.01)
 ;;50268-0790-15
 ;;9002226.02101,"1733,50268-0790-15 ",.02)
 ;;50268-0790-15
 ;;9002226.02101,"1733,50268-0791-11 ",.01)
 ;;50268-0791-11
 ;;9002226.02101,"1733,50268-0791-11 ",.02)
 ;;50268-0791-11
 ;;9002226.02101,"1733,50268-0791-15 ",.01)
 ;;50268-0791-15
 ;;9002226.02101,"1733,50268-0791-15 ",.02)
 ;;50268-0791-15
 ;;9002226.02101,"1733,50268-0792-11 ",.01)
 ;;50268-0792-11
 ;;9002226.02101,"1733,50268-0792-11 ",.02)
 ;;50268-0792-11
 ;;9002226.02101,"1733,50268-0792-15 ",.01)
 ;;50268-0792-15
 ;;9002226.02101,"1733,50268-0792-15 ",.02)
 ;;50268-0792-15
 ;;9002226.02101,"1733,50268-0793-11 ",.01)
 ;;50268-0793-11
 ;;9002226.02101,"1733,50268-0793-11 ",.02)
 ;;50268-0793-11
 ;;9002226.02101,"1733,50268-0793-15 ",.01)
 ;;50268-0793-15
 ;;9002226.02101,"1733,50268-0793-15 ",.02)
 ;;50268-0793-15
 ;;9002226.02101,"1733,50268-0794-11 ",.01)
 ;;50268-0794-11
 ;;9002226.02101,"1733,50268-0794-11 ",.02)
 ;;50268-0794-11
 ;;9002226.02101,"1733,50268-0794-15 ",.01)
 ;;50268-0794-15
 ;;9002226.02101,"1733,50268-0794-15 ",.02)
 ;;50268-0794-15
 ;;9002226.02101,"1733,50436-4000-03 ",.01)
 ;;50436-4000-03
 ;;9002226.02101,"1733,50436-4000-03 ",.02)
 ;;50436-4000-03
 ;;9002226.02101,"1733,50436-5000-01 ",.01)
 ;;50436-5000-01
 ;;9002226.02101,"1733,50436-5000-01 ",.02)
 ;;50436-5000-01
 ;;9002226.02101,"1733,51079-0145-01 ",.01)
 ;;51079-0145-01
 ;;9002226.02101,"1733,51079-0145-01 ",.02)
 ;;51079-0145-01
 ;;9002226.02101,"1733,51079-0145-20 ",.01)
 ;;51079-0145-20
 ;;9002226.02101,"1733,51079-0145-20 ",.02)
 ;;51079-0145-20
 ;;9002226.02101,"1733,51079-0146-01 ",.01)
 ;;51079-0146-01
 ;;9002226.02101,"1733,51079-0146-01 ",.02)
 ;;51079-0146-01
 ;;9002226.02101,"1733,51079-0146-20 ",.01)
 ;;51079-0146-20
 ;;9002226.02101,"1733,51079-0146-20 ",.02)
 ;;51079-0146-20
 ;;9002226.02101,"1733,51079-0192-01 ",.01)
 ;;51079-0192-01
 ;;9002226.02101,"1733,51079-0192-01 ",.02)
 ;;51079-0192-01
 ;;9002226.02101,"1733,51079-0192-03 ",.01)
 ;;51079-0192-03
 ;;9002226.02101,"1733,51079-0192-03 ",.02)
 ;;51079-0192-03
 ;;9002226.02101,"1733,51079-0193-01 ",.01)
 ;;51079-0193-01
 ;;9002226.02101,"1733,51079-0193-01 ",.02)
 ;;51079-0193-01
 ;;9002226.02101,"1733,51079-0193-03 ",.01)
 ;;51079-0193-03
 ;;9002226.02101,"1733,51079-0193-03 ",.02)
 ;;51079-0193-03
 ;;9002226.02101,"1733,51079-0194-01 ",.01)
 ;;51079-0194-01
 ;;9002226.02101,"1733,51079-0194-01 ",.02)
 ;;51079-0194-01
 ;;9002226.02101,"1733,51079-0194-03 ",.01)
 ;;51079-0194-03
 ;;9002226.02101,"1733,51079-0194-03 ",.02)
 ;;51079-0194-03
 ;;9002226.02101,"1733,51079-0256-40 ",.01)
 ;;51079-0256-40
 ;;9002226.02101,"1733,51079-0256-40 ",.02)
 ;;51079-0256-40
 ;;9002226.02101,"1733,51079-0261-40 ",.01)
 ;;51079-0261-40
 ;;9002226.02101,"1733,51079-0261-40 ",.02)
 ;;51079-0261-40
 ;;9002226.02101,"1733,51079-0863-01 ",.01)
 ;;51079-0863-01
 ;;9002226.02101,"1733,51079-0863-01 ",.02)
 ;;51079-0863-01
 ;;9002226.02101,"1733,51079-0863-20 ",.01)
 ;;51079-0863-20
 ;;9002226.02101,"1733,51079-0863-20 ",.02)
 ;;51079-0863-20
 ;;9002226.02101,"1733,51079-0864-01 ",.01)
 ;;51079-0864-01
 ;;9002226.02101,"1733,51079-0864-01 ",.02)
 ;;51079-0864-01
 ;;9002226.02101,"1733,51079-0864-20 ",.01)
 ;;51079-0864-20
 ;;9002226.02101,"1733,51079-0864-20 ",.02)
 ;;51079-0864-20
 ;;9002226.02101,"1733,51079-0950-01 ",.01)
 ;;51079-0950-01
 ;;9002226.02101,"1733,51079-0950-01 ",.02)
 ;;51079-0950-01
 ;;9002226.02101,"1733,51079-0950-20 ",.01)
 ;;51079-0950-20
 ;;9002226.02101,"1733,51079-0950-20 ",.02)
 ;;51079-0950-20
 ;;9002226.02101,"1733,51079-0951-01 ",.01)
 ;;51079-0951-01
 ;;9002226.02101,"1733,51079-0951-01 ",.02)
 ;;51079-0951-01
 ;;9002226.02101,"1733,51079-0951-20 ",.01)
 ;;51079-0951-20
 ;;9002226.02101,"1733,51079-0951-20 ",.02)
 ;;51079-0951-20
 ;;9002226.02101,"1733,51079-0952-01 ",.01)
 ;;51079-0952-01
 ;;9002226.02101,"1733,51079-0952-01 ",.02)
 ;;51079-0952-01
 ;;9002226.02101,"1733,51079-0952-20 ",.01)
 ;;51079-0952-20
 ;;9002226.02101,"1733,51079-0952-20 ",.02)
 ;;51079-0952-20
 ;;9002226.02101,"1733,51079-0953-01 ",.01)
 ;;51079-0953-01
 ;;9002226.02101,"1733,51079-0953-01 ",.02)
 ;;51079-0953-01
 ;;9002226.02101,"1733,51079-0953-20 ",.01)
 ;;51079-0953-20
 ;;9002226.02101,"1733,51079-0953-20 ",.02)
 ;;51079-0953-20
 ;;9002226.02101,"1733,51079-0981-01 ",.01)
 ;;51079-0981-01
 ;;9002226.02101,"1733,51079-0981-01 ",.02)
 ;;51079-0981-01
 ;;9002226.02101,"1733,51079-0981-20 ",.01)
 ;;51079-0981-20
 ;;9002226.02101,"1733,51079-0981-20 ",.02)
 ;;51079-0981-20
 ;;9002226.02101,"1733,51079-0981-30 ",.01)
 ;;51079-0981-30
 ;;9002226.02101,"1733,51079-0981-30 ",.02)
 ;;51079-0981-30
 ;;9002226.02101,"1733,51079-0981-40 ",.01)
 ;;51079-0981-40
 ;;9002226.02101,"1733,51079-0981-40 ",.02)
 ;;51079-0981-40
 ;;9002226.02101,"1733,51079-0981-56 ",.01)
 ;;51079-0981-56
 ;;9002226.02101,"1733,51079-0981-56 ",.02)
 ;;51079-0981-56
 ;;9002226.02101,"1733,51079-0981-60 ",.01)
 ;;51079-0981-60
 ;;9002226.02101,"1733,51079-0981-60 ",.02)
 ;;51079-0981-60
 ;;9002226.02101,"1733,51079-0982-01 ",.01)
 ;;51079-0982-01
 ;;9002226.02101,"1733,51079-0982-01 ",.02)
 ;;51079-0982-01
 ;;9002226.02101,"1733,51079-0982-17 ",.01)
 ;;51079-0982-17
 ;;9002226.02101,"1733,51079-0982-17 ",.02)
 ;;51079-0982-17
 ;;9002226.02101,"1733,51079-0982-19 ",.01)
 ;;51079-0982-19
 ;;9002226.02101,"1733,51079-0982-19 ",.02)
 ;;51079-0982-19
 ;;9002226.02101,"1733,51079-0982-20 ",.01)
 ;;51079-0982-20
 ;;9002226.02101,"1733,51079-0982-20 ",.02)
 ;;51079-0982-20
 ;;9002226.02101,"1733,51079-0982-30 ",.01)
 ;;51079-0982-30
 ;;9002226.02101,"1733,51079-0982-30 ",.02)
 ;;51079-0982-30
 ;;9002226.02101,"1733,51079-0982-40 ",.01)
 ;;51079-0982-40
 ;;9002226.02101,"1733,51079-0982-40 ",.02)
 ;;51079-0982-40
 ;;9002226.02101,"1733,51079-0982-56 ",.01)
 ;;51079-0982-56
 ;;9002226.02101,"1733,51079-0982-56 ",.02)
 ;;51079-0982-56
 ;;9002226.02101,"1733,51079-0982-60 ",.01)
 ;;51079-0982-60
 ;;9002226.02101,"1733,51079-0982-60 ",.02)
 ;;51079-0982-60
 ;;9002226.02101,"1733,51079-0983-01 ",.01)
 ;;51079-0983-01
 ;;9002226.02101,"1733,51079-0983-01 ",.02)
 ;;51079-0983-01
 ;;9002226.02101,"1733,51079-0983-17 ",.01)
 ;;51079-0983-17