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

ATXF6M2.m

Go to the documentation of this file.
  1. ATXF6M2 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON DEC 21, 2016 ;
  1. ;;5.1;TAXONOMY;**19**;FEB 04, 1997;Build 32
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"2149,365.52 ",.03)
  1. ;;1
  1. ;;9002226.02101,"2149,365.59 ",.01)
  1. ;;365.59
  1. ;;9002226.02101,"2149,365.59 ",.02)
  1. ;;365.59
  1. ;;9002226.02101,"2149,365.59 ",.03)
  1. ;;1
  1. ;;9002226.02101,"2149,365.60 ",.01)
  1. ;;365.60
  1. ;;9002226.02101,"2149,365.60 ",.02)
  1. ;;365.60
  1. ;;9002226.02101,"2149,365.60 ",.03)
  1. ;;1
  1. ;;9002226.02101,"2149,365.61 ",.01)
  1. ;;365.61
  1. ;;9002226.02101,"2149,365.61 ",.02)
  1. ;;365.61
  1. ;;9002226.02101,"2149,365.61 ",.03)
  1. ;;1
  1. ;;9002226.02101,"2149,365.62 ",.01)
  1. ;;365.62
  1. ;;9002226.02101,"2149,365.62 ",.02)
  1. ;;365.62
  1. ;;9002226.02101,"2149,365.62 ",.03)
  1. ;;1
  1. ;;9002226.02101,"2149,365.63 ",.01)
  1. ;;365.63
  1. ;;9002226.02101,"2149,365.63 ",.02)
  1. ;;365.63
  1. ;;9002226.02101,"2149,365.63 ",.03)
  1. ;;1
  1. ;;9002226.02101,"2149,365.64 ",.01)
  1. ;;365.64
  1. ;;9002226.02101,"2149,365.64 ",.02)
  1. ;;365.64
  1. ;;9002226.02101,"2149,365.64 ",.03)
  1. ;;1
  1. ;;9002226.02101,"2149,365.65 ",.01)
  1. ;;365.65
  1. ;;9002226.02101,"2149,365.65 ",.02)
  1. ;;365.65
  1. ;;9002226.02101,"2149,365.65 ",.03)
  1. ;;1
  1. ;;9002226.02101,"2149,365.70 ",.01)
  1. ;;365.70
  1. ;;9002226.02101,"2149,365.70 ",.02)
  1. ;;365.70
  1. ;;9002226.02101,"2149,365.70 ",.03)
  1. ;;1
  1. ;;9002226.02101,"2149,365.71 ",.01)
  1. ;;365.71
  1. ;;9002226.02101,"2149,365.71 ",.02)
  1. ;;365.71
  1. ;;9002226.02101,"2149,365.71 ",.03)
  1. ;;1
  1. ;;9002226.02101,"2149,365.72 ",.01)
  1. ;;365.72
  1. ;;9002226.02101,"2149,365.72 ",.02)
  1. ;;365.72
  1. ;;9002226.02101,"2149,365.72 ",.03)
  1. ;;1
  1. ;;9002226.02101,"2149,365.73 ",.01)
  1. ;;365.73
  1. ;;9002226.02101,"2149,365.73 ",.02)
  1. ;;365.73
  1. ;;9002226.02101,"2149,365.73 ",.03)
  1. ;;1
  1. ;;9002226.02101,"2149,365.74 ",.01)
  1. ;;365.74
  1. ;;9002226.02101,"2149,365.74 ",.02)
  1. ;;365.74
  1. ;;9002226.02101,"2149,365.74 ",.03)
  1. ;;1
  1. ;;9002226.02101,"2149,365.81 ",.01)
  1. ;;365.81
  1. ;;9002226.02101,"2149,365.81 ",.02)
  1. ;;365.81
  1. ;;9002226.02101,"2149,365.81 ",.03)
  1. ;;1
  1. ;;9002226.02101,"2149,365.82 ",.01)
  1. ;;365.82
  1. ;;9002226.02101,"2149,365.82 ",.02)
  1. ;;365.82
  1. ;;9002226.02101,"2149,365.82 ",.03)
  1. ;;1
  1. ;;9002226.02101,"2149,365.89 ",.01)
  1. ;;365.89
  1. ;;9002226.02101,"2149,365.89 ",.02)
  1. ;;365.89
  1. ;;9002226.02101,"2149,365.89 ",.03)
  1. ;;1
  1. ;;9002226.02101,"2149,365.9 ",.01)
  1. ;;365.9
  1. ;;9002226.02101,"2149,365.9 ",.02)
  1. ;;365.9
  1. ;;9002226.02101,"2149,365.9 ",.03)
  1. ;;1
  1. ;;9002226.02101,"2149,366.31 ",.01)
  1. ;;366.31
  1. ;;9002226.02101,"2149,366.31 ",.02)
  1. ;;366.31
  1. ;;9002226.02101,"2149,366.31 ",.03)
  1. ;;1
  1. ;;9002226.02101,"2149,377.14 ",.01)
  1. ;;377.14
  1. ;;9002226.02101,"2149,377.14 ",.02)
  1. ;;377.14
  1. ;;9002226.02101,"2149,377.14 ",.03)
  1. ;;1
  1. ;;9002226.02101,"2149,B73.02 ",.01)
  1. ;;B73.02
  1. ;;9002226.02101,"2149,B73.02 ",.02)
  1. ;;B73.02
  1. ;;9002226.02101,"2149,B73.02 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H26.231 ",.01)
  1. ;;H26.231
  1. ;;9002226.02101,"2149,H26.231 ",.02)
  1. ;;H26.231
  1. ;;9002226.02101,"2149,H26.231 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H26.232 ",.01)
  1. ;;H26.232
  1. ;;9002226.02101,"2149,H26.232 ",.02)
  1. ;;H26.232
  1. ;;9002226.02101,"2149,H26.232 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H26.233 ",.01)
  1. ;;H26.233
  1. ;;9002226.02101,"2149,H26.233 ",.02)
  1. ;;H26.233
  1. ;;9002226.02101,"2149,H26.233 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H26.239 ",.01)
  1. ;;H26.239
  1. ;;9002226.02101,"2149,H26.239 ",.02)
  1. ;;H26.239
  1. ;;9002226.02101,"2149,H26.239 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.061 ",.01)
  1. ;;H40.061
  1. ;;9002226.02101,"2149,H40.061 ",.02)
  1. ;;H40.061
  1. ;;9002226.02101,"2149,H40.061 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.062 ",.01)
  1. ;;H40.062
  1. ;;9002226.02101,"2149,H40.062 ",.02)
  1. ;;H40.062
  1. ;;9002226.02101,"2149,H40.062 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.063 ",.01)
  1. ;;H40.063
  1. ;;9002226.02101,"2149,H40.063 ",.02)
  1. ;;H40.063
  1. ;;9002226.02101,"2149,H40.063 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.069 ",.01)
  1. ;;H40.069
  1. ;;9002226.02101,"2149,H40.069 ",.02)
  1. ;;H40.069
  1. ;;9002226.02101,"2149,H40.069 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.10X0 ",.01)
  1. ;;H40.10X0
  1. ;;9002226.02101,"2149,H40.10X0 ",.02)
  1. ;;H40.10X0
  1. ;;9002226.02101,"2149,H40.10X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.10X1 ",.01)
  1. ;;H40.10X1
  1. ;;9002226.02101,"2149,H40.10X1 ",.02)
  1. ;;H40.10X1
  1. ;;9002226.02101,"2149,H40.10X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.10X2 ",.01)
  1. ;;H40.10X2
  1. ;;9002226.02101,"2149,H40.10X2 ",.02)
  1. ;;H40.10X2
  1. ;;9002226.02101,"2149,H40.10X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.10X3 ",.01)
  1. ;;H40.10X3
  1. ;;9002226.02101,"2149,H40.10X3 ",.02)
  1. ;;H40.10X3
  1. ;;9002226.02101,"2149,H40.10X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.10X4 ",.01)
  1. ;;H40.10X4
  1. ;;9002226.02101,"2149,H40.10X4 ",.02)
  1. ;;H40.10X4
  1. ;;9002226.02101,"2149,H40.10X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1110 ",.01)
  1. ;;H40.1110
  1. ;;9002226.02101,"2149,H40.1110 ",.02)
  1. ;;H40.1110
  1. ;;9002226.02101,"2149,H40.1110 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1111 ",.01)
  1. ;;H40.1111
  1. ;;9002226.02101,"2149,H40.1111 ",.02)
  1. ;;H40.1111
  1. ;;9002226.02101,"2149,H40.1111 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1112 ",.01)
  1. ;;H40.1112
  1. ;;9002226.02101,"2149,H40.1112 ",.02)
  1. ;;H40.1112
  1. ;;9002226.02101,"2149,H40.1112 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1113 ",.01)
  1. ;;H40.1113
  1. ;;9002226.02101,"2149,H40.1113 ",.02)
  1. ;;H40.1113
  1. ;;9002226.02101,"2149,H40.1113 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1114 ",.01)
  1. ;;H40.1114
  1. ;;9002226.02101,"2149,H40.1114 ",.02)
  1. ;;H40.1114
  1. ;;9002226.02101,"2149,H40.1114 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1120 ",.01)
  1. ;;H40.1120
  1. ;;9002226.02101,"2149,H40.1120 ",.02)
  1. ;;H40.1120
  1. ;;9002226.02101,"2149,H40.1120 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1121 ",.01)
  1. ;;H40.1121
  1. ;;9002226.02101,"2149,H40.1121 ",.02)
  1. ;;H40.1121
  1. ;;9002226.02101,"2149,H40.1121 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1122 ",.01)
  1. ;;H40.1122
  1. ;;9002226.02101,"2149,H40.1122 ",.02)
  1. ;;H40.1122
  1. ;;9002226.02101,"2149,H40.1122 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1123 ",.01)
  1. ;;H40.1123
  1. ;;9002226.02101,"2149,H40.1123 ",.02)
  1. ;;H40.1123
  1. ;;9002226.02101,"2149,H40.1123 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1124 ",.01)
  1. ;;H40.1124
  1. ;;9002226.02101,"2149,H40.1124 ",.02)
  1. ;;H40.1124
  1. ;;9002226.02101,"2149,H40.1124 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1130 ",.01)
  1. ;;H40.1130
  1. ;;9002226.02101,"2149,H40.1130 ",.02)
  1. ;;H40.1130
  1. ;;9002226.02101,"2149,H40.1130 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1131 ",.01)
  1. ;;H40.1131
  1. ;;9002226.02101,"2149,H40.1131 ",.02)
  1. ;;H40.1131
  1. ;;9002226.02101,"2149,H40.1131 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1132 ",.01)
  1. ;;H40.1132
  1. ;;9002226.02101,"2149,H40.1132 ",.02)
  1. ;;H40.1132
  1. ;;9002226.02101,"2149,H40.1132 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1133 ",.01)
  1. ;;H40.1133
  1. ;;9002226.02101,"2149,H40.1133 ",.02)
  1. ;;H40.1133
  1. ;;9002226.02101,"2149,H40.1133 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1134 ",.01)
  1. ;;H40.1134
  1. ;;9002226.02101,"2149,H40.1134 ",.02)
  1. ;;H40.1134
  1. ;;9002226.02101,"2149,H40.1134 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1190 ",.01)
  1. ;;H40.1190
  1. ;;9002226.02101,"2149,H40.1190 ",.02)
  1. ;;H40.1190
  1. ;;9002226.02101,"2149,H40.1190 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1191 ",.01)
  1. ;;H40.1191
  1. ;;9002226.02101,"2149,H40.1191 ",.02)
  1. ;;H40.1191
  1. ;;9002226.02101,"2149,H40.1191 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1192 ",.01)
  1. ;;H40.1192
  1. ;;9002226.02101,"2149,H40.1192 ",.02)
  1. ;;H40.1192
  1. ;;9002226.02101,"2149,H40.1192 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1193 ",.01)
  1. ;;H40.1193
  1. ;;9002226.02101,"2149,H40.1193 ",.02)
  1. ;;H40.1193
  1. ;;9002226.02101,"2149,H40.1193 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1194 ",.01)
  1. ;;H40.1194
  1. ;;9002226.02101,"2149,H40.1194 ",.02)
  1. ;;H40.1194
  1. ;;9002226.02101,"2149,H40.1194 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1210 ",.01)
  1. ;;H40.1210
  1. ;;9002226.02101,"2149,H40.1210 ",.02)
  1. ;;H40.1210
  1. ;;9002226.02101,"2149,H40.1210 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1211 ",.01)
  1. ;;H40.1211
  1. ;;9002226.02101,"2149,H40.1211 ",.02)
  1. ;;H40.1211
  1. ;;9002226.02101,"2149,H40.1211 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1212 ",.01)
  1. ;;H40.1212
  1. ;;9002226.02101,"2149,H40.1212 ",.02)
  1. ;;H40.1212
  1. ;;9002226.02101,"2149,H40.1212 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1213 ",.01)
  1. ;;H40.1213
  1. ;;9002226.02101,"2149,H40.1213 ",.02)
  1. ;;H40.1213
  1. ;;9002226.02101,"2149,H40.1213 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1214 ",.01)
  1. ;;H40.1214
  1. ;;9002226.02101,"2149,H40.1214 ",.02)
  1. ;;H40.1214
  1. ;;9002226.02101,"2149,H40.1214 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1220 ",.01)
  1. ;;H40.1220
  1. ;;9002226.02101,"2149,H40.1220 ",.02)
  1. ;;H40.1220
  1. ;;9002226.02101,"2149,H40.1220 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1221 ",.01)
  1. ;;H40.1221
  1. ;;9002226.02101,"2149,H40.1221 ",.02)
  1. ;;H40.1221
  1. ;;9002226.02101,"2149,H40.1221 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1222 ",.01)
  1. ;;H40.1222
  1. ;;9002226.02101,"2149,H40.1222 ",.02)
  1. ;;H40.1222
  1. ;;9002226.02101,"2149,H40.1222 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1223 ",.01)
  1. ;;H40.1223
  1. ;;9002226.02101,"2149,H40.1223 ",.02)
  1. ;;H40.1223
  1. ;;9002226.02101,"2149,H40.1223 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1224 ",.01)
  1. ;;H40.1224
  1. ;;9002226.02101,"2149,H40.1224 ",.02)
  1. ;;H40.1224
  1. ;;9002226.02101,"2149,H40.1224 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1230 ",.01)
  1. ;;H40.1230
  1. ;;9002226.02101,"2149,H40.1230 ",.02)
  1. ;;H40.1230
  1. ;;9002226.02101,"2149,H40.1230 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1231 ",.01)
  1. ;;H40.1231
  1. ;;9002226.02101,"2149,H40.1231 ",.02)
  1. ;;H40.1231
  1. ;;9002226.02101,"2149,H40.1231 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1232 ",.01)
  1. ;;H40.1232
  1. ;;9002226.02101,"2149,H40.1232 ",.02)
  1. ;;H40.1232
  1. ;;9002226.02101,"2149,H40.1232 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1233 ",.01)
  1. ;;H40.1233
  1. ;;9002226.02101,"2149,H40.1233 ",.02)
  1. ;;H40.1233
  1. ;;9002226.02101,"2149,H40.1233 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1234 ",.01)
  1. ;;H40.1234
  1. ;;9002226.02101,"2149,H40.1234 ",.02)
  1. ;;H40.1234
  1. ;;9002226.02101,"2149,H40.1234 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1290 ",.01)
  1. ;;H40.1290
  1. ;;9002226.02101,"2149,H40.1290 ",.02)
  1. ;;H40.1290
  1. ;;9002226.02101,"2149,H40.1290 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1291 ",.01)
  1. ;;H40.1291
  1. ;;9002226.02101,"2149,H40.1291 ",.02)
  1. ;;H40.1291
  1. ;;9002226.02101,"2149,H40.1291 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1292 ",.01)
  1. ;;H40.1292
  1. ;;9002226.02101,"2149,H40.1292 ",.02)
  1. ;;H40.1292
  1. ;;9002226.02101,"2149,H40.1292 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1293 ",.01)
  1. ;;H40.1293
  1. ;;9002226.02101,"2149,H40.1293 ",.02)
  1. ;;H40.1293
  1. ;;9002226.02101,"2149,H40.1293 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1294 ",.01)
  1. ;;H40.1294
  1. ;;9002226.02101,"2149,H40.1294 ",.02)
  1. ;;H40.1294
  1. ;;9002226.02101,"2149,H40.1294 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1310 ",.01)
  1. ;;H40.1310
  1. ;;9002226.02101,"2149,H40.1310 ",.02)
  1. ;;H40.1310
  1. ;;9002226.02101,"2149,H40.1310 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1311 ",.01)
  1. ;;H40.1311
  1. ;;9002226.02101,"2149,H40.1311 ",.02)
  1. ;;H40.1311
  1. ;;9002226.02101,"2149,H40.1311 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1312 ",.01)
  1. ;;H40.1312
  1. ;;9002226.02101,"2149,H40.1312 ",.02)
  1. ;;H40.1312
  1. ;;9002226.02101,"2149,H40.1312 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1313 ",.01)
  1. ;;H40.1313
  1. ;;9002226.02101,"2149,H40.1313 ",.02)
  1. ;;H40.1313
  1. ;;9002226.02101,"2149,H40.1313 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1314 ",.01)
  1. ;;H40.1314
  1. ;;9002226.02101,"2149,H40.1314 ",.02)
  1. ;;H40.1314
  1. ;;9002226.02101,"2149,H40.1314 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.1320 ",.01)
  1. ;;H40.1320