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

BGP2TPJ.m

Go to the documentation of this file.
  1. BGP2TPJ ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 27, 2012;
  1. ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
  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,"999,00378-6220-01 ",.02)
  1. ;;00378-6220-01
  1. ;;9002226.02101,"999,00378-6220-05 ",.01)
  1. ;;00378-6220-05
  1. ;;9002226.02101,"999,00378-6220-05 ",.02)
  1. ;;00378-6220-05
  1. ;;9002226.02101,"999,00378-6260-01 ",.01)
  1. ;;00378-6260-01
  1. ;;9002226.02101,"999,00378-6260-01 ",.02)
  1. ;;00378-6260-01
  1. ;;9002226.02101,"999,00378-6260-05 ",.01)
  1. ;;00378-6260-05
  1. ;;9002226.02101,"999,00378-6260-05 ",.02)
  1. ;;00378-6260-05
  1. ;;9002226.02101,"999,00406-2022-01 ",.01)
  1. ;;00406-2022-01
  1. ;;9002226.02101,"999,00406-2022-01 ",.02)
  1. ;;00406-2022-01
  1. ;;9002226.02101,"999,00406-2022-10 ",.01)
  1. ;;00406-2022-10
  1. ;;9002226.02101,"999,00406-2022-10 ",.02)
  1. ;;00406-2022-10
  1. ;;9002226.02101,"999,00406-2023-01 ",.01)
  1. ;;00406-2023-01
  1. ;;9002226.02101,"999,00406-2023-01 ",.02)
  1. ;;00406-2023-01
  1. ;;9002226.02101,"999,00406-2023-10 ",.01)
  1. ;;00406-2023-10
  1. ;;9002226.02101,"999,00406-2023-10 ",.02)
  1. ;;00406-2023-10
  1. ;;9002226.02101,"999,00406-2024-01 ",.01)
  1. ;;00406-2024-01
  1. ;;9002226.02101,"999,00406-2024-01 ",.02)
  1. ;;00406-2024-01
  1. ;;9002226.02101,"999,00406-2024-10 ",.01)
  1. ;;00406-2024-10
  1. ;;9002226.02101,"999,00406-2024-10 ",.02)
  1. ;;00406-2024-10
  1. ;;9002226.02101,"999,00440-7170-30 ",.01)
  1. ;;00440-7170-30
  1. ;;9002226.02101,"999,00440-7170-30 ",.02)
  1. ;;00440-7170-30
  1. ;;9002226.02101,"999,00440-7171-10 ",.01)
  1. ;;00440-7171-10
  1. ;;9002226.02101,"999,00440-7171-10 ",.02)
  1. ;;00440-7171-10
  1. ;;9002226.02101,"999,00440-7172-30 ",.01)
  1. ;;00440-7172-30
  1. ;;9002226.02101,"999,00440-7172-30 ",.02)
  1. ;;00440-7172-30
  1. ;;9002226.02101,"999,00440-7785-30 ",.01)
  1. ;;00440-7785-30
  1. ;;9002226.02101,"999,00440-7785-30 ",.02)
  1. ;;00440-7785-30
  1. ;;9002226.02101,"999,00456-1402-01 ",.01)
  1. ;;00456-1402-01
  1. ;;9002226.02101,"999,00456-1402-01 ",.02)
  1. ;;00456-1402-01
  1. ;;9002226.02101,"999,00456-1402-30 ",.01)
  1. ;;00456-1402-30
  1. ;;9002226.02101,"999,00456-1402-30 ",.02)
  1. ;;00456-1402-30
  1. ;;9002226.02101,"999,00456-1402-63 ",.01)
  1. ;;00456-1402-63
  1. ;;9002226.02101,"999,00456-1402-63 ",.02)
  1. ;;00456-1402-63
  1. ;;9002226.02101,"999,00456-1405-01 ",.01)
  1. ;;00456-1405-01
  1. ;;9002226.02101,"999,00456-1405-01 ",.02)
  1. ;;00456-1405-01
  1. ;;9002226.02101,"999,00456-1405-30 ",.01)
  1. ;;00456-1405-30
  1. ;;9002226.02101,"999,00456-1405-30 ",.02)
  1. ;;00456-1405-30
  1. ;;9002226.02101,"999,00456-1405-63 ",.01)
  1. ;;00456-1405-63
  1. ;;9002226.02101,"999,00456-1405-63 ",.02)
  1. ;;00456-1405-63
  1. ;;9002226.02101,"999,00456-1410-01 ",.01)
  1. ;;00456-1410-01
  1. ;;9002226.02101,"999,00456-1410-01 ",.02)
  1. ;;00456-1410-01
  1. ;;9002226.02101,"999,00456-1410-30 ",.01)
  1. ;;00456-1410-30
  1. ;;9002226.02101,"999,00456-1410-30 ",.02)
  1. ;;00456-1410-30
  1. ;;9002226.02101,"999,00456-1410-63 ",.01)
  1. ;;00456-1410-63
  1. ;;9002226.02101,"999,00456-1410-63 ",.02)
  1. ;;00456-1410-63
  1. ;;9002226.02101,"999,00456-1420-01 ",.01)
  1. ;;00456-1420-01
  1. ;;9002226.02101,"999,00456-1420-01 ",.02)
  1. ;;00456-1420-01
  1. ;;9002226.02101,"999,00456-1420-30 ",.01)
  1. ;;00456-1420-30
  1. ;;9002226.02101,"999,00456-1420-30 ",.02)
  1. ;;00456-1420-30
  1. ;;9002226.02101,"999,00490-0053-00 ",.01)
  1. ;;00490-0053-00
  1. ;;9002226.02101,"999,00490-0053-00 ",.02)
  1. ;;00490-0053-00
  1. ;;9002226.02101,"999,00490-0053-30 ",.01)
  1. ;;00490-0053-30
  1. ;;9002226.02101,"999,00490-0053-30 ",.02)
  1. ;;00490-0053-30
  1. ;;9002226.02101,"999,00490-0053-60 ",.01)
  1. ;;00490-0053-60
  1. ;;9002226.02101,"999,00490-0053-60 ",.02)
  1. ;;00490-0053-60
  1. ;;9002226.02101,"999,00490-0053-90 ",.01)
  1. ;;00490-0053-90
  1. ;;9002226.02101,"999,00490-0053-90 ",.02)
  1. ;;00490-0053-90
  1. ;;9002226.02101,"999,00555-0427-05 ",.01)
  1. ;;00555-0427-05
  1. ;;9002226.02101,"999,00555-0427-05 ",.02)
  1. ;;00555-0427-05
  1. ;;9002226.02101,"999,00591-0462-01 ",.01)
  1. ;;00591-0462-01
  1. ;;9002226.02101,"999,00591-0462-01 ",.02)
  1. ;;00591-0462-01
  1. ;;9002226.02101,"999,00591-0462-10 ",.01)
  1. ;;00591-0462-10
  1. ;;9002226.02101,"999,00591-0462-10 ",.02)
  1. ;;00591-0462-10
  1. ;;9002226.02101,"999,00591-0463-01 ",.01)
  1. ;;00591-0463-01
  1. ;;9002226.02101,"999,00591-0463-01 ",.02)
  1. ;;00591-0463-01
  1. ;;9002226.02101,"999,00591-0463-10 ",.01)
  1. ;;00591-0463-10
  1. ;;9002226.02101,"999,00591-0463-10 ",.02)
  1. ;;00591-0463-10
  1. ;;9002226.02101,"999,00591-0605-01 ",.01)
  1. ;;00591-0605-01
  1. ;;9002226.02101,"999,00591-0605-01 ",.02)
  1. ;;00591-0605-01
  1. ;;9002226.02101,"999,00591-0605-05 ",.01)
  1. ;;00591-0605-05
  1. ;;9002226.02101,"999,00591-0605-05 ",.02)
  1. ;;00591-0605-05
  1. ;;9002226.02101,"999,00591-0606-01 ",.01)
  1. ;;00591-0606-01
  1. ;;9002226.02101,"999,00591-0606-01 ",.02)
  1. ;;00591-0606-01
  1. ;;9002226.02101,"999,00591-0606-05 ",.01)
  1. ;;00591-0606-05
  1. ;;9002226.02101,"999,00591-0606-05 ",.02)
  1. ;;00591-0606-05
  1. ;;9002226.02101,"999,00591-0607-01 ",.01)
  1. ;;00591-0607-01
  1. ;;9002226.02101,"999,00591-0607-01 ",.02)
  1. ;;00591-0607-01
  1. ;;9002226.02101,"999,00591-0841-01 ",.01)
  1. ;;00591-0841-01
  1. ;;9002226.02101,"999,00591-0841-01 ",.02)
  1. ;;00591-0841-01
  1. ;;9002226.02101,"999,00591-0841-05 ",.01)
  1. ;;00591-0841-05
  1. ;;9002226.02101,"999,00591-0841-05 ",.02)
  1. ;;00591-0841-05
  1. ;;9002226.02101,"999,00591-0842-01 ",.01)
  1. ;;00591-0842-01
  1. ;;9002226.02101,"999,00591-0842-01 ",.02)
  1. ;;00591-0842-01
  1. ;;9002226.02101,"999,00591-0842-05 ",.01)
  1. ;;00591-0842-05
  1. ;;9002226.02101,"999,00591-0842-05 ",.02)
  1. ;;00591-0842-05
  1. ;;9002226.02101,"999,00591-0843-01 ",.01)
  1. ;;00591-0843-01
  1. ;;9002226.02101,"999,00591-0843-01 ",.02)
  1. ;;00591-0843-01
  1. ;;9002226.02101,"999,00591-0843-30 ",.01)
  1. ;;00591-0843-30
  1. ;;9002226.02101,"999,00591-0843-30 ",.02)
  1. ;;00591-0843-30
  1. ;;9002226.02101,"999,00591-5554-01 ",.01)
  1. ;;00591-5554-01
  1. ;;9002226.02101,"999,00591-5554-01 ",.02)
  1. ;;00591-5554-01
  1. ;;9002226.02101,"999,00591-5554-10 ",.01)
  1. ;;00591-5554-10
  1. ;;9002226.02101,"999,00591-5554-10 ",.02)
  1. ;;00591-5554-10
  1. ;;9002226.02101,"999,00591-5555-01 ",.01)
  1. ;;00591-5555-01
  1. ;;9002226.02101,"999,00591-5555-01 ",.02)
  1. ;;00591-5555-01
  1. ;;9002226.02101,"999,00591-5555-10 ",.01)
  1. ;;00591-5555-10
  1. ;;9002226.02101,"999,00591-5555-10 ",.02)
  1. ;;00591-5555-10
  1. ;;9002226.02101,"999,00591-5556-01 ",.01)
  1. ;;00591-5556-01
  1. ;;9002226.02101,"999,00591-5556-01 ",.02)
  1. ;;00591-5556-01
  1. ;;9002226.02101,"999,00591-5556-10 ",.01)
  1. ;;00591-5556-10
  1. ;;9002226.02101,"999,00591-5556-10 ",.02)
  1. ;;00591-5556-10
  1. ;;9002226.02101,"999,00591-5557-01 ",.01)
  1. ;;00591-5557-01
  1. ;;9002226.02101,"999,00591-5557-01 ",.02)
  1. ;;00591-5557-01
  1. ;;9002226.02101,"999,00591-5557-05 ",.01)
  1. ;;00591-5557-05
  1. ;;9002226.02101,"999,00591-5557-05 ",.02)
  1. ;;00591-5557-05
  1. ;;9002226.02101,"999,00591-5777-01 ",.01)
  1. ;;00591-5777-01
  1. ;;9002226.02101,"999,00591-5777-01 ",.02)
  1. ;;00591-5777-01
  1. ;;9002226.02101,"999,00591-5777-10 ",.01)
  1. ;;00591-5777-10
  1. ;;9002226.02101,"999,00591-5777-10 ",.02)
  1. ;;00591-5777-10
  1. ;;9002226.02101,"999,00591-5778-01 ",.01)
  1. ;;00591-5778-01
  1. ;;9002226.02101,"999,00591-5778-01 ",.02)
  1. ;;00591-5778-01
  1. ;;9002226.02101,"999,00591-5782-01 ",.01)
  1. ;;00591-5782-01
  1. ;;9002226.02101,"999,00591-5782-01 ",.02)
  1. ;;00591-5782-01
  1. ;;9002226.02101,"999,00591-5783-01 ",.01)
  1. ;;00591-5783-01
  1. ;;9002226.02101,"999,00591-5783-01 ",.02)
  1. ;;00591-5783-01
  1. ;;9002226.02101,"999,00603-5482-21 ",.01)
  1. ;;00603-5482-21
  1. ;;9002226.02101,"999,00603-5482-21 ",.02)
  1. ;;00603-5482-21
  1. ;;9002226.02101,"999,00603-5482-32 ",.01)
  1. ;;00603-5482-32
  1. ;;9002226.02101,"999,00603-5482-32 ",.02)
  1. ;;00603-5482-32
  1. ;;9002226.02101,"999,00603-5483-21 ",.01)
  1. ;;00603-5483-21
  1. ;;9002226.02101,"999,00603-5483-21 ",.02)
  1. ;;00603-5483-21
  1. ;;9002226.02101,"999,00603-5483-32 ",.01)
  1. ;;00603-5483-32
  1. ;;9002226.02101,"999,00603-5483-32 ",.02)
  1. ;;00603-5483-32
  1. ;;9002226.02101,"999,00603-5484-21 ",.01)
  1. ;;00603-5484-21
  1. ;;9002226.02101,"999,00603-5484-21 ",.02)
  1. ;;00603-5484-21
  1. ;;9002226.02101,"999,00603-5484-32 ",.01)
  1. ;;00603-5484-32
  1. ;;9002226.02101,"999,00603-5484-32 ",.02)
  1. ;;00603-5484-32
  1. ;;9002226.02101,"999,00603-5485-21 ",.01)
  1. ;;00603-5485-21
  1. ;;9002226.02101,"999,00603-5485-21 ",.02)
  1. ;;00603-5485-21
  1. ;;9002226.02101,"999,00603-5486-21 ",.01)
  1. ;;00603-5486-21
  1. ;;9002226.02101,"999,00603-5486-21 ",.02)
  1. ;;00603-5486-21
  1. ;;9002226.02101,"999,00603-5486-28 ",.01)
  1. ;;00603-5486-28
  1. ;;9002226.02101,"999,00603-5486-28 ",.02)
  1. ;;00603-5486-28
  1. ;;9002226.02101,"999,00603-5769-21 ",.01)
  1. ;;00603-5769-21
  1. ;;9002226.02101,"999,00603-5769-21 ",.02)
  1. ;;00603-5769-21
  1. ;;9002226.02101,"999,00603-5769-28 ",.01)
  1. ;;00603-5769-28
  1. ;;9002226.02101,"999,00603-5769-28 ",.02)
  1. ;;00603-5769-28
  1. ;;9002226.02101,"999,00603-5770-21 ",.01)
  1. ;;00603-5770-21
  1. ;;9002226.02101,"999,00603-5770-21 ",.02)
  1. ;;00603-5770-21
  1. ;;9002226.02101,"999,00603-5771-21 ",.01)
  1. ;;00603-5771-21
  1. ;;9002226.02101,"999,00603-5771-21 ",.02)
  1. ;;00603-5771-21
  1. ;;9002226.02101,"999,00603-5772-21 ",.01)
  1. ;;00603-5772-21
  1. ;;9002226.02101,"999,00603-5772-21 ",.02)
  1. ;;00603-5772-21
  1. ;;9002226.02101,"999,00615-2561-63 ",.01)
  1. ;;00615-2561-63
  1. ;;9002226.02101,"999,00615-2561-63 ",.02)
  1. ;;00615-2561-63
  1. ;;9002226.02101,"999,00615-2562-13 ",.01)
  1. ;;00615-2562-13
  1. ;;9002226.02101,"999,00615-2562-13 ",.02)
  1. ;;00615-2562-13
  1. ;;9002226.02101,"999,00615-2562-63 ",.01)
  1. ;;00615-2562-63
  1. ;;9002226.02101,"999,00615-2562-63 ",.02)
  1. ;;00615-2562-63
  1. ;;9002226.02101,"999,00615-2563-63 ",.01)
  1. ;;00615-2563-63
  1. ;;9002226.02101,"999,00615-2563-63 ",.02)
  1. ;;00615-2563-63
  1. ;;9002226.02101,"999,00615-3506-13 ",.01)
  1. ;;00615-3506-13
  1. ;;9002226.02101,"999,00615-3506-13 ",.02)
  1. ;;00615-3506-13
  1. ;;9002226.02101,"999,00615-3532-63 ",.01)
  1. ;;00615-3532-63
  1. ;;9002226.02101,"999,00615-3532-63 ",.02)
  1. ;;00615-3532-63
  1. ;;9002226.02101,"999,00615-3544-63 ",.01)
  1. ;;00615-3544-63
  1. ;;9002226.02101,"999,00615-3544-63 ",.02)
  1. ;;00615-3544-63
  1. ;;9002226.02101,"999,00615-3547-13 ",.01)
  1. ;;00615-3547-13
  1. ;;9002226.02101,"999,00615-3547-13 ",.02)
  1. ;;00615-3547-13
  1. ;;9002226.02101,"999,00615-3552-13 ",.01)
  1. ;;00615-3552-13
  1. ;;9002226.02101,"999,00615-3552-13 ",.02)
  1. ;;00615-3552-13
  1. ;;9002226.02101,"999,00615-3552-63 ",.01)
  1. ;;00615-3552-63
  1. ;;9002226.02101,"999,00615-3552-63 ",.02)
  1. ;;00615-3552-63
  1. ;;9002226.02101,"999,00615-3553-53 ",.01)
  1. ;;00615-3553-53
  1. ;;9002226.02101,"999,00615-3553-53 ",.02)
  1. ;;00615-3553-53
  1. ;;9002226.02101,"999,00615-3553-63 ",.01)
  1. ;;00615-3553-63
  1. ;;9002226.02101,"999,00615-3553-63 ",.02)
  1. ;;00615-3553-63
  1. ;;9002226.02101,"999,00677-1480-01 ",.01)
  1. ;;00677-1480-01
  1. ;;9002226.02101,"999,00677-1480-01 ",.02)
  1. ;;00677-1480-01
  1. ;;9002226.02101,"999,00677-1482-01 ",.01)
  1. ;;00677-1482-01
  1. ;;9002226.02101,"999,00677-1482-01 ",.02)
  1. ;;00677-1482-01
  1. ;;9002226.02101,"999,00677-1483-01 ",.01)
  1. ;;00677-1483-01
  1. ;;9002226.02101,"999,00677-1483-01 ",.02)
  1. ;;00677-1483-01
  1. ;;9002226.02101,"999,00677-1893-01 ",.01)
  1. ;;00677-1893-01
  1. ;;9002226.02101,"999,00677-1893-01 ",.02)
  1. ;;00677-1893-01
  1. ;;9002226.02101,"999,00677-1893-06 ",.01)
  1. ;;00677-1893-06
  1. ;;9002226.02101,"999,00677-1893-06 ",.02)
  1. ;;00677-1893-06
  1. ;;9002226.02101,"999,00677-1894-01 ",.01)
  1. ;;00677-1894-01
  1. ;;9002226.02101,"999,00677-1894-01 ",.02)
  1. ;;00677-1894-01
  1. ;;9002226.02101,"999,00677-1894-06 ",.01)
  1. ;;00677-1894-06
  1. ;;9002226.02101,"999,00677-1894-06 ",.02)
  1. ;;00677-1894-06
  1. ;;9002226.02101,"999,00677-1895-01 ",.01)
  1. ;;00677-1895-01
  1. ;;9002226.02101,"999,00677-1895-01 ",.02)
  1. ;;00677-1895-01
  1. ;;9002226.02101,"999,00677-1895-06 ",.01)
  1. ;;00677-1895-06
  1. ;;9002226.02101,"999,00677-1895-06 ",.02)
  1. ;;00677-1895-06
  1. ;;9002226.02101,"999,00781-1078-01 ",.01)
  1. ;;00781-1078-01
  1. ;;9002226.02101,"999,00781-1078-01 ",.02)
  1. ;;00781-1078-01
  1. ;;9002226.02101,"999,00781-1078-10 ",.01)
  1. ;;00781-1078-10
  1. ;;9002226.02101,"999,00781-1078-10 ",.02)
  1. ;;00781-1078-10
  1. ;;9002226.02101,"999,00781-1181-01 ",.01)
  1. ;;00781-1181-01
  1. ;;9002226.02101,"999,00781-1181-01 ",.02)
  1. ;;00781-1181-01
  1. ;;9002226.02101,"999,00781-1181-10 ",.01)
  1. ;;00781-1181-10
  1. ;;9002226.02101,"999,00781-1181-10 ",.02)
  1. ;;00781-1181-10
  1. ;;9002226.02101,"999,00781-1181-92 ",.01)
  1. ;;00781-1181-92
  1. ;;9002226.02101,"999,00781-1181-92 ",.02)
  1. ;;00781-1181-92
  1. ;;9002226.02101,"999,00781-1182-01 ",.01)
  1. ;;00781-1182-01
  1. ;;9002226.02101,"999,00781-1182-01 ",.02)
  1. ;;00781-1182-01
  1. ;;9002226.02101,"999,00781-1182-10 ",.01)
  1. ;;00781-1182-10
  1. ;;9002226.02101,"999,00781-1182-10 ",.02)
  1. ;;00781-1182-10
  1. ;;9002226.02101,"999,00781-1182-92 ",.01)
  1. ;;00781-1182-92
  1. ;;9002226.02101,"999,00781-1182-92 ",.02)
  1. ;;00781-1182-92
  1. ;;9002226.02101,"999,00781-1183-01 ",.01)
  1. ;;00781-1183-01
  1. ;;9002226.02101,"999,00781-1183-01 ",.02)
  1. ;;00781-1183-01
  1. ;;9002226.02101,"999,00781-1183-10 ",.01)
  1. ;;00781-1183-10
  1. ;;9002226.02101,"999,00781-1183-10 ",.02)
  1. ;;00781-1183-10
  1. ;;9002226.02101,"999,00781-1183-92 ",.01)
  1. ;;00781-1183-92
  1. ;;9002226.02101,"999,00781-1183-92 ",.02)
  1. ;;00781-1183-92
  1. ;;9002226.02101,"999,00781-1223-01 ",.01)
  1. ;;00781-1223-01
  1. ;;9002226.02101,"999,00781-1223-01 ",.02)
  1. ;;00781-1223-01
  1. ;;9002226.02101,"999,00781-1223-10 ",.01)
  1. ;;00781-1223-10
  1. ;;9002226.02101,"999,00781-1223-10 ",.02)
  1. ;;00781-1223-10
  1. ;;9002226.02101,"999,00781-1228-01 ",.01)
  1. ;;00781-1228-01
  1. ;;9002226.02101,"999,00781-1228-01 ",.02)
  1. ;;00781-1228-01
  1. ;;9002226.02101,"999,00781-1228-10 ",.01)
  1. ;;00781-1228-10
  1. ;;9002226.02101,"999,00781-1228-10 ",.02)
  1. ;;00781-1228-10
  1. ;;9002226.02101,"999,00781-1506-01 ",.01)
  1. ;;00781-1506-01
  1. ;;9002226.02101,"999,00781-1506-01 ",.02)
  1. ;;00781-1506-01
  1. ;;9002226.02101,"999,00781-1506-10 ",.01)
  1. ;;00781-1506-10
  1. ;;9002226.02101,"999,00781-1506-10 ",.02)
  1. ;;00781-1506-10
  1. ;;9002226.02101,"999,00781-1507-01 ",.01)
  1. ;;00781-1507-01
  1. ;;9002226.02101,"999,00781-1507-01 ",.02)
  1. ;;00781-1507-01
  1. ;;9002226.02101,"999,00781-1507-10 ",.01)
  1. ;;00781-1507-10