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