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

BGP06L7.m

Go to the documentation of this file.
BGP06L7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"692,51079-0374-01 ",.01)
 ;;51079-0374-01
 ;;9002226.02101,"692,51079-0374-01 ",.02)
 ;;51079-0374-01
 ;;9002226.02101,"692,51079-0374-20 ",.01)
 ;;51079-0374-20
 ;;9002226.02101,"692,51079-0374-20 ",.02)
 ;;51079-0374-20
 ;;9002226.02101,"692,51079-0375-01 ",.01)
 ;;51079-0375-01
 ;;9002226.02101,"692,51079-0375-01 ",.02)
 ;;51079-0375-01
 ;;9002226.02101,"692,51079-0375-20 ",.01)
 ;;51079-0375-20
 ;;9002226.02101,"692,51079-0375-20 ",.02)
 ;;51079-0375-20
 ;;9002226.02101,"692,51655-0801-24 ",.01)
 ;;51655-0801-24
 ;;9002226.02101,"692,51655-0801-24 ",.02)
 ;;51655-0801-24
 ;;9002226.02101,"692,51655-0801-25 ",.01)
 ;;51655-0801-25
 ;;9002226.02101,"692,51655-0801-25 ",.02)
 ;;51655-0801-25
 ;;9002226.02101,"692,51655-0801-26 ",.01)
 ;;51655-0801-26
 ;;9002226.02101,"692,51655-0801-26 ",.02)
 ;;51655-0801-26
 ;;9002226.02101,"692,51655-0801-82 ",.01)
 ;;51655-0801-82
 ;;9002226.02101,"692,51655-0801-82 ",.02)
 ;;51655-0801-82
 ;;9002226.02101,"692,51655-0825-24 ",.01)
 ;;51655-0825-24
 ;;9002226.02101,"692,51655-0825-24 ",.02)
 ;;51655-0825-24
 ;;9002226.02101,"692,51655-0833-24 ",.01)
 ;;51655-0833-24
 ;;9002226.02101,"692,51655-0833-24 ",.02)
 ;;51655-0833-24
 ;;9002226.02101,"692,51655-0833-25 ",.01)
 ;;51655-0833-25
 ;;9002226.02101,"692,51655-0833-25 ",.02)
 ;;51655-0833-25
 ;;9002226.02101,"692,51655-0833-26 ",.01)
 ;;51655-0833-26
 ;;9002226.02101,"692,51655-0833-26 ",.02)
 ;;51655-0833-26
 ;;9002226.02101,"692,51655-0833-82 ",.01)
 ;;51655-0833-82
 ;;9002226.02101,"692,51655-0833-82 ",.02)
 ;;51655-0833-82
 ;;9002226.02101,"692,51655-0842-24 ",.01)
 ;;51655-0842-24
 ;;9002226.02101,"692,51655-0842-24 ",.02)
 ;;51655-0842-24
 ;;9002226.02101,"692,51655-0842-25 ",.01)
 ;;51655-0842-25
 ;;9002226.02101,"692,51655-0842-25 ",.02)
 ;;51655-0842-25
 ;;9002226.02101,"692,51991-0622-01 ",.01)
 ;;51991-0622-01
 ;;9002226.02101,"692,51991-0622-01 ",.02)
 ;;51991-0622-01
 ;;9002226.02101,"692,52152-0018-02 ",.01)
 ;;52152-0018-02
 ;;9002226.02101,"692,52152-0018-02 ",.02)
 ;;52152-0018-02
 ;;9002226.02101,"692,52152-0018-04 ",.01)
 ;;52152-0018-04
 ;;9002226.02101,"692,52152-0018-04 ",.02)
 ;;52152-0018-04
 ;;9002226.02101,"692,52152-0018-05 ",.01)
 ;;52152-0018-05
 ;;9002226.02101,"692,52152-0018-05 ",.02)
 ;;52152-0018-05
 ;;9002226.02101,"692,52544-0786-01 ",.01)
 ;;52544-0786-01
 ;;9002226.02101,"692,52544-0786-01 ",.02)
 ;;52544-0786-01
 ;;9002226.02101,"692,52544-0786-05 ",.01)
 ;;52544-0786-05
 ;;9002226.02101,"692,52544-0786-05 ",.02)
 ;;52544-0786-05
 ;;9002226.02101,"692,52959-0047-01 ",.01)
 ;;52959-0047-01
 ;;9002226.02101,"692,52959-0047-01 ",.02)
 ;;52959-0047-01
 ;;9002226.02101,"692,52959-0047-02 ",.01)
 ;;52959-0047-02
 ;;9002226.02101,"692,52959-0047-02 ",.02)
 ;;52959-0047-02
 ;;9002226.02101,"692,52959-0047-03 ",.01)
 ;;52959-0047-03
 ;;9002226.02101,"692,52959-0047-03 ",.02)
 ;;52959-0047-03
 ;;9002226.02101,"692,52959-0047-05 ",.01)
 ;;52959-0047-05
 ;;9002226.02101,"692,52959-0047-05 ",.02)
 ;;52959-0047-05
 ;;9002226.02101,"692,52959-0047-06 ",.01)
 ;;52959-0047-06
 ;;9002226.02101,"692,52959-0047-06 ",.02)
 ;;52959-0047-06
 ;;9002226.02101,"692,52959-0047-10 ",.01)
 ;;52959-0047-10
 ;;9002226.02101,"692,52959-0047-10 ",.02)
 ;;52959-0047-10
 ;;9002226.02101,"692,52959-0047-12 ",.01)
 ;;52959-0047-12
 ;;9002226.02101,"692,52959-0047-12 ",.02)
 ;;52959-0047-12
 ;;9002226.02101,"692,52959-0047-15 ",.01)
 ;;52959-0047-15
 ;;9002226.02101,"692,52959-0047-15 ",.02)
 ;;52959-0047-15
 ;;9002226.02101,"692,52959-0047-20 ",.01)
 ;;52959-0047-20
 ;;9002226.02101,"692,52959-0047-20 ",.02)
 ;;52959-0047-20
 ;;9002226.02101,"692,52959-0047-21 ",.01)
 ;;52959-0047-21
 ;;9002226.02101,"692,52959-0047-21 ",.02)
 ;;52959-0047-21
 ;;9002226.02101,"692,52959-0047-25 ",.01)
 ;;52959-0047-25
 ;;9002226.02101,"692,52959-0047-25 ",.02)
 ;;52959-0047-25
 ;;9002226.02101,"692,52959-0047-30 ",.01)
 ;;52959-0047-30
 ;;9002226.02101,"692,52959-0047-30 ",.02)
 ;;52959-0047-30
 ;;9002226.02101,"692,52959-0047-40 ",.01)
 ;;52959-0047-40
 ;;9002226.02101,"692,52959-0047-40 ",.02)
 ;;52959-0047-40
 ;;9002226.02101,"692,52959-0047-45 ",.01)
 ;;52959-0047-45
 ;;9002226.02101,"692,52959-0047-45 ",.02)
 ;;52959-0047-45
 ;;9002226.02101,"692,52959-0047-50 ",.01)
 ;;52959-0047-50
 ;;9002226.02101,"692,52959-0047-50 ",.02)
 ;;52959-0047-50
 ;;9002226.02101,"692,52959-0047-60 ",.01)
 ;;52959-0047-60
 ;;9002226.02101,"692,52959-0047-60 ",.02)
 ;;52959-0047-60
 ;;9002226.02101,"692,52959-0047-90 ",.01)
 ;;52959-0047-90
 ;;9002226.02101,"692,52959-0047-90 ",.02)
 ;;52959-0047-90
 ;;9002226.02101,"692,52959-0236-14 ",.01)
 ;;52959-0236-14
 ;;9002226.02101,"692,52959-0236-14 ",.02)
 ;;52959-0236-14
 ;;9002226.02101,"692,52959-0236-15 ",.01)
 ;;52959-0236-15
 ;;9002226.02101,"692,52959-0236-15 ",.02)
 ;;52959-0236-15
 ;;9002226.02101,"692,52959-0236-20 ",.01)
 ;;52959-0236-20
 ;;9002226.02101,"692,52959-0236-20 ",.02)
 ;;52959-0236-20
 ;;9002226.02101,"692,52959-0236-30 ",.01)
 ;;52959-0236-30
 ;;9002226.02101,"692,52959-0236-30 ",.02)
 ;;52959-0236-30
 ;;9002226.02101,"692,52959-0236-60 ",.01)
 ;;52959-0236-60
 ;;9002226.02101,"692,52959-0236-60 ",.02)
 ;;52959-0236-60
 ;;9002226.02101,"692,52959-0295-02 ",.01)
 ;;52959-0295-02
 ;;9002226.02101,"692,52959-0295-02 ",.02)
 ;;52959-0295-02
 ;;9002226.02101,"692,52959-0295-10 ",.01)
 ;;52959-0295-10
 ;;9002226.02101,"692,52959-0295-10 ",.02)
 ;;52959-0295-10
 ;;9002226.02101,"692,52959-0295-15 ",.01)
 ;;52959-0295-15
 ;;9002226.02101,"692,52959-0295-15 ",.02)
 ;;52959-0295-15
 ;;9002226.02101,"692,52959-0295-30 ",.01)
 ;;52959-0295-30
 ;;9002226.02101,"692,52959-0295-30 ",.02)
 ;;52959-0295-30
 ;;9002226.02101,"692,52959-0295-50 ",.01)
 ;;52959-0295-50
 ;;9002226.02101,"692,52959-0295-50 ",.02)
 ;;52959-0295-50
 ;;9002226.02101,"692,52959-0306-00 ",.01)
 ;;52959-0306-00
 ;;9002226.02101,"692,52959-0306-00 ",.02)
 ;;52959-0306-00
 ;;9002226.02101,"692,52959-0306-02 ",.01)
 ;;52959-0306-02
 ;;9002226.02101,"692,52959-0306-02 ",.02)
 ;;52959-0306-02
 ;;9002226.02101,"692,52959-0306-05 ",.01)
 ;;52959-0306-05
 ;;9002226.02101,"692,52959-0306-05 ",.02)
 ;;52959-0306-05
 ;;9002226.02101,"692,52959-0306-06 ",.01)
 ;;52959-0306-06
 ;;9002226.02101,"692,52959-0306-06 ",.02)
 ;;52959-0306-06
 ;;9002226.02101,"692,52959-0306-10 ",.01)
 ;;52959-0306-10
 ;;9002226.02101,"692,52959-0306-10 ",.02)
 ;;52959-0306-10
 ;;9002226.02101,"692,52959-0306-15 ",.01)
 ;;52959-0306-15
 ;;9002226.02101,"692,52959-0306-15 ",.02)
 ;;52959-0306-15
 ;;9002226.02101,"692,52959-0306-20 ",.01)
 ;;52959-0306-20
 ;;9002226.02101,"692,52959-0306-20 ",.02)
 ;;52959-0306-20
 ;;9002226.02101,"692,52959-0306-28 ",.01)
 ;;52959-0306-28
 ;;9002226.02101,"692,52959-0306-28 ",.02)
 ;;52959-0306-28
 ;;9002226.02101,"692,52959-0306-30 ",.01)
 ;;52959-0306-30
 ;;9002226.02101,"692,52959-0306-30 ",.02)
 ;;52959-0306-30
 ;;9002226.02101,"692,52959-0306-60 ",.01)
 ;;52959-0306-60
 ;;9002226.02101,"692,52959-0306-60 ",.02)
 ;;52959-0306-60
 ;;9002226.02101,"692,52959-0306-90 ",.01)
 ;;52959-0306-90
 ;;9002226.02101,"692,52959-0306-90 ",.02)
 ;;52959-0306-90
 ;;9002226.02101,"692,52959-0369-00 ",.01)
 ;;52959-0369-00
 ;;9002226.02101,"692,52959-0369-00 ",.02)
 ;;52959-0369-00
 ;;9002226.02101,"692,52959-0369-06 ",.01)
 ;;52959-0369-06
 ;;9002226.02101,"692,52959-0369-06 ",.02)
 ;;52959-0369-06
 ;;9002226.02101,"692,52959-0369-30 ",.01)
 ;;52959-0369-30
 ;;9002226.02101,"692,52959-0369-30 ",.02)
 ;;52959-0369-30
 ;;9002226.02101,"692,52959-0369-40 ",.01)
 ;;52959-0369-40
 ;;9002226.02101,"692,52959-0369-40 ",.02)
 ;;52959-0369-40
 ;;9002226.02101,"692,52959-0369-60 ",.01)
 ;;52959-0369-60
 ;;9002226.02101,"692,52959-0369-60 ",.02)
 ;;52959-0369-60
 ;;9002226.02101,"692,54569-0173-00 ",.01)
 ;;54569-0173-00
 ;;9002226.02101,"692,54569-0173-00 ",.02)
 ;;54569-0173-00
 ;;9002226.02101,"692,54569-0430-00 ",.01)
 ;;54569-0430-00
 ;;9002226.02101,"692,54569-0430-00 ",.02)
 ;;54569-0430-00
 ;;9002226.02101,"692,54569-0430-01 ",.01)
 ;;54569-0430-01
 ;;9002226.02101,"692,54569-0430-01 ",.02)
 ;;54569-0430-01
 ;;9002226.02101,"692,54569-0430-02 ",.01)
 ;;54569-0430-02
 ;;9002226.02101,"692,54569-0430-02 ",.02)
 ;;54569-0430-02
 ;;9002226.02101,"692,54569-0430-03 ",.01)
 ;;54569-0430-03
 ;;9002226.02101,"692,54569-0430-03 ",.02)
 ;;54569-0430-03
 ;;9002226.02101,"692,54569-0898-00 ",.01)
 ;;54569-0898-00
 ;;9002226.02101,"692,54569-0898-00 ",.02)
 ;;54569-0898-00
 ;;9002226.02101,"692,54569-0936-00 ",.01)
 ;;54569-0936-00
 ;;9002226.02101,"692,54569-0936-00 ",.02)
 ;;54569-0936-00
 ;;9002226.02101,"692,54569-0936-02 ",.01)
 ;;54569-0936-02
 ;;9002226.02101,"692,54569-0936-02 ",.02)
 ;;54569-0936-02
 ;;9002226.02101,"692,54569-0936-03 ",.01)
 ;;54569-0936-03
 ;;9002226.02101,"692,54569-0936-03 ",.02)
 ;;54569-0936-03
 ;;9002226.02101,"692,54569-0936-04 ",.01)
 ;;54569-0936-04
 ;;9002226.02101,"692,54569-0936-04 ",.02)
 ;;54569-0936-04
 ;;9002226.02101,"692,54569-0936-05 ",.01)
 ;;54569-0936-05
 ;;9002226.02101,"692,54569-0936-05 ",.02)
 ;;54569-0936-05
 ;;9002226.02101,"692,54569-0936-06 ",.01)
 ;;54569-0936-06
 ;;9002226.02101,"692,54569-0936-06 ",.02)
 ;;54569-0936-06
 ;;9002226.02101,"692,54569-0936-07 ",.01)
 ;;54569-0936-07
 ;;9002226.02101,"692,54569-0936-07 ",.02)
 ;;54569-0936-07
 ;;9002226.02101,"692,54569-0936-08 ",.01)
 ;;54569-0936-08
 ;;9002226.02101,"692,54569-0936-08 ",.02)
 ;;54569-0936-08
 ;;9002226.02101,"692,54569-0936-09 ",.01)
 ;;54569-0936-09
 ;;9002226.02101,"692,54569-0936-09 ",.02)
 ;;54569-0936-09
 ;;9002226.02101,"692,54569-0947-00 ",.01)
 ;;54569-0947-00
 ;;9002226.02101,"692,54569-0947-00 ",.02)
 ;;54569-0947-00
 ;;9002226.02101,"692,54569-0947-03 ",.01)
 ;;54569-0947-03
 ;;9002226.02101,"692,54569-0947-03 ",.02)
 ;;54569-0947-03
 ;;9002226.02101,"692,54569-0948-00 ",.01)
 ;;54569-0948-00
 ;;9002226.02101,"692,54569-0948-00 ",.02)
 ;;54569-0948-00
 ;;9002226.02101,"692,54569-0949-00 ",.01)
 ;;54569-0949-00
 ;;9002226.02101,"692,54569-0949-00 ",.02)
 ;;54569-0949-00
 ;;9002226.02101,"692,54569-0949-01 ",.01)
 ;;54569-0949-01
 ;;9002226.02101,"692,54569-0949-01 ",.02)
 ;;54569-0949-01
 ;;9002226.02101,"692,54569-0949-02 ",.01)
 ;;54569-0949-02
 ;;9002226.02101,"692,54569-0949-02 ",.02)
 ;;54569-0949-02
 ;;9002226.02101,"692,54569-0949-03 ",.01)
 ;;54569-0949-03
 ;;9002226.02101,"692,54569-0949-03 ",.02)
 ;;54569-0949-03
 ;;9002226.02101,"692,54569-0949-04 ",.01)
 ;;54569-0949-04
 ;;9002226.02101,"692,54569-0949-04 ",.02)
 ;;54569-0949-04
 ;;9002226.02101,"692,54569-0949-05 ",.01)
 ;;54569-0949-05
 ;;9002226.02101,"692,54569-0949-05 ",.02)
 ;;54569-0949-05
 ;;9002226.02101,"692,54569-0949-06 ",.01)
 ;;54569-0949-06
 ;;9002226.02101,"692,54569-0949-06 ",.02)
 ;;54569-0949-06
 ;;9002226.02101,"692,54569-0949-07 ",.01)
 ;;54569-0949-07
 ;;9002226.02101,"692,54569-0949-07 ",.02)
 ;;54569-0949-07
 ;;9002226.02101,"692,54569-2376-02 ",.01)
 ;;54569-2376-02
 ;;9002226.02101,"692,54569-2376-02 ",.02)
 ;;54569-2376-02
 ;;9002226.02101,"692,54569-4764-00 ",.01)
 ;;54569-4764-00
 ;;9002226.02101,"692,54569-4764-00 ",.02)
 ;;54569-4764-00
 ;;9002226.02101,"692,54569-4764-03 ",.01)
 ;;54569-4764-03
 ;;9002226.02101,"692,54569-4764-03 ",.02)
 ;;54569-4764-03
 ;;9002226.02101,"692,54569-5354-03 ",.01)
 ;;54569-5354-03
 ;;9002226.02101,"692,54569-5354-03 ",.02)
 ;;54569-5354-03
 ;;9002226.02101,"692,54569-5354-04 ",.01)
 ;;54569-5354-04
 ;;9002226.02101,"692,54569-5354-04 ",.02)
 ;;54569-5354-04
 ;;9002226.02101,"692,54868-0030-00 ",.01)
 ;;54868-0030-00
 ;;9002226.02101,"692,54868-0030-00 ",.02)
 ;;54868-0030-00
 ;;9002226.02101,"692,54868-0030-02 ",.01)
 ;;54868-0030-02
 ;;9002226.02101,"692,54868-0030-02 ",.02)
 ;;54868-0030-02
 ;;9002226.02101,"692,54868-0030-03 ",.01)
 ;;54868-0030-03
 ;;9002226.02101,"692,54868-0030-03 ",.02)
 ;;54868-0030-03
 ;;9002226.02101,"692,54868-0030-04 ",.01)
 ;;54868-0030-04
 ;;9002226.02101,"692,54868-0030-04 ",.02)
 ;;54868-0030-04
 ;;9002226.02101,"692,54868-0030-05 ",.01)
 ;;54868-0030-05
 ;;9002226.02101,"692,54868-0030-05 ",.02)
 ;;54868-0030-05
 ;;9002226.02101,"692,54868-0059-00 ",.01)
 ;;54868-0059-00
 ;;9002226.02101,"692,54868-0059-00 ",.02)
 ;;54868-0059-00
 ;;9002226.02101,"692,54868-0059-01 ",.01)
 ;;54868-0059-01
 ;;9002226.02101,"692,54868-0059-01 ",.02)
 ;;54868-0059-01
 ;;9002226.02101,"692,54868-0059-02 ",.01)
 ;;54868-0059-02
 ;;9002226.02101,"692,54868-0059-02 ",.02)
 ;;54868-0059-02
 ;;9002226.02101,"692,54868-0059-03 ",.01)
 ;;54868-0059-03
 ;;9002226.02101,"692,54868-0059-03 ",.02)
 ;;54868-0059-03
 ;;9002226.02101,"692,54868-0059-04 ",.01)
 ;;54868-0059-04
 ;;9002226.02101,"692,54868-0059-04 ",.02)
 ;;54868-0059-04
 ;;9002226.02101,"692,54868-0059-05 ",.01)
 ;;54868-0059-05
 ;;9002226.02101,"692,54868-0059-05 ",.02)
 ;;54868-0059-05
 ;;9002226.02101,"692,54868-0059-06 ",.01)
 ;;54868-0059-06
 ;;9002226.02101,"692,54868-0059-06 ",.02)
 ;;54868-0059-06
 ;;9002226.02101,"692,54868-0059-08 ",.01)
 ;;54868-0059-08
 ;;9002226.02101,"692,54868-0059-08 ",.02)
 ;;54868-0059-08
 ;;9002226.02101,"692,54868-0059-09 ",.01)
 ;;54868-0059-09
 ;;9002226.02101,"692,54868-0059-09 ",.02)
 ;;54868-0059-09
 ;;9002226.02101,"692,54868-0092-01 ",.01)
 ;;54868-0092-01
 ;;9002226.02101,"692,54868-0092-01 ",.02)
 ;;54868-0092-01
 ;;9002226.02101,"692,54868-0092-02 ",.01)
 ;;54868-0092-02
 ;;9002226.02101,"692,54868-0092-02 ",.02)
 ;;54868-0092-02