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

BGP51S8.m

Go to the documentation of this file.
BGP51S8 ;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,"1198,42291-0612-10 ",.01)
 ;;42291-0612-10
 ;;9002226.02101,"1198,42291-0612-10 ",.02)
 ;;42291-0612-10
 ;;9002226.02101,"1198,42291-0612-12 ",.01)
 ;;42291-0612-12
 ;;9002226.02101,"1198,42291-0612-12 ",.02)
 ;;42291-0612-12
 ;;9002226.02101,"1198,42291-0612-18 ",.01)
 ;;42291-0612-18
 ;;9002226.02101,"1198,42291-0612-18 ",.02)
 ;;42291-0612-18
 ;;9002226.02101,"1198,42291-0612-27 ",.01)
 ;;42291-0612-27
 ;;9002226.02101,"1198,42291-0612-27 ",.02)
 ;;42291-0612-27
 ;;9002226.02101,"1198,42291-0612-36 ",.01)
 ;;42291-0612-36
 ;;9002226.02101,"1198,42291-0612-36 ",.02)
 ;;42291-0612-36
 ;;9002226.02101,"1198,42291-0612-45 ",.01)
 ;;42291-0612-45
 ;;9002226.02101,"1198,42291-0612-45 ",.02)
 ;;42291-0612-45
 ;;9002226.02101,"1198,42291-0612-60 ",.01)
 ;;42291-0612-60
 ;;9002226.02101,"1198,42291-0612-60 ",.02)
 ;;42291-0612-60
 ;;9002226.02101,"1198,42291-0612-90 ",.01)
 ;;42291-0612-90
 ;;9002226.02101,"1198,42291-0612-90 ",.02)
 ;;42291-0612-90
 ;;9002226.02101,"1198,42291-0613-10 ",.01)
 ;;42291-0613-10
 ;;9002226.02101,"1198,42291-0613-10 ",.02)
 ;;42291-0613-10
 ;;9002226.02101,"1198,42291-0613-18 ",.01)
 ;;42291-0613-18
 ;;9002226.02101,"1198,42291-0613-18 ",.02)
 ;;42291-0613-18
 ;;9002226.02101,"1198,42291-0613-27 ",.01)
 ;;42291-0613-27
 ;;9002226.02101,"1198,42291-0613-27 ",.02)
 ;;42291-0613-27
 ;;9002226.02101,"1198,42291-0613-90 ",.01)
 ;;42291-0613-90
 ;;9002226.02101,"1198,42291-0613-90 ",.02)
 ;;42291-0613-90
 ;;9002226.02101,"1198,42291-0614-10 ",.01)
 ;;42291-0614-10
 ;;9002226.02101,"1198,42291-0614-10 ",.02)
 ;;42291-0614-10
 ;;9002226.02101,"1198,42291-0614-18 ",.01)
 ;;42291-0614-18
 ;;9002226.02101,"1198,42291-0614-18 ",.02)
 ;;42291-0614-18
 ;;9002226.02101,"1198,42291-0614-60 ",.01)
 ;;42291-0614-60
 ;;9002226.02101,"1198,42291-0614-60 ",.02)
 ;;42291-0614-60
 ;;9002226.02101,"1198,42291-0614-90 ",.01)
 ;;42291-0614-90
 ;;9002226.02101,"1198,42291-0614-90 ",.02)
 ;;42291-0614-90
 ;;9002226.02101,"1198,42291-0693-60 ",.01)
 ;;42291-0693-60
 ;;9002226.02101,"1198,42291-0693-60 ",.02)
 ;;42291-0693-60
 ;;9002226.02101,"1198,42291-0694-60 ",.01)
 ;;42291-0694-60
 ;;9002226.02101,"1198,42291-0694-60 ",.02)
 ;;42291-0694-60
 ;;9002226.02101,"1198,43063-0012-01 ",.01)
 ;;43063-0012-01
 ;;9002226.02101,"1198,43063-0012-01 ",.02)
 ;;43063-0012-01
 ;;9002226.02101,"1198,43063-0012-60 ",.01)
 ;;43063-0012-60
 ;;9002226.02101,"1198,43063-0012-60 ",.02)
 ;;43063-0012-60
 ;;9002226.02101,"1198,43063-0012-86 ",.01)
 ;;43063-0012-86
 ;;9002226.02101,"1198,43063-0012-86 ",.02)
 ;;43063-0012-86
 ;;9002226.02101,"1198,43063-0012-90 ",.01)
 ;;43063-0012-90
 ;;9002226.02101,"1198,43063-0012-90 ",.02)
 ;;43063-0012-90
 ;;9002226.02101,"1198,43063-0012-93 ",.01)
 ;;43063-0012-93
 ;;9002226.02101,"1198,43063-0012-93 ",.02)
 ;;43063-0012-93
 ;;9002226.02101,"1198,43063-0012-94 ",.01)
 ;;43063-0012-94
 ;;9002226.02101,"1198,43063-0012-94 ",.02)
 ;;43063-0012-94
 ;;9002226.02101,"1198,43063-0372-30 ",.01)
 ;;43063-0372-30
 ;;9002226.02101,"1198,43063-0372-30 ",.02)
 ;;43063-0372-30
 ;;9002226.02101,"1198,43063-0397-86 ",.01)
 ;;43063-0397-86
 ;;9002226.02101,"1198,43063-0397-86 ",.02)
 ;;43063-0397-86
 ;;9002226.02101,"1198,43063-0428-30 ",.01)
 ;;43063-0428-30
 ;;9002226.02101,"1198,43063-0428-30 ",.02)
 ;;43063-0428-30
 ;;9002226.02101,"1198,43063-0428-90 ",.01)
 ;;43063-0428-90
 ;;9002226.02101,"1198,43063-0428-90 ",.02)
 ;;43063-0428-90
 ;;9002226.02101,"1198,43063-0428-93 ",.01)
 ;;43063-0428-93
 ;;9002226.02101,"1198,43063-0428-93 ",.02)
 ;;43063-0428-93
 ;;9002226.02101,"1198,43063-0428-94 ",.01)
 ;;43063-0428-94
 ;;9002226.02101,"1198,43063-0428-94 ",.02)
 ;;43063-0428-94
 ;;9002226.02101,"1198,43063-0429-93 ",.01)
 ;;43063-0429-93
 ;;9002226.02101,"1198,43063-0429-93 ",.02)
 ;;43063-0429-93
 ;;9002226.02101,"1198,43063-0429-94 ",.01)
 ;;43063-0429-94
 ;;9002226.02101,"1198,43063-0429-94 ",.02)
 ;;43063-0429-94
 ;;9002226.02101,"1198,43063-0430-30 ",.01)
 ;;43063-0430-30
 ;;9002226.02101,"1198,43063-0430-30 ",.02)
 ;;43063-0430-30
 ;;9002226.02101,"1198,43063-0430-60 ",.01)
 ;;43063-0430-60
 ;;9002226.02101,"1198,43063-0430-60 ",.02)
 ;;43063-0430-60
 ;;9002226.02101,"1198,43063-0430-90 ",.01)
 ;;43063-0430-90
 ;;9002226.02101,"1198,43063-0430-90 ",.02)
 ;;43063-0430-90
 ;;9002226.02101,"1198,43063-0430-93 ",.01)
 ;;43063-0430-93
 ;;9002226.02101,"1198,43063-0430-93 ",.02)
 ;;43063-0430-93
 ;;9002226.02101,"1198,43063-0430-94 ",.01)
 ;;43063-0430-94
 ;;9002226.02101,"1198,43063-0430-94 ",.02)
 ;;43063-0430-94
 ;;9002226.02101,"1198,43063-0430-98 ",.01)
 ;;43063-0430-98
 ;;9002226.02101,"1198,43063-0430-98 ",.02)
 ;;43063-0430-98
 ;;9002226.02101,"1198,43063-0507-30 ",.01)
 ;;43063-0507-30
 ;;9002226.02101,"1198,43063-0507-30 ",.02)
 ;;43063-0507-30
 ;;9002226.02101,"1198,43063-0507-60 ",.01)
 ;;43063-0507-60
 ;;9002226.02101,"1198,43063-0507-60 ",.02)
 ;;43063-0507-60
 ;;9002226.02101,"1198,43063-0507-90 ",.01)
 ;;43063-0507-90
 ;;9002226.02101,"1198,43063-0507-90 ",.02)
 ;;43063-0507-90
 ;;9002226.02101,"1198,43353-0340-30 ",.01)
 ;;43353-0340-30
 ;;9002226.02101,"1198,43353-0340-30 ",.02)
 ;;43353-0340-30
 ;;9002226.02101,"1198,43353-0340-53 ",.01)
 ;;43353-0340-53
 ;;9002226.02101,"1198,43353-0340-53 ",.02)
 ;;43353-0340-53
 ;;9002226.02101,"1198,43353-0340-60 ",.01)
 ;;43353-0340-60
 ;;9002226.02101,"1198,43353-0340-60 ",.02)
 ;;43353-0340-60
 ;;9002226.02101,"1198,43353-0340-70 ",.01)
 ;;43353-0340-70
 ;;9002226.02101,"1198,43353-0340-70 ",.02)
 ;;43353-0340-70
 ;;9002226.02101,"1198,43353-0340-75 ",.01)
 ;;43353-0340-75
 ;;9002226.02101,"1198,43353-0340-75 ",.02)
 ;;43353-0340-75
 ;;9002226.02101,"1198,43353-0340-80 ",.01)
 ;;43353-0340-80
 ;;9002226.02101,"1198,43353-0340-80 ",.02)
 ;;43353-0340-80
 ;;9002226.02101,"1198,43353-0340-92 ",.01)
 ;;43353-0340-92
 ;;9002226.02101,"1198,43353-0340-92 ",.02)
 ;;43353-0340-92
 ;;9002226.02101,"1198,43353-0340-94 ",.01)
 ;;43353-0340-94
 ;;9002226.02101,"1198,43353-0340-94 ",.02)
 ;;43353-0340-94
 ;;9002226.02101,"1198,43353-0340-96 ",.01)
 ;;43353-0340-96
 ;;9002226.02101,"1198,43353-0340-96 ",.02)
 ;;43353-0340-96
 ;;9002226.02101,"1198,43353-0344-53 ",.01)
 ;;43353-0344-53
 ;;9002226.02101,"1198,43353-0344-53 ",.02)
 ;;43353-0344-53
 ;;9002226.02101,"1198,43353-0344-60 ",.01)
 ;;43353-0344-60
 ;;9002226.02101,"1198,43353-0344-60 ",.02)
 ;;43353-0344-60
 ;;9002226.02101,"1198,43353-0344-80 ",.01)
 ;;43353-0344-80
 ;;9002226.02101,"1198,43353-0344-80 ",.02)
 ;;43353-0344-80
 ;;9002226.02101,"1198,43353-0344-92 ",.01)
 ;;43353-0344-92
 ;;9002226.02101,"1198,43353-0344-92 ",.02)
 ;;43353-0344-92
 ;;9002226.02101,"1198,43353-0349-30 ",.01)
 ;;43353-0349-30
 ;;9002226.02101,"1198,43353-0349-30 ",.02)
 ;;43353-0349-30
 ;;9002226.02101,"1198,43353-0349-45 ",.01)
 ;;43353-0349-45
 ;;9002226.02101,"1198,43353-0349-45 ",.02)
 ;;43353-0349-45
 ;;9002226.02101,"1198,43353-0349-53 ",.01)
 ;;43353-0349-53
 ;;9002226.02101,"1198,43353-0349-53 ",.02)
 ;;43353-0349-53
 ;;9002226.02101,"1198,43353-0349-60 ",.01)
 ;;43353-0349-60
 ;;9002226.02101,"1198,43353-0349-60 ",.02)
 ;;43353-0349-60
 ;;9002226.02101,"1198,43353-0349-73 ",.01)
 ;;43353-0349-73
 ;;9002226.02101,"1198,43353-0349-73 ",.02)
 ;;43353-0349-73
 ;;9002226.02101,"1198,43353-0349-80 ",.01)
 ;;43353-0349-80
 ;;9002226.02101,"1198,43353-0349-80 ",.02)
 ;;43353-0349-80
 ;;9002226.02101,"1198,43353-0349-86 ",.01)
 ;;43353-0349-86
 ;;9002226.02101,"1198,43353-0349-86 ",.02)
 ;;43353-0349-86
 ;;9002226.02101,"1198,43353-0477-30 ",.01)
 ;;43353-0477-30
 ;;9002226.02101,"1198,43353-0477-30 ",.02)
 ;;43353-0477-30
 ;;9002226.02101,"1198,43353-0477-53 ",.01)
 ;;43353-0477-53
 ;;9002226.02101,"1198,43353-0477-53 ",.02)
 ;;43353-0477-53
 ;;9002226.02101,"1198,43353-0477-60 ",.01)
 ;;43353-0477-60
 ;;9002226.02101,"1198,43353-0477-60 ",.02)
 ;;43353-0477-60
 ;;9002226.02101,"1198,43353-0477-70 ",.01)
 ;;43353-0477-70
 ;;9002226.02101,"1198,43353-0477-70 ",.02)
 ;;43353-0477-70
 ;;9002226.02101,"1198,43353-0477-80 ",.01)
 ;;43353-0477-80
 ;;9002226.02101,"1198,43353-0477-80 ",.02)
 ;;43353-0477-80
 ;;9002226.02101,"1198,43353-0477-92 ",.01)
 ;;43353-0477-92
 ;;9002226.02101,"1198,43353-0477-92 ",.02)
 ;;43353-0477-92
 ;;9002226.02101,"1198,43353-0477-94 ",.01)
 ;;43353-0477-94
 ;;9002226.02101,"1198,43353-0477-94 ",.02)
 ;;43353-0477-94
 ;;9002226.02101,"1198,43353-0477-96 ",.01)
 ;;43353-0477-96
 ;;9002226.02101,"1198,43353-0477-96 ",.02)
 ;;43353-0477-96
 ;;9002226.02101,"1198,43353-0514-30 ",.01)
 ;;43353-0514-30
 ;;9002226.02101,"1198,43353-0514-30 ",.02)
 ;;43353-0514-30
 ;;9002226.02101,"1198,43353-0514-45 ",.01)
 ;;43353-0514-45
 ;;9002226.02101,"1198,43353-0514-45 ",.02)
 ;;43353-0514-45
 ;;9002226.02101,"1198,43353-0514-53 ",.01)
 ;;43353-0514-53
 ;;9002226.02101,"1198,43353-0514-53 ",.02)
 ;;43353-0514-53
 ;;9002226.02101,"1198,43353-0514-60 ",.01)
 ;;43353-0514-60
 ;;9002226.02101,"1198,43353-0514-60 ",.02)
 ;;43353-0514-60
 ;;9002226.02101,"1198,43353-0514-73 ",.01)
 ;;43353-0514-73
 ;;9002226.02101,"1198,43353-0514-73 ",.02)
 ;;43353-0514-73
 ;;9002226.02101,"1198,43353-0514-80 ",.01)
 ;;43353-0514-80
 ;;9002226.02101,"1198,43353-0514-80 ",.02)
 ;;43353-0514-80
 ;;9002226.02101,"1198,43353-0514-86 ",.01)
 ;;43353-0514-86
 ;;9002226.02101,"1198,43353-0514-86 ",.02)
 ;;43353-0514-86
 ;;9002226.02101,"1198,43353-0520-60 ",.01)
 ;;43353-0520-60
 ;;9002226.02101,"1198,43353-0520-60 ",.02)
 ;;43353-0520-60
 ;;9002226.02101,"1198,43353-0520-80 ",.01)
 ;;43353-0520-80
 ;;9002226.02101,"1198,43353-0520-80 ",.02)
 ;;43353-0520-80
 ;;9002226.02101,"1198,43353-0530-60 ",.01)
 ;;43353-0530-60
 ;;9002226.02101,"1198,43353-0530-60 ",.02)
 ;;43353-0530-60
 ;;9002226.02101,"1198,43353-0530-80 ",.01)
 ;;43353-0530-80
 ;;9002226.02101,"1198,43353-0530-80 ",.02)
 ;;43353-0530-80
 ;;9002226.02101,"1198,43353-0585-94 ",.01)
 ;;43353-0585-94
 ;;9002226.02101,"1198,43353-0585-94 ",.02)
 ;;43353-0585-94
 ;;9002226.02101,"1198,43353-0589-30 ",.01)
 ;;43353-0589-30
 ;;9002226.02101,"1198,43353-0589-30 ",.02)
 ;;43353-0589-30
 ;;9002226.02101,"1198,43353-0589-53 ",.01)
 ;;43353-0589-53
 ;;9002226.02101,"1198,43353-0589-53 ",.02)
 ;;43353-0589-53
 ;;9002226.02101,"1198,43353-0589-60 ",.01)
 ;;43353-0589-60
 ;;9002226.02101,"1198,43353-0589-60 ",.02)
 ;;43353-0589-60
 ;;9002226.02101,"1198,43353-0589-70 ",.01)
 ;;43353-0589-70
 ;;9002226.02101,"1198,43353-0589-70 ",.02)
 ;;43353-0589-70
 ;;9002226.02101,"1198,43353-0589-75 ",.01)
 ;;43353-0589-75
 ;;9002226.02101,"1198,43353-0589-75 ",.02)
 ;;43353-0589-75
 ;;9002226.02101,"1198,43353-0589-80 ",.01)
 ;;43353-0589-80
 ;;9002226.02101,"1198,43353-0589-80 ",.02)
 ;;43353-0589-80
 ;;9002226.02101,"1198,43353-0589-92 ",.01)
 ;;43353-0589-92
 ;;9002226.02101,"1198,43353-0589-92 ",.02)
 ;;43353-0589-92
 ;;9002226.02101,"1198,43353-0589-94 ",.01)
 ;;43353-0589-94
 ;;9002226.02101,"1198,43353-0589-94 ",.02)
 ;;43353-0589-94
 ;;9002226.02101,"1198,43353-0589-96 ",.01)
 ;;43353-0589-96
 ;;9002226.02101,"1198,43353-0589-96 ",.02)
 ;;43353-0589-96
 ;;9002226.02101,"1198,43353-0811-53 ",.01)
 ;;43353-0811-53
 ;;9002226.02101,"1198,43353-0811-53 ",.02)
 ;;43353-0811-53
 ;;9002226.02101,"1198,43353-0842-30 ",.01)
 ;;43353-0842-30
 ;;9002226.02101,"1198,43353-0842-30 ",.02)
 ;;43353-0842-30
 ;;9002226.02101,"1198,43547-0248-10 ",.01)
 ;;43547-0248-10
 ;;9002226.02101,"1198,43547-0248-10 ",.02)
 ;;43547-0248-10
 ;;9002226.02101,"1198,43547-0248-11 ",.01)
 ;;43547-0248-11
 ;;9002226.02101,"1198,43547-0248-11 ",.02)
 ;;43547-0248-11
 ;;9002226.02101,"1198,43547-0248-50 ",.01)
 ;;43547-0248-50
 ;;9002226.02101,"1198,43547-0248-50 ",.02)
 ;;43547-0248-50
 ;;9002226.02101,"1198,43547-0249-10 ",.01)
 ;;43547-0249-10
 ;;9002226.02101,"1198,43547-0249-10 ",.02)
 ;;43547-0249-10
 ;;9002226.02101,"1198,43547-0249-11 ",.01)
 ;;43547-0249-11
 ;;9002226.02101,"1198,43547-0249-11 ",.02)
 ;;43547-0249-11
 ;;9002226.02101,"1198,43547-0249-50 ",.01)
 ;;43547-0249-50
 ;;9002226.02101,"1198,43547-0249-50 ",.02)
 ;;43547-0249-50
 ;;9002226.02101,"1198,43547-0250-10 ",.01)
 ;;43547-0250-10
 ;;9002226.02101,"1198,43547-0250-10 ",.02)
 ;;43547-0250-10
 ;;9002226.02101,"1198,43547-0250-11 ",.01)
 ;;43547-0250-11
 ;;9002226.02101,"1198,43547-0250-11 ",.02)
 ;;43547-0250-11
 ;;9002226.02101,"1198,43547-0250-50 ",.01)
 ;;43547-0250-50
 ;;9002226.02101,"1198,43547-0250-50 ",.02)
 ;;43547-0250-50
 ;;9002226.02101,"1198,43547-0320-10 ",.01)
 ;;43547-0320-10
 ;;9002226.02101,"1198,43547-0320-10 ",.02)
 ;;43547-0320-10
 ;;9002226.02101,"1198,43547-0320-11 ",.01)
 ;;43547-0320-11
 ;;9002226.02101,"1198,43547-0320-11 ",.02)
 ;;43547-0320-11
 ;;9002226.02101,"1198,43547-0320-50 ",.01)
 ;;43547-0320-50
 ;;9002226.02101,"1198,43547-0320-50 ",.02)
 ;;43547-0320-50
 ;;9002226.02101,"1198,43547-0321-10 ",.01)
 ;;43547-0321-10
 ;;9002226.02101,"1198,43547-0321-10 ",.02)
 ;;43547-0321-10
 ;;9002226.02101,"1198,43547-0321-50 ",.01)
 ;;43547-0321-50
 ;;9002226.02101,"1198,43547-0321-50 ",.02)
 ;;43547-0321-50
 ;;9002226.02101,"1198,43547-0322-10 ",.01)
 ;;43547-0322-10
 ;;9002226.02101,"1198,43547-0322-10 ",.02)
 ;;43547-0322-10
 ;;9002226.02101,"1198,43547-0322-50 ",.01)
 ;;43547-0322-50
 ;;9002226.02101,"1198,43547-0322-50 ",.02)
 ;;43547-0322-50
 ;;9002226.02101,"1198,43683-0131-30 ",.01)
 ;;43683-0131-30
 ;;9002226.02101,"1198,43683-0131-30 ",.02)
 ;;43683-0131-30
 ;;9002226.02101,"1198,43683-0131-60 ",.01)
 ;;43683-0131-60