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

BGP7LXGD.m

Go to the documentation of this file.
BGP7LXGD ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 28, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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,"63874-0227-09 ")
 ;;1214
 ;;21,"63874-0227-10 ")
 ;;1215
 ;;21,"63874-0227-12 ")
 ;;1216
 ;;21,"63874-0227-14 ")
 ;;1217
 ;;21,"63874-0227-15 ")
 ;;1218
 ;;21,"63874-0227-16 ")
 ;;1219
 ;;21,"63874-0227-18 ")
 ;;1220
 ;;21,"63874-0227-20 ")
 ;;1221
 ;;21,"63874-0227-21 ")
 ;;1222
 ;;21,"63874-0227-24 ")
 ;;1223
 ;;21,"63874-0227-28 ")
 ;;1224
 ;;21,"63874-0227-30 ")
 ;;1225
 ;;21,"63874-0227-36 ")
 ;;1226
 ;;21,"63874-0227-40 ")
 ;;1227
 ;;21,"63874-0227-50 ")
 ;;1228
 ;;21,"63874-0227-60 ")
 ;;1229
 ;;21,"63874-0227-72 ")
 ;;1230
 ;;21,"63874-0227-74 ")
 ;;1231
 ;;21,"63874-0227-77 ")
 ;;1232
 ;;21,"63874-0227-87 ")
 ;;1233
 ;;21,"63874-0227-90 ")
 ;;1234
 ;;21,"63874-0228-01 ")
 ;;1235
 ;;21,"63874-0228-02 ")
 ;;1236
 ;;21,"63874-0228-04 ")
 ;;1237
 ;;21,"63874-0228-06 ")
 ;;1238
 ;;21,"63874-0228-09 ")
 ;;1239
 ;;21,"63874-0228-10 ")
 ;;1240
 ;;21,"63874-0228-12 ")
 ;;1241
 ;;21,"63874-0228-15 ")
 ;;1242
 ;;21,"63874-0228-20 ")
 ;;1243
 ;;21,"63874-0228-28 ")
 ;;1244
 ;;21,"63874-0228-30 ")
 ;;1245
 ;;21,"63874-0228-40 ")
 ;;1246
 ;;21,"63874-0228-60 ")
 ;;1247
 ;;21,"63874-0228-72 ")
 ;;1248
 ;;21,"63874-0228-74 ")
 ;;1249
 ;;21,"63874-0228-77 ")
 ;;1250
 ;;21,"63874-0228-90 ")
 ;;1251
 ;;21,"63874-0256-01 ")
 ;;1252
 ;;21,"63874-0256-02 ")
 ;;1253
 ;;21,"63874-0256-08 ")
 ;;1254
 ;;21,"63874-0256-10 ")
 ;;1255
 ;;21,"63874-0256-12 ")
 ;;1256
 ;;21,"63874-0256-14 ")
 ;;1257
 ;;21,"63874-0256-15 ")
 ;;1258
 ;;21,"63874-0256-20 ")
 ;;1259
 ;;21,"63874-0256-21 ")
 ;;1260
 ;;21,"63874-0256-24 ")
 ;;1261
 ;;21,"63874-0256-25 ")
 ;;1262
 ;;21,"63874-0256-28 ")
 ;;1263
 ;;21,"63874-0256-30 ")
 ;;1264
 ;;21,"63874-0256-40 ")
 ;;1265
 ;;21,"63874-0256-50 ")
 ;;1266
 ;;21,"63874-0256-60 ")
 ;;1267
 ;;21,"63874-0274-10 ")
 ;;1268
 ;;21,"63874-0274-12 ")
 ;;1269
 ;;21,"63874-0274-30 ")
 ;;1270
 ;;21,"64543-0114-01 ")
 ;;1166
 ;;21,"66116-0477-30 ")
 ;;1151
 ;;21,"66267-0032-15 ")
 ;;1152
 ;;21,"66267-0032-20 ")
 ;;1153
 ;;21,"66267-0032-30 ")
 ;;1154
 ;;21,"66267-0068-02 ")
 ;;584
 ;;21,"66490-0650-20 ")
 ;;594
 ;;21,"66490-0651-20 ")
 ;;592
 ;;21,"66490-0652-20 ")
 ;;597
 ;;21,"66490-0654-20 ")
 ;;599
 ;;21,"66490-0655-20 ")
 ;;601
 ;;21,"68030-7286-01 ")
 ;;1167
 ;;21,"68030-8101-01 ")
 ;;704
 ;;21,"68115-0041-15 ")
 ;;1155
 ;;21,"68115-0074-30 ")
 ;;127
 ;;21,"68115-0098-00 ")
 ;;585
 ;;21,"68115-0098-30 ")
 ;;586
 ;;21,"68115-0098-60 ")
 ;;587
 ;;21,"68115-0098-90 ")
 ;;588
 ;;21,"68115-0098-96 ")
 ;;589
 ;;21,"68115-0098-99 ")
 ;;590
 ;;21,"68115-0099-30 ")
 ;;329
 ;;21,"68115-0100-10 ")
 ;;481
 ;;21,"68115-0100-15 ")
 ;;482
 ;;21,"68115-0100-20 ")
 ;;483
 ;;21,"68115-0100-30 ")
 ;;484
 ;;21,"68115-0100-60 ")
 ;;485
 ;;21,"68115-0100-90 ")
 ;;486
 ;;21,"68115-0146-14 ")
 ;;224
 ;;21,"68115-0146-30 ")
 ;;225
 ;;21,"68115-0146-60 ")
 ;;226
 ;;21,"68115-0401-20 ")
 ;;169
 ;;21,"68115-0401-30 ")
 ;;170
 ;;21,"68115-0401-60 ")
 ;;171
 ;;9002226,624,.01)
 ;;BGP HEDIS BENZODIAZEPINE NDC
 ;;9002226,624,.02)
 ;;@
 ;;9002226,624,.04)
 ;;n
 ;;9002226,624,.06)
 ;;@
 ;;9002226,624,.08)
 ;;@
 ;;9002226,624,.09)
 ;;@
 ;;9002226,624,.11)
 ;;@
 ;;9002226,624,.12)
 ;;@
 ;;9002226,624,.13)
 ;;1
 ;;9002226,624,.14)
 ;;@
 ;;9002226,624,.15)
 ;;@
 ;;9002226,624,.16)
 ;;@
 ;;9002226,624,.17)
 ;;@
 ;;9002226,624,3101)
 ;;@
 ;;9002226.02101,"624,00002-2438-06 ",.01)
 ;;00002-2438-06
 ;;9002226.02101,"624,00002-2438-06 ",.02)
 ;;00002-2438-06
 ;;9002226.02101,"624,00004-1932-09 ",.01)
 ;;00004-1932-09
 ;;9002226.02101,"624,00004-1932-09 ",.02)
 ;;00004-1932-09
 ;;9002226.02101,"624,00004-1933-06 ",.01)
 ;;00004-1933-06
 ;;9002226.02101,"624,00004-1933-06 ",.02)
 ;;00004-1933-06
 ;;9002226.02101,"624,00005-3128-23 ",.01)
 ;;00005-3128-23
 ;;9002226.02101,"624,00005-3128-23 ",.02)
 ;;00005-3128-23
 ;;9002226.02101,"624,00005-3128-31 ",.01)
 ;;00005-3128-31
 ;;9002226.02101,"624,00005-3128-31 ",.02)
 ;;00005-3128-31
 ;;9002226.02101,"624,00005-3129-23 ",.01)
 ;;00005-3129-23
 ;;9002226.02101,"624,00005-3129-23 ",.02)
 ;;00005-3129-23
 ;;9002226.02101,"624,00005-3129-31 ",.01)
 ;;00005-3129-31
 ;;9002226.02101,"624,00005-3129-31 ",.02)
 ;;00005-3129-31
 ;;9002226.02101,"624,00005-3130-23 ",.01)
 ;;00005-3130-23
 ;;9002226.02101,"624,00005-3130-23 ",.02)
 ;;00005-3130-23
 ;;9002226.02101,"624,00005-3130-31 ",.01)
 ;;00005-3130-31
 ;;9002226.02101,"624,00005-3130-31 ",.02)
 ;;00005-3130-31
 ;;9002226.02101,"624,00009-0061-01 ",.01)
 ;;00009-0061-01
 ;;9002226.02101,"624,00009-0061-01 ",.02)
 ;;00009-0061-01
 ;;9002226.02101,"624,00024-0376-02 ",.01)
 ;;00024-0376-02
 ;;9002226.02101,"624,00024-0376-02 ",.02)
 ;;00024-0376-02
 ;;9002226.02101,"624,00031-4207-74 ",.01)
 ;;00031-4207-74
 ;;9002226.02101,"624,00031-4207-74 ",.02)
 ;;00031-4207-74
 ;;9002226.02101,"624,00031-4235-64 ",.01)
 ;;00031-4235-64
 ;;9002226.02101,"624,00031-4235-64 ",.02)
 ;;00031-4235-64
 ;;9002226.02101,"624,00047-0079-29 ",.01)
 ;;00047-0079-29
 ;;9002226.02101,"624,00047-0079-29 ",.02)
 ;;00047-0079-29
 ;;9002226.02101,"624,00047-0700-40 ",.01)
 ;;00047-0700-40
 ;;9002226.02101,"624,00047-0700-40 ",.02)
 ;;00047-0700-40
 ;;9002226.02101,"624,00054-3185-44 ",.01)
 ;;00054-3185-44
 ;;9002226.02101,"624,00054-3185-44 ",.02)
 ;;00054-3185-44
 ;;9002226.02101,"624,00054-3188-63 ",.01)
 ;;00054-3188-63
 ;;9002226.02101,"624,00054-3188-63 ",.02)
 ;;00054-3188-63
 ;;9002226.02101,"624,00054-8207-16 ",.01)
 ;;00054-8207-16
 ;;9002226.02101,"624,00054-8207-16 ",.02)
 ;;00054-8207-16
 ;;9002226.02101,"624,00054-8208-16 ",.01)
 ;;00054-8208-16
 ;;9002226.02101,"624,00054-8208-16 ",.02)
 ;;00054-8208-16
 ;;9002226.02101,"624,00074-1273-02 ",.01)
 ;;00074-1273-02
 ;;9002226.02101,"624,00074-1273-02 ",.02)
 ;;00074-1273-02
 ;;9002226.02101,"624,00074-1273-12 ",.01)
 ;;00074-1273-12
 ;;9002226.02101,"624,00074-1273-12 ",.02)
 ;;00074-1273-12
 ;;9002226.02101,"624,00074-1273-22 ",.01)
 ;;00074-1273-22
 ;;9002226.02101,"624,00074-1273-22 ",.02)
 ;;00074-1273-22
 ;;9002226.02101,"624,00074-1273-32 ",.01)
 ;;00074-1273-32
 ;;9002226.02101,"624,00074-1273-32 ",.02)
 ;;00074-1273-32
 ;;9002226.02101,"624,00074-3210-01 ",.01)
 ;;00074-3210-01
 ;;9002226.02101,"624,00074-3210-01 ",.02)
 ;;00074-3210-01
 ;;9002226.02101,"624,00074-3210-32 ",.01)
 ;;00074-3210-32
 ;;9002226.02101,"624,00074-3210-32 ",.02)
 ;;00074-3210-32
 ;;9002226.02101,"624,00074-3213-01 ",.01)
 ;;00074-3213-01
 ;;9002226.02101,"624,00074-3213-01 ",.02)
 ;;00074-3213-01
 ;;9002226.02101,"624,00074-3213-02 ",.01)
 ;;00074-3213-02
 ;;9002226.02101,"624,00074-3213-02 ",.02)
 ;;00074-3213-02
 ;;9002226.02101,"624,00074-7897-01 ",.01)
 ;;00074-7897-01
 ;;9002226.02101,"624,00074-7897-01 ",.02)
 ;;00074-7897-01
 ;;9002226.02101,"624,00078-0005-65 ",.01)
 ;;00078-0005-65
 ;;9002226.02101,"624,00078-0005-65 ",.02)
 ;;00078-0005-65
 ;;9002226.02101,"624,00078-0006-09 ",.01)
 ;;00078-0006-09
 ;;9002226.02101,"624,00078-0006-09 ",.02)
 ;;00078-0006-09
 ;;9002226.02101,"624,00078-0007-09 ",.01)
 ;;00078-0007-09
 ;;9002226.02101,"624,00078-0007-09 ",.02)
 ;;00078-0007-09
 ;;9002226.02101,"624,00078-0007-65 ",.01)
 ;;00078-0007-65
 ;;9002226.02101,"624,00078-0007-65 ",.02)
 ;;00078-0007-65
 ;;9002226.02101,"624,00078-0008-06 ",.01)
 ;;00078-0008-06
 ;;9002226.02101,"624,00078-0008-06 ",.02)
 ;;00078-0008-06
 ;;9002226.02101,"624,00078-0008-09 ",.01)
 ;;00078-0008-09
 ;;9002226.02101,"624,00078-0008-09 ",.02)
 ;;00078-0008-09
 ;;9002226.02101,"624,00078-0008-65 ",.01)
 ;;00078-0008-65
 ;;9002226.02101,"624,00078-0008-65 ",.02)
 ;;00078-0008-65
 ;;9002226.02101,"624,00095-0023-05 ",.01)
 ;;00095-0023-05
 ;;9002226.02101,"624,00095-0023-05 ",.02)
 ;;00095-0023-05
 ;;9002226.02101,"624,00115-2758-01 ",.01)
 ;;00115-2758-01
 ;;9002226.02101,"624,00115-2758-01 ",.02)
 ;;00115-2758-01
 ;;9002226.02101,"624,00115-2758-03 ",.01)
 ;;00115-2758-03
 ;;9002226.02101,"624,00115-2758-03 ",.02)
 ;;00115-2758-03
 ;;9002226.02101,"624,00115-2760-01 ",.01)
 ;;00115-2760-01
 ;;9002226.02101,"624,00115-2760-01 ",.02)
 ;;00115-2760-01
 ;;9002226.02101,"624,00115-2760-03 ",.01)
 ;;00115-2760-03
 ;;9002226.02101,"624,00115-2760-03 ",.02)
 ;;00115-2760-03
 ;;9002226.02101,"624,00115-2762-01 ",.01)
 ;;00115-2762-01
 ;;9002226.02101,"624,00115-2762-01 ",.02)
 ;;00115-2762-01
 ;;9002226.02101,"624,00115-2762-03 ",.01)
 ;;00115-2762-03
 ;;9002226.02101,"624,00115-2762-03 ",.02)
 ;;00115-2762-03
 ;;9002226.02101,"624,00115-4211-04 ",.01)
 ;;00115-4211-04
 ;;9002226.02101,"624,00115-4211-04 ",.02)
 ;;00115-4211-04
 ;;9002226.02101,"624,00115-4212-04 ",.01)
 ;;00115-4212-04
 ;;9002226.02101,"624,00115-4212-04 ",.02)
 ;;00115-4212-04
 ;;9002226.02101,"624,00115-4214-04 ",.01)
 ;;00115-4214-04
 ;;9002226.02101,"624,00115-4214-04 ",.02)
 ;;00115-4214-04
 ;;9002226.02101,"624,00115-4229-04 ",.01)
 ;;00115-4229-04
 ;;9002226.02101,"624,00115-4229-04 ",.02)
 ;;00115-4229-04
 ;;9002226.02101,"624,00115-4231-04 ",.01)
 ;;00115-4231-04
 ;;9002226.02101,"624,00115-4231-04 ",.02)
 ;;00115-4231-04
 ;;9002226.02101,"624,00115-4233-01 ",.01)
 ;;00115-4233-01
 ;;9002226.02101,"624,00115-4233-01 ",.02)
 ;;00115-4233-01
 ;;9002226.02101,"624,00115-4233-04 ",.01)
 ;;00115-4233-04
 ;;9002226.02101,"624,00115-4233-04 ",.02)
 ;;00115-4233-04
 ;;9002226.02101,"624,00115-4652-02 ",.01)
 ;;00115-4652-02
 ;;9002226.02101,"624,00115-4652-02 ",.02)
 ;;00115-4652-02
 ;;9002226.02101,"624,00115-4652-04 ",.01)
 ;;00115-4652-04
 ;;9002226.02101,"624,00115-4652-04 ",.02)
 ;;00115-4652-04
 ;;9002226.02101,"624,00115-7008-01 ",.01)
 ;;00115-7008-01
 ;;9002226.02101,"624,00115-7008-01 ",.02)
 ;;00115-7008-01
 ;;9002226.02101,"624,00115-7009-01 ",.01)
 ;;00115-7009-01
 ;;9002226.02101,"624,00115-7009-01 ",.02)
 ;;00115-7009-01
 ;;9002226.02101,"624,00140-0001-01 ",.01)
 ;;00140-0001-01
 ;;9002226.02101,"624,00140-0001-01 ",.02)
 ;;00140-0001-01
 ;;9002226.02101,"624,00140-0001-49 ",.01)
 ;;00140-0001-49
 ;;9002226.02101,"624,00140-0001-49 ",.02)
 ;;00140-0001-49
 ;;9002226.02101,"624,00140-0001-50 ",.01)
 ;;00140-0001-50
 ;;9002226.02101,"624,00140-0001-50 ",.02)
 ;;00140-0001-50
 ;;9002226.02101,"624,00140-0002-01 ",.01)
 ;;00140-0002-01
 ;;9002226.02101,"624,00140-0002-01 ",.02)
 ;;00140-0002-01
 ;;9002226.02101,"624,00140-0002-14 ",.01)
 ;;00140-0002-14
 ;;9002226.02101,"624,00140-0002-14 ",.02)
 ;;00140-0002-14
 ;;9002226.02101,"624,00140-0002-49 ",.01)
 ;;00140-0002-49
 ;;9002226.02101,"624,00140-0002-49 ",.02)
 ;;00140-0002-49
 ;;9002226.02101,"624,00140-0002-50 ",.01)
 ;;00140-0002-50
 ;;9002226.02101,"624,00140-0002-50 ",.02)
 ;;00140-0002-50
 ;;9002226.02101,"624,00140-0003-01 ",.01)
 ;;00140-0003-01
 ;;9002226.02101,"624,00140-0003-01 ",.02)
 ;;00140-0003-01
 ;;9002226.02101,"624,00140-0003-14 ",.01)
 ;;00140-0003-14
 ;;9002226.02101,"624,00140-0003-14 ",.02)
 ;;00140-0003-14
 ;;9002226.02101,"624,00140-0003-49 ",.01)
 ;;00140-0003-49
 ;;9002226.02101,"624,00140-0003-49 ",.02)
 ;;00140-0003-49
 ;;9002226.02101,"624,00140-0003-50 ",.01)
 ;;00140-0003-50
 ;;9002226.02101,"624,00140-0003-50 ",.02)
 ;;00140-0003-50
 ;;9002226.02101,"624,00140-0004-01 ",.01)
 ;;00140-0004-01
 ;;9002226.02101,"624,00140-0004-01 ",.02)
 ;;00140-0004-01
 ;;9002226.02101,"624,00140-0004-14 ",.01)
 ;;00140-0004-14
 ;;9002226.02101,"624,00140-0004-14 ",.02)
 ;;00140-0004-14
 ;;9002226.02101,"624,00140-0004-32 ",.01)
 ;;00140-0004-32
 ;;9002226.02101,"624,00140-0004-32 ",.02)
 ;;00140-0004-32
 ;;9002226.02101,"624,00140-0004-49 ",.01)
 ;;00140-0004-49
 ;;9002226.02101,"624,00140-0004-49 ",.02)
 ;;00140-0004-49
 ;;9002226.02101,"624,00140-0004-50 ",.01)
 ;;00140-0004-50
 ;;9002226.02101,"624,00140-0004-50 ",.02)
 ;;00140-0004-50
 ;;9002226.02101,"624,00140-0005-01 ",.01)
 ;;00140-0005-01
 ;;9002226.02101,"624,00140-0005-01 ",.02)
 ;;00140-0005-01
 ;;9002226.02101,"624,00140-0005-14 ",.01)
 ;;00140-0005-14
 ;;9002226.02101,"624,00140-0005-14 ",.02)
 ;;00140-0005-14
 ;;9002226.02101,"624,00140-0005-35 ",.01)
 ;;00140-0005-35
 ;;9002226.02101,"624,00140-0005-35 ",.02)
 ;;00140-0005-35
 ;;9002226.02101,"624,00140-0005-49 ",.01)
 ;;00140-0005-49
 ;;9002226.02101,"624,00140-0005-49 ",.02)
 ;;00140-0005-49
 ;;9002226.02101,"624,00140-0005-50 ",.01)
 ;;00140-0005-50
 ;;9002226.02101,"624,00140-0005-50 ",.02)
 ;;00140-0005-50
 ;;9002226.02101,"624,00140-0006-01 ",.01)
 ;;00140-0006-01
 ;;9002226.02101,"624,00140-0006-01 ",.02)
 ;;00140-0006-01
 ;;9002226.02101,"624,00140-0006-14 ",.01)
 ;;00140-0006-14
 ;;9002226.02101,"624,00140-0006-14 ",.02)
 ;;00140-0006-14
 ;;9002226.02101,"624,00140-0006-35 ",.01)
 ;;00140-0006-35
 ;;9002226.02101,"624,00140-0006-35 ",.02)
 ;;00140-0006-35
 ;;9002226.02101,"624,00140-0006-49 ",.01)
 ;;00140-0006-49
 ;;9002226.02101,"624,00140-0006-49 ",.02)
 ;;00140-0006-49
 ;;9002226.02101,"624,00140-0006-50 ",.01)
 ;;00140-0006-50
 ;;9002226.02101,"624,00140-0006-50 ",.02)
 ;;00140-0006-50
 ;;9002226.02101,"624,00140-0013-01 ",.01)
 ;;00140-0013-01
 ;;9002226.02101,"624,00140-0013-01 ",.02)
 ;;00140-0013-01
 ;;9002226.02101,"624,00140-0014-01 ",.01)
 ;;00140-0014-01
 ;;9002226.02101,"624,00140-0014-01 ",.02)
 ;;00140-0014-01
 ;;9002226.02101,"624,00140-0015-01 ",.01)
 ;;00140-0015-01