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

BGP9RXBF.m

Go to the documentation of this file.
BGP9RXBF ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;
 ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009
 ;
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,"737,55829-0237-10 ",.02)
 ;;55829-0237-10
 ;;9002226.02101,"737,60505-0715-00 ",.01)
 ;;60505-0715-00
 ;;9002226.02101,"737,60505-0715-00 ",.02)
 ;;60505-0715-00
 ;;9002226.02101,"737,60505-0715-01 ",.01)
 ;;60505-0715-01
 ;;9002226.02101,"737,60505-0715-01 ",.02)
 ;;60505-0715-01
 ;;9002226.02101,"737,61392-0549-30 ",.01)
 ;;61392-0549-30
 ;;9002226.02101,"737,61392-0549-30 ",.02)
 ;;61392-0549-30
 ;;9002226.02101,"737,61392-0549-31 ",.01)
 ;;61392-0549-31
 ;;9002226.02101,"737,61392-0549-31 ",.02)
 ;;61392-0549-31
 ;;9002226.02101,"737,61392-0549-32 ",.01)
 ;;61392-0549-32
 ;;9002226.02101,"737,61392-0549-32 ",.02)
 ;;61392-0549-32
 ;;9002226.02101,"737,61392-0549-34 ",.01)
 ;;61392-0549-34
 ;;9002226.02101,"737,61392-0549-34 ",.02)
 ;;61392-0549-34
 ;;9002226.02101,"737,61392-0549-39 ",.01)
 ;;61392-0549-39
 ;;9002226.02101,"737,61392-0549-39 ",.02)
 ;;61392-0549-39
 ;;9002226.02101,"737,61392-0549-45 ",.01)
 ;;61392-0549-45
 ;;9002226.02101,"737,61392-0549-45 ",.02)
 ;;61392-0549-45
 ;;9002226.02101,"737,61392-0549-51 ",.01)
 ;;61392-0549-51
 ;;9002226.02101,"737,61392-0549-51 ",.02)
 ;;61392-0549-51
 ;;9002226.02101,"737,61392-0549-54 ",.01)
 ;;61392-0549-54
 ;;9002226.02101,"737,61392-0549-54 ",.02)
 ;;61392-0549-54
 ;;9002226.02101,"737,61392-0549-56 ",.01)
 ;;61392-0549-56
 ;;9002226.02101,"737,61392-0549-56 ",.02)
 ;;61392-0549-56
 ;;9002226.02101,"737,61392-0549-60 ",.01)
 ;;61392-0549-60
 ;;9002226.02101,"737,61392-0549-60 ",.02)
 ;;61392-0549-60
 ;;9002226.02101,"737,61392-0549-90 ",.01)
 ;;61392-0549-90
 ;;9002226.02101,"737,61392-0549-90 ",.02)
 ;;61392-0549-90
 ;;9002226.02101,"737,61392-0549-91 ",.01)
 ;;61392-0549-91
 ;;9002226.02101,"737,61392-0549-91 ",.02)
 ;;61392-0549-91
 ;;9002226.02101,"737,61392-0552-30 ",.01)
 ;;61392-0552-30
 ;;9002226.02101,"737,61392-0552-30 ",.02)
 ;;61392-0552-30
 ;;9002226.02101,"737,61392-0552-31 ",.01)
 ;;61392-0552-31
 ;;9002226.02101,"737,61392-0552-31 ",.02)
 ;;61392-0552-31
 ;;9002226.02101,"737,61392-0552-32 ",.01)
 ;;61392-0552-32
 ;;9002226.02101,"737,61392-0552-32 ",.02)
 ;;61392-0552-32
 ;;9002226.02101,"737,61392-0552-39 ",.01)
 ;;61392-0552-39
 ;;9002226.02101,"737,61392-0552-39 ",.02)
 ;;61392-0552-39
 ;;9002226.02101,"737,61392-0552-45 ",.01)
 ;;61392-0552-45
 ;;9002226.02101,"737,61392-0552-45 ",.02)
 ;;61392-0552-45
 ;;9002226.02101,"737,61392-0552-51 ",.01)
 ;;61392-0552-51
 ;;9002226.02101,"737,61392-0552-51 ",.02)
 ;;61392-0552-51
 ;;9002226.02101,"737,61392-0552-54 ",.01)
 ;;61392-0552-54
 ;;9002226.02101,"737,61392-0552-54 ",.02)
 ;;61392-0552-54
 ;;9002226.02101,"737,61392-0552-56 ",.01)
 ;;61392-0552-56
 ;;9002226.02101,"737,61392-0552-56 ",.02)
 ;;61392-0552-56
 ;;9002226.02101,"737,61392-0552-60 ",.01)
 ;;61392-0552-60
 ;;9002226.02101,"737,61392-0552-60 ",.02)
 ;;61392-0552-60
 ;;9002226.02101,"737,61392-0552-90 ",.01)
 ;;61392-0552-90
 ;;9002226.02101,"737,61392-0552-90 ",.02)
 ;;61392-0552-90
 ;;9002226.02101,"737,61392-0552-91 ",.01)
 ;;61392-0552-91
 ;;9002226.02101,"737,61392-0552-91 ",.02)
 ;;61392-0552-91
 ;;9002226.02101,"737,63323-0613-02 ",.01)
 ;;63323-0613-02
 ;;9002226.02101,"737,63323-0613-02 ",.02)
 ;;63323-0613-02
 ;;9002226.02101,"737,63323-0613-10 ",.01)
 ;;63323-0613-10
 ;;9002226.02101,"737,63323-0613-10 ",.02)
 ;;63323-0613-10
 ;;9002226.02101,"737,64731-0575-01 ",.01)
 ;;64731-0575-01
 ;;9002226.02101,"737,64731-0575-01 ",.02)
 ;;64731-0575-01
 ;;9002226.02101,"737,64731-0575-10 ",.01)
 ;;64731-0575-10
 ;;9002226.02101,"737,64731-0575-10 ",.02)
 ;;64731-0575-10
 ;;9002226.02101,"737,64731-0576-01 ",.01)
 ;;64731-0576-01
 ;;9002226.02101,"737,64731-0576-01 ",.02)
 ;;64731-0576-01
 ;;9002226.02101,"737,64731-0576-10 ",.01)
 ;;64731-0576-10
 ;;9002226.02101,"737,64731-0576-10 ",.02)
 ;;64731-0576-10
 ;;9002226.02101,"737,68115-0663-00 ",.01)
 ;;68115-0663-00
 ;;9002226.02101,"737,68115-0663-00 ",.02)
 ;;68115-0663-00