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

BGP61E7.m

Go to the documentation of this file.
BGP61E7 ; 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,"67544-0911-80 ")
 ;;2179
 ;;21,"67544-0911-92 ")
 ;;2180
 ;;21,"67544-0911-94 ")
 ;;2181
 ;;21,"67544-0911-98 ")
 ;;2182
 ;;21,"67544-0929-60 ")
 ;;2183
 ;;21,"67857-0700-01 ")
 ;;2184
 ;;21,"67857-0701-01 ")
 ;;2185
 ;;21,"68001-0119-00 ")
 ;;2186
 ;;21,"68001-0119-03 ")
 ;;2187
 ;;21,"68001-0120-00 ")
 ;;2188
 ;;21,"68001-0120-03 ")
 ;;2189
 ;;21,"68001-0121-00 ")
 ;;2190
 ;;21,"68001-0121-03 ")
 ;;2191
 ;;21,"68001-0122-00 ")
 ;;2192
 ;;21,"68001-0122-03 ")
 ;;2193
 ;;21,"68001-0151-00 ")
 ;;2194
 ;;21,"68001-0151-03 ")
 ;;2195
 ;;21,"68001-0152-00 ")
 ;;2196
 ;;21,"68001-0152-03 ")
 ;;2197
 ;;21,"68001-0153-00 ")
 ;;2198
 ;;21,"68001-0153-03 ")
 ;;2199
 ;;21,"68001-0154-00 ")
 ;;2200
 ;;21,"68001-0154-03 ")
 ;;2201
 ;;21,"68001-0204-00 ")
 ;;2202
 ;;21,"68001-0204-03 ")
 ;;2203
 ;;21,"68001-0205-00 ")
 ;;2204
 ;;21,"68001-0205-03 ")
 ;;2205
 ;;21,"68001-0206-00 ")
 ;;2206
 ;;21,"68001-0206-03 ")
 ;;2207
 ;;21,"68001-0219-00 ")
 ;;2208
 ;;21,"68001-0220-00 ")
 ;;2209
 ;;21,"68001-0220-08 ")
 ;;2210
 ;;21,"68001-0221-00 ")
 ;;2211
 ;;21,"68071-0288-30 ")
 ;;2212
 ;;21,"68071-0841-30 ")
 ;;2213
 ;;21,"68071-0856-30 ")
 ;;2214
 ;;21,"68084-0209-01 ")
 ;;2215
 ;;21,"68084-0209-11 ")
 ;;2216
 ;;21,"68084-0210-01 ")
 ;;2217
 ;;21,"68084-0210-11 ")
 ;;2218
 ;;21,"68084-0211-01 ")
 ;;2219
 ;;21,"68084-0211-11 ")
 ;;2220
 ;;21,"68084-0212-01 ")
 ;;2221
 ;;21,"68084-0212-11 ")
 ;;2222
 ;;21,"68084-0261-01 ")
 ;;2223
 ;;21,"68084-0261-11 ")
 ;;2224
 ;;21,"68084-0262-01 ")
 ;;2225
 ;;21,"68084-0262-11 ")
 ;;2226
 ;;21,"68084-0263-01 ")
 ;;2227
 ;;21,"68084-0263-11 ")
 ;;2228
 ;;21,"68084-0264-01 ")
 ;;2229
 ;;21,"68084-0264-11 ")
 ;;2230
 ;;21,"68084-0301-01 ")
 ;;2231
 ;;21,"68084-0301-11 ")
 ;;2232
 ;;21,"68084-0302-11 ")
 ;;2233
 ;;21,"68084-0302-21 ")
 ;;2234
 ;;21,"68084-0303-01 ")
 ;;2235
 ;;21,"68084-0303-11 ")
 ;;2236
 ;;21,"68084-0304-01 ")
 ;;2237
 ;;21,"68084-0304-11 ")
 ;;2238
 ;;21,"68084-0456-01 ")
 ;;2239
 ;;21,"68084-0456-11 ")
 ;;2240
 ;;21,"68084-0457-01 ")
 ;;2241
 ;;21,"68084-0457-11 ")
 ;;2242
 ;;21,"68084-0487-11 ")
 ;;2243
 ;;21,"68084-0487-21 ")
 ;;2244
 ;;21,"68084-0503-01 ")
 ;;2245
 ;;21,"68084-0503-11 ")
 ;;2246
 ;;21,"68084-0504-01 ")
 ;;2247
 ;;21,"68084-0504-11 ")
 ;;2248
 ;;21,"68084-0659-01 ")
 ;;2249
 ;;21,"68084-0659-11 ")
 ;;2250
 ;;21,"68084-0666-01 ")
 ;;2251
 ;;21,"68084-0666-11 ")
 ;;2252
 ;;21,"68084-0673-01 ")
 ;;2253
 ;;21,"68084-0673-11 ")
 ;;2254
 ;;21,"68084-0755-11 ")
 ;;2255
 ;;21,"68084-0755-21 ")
 ;;2256
 ;;21,"68084-0763-11 ")
 ;;2257
 ;;21,"68084-0763-21 ")
 ;;2258
 ;;21,"68084-0843-01 ")
 ;;2259
 ;;21,"68084-0843-11 ")
 ;;2260
 ;;21,"68084-0854-01 ")
 ;;2261
 ;;21,"68084-0854-11 ")
 ;;2262
 ;;21,"68084-0865-01 ")
 ;;2263
 ;;21,"68084-0865-11 ")
 ;;2264
 ;;21,"68084-0876-01 ")
 ;;2265
 ;;21,"68084-0876-11 ")
 ;;2266
 ;;21,"68258-6010-01 ")
 ;;2267
 ;;21,"68258-6010-03 ")
 ;;2268
 ;;21,"68258-6010-09 ")
 ;;2269
 ;;21,"68258-6011-03 ")
 ;;2270
 ;;21,"68258-6011-09 ")
 ;;2271
 ;;21,"68258-6015-03 ")
 ;;2272
 ;;21,"68258-6015-08 ")
 ;;2273
 ;;21,"68258-6018-03 ")
 ;;2274
 ;;21,"68258-6018-09 ")
 ;;2275
 ;;21,"68258-6019-03 ")
 ;;2276
 ;;21,"68258-6019-06 ")
 ;;2277
 ;;21,"68258-6019-09 ")
 ;;2278
 ;;21,"68258-6020-03 ")
 ;;2279
 ;;21,"68258-6020-09 ")
 ;;2280
 ;;21,"68258-6026-03 ")
 ;;2281
 ;;21,"68258-6026-09 ")
 ;;2282
 ;;21,"68258-6033-03 ")
 ;;2283
 ;;21,"68258-6033-06 ")
 ;;2284
 ;;21,"68258-6033-09 ")
 ;;2285
 ;;21,"68258-6034-03 ")
 ;;2286
 ;;21,"68258-6039-03 ")
 ;;2287
 ;;21,"68258-6047-03 ")
 ;;2288
 ;;21,"68258-6047-09 ")
 ;;2289
 ;;21,"68258-6057-06 ")
 ;;2290
 ;;21,"68258-6062-03 ")
 ;;2291
 ;;21,"68258-6063-03 ")
 ;;2292
 ;;21,"68258-6064-03 ")
 ;;2293
 ;;21,"68258-6091-03 ")
 ;;2294
 ;;21,"68258-6092-03 ")
 ;;2295
 ;;21,"68258-6093-03 ")
 ;;2296
 ;;21,"68258-6104-03 ")
 ;;2297
 ;;21,"68258-6104-09 ")
 ;;2298
 ;;21,"68258-6964-03 ")
 ;;2299
 ;;21,"68258-6982-30 ")
 ;;2300
 ;;21,"68258-6987-03 ")
 ;;2301
 ;;21,"68258-6988-03 ")
 ;;2302
 ;;21,"68382-0022-01 ")
 ;;2303
 ;;21,"68382-0022-10 ")
 ;;2304
 ;;21,"68382-0023-01 ")
 ;;2305
 ;;21,"68382-0023-10 ")
 ;;2306
 ;;21,"68382-0024-01 ")
 ;;2307
 ;;21,"68382-0024-10 ")
 ;;2308
 ;;21,"68382-0092-01 ")
 ;;2309
 ;;21,"68382-0092-05 ")
 ;;2310
 ;;21,"68382-0092-17 ")
 ;;2311
 ;;21,"68382-0093-01 ")
 ;;2312
 ;;21,"68382-0093-05 ")
 ;;2313
 ;;21,"68382-0093-17 ")
 ;;2314
 ;;21,"68382-0094-01 ")
 ;;2315
 ;;21,"68382-0094-05 ")
 ;;2316
 ;;21,"68382-0094-17 ")
 ;;2317
 ;;21,"68382-0095-01 ")
 ;;2318
 ;;21,"68382-0095-05 ")
 ;;2319
 ;;21,"68382-0095-17 ")
 ;;2320
 ;;21,"68387-0538-30 ")
 ;;2321
 ;;21,"68387-0539-30 ")
 ;;2322
 ;;21,"68462-0162-01 ")
 ;;2323
 ;;21,"68462-0162-05 ")
 ;;2324
 ;;21,"68462-0163-01 ")
 ;;2325
 ;;21,"68462-0163-05 ")
 ;;2326
 ;;21,"68462-0164-01 ")
 ;;2327
 ;;21,"68462-0164-05 ")
 ;;2328
 ;;21,"68462-0165-01 ")
 ;;2329
 ;;21,"68462-0165-05 ")
 ;;2330
 ;;21,"68645-0190-59 ")
 ;;2331
 ;;21,"68645-0191-59 ")
 ;;2332
 ;;21,"68645-0310-54 ")
 ;;2333
 ;;21,"68645-0350-59 ")
 ;;2334
 ;;21,"68645-0351-59 ")
 ;;2335
 ;;21,"68645-0352-59 ")
 ;;2336
 ;;21,"68645-0468-59 ")
 ;;2337
 ;;21,"68645-0477-54 ")
 ;;2338
 ;;21,"68645-0478-54 ")
 ;;2339
 ;;21,"68645-0479-54 ")
 ;;2340
 ;;21,"68645-0493-54 ")
 ;;2341
 ;;21,"68645-0496-59 ")
 ;;2342
 ;;21,"68788-9048-03 ")
 ;;2343
 ;;21,"68788-9049-03 ")
 ;;2344
 ;;21,"68788-9691-03 ")
 ;;2345
 ;;21,"68788-9738-03 ")
 ;;2346
 ;;21,"68788-9789-03 ")
 ;;2347
 ;;21,"76299-0420-85 ")
 ;;2348
 ;;21,"76299-0420-88 ")
 ;;2349
 ;;21,"76299-0422-85 ")
 ;;2350
 ;;21,"76299-0422-88 ")
 ;;2351
 ;;9002226,1218,.01)
 ;;BGP PQA BETA BLOCKER NDC
 ;;9002226,1218,.02)
 ;;@
 ;;9002226,1218,.04)
 ;;n
 ;;9002226,1218,.06)
 ;;@
 ;;9002226,1218,.08)
 ;;@
 ;;9002226,1218,.09)
 ;;3150818
 ;;9002226,1218,.11)
 ;;@
 ;;9002226,1218,.12)
 ;;@
 ;;9002226,1218,.13)
 ;;1
 ;;9002226,1218,.14)
 ;;@
 ;;9002226,1218,.15)
 ;;50.67
 ;;9002226,1218,.16)
 ;;@
 ;;9002226,1218,.17)
 ;;@
 ;;9002226,1218,3101)
 ;;@
 ;;9002226.02101,"1218,00007-3370-13 ",.01)
 ;;00007-3370-13
 ;;9002226.02101,"1218,00007-3370-13 ",.02)
 ;;00007-3370-13
 ;;9002226.02101,"1218,00007-3371-13 ",.01)
 ;;00007-3371-13
 ;;9002226.02101,"1218,00007-3371-13 ",.02)
 ;;00007-3371-13
 ;;9002226.02101,"1218,00007-3372-13 ",.01)
 ;;00007-3372-13
 ;;9002226.02101,"1218,00007-3372-13 ",.02)
 ;;00007-3372-13
 ;;9002226.02101,"1218,00007-3373-13 ",.01)
 ;;00007-3373-13
 ;;9002226.02101,"1218,00007-3373-13 ",.02)
 ;;00007-3373-13
 ;;9002226.02101,"1218,00007-4139-20 ",.01)
 ;;00007-4139-20
 ;;9002226.02101,"1218,00007-4139-20 ",.02)
 ;;00007-4139-20
 ;;9002226.02101,"1218,00007-4140-20 ",.01)
 ;;00007-4140-20
 ;;9002226.02101,"1218,00007-4140-20 ",.02)
 ;;00007-4140-20
 ;;9002226.02101,"1218,00007-4141-20 ",.01)
 ;;00007-4141-20
 ;;9002226.02101,"1218,00007-4141-20 ",.02)
 ;;00007-4141-20
 ;;9002226.02101,"1218,00007-4142-20 ",.01)
 ;;00007-4142-20
 ;;9002226.02101,"1218,00007-4142-20 ",.02)
 ;;00007-4142-20
 ;;9002226.02101,"1218,00024-2300-20 ",.01)
 ;;00024-2300-20
 ;;9002226.02101,"1218,00024-2300-20 ",.02)
 ;;00024-2300-20
 ;;9002226.02101,"1218,00024-2301-10 ",.01)
 ;;00024-2301-10
 ;;9002226.02101,"1218,00024-2301-10 ",.02)
 ;;00024-2301-10
 ;;9002226.02101,"1218,00054-3727-63 ",.01)
 ;;00054-3727-63
 ;;9002226.02101,"1218,00054-3727-63 ",.02)
 ;;00054-3727-63
 ;;9002226.02101,"1218,00054-3730-63 ",.01)
 ;;00054-3730-63
 ;;9002226.02101,"1218,00054-3730-63 ",.02)
 ;;00054-3730-63
 ;;9002226.02101,"1218,00078-0458-05 ",.01)
 ;;00078-0458-05
 ;;9002226.02101,"1218,00078-0458-05 ",.02)
 ;;00078-0458-05
 ;;9002226.02101,"1218,00078-0459-05 ",.01)
 ;;00078-0459-05
 ;;9002226.02101,"1218,00078-0459-05 ",.02)
 ;;00078-0459-05
 ;;9002226.02101,"1218,00078-0460-05 ",.01)
 ;;00078-0460-05
 ;;9002226.02101,"1218,00078-0460-05 ",.02)
 ;;00078-0460-05
 ;;9002226.02101,"1218,00078-0461-05 ",.01)
 ;;00078-0461-05
 ;;9002226.02101,"1218,00078-0461-05 ",.02)
 ;;00078-0461-05
 ;;9002226.02101,"1218,00091-4500-15 ",.01)
 ;;00091-4500-15
 ;;9002226.02101,"1218,00091-4500-15 ",.02)
 ;;00091-4500-15
 ;;9002226.02101,"1218,00093-0051-01 ",.01)
 ;;00093-0051-01
 ;;9002226.02101,"1218,00093-0051-01 ",.02)
 ;;00093-0051-01
 ;;9002226.02101,"1218,00093-0051-05 ",.01)
 ;;00093-0051-05
 ;;9002226.02101,"1218,00093-0051-05 ",.02)
 ;;00093-0051-05
 ;;9002226.02101,"1218,00093-0135-01 ",.01)
 ;;00093-0135-01
 ;;9002226.02101,"1218,00093-0135-01 ",.02)
 ;;00093-0135-01
 ;;9002226.02101,"1218,00093-0135-05 ",.01)
 ;;00093-0135-05
 ;;9002226.02101,"1218,00093-0135-05 ",.02)
 ;;00093-0135-05
 ;;9002226.02101,"1218,00093-0733-01 ",.01)
 ;;00093-0733-01
 ;;9002226.02101,"1218,00093-0733-01 ",.02)
 ;;00093-0733-01
 ;;9002226.02101,"1218,00093-0733-10 ",.01)
 ;;00093-0733-10
 ;;9002226.02101,"1218,00093-0733-10 ",.02)
 ;;00093-0733-10
 ;;9002226.02101,"1218,00093-0734-01 ",.01)
 ;;00093-0734-01
 ;;9002226.02101,"1218,00093-0734-01 ",.02)
 ;;00093-0734-01
 ;;9002226.02101,"1218,00093-0734-10 ",.01)
 ;;00093-0734-10
 ;;9002226.02101,"1218,00093-0734-10 ",.02)
 ;;00093-0734-10
 ;;9002226.02101,"1218,00093-0752-01 ",.01)
 ;;00093-0752-01
 ;;9002226.02101,"1218,00093-0752-01 ",.02)
 ;;00093-0752-01
 ;;9002226.02101,"1218,00093-0752-10 ",.01)
 ;;00093-0752-10
 ;;9002226.02101,"1218,00093-0752-10 ",.02)
 ;;00093-0752-10
 ;;9002226.02101,"1218,00093-0753-01 ",.01)
 ;;00093-0753-01
 ;;9002226.02101,"1218,00093-0753-01 ",.02)
 ;;00093-0753-01
 ;;9002226.02101,"1218,00093-0753-05 ",.01)
 ;;00093-0753-05
 ;;9002226.02101,"1218,00093-0753-05 ",.02)
 ;;00093-0753-05
 ;;9002226.02101,"1218,00093-0787-01 ",.01)
 ;;00093-0787-01
 ;;9002226.02101,"1218,00093-0787-01 ",.02)
 ;;00093-0787-01
 ;;9002226.02101,"1218,00093-0787-10 ",.01)
 ;;00093-0787-10
 ;;9002226.02101,"1218,00093-0787-10 ",.02)
 ;;00093-0787-10
 ;;9002226.02101,"1218,00093-4235-01 ",.01)
 ;;00093-4235-01
 ;;9002226.02101,"1218,00093-4235-01 ",.02)
 ;;00093-4235-01
 ;;9002226.02101,"1218,00093-4236-01 ",.01)
 ;;00093-4236-01
 ;;9002226.02101,"1218,00093-4236-01 ",.02)
 ;;00093-4236-01
 ;;9002226.02101,"1218,00093-4237-01 ",.01)
 ;;00093-4237-01
 ;;9002226.02101,"1218,00093-4237-01 ",.02)
 ;;00093-4237-01
 ;;9002226.02101,"1218,00093-5270-56 ",.01)
 ;;00093-5270-56
 ;;9002226.02101,"1218,00093-5270-56 ",.02)
 ;;00093-5270-56
 ;;9002226.02101,"1218,00093-5271-56 ",.01)
 ;;00093-5271-56
 ;;9002226.02101,"1218,00093-5271-56 ",.02)
 ;;00093-5271-56
 ;;9002226.02101,"1218,00093-7295-01 ",.01)
 ;;00093-7295-01
 ;;9002226.02101,"1218,00093-7295-01 ",.02)
 ;;00093-7295-01
 ;;9002226.02101,"1218,00093-7295-05 ",.01)
 ;;00093-7295-05
 ;;9002226.02101,"1218,00093-7295-05 ",.02)
 ;;00093-7295-05
 ;;9002226.02101,"1218,00093-7296-01 ",.01)
 ;;00093-7296-01
 ;;9002226.02101,"1218,00093-7296-01 ",.02)
 ;;00093-7296-01
 ;;9002226.02101,"1218,00093-7296-05 ",.01)
 ;;00093-7296-05
 ;;9002226.02101,"1218,00093-7296-05 ",.02)
 ;;00093-7296-05
 ;;9002226.02101,"1218,00115-5311-01 ",.01)
 ;;00115-5311-01
 ;;9002226.02101,"1218,00115-5311-01 ",.02)
 ;;00115-5311-01
 ;;9002226.02101,"1218,00115-5322-01 ",.01)
 ;;00115-5322-01
 ;;9002226.02101,"1218,00115-5322-01 ",.02)
 ;;00115-5322-01
 ;;9002226.02101,"1218,00172-4364-00 ",.01)
 ;;00172-4364-00
 ;;9002226.02101,"1218,00172-4364-00 ",.02)
 ;;00172-4364-00
 ;;9002226.02101,"1218,00172-4364-10 ",.01)
 ;;00172-4364-10
 ;;9002226.02101,"1218,00172-4364-10 ",.02)
 ;;00172-4364-10
 ;;9002226.02101,"1218,00172-4364-60 ",.01)
 ;;00172-4364-60
 ;;9002226.02101,"1218,00172-4364-60 ",.02)
 ;;00172-4364-60
 ;;9002226.02101,"1218,00172-4364-70 ",.01)
 ;;00172-4364-70
 ;;9002226.02101,"1218,00172-4364-70 ",.02)
 ;;00172-4364-70
 ;;9002226.02101,"1218,00172-4365-00 ",.01)
 ;;00172-4365-00
 ;;9002226.02101,"1218,00172-4365-00 ",.02)
 ;;00172-4365-00
 ;;9002226.02101,"1218,00172-4365-10 ",.01)
 ;;00172-4365-10
 ;;9002226.02101,"1218,00172-4365-10 ",.02)
 ;;00172-4365-10
 ;;9002226.02101,"1218,00172-4365-60 ",.01)
 ;;00172-4365-60
 ;;9002226.02101,"1218,00172-4365-60 ",.02)
 ;;00172-4365-60
 ;;9002226.02101,"1218,00172-4365-70 ",.01)
 ;;00172-4365-70