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

BGP8ZP8.m

Go to the documentation of this file.
BGP8ZP8 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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,"1795,00378-0415-01 ",.01)
 ;;00378-0415-01
 ;;9002226.02101,"1795,00378-0415-01 ",.02)
 ;;00378-0415-01
 ;;9002226.02101,"1795,00378-0415-10 ",.01)
 ;;00378-0415-10
 ;;9002226.02101,"1795,00378-0415-10 ",.02)
 ;;00378-0415-10
 ;;9002226.02101,"1795,00378-0415-77 ",.01)
 ;;00378-0415-77
 ;;9002226.02101,"1795,00378-0415-77 ",.02)
 ;;00378-0415-77
 ;;9002226.02101,"1795,00378-1610-01 ",.01)
 ;;00378-1610-01
 ;;9002226.02101,"1795,00378-1610-01 ",.02)
 ;;00378-1610-01
 ;;9002226.02101,"1795,00378-1610-05 ",.01)
 ;;00378-1610-05
 ;;9002226.02101,"1795,00378-1610-05 ",.02)
 ;;00378-1610-05
 ;;9002226.02101,"1795,00378-1620-01 ",.01)
 ;;00378-1620-01
 ;;9002226.02101,"1795,00378-1620-01 ",.02)
 ;;00378-1620-01
 ;;9002226.02101,"1795,00378-1620-05 ",.01)
 ;;00378-1620-05
 ;;9002226.02101,"1795,00378-1620-05 ",.02)
 ;;00378-1620-05
 ;;9002226.02101,"1795,00378-2586-01 ",.01)
 ;;00378-2586-01
 ;;9002226.02101,"1795,00378-2586-01 ",.02)
 ;;00378-2586-01
 ;;9002226.02101,"1795,00378-2586-10 ",.01)
 ;;00378-2586-10
 ;;9002226.02101,"1795,00378-2586-10 ",.02)
 ;;00378-2586-10
 ;;9002226.02101,"1795,00378-2587-01 ",.01)
 ;;00378-2587-01
 ;;9002226.02101,"1795,00378-2587-01 ",.02)
 ;;00378-2587-01
 ;;9002226.02101,"1795,00378-2587-10 ",.01)
 ;;00378-2587-10
 ;;9002226.02101,"1795,00378-2587-10 ",.02)
 ;;00378-2587-10
 ;;9002226.02101,"1795,00378-2588-01 ",.01)
 ;;00378-2588-01
 ;;9002226.02101,"1795,00378-2588-01 ",.02)
 ;;00378-2588-01
 ;;9002226.02101,"1795,00378-2588-10 ",.01)
 ;;00378-2588-10
 ;;9002226.02101,"1795,00378-2588-10 ",.02)
 ;;00378-2588-10
 ;;9002226.02101,"1795,00378-5485-10 ",.01)
 ;;00378-5485-10
 ;;9002226.02101,"1795,00378-5485-10 ",.02)
 ;;00378-5485-10
 ;;9002226.02101,"1795,00378-5485-77 ",.01)
 ;;00378-5485-77
 ;;9002226.02101,"1795,00378-5485-77 ",.02)
 ;;00378-5485-77
 ;;9002226.02101,"1795,00378-5486-10 ",.01)
 ;;00378-5486-10
 ;;9002226.02101,"1795,00378-5486-10 ",.02)
 ;;00378-5486-10
 ;;9002226.02101,"1795,00378-5486-77 ",.01)
 ;;00378-5486-77
 ;;9002226.02101,"1795,00378-5486-77 ",.02)
 ;;00378-5486-77
 ;;9002226.02101,"1795,00409-1630-10 ",.01)
 ;;00409-1630-10
 ;;9002226.02101,"1795,00409-1630-10 ",.02)
 ;;00409-1630-10
 ;;9002226.02101,"1795,00409-4910-34 ",.01)
 ;;00409-4910-34
 ;;9002226.02101,"1795,00409-4910-34 ",.02)
 ;;00409-4910-34
 ;;9002226.02101,"1795,00409-4911-34 ",.01)
 ;;00409-4911-34
 ;;9002226.02101,"1795,00409-4911-34 ",.02)
 ;;00409-4911-34
 ;;9002226.02101,"1795,00409-9629-05 ",.01)
 ;;00409-9629-05
 ;;9002226.02101,"1795,00409-9629-05 ",.02)
 ;;00409-9629-05
 ;;9002226.02101,"1795,00409-9630-05 ",.01)
 ;;00409-9630-05
 ;;9002226.02101,"1795,00409-9630-05 ",.02)
 ;;00409-9630-05
 ;;9002226.02101,"1795,00440-1385-20 ",.01)
 ;;00440-1385-20
 ;;9002226.02101,"1795,00440-1385-20 ",.02)
 ;;00440-1385-20
 ;;9002226.02101,"1795,00440-1617-12 ",.01)
 ;;00440-1617-12
 ;;9002226.02101,"1795,00440-1617-12 ",.02)
 ;;00440-1617-12
 ;;9002226.02101,"1795,00440-1736-08 ",.01)
 ;;00440-1736-08
 ;;9002226.02101,"1795,00440-1736-08 ",.02)
 ;;00440-1736-08
 ;;9002226.02101,"1795,00440-7183-20 ",.01)
 ;;00440-7183-20
 ;;9002226.02101,"1795,00440-7183-20 ",.02)
 ;;00440-7183-20
 ;;9002226.02101,"1795,00440-7195-30 ",.01)
 ;;00440-7195-30
 ;;9002226.02101,"1795,00440-7195-30 ",.02)
 ;;00440-7195-30
 ;;9002226.02101,"1795,00440-7195-60 ",.01)
 ;;00440-7195-60
 ;;9002226.02101,"1795,00440-7195-60 ",.02)
 ;;00440-7195-60
 ;;9002226.02101,"1795,00440-7195-90 ",.01)
 ;;00440-7195-90
 ;;9002226.02101,"1795,00440-7195-90 ",.02)
 ;;00440-7195-90
 ;;9002226.02101,"1795,00440-7195-92 ",.01)
 ;;00440-7195-92
 ;;9002226.02101,"1795,00440-7195-92 ",.02)
 ;;00440-7195-92
 ;;9002226.02101,"1795,00440-7196-30 ",.01)
 ;;00440-7196-30
 ;;9002226.02101,"1795,00440-7196-30 ",.02)
 ;;00440-7196-30
 ;;9002226.02101,"1795,00440-7196-60 ",.01)
 ;;00440-7196-60
 ;;9002226.02101,"1795,00440-7196-60 ",.02)
 ;;00440-7196-60
 ;;9002226.02101,"1795,00440-7196-90 ",.01)
 ;;00440-7196-90
 ;;9002226.02101,"1795,00440-7196-90 ",.02)
 ;;00440-7196-90
 ;;9002226.02101,"1795,00440-7196-92 ",.01)
 ;;00440-7196-92
 ;;9002226.02101,"1795,00440-7196-92 ",.02)
 ;;00440-7196-92
 ;;9002226.02101,"1795,00440-7275-30 ",.01)
 ;;00440-7275-30
 ;;9002226.02101,"1795,00440-7275-30 ",.02)
 ;;00440-7275-30
 ;;9002226.02101,"1795,00440-7275-60 ",.01)
 ;;00440-7275-60
 ;;9002226.02101,"1795,00440-7275-60 ",.02)
 ;;00440-7275-60
 ;;9002226.02101,"1795,00440-7360-30 ",.01)
 ;;00440-7360-30
 ;;9002226.02101,"1795,00440-7360-30 ",.02)
 ;;00440-7360-30
 ;;9002226.02101,"1795,00440-7384-04 ",.01)
 ;;00440-7384-04
 ;;9002226.02101,"1795,00440-7384-04 ",.02)
 ;;00440-7384-04
 ;;9002226.02101,"1795,00440-7384-06 ",.01)
 ;;00440-7384-06
 ;;9002226.02101,"1795,00440-7384-06 ",.02)
 ;;00440-7384-06
 ;;9002226.02101,"1795,00440-7384-12 ",.01)
 ;;00440-7384-12
 ;;9002226.02101,"1795,00440-7384-12 ",.02)
 ;;00440-7384-12
 ;;9002226.02101,"1795,00440-7384-20 ",.01)
 ;;00440-7384-20
 ;;9002226.02101,"1795,00440-7384-20 ",.02)
 ;;00440-7384-20
 ;;9002226.02101,"1795,00440-7385-04 ",.01)
 ;;00440-7385-04
 ;;9002226.02101,"1795,00440-7385-04 ",.02)
 ;;00440-7385-04
 ;;9002226.02101,"1795,00440-7385-08 ",.01)
 ;;00440-7385-08
 ;;9002226.02101,"1795,00440-7385-08 ",.02)
 ;;00440-7385-08
 ;;9002226.02101,"1795,00440-7385-10 ",.01)
 ;;00440-7385-10
 ;;9002226.02101,"1795,00440-7385-10 ",.02)
 ;;00440-7385-10
 ;;9002226.02101,"1795,00440-7385-12 ",.01)
 ;;00440-7385-12
 ;;9002226.02101,"1795,00440-7385-12 ",.02)
 ;;00440-7385-12
 ;;9002226.02101,"1795,00440-7385-15 ",.01)
 ;;00440-7385-15
 ;;9002226.02101,"1795,00440-7385-15 ",.02)
 ;;00440-7385-15
 ;;9002226.02101,"1795,00440-7385-20 ",.01)
 ;;00440-7385-20
 ;;9002226.02101,"1795,00440-7385-20 ",.02)
 ;;00440-7385-20
 ;;9002226.02101,"1795,00440-7385-28 ",.01)
 ;;00440-7385-28
 ;;9002226.02101,"1795,00440-7385-28 ",.02)
 ;;00440-7385-28
 ;;9002226.02101,"1795,00440-7385-30 ",.01)
 ;;00440-7385-30
 ;;9002226.02101,"1795,00440-7385-30 ",.02)
 ;;00440-7385-30
 ;;9002226.02101,"1795,00440-7426-04 ",.01)
 ;;00440-7426-04
 ;;9002226.02101,"1795,00440-7426-04 ",.02)
 ;;00440-7426-04
 ;;9002226.02101,"1795,00440-7426-06 ",.01)
 ;;00440-7426-06
 ;;9002226.02101,"1795,00440-7426-06 ",.02)
 ;;00440-7426-06
 ;;9002226.02101,"1795,00440-7426-09 ",.01)
 ;;00440-7426-09
 ;;9002226.02101,"1795,00440-7426-09 ",.02)
 ;;00440-7426-09
 ;;9002226.02101,"1795,00440-7426-12 ",.01)
 ;;00440-7426-12
 ;;9002226.02101,"1795,00440-7426-12 ",.02)
 ;;00440-7426-12
 ;;9002226.02101,"1795,00440-7426-20 ",.01)
 ;;00440-7426-20
 ;;9002226.02101,"1795,00440-7426-20 ",.02)
 ;;00440-7426-20
 ;;9002226.02101,"1795,00440-7426-30 ",.01)
 ;;00440-7426-30
 ;;9002226.02101,"1795,00440-7426-30 ",.02)
 ;;00440-7426-30
 ;;9002226.02101,"1795,00440-7426-60 ",.01)
 ;;00440-7426-60
 ;;9002226.02101,"1795,00440-7426-60 ",.02)
 ;;00440-7426-60
 ;;9002226.02101,"1795,00440-7435-10 ",.01)
 ;;00440-7435-10
 ;;9002226.02101,"1795,00440-7435-10 ",.02)
 ;;00440-7435-10
 ;;9002226.02101,"1795,00440-7616-30 ",.01)
 ;;00440-7616-30
 ;;9002226.02101,"1795,00440-7616-30 ",.02)
 ;;00440-7616-30
 ;;9002226.02101,"1795,00440-7617-04 ",.01)
 ;;00440-7617-04
 ;;9002226.02101,"1795,00440-7617-04 ",.02)
 ;;00440-7617-04
 ;;9002226.02101,"1795,00440-7617-06 ",.01)
 ;;00440-7617-06
 ;;9002226.02101,"1795,00440-7617-06 ",.02)
 ;;00440-7617-06
 ;;9002226.02101,"1795,00440-7617-12 ",.01)
 ;;00440-7617-12
 ;;9002226.02101,"1795,00440-7617-12 ",.02)
 ;;00440-7617-12
 ;;9002226.02101,"1795,00440-7617-15 ",.01)
 ;;00440-7617-15
 ;;9002226.02101,"1795,00440-7617-15 ",.02)
 ;;00440-7617-15
 ;;9002226.02101,"1795,00440-7617-16 ",.01)
 ;;00440-7617-16
 ;;9002226.02101,"1795,00440-7617-16 ",.02)
 ;;00440-7617-16
 ;;9002226.02101,"1795,00440-7617-21 ",.01)
 ;;00440-7617-21
 ;;9002226.02101,"1795,00440-7617-21 ",.02)
 ;;00440-7617-21
 ;;9002226.02101,"1795,00440-7617-30 ",.01)
 ;;00440-7617-30
 ;;9002226.02101,"1795,00440-7617-30 ",.02)
 ;;00440-7617-30
 ;;9002226.02101,"1795,00440-7620-04 ",.01)
 ;;00440-7620-04
 ;;9002226.02101,"1795,00440-7620-04 ",.02)
 ;;00440-7620-04
 ;;9002226.02101,"1795,00440-7735-04 ",.01)
 ;;00440-7735-04
 ;;9002226.02101,"1795,00440-7735-04 ",.02)
 ;;00440-7735-04
 ;;9002226.02101,"1795,00440-7735-06 ",.01)
 ;;00440-7735-06
 ;;9002226.02101,"1795,00440-7735-06 ",.02)
 ;;00440-7735-06
 ;;9002226.02101,"1795,00440-7735-12 ",.01)
 ;;00440-7735-12
 ;;9002226.02101,"1795,00440-7735-12 ",.02)
 ;;00440-7735-12
 ;;9002226.02101,"1795,00440-7735-40 ",.01)
 ;;00440-7735-40
 ;;9002226.02101,"1795,00440-7735-40 ",.02)
 ;;00440-7735-40
 ;;9002226.02101,"1795,00440-7736-04 ",.01)
 ;;00440-7736-04
 ;;9002226.02101,"1795,00440-7736-04 ",.02)
 ;;00440-7736-04
 ;;9002226.02101,"1795,00440-7736-06 ",.01)
 ;;00440-7736-06
 ;;9002226.02101,"1795,00440-7736-06 ",.02)
 ;;00440-7736-06
 ;;9002226.02101,"1795,00440-7736-08 ",.01)
 ;;00440-7736-08
 ;;9002226.02101,"1795,00440-7736-08 ",.02)
 ;;00440-7736-08
 ;;9002226.02101,"1795,00440-7736-10 ",.01)
 ;;00440-7736-10
 ;;9002226.02101,"1795,00440-7736-10 ",.02)
 ;;00440-7736-10
 ;;9002226.02101,"1795,00440-7736-12 ",.01)
 ;;00440-7736-12
 ;;9002226.02101,"1795,00440-7736-12 ",.02)
 ;;00440-7736-12
 ;;9002226.02101,"1795,00440-7736-15 ",.01)
 ;;00440-7736-15
 ;;9002226.02101,"1795,00440-7736-15 ",.02)
 ;;00440-7736-15
 ;;9002226.02101,"1795,00440-7736-20 ",.01)
 ;;00440-7736-20
 ;;9002226.02101,"1795,00440-7736-20 ",.02)
 ;;00440-7736-20
 ;;9002226.02101,"1795,00440-7736-21 ",.01)
 ;;00440-7736-21
 ;;9002226.02101,"1795,00440-7736-21 ",.02)
 ;;00440-7736-21
 ;;9002226.02101,"1795,00440-7736-30 ",.01)
 ;;00440-7736-30
 ;;9002226.02101,"1795,00440-7736-30 ",.02)
 ;;00440-7736-30
 ;;9002226.02101,"1795,00440-7736-90 ",.01)
 ;;00440-7736-90
 ;;9002226.02101,"1795,00440-7736-90 ",.02)
 ;;00440-7736-90
 ;;9002226.02101,"1795,00440-7736-91 ",.01)
 ;;00440-7736-91
 ;;9002226.02101,"1795,00440-7736-91 ",.02)
 ;;00440-7736-91
 ;;9002226.02101,"1795,00440-8195-04 ",.01)
 ;;00440-8195-04
 ;;9002226.02101,"1795,00440-8195-04 ",.02)
 ;;00440-8195-04
 ;;9002226.02101,"1795,00440-8195-06 ",.01)
 ;;00440-8195-06
 ;;9002226.02101,"1795,00440-8195-06 ",.02)
 ;;00440-8195-06
 ;;9002226.02101,"1795,00440-8195-10 ",.01)
 ;;00440-8195-10
 ;;9002226.02101,"1795,00440-8195-10 ",.02)
 ;;00440-8195-10
 ;;9002226.02101,"1795,00440-8195-12 ",.01)
 ;;00440-8195-12
 ;;9002226.02101,"1795,00440-8195-12 ",.02)
 ;;00440-8195-12
 ;;9002226.02101,"1795,00440-8195-20 ",.01)
 ;;00440-8195-20
 ;;9002226.02101,"1795,00440-8195-20 ",.02)
 ;;00440-8195-20
 ;;9002226.02101,"1795,00472-1400-16 ",.01)
 ;;00472-1400-16
 ;;9002226.02101,"1795,00472-1400-16 ",.02)
 ;;00472-1400-16
 ;;9002226.02101,"1795,00472-1627-04 ",.01)
 ;;00472-1627-04
 ;;9002226.02101,"1795,00472-1627-04 ",.02)
 ;;00472-1627-04
 ;;9002226.02101,"1795,00472-1627-08 ",.01)
 ;;00472-1627-08
 ;;9002226.02101,"1795,00472-1627-08 ",.02)
 ;;00472-1627-08
 ;;9002226.02101,"1795,00472-1627-16 ",.01)
 ;;00472-1627-16
 ;;9002226.02101,"1795,00472-1627-16 ",.02)
 ;;00472-1627-16
 ;;9002226.02101,"1795,00472-1628-16 ",.01)
 ;;00472-1628-16
 ;;9002226.02101,"1795,00472-1628-16 ",.02)
 ;;00472-1628-16
 ;;9002226.02101,"1795,00485-0082-01 ",.01)
 ;;00485-0082-01
 ;;9002226.02101,"1795,00485-0082-01 ",.02)
 ;;00485-0082-01
 ;;9002226.02101,"1795,00485-0151-01 ",.01)
 ;;00485-0151-01
 ;;9002226.02101,"1795,00485-0151-01 ",.02)
 ;;00485-0151-01
 ;;9002226.02101,"1795,00485-0151-30 ",.01)
 ;;00485-0151-30
 ;;9002226.02101,"1795,00485-0151-30 ",.02)
 ;;00485-0151-30
 ;;9002226.02101,"1795,00517-0101-25 ",.01)
 ;;00517-0101-25