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

BGP0ZD11.m

Go to the documentation of this file.
  1. BGP0ZD11 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
  1. ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
  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,"976,00093-0149-10 ",.02)
  1. ;;00093-0149-10
  1. ;;9002226.02101,"976,00093-0314-01 ",.01)
  1. ;;00093-0314-01
  1. ;;9002226.02101,"976,00093-0314-01 ",.02)
  1. ;;00093-0314-01
  1. ;;9002226.02101,"976,00093-0536-01 ",.01)
  1. ;;00093-0536-01
  1. ;;9002226.02101,"976,00093-0536-01 ",.02)
  1. ;;00093-0536-01
  1. ;;9002226.02101,"976,00093-0536-05 ",.01)
  1. ;;00093-0536-05
  1. ;;9002226.02101,"976,00093-0536-05 ",.02)
  1. ;;00093-0536-05
  1. ;;9002226.02101,"976,00093-0536-10 ",.01)
  1. ;;00093-0536-10
  1. ;;9002226.02101,"976,00093-0536-10 ",.02)
  1. ;;00093-0536-10
  1. ;;9002226.02101,"976,00093-0537-01 ",.01)
  1. ;;00093-0537-01
  1. ;;9002226.02101,"976,00093-0537-01 ",.02)
  1. ;;00093-0537-01
  1. ;;9002226.02101,"976,00093-0537-05 ",.01)
  1. ;;00093-0537-05
  1. ;;9002226.02101,"976,00093-0537-05 ",.02)
  1. ;;00093-0537-05
  1. ;;9002226.02101,"976,00093-0537-10 ",.01)
  1. ;;00093-0537-10
  1. ;;9002226.02101,"976,00093-0537-10 ",.02)
  1. ;;00093-0537-10
  1. ;;9002226.02101,"976,00093-0711-01 ",.01)
  1. ;;00093-0711-01
  1. ;;9002226.02101,"976,00093-0711-01 ",.02)
  1. ;;00093-0711-01
  1. ;;9002226.02101,"976,00093-0711-05 ",.01)
  1. ;;00093-0711-05
  1. ;;9002226.02101,"976,00093-0711-05 ",.02)
  1. ;;00093-0711-05
  1. ;;9002226.02101,"976,00093-0755-01 ",.01)
  1. ;;00093-0755-01
  1. ;;9002226.02101,"976,00093-0755-01 ",.02)
  1. ;;00093-0755-01
  1. ;;9002226.02101,"976,00093-0755-05 ",.01)
  1. ;;00093-0755-05
  1. ;;9002226.02101,"976,00093-0755-05 ",.02)
  1. ;;00093-0755-05
  1. ;;9002226.02101,"976,00093-0755-06 ",.01)
  1. ;;00093-0755-06
  1. ;;9002226.02101,"976,00093-0755-06 ",.02)
  1. ;;00093-0755-06
  1. ;;9002226.02101,"976,00093-0756-01 ",.01)
  1. ;;00093-0756-01
  1. ;;9002226.02101,"976,00093-0756-01 ",.02)
  1. ;;00093-0756-01
  1. ;;9002226.02101,"976,00093-0757-01 ",.01)
  1. ;;00093-0757-01
  1. ;;9002226.02101,"976,00093-0757-01 ",.02)
  1. ;;00093-0757-01
  1. ;;9002226.02101,"976,00093-0757-05 ",.01)
  1. ;;00093-0757-05
  1. ;;9002226.02101,"976,00093-0757-05 ",.02)
  1. ;;00093-0757-05
  1. ;;9002226.02101,"976,00093-0892-01 ",.01)
  1. ;;00093-0892-01
  1. ;;9002226.02101,"976,00093-0892-01 ",.02)
  1. ;;00093-0892-01
  1. ;;9002226.02101,"976,00093-0924-01 ",.01)
  1. ;;00093-0924-01
  1. ;;9002226.02101,"976,00093-0924-01 ",.02)
  1. ;;00093-0924-01
  1. ;;9002226.02101,"976,00093-0924-05 ",.01)
  1. ;;00093-0924-05
  1. ;;9002226.02101,"976,00093-0924-05 ",.02)
  1. ;;00093-0924-05
  1. ;;9002226.02101,"976,00093-0948-01 ",.01)
  1. ;;00093-0948-01
  1. ;;9002226.02101,"976,00093-0948-01 ",.02)
  1. ;;00093-0948-01
  1. ;;9002226.02101,"976,00093-0948-05 ",.01)
  1. ;;00093-0948-05
  1. ;;9002226.02101,"976,00093-0948-05 ",.02)
  1. ;;00093-0948-05
  1. ;;9002226.02101,"976,00093-1005-01 ",.01)
  1. ;;00093-1005-01
  1. ;;9002226.02101,"976,00093-1005-01 ",.02)
  1. ;;00093-1005-01
  1. ;;9002226.02101,"976,00093-1005-05 ",.01)
  1. ;;00093-1005-05
  1. ;;9002226.02101,"976,00093-1005-05 ",.02)
  1. ;;00093-1005-05
  1. ;;9002226.02101,"976,00093-1006-01 ",.01)
  1. ;;00093-1006-01
  1. ;;9002226.02101,"976,00093-1006-01 ",.02)
  1. ;;00093-1006-01
  1. ;;9002226.02101,"976,00093-1006-05 ",.01)
  1. ;;00093-1006-05
  1. ;;9002226.02101,"976,00093-1006-05 ",.02)
  1. ;;00093-1006-05
  1. ;;9002226.02101,"976,00093-1015-01 ",.01)
  1. ;;00093-1015-01
  1. ;;9002226.02101,"976,00093-1015-01 ",.02)
  1. ;;00093-1015-01
  1. ;;9002226.02101,"976,00093-1016-01 ",.01)
  1. ;;00093-1016-01
  1. ;;9002226.02101,"976,00093-1016-01 ",.02)
  1. ;;00093-1016-01
  1. ;;9002226.02101,"976,00093-1041-01 ",.01)
  1. ;;00093-1041-01
  1. ;;9002226.02101,"976,00093-1041-01 ",.02)
  1. ;;00093-1041-01
  1. ;;9002226.02101,"976,00093-1118-01 ",.01)
  1. ;;00093-1118-01
  1. ;;9002226.02101,"976,00093-1118-01 ",.02)
  1. ;;00093-1118-01
  1. ;;9002226.02101,"976,00093-1122-01 ",.01)
  1. ;;00093-1122-01
  1. ;;9002226.02101,"976,00093-1122-01 ",.02)
  1. ;;00093-1122-01
  1. ;;9002226.02101,"976,00093-3193-01 ",.01)
  1. ;;00093-3193-01
  1. ;;9002226.02101,"976,00093-3193-01 ",.02)
  1. ;;00093-3193-01
  1. ;;9002226.02101,"976,00093-3195-01 ",.01)
  1. ;;00093-3195-01
  1. ;;9002226.02101,"976,00093-3195-01 ",.02)
  1. ;;00093-3195-01
  1. ;;9002226.02101,"976,00093-3195-05 ",.01)
  1. ;;00093-3195-05
  1. ;;9002226.02101,"976,00093-3195-05 ",.02)
  1. ;;00093-3195-05
  1. ;;9002226.02101,"976,00093-7172-01 ",.01)
  1. ;;00093-7172-01
  1. ;;9002226.02101,"976,00093-7172-01 ",.02)
  1. ;;00093-7172-01
  1. ;;9002226.02101,"976,00093-8397-01 ",.01)
  1. ;;00093-8397-01
  1. ;;9002226.02101,"976,00093-8397-01 ",.02)
  1. ;;00093-8397-01
  1. ;;9002226.02101,"976,00093-8815-01 ",.01)
  1. ;;00093-8815-01
  1. ;;9002226.02101,"976,00093-8815-01 ",.02)
  1. ;;00093-8815-01
  1. ;;9002226.02101,"976,00143-9908-01 ",.01)
  1. ;;00143-9908-01
  1. ;;9002226.02101,"976,00143-9908-01 ",.02)
  1. ;;00143-9908-01
  1. ;;9002226.02101,"976,00143-9908-05 ",.01)
  1. ;;00143-9908-05
  1. ;;9002226.02101,"976,00143-9908-05 ",.02)
  1. ;;00143-9908-05
  1. ;;9002226.02101,"976,00143-9916-01 ",.01)
  1. ;;00143-9916-01
  1. ;;9002226.02101,"976,00143-9916-01 ",.02)
  1. ;;00143-9916-01
  1. ;;9002226.02101,"976,00172-3648-70 ",.01)
  1. ;;00172-3648-70
  1. ;;9002226.02101,"976,00172-3648-70 ",.02)
  1. ;;00172-3648-70
  1. ;;9002226.02101,"976,00172-4029-60 ",.01)
  1. ;;00172-4029-60
  1. ;;9002226.02101,"976,00172-4029-60 ",.02)
  1. ;;00172-4029-60
  1. ;;9002226.02101,"976,00172-4029-80 ",.01)
  1. ;;00172-4029-80
  1. ;;9002226.02101,"976,00172-4029-80 ",.02)
  1. ;;00172-4029-80
  1. ;;9002226.02101,"976,00172-4030-60 ",.01)
  1. ;;00172-4030-60
  1. ;;9002226.02101,"976,00172-4030-60 ",.02)
  1. ;;00172-4030-60
  1. ;;9002226.02101,"976,00172-4030-70 ",.01)
  1. ;;00172-4030-70
  1. ;;9002226.02101,"976,00172-4030-70 ",.02)
  1. ;;00172-4030-70
  1. ;;9002226.02101,"976,00172-4098-10 ",.01)
  1. ;;00172-4098-10
  1. ;;9002226.02101,"976,00172-4098-10 ",.02)
  1. ;;00172-4098-10
  1. ;;9002226.02101,"976,00172-4098-60 ",.01)
  1. ;;00172-4098-60
  1. ;;9002226.02101,"976,00172-4098-60 ",.02)
  1. ;;00172-4098-60
  1. ;;9002226.02101,"976,00172-4098-70 ",.01)
  1. ;;00172-4098-70
  1. ;;9002226.02101,"976,00172-4098-70 ",.02)
  1. ;;00172-4098-70
  1. ;;9002226.02101,"976,00172-4099-10 ",.01)
  1. ;;00172-4099-10
  1. ;;9002226.02101,"976,00172-4099-10 ",.02)
  1. ;;00172-4099-10
  1. ;;9002226.02101,"976,00172-4099-60 ",.01)
  1. ;;00172-4099-60
  1. ;;9002226.02101,"976,00172-4099-60 ",.02)
  1. ;;00172-4099-60
  1. ;;9002226.02101,"976,00172-4099-70 ",.01)
  1. ;;00172-4099-70
  1. ;;9002226.02101,"976,00172-4099-70 ",.02)
  1. ;;00172-4099-70
  1. ;;9002226.02101,"976,00172-4141-60 ",.01)
  1. ;;00172-4141-60
  1. ;;9002226.02101,"976,00172-4141-60 ",.02)
  1. ;;00172-4141-60
  1. ;;9002226.02101,"976,00172-4348-10 ",.01)
  1. ;;00172-4348-10
  1. ;;9002226.02101,"976,00172-4348-10 ",.02)
  1. ;;00172-4348-10
  1. ;;9002226.02101,"976,00172-4348-60 ",.01)
  1. ;;00172-4348-60
  1. ;;9002226.02101,"976,00172-4348-60 ",.02)
  1. ;;00172-4348-60
  1. ;;9002226.02101,"976,00172-4348-70 ",.01)
  1. ;;00172-4348-70
  1. ;;9002226.02101,"976,00172-4348-70 ",.02)
  1. ;;00172-4348-70
  1. ;;9002226.02101,"976,00182-1681-89 ",.01)
  1. ;;00182-1681-89
  1. ;;9002226.02101,"976,00182-1681-89 ",.02)
  1. ;;00182-1681-89
  1. ;;9002226.02101,"976,00182-1682-89 ",.01)
  1. ;;00182-1682-89
  1. ;;9002226.02101,"976,00182-1682-89 ",.02)
  1. ;;00182-1682-89
  1. ;;9002226.02101,"976,00182-1809-89 ",.01)
  1. ;;00182-1809-89
  1. ;;9002226.02101,"976,00182-1809-89 ",.02)
  1. ;;00182-1809-89
  1. ;;9002226.02101,"976,00182-1810-89 ",.01)
  1. ;;00182-1810-89
  1. ;;9002226.02101,"976,00182-1810-89 ",.02)
  1. ;;00182-1810-89
  1. ;;9002226.02101,"976,00182-1895-01 ",.01)
  1. ;;00182-1895-01
  1. ;;9002226.02101,"976,00182-1895-01 ",.02)
  1. ;;00182-1895-01
  1. ;;9002226.02101,"976,00182-1899-01 ",.01)
  1. ;;00182-1899-01
  1. ;;9002226.02101,"976,00182-1899-01 ",.02)
  1. ;;00182-1899-01
  1. ;;9002226.02101,"976,00182-8240-89 ",.01)
  1. ;;00182-8240-89
  1. ;;9002226.02101,"976,00182-8240-89 ",.02)
  1. ;;00182-8240-89
  1. ;;9002226.02101,"976,00182-8241-89 ",.01)
  1. ;;00182-8241-89
  1. ;;9002226.02101,"976,00182-8241-89 ",.02)
  1. ;;00182-8241-89
  1. ;;9002226.02101,"976,00185-0139-01 ",.01)
  1. ;;00185-0139-01
  1. ;;9002226.02101,"976,00185-0139-01 ",.02)
  1. ;;00185-0139-01
  1. ;;9002226.02101,"976,00185-0139-05 ",.01)
  1. ;;00185-0139-05
  1. ;;9002226.02101,"976,00185-0139-05 ",.02)
  1. ;;00185-0139-05
  1. ;;9002226.02101,"976,00185-0139-10 ",.01)
  1. ;;00185-0139-10
  1. ;;9002226.02101,"976,00185-0139-10 ",.02)
  1. ;;00185-0139-10
  1. ;;9002226.02101,"976,00185-0140-01 ",.01)
  1. ;;00185-0140-01
  1. ;;9002226.02101,"976,00185-0140-01 ",.02)
  1. ;;00185-0140-01
  1. ;;9002226.02101,"976,00185-0140-05 ",.01)
  1. ;;00185-0140-05
  1. ;;9002226.02101,"976,00185-0140-05 ",.02)
  1. ;;00185-0140-05
  1. ;;9002226.02101,"976,00185-0141-01 ",.01)
  1. ;;00185-0141-01
  1. ;;9002226.02101,"976,00185-0141-01 ",.02)
  1. ;;00185-0141-01
  1. ;;9002226.02101,"976,00185-0141-05 ",.01)
  1. ;;00185-0141-05
  1. ;;9002226.02101,"976,00185-0141-05 ",.02)
  1. ;;00185-0141-05
  1. ;;9002226.02101,"976,00185-0145-01 ",.01)
  1. ;;00185-0145-01
  1. ;;9002226.02101,"976,00185-0145-01 ",.02)
  1. ;;00185-0145-01
  1. ;;9002226.02101,"976,00185-0145-05 ",.01)
  1. ;;00185-0145-05
  1. ;;9002226.02101,"976,00185-0145-05 ",.02)
  1. ;;00185-0145-05
  1. ;;9002226.02101,"976,00185-0146-01 ",.01)
  1. ;;00185-0146-01
  1. ;;9002226.02101,"976,00185-0146-01 ",.02)
  1. ;;00185-0146-01
  1. ;;9002226.02101,"976,00185-0146-05 ",.01)
  1. ;;00185-0146-05
  1. ;;9002226.02101,"976,00185-0146-05 ",.02)
  1. ;;00185-0146-05
  1. ;;9002226.02101,"976,00185-0720-01 ",.01)
  1. ;;00185-0720-01
  1. ;;9002226.02101,"976,00185-0720-01 ",.02)
  1. ;;00185-0720-01
  1. ;;9002226.02101,"976,00185-0720-05 ",.01)
  1. ;;00185-0720-05
  1. ;;9002226.02101,"976,00185-0720-05 ",.02)
  1. ;;00185-0720-05
  1. ;;9002226.02101,"976,00185-0720-60 ",.01)
  1. ;;00185-0720-60
  1. ;;9002226.02101,"976,00185-0720-60 ",.02)
  1. ;;00185-0720-60
  1. ;;9002226.02101,"976,00223-1091-05 ",.01)
  1. ;;00223-1091-05
  1. ;;9002226.02101,"976,00223-1091-05 ",.02)
  1. ;;00223-1091-05
  1. ;;9002226.02101,"976,00223-1092-01 ",.01)
  1. ;;00223-1092-01
  1. ;;9002226.02101,"976,00223-1092-01 ",.02)
  1. ;;00223-1092-01
  1. ;;9002226.02101,"976,00223-1092-05 ",.01)
  1. ;;00223-1092-05
  1. ;;9002226.02101,"976,00223-1092-05 ",.02)
  1. ;;00223-1092-05
  1. ;;9002226.02101,"976,00223-1093-01 ",.01)
  1. ;;00223-1093-01
  1. ;;9002226.02101,"976,00223-1093-01 ",.02)
  1. ;;00223-1093-01
  1. ;;9002226.02101,"976,00223-1093-05 ",.01)
  1. ;;00223-1093-05
  1. ;;9002226.02101,"976,00223-1093-05 ",.02)
  1. ;;00223-1093-05
  1. ;;9002226.02101,"976,00223-1195-01 ",.01)
  1. ;;00223-1195-01
  1. ;;9002226.02101,"976,00223-1195-01 ",.02)
  1. ;;00223-1195-01
  1. ;;9002226.02101,"976,00223-1195-05 ",.01)
  1. ;;00223-1195-05
  1. ;;9002226.02101,"976,00223-1195-05 ",.02)
  1. ;;00223-1195-05
  1. ;;9002226.02101,"976,00223-1196-01 ",.01)
  1. ;;00223-1196-01
  1. ;;9002226.02101,"976,00223-1196-01 ",.02)
  1. ;;00223-1196-01
  1. ;;9002226.02101,"976,00223-1196-05 ",.01)
  1. ;;00223-1196-05
  1. ;;9002226.02101,"976,00223-1196-05 ",.02)
  1. ;;00223-1196-05
  1. ;;9002226.02101,"976,00228-2550-06 ",.01)
  1. ;;00228-2550-06
  1. ;;9002226.02101,"976,00228-2550-06 ",.02)
  1. ;;00228-2550-06
  1. ;;9002226.02101,"976,00228-2550-11 ",.01)
  1. ;;00228-2550-11
  1. ;;9002226.02101,"976,00228-2550-11 ",.02)
  1. ;;00228-2550-11
  1. ;;9002226.02101,"976,00228-2550-96 ",.01)
  1. ;;00228-2550-96
  1. ;;9002226.02101,"976,00228-2550-96 ",.02)
  1. ;;00228-2550-96
  1. ;;9002226.02101,"976,00228-2551-06 ",.01)
  1. ;;00228-2551-06
  1. ;;9002226.02101,"976,00228-2551-06 ",.02)
  1. ;;00228-2551-06
  1. ;;9002226.02101,"976,00228-2551-11 ",.01)
  1. ;;00228-2551-11
  1. ;;9002226.02101,"976,00228-2551-11 ",.02)
  1. ;;00228-2551-11
  1. ;;9002226.02101,"976,00228-2551-96 ",.01)
  1. ;;00228-2551-96
  1. ;;9002226.02101,"976,00228-2551-96 ",.02)
  1. ;;00228-2551-96
  1. ;;9002226.02101,"976,00228-2599-11 ",.01)
  1. ;;00228-2599-11
  1. ;;9002226.02101,"976,00228-2599-11 ",.02)
  1. ;;00228-2599-11
  1. ;;9002226.02101,"976,00228-2599-50 ",.01)
  1. ;;00228-2599-50
  1. ;;9002226.02101,"976,00228-2599-50 ",.02)
  1. ;;00228-2599-50
  1. ;;9002226.02101,"976,00228-2632-11 ",.01)
  1. ;;00228-2632-11
  1. ;;9002226.02101,"976,00228-2632-11 ",.02)
  1. ;;00228-2632-11
  1. ;;9002226.02101,"976,00228-2671-11 ",.01)
  1. ;;00228-2671-11
  1. ;;9002226.02101,"976,00228-2671-11 ",.02)
  1. ;;00228-2671-11
  1. ;;9002226.02101,"976,00228-2671-50 ",.01)
  1. ;;00228-2671-50
  1. ;;9002226.02101,"976,00228-2671-50 ",.02)
  1. ;;00228-2671-50
  1. ;;9002226.02101,"976,00228-2717-11 ",.01)
  1. ;;00228-2717-11
  1. ;;9002226.02101,"976,00228-2717-11 ",.02)
  1. ;;00228-2717-11
  1. ;;9002226.02101,"976,00378-0076-01 ",.01)
  1. ;;00378-0076-01
  1. ;;9002226.02101,"976,00378-0076-01 ",.02)
  1. ;;00378-0076-01
  1. ;;9002226.02101,"976,00378-0093-01 ",.01)
  1. ;;00378-0093-01
  1. ;;9002226.02101,"976,00378-0093-01 ",.02)
  1. ;;00378-0093-01
  1. ;;9002226.02101,"976,00378-0093-05 ",.01)
  1. ;;00378-0093-05
  1. ;;9002226.02101,"976,00378-0093-05 ",.02)
  1. ;;00378-0093-05
  1. ;;9002226.02101,"976,00378-0143-01 ",.01)
  1. ;;00378-0143-01
  1. ;;9002226.02101,"976,00378-0143-01 ",.02)
  1. ;;00378-0143-01
  1. ;;9002226.02101,"976,00378-0143-10 ",.01)
  1. ;;00378-0143-10
  1. ;;9002226.02101,"976,00378-0143-10 ",.02)
  1. ;;00378-0143-10
  1. ;;9002226.02101,"976,00378-0147-01 ",.01)
  1. ;;00378-0147-01
  1. ;;9002226.02101,"976,00378-0147-01 ",.02)
  1. ;;00378-0147-01
  1. ;;9002226.02101,"976,00378-0147-05 ",.01)
  1. ;;00378-0147-05
  1. ;;9002226.02101,"976,00378-0147-05 ",.02)
  1. ;;00378-0147-05
  1. ;;9002226.02101,"976,00378-0237-01 ",.01)
  1. ;;00378-0237-01
  1. ;;9002226.02101,"976,00378-0237-01 ",.02)
  1. ;;00378-0237-01
  1. ;;9002226.02101,"976,00378-0313-01 ",.01)
  1. ;;00378-0313-01
  1. ;;9002226.02101,"976,00378-0313-01 ",.02)
  1. ;;00378-0313-01
  1. ;;9002226.02101,"976,00378-0355-01 ",.01)
  1. ;;00378-0355-01
  1. ;;9002226.02101,"976,00378-0355-01 ",.02)
  1. ;;00378-0355-01
  1. ;;9002226.02101,"976,00378-0377-01 ",.01)
  1. ;;00378-0377-01
  1. ;;9002226.02101,"976,00378-0377-01 ",.02)
  1. ;;00378-0377-01
  1. ;;9002226.02101,"976,00378-0377-05 ",.01)
  1. ;;00378-0377-05
  1. ;;9002226.02101,"976,00378-0377-05 ",.02)
  1. ;;00378-0377-05
  1. ;;9002226.02101,"976,00378-0427-01 ",.01)
  1. ;;00378-0427-01
  1. ;;9002226.02101,"976,00378-0427-01 ",.02)
  1. ;;00378-0427-01
  1. ;;9002226.02101,"976,00378-0451-01 ",.01)
  1. ;;00378-0451-01
  1. ;;9002226.02101,"976,00378-0451-01 ",.02)
  1. ;;00378-0451-01
  1. ;;9002226.02101,"976,00378-0451-05 ",.01)
  1. ;;00378-0451-05