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

BGP31K33.m

Go to the documentation of this file.
  1. BGP31K33 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
  1. ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
  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,"804,68115-0440-48 ",.01)
  1. ;;68115-0440-48
  1. ;;9002226.02101,"804,68115-0440-48 ",.02)
  1. ;;68115-0440-48
  1. ;;9002226.02101,"804,68115-0440-50 ",.01)
  1. ;;68115-0440-50
  1. ;;9002226.02101,"804,68115-0440-50 ",.02)
  1. ;;68115-0440-50
  1. ;;9002226.02101,"804,68115-0440-56 ",.01)
  1. ;;68115-0440-56
  1. ;;9002226.02101,"804,68115-0440-56 ",.02)
  1. ;;68115-0440-56
  1. ;;9002226.02101,"804,68115-0440-60 ",.01)
  1. ;;68115-0440-60
  1. ;;9002226.02101,"804,68115-0440-60 ",.02)
  1. ;;68115-0440-60
  1. ;;9002226.02101,"804,68115-0440-90 ",.01)
  1. ;;68115-0440-90
  1. ;;9002226.02101,"804,68115-0440-90 ",.02)
  1. ;;68115-0440-90
  1. ;;9002226.02101,"804,68115-0440-97 ",.01)
  1. ;;68115-0440-97
  1. ;;9002226.02101,"804,68115-0440-97 ",.02)
  1. ;;68115-0440-97
  1. ;;9002226.02101,"804,68115-0440-99 ",.01)
  1. ;;68115-0440-99
  1. ;;9002226.02101,"804,68115-0440-99 ",.02)
  1. ;;68115-0440-99
  1. ;;9002226.02101,"804,68115-0450-30 ",.01)
  1. ;;68115-0450-30
  1. ;;9002226.02101,"804,68115-0450-30 ",.02)
  1. ;;68115-0450-30
  1. ;;9002226.02101,"804,68115-0546-00 ",.01)
  1. ;;68115-0546-00
  1. ;;9002226.02101,"804,68115-0546-00 ",.02)
  1. ;;68115-0546-00
  1. ;;9002226.02101,"804,68258-1050-01 ",.01)
  1. ;;68258-1050-01
  1. ;;9002226.02101,"804,68258-1050-01 ",.02)
  1. ;;68258-1050-01
  1. ;;9002226.02101,"804,68258-7013-01 ",.01)
  1. ;;68258-7013-01
  1. ;;9002226.02101,"804,68258-7013-01 ",.02)
  1. ;;68258-7013-01
  1. ;;9002226.02101,"804,68258-7013-02 ",.01)
  1. ;;68258-7013-02
  1. ;;9002226.02101,"804,68258-7013-02 ",.02)
  1. ;;68258-7013-02
  1. ;;9002226.02101,"804,68258-7013-03 ",.01)
  1. ;;68258-7013-03
  1. ;;9002226.02101,"804,68258-7013-03 ",.02)
  1. ;;68258-7013-03
  1. ;;9002226.02101,"804,68258-7013-09 ",.01)
  1. ;;68258-7013-09
  1. ;;9002226.02101,"804,68258-7013-09 ",.02)
  1. ;;68258-7013-09
  1. ;;9002226.02101,"804,68258-7019-09 ",.01)
  1. ;;68258-7019-09
  1. ;;9002226.02101,"804,68258-7019-09 ",.02)
  1. ;;68258-7019-09
  1. ;;9002226.02101,"804,68258-7061-05 ",.01)
  1. ;;68258-7061-05
  1. ;;9002226.02101,"804,68258-7061-05 ",.02)
  1. ;;68258-7061-05
  1. ;;9002226.02101,"804,68258-7094-05 ",.01)
  1. ;;68258-7094-05
  1. ;;9002226.02101,"804,68258-7094-05 ",.02)
  1. ;;68258-7094-05
  1. ;;9002226.02101,"804,68258-7100-01 ",.01)
  1. ;;68258-7100-01
  1. ;;9002226.02101,"804,68258-7100-01 ",.02)
  1. ;;68258-7100-01
  1. ;;9002226.02101,"804,68258-7100-02 ",.01)
  1. ;;68258-7100-02
  1. ;;9002226.02101,"804,68258-7100-02 ",.02)
  1. ;;68258-7100-02
  1. ;;9002226.02101,"804,68258-7100-03 ",.01)
  1. ;;68258-7100-03
  1. ;;9002226.02101,"804,68258-7100-03 ",.02)
  1. ;;68258-7100-03
  1. ;;9002226.02101,"804,68258-7100-06 ",.01)
  1. ;;68258-7100-06
  1. ;;9002226.02101,"804,68258-7100-06 ",.02)
  1. ;;68258-7100-06
  1. ;;9002226.02101,"804,68258-7100-09 ",.01)
  1. ;;68258-7100-09
  1. ;;9002226.02101,"804,68258-7100-09 ",.02)
  1. ;;68258-7100-09
  1. ;;9002226.02101,"804,68258-9095-01 ",.01)
  1. ;;68258-9095-01
  1. ;;9002226.02101,"804,68258-9095-01 ",.02)
  1. ;;68258-9095-01
  1. ;;9002226.02101,"804,68387-0108-30 ",.01)
  1. ;;68387-0108-30
  1. ;;9002226.02101,"804,68387-0108-30 ",.02)
  1. ;;68387-0108-30
  1. ;;9002226.02101,"804,68387-0108-60 ",.01)
  1. ;;68387-0108-60
  1. ;;9002226.02101,"804,68387-0108-60 ",.02)
  1. ;;68387-0108-60
  1. ;;9002226.02101,"804,68387-0108-90 ",.01)
  1. ;;68387-0108-90
  1. ;;9002226.02101,"804,68387-0108-90 ",.02)
  1. ;;68387-0108-90
  1. ;;9002226.02101,"804,68387-0340-24 ",.01)
  1. ;;68387-0340-24
  1. ;;9002226.02101,"804,68387-0340-24 ",.02)
  1. ;;68387-0340-24
  1. ;;9002226.02101,"804,68387-0340-30 ",.01)
  1. ;;68387-0340-30
  1. ;;9002226.02101,"804,68387-0340-30 ",.02)
  1. ;;68387-0340-30
  1. ;;9002226.02101,"804,68387-0340-45 ",.01)
  1. ;;68387-0340-45
  1. ;;9002226.02101,"804,68387-0340-45 ",.02)
  1. ;;68387-0340-45
  1. ;;9002226.02101,"804,68387-0340-60 ",.01)
  1. ;;68387-0340-60
  1. ;;9002226.02101,"804,68387-0340-60 ",.02)
  1. ;;68387-0340-60
  1. ;;9002226.02101,"804,68387-0340-90 ",.01)
  1. ;;68387-0340-90
  1. ;;9002226.02101,"804,68387-0340-90 ",.02)
  1. ;;68387-0340-90
  1. ;;9002226.02101,"804,68387-0342-60 ",.01)
  1. ;;68387-0342-60
  1. ;;9002226.02101,"804,68387-0342-60 ",.02)
  1. ;;68387-0342-60
  1. ;;9002226.02101,"804,68387-0375-30 ",.01)
  1. ;;68387-0375-30
  1. ;;9002226.02101,"804,68387-0375-30 ",.02)
  1. ;;68387-0375-30
  1. ;;9002226.02101,"804,68387-0375-90 ",.01)
  1. ;;68387-0375-90
  1. ;;9002226.02101,"804,68387-0375-90 ",.02)
  1. ;;68387-0375-90
  1. ;;9002226.02101,"804,68387-0500-10 ",.01)
  1. ;;68387-0500-10
  1. ;;9002226.02101,"804,68387-0500-10 ",.02)
  1. ;;68387-0500-10
  1. ;;9002226.02101,"804,68387-0500-12 ",.01)
  1. ;;68387-0500-12
  1. ;;9002226.02101,"804,68387-0500-12 ",.02)
  1. ;;68387-0500-12
  1. ;;9002226.02101,"804,68387-0500-15 ",.01)
  1. ;;68387-0500-15
  1. ;;9002226.02101,"804,68387-0500-15 ",.02)
  1. ;;68387-0500-15
  1. ;;9002226.02101,"804,68387-0500-30 ",.01)
  1. ;;68387-0500-30
  1. ;;9002226.02101,"804,68387-0500-30 ",.02)
  1. ;;68387-0500-30
  1. ;;9002226.02101,"804,68387-0500-45 ",.01)
  1. ;;68387-0500-45
  1. ;;9002226.02101,"804,68387-0500-45 ",.02)
  1. ;;68387-0500-45
  1. ;;9002226.02101,"804,68387-0500-60 ",.01)
  1. ;;68387-0500-60
  1. ;;9002226.02101,"804,68387-0500-60 ",.02)
  1. ;;68387-0500-60
  1. ;;9002226.02101,"804,68387-0500-90 ",.01)
  1. ;;68387-0500-90
  1. ;;9002226.02101,"804,68387-0500-90 ",.02)
  1. ;;68387-0500-90
  1. ;;9002226.02101,"804,68387-0502-90 ",.01)
  1. ;;68387-0502-90
  1. ;;9002226.02101,"804,68387-0502-90 ",.02)
  1. ;;68387-0502-90
  1. ;;9002226.02101,"804,68387-0575-14 ",.01)
  1. ;;68387-0575-14
  1. ;;9002226.02101,"804,68387-0575-14 ",.02)
  1. ;;68387-0575-14
  1. ;;9002226.02101,"804,68387-0575-60 ",.01)
  1. ;;68387-0575-60
  1. ;;9002226.02101,"804,68387-0575-60 ",.02)
  1. ;;68387-0575-60
  1. ;;9002226.02101,"804,68387-0600-12 ",.01)
  1. ;;68387-0600-12
  1. ;;9002226.02101,"804,68387-0600-12 ",.02)
  1. ;;68387-0600-12
  1. ;;9002226.02101,"804,68387-0600-15 ",.01)
  1. ;;68387-0600-15
  1. ;;9002226.02101,"804,68387-0600-15 ",.02)
  1. ;;68387-0600-15
  1. ;;9002226.02101,"804,68387-0600-30 ",.01)
  1. ;;68387-0600-30
  1. ;;9002226.02101,"804,68387-0600-30 ",.02)
  1. ;;68387-0600-30
  1. ;;9002226.02101,"804,68387-0600-45 ",.01)
  1. ;;68387-0600-45
  1. ;;9002226.02101,"804,68387-0600-45 ",.02)
  1. ;;68387-0600-45
  1. ;;9002226.02101,"804,68387-0600-60 ",.01)
  1. ;;68387-0600-60
  1. ;;9002226.02101,"804,68387-0600-60 ",.02)
  1. ;;68387-0600-60
  1. ;;9002226.02101,"804,68387-0600-90 ",.01)
  1. ;;68387-0600-90
  1. ;;9002226.02101,"804,68387-0600-90 ",.02)
  1. ;;68387-0600-90
  1. ;;9002226.02101,"804,68453-0950-10 ",.01)
  1. ;;68453-0950-10
  1. ;;9002226.02101,"804,68453-0950-10 ",.02)
  1. ;;68453-0950-10
  1. ;;9002226.02101,"804,68462-0552-01 ",.01)
  1. ;;68462-0552-01
  1. ;;9002226.02101,"804,68462-0552-01 ",.02)
  1. ;;68462-0552-01
  1. ;;9002226.02101,"804,68462-0553-01 ",.01)
  1. ;;68462-0553-01
  1. ;;9002226.02101,"804,68462-0553-01 ",.02)
  1. ;;68462-0553-01
  1. ;;9002226.02101,"804,68462-0553-10 ",.01)
  1. ;;68462-0553-10
  1. ;;9002226.02101,"804,68462-0553-10 ",.02)
  1. ;;68462-0553-10
  1. ;;9002226.02101,"804,76218-1219-01 ",.01)
  1. ;;76218-1219-01
  1. ;;9002226.02101,"804,76218-1219-01 ",.02)
  1. ;;76218-1219-01
  1. ;;9002226.02101,"804,76519-0100-01 ",.01)
  1. ;;76519-0100-01
  1. ;;9002226.02101,"804,76519-0100-01 ",.02)
  1. ;;76519-0100-01
  1. ;;9002226.02101,"804,76519-0100-02 ",.01)
  1. ;;76519-0100-02
  1. ;;9002226.02101,"804,76519-0100-02 ",.02)
  1. ;;76519-0100-02
  1. ;;9002226.02101,"804,76519-0100-03 ",.01)
  1. ;;76519-0100-03
  1. ;;9002226.02101,"804,76519-0100-03 ",.02)
  1. ;;76519-0100-03
  1. ;;9002226.02101,"804,76519-0100-05 ",.01)
  1. ;;76519-0100-05
  1. ;;9002226.02101,"804,76519-0100-05 ",.02)
  1. ;;76519-0100-05
  1. ;;9002226.02101,"804,76519-0100-06 ",.01)
  1. ;;76519-0100-06
  1. ;;9002226.02101,"804,76519-0100-06 ",.02)
  1. ;;76519-0100-06
  1. ;;9002226.02101,"804,76519-0100-07 ",.01)
  1. ;;76519-0100-07
  1. ;;9002226.02101,"804,76519-0100-07 ",.02)
  1. ;;76519-0100-07
  1. ;;9002226.02101,"804,76519-0100-09 ",.01)
  1. ;;76519-0100-09
  1. ;;9002226.02101,"804,76519-0100-09 ",.02)
  1. ;;76519-0100-09