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

BGP8ZH16.m

Go to the documentation of this file.
  1. BGP8ZH16 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
  1. ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
  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. ;;21,"66336-0655-30 ")
  1. ;;5020
  1. ;;21,"66336-0830-05 ")
  1. ;;5021
  1. ;;21,"66336-0903-10 ")
  1. ;;5022
  1. ;;21,"66336-0903-14 ")
  1. ;;5023
  1. ;;21,"66336-0903-20 ")
  1. ;;5024
  1. ;;21,"66647-6152-11 ")
  1. ;;5025
  1. ;;21,"66647-6153-11 ")
  1. ;;5026
  1. ;;21,"66647-8025-42 ")
  1. ;;5027
  1. ;;21,"66647-8526-65 ")
  1. ;;5028
  1. ;;21,"66685-1001-00 ")
  1. ;;5029
  1. ;;21,"66685-1001-01 ")
  1. ;;5030
  1. ;;21,"66685-1002-00 ")
  1. ;;5031
  1. ;;21,"66685-1002-02 ")
  1. ;;5032
  1. ;;21,"66685-1011-00 ")
  1. ;;5033
  1. ;;21,"66685-1011-01 ")
  1. ;;5034
  1. ;;21,"66685-1011-02 ")
  1. ;;5035
  1. ;;21,"66685-1012-00 ")
  1. ;;5036
  1. ;;21,"66685-1012-01 ")
  1. ;;5037
  1. ;;21,"66685-1012-02 ")
  1. ;;5038
  1. ;;21,"66860-0001-03 ")
  1. ;;5039
  1. ;;21,"66860-0002-03 ")
  1. ;;5040
  1. ;;21,"66860-0003-02 ")
  1. ;;5041
  1. ;;21,"66860-0011-02 ")
  1. ;;5042
  1. ;;21,"66860-0030-03 ")
  1. ;;5043
  1. ;;21,"66860-0031-03 ")
  1. ;;5044
  1. ;;21,"66860-0032-02 ")
  1. ;;5045
  1. ;;21,"66860-0071-02 ")
  1. ;;5046
  1. ;;21,"66860-0072-02 ")
  1. ;;5047
  1. ;;21,"66860-0073-02 ")
  1. ;;5048
  1. ;;21,"66860-0074-02 ")
  1. ;;5049
  1. ;;21,"66860-0730-03 ")
  1. ;;5050
  1. ;;21,"66860-0731-03 ")
  1. ;;5051
  1. ;;21,"66860-0732-02 ")
  1. ;;5052
  1. ;;21,"66860-0902-03 ")
  1. ;;5053
  1. ;;21,"66993-0815-30 ")
  1. ;;5054
  1. ;;21,"67046-0135-14 ")
  1. ;;5055
  1. ;;21,"67046-0135-20 ")
  1. ;;5056
  1. ;;21,"67046-0135-30 ")
  1. ;;5057
  1. ;;21,"67253-0008-46 ")
  1. ;;5058
  1. ;;21,"67253-0009-41 ")
  1. ;;5059
  1. ;;21,"67253-0009-46 ")
  1. ;;5060
  1. ;;21,"67253-0011-06 ")
  1. ;;5061
  1. ;;21,"67253-0012-41 ")
  1. ;;5062
  1. ;;21,"67253-0012-42 ")
  1. ;;5063
  1. ;;21,"67253-0013-41 ")
  1. ;;5064
  1. ;;21,"67253-0013-42 ")
  1. ;;5065
  1. ;;21,"67253-0140-10 ")
  1. ;;5066
  1. ;;21,"67253-0140-50 ")
  1. ;;5067
  1. ;;21,"67253-0141-10 ")
  1. ;;5068
  1. ;;21,"67253-0141-50 ")
  1. ;;5069
  1. ;;21,"67253-0142-08 ")
  1. ;;5070
  1. ;;21,"67253-0142-10 ")
  1. ;;5071
  1. ;;21,"67253-0142-15 ")
  1. ;;5072
  1. ;;21,"67253-0143-08 ")
  1. ;;5073
  1. ;;21,"67253-0143-10 ")
  1. ;;5074
  1. ;;21,"67253-0143-15 ")
  1. ;;5075
  1. ;;21,"67253-0144-10 ")
  1. ;;5076
  1. ;;21,"67253-0144-50 ")
  1. ;;5077
  1. ;;21,"67253-0145-10 ")
  1. ;;5078
  1. ;;21,"67253-0146-45 ")
  1. ;;5079
  1. ;;21,"67253-0146-46 ")
  1. ;;5080
  1. ;;21,"67253-0146-47 ")
  1. ;;5081
  1. ;;21,"67253-0147-40 ")
  1. ;;5082
  1. ;;21,"67253-0147-43 ")
  1. ;;5083
  1. ;;21,"67253-0147-44 ")
  1. ;;5084
  1. ;;21,"67253-0148-45 ")
  1. ;;5085
  1. ;;21,"67253-0148-46 ")
  1. ;;5086
  1. ;;21,"67253-0148-47 ")
  1. ;;5087
  1. ;;21,"67253-0149-40 ")
  1. ;;5088
  1. ;;21,"67253-0149-43 ")
  1. ;;5089
  1. ;;21,"67253-0149-44 ")
  1. ;;5090
  1. ;;21,"67253-0150-10 ")
  1. ;;5091
  1. ;;21,"67253-0150-50 ")
  1. ;;5092
  1. ;;21,"67253-0180-10 ")
  1. ;;5093
  1. ;;21,"67253-0180-50 ")
  1. ;;5094
  1. ;;21,"67253-0181-10 ")
  1. ;;5095
  1. ;;21,"67253-0181-50 ")
  1. ;;5096
  1. ;;21,"67253-0182-10 ")
  1. ;;5097
  1. ;;21,"67253-0182-20 ")
  1. ;;5098
  1. ;;21,"67253-0183-10 ")
  1. ;;5099
  1. ;;21,"67253-0183-20 ")
  1. ;;5100
  1. ;;21,"67253-0200-10 ")
  1. ;;5101
  1. ;;21,"67253-0200-11 ")
  1. ;;5102
  1. ;;21,"67253-0201-10 ")
  1. ;;5103
  1. ;;21,"67253-0201-11 ")
  1. ;;5104
  1. ;;21,"67253-0201-50 ")
  1. ;;5105
  1. ;;21,"67253-0202-10 ")
  1. ;;5106
  1. ;;21,"67253-0202-20 ")
  1. ;;5107
  1. ;;21,"67253-0203-10 ")
  1. ;;5108
  1. ;;21,"67253-0203-20 ")
  1. ;;5109
  1. ;;21,"67253-0231-10 ")
  1. ;;5110
  1. ;;21,"67253-0232-05 ")
  1. ;;5111
  1. ;;21,"67253-0300-10 ")
  1. ;;5112
  1. ;;21,"67253-0300-50 ")
  1. ;;5113
  1. ;;21,"67253-0301-10 ")
  1. ;;5114
  1. ;;21,"67253-0301-50 ")
  1. ;;5115
  1. ;;21,"67253-0388-15 ")
  1. ;;5116
  1. ;;21,"67253-0389-15 ")
  1. ;;5117
  1. ;;21,"67253-0389-50 ")
  1. ;;5118
  1. ;;21,"67253-0391-15 ")
  1. ;;5119
  1. ;;21,"67253-0391-50 ")
  1. ;;5120
  1. ;;21,"67253-0780-02 ")
  1. ;;5121
  1. ;;21,"67253-0781-02 ")
  1. ;;5122
  1. ;;21,"67405-0475-62 ")
  1. ;;5123
  1. ;;21,"67405-0550-05 ")
  1. ;;5124
  1. ;;21,"67405-0550-55 ")
  1. ;;5125
  1. ;;21,"67405-0650-55 ")
  1. ;;5126
  1. ;;21,"67405-0651-05 ")
  1. ;;5127
  1. ;;21,"67405-0651-55 ")
  1. ;;5128
  1. ;;21,"67405-0660-10 ")
  1. ;;5129
  1. ;;21,"67405-0661-10 ")
  1. ;;5130
  1. ;;21,"67457-0350-10 ")
  1. ;;5131
  1. ;;21,"67457-0351-10 ")
  1. ;;5132
  1. ;;21,"67457-0352-02 ")
  1. ;;5133
  1. ;;21,"67457-0352-10 ")
  1. ;;5134
  1. ;;21,"67457-0353-10 ")
  1. ;;5135
  1. ;;21,"67457-0353-25 ")
  1. ;;5136
  1. ;;21,"67457-0404-10 ")
  1. ;;5137
  1. ;;21,"67457-0437-10 ")
  1. ;;5138
  1. ;;21,"67544-0775-28 ")
  1. ;;5139
  1. ;;21,"67877-0215-20 ")
  1. ;;5140
  1. ;;21,"67877-0215-60 ")
  1. ;;5141
  1. ;;21,"67877-0216-20 ")
  1. ;;5142
  1. ;;21,"67877-0216-60 ")
  1. ;;5143
  1. ;;21,"67877-0219-01 ")
  1. ;;5144
  1. ;;21,"67877-0219-05 ")
  1. ;;5145
  1. ;;21,"67877-0220-01 ")
  1. ;;5146
  1. ;;21,"67877-0220-05 ")
  1. ;;5147
  1. ;;21,"67877-0255-20 ")
  1. ;;5148
  1. ;;21,"67877-0255-23 ")
  1. ;;5149
  1. ;;21,"68001-0150-06 ")
  1. ;;5150
  1. ;;21,"68047-0713-01 ")
  1. ;;5151
  1. ;;21,"68047-0714-01 ")
  1. ;;5152
  1. ;;21,"68047-0714-60 ")
  1. ;;5153
  1. ;;21,"68071-0055-06 ")
  1. ;;5154
  1. ;;21,"68071-0055-10 ")
  1. ;;5155
  1. ;;21,"68071-0055-14 ")
  1. ;;5156
  1. ;;21,"68071-0055-20 ")
  1. ;;5157
  1. ;;21,"68071-0055-28 ")
  1. ;;5158
  1. ;;21,"68071-0055-30 ")
  1. ;;5159
  1. ;;21,"68071-0331-14 ")
  1. ;;5160
  1. ;;21,"68071-0331-20 ")
  1. ;;5161
  1. ;;21,"68071-0331-30 ")
  1. ;;5162
  1. ;;21,"68071-0337-14 ")
  1. ;;5163
  1. ;;21,"68071-0337-20 ")
  1. ;;5164
  1. ;;21,"68071-0337-30 ")
  1. ;;5165
  1. ;;21,"68071-0398-06 ")
  1. ;;5166
  1. ;;21,"68071-0398-14 ")
  1. ;;5167
  1. ;;21,"68071-0398-20 ")
  1. ;;5168
  1. ;;21,"68071-0398-30 ")
  1. ;;5169
  1. ;;21,"68071-0398-40 ")
  1. ;;5170
  1. ;;21,"68071-0398-90 ")
  1. ;;5171
  1. ;;21,"68084-0069-01 ")
  1. ;;5172
  1. ;;21,"68084-0069-11 ")
  1. ;;5173
  1. ;;21,"68084-0070-01 ")
  1. ;;5174
  1. ;;21,"68084-0070-11 ")
  1. ;;5175
  1. ;;21,"68084-0071-01 ")
  1. ;;5176
  1. ;;21,"68084-0071-11 ")
  1. ;;5177
  1. ;;21,"68084-0230-01 ")
  1. ;;5178
  1. ;;21,"68084-0230-11 ")
  1. ;;5179
  1. ;;21,"68084-0235-01 ")
  1. ;;5180
  1. ;;21,"68084-0235-11 ")
  1. ;;5181
  1. ;;21,"68084-0236-01 ")
  1. ;;5182
  1. ;;21,"68084-0236-11 ")
  1. ;;5183
  1. ;;21,"68084-0243-01 ")
  1. ;;5184
  1. ;;21,"68084-0243-11 ")
  1. ;;5185
  1. ;;21,"68084-0244-01 ")
  1. ;;5186
  1. ;;21,"68084-0244-11 ")
  1. ;;5187
  1. ;;21,"68084-0278-01 ")
  1. ;;5188
  1. ;;21,"68084-0278-11 ")
  1. ;;5189
  1. ;;21,"68084-0279-11 ")
  1. ;;5190
  1. ;;21,"68084-0279-21 ")
  1. ;;5191
  1. ;;21,"68084-0289-01 ")
  1. ;;5192
  1. ;;21,"68084-0289-11 ")
  1. ;;5193
  1. ;;21,"68084-0437-11 ")
  1. ;;5194
  1. ;;21,"68084-0437-65 ")
  1. ;;5195
  1. ;;21,"68084-0443-11 ")
  1. ;;5196
  1. ;;21,"68084-0443-65 ")
  1. ;;5197
  1. ;;21,"68084-0464-11 ")
  1. ;;5198
  1. ;;21,"68084-0464-21 ")
  1. ;;5199
  1. ;;21,"68084-0481-01 ")
  1. ;;5200
  1. ;;21,"68084-0481-11 ")
  1. ;;5201
  1. ;;21,"68084-0482-01 ")
  1. ;;5202
  1. ;;21,"68084-0482-11 ")
  1. ;;5203
  1. ;;21,"68084-0483-01 ")
  1. ;;5204
  1. ;;21,"68084-0483-11 ")
  1. ;;5205
  1. ;;21,"68084-0623-11 ")
  1. ;;5206
  1. ;;21,"68084-0623-65 ")
  1. ;;5207
  1. ;;21,"68084-0651-25 ")
  1. ;;5208
  1. ;;21,"68084-0656-01 ")
  1. ;;5209
  1. ;;21,"68084-0722-11 ")
  1. ;;5210
  1. ;;21,"68084-0722-65 ")
  1. ;;5211
  1. ;;21,"68084-0743-32 ")
  1. ;;5212
  1. ;;21,"68084-0747-25 ")
  1. ;;5213
  1. ;;21,"68084-0785-25 ")
  1. ;;5214
  1. ;;21,"68084-0785-95 ")
  1. ;;5215
  1. ;;21,"68084-0906-01 ")
  1. ;;5216
  1. ;;21,"68084-0913-32 ")
  1. ;;5217
  1. ;;21,"68084-0920-32 ")
  1. ;;5218
  1. ;;21,"68160-0161-13 ")
  1. ;;5219
  1. ;;21,"68180-0121-01 ")
  1. ;;5220
  1. ;;21,"68180-0121-02 ")
  1. ;;5221
  1. ;;21,"68180-0122-01 ")
  1. ;;5222
  1. ;;21,"68180-0122-02 ")
  1. ;;5223
  1. ;;21,"68180-0123-01 ")
  1. ;;5224
  1. ;;21,"68180-0123-02 ")
  1. ;;5225
  1. ;;21,"68180-0124-01 ")
  1. ;;5226
  1. ;;21,"68180-0124-02 ")
  1. ;;5227
  1. ;;21,"68180-0160-06 ")
  1. ;;5228
  1. ;;21,"68180-0160-13 ")
  1. ;;5229
  1. ;;21,"68180-0161-06 ")
  1. ;;5230
  1. ;;21,"68180-0161-13 ")
  1. ;;5231
  1. ;;21,"68180-0162-06 ")
  1. ;;5232
  1. ;;21,"68180-0180-01 ")
  1. ;;5233
  1. ;;21,"68180-0180-08 ")
  1. ;;5234
  1. ;;21,"68180-0181-01 ")
  1. ;;5235
  1. ;;21,"68180-0181-02 ")
  1. ;;5236
  1. ;;21,"68180-0182-02 ")
  1. ;;5237
  1. ;;21,"68180-0182-03 ")
  1. ;;5238
  1. ;;21,"68180-0202-01 ")
  1. ;;5239
  1. ;;21,"68180-0202-02 ")
  1. ;;5240
  1. ;;21,"68180-0202-03 ")
  1. ;;5241
  1. ;;21,"68180-0240-01 ")
  1. ;;5242
  1. ;;21,"68180-0240-08 ")
  1. ;;5243
  1. ;;21,"68180-0241-01 ")
  1. ;;5244
  1. ;;21,"68180-0241-02 ")
  1. ;;5245
  1. ;;21,"68180-0241-08 ")
  1. ;;5246
  1. ;;21,"68180-0242-01 ")
  1. ;;5247
  1. ;;21,"68180-0242-20 ")
  1. ;;5248
  1. ;;21,"68180-0302-20 ")
  1. ;;5249
  1. ;;21,"68180-0302-60 ")
  1. ;;5250
  1. ;;21,"68180-0303-20 ")
  1. ;;5251
  1. ;;21,"68180-0303-60 ")
  1. ;;5252
  1. ;;21,"68180-0379-06 ")
  1. ;;5253
  1. ;;21,"68180-0380-06 ")
  1. ;;5254
  1. ;;21,"68180-0381-06 ")
  1. ;;5255
  1. ;;21,"68180-0392-01 ")
  1. ;;5256
  1. ;;21,"68180-0393-01 ")
  1. ;;5257
  1. ;;21,"68180-0401-01 ")
  1. ;;5258
  1. ;;21,"68180-0401-02 ")
  1. ;;5259
  1. ;;21,"68180-0401-03 ")
  1. ;;5260
  1. ;;21,"68180-0402-01 ")
  1. ;;5261
  1. ;;21,"68180-0402-02 ")
  1. ;;5262
  1. ;;21,"68180-0402-03 ")
  1. ;;5263
  1. ;;21,"68180-0403-01 ")
  1. ;;5264
  1. ;;21,"68180-0404-01 ")
  1. ;;5265
  1. ;;21,"68180-0404-02 ")
  1. ;;5266
  1. ;;21,"68180-0405-01 ")
  1. ;;5267
  1. ;;21,"68180-0407-03 ")
  1. ;;5268
  1. ;;21,"68180-0407-04 ")
  1. ;;5269
  1. ;;21,"68180-0611-01 ")
  1. ;;5270
  1. ;;21,"68180-0611-10 ")
  1. ;;5271
  1. ;;21,"68180-0622-01 ")
  1. ;;5272
  1. ;;21,"68180-0622-10 ")
  1. ;;5273
  1. ;;21,"68180-0633-01 ")
  1. ;;5274
  1. ;;21,"68180-0633-10 ")
  1. ;;5275
  1. ;;21,"68180-0644-01 ")
  1. ;;5276
  1. ;;21,"68180-0644-10 ")
  1. ;;5277
  1. ;;21,"68180-0650-01 ")
  1. ;;5278
  1. ;;21,"68180-0651-01 ")
  1. ;;5279
  1. ;;21,"68180-0652-08 ")
  1. ;;5280
  1. ;;21,"68180-0657-01 ")
  1. ;;5281
  1. ;;21,"68180-0711-60 ")
  1. ;;5282
  1. ;;21,"68180-0722-10 ")
  1. ;;5283
  1. ;;21,"68180-0722-20 ")
  1. ;;5284
  1. ;;21,"68180-0723-10 ")
  1. ;;5285
  1. ;;21,"68180-0723-20 ")
  1. ;;5286
  1. ;;21,"68258-3012-01 ")
  1. ;;5287
  1. ;;21,"68258-9300-02 ")
  1. ;;5288
  1. ;;21,"68308-0250-10 ")
  1. ;;5289
  1. ;;21,"68308-0710-10 ")
  1. ;;5290
  1. ;;21,"68308-0715-10 ")
  1. ;;5291
  1. ;;21,"68308-0775-01 ")
  1. ;;5292
  1. ;;21,"68308-0775-60 ")
  1. ;;5293
  1. ;;21,"68330-0001-01 ")
  1. ;;5294
  1. ;;21,"68330-0001-10 ")
  1. ;;5295
  1. ;;21,"68330-0002-01 ")
  1. ;;5296
  1. ;;21,"68330-0002-10 ")
  1. ;;5297
  1. ;;21,"68330-0003-01 ")
  1. ;;5298
  1. ;;21,"68330-0003-10 ")
  1. ;;5299
  1. ;;21,"68330-0004-01 ")
  1. ;;5300
  1. ;;21,"68330-0004-10 ")
  1. ;;5301
  1. ;;21,"68330-0015-25 ")
  1. ;;5302
  1. ;;21,"68382-0015-01 ")
  1. ;;5303
  1. ;;21,"68382-0015-18 ")
  1. ;;5304
  1. ;;21,"68382-0016-01 ")
  1. ;;5305
  1. ;;21,"68382-0016-18 ")
  1. ;;5306
  1. ;;21,"68382-0017-01 ")
  1. ;;5307
  1. ;;21,"68382-0017-18 ")
  1. ;;5308
  1. ;;21,"68382-0316-01 ")
  1. ;;5309
  1. ;;21,"68382-0317-01 ")
  1. ;;5310
  1. ;;21,"68382-0318-18 ")
  1. ;;5311
  1. ;;21,"68382-0707-18 ")
  1. ;;5312
  1. ;;21,"68382-0761-14 ")
  1. ;;5313
  1. ;;21,"68382-0762-14 ")
  1. ;;5314
  1. ;;21,"68382-0763-14 ")
  1. ;;5315
  1. ;;21,"68382-0764-05 ")
  1. ;;5316
  1. ;;21,"68382-0764-06 ")
  1. ;;5317
  1. ;;21,"68382-0765-05 ")
  1. ;;5318
  1. ;;21,"68382-0765-06 ")
  1. ;;5319
  1. ;;21,"68382-0782-01 ")
  1. ;;5320
  1. ;;21,"68387-0117-30 ")
  1. ;;5321
  1. ;;21,"68387-0190-20 ")
  1. ;;5322
  1. ;;21,"68387-0190-21 ")
  1. ;;5323
  1. ;;21,"68387-0190-30 ")
  1. ;;5324
  1. ;;21,"68387-0190-40 ")
  1. ;;5325
  1. ;;21,"68387-0380-20 ")
  1. ;;5326
  1. ;;21,"68387-0385-20 ")
  1. ;;5327
  1. ;;21,"68387-0385-30 ")
  1. ;;5328
  1. ;;21,"68387-0385-60 ")
  1. ;;5329
  1. ;;21,"68387-0390-20 ")
  1. ;;5330
  1. ;;21,"68387-0390-28 ")
  1. ;;5331
  1. ;;21,"68387-0430-30 ")
  1. ;;5332
  1. ;;21,"68387-0430-40 ")
  1. ;;5333
  1. ;;21,"68387-0470-14 ")
  1. ;;5334
  1. ;;21,"68387-0470-20 ")
  1. ;;5335
  1. ;;21,"68387-0534-01 ")
  1. ;;5336
  1. ;;21,"68387-0535-15 ")
  1. ;;5337
  1. ;;21,"68387-0535-20 ")
  1. ;;5338
  1. ;;21,"68387-0565-06 ")
  1. ;;5339
  1. ;;21,"68387-0580-15 ")
  1. ;;5340
  1. ;;21,"68453-0112-10 ")
  1. ;;5341
  1. ;;21,"68453-0113-10 ")
  1. ;;5342
  1. ;;21,"68453-0115-05 ")
  1. ;;5343
  1. ;;21,"68453-0142-03 ")
  1. ;;5344
  1. ;;21,"68462-0339-01 ")
  1. ;;5345
  1. ;;21,"68462-0339-05 ")
  1. ;;5346
  1. ;;21,"68462-0340-01 ")
  1. ;;5347
  1. ;;21,"68462-0340-05 ")
  1. ;;5348
  1. ;;21,"68645-0030-20 ")
  1. ;;5349
  1. ;;21,"68774-0120-60 ")
  1. ;;5350
  1. ;;21,"68774-0122-60 ")
  1. ;;5351
  1. ;;21,"68774-0302-29 ")
  1. ;;5352