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

BGP06P6.m

Go to the documentation of this file.
BGP06P6 ;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,"700,49999-0798-60 ",.02)
 ;;49999-0798-60
 ;;9002226.02101,"700,49999-0837-30 ",.01)
 ;;49999-0837-30
 ;;9002226.02101,"700,49999-0837-30 ",.02)
 ;;49999-0837-30
 ;;9002226.02101,"700,49999-0838-01 ",.01)
 ;;49999-0838-01
 ;;9002226.02101,"700,49999-0838-01 ",.02)
 ;;49999-0838-01
 ;;9002226.02101,"700,49999-0838-30 ",.01)
 ;;49999-0838-30
 ;;9002226.02101,"700,49999-0838-30 ",.02)
 ;;49999-0838-30
 ;;9002226.02101,"700,50111-0790-01 ",.01)
 ;;50111-0790-01
 ;;9002226.02101,"700,50111-0790-01 ",.02)
 ;;50111-0790-01
 ;;9002226.02101,"700,51079-0322-01 ",.01)
 ;;51079-0322-01
 ;;9002226.02101,"700,51079-0322-01 ",.02)
 ;;51079-0322-01
 ;;9002226.02101,"700,51079-0322-20 ",.01)
 ;;51079-0322-20
 ;;9002226.02101,"700,51079-0322-20 ",.02)
 ;;51079-0322-20
 ;;9002226.02101,"700,51079-0322-21 ",.01)
 ;;51079-0322-21
 ;;9002226.02101,"700,51079-0322-21 ",.02)
 ;;51079-0322-21
 ;;9002226.02101,"700,51079-0322-30 ",.01)
 ;;51079-0322-30
 ;;9002226.02101,"700,51079-0322-30 ",.02)
 ;;51079-0322-30
 ;;9002226.02101,"700,51079-0322-56 ",.01)
 ;;51079-0322-56
 ;;9002226.02101,"700,51079-0322-56 ",.02)
 ;;51079-0322-56
 ;;9002226.02101,"700,51079-0322-96 ",.01)
 ;;51079-0322-96
 ;;9002226.02101,"700,51079-0322-96 ",.02)
 ;;51079-0322-96
 ;;9002226.02101,"700,51079-0322-99 ",.01)
 ;;51079-0322-99
 ;;9002226.02101,"700,51079-0322-99 ",.02)
 ;;51079-0322-99
 ;;9002226.02101,"700,51079-0741-01 ",.01)
 ;;51079-0741-01
 ;;9002226.02101,"700,51079-0741-01 ",.02)
 ;;51079-0741-01
 ;;9002226.02101,"700,51079-0741-20 ",.01)
 ;;51079-0741-20
 ;;9002226.02101,"700,51079-0741-20 ",.02)
 ;;51079-0741-20
 ;;9002226.02101,"700,51641-0321-01 ",.01)
 ;;51641-0321-01
 ;;9002226.02101,"700,51641-0321-01 ",.02)
 ;;51641-0321-01
 ;;9002226.02101,"700,51641-0321-05 ",.01)
 ;;51641-0321-05
 ;;9002226.02101,"700,51641-0321-05 ",.02)
 ;;51641-0321-05
 ;;9002226.02101,"700,51641-0321-10 ",.01)
 ;;51641-0321-10
 ;;9002226.02101,"700,51641-0321-10 ",.02)
 ;;51641-0321-10
 ;;9002226.02101,"700,51641-0321-11 ",.01)
 ;;51641-0321-11
 ;;9002226.02101,"700,51641-0321-11 ",.02)
 ;;51641-0321-11
 ;;9002226.02101,"700,51641-0323-01 ",.01)
 ;;51641-0323-01
 ;;9002226.02101,"700,51641-0323-01 ",.02)
 ;;51641-0323-01
 ;;9002226.02101,"700,51641-0323-05 ",.01)
 ;;51641-0323-05
 ;;9002226.02101,"700,51641-0323-05 ",.02)
 ;;51641-0323-05
 ;;9002226.02101,"700,51641-0323-10 ",.01)
 ;;51641-0323-10
 ;;9002226.02101,"700,51641-0323-10 ",.02)
 ;;51641-0323-10
 ;;9002226.02101,"700,51641-0323-11 ",.01)
 ;;51641-0323-11
 ;;9002226.02101,"700,51641-0323-11 ",.02)
 ;;51641-0323-11
 ;;9002226.02101,"700,51655-0837-24 ",.01)
 ;;51655-0837-24
 ;;9002226.02101,"700,51655-0837-24 ",.02)
 ;;51655-0837-24
 ;;9002226.02101,"700,51655-0837-25 ",.01)
 ;;51655-0837-25
 ;;9002226.02101,"700,51655-0837-25 ",.02)
 ;;51655-0837-25
 ;;9002226.02101,"700,51655-0837-26 ",.01)
 ;;51655-0837-26
 ;;9002226.02101,"700,51655-0837-26 ",.02)
 ;;51655-0837-26
 ;;9002226.02101,"700,51655-0837-51 ",.01)
 ;;51655-0837-51
 ;;9002226.02101,"700,51655-0837-51 ",.02)
 ;;51655-0837-51
 ;;9002226.02101,"700,51655-0837-52 ",.01)
 ;;51655-0837-52
 ;;9002226.02101,"700,51655-0837-52 ",.02)
 ;;51655-0837-52
 ;;9002226.02101,"700,51655-0837-53 ",.01)
 ;;51655-0837-53
 ;;9002226.02101,"700,51655-0837-53 ",.02)
 ;;51655-0837-53
 ;;9002226.02101,"700,51655-0837-54 ",.01)
 ;;51655-0837-54
 ;;9002226.02101,"700,51655-0837-54 ",.02)
 ;;51655-0837-54
 ;;9002226.02101,"700,51655-0837-77 ",.01)
 ;;51655-0837-77
 ;;9002226.02101,"700,51655-0837-77 ",.02)
 ;;51655-0837-77
 ;;9002226.02101,"700,51655-0837-82 ",.01)
 ;;51655-0837-82
 ;;9002226.02101,"700,51655-0837-82 ",.02)
 ;;51655-0837-82
 ;;9002226.02101,"700,51655-0849-24 ",.01)
 ;;51655-0849-24
 ;;9002226.02101,"700,51655-0849-24 ",.02)
 ;;51655-0849-24
 ;;9002226.02101,"700,51655-0849-25 ",.01)
 ;;51655-0849-25
 ;;9002226.02101,"700,51655-0849-25 ",.02)
 ;;51655-0849-25
 ;;9002226.02101,"700,51655-0849-26 ",.01)
 ;;51655-0849-26
 ;;9002226.02101,"700,51655-0849-26 ",.02)
 ;;51655-0849-26
 ;;9002226.02101,"700,52152-0157-02 ",.01)
 ;;52152-0157-02
 ;;9002226.02101,"700,52152-0157-02 ",.02)
 ;;52152-0157-02
 ;;9002226.02101,"700,52152-0157-04 ",.01)
 ;;52152-0157-04
 ;;9002226.02101,"700,52152-0157-04 ",.02)
 ;;52152-0157-04
 ;;9002226.02101,"700,52152-0158-02 ",.01)
 ;;52152-0158-02
 ;;9002226.02101,"700,52152-0158-02 ",.02)
 ;;52152-0158-02
 ;;9002226.02101,"700,52152-0158-04 ",.01)
 ;;52152-0158-04
 ;;9002226.02101,"700,52152-0158-04 ",.02)
 ;;52152-0158-04
 ;;9002226.02101,"700,52152-0190-02 ",.01)
 ;;52152-0190-02
 ;;9002226.02101,"700,52152-0190-02 ",.02)
 ;;52152-0190-02
 ;;9002226.02101,"700,52152-0211-02 ",.01)
 ;;52152-0211-02
 ;;9002226.02101,"700,52152-0211-02 ",.02)
 ;;52152-0211-02
 ;;9002226.02101,"700,52152-0211-04 ",.01)
 ;;52152-0211-04
 ;;9002226.02101,"700,52152-0211-04 ",.02)
 ;;52152-0211-04
 ;;9002226.02101,"700,52152-0213-02 ",.01)
 ;;52152-0213-02
 ;;9002226.02101,"700,52152-0213-02 ",.02)
 ;;52152-0213-02
 ;;9002226.02101,"700,52544-0396-01 ",.01)
 ;;52544-0396-01
 ;;9002226.02101,"700,52544-0396-01 ",.02)
 ;;52544-0396-01
 ;;9002226.02101,"700,52959-0165-20 ",.01)
 ;;52959-0165-20
 ;;9002226.02101,"700,52959-0165-20 ",.02)
 ;;52959-0165-20
 ;;9002226.02101,"700,52959-0165-30 ",.01)
 ;;52959-0165-30
 ;;9002226.02101,"700,52959-0165-30 ",.02)
 ;;52959-0165-30
 ;;9002226.02101,"700,52959-0188-20 ",.01)
 ;;52959-0188-20
 ;;9002226.02101,"700,52959-0188-20 ",.02)
 ;;52959-0188-20
 ;;9002226.02101,"700,52959-0334-20 ",.01)
 ;;52959-0334-20
 ;;9002226.02101,"700,52959-0334-20 ",.02)
 ;;52959-0334-20
 ;;9002226.02101,"700,52959-0334-30 ",.01)
 ;;52959-0334-30
 ;;9002226.02101,"700,52959-0334-30 ",.02)
 ;;52959-0334-30
 ;;9002226.02101,"700,52959-0334-40 ",.01)
 ;;52959-0334-40
 ;;9002226.02101,"700,52959-0334-40 ",.02)
 ;;52959-0334-40
 ;;9002226.02101,"700,52959-0334-45 ",.01)
 ;;52959-0334-45
 ;;9002226.02101,"700,52959-0334-45 ",.02)
 ;;52959-0334-45
 ;;9002226.02101,"700,52959-0334-60 ",.01)
 ;;52959-0334-60
 ;;9002226.02101,"700,52959-0334-60 ",.02)
 ;;52959-0334-60
 ;;9002226.02101,"700,52959-0335-00 ",.01)
 ;;52959-0335-00
 ;;9002226.02101,"700,52959-0335-00 ",.02)
 ;;52959-0335-00
 ;;9002226.02101,"700,52959-0335-02 ",.01)
 ;;52959-0335-02
 ;;9002226.02101,"700,52959-0335-02 ",.02)
 ;;52959-0335-02
 ;;9002226.02101,"700,52959-0335-10 ",.01)
 ;;52959-0335-10
 ;;9002226.02101,"700,52959-0335-10 ",.02)
 ;;52959-0335-10
 ;;9002226.02101,"700,52959-0335-12 ",.01)
 ;;52959-0335-12
 ;;9002226.02101,"700,52959-0335-12 ",.02)
 ;;52959-0335-12
 ;;9002226.02101,"700,52959-0335-14 ",.01)
 ;;52959-0335-14
 ;;9002226.02101,"700,52959-0335-14 ",.02)
 ;;52959-0335-14
 ;;9002226.02101,"700,52959-0335-15 ",.01)
 ;;52959-0335-15
 ;;9002226.02101,"700,52959-0335-15 ",.02)
 ;;52959-0335-15
 ;;9002226.02101,"700,52959-0335-20 ",.01)
 ;;52959-0335-20
 ;;9002226.02101,"700,52959-0335-20 ",.02)
 ;;52959-0335-20
 ;;9002226.02101,"700,52959-0335-21 ",.01)
 ;;52959-0335-21
 ;;9002226.02101,"700,52959-0335-21 ",.02)
 ;;52959-0335-21
 ;;9002226.02101,"700,52959-0335-24 ",.01)
 ;;52959-0335-24
 ;;9002226.02101,"700,52959-0335-24 ",.02)
 ;;52959-0335-24
 ;;9002226.02101,"700,52959-0335-25 ",.01)
 ;;52959-0335-25
 ;;9002226.02101,"700,52959-0335-25 ",.02)
 ;;52959-0335-25
 ;;9002226.02101,"700,52959-0335-28 ",.01)
 ;;52959-0335-28
 ;;9002226.02101,"700,52959-0335-28 ",.02)
 ;;52959-0335-28
 ;;9002226.02101,"700,52959-0335-30 ",.01)
 ;;52959-0335-30
 ;;9002226.02101,"700,52959-0335-30 ",.02)
 ;;52959-0335-30
 ;;9002226.02101,"700,52959-0335-35 ",.01)
 ;;52959-0335-35
 ;;9002226.02101,"700,52959-0335-35 ",.02)
 ;;52959-0335-35
 ;;9002226.02101,"700,52959-0335-36 ",.01)
 ;;52959-0335-36
 ;;9002226.02101,"700,52959-0335-36 ",.02)
 ;;52959-0335-36
 ;;9002226.02101,"700,52959-0335-40 ",.01)
 ;;52959-0335-40
 ;;9002226.02101,"700,52959-0335-40 ",.02)
 ;;52959-0335-40
 ;;9002226.02101,"700,52959-0335-42 ",.01)
 ;;52959-0335-42
 ;;9002226.02101,"700,52959-0335-42 ",.02)
 ;;52959-0335-42
 ;;9002226.02101,"700,52959-0335-45 ",.01)
 ;;52959-0335-45
 ;;9002226.02101,"700,52959-0335-45 ",.02)
 ;;52959-0335-45
 ;;9002226.02101,"700,52959-0335-50 ",.01)
 ;;52959-0335-50
 ;;9002226.02101,"700,52959-0335-50 ",.02)
 ;;52959-0335-50
 ;;9002226.02101,"700,52959-0335-60 ",.01)
 ;;52959-0335-60
 ;;9002226.02101,"700,52959-0335-60 ",.02)
 ;;52959-0335-60
 ;;9002226.02101,"700,52959-0335-80 ",.01)
 ;;52959-0335-80
 ;;9002226.02101,"700,52959-0335-80 ",.02)
 ;;52959-0335-80
 ;;9002226.02101,"700,52959-0335-84 ",.01)
 ;;52959-0335-84
 ;;9002226.02101,"700,52959-0335-84 ",.02)
 ;;52959-0335-84
 ;;9002226.02101,"700,52959-0335-90 ",.01)
 ;;52959-0335-90
 ;;9002226.02101,"700,52959-0335-90 ",.02)
 ;;52959-0335-90
 ;;9002226.02101,"700,52959-0340-10 ",.01)
 ;;52959-0340-10
 ;;9002226.02101,"700,52959-0340-10 ",.02)
 ;;52959-0340-10
 ;;9002226.02101,"700,52959-0340-12 ",.01)
 ;;52959-0340-12
 ;;9002226.02101,"700,52959-0340-12 ",.02)
 ;;52959-0340-12
 ;;9002226.02101,"700,52959-0340-24 ",.01)
 ;;52959-0340-24
 ;;9002226.02101,"700,52959-0340-24 ",.02)
 ;;52959-0340-24
 ;;9002226.02101,"700,52959-0340-30 ",.01)
 ;;52959-0340-30
 ;;9002226.02101,"700,52959-0340-30 ",.02)
 ;;52959-0340-30
 ;;9002226.02101,"700,52959-0340-40 ",.01)
 ;;52959-0340-40
 ;;9002226.02101,"700,52959-0340-40 ",.02)
 ;;52959-0340-40
 ;;9002226.02101,"700,52959-0462-20 ",.01)
 ;;52959-0462-20
 ;;9002226.02101,"700,52959-0462-20 ",.02)
 ;;52959-0462-20
 ;;9002226.02101,"700,52959-0523-00 ",.01)
 ;;52959-0523-00
 ;;9002226.02101,"700,52959-0523-00 ",.02)
 ;;52959-0523-00
 ;;9002226.02101,"700,52959-0545-02 ",.01)
 ;;52959-0545-02
 ;;9002226.02101,"700,52959-0545-02 ",.02)
 ;;52959-0545-02
 ;;9002226.02101,"700,52959-0545-10 ",.01)
 ;;52959-0545-10
 ;;9002226.02101,"700,52959-0545-10 ",.02)
 ;;52959-0545-10
 ;;9002226.02101,"700,52959-0545-12 ",.01)
 ;;52959-0545-12
 ;;9002226.02101,"700,52959-0545-12 ",.02)
 ;;52959-0545-12
 ;;9002226.02101,"700,52959-0545-15 ",.01)
 ;;52959-0545-15
 ;;9002226.02101,"700,52959-0545-15 ",.02)
 ;;52959-0545-15
 ;;9002226.02101,"700,52959-0545-20 ",.01)
 ;;52959-0545-20
 ;;9002226.02101,"700,52959-0545-20 ",.02)
 ;;52959-0545-20
 ;;9002226.02101,"700,52959-0545-24 ",.01)
 ;;52959-0545-24
 ;;9002226.02101,"700,52959-0545-24 ",.02)
 ;;52959-0545-24
 ;;9002226.02101,"700,52959-0545-30 ",.01)
 ;;52959-0545-30
 ;;9002226.02101,"700,52959-0545-30 ",.02)
 ;;52959-0545-30
 ;;9002226.02101,"700,52959-0545-35 ",.01)
 ;;52959-0545-35
 ;;9002226.02101,"700,52959-0545-35 ",.02)
 ;;52959-0545-35
 ;;9002226.02101,"700,52959-0545-40 ",.01)
 ;;52959-0545-40
 ;;9002226.02101,"700,52959-0545-40 ",.02)
 ;;52959-0545-40
 ;;9002226.02101,"700,52959-0545-50 ",.01)
 ;;52959-0545-50
 ;;9002226.02101,"700,52959-0545-50 ",.02)
 ;;52959-0545-50
 ;;9002226.02101,"700,52959-0545-60 ",.01)
 ;;52959-0545-60
 ;;9002226.02101,"700,52959-0545-60 ",.02)
 ;;52959-0545-60
 ;;9002226.02101,"700,52959-0545-90 ",.01)
 ;;52959-0545-90
 ;;9002226.02101,"700,52959-0545-90 ",.02)
 ;;52959-0545-90
 ;;9002226.02101,"700,53265-0256-10 ",.01)
 ;;53265-0256-10
 ;;9002226.02101,"700,53265-0256-10 ",.02)
 ;;53265-0256-10
 ;;9002226.02101,"700,53265-0256-11 ",.01)
 ;;53265-0256-11
 ;;9002226.02101,"700,53265-0256-11 ",.02)
 ;;53265-0256-11
 ;;9002226.02101,"700,53265-0256-50 ",.01)
 ;;53265-0256-50
 ;;9002226.02101,"700,53265-0256-50 ",.02)
 ;;53265-0256-50
 ;;9002226.02101,"700,53265-0261-10 ",.01)
 ;;53265-0261-10
 ;;9002226.02101,"700,53265-0261-10 ",.02)
 ;;53265-0261-10
 ;;9002226.02101,"700,53265-0261-11 ",.01)
 ;;53265-0261-11
 ;;9002226.02101,"700,53265-0261-11 ",.02)
 ;;53265-0261-11
 ;;9002226.02101,"700,53265-0261-50 ",.01)
 ;;53265-0261-50
 ;;9002226.02101,"700,53265-0261-50 ",.02)
 ;;53265-0261-50
 ;;9002226.02101,"700,54569-0007-02 ",.01)
 ;;54569-0007-02
 ;;9002226.02101,"700,54569-0007-02 ",.02)
 ;;54569-0007-02
 ;;9002226.02101,"700,54569-0007-03 ",.01)
 ;;54569-0007-03
 ;;9002226.02101,"700,54569-0007-03 ",.02)
 ;;54569-0007-03
 ;;9002226.02101,"700,54569-0015-00 ",.01)
 ;;54569-0015-00
 ;;9002226.02101,"700,54569-0015-00 ",.02)
 ;;54569-0015-00
 ;;9002226.02101,"700,54569-0015-01 ",.01)
 ;;54569-0015-01
 ;;9002226.02101,"700,54569-0015-01 ",.02)
 ;;54569-0015-01
 ;;9002226.02101,"700,54569-0015-02 ",.01)
 ;;54569-0015-02
 ;;9002226.02101,"700,54569-0015-02 ",.02)
 ;;54569-0015-02
 ;;9002226.02101,"700,54569-0015-03 ",.01)
 ;;54569-0015-03
 ;;9002226.02101,"700,54569-0015-03 ",.02)
 ;;54569-0015-03
 ;;9002226.02101,"700,54569-0015-04 ",.01)
 ;;54569-0015-04
 ;;9002226.02101,"700,54569-0015-04 ",.02)
 ;;54569-0015-04
 ;;9002226.02101,"700,54569-0015-05 ",.01)
 ;;54569-0015-05
 ;;9002226.02101,"700,54569-0015-05 ",.02)
 ;;54569-0015-05
 ;;9002226.02101,"700,54569-0015-06 ",.01)
 ;;54569-0015-06
 ;;9002226.02101,"700,54569-0015-06 ",.02)
 ;;54569-0015-06
 ;;9002226.02101,"700,54569-0015-07 ",.01)
 ;;54569-0015-07
 ;;9002226.02101,"700,54569-0015-07 ",.02)
 ;;54569-0015-07
 ;;9002226.02101,"700,54569-0015-08 ",.01)
 ;;54569-0015-08
 ;;9002226.02101,"700,54569-0015-08 ",.02)
 ;;54569-0015-08
 ;;9002226.02101,"700,54569-0015-09 ",.01)
 ;;54569-0015-09
 ;;9002226.02101,"700,54569-0015-09 ",.02)
 ;;54569-0015-09
 ;;9002226.02101,"700,54569-0223-00 ",.01)
 ;;54569-0223-00
 ;;9002226.02101,"700,54569-0223-00 ",.02)
 ;;54569-0223-00
 ;;9002226.02101,"700,54569-0223-04 ",.01)
 ;;54569-0223-04