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

BGP06A37.m

Go to the documentation of this file.
BGP06A37 ;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,"974,00839-6482-69 ",.01)
 ;;00839-6482-69
 ;;9002226.02101,"974,00839-6482-69 ",.02)
 ;;00839-6482-69
 ;;9002226.02101,"974,00839-6568-69 ",.01)
 ;;00839-6568-69
 ;;9002226.02101,"974,00839-6568-69 ",.02)
 ;;00839-6568-69
 ;;9002226.02101,"974,00839-6588-06 ",.01)
 ;;00839-6588-06
 ;;9002226.02101,"974,00839-6588-06 ",.02)
 ;;00839-6588-06
 ;;9002226.02101,"974,00839-6588-12 ",.01)
 ;;00839-6588-12
 ;;9002226.02101,"974,00839-6588-12 ",.02)
 ;;00839-6588-12
 ;;9002226.02101,"974,00839-6614-06 ",.01)
 ;;00839-6614-06
 ;;9002226.02101,"974,00839-6614-06 ",.02)
 ;;00839-6614-06
 ;;9002226.02101,"974,00839-6641-04 ",.01)
 ;;00839-6641-04
 ;;9002226.02101,"974,00839-6641-04 ",.02)
 ;;00839-6641-04
 ;;9002226.02101,"974,00839-6641-12 ",.01)
 ;;00839-6641-12
 ;;9002226.02101,"974,00839-6641-12 ",.02)
 ;;00839-6641-12
 ;;9002226.02101,"974,00839-6699-69 ",.01)
 ;;00839-6699-69
 ;;9002226.02101,"974,00839-6699-69 ",.02)
 ;;00839-6699-69
 ;;9002226.02101,"974,00839-6714-69 ",.01)
 ;;00839-6714-69
 ;;9002226.02101,"974,00839-6714-69 ",.02)
 ;;00839-6714-69
 ;;9002226.02101,"974,00839-6718-69 ",.01)
 ;;00839-6718-69
 ;;9002226.02101,"974,00839-6718-69 ",.02)
 ;;00839-6718-69
 ;;9002226.02101,"974,00839-7262-06 ",.01)
 ;;00839-7262-06
 ;;9002226.02101,"974,00839-7262-06 ",.02)
 ;;00839-7262-06
 ;;9002226.02101,"974,00839-7263-06 ",.01)
 ;;00839-7263-06
 ;;9002226.02101,"974,00839-7263-06 ",.02)
 ;;00839-7263-06
 ;;9002226.02101,"974,00839-7284-06 ",.01)
 ;;00839-7284-06
 ;;9002226.02101,"974,00839-7284-06 ",.02)
 ;;00839-7284-06
 ;;9002226.02101,"974,00839-7311-06 ",.01)
 ;;00839-7311-06
 ;;9002226.02101,"974,00839-7311-06 ",.02)
 ;;00839-7311-06
 ;;9002226.02101,"974,00839-7311-12 ",.01)
 ;;00839-7311-12
 ;;9002226.02101,"974,00839-7311-12 ",.02)
 ;;00839-7311-12
 ;;9002226.02101,"974,00839-7312-06 ",.01)
 ;;00839-7312-06
 ;;9002226.02101,"974,00839-7312-06 ",.02)
 ;;00839-7312-06
 ;;9002226.02101,"974,00839-7312-12 ",.01)
 ;;00839-7312-12
 ;;9002226.02101,"974,00839-7312-12 ",.02)
 ;;00839-7312-12
 ;;9002226.02101,"974,00839-7313-73 ",.01)
 ;;00839-7313-73
 ;;9002226.02101,"974,00839-7313-73 ",.02)
 ;;00839-7313-73
 ;;9002226.02101,"974,00839-7313-78 ",.01)
 ;;00839-7313-78
 ;;9002226.02101,"974,00839-7313-78 ",.02)
 ;;00839-7313-78
 ;;9002226.02101,"974,00839-7314-73 ",.01)
 ;;00839-7314-73
 ;;9002226.02101,"974,00839-7314-73 ",.02)
 ;;00839-7314-73
 ;;9002226.02101,"974,00839-7314-78 ",.01)
 ;;00839-7314-78
 ;;9002226.02101,"974,00839-7314-78 ",.02)
 ;;00839-7314-78
 ;;9002226.02101,"974,00839-7433-06 ",.01)
 ;;00839-7433-06
 ;;9002226.02101,"974,00839-7433-06 ",.02)
 ;;00839-7433-06
 ;;9002226.02101,"974,00839-7461-06 ",.01)
 ;;00839-7461-06
 ;;9002226.02101,"974,00839-7461-06 ",.02)
 ;;00839-7461-06
 ;;9002226.02101,"974,00839-7462-06 ",.01)
 ;;00839-7462-06
 ;;9002226.02101,"974,00839-7462-06 ",.02)
 ;;00839-7462-06
 ;;9002226.02101,"974,00839-7514-73 ",.01)
 ;;00839-7514-73
 ;;9002226.02101,"974,00839-7514-73 ",.02)
 ;;00839-7514-73
 ;;9002226.02101,"974,00839-7514-75 ",.01)
 ;;00839-7514-75
 ;;9002226.02101,"974,00839-7514-75 ",.02)
 ;;00839-7514-75
 ;;9002226.02101,"974,00839-7514-78 ",.01)
 ;;00839-7514-78
 ;;9002226.02101,"974,00839-7514-78 ",.02)
 ;;00839-7514-78
 ;;9002226.02101,"974,00839-7534-06 ",.01)
 ;;00839-7534-06
 ;;9002226.02101,"974,00839-7534-06 ",.02)
 ;;00839-7534-06
 ;;9002226.02101,"974,00839-7602-06 ",.01)
 ;;00839-7602-06
 ;;9002226.02101,"974,00839-7602-06 ",.02)
 ;;00839-7602-06
 ;;9002226.02101,"974,00839-7602-12 ",.01)
 ;;00839-7602-12
 ;;9002226.02101,"974,00839-7602-12 ",.02)
 ;;00839-7602-12
 ;;9002226.02101,"974,00839-7649-06 ",.01)
 ;;00839-7649-06
 ;;9002226.02101,"974,00839-7649-06 ",.02)
 ;;00839-7649-06
 ;;9002226.02101,"974,00839-7650-04 ",.01)
 ;;00839-7650-04
 ;;9002226.02101,"974,00839-7650-04 ",.02)
 ;;00839-7650-04
 ;;9002226.02101,"974,00839-7656-06 ",.01)
 ;;00839-7656-06
 ;;9002226.02101,"974,00839-7656-06 ",.02)
 ;;00839-7656-06
 ;;9002226.02101,"974,00839-7656-12 ",.01)
 ;;00839-7656-12
 ;;9002226.02101,"974,00839-7656-12 ",.02)
 ;;00839-7656-12
 ;;9002226.02101,"974,00839-7660-06 ",.01)
 ;;00839-7660-06
 ;;9002226.02101,"974,00839-7660-06 ",.02)
 ;;00839-7660-06
 ;;9002226.02101,"974,00839-7694-12 ",.01)
 ;;00839-7694-12
 ;;9002226.02101,"974,00839-7694-12 ",.02)
 ;;00839-7694-12
 ;;9002226.02101,"974,00839-7709-69 ",.01)
 ;;00839-7709-69
 ;;9002226.02101,"974,00839-7709-69 ",.02)
 ;;00839-7709-69
 ;;9002226.02101,"974,00839-7776-06 ",.01)
 ;;00839-7776-06
 ;;9002226.02101,"974,00839-7776-06 ",.02)
 ;;00839-7776-06
 ;;9002226.02101,"974,00839-7776-12 ",.01)
 ;;00839-7776-12
 ;;9002226.02101,"974,00839-7776-12 ",.02)
 ;;00839-7776-12
 ;;9002226.02101,"974,00839-7956-55 ",.01)
 ;;00839-7956-55
 ;;9002226.02101,"974,00839-7956-55 ",.02)
 ;;00839-7956-55
 ;;9002226.02101,"974,00839-7956-75 ",.01)
 ;;00839-7956-75
 ;;9002226.02101,"974,00839-7956-75 ",.02)
 ;;00839-7956-75
 ;;9002226.02101,"974,00839-7957-59 ",.01)
 ;;00839-7957-59
 ;;9002226.02101,"974,00839-7957-59 ",.02)
 ;;00839-7957-59
 ;;9002226.02101,"974,00839-7957-73 ",.01)
 ;;00839-7957-73
 ;;9002226.02101,"974,00839-7957-73 ",.02)
 ;;00839-7957-73
 ;;9002226.02101,"974,00839-7958-06 ",.01)
 ;;00839-7958-06
 ;;9002226.02101,"974,00839-7958-06 ",.02)
 ;;00839-7958-06
 ;;9002226.02101,"974,00839-7959-55 ",.01)
 ;;00839-7959-55
 ;;9002226.02101,"974,00839-7959-55 ",.02)
 ;;00839-7959-55
 ;;9002226.02101,"974,00839-7959-75 ",.01)
 ;;00839-7959-75
 ;;9002226.02101,"974,00839-7959-75 ",.02)
 ;;00839-7959-75
 ;;9002226.02101,"974,00839-7960-59 ",.01)
 ;;00839-7960-59
 ;;9002226.02101,"974,00839-7960-59 ",.02)
 ;;00839-7960-59
 ;;9002226.02101,"974,00839-7960-73 ",.01)
 ;;00839-7960-73
 ;;9002226.02101,"974,00839-7960-73 ",.02)
 ;;00839-7960-73
 ;;9002226.02101,"974,00839-7961-06 ",.01)
 ;;00839-7961-06
 ;;9002226.02101,"974,00839-7961-06 ",.02)
 ;;00839-7961-06
 ;;9002226.02101,"974,00879-0158-01 ",.01)
 ;;00879-0158-01
 ;;9002226.02101,"974,00879-0158-01 ",.02)
 ;;00879-0158-01
 ;;9002226.02101,"974,00879-0158-10 ",.01)
 ;;00879-0158-10
 ;;9002226.02101,"974,00879-0158-10 ",.02)
 ;;00879-0158-10
 ;;9002226.02101,"974,00879-0159-01 ",.01)
 ;;00879-0159-01
 ;;9002226.02101,"974,00879-0159-01 ",.02)
 ;;00879-0159-01
 ;;9002226.02101,"974,00879-0159-10 ",.01)
 ;;00879-0159-10
 ;;9002226.02101,"974,00879-0159-10 ",.02)
 ;;00879-0159-10
 ;;9002226.02101,"974,00879-0525-50 ",.01)
 ;;00879-0525-50
 ;;9002226.02101,"974,00879-0525-50 ",.02)
 ;;00879-0525-50
 ;;9002226.02101,"974,00879-0526-05 ",.01)
 ;;00879-0526-05
 ;;9002226.02101,"974,00879-0526-05 ",.02)
 ;;00879-0526-05
 ;;9002226.02101,"974,00879-0526-50 ",.01)
 ;;00879-0526-50
 ;;9002226.02101,"974,00879-0526-50 ",.02)
 ;;00879-0526-50
 ;;9002226.02101,"974,00879-0725-05 ",.01)
 ;;00879-0725-05
 ;;9002226.02101,"974,00879-0725-05 ",.02)
 ;;00879-0725-05
 ;;9002226.02101,"974,00879-0725-50 ",.01)
 ;;00879-0725-50
 ;;9002226.02101,"974,00879-0725-50 ",.02)
 ;;00879-0725-50
 ;;9002226.02101,"974,00884-4557-30 ",.01)
 ;;00884-4557-30
 ;;9002226.02101,"974,00884-4557-30 ",.02)
 ;;00884-4557-30
 ;;9002226.02101,"974,00884-4558-20 ",.01)
 ;;00884-4558-20
 ;;9002226.02101,"974,00884-4558-20 ",.02)
 ;;00884-4558-20
 ;;9002226.02101,"974,00904-0405-16 ",.01)
 ;;00904-0405-16
 ;;9002226.02101,"974,00904-0405-16 ",.02)
 ;;00904-0405-16
 ;;9002226.02101,"974,00904-0406-16 ",.01)
 ;;00904-0406-16
 ;;9002226.02101,"974,00904-0406-16 ",.02)
 ;;00904-0406-16
 ;;9002226.02101,"974,00904-0427-51 ",.01)
 ;;00904-0427-51
 ;;9002226.02101,"974,00904-0427-51 ",.02)
 ;;00904-0427-51
 ;;9002226.02101,"974,00904-0427-61 ",.01)
 ;;00904-0427-61
 ;;9002226.02101,"974,00904-0427-61 ",.02)
 ;;00904-0427-61
 ;;9002226.02101,"974,00904-0428-40 ",.01)
 ;;00904-0428-40
 ;;9002226.02101,"974,00904-0428-40 ",.02)
 ;;00904-0428-40
 ;;9002226.02101,"974,00904-0428-51 ",.01)
 ;;00904-0428-51
 ;;9002226.02101,"974,00904-0428-51 ",.02)
 ;;00904-0428-51
 ;;9002226.02101,"974,00904-0428-61 ",.01)
 ;;00904-0428-61
 ;;9002226.02101,"974,00904-0428-61 ",.02)
 ;;00904-0428-61
 ;;9002226.02101,"974,00904-0428-95 ",.01)
 ;;00904-0428-95
 ;;9002226.02101,"974,00904-0428-95 ",.02)
 ;;00904-0428-95
 ;;9002226.02101,"974,00904-0429-51 ",.01)
 ;;00904-0429-51
 ;;9002226.02101,"974,00904-0429-51 ",.02)
 ;;00904-0429-51
 ;;9002226.02101,"974,00904-0430-40 ",.01)
 ;;00904-0430-40
 ;;9002226.02101,"974,00904-0430-40 ",.02)
 ;;00904-0430-40
 ;;9002226.02101,"974,00904-0430-51 ",.01)
 ;;00904-0430-51
 ;;9002226.02101,"974,00904-0430-51 ",.02)
 ;;00904-0430-51
 ;;9002226.02101,"974,00904-0430-61 ",.01)
 ;;00904-0430-61
 ;;9002226.02101,"974,00904-0430-61 ",.02)
 ;;00904-0430-61
 ;;9002226.02101,"974,00904-1646-60 ",.01)
 ;;00904-1646-60
 ;;9002226.02101,"974,00904-1646-60 ",.02)
 ;;00904-1646-60
 ;;9002226.02101,"974,00904-1646-61 ",.01)
 ;;00904-1646-61
 ;;9002226.02101,"974,00904-1646-61 ",.02)
 ;;00904-1646-61
 ;;9002226.02101,"974,00904-1647-60 ",.01)
 ;;00904-1647-60
 ;;9002226.02101,"974,00904-1647-60 ",.02)
 ;;00904-1647-60
 ;;9002226.02101,"974,00904-1647-61 ",.01)
 ;;00904-1647-61
 ;;9002226.02101,"974,00904-1647-61 ",.02)
 ;;00904-1647-61
 ;;9002226.02101,"974,00904-2017-40 ",.01)
 ;;00904-2017-40
 ;;9002226.02101,"974,00904-2017-40 ",.02)
 ;;00904-2017-40
 ;;9002226.02101,"974,00904-2017-60 ",.01)
 ;;00904-2017-60
 ;;9002226.02101,"974,00904-2017-60 ",.02)
 ;;00904-2017-60
 ;;9002226.02101,"974,00904-2073-40 ",.01)
 ;;00904-2073-40
 ;;9002226.02101,"974,00904-2073-40 ",.02)
 ;;00904-2073-40
 ;;9002226.02101,"974,00904-2073-60 ",.01)
 ;;00904-2073-60
 ;;9002226.02101,"974,00904-2073-60 ",.02)
 ;;00904-2073-60
 ;;9002226.02101,"974,00904-2218-60 ",.01)
 ;;00904-2218-60
 ;;9002226.02101,"974,00904-2218-60 ",.02)
 ;;00904-2218-60
 ;;9002226.02101,"974,00904-2218-80 ",.01)
 ;;00904-2218-80
 ;;9002226.02101,"974,00904-2218-80 ",.02)
 ;;00904-2218-80
 ;;9002226.02101,"974,00904-2407-60 ",.01)
 ;;00904-2407-60
 ;;9002226.02101,"974,00904-2407-60 ",.02)
 ;;00904-2407-60
 ;;9002226.02101,"974,00904-2407-80 ",.01)
 ;;00904-2407-80
 ;;9002226.02101,"974,00904-2407-80 ",.02)
 ;;00904-2407-80
 ;;9002226.02101,"974,00904-2413-60 ",.01)
 ;;00904-2413-60
 ;;9002226.02101,"974,00904-2413-60 ",.02)
 ;;00904-2413-60
 ;;9002226.02101,"974,00904-2413-61 ",.01)
 ;;00904-2413-61
 ;;9002226.02101,"974,00904-2413-61 ",.02)
 ;;00904-2413-61
 ;;9002226.02101,"974,00904-2414-51 ",.01)
 ;;00904-2414-51
 ;;9002226.02101,"974,00904-2414-51 ",.02)
 ;;00904-2414-51
 ;;9002226.02101,"974,00904-2414-61 ",.01)
 ;;00904-2414-61
 ;;9002226.02101,"974,00904-2414-61 ",.02)
 ;;00904-2414-61
 ;;9002226.02101,"974,00904-2416-60 ",.01)
 ;;00904-2416-60
 ;;9002226.02101,"974,00904-2416-60 ",.02)
 ;;00904-2416-60
 ;;9002226.02101,"974,00904-2416-80 ",.01)
 ;;00904-2416-80
 ;;9002226.02101,"974,00904-2416-80 ",.02)
 ;;00904-2416-80
 ;;9002226.02101,"974,00904-2449-60 ",.01)
 ;;00904-2449-60
 ;;9002226.02101,"974,00904-2449-60 ",.02)
 ;;00904-2449-60
 ;;9002226.02101,"974,00904-2450-60 ",.01)
 ;;00904-2450-60
 ;;9002226.02101,"974,00904-2450-60 ",.02)
 ;;00904-2450-60
 ;;9002226.02101,"974,00904-2450-80 ",.01)
 ;;00904-2450-80
 ;;9002226.02101,"974,00904-2450-80 ",.02)
 ;;00904-2450-80
 ;;9002226.02101,"974,00904-2451-60 ",.01)
 ;;00904-2451-60
 ;;9002226.02101,"974,00904-2451-60 ",.02)
 ;;00904-2451-60
 ;;9002226.02101,"974,00904-2451-80 ",.01)
 ;;00904-2451-80
 ;;9002226.02101,"974,00904-2451-80 ",.02)
 ;;00904-2451-80
 ;;9002226.02101,"974,00904-2452-60 ",.01)
 ;;00904-2452-60
 ;;9002226.02101,"974,00904-2452-60 ",.02)
 ;;00904-2452-60
 ;;9002226.02101,"974,00904-2452-80 ",.01)
 ;;00904-2452-80
 ;;9002226.02101,"974,00904-2452-80 ",.02)
 ;;00904-2452-80
 ;;9002226.02101,"974,00904-2458-60 ",.01)
 ;;00904-2458-60
 ;;9002226.02101,"974,00904-2458-60 ",.02)
 ;;00904-2458-60
 ;;9002226.02101,"974,00904-2459-40 ",.01)
 ;;00904-2459-40
 ;;9002226.02101,"974,00904-2459-40 ",.02)
 ;;00904-2459-40
 ;;9002226.02101,"974,00904-2459-60 ",.01)
 ;;00904-2459-60
 ;;9002226.02101,"974,00904-2459-60 ",.02)
 ;;00904-2459-60
 ;;9002226.02101,"974,00904-2462-16 ",.01)
 ;;00904-2462-16
 ;;9002226.02101,"974,00904-2462-16 ",.02)
 ;;00904-2462-16
 ;;9002226.02101,"974,00904-2463-16 ",.01)
 ;;00904-2463-16
 ;;9002226.02101,"974,00904-2463-16 ",.02)
 ;;00904-2463-16
 ;;9002226.02101,"974,00904-2464-39 ",.01)
 ;;00904-2464-39
 ;;9002226.02101,"974,00904-2464-39 ",.02)
 ;;00904-2464-39
 ;;9002226.02101,"974,00904-2464-40 ",.01)
 ;;00904-2464-40
 ;;9002226.02101,"974,00904-2464-40 ",.02)
 ;;00904-2464-40
 ;;9002226.02101,"974,00904-2464-60 ",.01)
 ;;00904-2464-60
 ;;9002226.02101,"974,00904-2464-60 ",.02)
 ;;00904-2464-60
 ;;9002226.02101,"974,00904-2465-40 ",.01)
 ;;00904-2465-40
 ;;9002226.02101,"974,00904-2465-40 ",.02)
 ;;00904-2465-40
 ;;9002226.02101,"974,00904-2465-60 ",.01)
 ;;00904-2465-60
 ;;9002226.02101,"974,00904-2465-60 ",.02)
 ;;00904-2465-60
 ;;9002226.02101,"974,00904-2468-60 ",.01)
 ;;00904-2468-60
 ;;9002226.02101,"974,00904-2468-60 ",.02)
 ;;00904-2468-60
 ;;9002226.02101,"974,00904-2470-16 ",.01)
 ;;00904-2470-16
 ;;9002226.02101,"974,00904-2470-16 ",.02)
 ;;00904-2470-16
 ;;9002226.02101,"974,00904-2471-16 ",.01)
 ;;00904-2471-16
 ;;9002226.02101,"974,00904-2471-16 ",.02)
 ;;00904-2471-16
 ;;9002226.02101,"974,00904-2472-40 ",.01)
 ;;00904-2472-40
 ;;9002226.02101,"974,00904-2472-40 ",.02)
 ;;00904-2472-40