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

BGP06B17.m

Go to the documentation of this file.
  1. BGP06B17 ;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,"975,00591-0809-05 ",.01)
  1. ;;00591-0809-05
  1. ;;9002226.02101,"975,00591-0809-05 ",.02)
  1. ;;00591-0809-05
  1. ;;9002226.02101,"975,00591-0826-01 ",.01)
  1. ;;00591-0826-01
  1. ;;9002226.02101,"975,00591-0826-01 ",.02)
  1. ;;00591-0826-01
  1. ;;9002226.02101,"975,00591-0826-10 ",.01)
  1. ;;00591-0826-10
  1. ;;9002226.02101,"975,00591-0826-10 ",.02)
  1. ;;00591-0826-10
  1. ;;9002226.02101,"975,00591-0827-01 ",.01)
  1. ;;00591-0827-01
  1. ;;9002226.02101,"975,00591-0827-01 ",.02)
  1. ;;00591-0827-01
  1. ;;9002226.02101,"975,00591-0827-10 ",.01)
  1. ;;00591-0827-10
  1. ;;9002226.02101,"975,00591-0827-10 ",.02)
  1. ;;00591-0827-10
  1. ;;9002226.02101,"975,00591-0827-30 ",.01)
  1. ;;00591-0827-30
  1. ;;9002226.02101,"975,00591-0827-30 ",.02)
  1. ;;00591-0827-30
  1. ;;9002226.02101,"975,00591-0839-25 ",.01)
  1. ;;00591-0839-25
  1. ;;9002226.02101,"975,00591-0839-25 ",.02)
  1. ;;00591-0839-25
  1. ;;9002226.02101,"975,00591-0839-60 ",.01)
  1. ;;00591-0839-60
  1. ;;9002226.02101,"975,00591-0839-60 ",.02)
  1. ;;00591-0839-60
  1. ;;9002226.02101,"975,00591-0858-60 ",.01)
  1. ;;00591-0858-60
  1. ;;9002226.02101,"975,00591-0858-60 ",.02)
  1. ;;00591-0858-60
  1. ;;9002226.02101,"975,00591-0867-60 ",.01)
  1. ;;00591-0867-60
  1. ;;9002226.02101,"975,00591-0867-60 ",.02)
  1. ;;00591-0867-60
  1. ;;9002226.02101,"975,00591-0867-76 ",.01)
  1. ;;00591-0867-76
  1. ;;9002226.02101,"975,00591-0867-76 ",.02)
  1. ;;00591-0867-76
  1. ;;9002226.02101,"975,00591-1117-30 ",.01)
  1. ;;00591-1117-30
  1. ;;9002226.02101,"975,00591-1117-30 ",.02)
  1. ;;00591-1117-30
  1. ;;9002226.02101,"975,00591-1118-30 ",.01)
  1. ;;00591-1118-30
  1. ;;9002226.02101,"975,00591-1118-30 ",.02)
  1. ;;00591-1118-30
  1. ;;9002226.02101,"975,00591-1119-30 ",.01)
  1. ;;00591-1119-30
  1. ;;9002226.02101,"975,00591-1119-30 ",.02)
  1. ;;00591-1119-30
  1. ;;9002226.02101,"975,00591-2114-01 ",.01)
  1. ;;00591-2114-01
  1. ;;9002226.02101,"975,00591-2114-01 ",.02)
  1. ;;00591-2114-01
  1. ;;9002226.02101,"975,00591-2300-01 ",.01)
  1. ;;00591-2300-01
  1. ;;9002226.02101,"975,00591-2300-01 ",.02)
  1. ;;00591-2300-01
  1. ;;9002226.02101,"975,00591-3176-01 ",.01)
  1. ;;00591-3176-01
  1. ;;9002226.02101,"975,00591-3176-01 ",.02)
  1. ;;00591-3176-01
  1. ;;9002226.02101,"975,00591-3176-05 ",.01)
  1. ;;00591-3176-05
  1. ;;9002226.02101,"975,00591-3176-05 ",.02)
  1. ;;00591-3176-05
  1. ;;9002226.02101,"975,00591-3177-01 ",.01)
  1. ;;00591-3177-01
  1. ;;9002226.02101,"975,00591-3177-01 ",.02)
  1. ;;00591-3177-01
  1. ;;9002226.02101,"975,00591-3177-05 ",.01)
  1. ;;00591-3177-05
  1. ;;9002226.02101,"975,00591-3177-05 ",.02)
  1. ;;00591-3177-05
  1. ;;9002226.02101,"975,00591-3178-01 ",.01)
  1. ;;00591-3178-01
  1. ;;9002226.02101,"975,00591-3178-01 ",.02)
  1. ;;00591-3178-01
  1. ;;9002226.02101,"975,00591-3178-05 ",.01)
  1. ;;00591-3178-05
  1. ;;9002226.02101,"975,00591-3178-05 ",.02)
  1. ;;00591-3178-05
  1. ;;9002226.02101,"975,00591-3385-60 ",.01)
  1. ;;00591-3385-60
  1. ;;9002226.02101,"975,00591-3385-60 ",.02)
  1. ;;00591-3385-60
  1. ;;9002226.02101,"975,00591-5599-01 ",.01)
  1. ;;00591-5599-01
  1. ;;9002226.02101,"975,00591-5599-01 ",.02)
  1. ;;00591-5599-01
  1. ;;9002226.02101,"975,00591-5599-10 ",.01)
  1. ;;00591-5599-10
  1. ;;9002226.02101,"975,00591-5599-10 ",.02)
  1. ;;00591-5599-10
  1. ;;9002226.02101,"975,00591-5600-01 ",.01)
  1. ;;00591-5600-01
  1. ;;9002226.02101,"975,00591-5600-01 ",.02)
  1. ;;00591-5600-01
  1. ;;9002226.02101,"975,00591-5600-10 ",.01)
  1. ;;00591-5600-10
  1. ;;9002226.02101,"975,00591-5600-10 ",.02)
  1. ;;00591-5600-10
  1. ;;9002226.02101,"975,00591-5629-01 ",.01)
  1. ;;00591-5629-01
  1. ;;9002226.02101,"975,00591-5629-01 ",.02)
  1. ;;00591-5629-01
  1. ;;9002226.02101,"975,00591-5630-01 ",.01)
  1. ;;00591-5630-01
  1. ;;9002226.02101,"975,00591-5630-01 ",.02)
  1. ;;00591-5630-01
  1. ;;9002226.02101,"975,00591-5630-10 ",.01)
  1. ;;00591-5630-10
  1. ;;9002226.02101,"975,00591-5630-10 ",.02)
  1. ;;00591-5630-10
  1. ;;9002226.02101,"975,00591-5631-01 ",.01)
  1. ;;00591-5631-01
  1. ;;9002226.02101,"975,00591-5631-01 ",.02)
  1. ;;00591-5631-01
  1. ;;9002226.02101,"975,00591-5631-10 ",.01)
  1. ;;00591-5631-10
  1. ;;9002226.02101,"975,00591-5631-10 ",.02)
  1. ;;00591-5631-10
  1. ;;9002226.02101,"975,00591-5632-01 ",.01)
  1. ;;00591-5632-01
  1. ;;9002226.02101,"975,00591-5632-01 ",.02)
  1. ;;00591-5632-01
  1. ;;9002226.02101,"975,00591-5633-01 ",.01)
  1. ;;00591-5633-01
  1. ;;9002226.02101,"975,00591-5633-01 ",.02)
  1. ;;00591-5633-01
  1. ;;9002226.02101,"975,00591-5713-01 ",.01)
  1. ;;00591-5713-01
  1. ;;9002226.02101,"975,00591-5713-01 ",.02)
  1. ;;00591-5713-01
  1. ;;9002226.02101,"975,00591-5714-01 ",.01)
  1. ;;00591-5714-01
  1. ;;9002226.02101,"975,00591-5714-01 ",.02)
  1. ;;00591-5714-01
  1. ;;9002226.02101,"975,00591-5715-01 ",.01)
  1. ;;00591-5715-01
  1. ;;9002226.02101,"975,00591-5715-01 ",.02)
  1. ;;00591-5715-01
  1. ;;9002226.02101,"975,00591-5716-30 ",.01)
  1. ;;00591-5716-30
  1. ;;9002226.02101,"975,00591-5716-30 ",.02)
  1. ;;00591-5716-30
  1. ;;9002226.02101,"975,00591-5786-01 ",.01)
  1. ;;00591-5786-01
  1. ;;9002226.02101,"975,00591-5786-01 ",.02)
  1. ;;00591-5786-01
  1. ;;9002226.02101,"975,00591-5786-05 ",.01)
  1. ;;00591-5786-05
  1. ;;9002226.02101,"975,00591-5786-05 ",.02)
  1. ;;00591-5786-05
  1. ;;9002226.02101,"975,00591-5787-01 ",.01)
  1. ;;00591-5787-01
  1. ;;9002226.02101,"975,00591-5787-01 ",.02)
  1. ;;00591-5787-01
  1. ;;9002226.02101,"975,00591-5787-05 ",.01)
  1. ;;00591-5787-05
  1. ;;9002226.02101,"975,00591-5787-05 ",.02)
  1. ;;00591-5787-05
  1. ;;9002226.02101,"975,00591-5787-10 ",.01)
  1. ;;00591-5787-10
  1. ;;9002226.02101,"975,00591-5787-10 ",.02)
  1. ;;00591-5787-10
  1. ;;9002226.02101,"975,00591-5788-01 ",.01)
  1. ;;00591-5788-01
  1. ;;9002226.02101,"975,00591-5788-01 ",.02)
  1. ;;00591-5788-01
  1. ;;9002226.02101,"975,00591-5788-05 ",.01)
  1. ;;00591-5788-05
  1. ;;9002226.02101,"975,00591-5788-05 ",.02)
  1. ;;00591-5788-05
  1. ;;9002226.02101,"975,00591-5789-01 ",.01)
  1. ;;00591-5789-01
  1. ;;9002226.02101,"975,00591-5789-01 ",.02)
  1. ;;00591-5789-01
  1. ;;9002226.02101,"975,00603-2212-21 ",.01)
  1. ;;00603-2212-21
  1. ;;9002226.02101,"975,00603-2212-21 ",.02)
  1. ;;00603-2212-21
  1. ;;9002226.02101,"975,00603-2212-32 ",.01)
  1. ;;00603-2212-32
  1. ;;9002226.02101,"975,00603-2212-32 ",.02)
  1. ;;00603-2212-32
  1. ;;9002226.02101,"975,00603-2213-21 ",.01)
  1. ;;00603-2213-21
  1. ;;9002226.02101,"975,00603-2213-21 ",.02)
  1. ;;00603-2213-21
  1. ;;9002226.02101,"975,00603-2213-32 ",.01)
  1. ;;00603-2213-32
  1. ;;9002226.02101,"975,00603-2213-32 ",.02)
  1. ;;00603-2213-32
  1. ;;9002226.02101,"975,00603-2214-21 ",.01)
  1. ;;00603-2214-21
  1. ;;9002226.02101,"975,00603-2214-21 ",.02)
  1. ;;00603-2214-21
  1. ;;9002226.02101,"975,00603-2214-32 ",.01)
  1. ;;00603-2214-32
  1. ;;9002226.02101,"975,00603-2214-32 ",.02)
  1. ;;00603-2214-32
  1. ;;9002226.02101,"975,00603-2215-21 ",.01)
  1. ;;00603-2215-21
  1. ;;9002226.02101,"975,00603-2215-21 ",.02)
  1. ;;00603-2215-21
  1. ;;9002226.02101,"975,00603-2216-21 ",.01)
  1. ;;00603-2216-21
  1. ;;9002226.02101,"975,00603-2216-21 ",.02)
  1. ;;00603-2216-21
  1. ;;9002226.02101,"975,00603-2217-21 ",.01)
  1. ;;00603-2217-21
  1. ;;9002226.02101,"975,00603-2217-21 ",.02)
  1. ;;00603-2217-21
  1. ;;9002226.02101,"975,00603-2240-21 ",.01)
  1. ;;00603-2240-21
  1. ;;9002226.02101,"975,00603-2240-21 ",.02)
  1. ;;00603-2240-21
  1. ;;9002226.02101,"975,00603-2241-21 ",.01)
  1. ;;00603-2241-21
  1. ;;9002226.02101,"975,00603-2241-21 ",.02)
  1. ;;00603-2241-21
  1. ;;9002226.02101,"975,00603-2242-21 ",.01)
  1. ;;00603-2242-21
  1. ;;9002226.02101,"975,00603-2242-21 ",.02)
  1. ;;00603-2242-21
  1. ;;9002226.02101,"975,00603-2243-16 ",.01)
  1. ;;00603-2243-16
  1. ;;9002226.02101,"975,00603-2243-16 ",.02)
  1. ;;00603-2243-16
  1. ;;9002226.02101,"975,00603-2690-21 ",.01)
  1. ;;00603-2690-21
  1. ;;9002226.02101,"975,00603-2690-21 ",.02)
  1. ;;00603-2690-21
  1. ;;9002226.02101,"975,00603-2690-28 ",.01)
  1. ;;00603-2690-28
  1. ;;9002226.02101,"975,00603-2690-28 ",.02)
  1. ;;00603-2690-28
  1. ;;9002226.02101,"975,00603-2691-21 ",.01)
  1. ;;00603-2691-21
  1. ;;9002226.02101,"975,00603-2691-21 ",.02)
  1. ;;00603-2691-21
  1. ;;9002226.02101,"975,00603-2691-28 ",.01)
  1. ;;00603-2691-28
  1. ;;9002226.02101,"975,00603-2691-28 ",.02)
  1. ;;00603-2691-28
  1. ;;9002226.02101,"975,00603-3166-21 ",.01)
  1. ;;00603-3166-21
  1. ;;9002226.02101,"975,00603-3166-21 ",.02)
  1. ;;00603-3166-21
  1. ;;9002226.02101,"975,00603-3167-32 ",.01)
  1. ;;00603-3167-32
  1. ;;9002226.02101,"975,00603-3167-32 ",.02)
  1. ;;00603-3167-32
  1. ;;9002226.02101,"975,00603-3458-32 ",.01)
  1. ;;00603-3458-32
  1. ;;9002226.02101,"975,00603-3458-32 ",.02)
  1. ;;00603-3458-32
  1. ;;9002226.02101,"975,00603-4043-21 ",.01)
  1. ;;00603-4043-21
  1. ;;9002226.02101,"975,00603-4043-21 ",.02)
  1. ;;00603-4043-21
  1. ;;9002226.02101,"975,00603-4043-32 ",.01)
  1. ;;00603-4043-32
  1. ;;9002226.02101,"975,00603-4043-32 ",.02)
  1. ;;00603-4043-32
  1. ;;9002226.02101,"975,00603-4044-21 ",.01)
  1. ;;00603-4044-21
  1. ;;9002226.02101,"975,00603-4044-21 ",.02)
  1. ;;00603-4044-21
  1. ;;9002226.02101,"975,00603-4044-32 ",.01)
  1. ;;00603-4044-32
  1. ;;9002226.02101,"975,00603-4044-32 ",.02)
  1. ;;00603-4044-32
  1. ;;9002226.02101,"975,00603-4045-21 ",.01)
  1. ;;00603-4045-21
  1. ;;9002226.02101,"975,00603-4045-21 ",.02)
  1. ;;00603-4045-21
  1. ;;9002226.02101,"975,00603-4045-32 ",.01)
  1. ;;00603-4045-32
  1. ;;9002226.02101,"975,00603-4045-32 ",.02)
  1. ;;00603-4045-32
  1. ;;9002226.02101,"975,00603-4294-21 ",.01)
  1. ;;00603-4294-21
  1. ;;9002226.02101,"975,00603-4294-21 ",.02)
  1. ;;00603-4294-21
  1. ;;9002226.02101,"975,00603-4295-21 ",.01)
  1. ;;00603-4295-21
  1. ;;9002226.02101,"975,00603-4295-21 ",.02)
  1. ;;00603-4295-21
  1. ;;9002226.02101,"975,00603-4296-21 ",.01)
  1. ;;00603-4296-21
  1. ;;9002226.02101,"975,00603-4296-21 ",.02)
  1. ;;00603-4296-21
  1. ;;9002226.02101,"975,00603-5115-21 ",.01)
  1. ;;00603-5115-21
  1. ;;9002226.02101,"975,00603-5115-21 ",.02)
  1. ;;00603-5115-21
  1. ;;9002226.02101,"975,00603-5115-28 ",.01)
  1. ;;00603-5115-28
  1. ;;9002226.02101,"975,00603-5115-28 ",.02)
  1. ;;00603-5115-28
  1. ;;9002226.02101,"975,00603-5116-21 ",.01)
  1. ;;00603-5116-21
  1. ;;9002226.02101,"975,00603-5116-21 ",.02)
  1. ;;00603-5116-21
  1. ;;9002226.02101,"975,00603-5116-28 ",.01)
  1. ;;00603-5116-28
  1. ;;9002226.02101,"975,00603-5116-28 ",.02)
  1. ;;00603-5116-28
  1. ;;9002226.02101,"975,00603-5117-21 ",.01)
  1. ;;00603-5117-21
  1. ;;9002226.02101,"975,00603-5117-21 ",.02)
  1. ;;00603-5117-21
  1. ;;9002226.02101,"975,00603-5117-28 ",.01)
  1. ;;00603-5117-28
  1. ;;9002226.02101,"975,00603-5117-28 ",.02)
  1. ;;00603-5117-28
  1. ;;9002226.02101,"975,00603-5118-21 ",.01)
  1. ;;00603-5118-21
  1. ;;9002226.02101,"975,00603-5118-21 ",.02)
  1. ;;00603-5118-21
  1. ;;9002226.02101,"975,00603-5119-21 ",.01)
  1. ;;00603-5119-21
  1. ;;9002226.02101,"975,00603-5119-21 ",.02)
  1. ;;00603-5119-21
  1. ;;9002226.02101,"975,00603-5531-21 ",.01)
  1. ;;00603-5531-21
  1. ;;9002226.02101,"975,00603-5531-21 ",.02)
  1. ;;00603-5531-21
  1. ;;9002226.02101,"975,00603-5532-21 ",.01)
  1. ;;00603-5532-21
  1. ;;9002226.02101,"975,00603-5532-21 ",.02)
  1. ;;00603-5532-21
  1. ;;9002226.02101,"975,00603-6144-21 ",.01)
  1. ;;00603-6144-21
  1. ;;9002226.02101,"975,00603-6144-21 ",.02)
  1. ;;00603-6144-21
  1. ;;9002226.02101,"975,00603-6144-28 ",.01)
  1. ;;00603-6144-28
  1. ;;9002226.02101,"975,00603-6144-28 ",.02)
  1. ;;00603-6144-28
  1. ;;9002226.02101,"975,00603-6145-21 ",.01)
  1. ;;00603-6145-21
  1. ;;9002226.02101,"975,00603-6145-21 ",.02)
  1. ;;00603-6145-21
  1. ;;9002226.02101,"975,00603-6145-28 ",.01)
  1. ;;00603-6145-28
  1. ;;9002226.02101,"975,00603-6145-28 ",.02)
  1. ;;00603-6145-28
  1. ;;9002226.02101,"975,00603-6146-21 ",.01)
  1. ;;00603-6146-21
  1. ;;9002226.02101,"975,00603-6146-21 ",.02)
  1. ;;00603-6146-21
  1. ;;9002226.02101,"975,00615-0395-13 ",.01)
  1. ;;00615-0395-13
  1. ;;9002226.02101,"975,00615-0395-13 ",.02)
  1. ;;00615-0395-13
  1. ;;9002226.02101,"975,00615-0828-53 ",.01)
  1. ;;00615-0828-53
  1. ;;9002226.02101,"975,00615-0828-53 ",.02)
  1. ;;00615-0828-53
  1. ;;9002226.02101,"975,00615-0828-63 ",.01)
  1. ;;00615-0828-63
  1. ;;9002226.02101,"975,00615-0828-63 ",.02)
  1. ;;00615-0828-63
  1. ;;9002226.02101,"975,00615-0829-43 ",.01)
  1. ;;00615-0829-43
  1. ;;9002226.02101,"975,00615-0829-43 ",.02)
  1. ;;00615-0829-43
  1. ;;9002226.02101,"975,00615-0829-53 ",.01)
  1. ;;00615-0829-53
  1. ;;9002226.02101,"975,00615-0829-53 ",.02)
  1. ;;00615-0829-53
  1. ;;9002226.02101,"975,00615-0829-63 ",.01)
  1. ;;00615-0829-63
  1. ;;9002226.02101,"975,00615-0829-63 ",.02)
  1. ;;00615-0829-63
  1. ;;9002226.02101,"975,00615-0831-13 ",.01)
  1. ;;00615-0831-13
  1. ;;9002226.02101,"975,00615-0831-13 ",.02)
  1. ;;00615-0831-13
  1. ;;9002226.02101,"975,00615-1306-43 ",.01)
  1. ;;00615-1306-43
  1. ;;9002226.02101,"975,00615-1306-43 ",.02)
  1. ;;00615-1306-43
  1. ;;9002226.02101,"975,00615-1306-53 ",.01)
  1. ;;00615-1306-53
  1. ;;9002226.02101,"975,00615-1306-53 ",.02)
  1. ;;00615-1306-53
  1. ;;9002226.02101,"975,00615-1306-63 ",.01)
  1. ;;00615-1306-63
  1. ;;9002226.02101,"975,00615-1306-63 ",.02)
  1. ;;00615-1306-63
  1. ;;9002226.02101,"975,00615-1307-43 ",.01)
  1. ;;00615-1307-43
  1. ;;9002226.02101,"975,00615-1307-43 ",.02)
  1. ;;00615-1307-43
  1. ;;9002226.02101,"975,00615-1307-53 ",.01)
  1. ;;00615-1307-53
  1. ;;9002226.02101,"975,00615-1307-53 ",.02)
  1. ;;00615-1307-53
  1. ;;9002226.02101,"975,00615-1307-63 ",.01)
  1. ;;00615-1307-63
  1. ;;9002226.02101,"975,00615-1307-63 ",.02)
  1. ;;00615-1307-63
  1. ;;9002226.02101,"975,00615-1315-53 ",.01)
  1. ;;00615-1315-53
  1. ;;9002226.02101,"975,00615-1315-53 ",.02)
  1. ;;00615-1315-53
  1. ;;9002226.02101,"975,00615-2578-43 ",.01)
  1. ;;00615-2578-43
  1. ;;9002226.02101,"975,00615-2578-43 ",.02)
  1. ;;00615-2578-43
  1. ;;9002226.02101,"975,00615-2578-53 ",.01)
  1. ;;00615-2578-53
  1. ;;9002226.02101,"975,00615-2578-53 ",.02)
  1. ;;00615-2578-53
  1. ;;9002226.02101,"975,00615-2578-63 ",.01)
  1. ;;00615-2578-63
  1. ;;9002226.02101,"975,00615-2578-63 ",.02)
  1. ;;00615-2578-63
  1. ;;9002226.02101,"975,00615-2579-43 ",.01)
  1. ;;00615-2579-43
  1. ;;9002226.02101,"975,00615-2579-43 ",.02)
  1. ;;00615-2579-43
  1. ;;9002226.02101,"975,00615-2579-53 ",.01)
  1. ;;00615-2579-53
  1. ;;9002226.02101,"975,00615-2579-53 ",.02)
  1. ;;00615-2579-53
  1. ;;9002226.02101,"975,00615-2579-63 ",.01)
  1. ;;00615-2579-63
  1. ;;9002226.02101,"975,00615-2579-63 ",.02)
  1. ;;00615-2579-63
  1. ;;9002226.02101,"975,00615-3526-13 ",.01)
  1. ;;00615-3526-13
  1. ;;9002226.02101,"975,00615-3526-13 ",.02)
  1. ;;00615-3526-13