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

BGP71U19.m

Go to the documentation of this file.
BGP71U19 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
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,"1733,00378-0081-01 ",.01)
 ;;00378-0081-01
 ;;9002226.02101,"1733,00378-0081-01 ",.02)
 ;;00378-0081-01
 ;;9002226.02101,"1733,00378-0083-01 ",.01)
 ;;00378-0083-01
 ;;9002226.02101,"1733,00378-0083-01 ",.02)
 ;;00378-0083-01
 ;;9002226.02101,"1733,00378-0084-01 ",.01)
 ;;00378-0084-01
 ;;9002226.02101,"1733,00378-0084-01 ",.02)
 ;;00378-0084-01
 ;;9002226.02101,"1733,00378-0086-01 ",.01)
 ;;00378-0086-01
 ;;9002226.02101,"1733,00378-0086-01 ",.02)
 ;;00378-0086-01
 ;;9002226.02101,"1733,00378-0441-01 ",.01)
 ;;00378-0441-01
 ;;9002226.02101,"1733,00378-0441-01 ",.02)
 ;;00378-0441-01
 ;;9002226.02101,"1733,00378-0443-01 ",.01)
 ;;00378-0443-01
 ;;9002226.02101,"1733,00378-0443-01 ",.02)
 ;;00378-0443-01
 ;;9002226.02101,"1733,00378-0444-01 ",.01)
 ;;00378-0444-01
 ;;9002226.02101,"1733,00378-0444-01 ",.02)
 ;;00378-0444-01
 ;;9002226.02101,"1733,00378-0447-01 ",.01)
 ;;00378-0447-01
 ;;9002226.02101,"1733,00378-0447-01 ",.02)
 ;;00378-0447-01
 ;;9002226.02101,"1733,00378-0542-77 ",.01)
 ;;00378-0542-77
 ;;9002226.02101,"1733,00378-0542-77 ",.02)
 ;;00378-0542-77
 ;;9002226.02101,"1733,00378-0543-77 ",.01)
 ;;00378-0543-77
 ;;9002226.02101,"1733,00378-0543-77 ",.02)
 ;;00378-0543-77
 ;;9002226.02101,"1733,00378-0544-77 ",.01)
 ;;00378-0544-77
 ;;9002226.02101,"1733,00378-0544-77 ",.02)
 ;;00378-0544-77
 ;;9002226.02101,"1733,00378-0712-01 ",.01)
 ;;00378-0712-01
 ;;9002226.02101,"1733,00378-0712-01 ",.02)
 ;;00378-0712-01
 ;;9002226.02101,"1733,00378-0723-01 ",.01)
 ;;00378-0723-01
 ;;9002226.02101,"1733,00378-0723-01 ",.02)
 ;;00378-0723-01
 ;;9002226.02101,"1733,00378-1012-01 ",.01)
 ;;00378-1012-01
 ;;9002226.02101,"1733,00378-1012-01 ",.02)
 ;;00378-1012-01
 ;;9002226.02101,"1733,00378-1051-01 ",.01)
 ;;00378-1051-01
 ;;9002226.02101,"1733,00378-1051-01 ",.02)
 ;;00378-1051-01
 ;;9002226.02101,"1733,00378-1052-01 ",.01)
 ;;00378-1052-01
 ;;9002226.02101,"1733,00378-1052-01 ",.02)
 ;;00378-1052-01
 ;;9002226.02101,"1733,00378-1052-10 ",.01)
 ;;00378-1052-10
 ;;9002226.02101,"1733,00378-1052-10 ",.02)
 ;;00378-1052-10
 ;;9002226.02101,"1733,00378-1053-01 ",.01)
 ;;00378-1053-01
 ;;9002226.02101,"1733,00378-1053-01 ",.02)
 ;;00378-1053-01
 ;;9002226.02101,"1733,00378-1053-10 ",.01)
 ;;00378-1053-10
 ;;9002226.02101,"1733,00378-1053-10 ",.02)
 ;;00378-1053-10
 ;;9002226.02101,"1733,00378-1054-01 ",.01)
 ;;00378-1054-01
 ;;9002226.02101,"1733,00378-1054-01 ",.02)
 ;;00378-1054-01
 ;;9002226.02101,"1733,00378-1054-05 ",.01)
 ;;00378-1054-05
 ;;9002226.02101,"1733,00378-1054-05 ",.02)
 ;;00378-1054-05
 ;;9002226.02101,"1733,00378-1075-93 ",.01)
 ;;00378-1075-93
 ;;9002226.02101,"1733,00378-1075-93 ",.02)
 ;;00378-1075-93
 ;;9002226.02101,"1733,00378-1076-93 ",.01)
 ;;00378-1076-93
 ;;9002226.02101,"1733,00378-1076-93 ",.02)
 ;;00378-1076-93
 ;;9002226.02101,"1733,00378-1077-93 ",.01)
 ;;00378-1077-93
 ;;9002226.02101,"1733,00378-1077-93 ",.02)
 ;;00378-1077-93
 ;;9002226.02101,"1733,00378-1078-93 ",.01)
 ;;00378-1078-93
 ;;9002226.02101,"1733,00378-1078-93 ",.02)
 ;;00378-1078-93
 ;;9002226.02101,"1733,00378-1418-77 ",.01)
 ;;00378-1418-77
 ;;9002226.02101,"1733,00378-1418-77 ",.02)
 ;;00378-1418-77
 ;;9002226.02101,"1733,00378-1418-93 ",.01)
 ;;00378-1418-93
 ;;9002226.02101,"1733,00378-1418-93 ",.02)
 ;;00378-1418-93
 ;;9002226.02101,"1733,00378-1419-77 ",.01)
 ;;00378-1419-77
 ;;9002226.02101,"1733,00378-1419-77 ",.02)
 ;;00378-1419-77
 ;;9002226.02101,"1733,00378-1419-93 ",.01)
 ;;00378-1419-93
 ;;9002226.02101,"1733,00378-1419-93 ",.02)
 ;;00378-1419-93
 ;;9002226.02101,"1733,00378-1420-77 ",.01)
 ;;00378-1420-77
 ;;9002226.02101,"1733,00378-1420-77 ",.02)
 ;;00378-1420-77
 ;;9002226.02101,"1733,00378-1420-93 ",.01)
 ;;00378-1420-93
 ;;9002226.02101,"1733,00378-1420-93 ",.02)
 ;;00378-1420-93
 ;;9002226.02101,"1733,00378-1721-93 ",.01)
 ;;00378-1721-93
 ;;9002226.02101,"1733,00378-1721-93 ",.02)
 ;;00378-1721-93
 ;;9002226.02101,"1733,00378-1722-93 ",.01)
 ;;00378-1722-93
 ;;9002226.02101,"1733,00378-1722-93 ",.02)
 ;;00378-1722-93
 ;;9002226.02101,"1733,00378-1723-93 ",.01)
 ;;00378-1723-93
 ;;9002226.02101,"1733,00378-1723-93 ",.02)
 ;;00378-1723-93
 ;;9002226.02101,"1733,00378-1724-93 ",.01)
 ;;00378-1724-93
 ;;9002226.02101,"1733,00378-1724-93 ",.02)
 ;;00378-1724-93
 ;;9002226.02101,"1733,00378-2012-01 ",.01)
 ;;00378-2012-01
 ;;9002226.02101,"1733,00378-2012-01 ",.02)
 ;;00378-2012-01
 ;;9002226.02101,"1733,00378-2022-05 ",.01)
 ;;00378-2022-05
 ;;9002226.02101,"1733,00378-2022-05 ",.02)
 ;;00378-2022-05
 ;;9002226.02101,"1733,00378-2022-77 ",.01)
 ;;00378-2022-77
 ;;9002226.02101,"1733,00378-2022-77 ",.02)
 ;;00378-2022-77
 ;;9002226.02101,"1733,00378-2023-05 ",.01)
 ;;00378-2023-05
 ;;9002226.02101,"1733,00378-2023-05 ",.02)
 ;;00378-2023-05
 ;;9002226.02101,"1733,00378-2023-77 ",.01)
 ;;00378-2023-77
 ;;9002226.02101,"1733,00378-2023-77 ",.02)
 ;;00378-2023-77
 ;;9002226.02101,"1733,00378-2023-93 ",.01)
 ;;00378-2023-93
 ;;9002226.02101,"1733,00378-2023-93 ",.02)
 ;;00378-2023-93
 ;;9002226.02101,"1733,00378-2024-05 ",.01)
 ;;00378-2024-05
 ;;9002226.02101,"1733,00378-2024-05 ",.02)
 ;;00378-2024-05
 ;;9002226.02101,"1733,00378-2024-77 ",.01)
 ;;00378-2024-77
 ;;9002226.02101,"1733,00378-2024-77 ",.02)
 ;;00378-2024-77
 ;;9002226.02101,"1733,00378-2024-93 ",.01)
 ;;00378-2024-93
 ;;9002226.02101,"1733,00378-2024-93 ",.02)
 ;;00378-2024-93
 ;;9002226.02101,"1733,00378-2025-01 ",.01)
 ;;00378-2025-01
 ;;9002226.02101,"1733,00378-2025-01 ",.02)
 ;;00378-2025-01
 ;;9002226.02101,"1733,00378-2072-01 ",.01)
 ;;00378-2072-01
 ;;9002226.02101,"1733,00378-2072-01 ",.02)
 ;;00378-2072-01
 ;;9002226.02101,"1733,00378-2073-01 ",.01)
 ;;00378-2073-01
 ;;9002226.02101,"1733,00378-2073-01 ",.02)
 ;;00378-2073-01
 ;;9002226.02101,"1733,00378-2073-10 ",.01)
 ;;00378-2073-10
 ;;9002226.02101,"1733,00378-2073-10 ",.02)
 ;;00378-2073-10
 ;;9002226.02101,"1733,00378-2074-01 ",.01)
 ;;00378-2074-01
 ;;9002226.02101,"1733,00378-2074-01 ",.02)
 ;;00378-2074-01
 ;;9002226.02101,"1733,00378-2074-10 ",.01)
 ;;00378-2074-10
 ;;9002226.02101,"1733,00378-2074-10 ",.02)
 ;;00378-2074-10
 ;;9002226.02101,"1733,00378-2075-01 ",.01)
 ;;00378-2075-01
 ;;9002226.02101,"1733,00378-2075-01 ",.02)
 ;;00378-2075-01
 ;;9002226.02101,"1733,00378-2075-10 ",.01)
 ;;00378-2075-10
 ;;9002226.02101,"1733,00378-2075-10 ",.02)
 ;;00378-2075-10
 ;;9002226.02101,"1733,00378-2076-01 ",.01)
 ;;00378-2076-01
 ;;9002226.02101,"1733,00378-2076-01 ",.02)
 ;;00378-2076-01
 ;;9002226.02101,"1733,00378-2076-05 ",.01)
 ;;00378-2076-05
 ;;9002226.02101,"1733,00378-2076-05 ",.02)
 ;;00378-2076-05
 ;;9002226.02101,"1733,00378-2077-01 ",.01)
 ;;00378-2077-01
 ;;9002226.02101,"1733,00378-2077-01 ",.02)
 ;;00378-2077-01
 ;;9002226.02101,"1733,00378-2901-77 ",.01)
 ;;00378-2901-77
 ;;9002226.02101,"1733,00378-2901-77 ",.02)
 ;;00378-2901-77
 ;;9002226.02101,"1733,00378-2901-93 ",.01)
 ;;00378-2901-93
 ;;9002226.02101,"1733,00378-2901-93 ",.02)
 ;;00378-2901-93
 ;;9002226.02101,"1733,00378-2902-77 ",.01)
 ;;00378-2902-77
 ;;9002226.02101,"1733,00378-2902-77 ",.02)
 ;;00378-2902-77
 ;;9002226.02101,"1733,00378-2902-93 ",.01)
 ;;00378-2902-93
 ;;9002226.02101,"1733,00378-2902-93 ",.02)
 ;;00378-2902-93
 ;;9002226.02101,"1733,00378-2903-77 ",.01)
 ;;00378-2903-77
 ;;9002226.02101,"1733,00378-2903-77 ",.02)
 ;;00378-2903-77
 ;;9002226.02101,"1733,00378-2903-93 ",.01)
 ;;00378-2903-93
 ;;9002226.02101,"1733,00378-2903-93 ",.02)
 ;;00378-2903-93
 ;;9002226.02101,"1733,00378-2920-77 ",.01)
 ;;00378-2920-77
 ;;9002226.02101,"1733,00378-2920-77 ",.02)
 ;;00378-2920-77
 ;;9002226.02101,"1733,00378-2920-93 ",.01)
 ;;00378-2920-93
 ;;9002226.02101,"1733,00378-2920-93 ",.02)
 ;;00378-2920-93
 ;;9002226.02101,"1733,00378-2921-77 ",.01)
 ;;00378-2921-77
 ;;9002226.02101,"1733,00378-2921-77 ",.02)
 ;;00378-2921-77
 ;;9002226.02101,"1733,00378-2921-93 ",.01)
 ;;00378-2921-93
 ;;9002226.02101,"1733,00378-2921-93 ",.02)
 ;;00378-2921-93
 ;;9002226.02101,"1733,00378-2922-77 ",.01)
 ;;00378-2922-77
 ;;9002226.02101,"1733,00378-2922-77 ",.02)
 ;;00378-2922-77
 ;;9002226.02101,"1733,00378-2922-93 ",.01)
 ;;00378-2922-93
 ;;9002226.02101,"1733,00378-2922-93 ",.02)
 ;;00378-2922-93
 ;;9002226.02101,"1733,00378-3001-05 ",.01)
 ;;00378-3001-05
 ;;9002226.02101,"1733,00378-3001-05 ",.02)
 ;;00378-3001-05
 ;;9002226.02101,"1733,00378-3001-77 ",.01)
 ;;00378-3001-77
 ;;9002226.02101,"1733,00378-3001-77 ",.02)
 ;;00378-3001-77
 ;;9002226.02101,"1733,00378-3002-05 ",.01)
 ;;00378-3002-05
 ;;9002226.02101,"1733,00378-3002-05 ",.02)
 ;;00378-3002-05
 ;;9002226.02101,"1733,00378-3002-77 ",.01)
 ;;00378-3002-77
 ;;9002226.02101,"1733,00378-3002-77 ",.02)
 ;;00378-3002-77
 ;;9002226.02101,"1733,00378-3003-05 ",.01)
 ;;00378-3003-05
 ;;9002226.02101,"1733,00378-3003-05 ",.02)
 ;;00378-3003-05
 ;;9002226.02101,"1733,00378-3003-77 ",.01)
 ;;00378-3003-77
 ;;9002226.02101,"1733,00378-3003-77 ",.02)
 ;;00378-3003-77
 ;;9002226.02101,"1733,00378-3007-01 ",.01)
 ;;00378-3007-01
 ;;9002226.02101,"1733,00378-3007-01 ",.02)
 ;;00378-3007-01
 ;;9002226.02101,"1733,00378-3007-10 ",.01)
 ;;00378-3007-10
 ;;9002226.02101,"1733,00378-3007-10 ",.02)
 ;;00378-3007-10
 ;;9002226.02101,"1733,00378-3012-01 ",.01)
 ;;00378-3012-01
 ;;9002226.02101,"1733,00378-3012-01 ",.02)
 ;;00378-3012-01
 ;;9002226.02101,"1733,00378-3012-10 ",.01)
 ;;00378-3012-10
 ;;9002226.02101,"1733,00378-3012-10 ",.02)
 ;;00378-3012-10
 ;;9002226.02101,"1733,00378-3017-01 ",.01)
 ;;00378-3017-01
 ;;9002226.02101,"1733,00378-3017-01 ",.02)
 ;;00378-3017-01
 ;;9002226.02101,"1733,00378-3017-10 ",.01)
 ;;00378-3017-10
 ;;9002226.02101,"1733,00378-3017-10 ",.02)
 ;;00378-3017-10
 ;;9002226.02101,"1733,00378-3022-01 ",.01)
 ;;00378-3022-01
 ;;9002226.02101,"1733,00378-3022-01 ",.02)
 ;;00378-3022-01
 ;;9002226.02101,"1733,00378-3033-77 ",.01)
 ;;00378-3033-77
 ;;9002226.02101,"1733,00378-3033-77 ",.02)
 ;;00378-3033-77
 ;;9002226.02101,"1733,00378-3033-93 ",.01)
 ;;00378-3033-93
 ;;9002226.02101,"1733,00378-3033-93 ",.02)
 ;;00378-3033-93
 ;;9002226.02101,"1733,00378-3034-77 ",.01)
 ;;00378-3034-77
 ;;9002226.02101,"1733,00378-3034-77 ",.02)
 ;;00378-3034-77
 ;;9002226.02101,"1733,00378-3034-93 ",.01)
 ;;00378-3034-93
 ;;9002226.02101,"1733,00378-3034-93 ",.02)
 ;;00378-3034-93
 ;;9002226.02101,"1733,00378-4041-77 ",.01)
 ;;00378-4041-77
 ;;9002226.02101,"1733,00378-4041-77 ",.02)
 ;;00378-4041-77
 ;;9002226.02101,"1733,00378-4042-77 ",.01)
 ;;00378-4042-77
 ;;9002226.02101,"1733,00378-4042-77 ",.02)
 ;;00378-4042-77
 ;;9002226.02101,"1733,00378-4042-93 ",.01)
 ;;00378-4042-93
 ;;9002226.02101,"1733,00378-4042-93 ",.02)
 ;;00378-4042-93
 ;;9002226.02101,"1733,00378-4043-77 ",.01)
 ;;00378-4043-77
 ;;9002226.02101,"1733,00378-4043-77 ",.02)
 ;;00378-4043-77
 ;;9002226.02101,"1733,00378-4043-93 ",.01)
 ;;00378-4043-93
 ;;9002226.02101,"1733,00378-4043-93 ",.02)
 ;;00378-4043-93
 ;;9002226.02101,"1733,00378-4725-01 ",.01)
 ;;00378-4725-01
 ;;9002226.02101,"1733,00378-4725-01 ",.02)
 ;;00378-4725-01
 ;;9002226.02101,"1733,00378-4735-01 ",.01)
 ;;00378-4735-01
 ;;9002226.02101,"1733,00378-4735-01 ",.02)
 ;;00378-4735-01
 ;;9002226.02101,"1733,00378-4745-01 ",.01)
 ;;00378-4745-01
 ;;9002226.02101,"1733,00378-4745-01 ",.02)
 ;;00378-4745-01
 ;;9002226.02101,"1733,00378-4775-01 ",.01)
 ;;00378-4775-01
 ;;9002226.02101,"1733,00378-4775-01 ",.02)
 ;;00378-4775-01
 ;;9002226.02101,"1733,00378-5807-93 ",.01)
 ;;00378-5807-93
 ;;9002226.02101,"1733,00378-5807-93 ",.02)
 ;;00378-5807-93
 ;;9002226.02101,"1733,00378-5813-77 ",.01)
 ;;00378-5813-77