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

BGP51R14.m

Go to the documentation of this file.
BGP51R14 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"1197,43353-0684-15 ",.01)
 ;;43353-0684-15
 ;;9002226.02101,"1197,43353-0684-15 ",.02)
 ;;43353-0684-15
 ;;9002226.02101,"1197,43353-0684-30 ",.01)
 ;;43353-0684-30
 ;;9002226.02101,"1197,43353-0684-30 ",.02)
 ;;43353-0684-30
 ;;9002226.02101,"1197,43353-0684-45 ",.01)
 ;;43353-0684-45
 ;;9002226.02101,"1197,43353-0684-45 ",.02)
 ;;43353-0684-45
 ;;9002226.02101,"1197,43353-0691-30 ",.01)
 ;;43353-0691-30
 ;;9002226.02101,"1197,43353-0691-30 ",.02)
 ;;43353-0691-30
 ;;9002226.02101,"1197,43353-0723-60 ",.01)
 ;;43353-0723-60
 ;;9002226.02101,"1197,43353-0723-60 ",.02)
 ;;43353-0723-60
 ;;9002226.02101,"1197,43353-0750-60 ",.01)
 ;;43353-0750-60
 ;;9002226.02101,"1197,43353-0750-60 ",.02)
 ;;43353-0750-60
 ;;9002226.02101,"1197,43353-0750-81 ",.01)
 ;;43353-0750-81
 ;;9002226.02101,"1197,43353-0750-81 ",.02)
 ;;43353-0750-81
 ;;9002226.02101,"1197,43353-0782-30 ",.01)
 ;;43353-0782-30
 ;;9002226.02101,"1197,43353-0782-30 ",.02)
 ;;43353-0782-30
 ;;9002226.02101,"1197,43353-0782-60 ",.01)
 ;;43353-0782-60
 ;;9002226.02101,"1197,43353-0782-60 ",.02)
 ;;43353-0782-60
 ;;9002226.02101,"1197,43353-0782-80 ",.01)
 ;;43353-0782-80
 ;;9002226.02101,"1197,43353-0782-80 ",.02)
 ;;43353-0782-80
 ;;9002226.02101,"1197,43353-0792-30 ",.01)
 ;;43353-0792-30
 ;;9002226.02101,"1197,43353-0792-30 ",.02)
 ;;43353-0792-30
 ;;9002226.02101,"1197,43353-0792-60 ",.01)
 ;;43353-0792-60
 ;;9002226.02101,"1197,43353-0792-60 ",.02)
 ;;43353-0792-60
 ;;9002226.02101,"1197,43353-0836-30 ",.01)
 ;;43353-0836-30
 ;;9002226.02101,"1197,43353-0836-30 ",.02)
 ;;43353-0836-30
 ;;9002226.02101,"1197,43353-0836-60 ",.01)
 ;;43353-0836-60
 ;;9002226.02101,"1197,43353-0836-60 ",.02)
 ;;43353-0836-60
 ;;9002226.02101,"1197,43353-0836-80 ",.01)
 ;;43353-0836-80
 ;;9002226.02101,"1197,43353-0836-80 ",.02)
 ;;43353-0836-80
 ;;9002226.02101,"1197,43547-0230-09 ",.01)
 ;;43547-0230-09
 ;;9002226.02101,"1197,43547-0230-09 ",.02)
 ;;43547-0230-09
 ;;9002226.02101,"1197,43547-0230-11 ",.01)
 ;;43547-0230-11
 ;;9002226.02101,"1197,43547-0230-11 ",.02)
 ;;43547-0230-11
 ;;9002226.02101,"1197,43547-0231-09 ",.01)
 ;;43547-0231-09
 ;;9002226.02101,"1197,43547-0231-09 ",.02)
 ;;43547-0231-09
 ;;9002226.02101,"1197,43547-0231-11 ",.01)
 ;;43547-0231-11
 ;;9002226.02101,"1197,43547-0231-11 ",.02)
 ;;43547-0231-11
 ;;9002226.02101,"1197,43547-0232-09 ",.01)
 ;;43547-0232-09
 ;;9002226.02101,"1197,43547-0232-09 ",.02)
 ;;43547-0232-09
 ;;9002226.02101,"1197,43547-0232-11 ",.01)
 ;;43547-0232-11
 ;;9002226.02101,"1197,43547-0232-11 ",.02)
 ;;43547-0232-11
 ;;9002226.02101,"1197,43598-0313-30 ",.01)
 ;;43598-0313-30
 ;;9002226.02101,"1197,43598-0313-30 ",.02)
 ;;43598-0313-30
 ;;9002226.02101,"1197,43598-0314-30 ",.01)
 ;;43598-0314-30
 ;;9002226.02101,"1197,43598-0314-30 ",.02)
 ;;43598-0314-30
 ;;9002226.02101,"1197,43598-0315-30 ",.01)
 ;;43598-0315-30
 ;;9002226.02101,"1197,43598-0315-30 ",.02)
 ;;43598-0315-30
 ;;9002226.02101,"1197,43598-0315-90 ",.01)
 ;;43598-0315-90
 ;;9002226.02101,"1197,43598-0315-90 ",.02)
 ;;43598-0315-90
 ;;9002226.02101,"1197,43598-0316-30 ",.01)
 ;;43598-0316-30
 ;;9002226.02101,"1197,43598-0316-30 ",.02)
 ;;43598-0316-30
 ;;9002226.02101,"1197,43598-0316-90 ",.01)
 ;;43598-0316-90
 ;;9002226.02101,"1197,43598-0316-90 ",.02)
 ;;43598-0316-90
 ;;9002226.02101,"1197,43598-0317-30 ",.01)
 ;;43598-0317-30
 ;;9002226.02101,"1197,43598-0317-30 ",.02)
 ;;43598-0317-30
 ;;9002226.02101,"1197,43598-0318-30 ",.01)
 ;;43598-0318-30
 ;;9002226.02101,"1197,43598-0318-30 ",.02)
 ;;43598-0318-30
 ;;9002226.02101,"1197,43598-0318-90 ",.01)
 ;;43598-0318-90
 ;;9002226.02101,"1197,43598-0318-90 ",.02)
 ;;43598-0318-90
 ;;9002226.02101,"1197,43598-0319-30 ",.01)
 ;;43598-0319-30
 ;;9002226.02101,"1197,43598-0319-30 ",.02)
 ;;43598-0319-30
 ;;9002226.02101,"1197,43598-0319-90 ",.01)
 ;;43598-0319-90
 ;;9002226.02101,"1197,43598-0319-90 ",.02)
 ;;43598-0319-90
 ;;9002226.02101,"1197,43598-0320-30 ",.01)
 ;;43598-0320-30
 ;;9002226.02101,"1197,43598-0320-30 ",.02)
 ;;43598-0320-30
 ;;9002226.02101,"1197,43598-0321-30 ",.01)
 ;;43598-0321-30
 ;;9002226.02101,"1197,43598-0321-30 ",.02)
 ;;43598-0321-30
 ;;9002226.02101,"1197,43598-0321-90 ",.01)
 ;;43598-0321-90
 ;;9002226.02101,"1197,43598-0321-90 ",.02)
 ;;43598-0321-90
 ;;9002226.02101,"1197,43598-0322-30 ",.01)
 ;;43598-0322-30
 ;;9002226.02101,"1197,43598-0322-30 ",.02)
 ;;43598-0322-30
 ;;9002226.02101,"1197,43598-0322-90 ",.01)
 ;;43598-0322-90
 ;;9002226.02101,"1197,43598-0322-90 ",.02)
 ;;43598-0322-90
 ;;9002226.02101,"1197,43598-0323-30 ",.01)
 ;;43598-0323-30
 ;;9002226.02101,"1197,43598-0323-30 ",.02)
 ;;43598-0323-30
 ;;9002226.02101,"1197,43683-0133-30 ",.01)
 ;;43683-0133-30
 ;;9002226.02101,"1197,43683-0133-30 ",.02)
 ;;43683-0133-30
 ;;9002226.02101,"1197,45963-0152-02 ",.01)
 ;;45963-0152-02
 ;;9002226.02101,"1197,45963-0152-02 ",.02)
 ;;45963-0152-02
 ;;9002226.02101,"1197,47335-0669-13 ",.01)
 ;;47335-0669-13
 ;;9002226.02101,"1197,47335-0669-13 ",.02)
 ;;47335-0669-13
 ;;9002226.02101,"1197,47335-0669-81 ",.01)
 ;;47335-0669-81
 ;;9002226.02101,"1197,47335-0669-81 ",.02)
 ;;47335-0669-81
 ;;9002226.02101,"1197,47335-0669-83 ",.01)
 ;;47335-0669-83
 ;;9002226.02101,"1197,47335-0669-83 ",.02)
 ;;47335-0669-83
 ;;9002226.02101,"1197,47335-0670-13 ",.01)
 ;;47335-0670-13
 ;;9002226.02101,"1197,47335-0670-13 ",.02)
 ;;47335-0670-13
 ;;9002226.02101,"1197,47335-0670-81 ",.01)
 ;;47335-0670-81
 ;;9002226.02101,"1197,47335-0670-81 ",.02)
 ;;47335-0670-81
 ;;9002226.02101,"1197,47335-0670-83 ",.01)
 ;;47335-0670-83
 ;;9002226.02101,"1197,47335-0670-83 ",.02)
 ;;47335-0670-83
 ;;9002226.02101,"1197,47335-0671-13 ",.01)
 ;;47335-0671-13
 ;;9002226.02101,"1197,47335-0671-13 ",.02)
 ;;47335-0671-13
 ;;9002226.02101,"1197,47335-0671-81 ",.01)
 ;;47335-0671-81
 ;;9002226.02101,"1197,47335-0671-81 ",.02)
 ;;47335-0671-81
 ;;9002226.02101,"1197,47335-0671-83 ",.01)
 ;;47335-0671-83
 ;;9002226.02101,"1197,47335-0671-83 ",.02)
 ;;47335-0671-83
 ;;9002226.02101,"1197,47335-0672-13 ",.01)
 ;;47335-0672-13
 ;;9002226.02101,"1197,47335-0672-13 ",.02)
 ;;47335-0672-13
 ;;9002226.02101,"1197,47335-0672-81 ",.01)
 ;;47335-0672-81
 ;;9002226.02101,"1197,47335-0672-81 ",.02)
 ;;47335-0672-81
 ;;9002226.02101,"1197,47335-0672-83 ",.01)
 ;;47335-0672-83
 ;;9002226.02101,"1197,47335-0672-83 ",.02)
 ;;47335-0672-83
 ;;9002226.02101,"1197,47335-0673-13 ",.01)
 ;;47335-0673-13
 ;;9002226.02101,"1197,47335-0673-13 ",.02)
 ;;47335-0673-13
 ;;9002226.02101,"1197,47335-0673-81 ",.01)
 ;;47335-0673-81
 ;;9002226.02101,"1197,47335-0673-81 ",.02)
 ;;47335-0673-81
 ;;9002226.02101,"1197,47335-0673-83 ",.01)
 ;;47335-0673-83
 ;;9002226.02101,"1197,47335-0673-83 ",.02)
 ;;47335-0673-83
 ;;9002226.02101,"1197,47335-0675-13 ",.01)
 ;;47335-0675-13
 ;;9002226.02101,"1197,47335-0675-13 ",.02)
 ;;47335-0675-13
 ;;9002226.02101,"1197,47335-0675-81 ",.01)
 ;;47335-0675-81
 ;;9002226.02101,"1197,47335-0675-81 ",.02)
 ;;47335-0675-81
 ;;9002226.02101,"1197,47335-0676-13 ",.01)
 ;;47335-0676-13
 ;;9002226.02101,"1197,47335-0676-13 ",.02)
 ;;47335-0676-13
 ;;9002226.02101,"1197,47335-0676-81 ",.01)
 ;;47335-0676-81
 ;;9002226.02101,"1197,47335-0676-81 ",.02)
 ;;47335-0676-81
 ;;9002226.02101,"1197,47335-0677-13 ",.01)
 ;;47335-0677-13
 ;;9002226.02101,"1197,47335-0677-13 ",.02)
 ;;47335-0677-13
 ;;9002226.02101,"1197,47335-0677-81 ",.01)
 ;;47335-0677-81
 ;;9002226.02101,"1197,47335-0677-81 ",.02)
 ;;47335-0677-81
 ;;9002226.02101,"1197,47335-0678-13 ",.01)
 ;;47335-0678-13
 ;;9002226.02101,"1197,47335-0678-13 ",.02)
 ;;47335-0678-13
 ;;9002226.02101,"1197,47335-0678-81 ",.01)
 ;;47335-0678-81
 ;;9002226.02101,"1197,47335-0678-81 ",.02)
 ;;47335-0678-81
 ;;9002226.02101,"1197,47335-0679-81 ",.01)
 ;;47335-0679-81
 ;;9002226.02101,"1197,47335-0679-81 ",.02)
 ;;47335-0679-81
 ;;9002226.02101,"1197,47463-0018-30 ",.01)
 ;;47463-0018-30
 ;;9002226.02101,"1197,47463-0018-30 ",.02)
 ;;47463-0018-30
 ;;9002226.02101,"1197,47463-0018-90 ",.01)
 ;;47463-0018-90
 ;;9002226.02101,"1197,47463-0018-90 ",.02)
 ;;47463-0018-90
 ;;9002226.02101,"1197,47463-0019-30 ",.01)
 ;;47463-0019-30
 ;;9002226.02101,"1197,47463-0019-30 ",.02)
 ;;47463-0019-30
 ;;9002226.02101,"1197,47463-0019-90 ",.01)
 ;;47463-0019-90
 ;;9002226.02101,"1197,47463-0019-90 ",.02)
 ;;47463-0019-90
 ;;9002226.02101,"1197,47463-0020-30 ",.01)
 ;;47463-0020-30
 ;;9002226.02101,"1197,47463-0020-30 ",.02)
 ;;47463-0020-30
 ;;9002226.02101,"1197,47463-0021-30 ",.01)
 ;;47463-0021-30
 ;;9002226.02101,"1197,47463-0021-30 ",.02)
 ;;47463-0021-30
 ;;9002226.02101,"1197,47463-0022-30 ",.01)
 ;;47463-0022-30
 ;;9002226.02101,"1197,47463-0022-30 ",.02)
 ;;47463-0022-30
 ;;9002226.02101,"1197,47463-0023-30 ",.01)
 ;;47463-0023-30
 ;;9002226.02101,"1197,47463-0023-30 ",.02)
 ;;47463-0023-30
 ;;9002226.02101,"1197,47463-0024-30 ",.01)
 ;;47463-0024-30
 ;;9002226.02101,"1197,47463-0024-30 ",.02)
 ;;47463-0024-30
 ;;9002226.02101,"1197,47463-0210-30 ",.01)
 ;;47463-0210-30
 ;;9002226.02101,"1197,47463-0210-30 ",.02)
 ;;47463-0210-30
 ;;9002226.02101,"1197,47463-0211-30 ",.01)
 ;;47463-0211-30
 ;;9002226.02101,"1197,47463-0211-30 ",.02)
 ;;47463-0211-30
 ;;9002226.02101,"1197,47463-0212-30 ",.01)
 ;;47463-0212-30
 ;;9002226.02101,"1197,47463-0212-30 ",.02)
 ;;47463-0212-30
 ;;9002226.02101,"1197,47463-0213-30 ",.01)
 ;;47463-0213-30
 ;;9002226.02101,"1197,47463-0213-30 ",.02)
 ;;47463-0213-30
 ;;9002226.02101,"1197,47463-0542-30 ",.01)
 ;;47463-0542-30
 ;;9002226.02101,"1197,47463-0542-30 ",.02)
 ;;47463-0542-30
 ;;9002226.02101,"1197,47463-0543-30 ",.01)
 ;;47463-0543-30
 ;;9002226.02101,"1197,47463-0543-30 ",.02)
 ;;47463-0543-30
 ;;9002226.02101,"1197,47463-0544-30 ",.01)
 ;;47463-0544-30
 ;;9002226.02101,"1197,47463-0544-30 ",.02)
 ;;47463-0544-30
 ;;9002226.02101,"1197,47463-0819-30 ",.01)
 ;;47463-0819-30
 ;;9002226.02101,"1197,47463-0819-30 ",.02)
 ;;47463-0819-30
 ;;9002226.02101,"1197,47463-0820-30 ",.01)
 ;;47463-0820-30
 ;;9002226.02101,"1197,47463-0820-30 ",.02)
 ;;47463-0820-30
 ;;9002226.02101,"1197,47781-0368-01 ",.01)
 ;;47781-0368-01
 ;;9002226.02101,"1197,47781-0368-01 ",.02)
 ;;47781-0368-01
 ;;9002226.02101,"1197,47781-0369-01 ",.01)
 ;;47781-0369-01
 ;;9002226.02101,"1197,47781-0369-01 ",.02)
 ;;47781-0369-01
 ;;9002226.02101,"1197,47781-0370-01 ",.01)
 ;;47781-0370-01
 ;;9002226.02101,"1197,47781-0370-01 ",.02)
 ;;47781-0370-01
 ;;9002226.02101,"1197,49884-0677-01 ",.01)
 ;;49884-0677-01
 ;;9002226.02101,"1197,49884-0677-01 ",.02)
 ;;49884-0677-01
 ;;9002226.02101,"1197,49884-0677-05 ",.01)
 ;;49884-0677-05
 ;;9002226.02101,"1197,49884-0677-05 ",.02)
 ;;49884-0677-05
 ;;9002226.02101,"1197,49884-0678-01 ",.01)
 ;;49884-0678-01
 ;;9002226.02101,"1197,49884-0678-01 ",.02)
 ;;49884-0678-01
 ;;9002226.02101,"1197,49884-0678-05 ",.01)
 ;;49884-0678-05
 ;;9002226.02101,"1197,49884-0678-05 ",.02)
 ;;49884-0678-05
 ;;9002226.02101,"1197,49884-0679-01 ",.01)
 ;;49884-0679-01
 ;;9002226.02101,"1197,49884-0679-01 ",.02)
 ;;49884-0679-01
 ;;9002226.02101,"1197,49884-0829-05 ",.01)
 ;;49884-0829-05
 ;;9002226.02101,"1197,49884-0829-05 ",.02)
 ;;49884-0829-05
 ;;9002226.02101,"1197,49884-0829-09 ",.01)
 ;;49884-0829-09
 ;;9002226.02101,"1197,49884-0829-09 ",.02)
 ;;49884-0829-09
 ;;9002226.02101,"1197,49884-0829-11 ",.01)
 ;;49884-0829-11
 ;;9002226.02101,"1197,49884-0829-11 ",.02)
 ;;49884-0829-11
 ;;9002226.02101,"1197,49884-0830-05 ",.01)
 ;;49884-0830-05
 ;;9002226.02101,"1197,49884-0830-05 ",.02)
 ;;49884-0830-05
 ;;9002226.02101,"1197,49884-0830-09 ",.01)
 ;;49884-0830-09
 ;;9002226.02101,"1197,49884-0830-09 ",.02)
 ;;49884-0830-09
 ;;9002226.02101,"1197,49884-0830-11 ",.01)
 ;;49884-0830-11
 ;;9002226.02101,"1197,49884-0830-11 ",.02)
 ;;49884-0830-11
 ;;9002226.02101,"1197,49884-0831-05 ",.01)
 ;;49884-0831-05
 ;;9002226.02101,"1197,49884-0831-05 ",.02)
 ;;49884-0831-05
 ;;9002226.02101,"1197,49884-0831-09 ",.01)
 ;;49884-0831-09
 ;;9002226.02101,"1197,49884-0831-09 ",.02)
 ;;49884-0831-09
 ;;9002226.02101,"1197,49884-0831-11 ",.01)
 ;;49884-0831-11
 ;;9002226.02101,"1197,49884-0831-11 ",.02)
 ;;49884-0831-11
 ;;9002226.02101,"1197,49884-0832-05 ",.01)
 ;;49884-0832-05
 ;;9002226.02101,"1197,49884-0832-05 ",.02)
 ;;49884-0832-05
 ;;9002226.02101,"1197,49884-0832-09 ",.01)
 ;;49884-0832-09
 ;;9002226.02101,"1197,49884-0832-09 ",.02)
 ;;49884-0832-09
 ;;9002226.02101,"1197,49884-0832-11 ",.01)
 ;;49884-0832-11
 ;;9002226.02101,"1197,49884-0832-11 ",.02)
 ;;49884-0832-11
 ;;9002226.02101,"1197,49884-0929-01 ",.01)
 ;;49884-0929-01
 ;;9002226.02101,"1197,49884-0929-01 ",.02)
 ;;49884-0929-01
 ;;9002226.02101,"1197,49884-0929-05 ",.01)
 ;;49884-0929-05
 ;;9002226.02101,"1197,49884-0929-05 ",.02)
 ;;49884-0929-05
 ;;9002226.02101,"1197,49884-0930-01 ",.01)
 ;;49884-0930-01
 ;;9002226.02101,"1197,49884-0930-01 ",.02)
 ;;49884-0930-01
 ;;9002226.02101,"1197,49884-0930-05 ",.01)
 ;;49884-0930-05
 ;;9002226.02101,"1197,49884-0930-05 ",.02)
 ;;49884-0930-05
 ;;9002226.02101,"1197,49884-0931-01 ",.01)
 ;;49884-0931-01
 ;;9002226.02101,"1197,49884-0931-01 ",.02)
 ;;49884-0931-01
 ;;9002226.02101,"1197,49884-0931-05 ",.01)
 ;;49884-0931-05
 ;;9002226.02101,"1197,49884-0931-05 ",.02)
 ;;49884-0931-05
 ;;9002226.02101,"1197,49884-0932-01 ",.01)
 ;;49884-0932-01
 ;;9002226.02101,"1197,49884-0932-01 ",.02)
 ;;49884-0932-01
 ;;9002226.02101,"1197,49884-0932-05 ",.01)
 ;;49884-0932-05