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