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

BGP83A12.m

Go to the documentation of this file.
BGP83A12 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"1828,00185-0065-10 ",.01)
 ;;00185-0065-10
 ;;9002226.02101,"1828,00185-0065-10 ",.02)
 ;;00185-0065-10
 ;;9002226.02101,"1828,00187-0063-01 ",.01)
 ;;00187-0063-01
 ;;9002226.02101,"1828,00187-0063-01 ",.02)
 ;;00187-0063-01
 ;;9002226.02101,"1828,00187-0064-01 ",.01)
 ;;00187-0064-01
 ;;9002226.02101,"1828,00187-0064-01 ",.02)
 ;;00187-0064-01
 ;;9002226.02101,"1828,00187-0064-10 ",.01)
 ;;00187-0064-10
 ;;9002226.02101,"1828,00187-0064-10 ",.02)
 ;;00187-0064-10
 ;;9002226.02101,"1828,00187-0065-01 ",.01)
 ;;00187-0065-01
 ;;9002226.02101,"1828,00187-0065-01 ",.02)
 ;;00187-0065-01
 ;;9002226.02101,"1828,00187-0658-20 ",.01)
 ;;00187-0658-20
 ;;9002226.02101,"1828,00187-0658-20 ",.02)
 ;;00187-0658-20
 ;;9002226.02101,"1828,00187-0659-20 ",.01)
 ;;00187-0659-20
 ;;9002226.02101,"1828,00187-0659-20 ",.02)
 ;;00187-0659-20
 ;;9002226.02101,"1828,00187-4100-10 ",.01)
 ;;00187-4100-10
 ;;9002226.02101,"1828,00187-4100-10 ",.02)
 ;;00187-4100-10
 ;;9002226.02101,"1828,00228-2027-10 ",.01)
 ;;00228-2027-10
 ;;9002226.02101,"1828,00228-2027-10 ",.02)
 ;;00228-2027-10
 ;;9002226.02101,"1828,00228-2027-50 ",.01)
 ;;00228-2027-50
 ;;9002226.02101,"1828,00228-2027-50 ",.02)
 ;;00228-2027-50
 ;;9002226.02101,"1828,00228-2027-96 ",.01)
 ;;00228-2027-96
 ;;9002226.02101,"1828,00228-2027-96 ",.02)
 ;;00228-2027-96
 ;;9002226.02101,"1828,00228-2029-10 ",.01)
 ;;00228-2029-10
 ;;9002226.02101,"1828,00228-2029-10 ",.02)
 ;;00228-2029-10
 ;;9002226.02101,"1828,00228-2029-50 ",.01)
 ;;00228-2029-50
 ;;9002226.02101,"1828,00228-2029-50 ",.02)
 ;;00228-2029-50
 ;;9002226.02101,"1828,00228-2029-96 ",.01)
 ;;00228-2029-96
 ;;9002226.02101,"1828,00228-2029-96 ",.02)
 ;;00228-2029-96
 ;;9002226.02101,"1828,00228-2031-10 ",.01)
 ;;00228-2031-10
 ;;9002226.02101,"1828,00228-2031-10 ",.02)
 ;;00228-2031-10
 ;;9002226.02101,"1828,00228-2031-50 ",.01)
 ;;00228-2031-50
 ;;9002226.02101,"1828,00228-2031-50 ",.02)
 ;;00228-2031-50
 ;;9002226.02101,"1828,00228-2031-96 ",.01)
 ;;00228-2031-96
 ;;9002226.02101,"1828,00228-2031-96 ",.02)
 ;;00228-2031-96
 ;;9002226.02101,"1828,00228-2039-10 ",.01)
 ;;00228-2039-10
 ;;9002226.02101,"1828,00228-2039-10 ",.02)
 ;;00228-2039-10
 ;;9002226.02101,"1828,00228-2039-50 ",.01)
 ;;00228-2039-50
 ;;9002226.02101,"1828,00228-2039-50 ",.02)
 ;;00228-2039-50
 ;;9002226.02101,"1828,00228-2057-10 ",.01)
 ;;00228-2057-10
 ;;9002226.02101,"1828,00228-2057-10 ",.02)
 ;;00228-2057-10
 ;;9002226.02101,"1828,00228-2057-50 ",.01)
 ;;00228-2057-50
 ;;9002226.02101,"1828,00228-2057-50 ",.02)
 ;;00228-2057-50
 ;;9002226.02101,"1828,00228-2059-10 ",.01)
 ;;00228-2059-10
 ;;9002226.02101,"1828,00228-2059-10 ",.02)
 ;;00228-2059-10
 ;;9002226.02101,"1828,00228-2067-10 ",.01)
 ;;00228-2067-10
 ;;9002226.02101,"1828,00228-2067-10 ",.02)
 ;;00228-2067-10
 ;;9002226.02101,"1828,00228-2067-50 ",.01)
 ;;00228-2067-50
 ;;9002226.02101,"1828,00228-2067-50 ",.02)
 ;;00228-2067-50
 ;;9002226.02101,"1828,00228-2069-10 ",.01)
 ;;00228-2069-10
 ;;9002226.02101,"1828,00228-2069-10 ",.02)
 ;;00228-2069-10
 ;;9002226.02101,"1828,00228-2069-50 ",.01)
 ;;00228-2069-50
 ;;9002226.02101,"1828,00228-2069-50 ",.02)
 ;;00228-2069-50
 ;;9002226.02101,"1828,00228-2073-10 ",.01)
 ;;00228-2073-10
 ;;9002226.02101,"1828,00228-2073-10 ",.02)
 ;;00228-2073-10
 ;;9002226.02101,"1828,00228-2076-10 ",.01)
 ;;00228-2076-10
 ;;9002226.02101,"1828,00228-2076-10 ",.02)
 ;;00228-2076-10
 ;;9002226.02101,"1828,00228-2076-50 ",.01)
 ;;00228-2076-50
 ;;9002226.02101,"1828,00228-2076-50 ",.02)
 ;;00228-2076-50
 ;;9002226.02101,"1828,00228-2077-10 ",.01)
 ;;00228-2077-10
 ;;9002226.02101,"1828,00228-2077-10 ",.02)
 ;;00228-2077-10
 ;;9002226.02101,"1828,00228-2077-50 ",.01)
 ;;00228-2077-50
 ;;9002226.02101,"1828,00228-2077-50 ",.02)
 ;;00228-2077-50
 ;;9002226.02101,"1828,00228-3003-11 ",.01)
 ;;00228-3003-11
 ;;9002226.02101,"1828,00228-3003-11 ",.02)
 ;;00228-3003-11
 ;;9002226.02101,"1828,00228-3003-50 ",.01)
 ;;00228-3003-50
 ;;9002226.02101,"1828,00228-3003-50 ",.02)
 ;;00228-3003-50
 ;;9002226.02101,"1828,00228-3004-11 ",.01)
 ;;00228-3004-11
 ;;9002226.02101,"1828,00228-3004-11 ",.02)
 ;;00228-3004-11
 ;;9002226.02101,"1828,00228-3004-50 ",.01)
 ;;00228-3004-50
 ;;9002226.02101,"1828,00228-3004-50 ",.02)
 ;;00228-3004-50
 ;;9002226.02101,"1828,00228-3005-11 ",.01)
 ;;00228-3005-11
 ;;9002226.02101,"1828,00228-3005-11 ",.02)
 ;;00228-3005-11
 ;;9002226.02101,"1828,00228-3005-50 ",.01)
 ;;00228-3005-50
 ;;9002226.02101,"1828,00228-3005-50 ",.02)
 ;;00228-3005-50
 ;;9002226.02101,"1828,00228-3083-06 ",.01)
 ;;00228-3083-06
 ;;9002226.02101,"1828,00228-3083-06 ",.02)
 ;;00228-3083-06
 ;;9002226.02101,"1828,00228-3084-06 ",.01)
 ;;00228-3084-06
 ;;9002226.02101,"1828,00228-3084-06 ",.02)
 ;;00228-3084-06
 ;;9002226.02101,"1828,00228-3086-06 ",.01)
 ;;00228-3086-06
 ;;9002226.02101,"1828,00228-3086-06 ",.02)
 ;;00228-3086-06
 ;;9002226.02101,"1828,00228-3087-06 ",.01)
 ;;00228-3087-06
 ;;9002226.02101,"1828,00228-3087-06 ",.02)
 ;;00228-3087-06
 ;;9002226.02101,"1828,00228-4019-11 ",.01)
 ;;00228-4019-11
 ;;9002226.02101,"1828,00228-4019-11 ",.02)
 ;;00228-4019-11
 ;;9002226.02101,"1828,00228-4022-11 ",.01)
 ;;00228-4022-11
 ;;9002226.02101,"1828,00228-4022-11 ",.02)
 ;;00228-4022-11
 ;;9002226.02101,"1828,00228-4024-11 ",.01)
 ;;00228-4024-11
 ;;9002226.02101,"1828,00228-4024-11 ",.02)
 ;;00228-4024-11
 ;;9002226.02101,"1828,00228-4025-11 ",.01)
 ;;00228-4025-11
 ;;9002226.02101,"1828,00228-4025-11 ",.02)
 ;;00228-4025-11
 ;;9002226.02101,"1828,00378-0030-01 ",.01)
 ;;00378-0030-01
 ;;9002226.02101,"1828,00378-0030-01 ",.02)
 ;;00378-0030-01
 ;;9002226.02101,"1828,00378-0030-05 ",.01)
 ;;00378-0030-05
 ;;9002226.02101,"1828,00378-0030-05 ",.02)
 ;;00378-0030-05
 ;;9002226.02101,"1828,00378-0040-01 ",.01)
 ;;00378-0040-01
 ;;9002226.02101,"1828,00378-0040-01 ",.02)
 ;;00378-0040-01
 ;;9002226.02101,"1828,00378-0040-05 ",.01)
 ;;00378-0040-05
 ;;9002226.02101,"1828,00378-0040-05 ",.02)
 ;;00378-0040-05
 ;;9002226.02101,"1828,00378-0070-01 ",.01)
 ;;00378-0070-01
 ;;9002226.02101,"1828,00378-0070-01 ",.02)
 ;;00378-0070-01
 ;;9002226.02101,"1828,00378-0211-01 ",.01)
 ;;00378-0211-01
 ;;9002226.02101,"1828,00378-0211-01 ",.02)
 ;;00378-0211-01
 ;;9002226.02101,"1828,00378-0211-05 ",.01)
 ;;00378-0211-05
 ;;9002226.02101,"1828,00378-0211-05 ",.02)
 ;;00378-0211-05
 ;;9002226.02101,"1828,00378-0271-01 ",.01)
 ;;00378-0271-01
 ;;9002226.02101,"1828,00378-0271-01 ",.02)
 ;;00378-0271-01
 ;;9002226.02101,"1828,00378-0271-05 ",.01)
 ;;00378-0271-05
 ;;9002226.02101,"1828,00378-0271-05 ",.02)
 ;;00378-0271-05
 ;;9002226.02101,"1828,00378-0277-01 ",.01)
 ;;00378-0277-01
 ;;9002226.02101,"1828,00378-0277-01 ",.02)
 ;;00378-0277-01
 ;;9002226.02101,"1828,00378-0277-05 ",.01)
 ;;00378-0277-05
 ;;9002226.02101,"1828,00378-0277-05 ",.02)
 ;;00378-0277-05
 ;;9002226.02101,"1828,00378-0345-01 ",.01)
 ;;00378-0345-01
 ;;9002226.02101,"1828,00378-0345-01 ",.02)
 ;;00378-0345-01
 ;;9002226.02101,"1828,00378-0345-05 ",.01)
 ;;00378-0345-05
 ;;9002226.02101,"1828,00378-0345-05 ",.02)
 ;;00378-0345-05
 ;;9002226.02101,"1828,00378-0477-01 ",.01)
 ;;00378-0477-01
 ;;9002226.02101,"1828,00378-0477-01 ",.02)
 ;;00378-0477-01
 ;;9002226.02101,"1828,00378-0477-05 ",.01)
 ;;00378-0477-05
 ;;9002226.02101,"1828,00378-0477-05 ",.02)
 ;;00378-0477-05
 ;;9002226.02101,"1828,00378-1910-01 ",.01)
 ;;00378-1910-01
 ;;9002226.02101,"1828,00378-1910-01 ",.02)
 ;;00378-1910-01
 ;;9002226.02101,"1828,00378-1910-10 ",.01)
 ;;00378-1910-10
 ;;9002226.02101,"1828,00378-1910-10 ",.02)
 ;;00378-1910-10
 ;;9002226.02101,"1828,00378-1910-77 ",.01)
 ;;00378-1910-77
 ;;9002226.02101,"1828,00378-1910-77 ",.02)
 ;;00378-1910-77
 ;;9002226.02101,"1828,00378-1912-01 ",.01)
 ;;00378-1912-01
 ;;9002226.02101,"1828,00378-1912-01 ",.02)
 ;;00378-1912-01
 ;;9002226.02101,"1828,00378-1912-10 ",.01)
 ;;00378-1912-10
 ;;9002226.02101,"1828,00378-1912-10 ",.02)
 ;;00378-1912-10
 ;;9002226.02101,"1828,00378-1912-77 ",.01)
 ;;00378-1912-77
 ;;9002226.02101,"1828,00378-1912-77 ",.02)
 ;;00378-1912-77
 ;;9002226.02101,"1828,00378-1914-01 ",.01)
 ;;00378-1914-01
 ;;9002226.02101,"1828,00378-1914-01 ",.02)
 ;;00378-1914-01
 ;;9002226.02101,"1828,00378-1914-05 ",.01)
 ;;00378-1914-05
 ;;9002226.02101,"1828,00378-1914-05 ",.02)
 ;;00378-1914-05
 ;;9002226.02101,"1828,00378-2321-01 ",.01)
 ;;00378-2321-01
 ;;9002226.02101,"1828,00378-2321-01 ",.02)
 ;;00378-2321-01
 ;;9002226.02101,"1828,00378-2321-05 ",.01)
 ;;00378-2321-05
 ;;9002226.02101,"1828,00378-2321-05 ",.02)
 ;;00378-2321-05
 ;;9002226.02101,"1828,00378-2457-01 ",.01)
 ;;00378-2457-01
 ;;9002226.02101,"1828,00378-2457-01 ",.02)
 ;;00378-2457-01
 ;;9002226.02101,"1828,00378-2457-10 ",.01)
 ;;00378-2457-10
 ;;9002226.02101,"1828,00378-2457-10 ",.02)
 ;;00378-2457-10
 ;;9002226.02101,"1828,00378-2777-01 ",.01)
 ;;00378-2777-01
 ;;9002226.02101,"1828,00378-2777-01 ",.02)
 ;;00378-2777-01
 ;;9002226.02101,"1828,00378-2777-05 ",.01)
 ;;00378-2777-05
 ;;9002226.02101,"1828,00378-2777-05 ",.02)
 ;;00378-2777-05
 ;;9002226.02101,"1828,00378-3110-01 ",.01)
 ;;00378-3110-01
 ;;9002226.02101,"1828,00378-3110-01 ",.02)
 ;;00378-3110-01
 ;;9002226.02101,"1828,00378-3120-93 ",.01)
 ;;00378-3120-93
 ;;9002226.02101,"1828,00378-3120-93 ",.02)
 ;;00378-3120-93
 ;;9002226.02101,"1828,00378-4001-01 ",.01)
 ;;00378-4001-01
 ;;9002226.02101,"1828,00378-4001-01 ",.02)
 ;;00378-4001-01
 ;;9002226.02101,"1828,00378-4001-05 ",.01)
 ;;00378-4001-05
 ;;9002226.02101,"1828,00378-4001-05 ",.02)
 ;;00378-4001-05
 ;;9002226.02101,"1828,00378-4001-77 ",.01)
 ;;00378-4001-77
 ;;9002226.02101,"1828,00378-4001-77 ",.02)
 ;;00378-4001-77
 ;;9002226.02101,"1828,00378-4003-01 ",.01)
 ;;00378-4003-01
 ;;9002226.02101,"1828,00378-4003-01 ",.02)
 ;;00378-4003-01
 ;;9002226.02101,"1828,00378-4003-05 ",.01)
 ;;00378-4003-05
 ;;9002226.02101,"1828,00378-4003-05 ",.02)
 ;;00378-4003-05
 ;;9002226.02101,"1828,00378-4003-77 ",.01)
 ;;00378-4003-77
 ;;9002226.02101,"1828,00378-4003-77 ",.02)
 ;;00378-4003-77
 ;;9002226.02101,"1828,00378-4005-01 ",.01)
 ;;00378-4005-01
 ;;9002226.02101,"1828,00378-4005-01 ",.02)
 ;;00378-4005-01
 ;;9002226.02101,"1828,00378-4005-05 ",.01)
 ;;00378-4005-05
 ;;9002226.02101,"1828,00378-4005-05 ",.02)
 ;;00378-4005-05
 ;;9002226.02101,"1828,00378-4005-77 ",.01)
 ;;00378-4005-77
 ;;9002226.02101,"1828,00378-4005-77 ",.02)
 ;;00378-4005-77
 ;;9002226.02101,"1828,00378-4007-01 ",.01)
 ;;00378-4007-01
 ;;9002226.02101,"1828,00378-4007-01 ",.02)
 ;;00378-4007-01
 ;;9002226.02101,"1828,00378-4010-01 ",.01)
 ;;00378-4010-01
 ;;9002226.02101,"1828,00378-4010-01 ",.02)
 ;;00378-4010-01
 ;;9002226.02101,"1828,00378-4010-05 ",.01)
 ;;00378-4010-05
 ;;9002226.02101,"1828,00378-4010-05 ",.02)
 ;;00378-4010-05
 ;;9002226.02101,"1828,00378-4010-77 ",.01)
 ;;00378-4010-77
 ;;9002226.02101,"1828,00378-4010-77 ",.02)
 ;;00378-4010-77
 ;;9002226.02101,"1828,00378-4415-01 ",.01)
 ;;00378-4415-01
 ;;9002226.02101,"1828,00378-4415-01 ",.02)
 ;;00378-4415-01
 ;;9002226.02101,"1828,00378-4430-01 ",.01)
 ;;00378-4430-01
 ;;9002226.02101,"1828,00378-4430-01 ",.02)
 ;;00378-4430-01
 ;;9002226.02101,"1828,00378-5021-91 ",.01)
 ;;00378-5021-91
 ;;9002226.02101,"1828,00378-5021-91 ",.02)
 ;;00378-5021-91
 ;;9002226.02101,"1828,00378-5022-91 ",.01)
 ;;00378-5022-91
 ;;9002226.02101,"1828,00378-5022-91 ",.02)
 ;;00378-5022-91
 ;;9002226.02101,"1828,00378-5050-01 ",.01)
 ;;00378-5050-01
 ;;9002226.02101,"1828,00378-5050-01 ",.02)
 ;;00378-5050-01
 ;;9002226.02101,"1828,00378-5050-05 ",.01)
 ;;00378-5050-05