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

BGP47E26.m

Go to the documentation of this file.
BGP47E26 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"798,16714-0601-02 ",.01)
 ;;16714-0601-02
 ;;9002226.02101,"798,16714-0601-02 ",.02)
 ;;16714-0601-02
 ;;9002226.02101,"798,16714-0611-01 ",.01)
 ;;16714-0611-01
 ;;9002226.02101,"798,16714-0611-01 ",.02)
 ;;16714-0611-01
 ;;9002226.02101,"798,16714-0611-04 ",.01)
 ;;16714-0611-04
 ;;9002226.02101,"798,16714-0611-04 ",.02)
 ;;16714-0611-04
 ;;9002226.02101,"798,16714-0611-05 ",.01)
 ;;16714-0611-05
 ;;9002226.02101,"798,16714-0611-05 ",.02)
 ;;16714-0611-05
 ;;9002226.02101,"798,16714-0611-06 ",.01)
 ;;16714-0611-06
 ;;9002226.02101,"798,16714-0611-06 ",.02)
 ;;16714-0611-06
 ;;9002226.02101,"798,16714-0612-01 ",.01)
 ;;16714-0612-01
 ;;9002226.02101,"798,16714-0612-01 ",.02)
 ;;16714-0612-01
 ;;9002226.02101,"798,16714-0612-04 ",.01)
 ;;16714-0612-04
 ;;9002226.02101,"798,16714-0612-04 ",.02)
 ;;16714-0612-04
 ;;9002226.02101,"798,16714-0612-05 ",.01)
 ;;16714-0612-05
 ;;9002226.02101,"798,16714-0612-05 ",.02)
 ;;16714-0612-05
 ;;9002226.02101,"798,16714-0612-06 ",.01)
 ;;16714-0612-06
 ;;9002226.02101,"798,16714-0612-06 ",.02)
 ;;16714-0612-06
 ;;9002226.02101,"798,16714-0613-01 ",.01)
 ;;16714-0613-01
 ;;9002226.02101,"798,16714-0613-01 ",.02)
 ;;16714-0613-01
 ;;9002226.02101,"798,16714-0613-04 ",.01)
 ;;16714-0613-04
 ;;9002226.02101,"798,16714-0613-04 ",.02)
 ;;16714-0613-04
 ;;9002226.02101,"798,16714-0613-05 ",.01)
 ;;16714-0613-05
 ;;9002226.02101,"798,16714-0613-05 ",.02)
 ;;16714-0613-05
 ;;9002226.02101,"798,16714-0613-06 ",.01)
 ;;16714-0613-06
 ;;9002226.02101,"798,16714-0613-06 ",.02)
 ;;16714-0613-06
 ;;9002226.02101,"798,16729-0168-01 ",.01)
 ;;16729-0168-01
 ;;9002226.02101,"798,16729-0168-01 ",.02)
 ;;16729-0168-01
 ;;9002226.02101,"798,16729-0169-01 ",.01)
 ;;16729-0169-01
 ;;9002226.02101,"798,16729-0169-01 ",.02)
 ;;16729-0169-01
 ;;9002226.02101,"798,16729-0170-01 ",.01)
 ;;16729-0170-01
 ;;9002226.02101,"798,16729-0170-01 ",.02)
 ;;16729-0170-01
 ;;9002226.02101,"798,17236-0358-11 ",.01)
 ;;17236-0358-11
 ;;9002226.02101,"798,17236-0358-11 ",.02)
 ;;17236-0358-11
 ;;9002226.02101,"798,17236-0359-11 ",.01)
 ;;17236-0359-11
 ;;9002226.02101,"798,17236-0359-11 ",.02)
 ;;17236-0359-11
 ;;9002226.02101,"798,17856-0540-30 ",.01)
 ;;17856-0540-30
 ;;9002226.02101,"798,17856-0540-30 ",.02)
 ;;17856-0540-30
 ;;9002226.02101,"798,18837-0034-30 ",.01)
 ;;18837-0034-30
 ;;9002226.02101,"798,18837-0034-30 ",.02)
 ;;18837-0034-30
 ;;9002226.02101,"798,18837-0034-60 ",.01)
 ;;18837-0034-60
 ;;9002226.02101,"798,18837-0034-60 ",.02)
 ;;18837-0034-60
 ;;9002226.02101,"798,18837-0035-30 ",.01)
 ;;18837-0035-30
 ;;9002226.02101,"798,18837-0035-30 ",.02)
 ;;18837-0035-30
 ;;9002226.02101,"798,18837-0035-60 ",.01)
 ;;18837-0035-60
 ;;9002226.02101,"798,18837-0035-60 ",.02)
 ;;18837-0035-60
 ;;9002226.02101,"798,18837-0035-90 ",.01)
 ;;18837-0035-90
 ;;9002226.02101,"798,18837-0035-90 ",.02)
 ;;18837-0035-90
 ;;9002226.02101,"798,18837-0048-30 ",.01)
 ;;18837-0048-30
 ;;9002226.02101,"798,18837-0048-30 ",.02)
 ;;18837-0048-30
 ;;9002226.02101,"798,18837-0048-60 ",.01)
 ;;18837-0048-60
 ;;9002226.02101,"798,18837-0048-60 ",.02)
 ;;18837-0048-60
 ;;9002226.02101,"798,18837-0048-90 ",.01)
 ;;18837-0048-90
 ;;9002226.02101,"798,18837-0048-90 ",.02)
 ;;18837-0048-90
 ;;9002226.02101,"798,18837-0049-30 ",.01)
 ;;18837-0049-30
 ;;9002226.02101,"798,18837-0049-30 ",.02)
 ;;18837-0049-30
 ;;9002226.02101,"798,18837-0049-60 ",.01)
 ;;18837-0049-60
 ;;9002226.02101,"798,18837-0049-60 ",.02)
 ;;18837-0049-60
 ;;9002226.02101,"798,18837-0049-90 ",.01)
 ;;18837-0049-90
 ;;9002226.02101,"798,18837-0049-90 ",.02)
 ;;18837-0049-90
 ;;9002226.02101,"798,18837-0054-30 ",.01)
 ;;18837-0054-30
 ;;9002226.02101,"798,18837-0054-30 ",.02)
 ;;18837-0054-30
 ;;9002226.02101,"798,18837-0054-60 ",.01)
 ;;18837-0054-60
 ;;9002226.02101,"798,18837-0054-60 ",.02)
 ;;18837-0054-60
 ;;9002226.02101,"798,18837-0054-90 ",.01)
 ;;18837-0054-90
 ;;9002226.02101,"798,18837-0054-90 ",.02)
 ;;18837-0054-90
 ;;9002226.02101,"798,18837-0076-30 ",.01)
 ;;18837-0076-30
 ;;9002226.02101,"798,18837-0076-30 ",.02)
 ;;18837-0076-30
 ;;9002226.02101,"798,18837-0076-90 ",.01)
 ;;18837-0076-90
 ;;9002226.02101,"798,18837-0076-90 ",.02)
 ;;18837-0076-90
 ;;9002226.02101,"798,18837-0077-30 ",.01)
 ;;18837-0077-30
 ;;9002226.02101,"798,18837-0077-30 ",.02)
 ;;18837-0077-30
 ;;9002226.02101,"798,18837-0093-60 ",.01)
 ;;18837-0093-60
 ;;9002226.02101,"798,18837-0093-60 ",.02)
 ;;18837-0093-60
 ;;9002226.02101,"798,18837-0114-30 ",.01)
 ;;18837-0114-30
 ;;9002226.02101,"798,18837-0114-30 ",.02)
 ;;18837-0114-30
 ;;9002226.02101,"798,18837-0121-30 ",.01)
 ;;18837-0121-30
 ;;9002226.02101,"798,18837-0121-30 ",.02)
 ;;18837-0121-30
 ;;9002226.02101,"798,18837-0160-30 ",.01)
 ;;18837-0160-30
 ;;9002226.02101,"798,18837-0160-30 ",.02)
 ;;18837-0160-30
 ;;9002226.02101,"798,18837-0162-30 ",.01)
 ;;18837-0162-30
 ;;9002226.02101,"798,18837-0162-30 ",.02)
 ;;18837-0162-30
 ;;9002226.02101,"798,18837-0162-60 ",.01)
 ;;18837-0162-60
 ;;9002226.02101,"798,18837-0162-60 ",.02)
 ;;18837-0162-60
 ;;9002226.02101,"798,18837-0175-30 ",.01)
 ;;18837-0175-30
 ;;9002226.02101,"798,18837-0175-30 ",.02)
 ;;18837-0175-30
 ;;9002226.02101,"798,18837-0176-30 ",.01)
 ;;18837-0176-30
 ;;9002226.02101,"798,18837-0176-30 ",.02)
 ;;18837-0176-30
 ;;9002226.02101,"798,18837-0185-60 ",.01)
 ;;18837-0185-60
 ;;9002226.02101,"798,18837-0185-60 ",.02)
 ;;18837-0185-60
 ;;9002226.02101,"798,18837-0185-90 ",.01)
 ;;18837-0185-90
 ;;9002226.02101,"798,18837-0185-90 ",.02)
 ;;18837-0185-90
 ;;9002226.02101,"798,18837-0207-60 ",.01)
 ;;18837-0207-60
 ;;9002226.02101,"798,18837-0207-60 ",.02)
 ;;18837-0207-60
 ;;9002226.02101,"798,18837-0222-30 ",.01)
 ;;18837-0222-30
 ;;9002226.02101,"798,18837-0222-30 ",.02)
 ;;18837-0222-30
 ;;9002226.02101,"798,18837-0242-30 ",.01)
 ;;18837-0242-30
 ;;9002226.02101,"798,18837-0242-30 ",.02)
 ;;18837-0242-30
 ;;9002226.02101,"798,18837-0278-30 ",.01)
 ;;18837-0278-30
 ;;9002226.02101,"798,18837-0278-30 ",.02)
 ;;18837-0278-30
 ;;9002226.02101,"798,18837-0354-30 ",.01)
 ;;18837-0354-30
 ;;9002226.02101,"798,18837-0354-30 ",.02)
 ;;18837-0354-30
 ;;9002226.02101,"798,21695-0017-00 ",.01)
 ;;21695-0017-00
 ;;9002226.02101,"798,21695-0017-00 ",.02)
 ;;21695-0017-00
 ;;9002226.02101,"798,21695-0017-60 ",.01)
 ;;21695-0017-60
 ;;9002226.02101,"798,21695-0017-60 ",.02)
 ;;21695-0017-60
 ;;9002226.02101,"798,21695-0018-00 ",.01)
 ;;21695-0018-00
 ;;9002226.02101,"798,21695-0018-00 ",.02)
 ;;21695-0018-00
 ;;9002226.02101,"798,21695-0018-30 ",.01)
 ;;21695-0018-30
 ;;9002226.02101,"798,21695-0018-30 ",.02)
 ;;21695-0018-30
 ;;9002226.02101,"798,21695-0018-60 ",.01)
 ;;21695-0018-60
 ;;9002226.02101,"798,21695-0018-60 ",.02)
 ;;21695-0018-60
 ;;9002226.02101,"798,21695-0018-90 ",.01)
 ;;21695-0018-90
 ;;9002226.02101,"798,21695-0018-90 ",.02)
 ;;21695-0018-90
 ;;9002226.02101,"798,21695-0019-30 ",.01)
 ;;21695-0019-30
 ;;9002226.02101,"798,21695-0019-30 ",.02)
 ;;21695-0019-30
 ;;9002226.02101,"798,21695-0019-60 ",.01)
 ;;21695-0019-60
 ;;9002226.02101,"798,21695-0019-60 ",.02)
 ;;21695-0019-60
 ;;9002226.02101,"798,21695-0020-60 ",.01)
 ;;21695-0020-60
 ;;9002226.02101,"798,21695-0020-60 ",.02)
 ;;21695-0020-60
 ;;9002226.02101,"798,21695-0030-00 ",.01)
 ;;21695-0030-00
 ;;9002226.02101,"798,21695-0030-00 ",.02)
 ;;21695-0030-00
 ;;9002226.02101,"798,21695-0031-00 ",.01)
 ;;21695-0031-00
 ;;9002226.02101,"798,21695-0031-00 ",.02)
 ;;21695-0031-00
 ;;9002226.02101,"798,21695-0031-30 ",.01)
 ;;21695-0031-30
 ;;9002226.02101,"798,21695-0031-30 ",.02)
 ;;21695-0031-30
 ;;9002226.02101,"798,21695-0032-00 ",.01)
 ;;21695-0032-00
 ;;9002226.02101,"798,21695-0032-00 ",.02)
 ;;21695-0032-00
 ;;9002226.02101,"798,21695-0032-30 ",.01)
 ;;21695-0032-30
 ;;9002226.02101,"798,21695-0032-30 ",.02)
 ;;21695-0032-30
 ;;9002226.02101,"798,21695-0045-15 ",.01)
 ;;21695-0045-15
 ;;9002226.02101,"798,21695-0045-15 ",.02)
 ;;21695-0045-15
 ;;9002226.02101,"798,21695-0046-15 ",.01)
 ;;21695-0046-15
 ;;9002226.02101,"798,21695-0046-15 ",.02)
 ;;21695-0046-15
 ;;9002226.02101,"798,21695-0046-30 ",.01)
 ;;21695-0046-30
 ;;9002226.02101,"798,21695-0046-30 ",.02)
 ;;21695-0046-30
 ;;9002226.02101,"798,21695-0046-45 ",.01)
 ;;21695-0046-45
 ;;9002226.02101,"798,21695-0046-45 ",.02)
 ;;21695-0046-45
 ;;9002226.02101,"798,21695-0047-15 ",.01)
 ;;21695-0047-15
 ;;9002226.02101,"798,21695-0047-15 ",.02)
 ;;21695-0047-15
 ;;9002226.02101,"798,21695-0047-45 ",.01)
 ;;21695-0047-45
 ;;9002226.02101,"798,21695-0047-45 ",.02)
 ;;21695-0047-45
 ;;9002226.02101,"798,21695-0052-20 ",.01)
 ;;21695-0052-20
 ;;9002226.02101,"798,21695-0052-20 ",.02)
 ;;21695-0052-20
 ;;9002226.02101,"798,21695-0052-30 ",.01)
 ;;21695-0052-30
 ;;9002226.02101,"798,21695-0052-30 ",.02)
 ;;21695-0052-30
 ;;9002226.02101,"798,21695-0052-60 ",.01)
 ;;21695-0052-60
 ;;9002226.02101,"798,21695-0052-60 ",.02)
 ;;21695-0052-60
 ;;9002226.02101,"798,21695-0052-90 ",.01)
 ;;21695-0052-90
 ;;9002226.02101,"798,21695-0052-90 ",.02)
 ;;21695-0052-90
 ;;9002226.02101,"798,21695-0053-30 ",.01)
 ;;21695-0053-30
 ;;9002226.02101,"798,21695-0053-30 ",.02)
 ;;21695-0053-30
 ;;9002226.02101,"798,21695-0053-60 ",.01)
 ;;21695-0053-60
 ;;9002226.02101,"798,21695-0053-60 ",.02)
 ;;21695-0053-60
 ;;9002226.02101,"798,21695-0053-90 ",.01)
 ;;21695-0053-90
 ;;9002226.02101,"798,21695-0053-90 ",.02)
 ;;21695-0053-90
 ;;9002226.02101,"798,21695-0054-07 ",.01)
 ;;21695-0054-07
 ;;9002226.02101,"798,21695-0054-07 ",.02)
 ;;21695-0054-07
 ;;9002226.02101,"798,21695-0054-30 ",.01)
 ;;21695-0054-30
 ;;9002226.02101,"798,21695-0054-30 ",.02)
 ;;21695-0054-30
 ;;9002226.02101,"798,21695-0054-60 ",.01)
 ;;21695-0054-60
 ;;9002226.02101,"798,21695-0054-60 ",.02)
 ;;21695-0054-60
 ;;9002226.02101,"798,21695-0054-90 ",.01)
 ;;21695-0054-90
 ;;9002226.02101,"798,21695-0054-90 ",.02)
 ;;21695-0054-90
 ;;9002226.02101,"798,21695-0073-15 ",.01)
 ;;21695-0073-15
 ;;9002226.02101,"798,21695-0073-15 ",.02)
 ;;21695-0073-15
 ;;9002226.02101,"798,21695-0073-30 ",.01)
 ;;21695-0073-30
 ;;9002226.02101,"798,21695-0073-30 ",.02)
 ;;21695-0073-30
 ;;9002226.02101,"798,21695-0073-45 ",.01)
 ;;21695-0073-45
 ;;9002226.02101,"798,21695-0073-45 ",.02)
 ;;21695-0073-45
 ;;9002226.02101,"798,21695-0074-15 ",.01)
 ;;21695-0074-15
 ;;9002226.02101,"798,21695-0074-15 ",.02)
 ;;21695-0074-15
 ;;9002226.02101,"798,21695-0074-30 ",.01)
 ;;21695-0074-30
 ;;9002226.02101,"798,21695-0074-30 ",.02)
 ;;21695-0074-30
 ;;9002226.02101,"798,21695-0081-00 ",.01)
 ;;21695-0081-00
 ;;9002226.02101,"798,21695-0081-00 ",.02)
 ;;21695-0081-00
 ;;9002226.02101,"798,21695-0081-30 ",.01)
 ;;21695-0081-30
 ;;9002226.02101,"798,21695-0081-30 ",.02)
 ;;21695-0081-30
 ;;9002226.02101,"798,21695-0081-60 ",.01)
 ;;21695-0081-60
 ;;9002226.02101,"798,21695-0081-60 ",.02)
 ;;21695-0081-60
 ;;9002226.02101,"798,21695-0082-00 ",.01)
 ;;21695-0082-00
 ;;9002226.02101,"798,21695-0082-00 ",.02)
 ;;21695-0082-00
 ;;9002226.02101,"798,21695-0082-30 ",.01)
 ;;21695-0082-30
 ;;9002226.02101,"798,21695-0082-30 ",.02)
 ;;21695-0082-30
 ;;9002226.02101,"798,21695-0082-60 ",.01)
 ;;21695-0082-60
 ;;9002226.02101,"798,21695-0082-60 ",.02)
 ;;21695-0082-60
 ;;9002226.02101,"798,21695-0083-30 ",.01)
 ;;21695-0083-30
 ;;9002226.02101,"798,21695-0083-30 ",.02)
 ;;21695-0083-30
 ;;9002226.02101,"798,21695-0093-30 ",.01)
 ;;21695-0093-30
 ;;9002226.02101,"798,21695-0093-30 ",.02)
 ;;21695-0093-30
 ;;9002226.02101,"798,21695-0093-60 ",.01)
 ;;21695-0093-60
 ;;9002226.02101,"798,21695-0093-60 ",.02)
 ;;21695-0093-60
 ;;9002226.02101,"798,21695-0093-90 ",.01)
 ;;21695-0093-90
 ;;9002226.02101,"798,21695-0093-90 ",.02)
 ;;21695-0093-90
 ;;9002226.02101,"798,21695-0094-30 ",.01)
 ;;21695-0094-30
 ;;9002226.02101,"798,21695-0094-30 ",.02)
 ;;21695-0094-30
 ;;9002226.02101,"798,21695-0094-60 ",.01)
 ;;21695-0094-60
 ;;9002226.02101,"798,21695-0094-60 ",.02)
 ;;21695-0094-60
 ;;9002226.02101,"798,21695-0094-90 ",.01)
 ;;21695-0094-90
 ;;9002226.02101,"798,21695-0094-90 ",.02)
 ;;21695-0094-90
 ;;9002226.02101,"798,21695-0101-30 ",.01)
 ;;21695-0101-30
 ;;9002226.02101,"798,21695-0101-30 ",.02)
 ;;21695-0101-30
 ;;9002226.02101,"798,21695-0101-60 ",.01)
 ;;21695-0101-60
 ;;9002226.02101,"798,21695-0101-60 ",.02)
 ;;21695-0101-60
 ;;9002226.02101,"798,21695-0101-90 ",.01)
 ;;21695-0101-90
 ;;9002226.02101,"798,21695-0101-90 ",.02)
 ;;21695-0101-90
 ;;9002226.02101,"798,21695-0102-30 ",.01)
 ;;21695-0102-30
 ;;9002226.02101,"798,21695-0102-30 ",.02)
 ;;21695-0102-30
 ;;9002226.02101,"798,21695-0102-60 ",.01)
 ;;21695-0102-60
 ;;9002226.02101,"798,21695-0102-60 ",.02)
 ;;21695-0102-60
 ;;9002226.02101,"798,21695-0102-90 ",.01)
 ;;21695-0102-90
 ;;9002226.02101,"798,21695-0102-90 ",.02)
 ;;21695-0102-90
 ;;9002226.02101,"798,21695-0103-30 ",.01)
 ;;21695-0103-30
 ;;9002226.02101,"798,21695-0103-30 ",.02)
 ;;21695-0103-30
 ;;9002226.02101,"798,21695-0103-90 ",.01)
 ;;21695-0103-90
 ;;9002226.02101,"798,21695-0103-90 ",.02)
 ;;21695-0103-90
 ;;9002226.02101,"798,21695-0104-30 ",.01)
 ;;21695-0104-30
 ;;9002226.02101,"798,21695-0104-30 ",.02)
 ;;21695-0104-30
 ;;9002226.02101,"798,21695-0104-90 ",.01)
 ;;21695-0104-90
 ;;9002226.02101,"798,21695-0104-90 ",.02)
 ;;21695-0104-90
 ;;9002226.02101,"798,21695-0133-30 ",.01)
 ;;21695-0133-30
 ;;9002226.02101,"798,21695-0133-30 ",.02)
 ;;21695-0133-30