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

BGP61A19.m

Go to the documentation of this file.
  1. BGP61A19 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
  1. ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
  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,"1799,50436-5539-01 ",.02)
  1. ;;50436-5539-01
  1. ;;9002226.02101,"1799,50436-5539-04 ",.01)
  1. ;;50436-5539-04
  1. ;;9002226.02101,"1799,50436-5539-04 ",.02)
  1. ;;50436-5539-04
  1. ;;9002226.02101,"1799,50991-0514-16 ",.01)
  1. ;;50991-0514-16
  1. ;;9002226.02101,"1799,50991-0514-16 ",.02)
  1. ;;50991-0514-16
  1. ;;9002226.02101,"1799,51079-0107-01 ",.01)
  1. ;;51079-0107-01
  1. ;;9002226.02101,"1799,51079-0107-01 ",.02)
  1. ;;51079-0107-01
  1. ;;9002226.02101,"1799,51079-0107-17 ",.01)
  1. ;;51079-0107-17
  1. ;;9002226.02101,"1799,51079-0107-17 ",.02)
  1. ;;51079-0107-17
  1. ;;9002226.02101,"1799,51079-0107-19 ",.01)
  1. ;;51079-0107-19
  1. ;;9002226.02101,"1799,51079-0107-19 ",.02)
  1. ;;51079-0107-19
  1. ;;9002226.02101,"1799,51079-0107-20 ",.01)
  1. ;;51079-0107-20
  1. ;;9002226.02101,"1799,51079-0107-20 ",.02)
  1. ;;51079-0107-20
  1. ;;9002226.02101,"1799,51079-0107-63 ",.01)
  1. ;;51079-0107-63
  1. ;;9002226.02101,"1799,51079-0107-63 ",.02)
  1. ;;51079-0107-63
  1. ;;9002226.02101,"1799,51079-0131-01 ",.01)
  1. ;;51079-0131-01
  1. ;;9002226.02101,"1799,51079-0131-01 ",.02)
  1. ;;51079-0131-01
  1. ;;9002226.02101,"1799,51079-0131-20 ",.01)
  1. ;;51079-0131-20
  1. ;;9002226.02101,"1799,51079-0131-20 ",.02)
  1. ;;51079-0131-20
  1. ;;9002226.02101,"1799,51079-0131-63 ",.01)
  1. ;;51079-0131-63
  1. ;;9002226.02101,"1799,51079-0131-63 ",.02)
  1. ;;51079-0131-63
  1. ;;9002226.02101,"1799,51079-0133-01 ",.01)
  1. ;;51079-0133-01
  1. ;;9002226.02101,"1799,51079-0133-01 ",.02)
  1. ;;51079-0133-01
  1. ;;9002226.02101,"1799,51079-0133-20 ",.01)
  1. ;;51079-0133-20
  1. ;;9002226.02101,"1799,51079-0133-20 ",.02)
  1. ;;51079-0133-20
  1. ;;9002226.02101,"1799,51079-0133-63 ",.01)
  1. ;;51079-0133-63
  1. ;;9002226.02101,"1799,51079-0133-63 ",.02)
  1. ;;51079-0133-63
  1. ;;9002226.02101,"1799,51079-0147-01 ",.01)
  1. ;;51079-0147-01
  1. ;;9002226.02101,"1799,51079-0147-01 ",.02)
  1. ;;51079-0147-01
  1. ;;9002226.02101,"1799,51079-0147-20 ",.01)
  1. ;;51079-0147-20
  1. ;;9002226.02101,"1799,51079-0147-20 ",.02)
  1. ;;51079-0147-20
  1. ;;9002226.02101,"1799,51079-0349-01 ",.01)
  1. ;;51079-0349-01
  1. ;;9002226.02101,"1799,51079-0349-01 ",.02)
  1. ;;51079-0349-01
  1. ;;9002226.02101,"1799,51079-0349-03 ",.01)
  1. ;;51079-0349-03
  1. ;;9002226.02101,"1799,51079-0349-03 ",.02)
  1. ;;51079-0349-03
  1. ;;9002226.02101,"1799,51079-0414-01 ",.01)
  1. ;;51079-0414-01
  1. ;;9002226.02101,"1799,51079-0414-01 ",.02)
  1. ;;51079-0414-01
  1. ;;9002226.02101,"1799,51079-0414-03 ",.01)
  1. ;;51079-0414-03
  1. ;;9002226.02101,"1799,51079-0414-03 ",.02)
  1. ;;51079-0414-03
  1. ;;9002226.02101,"1799,51079-0436-01 ",.01)
  1. ;;51079-0436-01
  1. ;;9002226.02101,"1799,51079-0436-01 ",.02)
  1. ;;51079-0436-01
  1. ;;9002226.02101,"1799,51079-0436-20 ",.01)
  1. ;;51079-0436-20
  1. ;;9002226.02101,"1799,51079-0436-20 ",.02)
  1. ;;51079-0436-20
  1. ;;9002226.02101,"1799,51079-0437-01 ",.01)
  1. ;;51079-0437-01
  1. ;;9002226.02101,"1799,51079-0437-01 ",.02)
  1. ;;51079-0437-01
  1. ;;9002226.02101,"1799,51079-0437-20 ",.01)
  1. ;;51079-0437-20
  1. ;;9002226.02101,"1799,51079-0437-20 ",.02)
  1. ;;51079-0437-20
  1. ;;9002226.02101,"1799,51079-0438-01 ",.01)
  1. ;;51079-0438-01
  1. ;;9002226.02101,"1799,51079-0438-01 ",.02)
  1. ;;51079-0438-01
  1. ;;9002226.02101,"1799,51079-0438-20 ",.01)
  1. ;;51079-0438-20
  1. ;;9002226.02101,"1799,51079-0438-20 ",.02)
  1. ;;51079-0438-20
  1. ;;9002226.02101,"1799,51079-0563-01 ",.01)
  1. ;;51079-0563-01
  1. ;;9002226.02101,"1799,51079-0563-01 ",.02)
  1. ;;51079-0563-01
  1. ;;9002226.02101,"1799,51079-0563-20 ",.01)
  1. ;;51079-0563-20
  1. ;;9002226.02101,"1799,51079-0563-20 ",.02)
  1. ;;51079-0563-20
  1. ;;9002226.02101,"1799,51079-0565-01 ",.01)
  1. ;;51079-0565-01
  1. ;;9002226.02101,"1799,51079-0565-01 ",.02)
  1. ;;51079-0565-01
  1. ;;9002226.02101,"1799,51079-0565-20 ",.01)
  1. ;;51079-0565-20
  1. ;;9002226.02101,"1799,51079-0565-20 ",.02)
  1. ;;51079-0565-20
  1. ;;9002226.02101,"1799,51079-0566-01 ",.01)
  1. ;;51079-0566-01
  1. ;;9002226.02101,"1799,51079-0566-01 ",.02)
  1. ;;51079-0566-01
  1. ;;9002226.02101,"1799,51079-0566-20 ",.01)
  1. ;;51079-0566-20
  1. ;;9002226.02101,"1799,51079-0566-20 ",.02)
  1. ;;51079-0566-20
  1. ;;9002226.02101,"1799,51079-0567-01 ",.01)
  1. ;;51079-0567-01
  1. ;;9002226.02101,"1799,51079-0567-01 ",.02)
  1. ;;51079-0567-01
  1. ;;9002226.02101,"1799,51079-0567-20 ",.01)
  1. ;;51079-0567-20
  1. ;;9002226.02101,"1799,51079-0567-20 ",.02)
  1. ;;51079-0567-20
  1. ;;9002226.02101,"1799,51079-0580-01 ",.01)
  1. ;;51079-0580-01
  1. ;;9002226.02101,"1799,51079-0580-01 ",.02)
  1. ;;51079-0580-01
  1. ;;9002226.02101,"1799,51079-0580-20 ",.01)
  1. ;;51079-0580-20
  1. ;;9002226.02101,"1799,51079-0580-20 ",.02)
  1. ;;51079-0580-20
  1. ;;9002226.02101,"1799,51079-0651-01 ",.01)
  1. ;;51079-0651-01
  1. ;;9002226.02101,"1799,51079-0651-01 ",.02)
  1. ;;51079-0651-01
  1. ;;9002226.02101,"1799,51079-0651-20 ",.01)
  1. ;;51079-0651-20
  1. ;;9002226.02101,"1799,51079-0651-20 ",.02)
  1. ;;51079-0651-20
  1. ;;9002226.02101,"1799,51079-0724-01 ",.01)
  1. ;;51079-0724-01
  1. ;;9002226.02101,"1799,51079-0724-01 ",.02)
  1. ;;51079-0724-01
  1. ;;9002226.02101,"1799,51079-0724-20 ",.01)
  1. ;;51079-0724-20
  1. ;;9002226.02101,"1799,51079-0724-20 ",.02)
  1. ;;51079-0724-20
  1. ;;9002226.02101,"1799,51079-0725-01 ",.01)
  1. ;;51079-0725-01
  1. ;;9002226.02101,"1799,51079-0725-01 ",.02)
  1. ;;51079-0725-01
  1. ;;9002226.02101,"1799,51079-0725-20 ",.01)
  1. ;;51079-0725-20
  1. ;;9002226.02101,"1799,51079-0725-20 ",.02)
  1. ;;51079-0725-20
  1. ;;9002226.02101,"1799,51138-0001-30 ",.01)
  1. ;;51138-0001-30
  1. ;;9002226.02101,"1799,51138-0001-30 ",.02)
  1. ;;51138-0001-30
  1. ;;9002226.02101,"1799,51138-0002-30 ",.01)
  1. ;;51138-0002-30
  1. ;;9002226.02101,"1799,51138-0002-30 ",.02)
  1. ;;51138-0002-30
  1. ;;9002226.02101,"1799,51138-0003-30 ",.01)
  1. ;;51138-0003-30
  1. ;;9002226.02101,"1799,51138-0003-30 ",.02)
  1. ;;51138-0003-30
  1. ;;9002226.02101,"1799,51138-0004-30 ",.01)
  1. ;;51138-0004-30
  1. ;;9002226.02101,"1799,51138-0004-30 ",.02)
  1. ;;51138-0004-30
  1. ;;9002226.02101,"1799,51138-0005-30 ",.01)
  1. ;;51138-0005-30
  1. ;;9002226.02101,"1799,51138-0005-30 ",.02)
  1. ;;51138-0005-30
  1. ;;9002226.02101,"1799,51138-0006-30 ",.01)
  1. ;;51138-0006-30
  1. ;;9002226.02101,"1799,51138-0006-30 ",.02)
  1. ;;51138-0006-30
  1. ;;9002226.02101,"1799,51138-0028-30 ",.01)
  1. ;;51138-0028-30
  1. ;;9002226.02101,"1799,51138-0028-30 ",.02)
  1. ;;51138-0028-30
  1. ;;9002226.02101,"1799,51138-0029-30 ",.01)
  1. ;;51138-0029-30
  1. ;;9002226.02101,"1799,51138-0029-30 ",.02)
  1. ;;51138-0029-30
  1. ;;9002226.02101,"1799,51138-0030-30 ",.01)
  1. ;;51138-0030-30
  1. ;;9002226.02101,"1799,51138-0030-30 ",.02)
  1. ;;51138-0030-30
  1. ;;9002226.02101,"1799,51138-0031-30 ",.01)
  1. ;;51138-0031-30
  1. ;;9002226.02101,"1799,51138-0031-30 ",.02)
  1. ;;51138-0031-30
  1. ;;9002226.02101,"1799,51138-0032-30 ",.01)
  1. ;;51138-0032-30
  1. ;;9002226.02101,"1799,51138-0032-30 ",.02)
  1. ;;51138-0032-30
  1. ;;9002226.02101,"1799,51285-0538-02 ",.01)
  1. ;;51285-0538-02
  1. ;;9002226.02101,"1799,51285-0538-02 ",.02)
  1. ;;51285-0538-02
  1. ;;9002226.02101,"1799,51285-0539-02 ",.01)
  1. ;;51285-0539-02
  1. ;;9002226.02101,"1799,51285-0539-02 ",.02)
  1. ;;51285-0539-02
  1. ;;9002226.02101,"1799,51285-0554-02 ",.01)
  1. ;;51285-0554-02
  1. ;;9002226.02101,"1799,51285-0554-02 ",.02)
  1. ;;51285-0554-02
  1. ;;9002226.02101,"1799,51293-0605-01 ",.01)
  1. ;;51293-0605-01
  1. ;;9002226.02101,"1799,51293-0605-01 ",.02)
  1. ;;51293-0605-01
  1. ;;9002226.02101,"1799,51293-0606-01 ",.01)
  1. ;;51293-0606-01
  1. ;;9002226.02101,"1799,51293-0606-01 ",.02)
  1. ;;51293-0606-01
  1. ;;9002226.02101,"1799,51293-0625-01 ",.01)
  1. ;;51293-0625-01
  1. ;;9002226.02101,"1799,51293-0625-01 ",.02)
  1. ;;51293-0625-01
  1. ;;9002226.02101,"1799,51293-0626-01 ",.01)
  1. ;;51293-0626-01
  1. ;;9002226.02101,"1799,51293-0626-01 ",.02)
  1. ;;51293-0626-01
  1. ;;9002226.02101,"1799,51293-0627-01 ",.01)
  1. ;;51293-0627-01
  1. ;;9002226.02101,"1799,51293-0627-01 ",.02)
  1. ;;51293-0627-01
  1. ;;9002226.02101,"1799,51293-0628-01 ",.01)
  1. ;;51293-0628-01
  1. ;;9002226.02101,"1799,51293-0628-01 ",.02)
  1. ;;51293-0628-01
  1. ;;9002226.02101,"1799,51672-4011-05 ",.01)
  1. ;;51672-4011-05
  1. ;;9002226.02101,"1799,51672-4011-05 ",.02)
  1. ;;51672-4011-05
  1. ;;9002226.02101,"1799,51672-4011-06 ",.01)
  1. ;;51672-4011-06
  1. ;;9002226.02101,"1799,51672-4011-06 ",.02)
  1. ;;51672-4011-06
  1. ;;9002226.02101,"1799,51672-4012-05 ",.01)
  1. ;;51672-4012-05
  1. ;;9002226.02101,"1799,51672-4012-05 ",.02)
  1. ;;51672-4012-05
  1. ;;9002226.02101,"1799,51672-4012-06 ",.01)
  1. ;;51672-4012-06
  1. ;;9002226.02101,"1799,51672-4012-06 ",.02)
  1. ;;51672-4012-06
  1. ;;9002226.02101,"1799,51672-4013-05 ",.01)
  1. ;;51672-4013-05
  1. ;;9002226.02101,"1799,51672-4013-05 ",.02)
  1. ;;51672-4013-05
  1. ;;9002226.02101,"1799,51672-4013-06 ",.01)
  1. ;;51672-4013-06
  1. ;;9002226.02101,"1799,51672-4013-06 ",.02)
  1. ;;51672-4013-06
  1. ;;9002226.02101,"1799,51862-0179-01 ",.01)
  1. ;;51862-0179-01
  1. ;;9002226.02101,"1799,51862-0179-01 ",.02)
  1. ;;51862-0179-01
  1. ;;9002226.02101,"1799,51991-0073-01 ",.01)
  1. ;;51991-0073-01
  1. ;;9002226.02101,"1799,51991-0073-01 ",.02)
  1. ;;51991-0073-01
  1. ;;9002226.02101,"1799,51991-0074-01 ",.01)
  1. ;;51991-0074-01
  1. ;;9002226.02101,"1799,51991-0074-01 ",.02)
  1. ;;51991-0074-01
  1. ;;9002226.02101,"1799,51991-0074-05 ",.01)
  1. ;;51991-0074-05
  1. ;;9002226.02101,"1799,51991-0074-05 ",.02)
  1. ;;51991-0074-05
  1. ;;9002226.02101,"1799,51991-0080-51 ",.01)
  1. ;;51991-0080-51
  1. ;;9002226.02101,"1799,51991-0080-51 ",.02)
  1. ;;51991-0080-51
  1. ;;9002226.02101,"1799,51991-0080-52 ",.01)
  1. ;;51991-0080-52
  1. ;;9002226.02101,"1799,51991-0080-52 ",.02)
  1. ;;51991-0080-52
  1. ;;9002226.02101,"1799,52544-0080-01 ",.01)
  1. ;;52544-0080-01
  1. ;;9002226.02101,"1799,52544-0080-01 ",.02)
  1. ;;52544-0080-01
  1. ;;9002226.02101,"1799,52544-0082-01 ",.01)
  1. ;;52544-0082-01
  1. ;;9002226.02101,"1799,52544-0082-01 ",.02)
  1. ;;52544-0082-01
  1. ;;9002226.02101,"1799,52544-0955-01 ",.01)
  1. ;;52544-0955-01
  1. ;;9002226.02101,"1799,52544-0955-01 ",.02)
  1. ;;52544-0955-01
  1. ;;9002226.02101,"1799,52544-0956-01 ",.01)
  1. ;;52544-0956-01
  1. ;;9002226.02101,"1799,52544-0956-01 ",.02)
  1. ;;52544-0956-01
  1. ;;9002226.02101,"1799,52544-0957-01 ",.01)
  1. ;;52544-0957-01
  1. ;;9002226.02101,"1799,52544-0957-01 ",.02)
  1. ;;52544-0957-01
  1. ;;9002226.02101,"1799,52544-0957-05 ",.01)
  1. ;;52544-0957-05
  1. ;;9002226.02101,"1799,52544-0957-05 ",.02)
  1. ;;52544-0957-05
  1. ;;9002226.02101,"1799,52544-0958-01 ",.01)
  1. ;;52544-0958-01
  1. ;;9002226.02101,"1799,52544-0958-01 ",.02)
  1. ;;52544-0958-01
  1. ;;9002226.02101,"1799,52959-0008-02 ",.01)
  1. ;;52959-0008-02
  1. ;;9002226.02101,"1799,52959-0008-02 ",.02)
  1. ;;52959-0008-02
  1. ;;9002226.02101,"1799,52959-0008-15 ",.01)
  1. ;;52959-0008-15
  1. ;;9002226.02101,"1799,52959-0008-15 ",.02)
  1. ;;52959-0008-15
  1. ;;9002226.02101,"1799,52959-0008-20 ",.01)
  1. ;;52959-0008-20
  1. ;;9002226.02101,"1799,52959-0008-20 ",.02)
  1. ;;52959-0008-20
  1. ;;9002226.02101,"1799,52959-0008-30 ",.01)
  1. ;;52959-0008-30
  1. ;;9002226.02101,"1799,52959-0008-30 ",.02)
  1. ;;52959-0008-30
  1. ;;9002226.02101,"1799,52959-0008-40 ",.01)
  1. ;;52959-0008-40
  1. ;;9002226.02101,"1799,52959-0008-40 ",.02)
  1. ;;52959-0008-40
  1. ;;9002226.02101,"1799,52959-0008-50 ",.01)
  1. ;;52959-0008-50
  1. ;;9002226.02101,"1799,52959-0008-50 ",.02)
  1. ;;52959-0008-50
  1. ;;9002226.02101,"1799,52959-0008-60 ",.01)
  1. ;;52959-0008-60
  1. ;;9002226.02101,"1799,52959-0008-60 ",.02)
  1. ;;52959-0008-60
  1. ;;9002226.02101,"1799,52959-0008-90 ",.01)
  1. ;;52959-0008-90
  1. ;;9002226.02101,"1799,52959-0008-90 ",.02)
  1. ;;52959-0008-90
  1. ;;9002226.02101,"1799,52959-0023-06 ",.01)
  1. ;;52959-0023-06
  1. ;;9002226.02101,"1799,52959-0023-06 ",.02)
  1. ;;52959-0023-06
  1. ;;9002226.02101,"1799,52959-0023-20 ",.01)
  1. ;;52959-0023-20
  1. ;;9002226.02101,"1799,52959-0023-20 ",.02)
  1. ;;52959-0023-20
  1. ;;9002226.02101,"1799,52959-0023-30 ",.01)
  1. ;;52959-0023-30
  1. ;;9002226.02101,"1799,52959-0023-30 ",.02)
  1. ;;52959-0023-30
  1. ;;9002226.02101,"1799,52959-0023-50 ",.01)
  1. ;;52959-0023-50
  1. ;;9002226.02101,"1799,52959-0023-50 ",.02)
  1. ;;52959-0023-50
  1. ;;9002226.02101,"1799,52959-0023-60 ",.01)
  1. ;;52959-0023-60
  1. ;;9002226.02101,"1799,52959-0023-60 ",.02)
  1. ;;52959-0023-60
  1. ;;9002226.02101,"1799,52959-0274-03 ",.01)
  1. ;;52959-0274-03
  1. ;;9002226.02101,"1799,52959-0274-03 ",.02)
  1. ;;52959-0274-03