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

BGP61H4.m

Go to the documentation of this file.
BGP61H4 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"65862-0008-01 ")
 ;;1102
 ;;21,"65862-0008-05 ")
 ;;1103
 ;;21,"65862-0008-90 ")
 ;;1104
 ;;21,"65862-0008-99 ")
 ;;1105
 ;;21,"65862-0009-01 ")
 ;;1106
 ;;21,"65862-0009-05 ")
 ;;1107
 ;;21,"65862-0009-90 ")
 ;;1108
 ;;21,"65862-0010-01 ")
 ;;1109
 ;;21,"65862-0010-05 ")
 ;;1110
 ;;21,"65862-0010-46 ")
 ;;1111
 ;;21,"65862-0010-90 ")
 ;;1112
 ;;21,"65862-0010-99 ")
 ;;1113
 ;;21,"65862-0080-01 ")
 ;;1114
 ;;21,"65862-0080-05 ")
 ;;1115
 ;;21,"65862-0081-01 ")
 ;;1116
 ;;21,"65862-0081-05 ")
 ;;1117
 ;;21,"65862-0082-01 ")
 ;;1118
 ;;21,"65862-0082-05 ")
 ;;1119
 ;;21,"65862-0291-01 ")
 ;;1120
 ;;21,"65862-0291-05 ")
 ;;1121
 ;;21,"65862-0292-01 ")
 ;;1122
 ;;21,"65862-0525-18 ")
 ;;1123
 ;;21,"65862-0525-60 ")
 ;;1124
 ;;21,"65862-0526-18 ")
 ;;1125
 ;;21,"65862-0526-60 ")
 ;;1126
 ;;21,"66116-0233-30 ")
 ;;1127
 ;;21,"66116-0282-60 ")
 ;;1128
 ;;21,"66116-0293-30 ")
 ;;1129
 ;;21,"66116-0454-30 ")
 ;;1130
 ;;21,"66116-0695-60 ")
 ;;1131
 ;;21,"66267-0493-14 ")
 ;;1132
 ;;21,"66267-0493-30 ")
 ;;1133
 ;;21,"66267-0493-60 ")
 ;;1134
 ;;21,"66267-0493-90 ")
 ;;1135
 ;;21,"66267-0493-91 ")
 ;;1136
 ;;21,"66267-0493-92 ")
 ;;1137
 ;;21,"66267-0493-93 ")
 ;;1138
 ;;21,"66267-0497-30 ")
 ;;1139
 ;;21,"66267-0553-30 ")
 ;;1140
 ;;21,"66336-0270-30 ")
 ;;1141
 ;;21,"66336-0270-60 ")
 ;;1142
 ;;21,"66336-0270-90 ")
 ;;1143
 ;;21,"66336-0270-94 ")
 ;;1144
 ;;21,"66336-0292-60 ")
 ;;1145
 ;;21,"66336-0319-30 ")
 ;;1146
 ;;21,"66336-0358-30 ")
 ;;1147
 ;;21,"66336-0358-60 ")
 ;;1148
 ;;21,"66336-0358-62 ")
 ;;1149
 ;;21,"66336-0358-90 ")
 ;;1150
 ;;21,"66336-0500-30 ")
 ;;1151
 ;;21,"66336-0500-90 ")
 ;;1152
 ;;21,"66336-0784-30 ")
 ;;1153
 ;;21,"66336-0784-60 ")
 ;;1154
 ;;21,"66336-0784-90 ")
 ;;1155
 ;;21,"66336-0850-30 ")
 ;;1156
 ;;21,"66336-0850-60 ")
 ;;1157
 ;;21,"66336-0850-90 ")
 ;;1158
 ;;21,"66336-0883-30 ")
 ;;1159
 ;;21,"66336-0883-60 ")
 ;;1160
 ;;21,"66336-0883-90 ")
 ;;1161
 ;;21,"66336-0884-14 ")
 ;;1162
 ;;21,"66336-0884-28 ")
 ;;1163
 ;;21,"66336-0884-30 ")
 ;;1164
 ;;21,"66336-0884-60 ")
 ;;1165
 ;;21,"66336-0884-62 ")
 ;;1166
 ;;21,"66336-0884-90 ")
 ;;1167
 ;;21,"67544-0047-30 ")
 ;;1168
 ;;21,"67544-0047-53 ")
 ;;1169
 ;;21,"67544-0047-60 ")
 ;;1170
 ;;21,"67544-0047-70 ")
 ;;1171
 ;;21,"67544-0047-75 ")
 ;;1172
 ;;21,"67544-0047-80 ")
 ;;1173
 ;;21,"67544-0047-90 ")
 ;;1174
 ;;21,"67544-0047-92 ")
 ;;1175
 ;;21,"67544-0047-94 ")
 ;;1176
 ;;21,"67544-0047-96 ")
 ;;1177
 ;;21,"67544-0107-53 ")
 ;;1178
 ;;21,"67544-0107-60 ")
 ;;1179
 ;;21,"67544-0107-80 ")
 ;;1180
 ;;21,"67544-0107-92 ")
 ;;1181
 ;;21,"67544-0163-30 ")
 ;;1182
 ;;21,"67544-0163-45 ")
 ;;1183
 ;;21,"67544-0163-53 ")
 ;;1184
 ;;21,"67544-0163-60 ")
 ;;1185
 ;;21,"67544-0163-80 ")
 ;;1186
 ;;21,"67544-0296-70 ")
 ;;1187
 ;;21,"67544-0421-60 ")
 ;;1188
 ;;21,"67544-0421-80 ")
 ;;1189
 ;;21,"67544-0421-92 ")
 ;;1190
 ;;21,"67544-0486-53 ")
 ;;1191
 ;;21,"67544-0511-70 ")
 ;;1192
 ;;21,"67544-0511-94 ")
 ;;1193
 ;;21,"67877-0159-01 ")
 ;;1194
 ;;21,"67877-0159-05 ")
 ;;1195
 ;;21,"67877-0159-10 ")
 ;;1196
 ;;21,"67877-0217-01 ")
 ;;1197
 ;;21,"67877-0217-05 ")
 ;;1198
 ;;21,"67877-0217-10 ")
 ;;1199
 ;;21,"67877-0218-01 ")
 ;;1200
 ;;21,"67877-0218-05 ")
 ;;1201
 ;;21,"67877-0218-10 ")
 ;;1202
 ;;21,"67877-0221-01 ")
 ;;1203
 ;;21,"67877-0221-05 ")
 ;;1204
 ;;21,"67877-0221-10 ")
 ;;1205
 ;;21,"68012-0002-13 ")
 ;;1206
 ;;21,"68012-0003-16 ")
 ;;1207
 ;;21,"68071-0028-30 ")
 ;;1208
 ;;21,"68071-0028-60 ")
 ;;1209
 ;;21,"68084-0072-01 ")
 ;;1210
 ;;21,"68084-0072-11 ")
 ;;1211
 ;;21,"68084-0136-01 ")
 ;;1212
 ;;21,"68084-0136-11 ")
 ;;1213
 ;;21,"68084-0137-01 ")
 ;;1214
 ;;21,"68084-0137-11 ")
 ;;1215
 ;;21,"68084-0138-01 ")
 ;;1216
 ;;21,"68084-0138-11 ")
 ;;1217
 ;;21,"68084-0745-25 ")
 ;;1218
 ;;21,"68084-0745-95 ")
 ;;1219
 ;;21,"68084-0819-32 ")
 ;;1220
 ;;21,"68084-0819-33 ")
 ;;1221
 ;;21,"68180-0336-07 ")
 ;;1222
 ;;21,"68180-0337-07 ")
 ;;1223
 ;;21,"68382-0027-05 ")
 ;;1224
 ;;21,"68382-0028-01 ")
 ;;1225
 ;;21,"68382-0028-05 ")
 ;;1226
 ;;21,"68382-0028-10 ")
 ;;1227
 ;;21,"68382-0029-01 ")
 ;;1228
 ;;21,"68382-0029-05 ")
 ;;1229
 ;;21,"68382-0029-10 ")
 ;;1230
 ;;21,"68382-0030-01 ")
 ;;1231
 ;;21,"68382-0030-05 ")
 ;;1232
 ;;21,"68382-0030-10 ")
 ;;1233
 ;;21,"68382-0039-05 ")
 ;;1234
 ;;21,"68382-0758-10 ")
 ;;1235
 ;;21,"68382-0759-05 ")
 ;;1236
 ;;21,"68382-0759-10 ")
 ;;1237
 ;;21,"68382-0760-05 ")
 ;;1238
 ;;21,"68382-0760-10 ")
 ;;1239
 ;;21,"68462-0159-01 ")
 ;;1240
 ;;21,"68462-0159-05 ")
 ;;1241
 ;;21,"68462-0159-10 ")
 ;;1242
 ;;21,"68462-0159-18 ")
 ;;1243
 ;;21,"68462-0159-90 ")
 ;;1244
 ;;21,"68462-0160-01 ")
 ;;1245
 ;;21,"68462-0160-05 ")
 ;;1246
 ;;21,"68462-0160-10 ")
 ;;1247
 ;;21,"68462-0160-18 ")
 ;;1248
 ;;21,"68462-0160-90 ")
 ;;1249
 ;;21,"68462-0161-01 ")
 ;;1250
 ;;21,"68462-0161-05 ")
 ;;1251
 ;;21,"68462-0161-10 ")
 ;;1252
 ;;21,"68462-0161-18 ")
 ;;1253
 ;;21,"68462-0161-90 ")
 ;;1254
 ;;21,"68645-0290-59 ")
 ;;1255
 ;;21,"68645-0300-59 ")
 ;;1256
 ;;21,"68788-0397-03 ")
 ;;1257
 ;;21,"68788-0397-06 ")
 ;;1258
 ;;21,"68788-0474-03 ")
 ;;1259
 ;;21,"68788-0474-06 ")
 ;;1260
 ;;21,"68788-9121-03 ")
 ;;1261
 ;;21,"68788-9121-06 ")
 ;;1262
 ;;21,"68788-9122-03 ")
 ;;1263
 ;;21,"68788-9122-06 ")
 ;;1264
 ;;21,"68788-9128-03 ")
 ;;1265
 ;;21,"68788-9128-06 ")
 ;;1266
 ;;21,"68788-9128-09 ")
 ;;1267
 ;;21,"68788-9716-03 ")
 ;;1268
 ;;21,"68788-9716-06 ")
 ;;1269
 ;;21,"68788-9716-09 ")
 ;;1270
 ;;21,"68788-9728-03 ")
 ;;1271
 ;;9002226,1221,.01)
 ;;BGP PQA BIGUANIDE NDC
 ;;9002226,1221,.02)
 ;;@
 ;;9002226,1221,.04)
 ;;n
 ;;9002226,1221,.06)
 ;;@
 ;;9002226,1221,.08)
 ;;@
 ;;9002226,1221,.09)
 ;;3150818
 ;;9002226,1221,.11)
 ;;@
 ;;9002226,1221,.12)
 ;;@
 ;;9002226,1221,.13)
 ;;1
 ;;9002226,1221,.14)
 ;;@
 ;;9002226,1221,.15)
 ;;50.67
 ;;9002226,1221,.16)
 ;;@
 ;;9002226,1221,.17)
 ;;@
 ;;9002226,1221,3101)
 ;;@
 ;;9002226.02101,"1221,00003-4221-11 ",.01)
 ;;00003-4221-11
 ;;9002226.02101,"1221,00003-4221-11 ",.02)
 ;;00003-4221-11
 ;;9002226.02101,"1221,00003-4222-16 ",.01)
 ;;00003-4222-16
 ;;9002226.02101,"1221,00003-4222-16 ",.02)
 ;;00003-4222-16
 ;;9002226.02101,"1221,00003-4223-11 ",.01)
 ;;00003-4223-11
 ;;9002226.02101,"1221,00003-4223-11 ",.02)
 ;;00003-4223-11
 ;;9002226.02101,"1221,00006-0078-61 ",.01)
 ;;00006-0078-61
 ;;9002226.02101,"1221,00006-0078-61 ",.02)
 ;;00006-0078-61
 ;;9002226.02101,"1221,00006-0078-62 ",.01)
 ;;00006-0078-62
 ;;9002226.02101,"1221,00006-0078-62 ",.02)
 ;;00006-0078-62
 ;;9002226.02101,"1221,00006-0078-82 ",.01)
 ;;00006-0078-82
 ;;9002226.02101,"1221,00006-0078-82 ",.02)
 ;;00006-0078-82
 ;;9002226.02101,"1221,00006-0080-61 ",.01)
 ;;00006-0080-61
 ;;9002226.02101,"1221,00006-0080-61 ",.02)
 ;;00006-0080-61
 ;;9002226.02101,"1221,00006-0080-62 ",.01)
 ;;00006-0080-62
 ;;9002226.02101,"1221,00006-0080-62 ",.02)
 ;;00006-0080-62
 ;;9002226.02101,"1221,00006-0080-82 ",.01)
 ;;00006-0080-82
 ;;9002226.02101,"1221,00006-0080-82 ",.02)
 ;;00006-0080-82
 ;;9002226.02101,"1221,00006-0081-31 ",.01)
 ;;00006-0081-31
 ;;9002226.02101,"1221,00006-0081-31 ",.02)
 ;;00006-0081-31
 ;;9002226.02101,"1221,00006-0081-54 ",.01)
 ;;00006-0081-54
 ;;9002226.02101,"1221,00006-0081-54 ",.02)
 ;;00006-0081-54
 ;;9002226.02101,"1221,00006-0081-82 ",.01)
 ;;00006-0081-82
 ;;9002226.02101,"1221,00006-0081-82 ",.02)
 ;;00006-0081-82
 ;;9002226.02101,"1221,00006-0575-52 ",.01)
 ;;00006-0575-52
 ;;9002226.02101,"1221,00006-0575-52 ",.02)
 ;;00006-0575-52
 ;;9002226.02101,"1221,00006-0575-61 ",.01)
 ;;00006-0575-61
 ;;9002226.02101,"1221,00006-0575-61 ",.02)
 ;;00006-0575-61
 ;;9002226.02101,"1221,00006-0575-62 ",.01)
 ;;00006-0575-62
 ;;9002226.02101,"1221,00006-0575-62 ",.02)
 ;;00006-0575-62
 ;;9002226.02101,"1221,00006-0575-82 ",.01)
 ;;00006-0575-82
 ;;9002226.02101,"1221,00006-0575-82 ",.02)
 ;;00006-0575-82
 ;;9002226.02101,"1221,00006-0577-52 ",.01)
 ;;00006-0577-52
 ;;9002226.02101,"1221,00006-0577-52 ",.02)
 ;;00006-0577-52
 ;;9002226.02101,"1221,00006-0577-61 ",.01)
 ;;00006-0577-61
 ;;9002226.02101,"1221,00006-0577-61 ",.02)
 ;;00006-0577-61
 ;;9002226.02101,"1221,00006-0577-62 ",.01)
 ;;00006-0577-62
 ;;9002226.02101,"1221,00006-0577-62 ",.02)
 ;;00006-0577-62
 ;;9002226.02101,"1221,00006-0577-82 ",.01)
 ;;00006-0577-82
 ;;9002226.02101,"1221,00006-0577-82 ",.02)
 ;;00006-0577-82
 ;;9002226.02101,"1221,00087-6060-05 ",.01)
 ;;00087-6060-05
 ;;9002226.02101,"1221,00087-6060-05 ",.02)
 ;;00087-6060-05
 ;;9002226.02101,"1221,00087-6060-10 ",.01)
 ;;00087-6060-10
 ;;9002226.02101,"1221,00087-6060-10 ",.02)
 ;;00087-6060-10
 ;;9002226.02101,"1221,00087-6063-13 ",.01)
 ;;00087-6063-13
 ;;9002226.02101,"1221,00087-6063-13 ",.02)
 ;;00087-6063-13
 ;;9002226.02101,"1221,00087-6064-13 ",.01)
 ;;00087-6064-13
 ;;9002226.02101,"1221,00087-6064-13 ",.02)
 ;;00087-6064-13
 ;;9002226.02101,"1221,00087-6070-05 ",.01)
 ;;00087-6070-05
 ;;9002226.02101,"1221,00087-6070-05 ",.02)
 ;;00087-6070-05
 ;;9002226.02101,"1221,00087-6071-11 ",.01)
 ;;00087-6071-11
 ;;9002226.02101,"1221,00087-6071-11 ",.02)
 ;;00087-6071-11
 ;;9002226.02101,"1221,00087-6072-11 ",.01)
 ;;00087-6072-11
 ;;9002226.02101,"1221,00087-6072-11 ",.02)
 ;;00087-6072-11
 ;;9002226.02101,"1221,00087-6073-11 ",.01)
 ;;00087-6073-11
 ;;9002226.02101,"1221,00087-6073-11 ",.02)
 ;;00087-6073-11
 ;;9002226.02101,"1221,00087-6074-11 ",.01)
 ;;00087-6074-11
 ;;9002226.02101,"1221,00087-6074-11 ",.02)
 ;;00087-6074-11
 ;;9002226.02101,"1221,00093-1048-01 ",.01)
 ;;00093-1048-01
 ;;9002226.02101,"1221,00093-1048-01 ",.02)
 ;;00093-1048-01
 ;;9002226.02101,"1221,00093-1048-10 ",.01)
 ;;00093-1048-10
 ;;9002226.02101,"1221,00093-1048-10 ",.02)
 ;;00093-1048-10
 ;;9002226.02101,"1221,00093-1048-19 ",.01)
 ;;00093-1048-19
 ;;9002226.02101,"1221,00093-1048-19 ",.02)
 ;;00093-1048-19
 ;;9002226.02101,"1221,00093-1048-93 ",.01)
 ;;00093-1048-93
 ;;9002226.02101,"1221,00093-1048-93 ",.02)
 ;;00093-1048-93
 ;;9002226.02101,"1221,00093-1048-98 ",.01)
 ;;00093-1048-98
 ;;9002226.02101,"1221,00093-1048-98 ",.02)
 ;;00093-1048-98
 ;;9002226.02101,"1221,00093-1049-01 ",.01)
 ;;00093-1049-01
 ;;9002226.02101,"1221,00093-1049-01 ",.02)
 ;;00093-1049-01
 ;;9002226.02101,"1221,00093-1049-10 ",.01)
 ;;00093-1049-10
 ;;9002226.02101,"1221,00093-1049-10 ",.02)
 ;;00093-1049-10
 ;;9002226.02101,"1221,00093-1049-98 ",.01)
 ;;00093-1049-98
 ;;9002226.02101,"1221,00093-1049-98 ",.02)
 ;;00093-1049-98
 ;;9002226.02101,"1221,00093-5049-06 ",.01)
 ;;00093-5049-06
 ;;9002226.02101,"1221,00093-5049-06 ",.02)
 ;;00093-5049-06
 ;;9002226.02101,"1221,00093-5049-86 ",.01)
 ;;00093-5049-86
 ;;9002226.02101,"1221,00093-5049-86 ",.02)
 ;;00093-5049-86
 ;;9002226.02101,"1221,00093-5050-06 ",.01)
 ;;00093-5050-06
 ;;9002226.02101,"1221,00093-5050-06 ",.02)
 ;;00093-5050-06
 ;;9002226.02101,"1221,00093-5050-86 ",.01)
 ;;00093-5050-86
 ;;9002226.02101,"1221,00093-5050-86 ",.02)
 ;;00093-5050-86
 ;;9002226.02101,"1221,00093-5710-01 ",.01)
 ;;00093-5710-01
 ;;9002226.02101,"1221,00093-5710-01 ",.02)
 ;;00093-5710-01
 ;;9002226.02101,"1221,00093-5710-05 ",.01)
 ;;00093-5710-05
 ;;9002226.02101,"1221,00093-5710-05 ",.02)
 ;;00093-5710-05
 ;;9002226.02101,"1221,00093-5710-19 ",.01)
 ;;00093-5710-19
 ;;9002226.02101,"1221,00093-5710-19 ",.02)
 ;;00093-5710-19
 ;;9002226.02101,"1221,00093-5710-93 ",.01)
 ;;00093-5710-93
 ;;9002226.02101,"1221,00093-5710-93 ",.02)
 ;;00093-5710-93
 ;;9002226.02101,"1221,00093-5711-01 ",.01)
 ;;00093-5711-01
 ;;9002226.02101,"1221,00093-5711-01 ",.02)
 ;;00093-5711-01
 ;;9002226.02101,"1221,00093-5711-05 ",.01)
 ;;00093-5711-05
 ;;9002226.02101,"1221,00093-5711-05 ",.02)
 ;;00093-5711-05
 ;;9002226.02101,"1221,00093-5711-19 ",.01)
 ;;00093-5711-19
 ;;9002226.02101,"1221,00093-5711-19 ",.02)
 ;;00093-5711-19
 ;;9002226.02101,"1221,00093-5711-93 ",.01)
 ;;00093-5711-93
 ;;9002226.02101,"1221,00093-5711-93 ",.02)
 ;;00093-5711-93
 ;;9002226.02101,"1221,00093-5712-01 ",.01)
 ;;00093-5712-01
 ;;9002226.02101,"1221,00093-5712-01 ",.02)
 ;;00093-5712-01
 ;;9002226.02101,"1221,00093-5712-05 ",.01)
 ;;00093-5712-05