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

BGP51P28.m

Go to the documentation of this file.
BGP51P28 ;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,"1195,67544-0911-45 ",.01)
 ;;67544-0911-45
 ;;9002226.02101,"1195,67544-0911-45 ",.02)
 ;;67544-0911-45
 ;;9002226.02101,"1195,67544-0911-53 ",.01)
 ;;67544-0911-53
 ;;9002226.02101,"1195,67544-0911-53 ",.02)
 ;;67544-0911-53
 ;;9002226.02101,"1195,67544-0911-60 ",.01)
 ;;67544-0911-60
 ;;9002226.02101,"1195,67544-0911-60 ",.02)
 ;;67544-0911-60
 ;;9002226.02101,"1195,67544-0911-70 ",.01)
 ;;67544-0911-70
 ;;9002226.02101,"1195,67544-0911-70 ",.02)
 ;;67544-0911-70
 ;;9002226.02101,"1195,67544-0911-73 ",.01)
 ;;67544-0911-73
 ;;9002226.02101,"1195,67544-0911-73 ",.02)
 ;;67544-0911-73
 ;;9002226.02101,"1195,67544-0911-80 ",.01)
 ;;67544-0911-80
 ;;9002226.02101,"1195,67544-0911-80 ",.02)
 ;;67544-0911-80
 ;;9002226.02101,"1195,67544-0911-92 ",.01)
 ;;67544-0911-92
 ;;9002226.02101,"1195,67544-0911-92 ",.02)
 ;;67544-0911-92
 ;;9002226.02101,"1195,67544-0911-94 ",.01)
 ;;67544-0911-94
 ;;9002226.02101,"1195,67544-0911-94 ",.02)
 ;;67544-0911-94
 ;;9002226.02101,"1195,67544-0911-98 ",.01)
 ;;67544-0911-98
 ;;9002226.02101,"1195,67544-0911-98 ",.02)
 ;;67544-0911-98
 ;;9002226.02101,"1195,67544-0929-60 ",.01)
 ;;67544-0929-60
 ;;9002226.02101,"1195,67544-0929-60 ",.02)
 ;;67544-0929-60
 ;;9002226.02101,"1195,67544-1055-30 ",.01)
 ;;67544-1055-30
 ;;9002226.02101,"1195,67544-1055-30 ",.02)
 ;;67544-1055-30
 ;;9002226.02101,"1195,67544-1123-53 ",.01)
 ;;67544-1123-53
 ;;9002226.02101,"1195,67544-1123-53 ",.02)
 ;;67544-1123-53
 ;;9002226.02101,"1195,67544-1135-30 ",.01)
 ;;67544-1135-30
 ;;9002226.02101,"1195,67544-1135-30 ",.02)
 ;;67544-1135-30
 ;;9002226.02101,"1195,67544-1135-53 ",.01)
 ;;67544-1135-53
 ;;9002226.02101,"1195,67544-1135-53 ",.02)
 ;;67544-1135-53
 ;;9002226.02101,"1195,67544-1135-60 ",.01)
 ;;67544-1135-60
 ;;9002226.02101,"1195,67544-1135-60 ",.02)
 ;;67544-1135-60
 ;;9002226.02101,"1195,67544-1143-53 ",.01)
 ;;67544-1143-53
 ;;9002226.02101,"1195,67544-1143-53 ",.02)
 ;;67544-1143-53
 ;;9002226.02101,"1195,67544-1143-60 ",.01)
 ;;67544-1143-60
 ;;9002226.02101,"1195,67544-1143-60 ",.02)
 ;;67544-1143-60
 ;;9002226.02101,"1195,67544-1143-80 ",.01)
 ;;67544-1143-80
 ;;9002226.02101,"1195,67544-1143-80 ",.02)
 ;;67544-1143-80
 ;;9002226.02101,"1195,67544-1145-53 ",.01)
 ;;67544-1145-53
 ;;9002226.02101,"1195,67544-1145-53 ",.02)
 ;;67544-1145-53
 ;;9002226.02101,"1195,67544-1145-60 ",.01)
 ;;67544-1145-60
 ;;9002226.02101,"1195,67544-1145-60 ",.02)
 ;;67544-1145-60
 ;;9002226.02101,"1195,67544-1146-30 ",.01)
 ;;67544-1146-30
 ;;9002226.02101,"1195,67544-1146-30 ",.02)
 ;;67544-1146-30
 ;;9002226.02101,"1195,67544-1146-60 ",.01)
 ;;67544-1146-60
 ;;9002226.02101,"1195,67544-1146-60 ",.02)
 ;;67544-1146-60
 ;;9002226.02101,"1195,67544-1159-30 ",.01)
 ;;67544-1159-30
 ;;9002226.02101,"1195,67544-1159-30 ",.02)
 ;;67544-1159-30
 ;;9002226.02101,"1195,67544-1159-53 ",.01)
 ;;67544-1159-53
 ;;9002226.02101,"1195,67544-1159-53 ",.02)
 ;;67544-1159-53
 ;;9002226.02101,"1195,67544-1159-60 ",.01)
 ;;67544-1159-60
 ;;9002226.02101,"1195,67544-1159-60 ",.02)
 ;;67544-1159-60
 ;;9002226.02101,"1195,67544-1159-80 ",.01)
 ;;67544-1159-80
 ;;9002226.02101,"1195,67544-1159-80 ",.02)
 ;;67544-1159-80
 ;;9002226.02101,"1195,67544-1160-82 ",.01)
 ;;67544-1160-82
 ;;9002226.02101,"1195,67544-1160-82 ",.02)
 ;;67544-1160-82
 ;;9002226.02101,"1195,67544-1182-53 ",.01)
 ;;67544-1182-53
 ;;9002226.02101,"1195,67544-1182-53 ",.02)
 ;;67544-1182-53
 ;;9002226.02101,"1195,67544-1182-80 ",.01)
 ;;67544-1182-80
 ;;9002226.02101,"1195,67544-1182-80 ",.02)
 ;;67544-1182-80
 ;;9002226.02101,"1195,67544-1187-30 ",.01)
 ;;67544-1187-30
 ;;9002226.02101,"1195,67544-1187-30 ",.02)
 ;;67544-1187-30
 ;;9002226.02101,"1195,67544-1187-53 ",.01)
 ;;67544-1187-53
 ;;9002226.02101,"1195,67544-1187-53 ",.02)
 ;;67544-1187-53
 ;;9002226.02101,"1195,67544-1187-60 ",.01)
 ;;67544-1187-60
 ;;9002226.02101,"1195,67544-1187-60 ",.02)
 ;;67544-1187-60
 ;;9002226.02101,"1195,67544-1199-99 ",.01)
 ;;67544-1199-99
 ;;9002226.02101,"1195,67544-1199-99 ",.02)
 ;;67544-1199-99
 ;;9002226.02101,"1195,67857-0700-01 ",.01)
 ;;67857-0700-01
 ;;9002226.02101,"1195,67857-0700-01 ",.02)
 ;;67857-0700-01
 ;;9002226.02101,"1195,67857-0701-01 ",.01)
 ;;67857-0701-01
 ;;9002226.02101,"1195,67857-0701-01 ",.02)
 ;;67857-0701-01
 ;;9002226.02101,"1195,68001-0119-00 ",.01)
 ;;68001-0119-00
 ;;9002226.02101,"1195,68001-0119-00 ",.02)
 ;;68001-0119-00
 ;;9002226.02101,"1195,68001-0119-03 ",.01)
 ;;68001-0119-03
 ;;9002226.02101,"1195,68001-0119-03 ",.02)
 ;;68001-0119-03
 ;;9002226.02101,"1195,68001-0120-00 ",.01)
 ;;68001-0120-00
 ;;9002226.02101,"1195,68001-0120-00 ",.02)
 ;;68001-0120-00
 ;;9002226.02101,"1195,68001-0120-03 ",.01)
 ;;68001-0120-03
 ;;9002226.02101,"1195,68001-0120-03 ",.02)
 ;;68001-0120-03
 ;;9002226.02101,"1195,68001-0121-00 ",.01)
 ;;68001-0121-00
 ;;9002226.02101,"1195,68001-0121-00 ",.02)
 ;;68001-0121-00
 ;;9002226.02101,"1195,68001-0121-03 ",.01)
 ;;68001-0121-03
 ;;9002226.02101,"1195,68001-0121-03 ",.02)
 ;;68001-0121-03
 ;;9002226.02101,"1195,68001-0122-00 ",.01)
 ;;68001-0122-00
 ;;9002226.02101,"1195,68001-0122-00 ",.02)
 ;;68001-0122-00
 ;;9002226.02101,"1195,68001-0122-03 ",.01)
 ;;68001-0122-03
 ;;9002226.02101,"1195,68001-0122-03 ",.02)
 ;;68001-0122-03
 ;;9002226.02101,"1195,68001-0151-00 ",.01)
 ;;68001-0151-00
 ;;9002226.02101,"1195,68001-0151-00 ",.02)
 ;;68001-0151-00
 ;;9002226.02101,"1195,68001-0151-03 ",.01)
 ;;68001-0151-03
 ;;9002226.02101,"1195,68001-0151-03 ",.02)
 ;;68001-0151-03
 ;;9002226.02101,"1195,68001-0152-00 ",.01)
 ;;68001-0152-00
 ;;9002226.02101,"1195,68001-0152-00 ",.02)
 ;;68001-0152-00
 ;;9002226.02101,"1195,68001-0152-03 ",.01)
 ;;68001-0152-03
 ;;9002226.02101,"1195,68001-0152-03 ",.02)
 ;;68001-0152-03
 ;;9002226.02101,"1195,68001-0153-00 ",.01)
 ;;68001-0153-00
 ;;9002226.02101,"1195,68001-0153-00 ",.02)
 ;;68001-0153-00
 ;;9002226.02101,"1195,68001-0153-03 ",.01)
 ;;68001-0153-03
 ;;9002226.02101,"1195,68001-0153-03 ",.02)
 ;;68001-0153-03
 ;;9002226.02101,"1195,68001-0154-00 ",.01)
 ;;68001-0154-00
 ;;9002226.02101,"1195,68001-0154-00 ",.02)
 ;;68001-0154-00
 ;;9002226.02101,"1195,68001-0154-03 ",.01)
 ;;68001-0154-03
 ;;9002226.02101,"1195,68001-0154-03 ",.02)
 ;;68001-0154-03
 ;;9002226.02101,"1195,68001-0204-00 ",.01)
 ;;68001-0204-00
 ;;9002226.02101,"1195,68001-0204-00 ",.02)
 ;;68001-0204-00
 ;;9002226.02101,"1195,68001-0204-03 ",.01)
 ;;68001-0204-03
 ;;9002226.02101,"1195,68001-0204-03 ",.02)
 ;;68001-0204-03
 ;;9002226.02101,"1195,68001-0205-00 ",.01)
 ;;68001-0205-00
 ;;9002226.02101,"1195,68001-0205-00 ",.02)
 ;;68001-0205-00
 ;;9002226.02101,"1195,68001-0205-03 ",.01)
 ;;68001-0205-03
 ;;9002226.02101,"1195,68001-0205-03 ",.02)
 ;;68001-0205-03
 ;;9002226.02101,"1195,68001-0206-00 ",.01)
 ;;68001-0206-00
 ;;9002226.02101,"1195,68001-0206-00 ",.02)
 ;;68001-0206-00
 ;;9002226.02101,"1195,68001-0206-03 ",.01)
 ;;68001-0206-03
 ;;9002226.02101,"1195,68001-0206-03 ",.02)
 ;;68001-0206-03
 ;;9002226.02101,"1195,68001-0219-00 ",.01)
 ;;68001-0219-00
 ;;9002226.02101,"1195,68001-0219-00 ",.02)
 ;;68001-0219-00
 ;;9002226.02101,"1195,68001-0220-00 ",.01)
 ;;68001-0220-00
 ;;9002226.02101,"1195,68001-0220-00 ",.02)
 ;;68001-0220-00
 ;;9002226.02101,"1195,68001-0220-08 ",.01)
 ;;68001-0220-08
 ;;9002226.02101,"1195,68001-0220-08 ",.02)
 ;;68001-0220-08
 ;;9002226.02101,"1195,68001-0221-00 ",.01)
 ;;68001-0221-00
 ;;9002226.02101,"1195,68001-0221-00 ",.02)
 ;;68001-0221-00
 ;;9002226.02101,"1195,68071-0288-30 ",.01)
 ;;68071-0288-30
 ;;9002226.02101,"1195,68071-0288-30 ",.02)
 ;;68071-0288-30
 ;;9002226.02101,"1195,68071-0841-30 ",.01)
 ;;68071-0841-30
 ;;9002226.02101,"1195,68071-0841-30 ",.02)
 ;;68071-0841-30
 ;;9002226.02101,"1195,68071-0856-30 ",.01)
 ;;68071-0856-30
 ;;9002226.02101,"1195,68071-0856-30 ",.02)
 ;;68071-0856-30
 ;;9002226.02101,"1195,68084-0209-01 ",.01)
 ;;68084-0209-01
 ;;9002226.02101,"1195,68084-0209-01 ",.02)
 ;;68084-0209-01
 ;;9002226.02101,"1195,68084-0209-11 ",.01)
 ;;68084-0209-11
 ;;9002226.02101,"1195,68084-0209-11 ",.02)
 ;;68084-0209-11
 ;;9002226.02101,"1195,68084-0210-01 ",.01)
 ;;68084-0210-01
 ;;9002226.02101,"1195,68084-0210-01 ",.02)
 ;;68084-0210-01
 ;;9002226.02101,"1195,68084-0210-11 ",.01)
 ;;68084-0210-11
 ;;9002226.02101,"1195,68084-0210-11 ",.02)
 ;;68084-0210-11
 ;;9002226.02101,"1195,68084-0211-01 ",.01)
 ;;68084-0211-01
 ;;9002226.02101,"1195,68084-0211-01 ",.02)
 ;;68084-0211-01
 ;;9002226.02101,"1195,68084-0211-11 ",.01)
 ;;68084-0211-11
 ;;9002226.02101,"1195,68084-0211-11 ",.02)
 ;;68084-0211-11
 ;;9002226.02101,"1195,68084-0212-01 ",.01)
 ;;68084-0212-01
 ;;9002226.02101,"1195,68084-0212-01 ",.02)
 ;;68084-0212-01
 ;;9002226.02101,"1195,68084-0212-11 ",.01)
 ;;68084-0212-11
 ;;9002226.02101,"1195,68084-0212-11 ",.02)
 ;;68084-0212-11
 ;;9002226.02101,"1195,68084-0261-01 ",.01)
 ;;68084-0261-01
 ;;9002226.02101,"1195,68084-0261-01 ",.02)
 ;;68084-0261-01
 ;;9002226.02101,"1195,68084-0261-11 ",.01)
 ;;68084-0261-11
 ;;9002226.02101,"1195,68084-0261-11 ",.02)
 ;;68084-0261-11
 ;;9002226.02101,"1195,68084-0262-01 ",.01)
 ;;68084-0262-01
 ;;9002226.02101,"1195,68084-0262-01 ",.02)
 ;;68084-0262-01
 ;;9002226.02101,"1195,68084-0262-11 ",.01)
 ;;68084-0262-11
 ;;9002226.02101,"1195,68084-0262-11 ",.02)
 ;;68084-0262-11
 ;;9002226.02101,"1195,68084-0263-01 ",.01)
 ;;68084-0263-01
 ;;9002226.02101,"1195,68084-0263-01 ",.02)
 ;;68084-0263-01
 ;;9002226.02101,"1195,68084-0263-11 ",.01)
 ;;68084-0263-11
 ;;9002226.02101,"1195,68084-0263-11 ",.02)
 ;;68084-0263-11
 ;;9002226.02101,"1195,68084-0264-01 ",.01)
 ;;68084-0264-01
 ;;9002226.02101,"1195,68084-0264-01 ",.02)
 ;;68084-0264-01
 ;;9002226.02101,"1195,68084-0264-11 ",.01)
 ;;68084-0264-11
 ;;9002226.02101,"1195,68084-0264-11 ",.02)
 ;;68084-0264-11
 ;;9002226.02101,"1195,68084-0301-01 ",.01)
 ;;68084-0301-01
 ;;9002226.02101,"1195,68084-0301-01 ",.02)
 ;;68084-0301-01
 ;;9002226.02101,"1195,68084-0301-11 ",.01)
 ;;68084-0301-11
 ;;9002226.02101,"1195,68084-0301-11 ",.02)
 ;;68084-0301-11
 ;;9002226.02101,"1195,68084-0302-11 ",.01)
 ;;68084-0302-11
 ;;9002226.02101,"1195,68084-0302-11 ",.02)
 ;;68084-0302-11
 ;;9002226.02101,"1195,68084-0302-21 ",.01)
 ;;68084-0302-21
 ;;9002226.02101,"1195,68084-0302-21 ",.02)
 ;;68084-0302-21
 ;;9002226.02101,"1195,68084-0303-01 ",.01)
 ;;68084-0303-01
 ;;9002226.02101,"1195,68084-0303-01 ",.02)
 ;;68084-0303-01
 ;;9002226.02101,"1195,68084-0303-11 ",.01)
 ;;68084-0303-11
 ;;9002226.02101,"1195,68084-0303-11 ",.02)
 ;;68084-0303-11
 ;;9002226.02101,"1195,68084-0304-01 ",.01)
 ;;68084-0304-01
 ;;9002226.02101,"1195,68084-0304-01 ",.02)
 ;;68084-0304-01
 ;;9002226.02101,"1195,68084-0304-11 ",.01)
 ;;68084-0304-11
 ;;9002226.02101,"1195,68084-0304-11 ",.02)
 ;;68084-0304-11
 ;;9002226.02101,"1195,68084-0456-01 ",.01)
 ;;68084-0456-01
 ;;9002226.02101,"1195,68084-0456-01 ",.02)
 ;;68084-0456-01
 ;;9002226.02101,"1195,68084-0456-11 ",.01)
 ;;68084-0456-11
 ;;9002226.02101,"1195,68084-0456-11 ",.02)
 ;;68084-0456-11
 ;;9002226.02101,"1195,68084-0457-01 ",.01)
 ;;68084-0457-01
 ;;9002226.02101,"1195,68084-0457-01 ",.02)
 ;;68084-0457-01
 ;;9002226.02101,"1195,68084-0457-11 ",.01)
 ;;68084-0457-11
 ;;9002226.02101,"1195,68084-0457-11 ",.02)
 ;;68084-0457-11
 ;;9002226.02101,"1195,68084-0487-11 ",.01)
 ;;68084-0487-11
 ;;9002226.02101,"1195,68084-0487-11 ",.02)
 ;;68084-0487-11
 ;;9002226.02101,"1195,68084-0487-21 ",.01)
 ;;68084-0487-21
 ;;9002226.02101,"1195,68084-0487-21 ",.02)
 ;;68084-0487-21
 ;;9002226.02101,"1195,68084-0503-01 ",.01)
 ;;68084-0503-01
 ;;9002226.02101,"1195,68084-0503-01 ",.02)
 ;;68084-0503-01
 ;;9002226.02101,"1195,68084-0503-11 ",.01)
 ;;68084-0503-11
 ;;9002226.02101,"1195,68084-0503-11 ",.02)
 ;;68084-0503-11
 ;;9002226.02101,"1195,68084-0504-01 ",.01)
 ;;68084-0504-01
 ;;9002226.02101,"1195,68084-0504-01 ",.02)
 ;;68084-0504-01
 ;;9002226.02101,"1195,68084-0504-11 ",.01)
 ;;68084-0504-11
 ;;9002226.02101,"1195,68084-0504-11 ",.02)
 ;;68084-0504-11
 ;;9002226.02101,"1195,68084-0666-01 ",.01)
 ;;68084-0666-01
 ;;9002226.02101,"1195,68084-0666-01 ",.02)
 ;;68084-0666-01
 ;;9002226.02101,"1195,68084-0666-11 ",.01)
 ;;68084-0666-11
 ;;9002226.02101,"1195,68084-0666-11 ",.02)
 ;;68084-0666-11
 ;;9002226.02101,"1195,68084-0673-01 ",.01)
 ;;68084-0673-01
 ;;9002226.02101,"1195,68084-0673-01 ",.02)
 ;;68084-0673-01
 ;;9002226.02101,"1195,68084-0673-11 ",.01)
 ;;68084-0673-11
 ;;9002226.02101,"1195,68084-0673-11 ",.02)
 ;;68084-0673-11
 ;;9002226.02101,"1195,68084-0755-11 ",.01)
 ;;68084-0755-11
 ;;9002226.02101,"1195,68084-0755-11 ",.02)
 ;;68084-0755-11
 ;;9002226.02101,"1195,68084-0755-21 ",.01)
 ;;68084-0755-21
 ;;9002226.02101,"1195,68084-0755-21 ",.02)
 ;;68084-0755-21
 ;;9002226.02101,"1195,68084-0763-11 ",.01)
 ;;68084-0763-11
 ;;9002226.02101,"1195,68084-0763-11 ",.02)
 ;;68084-0763-11
 ;;9002226.02101,"1195,68084-0763-21 ",.01)
 ;;68084-0763-21
 ;;9002226.02101,"1195,68084-0763-21 ",.02)
 ;;68084-0763-21
 ;;9002226.02101,"1195,68258-6010-01 ",.01)
 ;;68258-6010-01
 ;;9002226.02101,"1195,68258-6010-01 ",.02)
 ;;68258-6010-01
 ;;9002226.02101,"1195,68258-6010-03 ",.01)
 ;;68258-6010-03
 ;;9002226.02101,"1195,68258-6010-03 ",.02)
 ;;68258-6010-03
 ;;9002226.02101,"1195,68258-6010-09 ",.01)
 ;;68258-6010-09
 ;;9002226.02101,"1195,68258-6010-09 ",.02)
 ;;68258-6010-09
 ;;9002226.02101,"1195,68258-6011-03 ",.01)
 ;;68258-6011-03