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