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

BGP51L4.m

Go to the documentation of this file.
  1. BGP51L4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
  1. ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"806,00009-3449-01 ",.02)
  1. ;;00009-3449-01
  1. ;;9002226.02101,"806,00009-3449-03 ",.01)
  1. ;;00009-3449-03
  1. ;;9002226.02101,"806,00009-3449-03 ",.02)
  1. ;;00009-3449-03
  1. ;;9002226.02101,"806,00009-3774-17 ",.01)
  1. ;;00009-3774-17
  1. ;;9002226.02101,"806,00009-3774-17 ",.02)
  1. ;;00009-3774-17
  1. ;;9002226.02101,"806,00015-0508-42 ",.01)
  1. ;;00015-0508-42
  1. ;;9002226.02101,"806,00015-0508-42 ",.02)
  1. ;;00015-0508-42
  1. ;;9002226.02101,"806,00039-0051-10 ",.01)
  1. ;;00039-0051-10
  1. ;;9002226.02101,"806,00039-0051-10 ",.02)
  1. ;;00039-0051-10
  1. ;;9002226.02101,"806,00039-0051-50 ",.01)
  1. ;;00039-0051-50
  1. ;;9002226.02101,"806,00039-0051-50 ",.02)
  1. ;;00039-0051-50
  1. ;;9002226.02101,"806,00039-0052-10 ",.01)
  1. ;;00039-0052-10
  1. ;;9002226.02101,"806,00039-0052-10 ",.02)
  1. ;;00039-0052-10
  1. ;;9002226.02101,"806,00039-0052-70 ",.01)
  1. ;;00039-0052-70
  1. ;;9002226.02101,"806,00039-0052-70 ",.02)
  1. ;;00039-0052-70
  1. ;;9002226.02101,"806,00039-0053-05 ",.01)
  1. ;;00039-0053-05
  1. ;;9002226.02101,"806,00039-0053-05 ",.02)
  1. ;;00039-0053-05
  1. ;;9002226.02101,"806,00046-0875-11 ",.01)
  1. ;;00046-0875-11
  1. ;;9002226.02101,"806,00046-0875-11 ",.02)
  1. ;;00046-0875-11
  1. ;;9002226.02101,"806,00046-0937-18 ",.01)
  1. ;;00046-0937-18
  1. ;;9002226.02101,"806,00046-0937-18 ",.02)
  1. ;;00046-0937-18
  1. ;;9002226.02101,"806,00046-0938-18 ",.01)
  1. ;;00046-0938-18
  1. ;;9002226.02101,"806,00046-0938-18 ",.02)
  1. ;;00046-0938-18
  1. ;;9002226.02101,"806,00046-0975-11 ",.01)
  1. ;;00046-0975-11
  1. ;;9002226.02101,"806,00046-0975-11 ",.02)
  1. ;;00046-0975-11
  1. ;;9002226.02101,"806,00046-1100-81 ",.01)
  1. ;;00046-1100-81
  1. ;;9002226.02101,"806,00046-1100-81 ",.02)
  1. ;;00046-1100-81
  1. ;;9002226.02101,"806,00046-1100-91 ",.01)
  1. ;;00046-1100-91
  1. ;;9002226.02101,"806,00046-1100-91 ",.02)
  1. ;;00046-1100-91
  1. ;;9002226.02101,"806,00046-1101-81 ",.01)
  1. ;;00046-1101-81
  1. ;;9002226.02101,"806,00046-1101-81 ",.02)
  1. ;;00046-1101-81
  1. ;;9002226.02101,"806,00046-1102-81 ",.01)
  1. ;;00046-1102-81
  1. ;;9002226.02101,"806,00046-1102-81 ",.02)
  1. ;;00046-1102-81
  1. ;;9002226.02101,"806,00046-1102-91 ",.01)
  1. ;;00046-1102-91
  1. ;;9002226.02101,"806,00046-1102-91 ",.02)
  1. ;;00046-1102-91
  1. ;;9002226.02101,"806,00046-1103-81 ",.01)
  1. ;;00046-1103-81
  1. ;;9002226.02101,"806,00046-1103-81 ",.02)
  1. ;;00046-1103-81
  1. ;;9002226.02101,"806,00046-1104-81 ",.01)
  1. ;;00046-1104-81
  1. ;;9002226.02101,"806,00046-1104-81 ",.02)
  1. ;;00046-1104-81
  1. ;;9002226.02101,"806,00046-1104-91 ",.01)
  1. ;;00046-1104-91
  1. ;;9002226.02101,"806,00046-1104-91 ",.02)
  1. ;;00046-1104-91
  1. ;;9002226.02101,"806,00046-1105-11 ",.01)
  1. ;;00046-1105-11
  1. ;;9002226.02101,"806,00046-1105-11 ",.02)
  1. ;;00046-1105-11
  1. ;;9002226.02101,"806,00046-1106-11 ",.01)
  1. ;;00046-1106-11
  1. ;;9002226.02101,"806,00046-1106-11 ",.02)
  1. ;;00046-1106-11
  1. ;;9002226.02101,"806,00046-1107-11 ",.01)
  1. ;;00046-1107-11
  1. ;;9002226.02101,"806,00046-1107-11 ",.02)
  1. ;;00046-1107-11
  1. ;;9002226.02101,"806,00046-1108-11 ",.01)
  1. ;;00046-1108-11
  1. ;;9002226.02101,"806,00046-1108-11 ",.02)
  1. ;;00046-1108-11
  1. ;;9002226.02101,"806,00046-2575-12 ",.01)
  1. ;;00046-2575-12
  1. ;;9002226.02101,"806,00046-2575-12 ",.02)
  1. ;;00046-2575-12
  1. ;;9002226.02101,"806,00046-2579-11 ",.01)
  1. ;;00046-2579-11
  1. ;;9002226.02101,"806,00046-2579-11 ",.02)
  1. ;;00046-2579-11
  1. ;;9002226.02101,"806,00054-3542-58 ",.01)
  1. ;;00054-3542-58
  1. ;;9002226.02101,"806,00054-3542-58 ",.02)
  1. ;;00054-3542-58
  1. ;;9002226.02101,"806,00054-4603-25 ",.01)
  1. ;;00054-4603-25
  1. ;;9002226.02101,"806,00054-4603-25 ",.02)
  1. ;;00054-4603-25
  1. ;;9002226.02101,"806,00054-4604-25 ",.01)
  1. ;;00054-4604-25
  1. ;;9002226.02101,"806,00054-4604-25 ",.02)
  1. ;;00054-4604-25
  1. ;;9002226.02101,"806,00054-8603-25 ",.01)
  1. ;;00054-8603-25
  1. ;;9002226.02101,"806,00054-8603-25 ",.02)
  1. ;;00054-8603-25
  1. ;;9002226.02101,"806,00054-8604-25 ",.01)
  1. ;;00054-8604-25
  1. ;;9002226.02101,"806,00054-8604-25 ",.02)
  1. ;;00054-8604-25
  1. ;;9002226.02101,"806,00078-0343-42 ",.01)
  1. ;;00078-0343-42
  1. ;;9002226.02101,"806,00078-0343-42 ",.02)
  1. ;;00078-0343-42
  1. ;;9002226.02101,"806,00078-0343-45 ",.01)
  1. ;;00078-0343-45
  1. ;;9002226.02101,"806,00078-0343-45 ",.02)
  1. ;;00078-0343-45
  1. ;;9002226.02101,"806,00078-0343-62 ",.01)
  1. ;;00078-0343-62
  1. ;;9002226.02101,"806,00078-0343-62 ",.02)
  1. ;;00078-0343-62
  1. ;;9002226.02101,"806,00078-0344-42 ",.01)
  1. ;;00078-0344-42
  1. ;;9002226.02101,"806,00078-0344-42 ",.02)
  1. ;;00078-0344-42
  1. ;;9002226.02101,"806,00078-0344-45 ",.01)
  1. ;;00078-0344-45
  1. ;;9002226.02101,"806,00078-0344-45 ",.02)
  1. ;;00078-0344-45
  1. ;;9002226.02101,"806,00078-0344-62 ",.01)
  1. ;;00078-0344-62
  1. ;;9002226.02101,"806,00078-0344-62 ",.02)
  1. ;;00078-0344-62
  1. ;;9002226.02101,"806,00078-0345-42 ",.01)
  1. ;;00078-0345-42
  1. ;;9002226.02101,"806,00078-0345-42 ",.02)
  1. ;;00078-0345-42
  1. ;;9002226.02101,"806,00078-0345-45 ",.01)
  1. ;;00078-0345-45
  1. ;;9002226.02101,"806,00078-0345-45 ",.02)
  1. ;;00078-0345-45
  1. ;;9002226.02101,"806,00078-0345-62 ",.01)
  1. ;;00078-0345-62
  1. ;;9002226.02101,"806,00078-0345-62 ",.02)
  1. ;;00078-0345-62
  1. ;;9002226.02101,"806,00078-0346-42 ",.01)
  1. ;;00078-0346-42
  1. ;;9002226.02101,"806,00078-0346-42 ",.02)
  1. ;;00078-0346-42
  1. ;;9002226.02101,"806,00078-0346-45 ",.01)
  1. ;;00078-0346-45
  1. ;;9002226.02101,"806,00078-0346-45 ",.02)
  1. ;;00078-0346-45
  1. ;;9002226.02101,"806,00078-0346-62 ",.01)
  1. ;;00078-0346-62
  1. ;;9002226.02101,"806,00078-0346-62 ",.02)
  1. ;;00078-0346-62
  1. ;;9002226.02101,"806,00078-0365-42 ",.01)
  1. ;;00078-0365-42
  1. ;;9002226.02101,"806,00078-0365-42 ",.02)
  1. ;;00078-0365-42
  1. ;;9002226.02101,"806,00078-0365-45 ",.01)
  1. ;;00078-0365-45
  1. ;;9002226.02101,"806,00078-0365-45 ",.02)
  1. ;;00078-0365-45
  1. ;;9002226.02101,"806,00078-0377-42 ",.01)
  1. ;;00078-0377-42
  1. ;;9002226.02101,"806,00078-0377-42 ",.02)
  1. ;;00078-0377-42
  1. ;;9002226.02101,"806,00078-0377-62 ",.01)
  1. ;;00078-0377-62
  1. ;;9002226.02101,"806,00078-0377-62 ",.02)
  1. ;;00078-0377-62
  1. ;;9002226.02101,"806,00078-0378-42 ",.01)
  1. ;;00078-0378-42
  1. ;;9002226.02101,"806,00078-0378-42 ",.02)
  1. ;;00078-0378-42
  1. ;;9002226.02101,"806,00078-0378-62 ",.01)
  1. ;;00078-0378-62
  1. ;;9002226.02101,"806,00078-0378-62 ",.02)
  1. ;;00078-0378-62
  1. ;;9002226.02101,"806,00078-0481-42 ",.01)
  1. ;;00078-0481-42
  1. ;;9002226.02101,"806,00078-0481-42 ",.02)
  1. ;;00078-0481-42
  1. ;;9002226.02101,"806,00078-0481-62 ",.01)
  1. ;;00078-0481-62
  1. ;;9002226.02101,"806,00078-0481-62 ",.02)
  1. ;;00078-0481-62
  1. ;;9002226.02101,"806,00087-6072-11 ",.01)
  1. ;;00087-6072-11
  1. ;;9002226.02101,"806,00087-6072-11 ",.02)
  1. ;;00087-6072-11
  1. ;;9002226.02101,"806,00087-6073-11 ",.01)
  1. ;;00087-6073-11
  1. ;;9002226.02101,"806,00087-6073-11 ",.02)
  1. ;;00087-6073-11
  1. ;;9002226.02101,"806,00087-6074-11 ",.01)
  1. ;;00087-6074-11
  1. ;;9002226.02101,"806,00087-6074-11 ",.02)
  1. ;;00087-6074-11
  1. ;;9002226.02101,"806,00093-3122-42 ",.01)
  1. ;;00093-3122-42
  1. ;;9002226.02101,"806,00093-3122-42 ",.02)
  1. ;;00093-3122-42
  1. ;;9002226.02101,"806,00093-3122-98 ",.01)
  1. ;;00093-3122-98
  1. ;;9002226.02101,"806,00093-3122-98 ",.02)
  1. ;;00093-3122-98
  1. ;;9002226.02101,"806,00093-5454-28 ",.01)
  1. ;;00093-5454-28
  1. ;;9002226.02101,"806,00093-5454-28 ",.02)
  1. ;;00093-5454-28
  1. ;;9002226.02101,"806,00093-5454-62 ",.01)
  1. ;;00093-5454-62
  1. ;;9002226.02101,"806,00093-5454-62 ",.02)
  1. ;;00093-5454-62
  1. ;;9002226.02101,"806,00093-5455-28 ",.01)
  1. ;;00093-5455-28
  1. ;;9002226.02101,"806,00093-5455-28 ",.02)
  1. ;;00093-5455-28
  1. ;;9002226.02101,"806,00093-5455-42 ",.01)
  1. ;;00093-5455-42
  1. ;;9002226.02101,"806,00093-5455-42 ",.02)
  1. ;;00093-5455-42
  1. ;;9002226.02101,"806,00093-5710-01 ",.01)
  1. ;;00093-5710-01
  1. ;;9002226.02101,"806,00093-5710-01 ",.02)
  1. ;;00093-5710-01
  1. ;;9002226.02101,"806,00093-5710-05 ",.01)
  1. ;;00093-5710-05
  1. ;;9002226.02101,"806,00093-5710-05 ",.02)
  1. ;;00093-5710-05
  1. ;;9002226.02101,"806,00093-5710-19 ",.01)
  1. ;;00093-5710-19
  1. ;;9002226.02101,"806,00093-5710-19 ",.02)
  1. ;;00093-5710-19
  1. ;;9002226.02101,"806,00093-5710-83 ",.01)
  1. ;;00093-5710-83
  1. ;;9002226.02101,"806,00093-5710-83 ",.02)
  1. ;;00093-5710-83
  1. ;;9002226.02101,"806,00093-5711-01 ",.01)
  1. ;;00093-5711-01
  1. ;;9002226.02101,"806,00093-5711-01 ",.02)
  1. ;;00093-5711-01
  1. ;;9002226.02101,"806,00093-5711-05 ",.01)
  1. ;;00093-5711-05
  1. ;;9002226.02101,"806,00093-5711-05 ",.02)
  1. ;;00093-5711-05
  1. ;;9002226.02101,"806,00093-5711-19 ",.01)
  1. ;;00093-5711-19
  1. ;;9002226.02101,"806,00093-5711-19 ",.02)
  1. ;;00093-5711-19
  1. ;;9002226.02101,"806,00093-5711-93 ",.01)
  1. ;;00093-5711-93
  1. ;;9002226.02101,"806,00093-5711-93 ",.02)
  1. ;;00093-5711-93
  1. ;;9002226.02101,"806,00093-5712-01 ",.01)
  1. ;;00093-5712-01
  1. ;;9002226.02101,"806,00093-5712-01 ",.02)
  1. ;;00093-5712-01
  1. ;;9002226.02101,"806,00093-5712-05 ",.01)
  1. ;;00093-5712-05
  1. ;;9002226.02101,"806,00093-5712-05 ",.02)
  1. ;;00093-5712-05
  1. ;;9002226.02101,"806,00093-5712-19 ",.01)
  1. ;;00093-5712-19
  1. ;;9002226.02101,"806,00093-5712-19 ",.02)
  1. ;;00093-5712-19
  1. ;;9002226.02101,"806,00093-5712-93 ",.01)
  1. ;;00093-5712-93
  1. ;;9002226.02101,"806,00093-5712-93 ",.02)
  1. ;;00093-5712-93
  1. ;;9002226.02101,"806,00093-7261-05 ",.01)
  1. ;;00093-7261-05
  1. ;;9002226.02101,"806,00093-7261-05 ",.02)
  1. ;;00093-7261-05
  1. ;;9002226.02101,"806,00093-7262-05 ",.01)
  1. ;;00093-7262-05
  1. ;;9002226.02101,"806,00093-7262-05 ",.02)
  1. ;;00093-7262-05
  1. ;;9002226.02101,"806,00093-8034-01 ",.01)
  1. ;;00093-8034-01
  1. ;;9002226.02101,"806,00093-8034-01 ",.02)
  1. ;;00093-8034-01
  1. ;;9002226.02101,"806,00093-8035-01 ",.01)
  1. ;;00093-8035-01
  1. ;;9002226.02101,"806,00093-8035-01 ",.02)
  1. ;;00093-8035-01
  1. ;;9002226.02101,"806,00093-8035-05 ",.01)
  1. ;;00093-8035-05
  1. ;;9002226.02101,"806,00093-8035-05 ",.02)
  1. ;;00093-8035-05
  1. ;;9002226.02101,"806,00093-8036-01 ",.01)
  1. ;;00093-8036-01
  1. ;;9002226.02101,"806,00093-8036-01 ",.02)
  1. ;;00093-8036-01
  1. ;;9002226.02101,"806,00093-8342-01 ",.01)
  1. ;;00093-8342-01
  1. ;;9002226.02101,"806,00093-8342-01 ",.02)
  1. ;;00093-8342-01
  1. ;;9002226.02101,"806,00093-8343-01 ",.01)
  1. ;;00093-8343-01
  1. ;;9002226.02101,"806,00093-8343-01 ",.02)
  1. ;;00093-8343-01
  1. ;;9002226.02101,"806,00093-8343-05 ",.01)
  1. ;;00093-8343-05
  1. ;;9002226.02101,"806,00093-8343-05 ",.02)
  1. ;;00093-8343-05
  1. ;;9002226.02101,"806,00093-8343-10 ",.01)
  1. ;;00093-8343-10
  1. ;;9002226.02101,"806,00093-8343-10 ",.02)
  1. ;;00093-8343-10
  1. ;;9002226.02101,"806,00093-8343-98 ",.01)
  1. ;;00093-8343-98
  1. ;;9002226.02101,"806,00093-8343-98 ",.02)
  1. ;;00093-8343-98
  1. ;;9002226.02101,"806,00093-8344-01 ",.01)
  1. ;;00093-8344-01
  1. ;;9002226.02101,"806,00093-8344-01 ",.02)
  1. ;;00093-8344-01
  1. ;;9002226.02101,"806,00093-8344-05 ",.01)
  1. ;;00093-8344-05
  1. ;;9002226.02101,"806,00093-8344-05 ",.02)
  1. ;;00093-8344-05
  1. ;;9002226.02101,"806,00093-8344-10 ",.01)
  1. ;;00093-8344-10
  1. ;;9002226.02101,"806,00093-8344-10 ",.02)
  1. ;;00093-8344-10
  1. ;;9002226.02101,"806,00093-8344-19 ",.01)
  1. ;;00093-8344-19
  1. ;;9002226.02101,"806,00093-8344-19 ",.02)
  1. ;;00093-8344-19
  1. ;;9002226.02101,"806,00093-8344-93 ",.01)
  1. ;;00093-8344-93
  1. ;;9002226.02101,"806,00093-8344-93 ",.02)
  1. ;;00093-8344-93
  1. ;;9002226.02101,"806,00093-8344-98 ",.01)
  1. ;;00093-8344-98
  1. ;;9002226.02101,"806,00093-8344-98 ",.02)
  1. ;;00093-8344-98
  1. ;;9002226.02101,"806,00093-9364-01 ",.01)
  1. ;;00093-9364-01
  1. ;;9002226.02101,"806,00093-9364-01 ",.02)
  1. ;;00093-9364-01
  1. ;;9002226.02101,"806,00093-9364-05 ",.01)
  1. ;;00093-9364-05
  1. ;;9002226.02101,"806,00093-9364-05 ",.02)
  1. ;;00093-9364-05
  1. ;;9002226.02101,"806,00093-9364-10 ",.01)
  1. ;;00093-9364-10
  1. ;;9002226.02101,"806,00093-9364-10 ",.02)
  1. ;;00093-9364-10
  1. ;;9002226.02101,"806,00093-9433-01 ",.01)
  1. ;;00093-9433-01
  1. ;;9002226.02101,"806,00093-9433-01 ",.02)
  1. ;;00093-9433-01
  1. ;;9002226.02101,"806,00093-9433-05 ",.01)
  1. ;;00093-9433-05
  1. ;;9002226.02101,"806,00093-9433-05 ",.02)
  1. ;;00093-9433-05
  1. ;;9002226.02101,"806,00093-9477-53 ",.01)
  1. ;;00093-9477-53
  1. ;;9002226.02101,"806,00093-9477-53 ",.02)
  1. ;;00093-9477-53
  1. ;;9002226.02101,"806,00093-9634-87 ",.01)
  1. ;;00093-9634-87
  1. ;;9002226.02101,"806,00093-9634-87 ",.02)
  1. ;;00093-9634-87
  1. ;;9002226.02101,"806,00121-4776-10 ",.01)
  1. ;;00121-4776-10
  1. ;;9002226.02101,"806,00121-4776-10 ",.02)
  1. ;;00121-4776-10
  1. ;;9002226.02101,"806,00121-4776-20 ",.01)
  1. ;;00121-4776-20
  1. ;;9002226.02101,"806,00121-4776-20 ",.02)
  1. ;;00121-4776-20
  1. ;;9002226.02101,"806,00121-4776-35 ",.01)
  1. ;;00121-4776-35
  1. ;;9002226.02101,"806,00121-4776-35 ",.02)
  1. ;;00121-4776-35
  1. ;;9002226.02101,"806,00143-9918-01 ",.01)
  1. ;;00143-9918-01
  1. ;;9002226.02101,"806,00143-9918-01 ",.02)
  1. ;;00143-9918-01
  1. ;;9002226.02101,"806,00143-9919-01 ",.01)
  1. ;;00143-9919-01
  1. ;;9002226.02101,"806,00143-9919-01 ",.02)
  1. ;;00143-9919-01
  1. ;;9002226.02101,"806,00143-9919-05 ",.01)
  1. ;;00143-9919-05
  1. ;;9002226.02101,"806,00143-9919-05 ",.02)
  1. ;;00143-9919-05
  1. ;;9002226.02101,"806,00143-9920-01 ",.01)
  1. ;;00143-9920-01
  1. ;;9002226.02101,"806,00143-9920-01 ",.02)
  1. ;;00143-9920-01
  1. ;;9002226.02101,"806,00143-9920-05 ",.01)
  1. ;;00143-9920-05
  1. ;;9002226.02101,"806,00143-9920-05 ",.02)
  1. ;;00143-9920-05
  1. ;;9002226.02101,"806,00143-9920-10 ",.01)
  1. ;;00143-9920-10
  1. ;;9002226.02101,"806,00143-9920-10 ",.02)
  1. ;;00143-9920-10
  1. ;;9002226.02101,"806,00169-5174-01 ",.01)
  1. ;;00169-5174-01
  1. ;;9002226.02101,"806,00169-5174-01 ",.02)
  1. ;;00169-5174-01
  1. ;;9002226.02101,"806,00169-5174-02 ",.01)
  1. ;;00169-5174-02
  1. ;;9002226.02101,"806,00169-5174-02 ",.02)
  1. ;;00169-5174-02
  1. ;;9002226.02101,"806,00169-5175-10 ",.01)
  1. ;;00169-5175-10
  1. ;;9002226.02101,"806,00169-5175-10 ",.02)
  1. ;;00169-5175-10
  1. ;;9002226.02101,"806,00169-5175-11 ",.01)
  1. ;;00169-5175-11
  1. ;;9002226.02101,"806,00169-5175-11 ",.02)
  1. ;;00169-5175-11
  1. ;;9002226.02101,"806,00182-2646-89 ",.01)
  1. ;;00182-2646-89
  1. ;;9002226.02101,"806,00182-2646-89 ",.02)
  1. ;;00182-2646-89
  1. ;;9002226.02101,"806,00228-2751-11 ",.01)
  1. ;;00228-2751-11