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

BGP71J5.m

Go to the documentation of this file.
BGP71J5 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
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,"68788-9762-02 ")
 ;;1357
 ;;21,"68788-9762-03 ")
 ;;1358
 ;;21,"68788-9762-05 ")
 ;;1359
 ;;21,"68788-9762-06 ")
 ;;1360
 ;;21,"68788-9762-08 ")
 ;;1361
 ;;21,"68788-9762-09 ")
 ;;1362
 ;;21,"68788-9895-01 ")
 ;;1363
 ;;21,"69097-0826-07 ")
 ;;1364
 ;;21,"69097-0827-07 ")
 ;;1365
 ;;21,"69097-0827-15 ")
 ;;1366
 ;;21,"69097-0832-07 ")
 ;;1367
 ;;21,"69097-0832-15 ")
 ;;1368
 ;;21,"69315-0136-01 ")
 ;;1369
 ;;21,"69315-0136-10 ")
 ;;1370
 ;;21,"69315-0137-01 ")
 ;;1371
 ;;21,"69315-0137-10 ")
 ;;1372
 ;;21,"69315-0138-01 ")
 ;;1373
 ;;21,"69315-0138-10 ")
 ;;1374
 ;;21,"69442-0480-01 ")
 ;;1375
 ;;21,"70092-1050-02 ")
 ;;1376
 ;;21,"76385-0103-01 ")
 ;;1377
 ;;21,"76385-0103-10 ")
 ;;1378
 ;;21,"76385-0104-01 ")
 ;;1379
 ;;21,"76385-0104-10 ")
 ;;1380
 ;;21,"76385-0105-01 ")
 ;;1381
 ;;21,"76385-0105-10 ")
 ;;1382
 ;;9002226,1795,.01)
 ;;BGP HEDIS ANTICHOLINERGIC NDC
 ;;9002226,1795,.02)
 ;;@
 ;;9002226,1795,.04)
 ;;n
 ;;9002226,1795,.06)
 ;;@
 ;;9002226,1795,.08)
 ;;@
 ;;9002226,1795,.09)
 ;;3160811
 ;;9002226,1795,.11)
 ;;@
 ;;9002226,1795,.12)
 ;;@
 ;;9002226,1795,.13)
 ;;1
 ;;9002226,1795,.14)
 ;;@
 ;;9002226,1795,.15)
 ;;50.67
 ;;9002226,1795,.16)
 ;;@
 ;;9002226,1795,.17)
 ;;@
 ;;9002226,1795,.22)
 ;;1
 ;;9002226,1795,3101)
 ;;@
 ;;9002226.02101,"1795,00069-5410-66 ",.01)
 ;;00069-5410-66
 ;;9002226.02101,"1795,00069-5410-66 ",.02)
 ;;00069-5410-66
 ;;9002226.02101,"1795,00069-5420-66 ",.01)
 ;;00069-5420-66
 ;;9002226.02101,"1795,00069-5420-66 ",.02)
 ;;00069-5420-66
 ;;9002226.02101,"1795,00093-0308-01 ",.01)
 ;;00093-0308-01
 ;;9002226.02101,"1795,00093-0308-01 ",.02)
 ;;00093-0308-01
 ;;9002226.02101,"1795,00093-0309-12 ",.01)
 ;;00093-0309-12
 ;;9002226.02101,"1795,00093-0309-12 ",.02)
 ;;00093-0309-12
 ;;9002226.02101,"1795,00093-2929-01 ",.01)
 ;;00093-2929-01
 ;;9002226.02101,"1795,00093-2929-01 ",.02)
 ;;00093-2929-01
 ;;9002226.02101,"1795,00093-2929-10 ",.01)
 ;;00093-2929-10
 ;;9002226.02101,"1795,00093-2929-10 ",.02)
 ;;00093-2929-10
 ;;9002226.02101,"1795,00093-5060-01 ",.01)
 ;;00093-5060-01
 ;;9002226.02101,"1795,00093-5060-01 ",.02)
 ;;00093-5060-01
 ;;9002226.02101,"1795,00093-5060-05 ",.01)
 ;;00093-5060-05
 ;;9002226.02101,"1795,00093-5060-05 ",.02)
 ;;00093-5060-05
 ;;9002226.02101,"1795,00093-5060-10 ",.01)
 ;;00093-5060-10
 ;;9002226.02101,"1795,00093-5060-10 ",.02)
 ;;00093-5060-10
 ;;9002226.02101,"1795,00093-5061-01 ",.01)
 ;;00093-5061-01
 ;;9002226.02101,"1795,00093-5061-01 ",.02)
 ;;00093-5061-01
 ;;9002226.02101,"1795,00093-5061-05 ",.01)
 ;;00093-5061-05
 ;;9002226.02101,"1795,00093-5061-05 ",.02)
 ;;00093-5061-05
 ;;9002226.02101,"1795,00093-5061-10 ",.01)
 ;;00093-5061-10
 ;;9002226.02101,"1795,00093-5061-10 ",.02)
 ;;00093-5061-10
 ;;9002226.02101,"1795,00093-5062-01 ",.01)
 ;;00093-5062-01
 ;;9002226.02101,"1795,00093-5062-01 ",.02)
 ;;00093-5062-01
 ;;9002226.02101,"1795,00093-5062-05 ",.01)
 ;;00093-5062-05
 ;;9002226.02101,"1795,00093-5062-05 ",.02)
 ;;00093-5062-05
 ;;9002226.02101,"1795,00093-5062-10 ",.01)
 ;;00093-5062-10
 ;;9002226.02101,"1795,00093-5062-10 ",.02)
 ;;00093-5062-10
 ;;9002226.02101,"1795,00095-0054-01 ",.01)
 ;;00095-0054-01
 ;;9002226.02101,"1795,00095-0054-01 ",.02)
 ;;00095-0054-01
 ;;9002226.02101,"1795,00095-0054-20 ",.01)
 ;;00095-0054-20
 ;;9002226.02101,"1795,00095-0054-20 ",.02)
 ;;00095-0054-20
 ;;9002226.02101,"1795,00095-0108-01 ",.01)
 ;;00095-0108-01
 ;;9002226.02101,"1795,00095-0108-01 ",.02)
 ;;00095-0108-01
 ;;9002226.02101,"1795,00095-0108-20 ",.01)
 ;;00095-0108-20
 ;;9002226.02101,"1795,00095-0108-20 ",.02)
 ;;00095-0108-20
 ;;9002226.02101,"1795,00115-1040-01 ",.01)
 ;;00115-1040-01
 ;;9002226.02101,"1795,00115-1040-01 ",.02)
 ;;00115-1040-01
 ;;9002226.02101,"1795,00115-1041-01 ",.01)
 ;;00115-1041-01
 ;;9002226.02101,"1795,00115-1041-01 ",.02)
 ;;00115-1041-01
 ;;9002226.02101,"1795,00115-1041-03 ",.01)
 ;;00115-1041-03
 ;;9002226.02101,"1795,00115-1041-03 ",.02)
 ;;00115-1041-03
 ;;9002226.02101,"1795,00115-1042-01 ",.01)
 ;;00115-1042-01
 ;;9002226.02101,"1795,00115-1042-01 ",.02)
 ;;00115-1042-01
 ;;9002226.02101,"1795,00121-0489-05 ",.01)
 ;;00121-0489-05
 ;;9002226.02101,"1795,00121-0489-05 ",.02)
 ;;00121-0489-05
 ;;9002226.02101,"1795,00121-0489-10 ",.01)
 ;;00121-0489-10
 ;;9002226.02101,"1795,00121-0489-10 ",.02)
 ;;00121-0489-10
 ;;9002226.02101,"1795,00121-0547-05 ",.01)
 ;;00121-0547-05
 ;;9002226.02101,"1795,00121-0547-05 ",.02)
 ;;00121-0547-05
 ;;9002226.02101,"1795,00121-0658-16 ",.01)
 ;;00121-0658-16
 ;;9002226.02101,"1795,00121-0658-16 ",.02)
 ;;00121-0658-16
 ;;9002226.02101,"1795,00121-0788-16 ",.01)
 ;;00121-0788-16
 ;;9002226.02101,"1795,00121-0788-16 ",.02)
 ;;00121-0788-16
 ;;9002226.02101,"1795,00121-4788-10 ",.01)
 ;;00121-4788-10
 ;;9002226.02101,"1795,00121-4788-10 ",.02)
 ;;00121-4788-10
 ;;9002226.02101,"1795,00121-4822-25 ",.01)
 ;;00121-4822-25
 ;;9002226.02101,"1795,00121-4822-25 ",.02)
 ;;00121-4822-25
 ;;9002226.02101,"1795,00143-1763-01 ",.01)
 ;;00143-1763-01
 ;;9002226.02101,"1795,00143-1763-01 ",.02)
 ;;00143-1763-01
 ;;9002226.02101,"1795,00143-1763-10 ",.01)
 ;;00143-1763-10
 ;;9002226.02101,"1795,00143-1763-10 ",.02)
 ;;00143-1763-10
 ;;9002226.02101,"1795,00143-1764-01 ",.01)
 ;;00143-1764-01
 ;;9002226.02101,"1795,00143-1764-01 ",.02)
 ;;00143-1764-01
 ;;9002226.02101,"1795,00143-1764-10 ",.01)
 ;;00143-1764-10
 ;;9002226.02101,"1795,00143-1764-10 ",.02)
 ;;00143-1764-10
 ;;9002226.02101,"1795,00143-9868-22 ",.01)
 ;;00143-9868-22
 ;;9002226.02101,"1795,00143-9868-22 ",.02)
 ;;00143-9868-22
 ;;9002226.02101,"1795,00143-9869-22 ",.01)
 ;;00143-9869-22
 ;;9002226.02101,"1795,00143-9869-22 ",.02)
 ;;00143-9869-22
 ;;9002226.02101,"1795,00179-0072-30 ",.01)
 ;;00179-0072-30
 ;;9002226.02101,"1795,00179-0072-30 ",.02)
 ;;00179-0072-30
 ;;9002226.02101,"1795,00185-0613-01 ",.01)
 ;;00185-0613-01
 ;;9002226.02101,"1795,00185-0613-01 ",.02)
 ;;00185-0613-01
 ;;9002226.02101,"1795,00185-0613-05 ",.01)
 ;;00185-0613-05
 ;;9002226.02101,"1795,00185-0613-05 ",.02)
 ;;00185-0613-05
 ;;9002226.02101,"1795,00185-0615-01 ",.01)
 ;;00185-0615-01
 ;;9002226.02101,"1795,00185-0615-01 ",.02)
 ;;00185-0615-01
 ;;9002226.02101,"1795,00185-0615-05 ",.01)
 ;;00185-0615-05
 ;;9002226.02101,"1795,00185-0615-05 ",.02)
 ;;00185-0615-05
 ;;9002226.02101,"1795,00185-0674-01 ",.01)
 ;;00185-0674-01
 ;;9002226.02101,"1795,00185-0674-01 ",.02)
 ;;00185-0674-01
 ;;9002226.02101,"1795,00185-0674-05 ",.01)
 ;;00185-0674-05
 ;;9002226.02101,"1795,00185-0674-05 ",.02)
 ;;00185-0674-05
 ;;9002226.02101,"1795,00187-0054-01 ",.01)
 ;;00187-0054-01
 ;;9002226.02101,"1795,00187-0054-01 ",.02)
 ;;00187-0054-01
 ;;9002226.02101,"1795,00187-0054-20 ",.01)
 ;;00187-0054-20
 ;;9002226.02101,"1795,00187-0054-20 ",.02)
 ;;00187-0054-20
 ;;9002226.02101,"1795,00187-0108-01 ",.01)
 ;;00187-0108-01
 ;;9002226.02101,"1795,00187-0108-01 ",.02)
 ;;00187-0108-01
 ;;9002226.02101,"1795,00187-0108-20 ",.01)
 ;;00187-0108-20
 ;;9002226.02101,"1795,00187-0108-20 ",.02)
 ;;00187-0108-20
 ;;9002226.02101,"1795,00378-2586-01 ",.01)
 ;;00378-2586-01
 ;;9002226.02101,"1795,00378-2586-01 ",.02)
 ;;00378-2586-01
 ;;9002226.02101,"1795,00378-2586-10 ",.01)
 ;;00378-2586-10
 ;;9002226.02101,"1795,00378-2586-10 ",.02)
 ;;00378-2586-10
 ;;9002226.02101,"1795,00378-2587-01 ",.01)
 ;;00378-2587-01
 ;;9002226.02101,"1795,00378-2587-01 ",.02)
 ;;00378-2587-01
 ;;9002226.02101,"1795,00378-2587-10 ",.01)
 ;;00378-2587-10
 ;;9002226.02101,"1795,00378-2587-10 ",.02)
 ;;00378-2587-10
 ;;9002226.02101,"1795,00378-2588-01 ",.01)
 ;;00378-2588-01
 ;;9002226.02101,"1795,00378-2588-01 ",.02)
 ;;00378-2588-01
 ;;9002226.02101,"1795,00378-2588-10 ",.01)
 ;;00378-2588-10
 ;;9002226.02101,"1795,00378-2588-10 ",.02)
 ;;00378-2588-10
 ;;9002226.02101,"1795,00409-2312-02 ",.01)
 ;;00409-2312-02
 ;;9002226.02101,"1795,00409-2312-02 ",.02)
 ;;00409-2312-02
 ;;9002226.02101,"1795,00409-2312-31 ",.01)
 ;;00409-2312-31
 ;;9002226.02101,"1795,00409-2312-31 ",.02)
 ;;00409-2312-31
 ;;9002226.02101,"1795,00440-1617-12 ",.01)
 ;;00440-1617-12
 ;;9002226.02101,"1795,00440-1617-12 ",.02)
 ;;00440-1617-12
 ;;9002226.02101,"1795,00440-7195-30 ",.01)
 ;;00440-7195-30
 ;;9002226.02101,"1795,00440-7195-30 ",.02)
 ;;00440-7195-30
 ;;9002226.02101,"1795,00440-7195-60 ",.01)
 ;;00440-7195-60
 ;;9002226.02101,"1795,00440-7195-60 ",.02)
 ;;00440-7195-60
 ;;9002226.02101,"1795,00440-7195-90 ",.01)
 ;;00440-7195-90
 ;;9002226.02101,"1795,00440-7195-90 ",.02)
 ;;00440-7195-90
 ;;9002226.02101,"1795,00440-7195-92 ",.01)
 ;;00440-7195-92
 ;;9002226.02101,"1795,00440-7195-92 ",.02)
 ;;00440-7195-92
 ;;9002226.02101,"1795,00440-7196-30 ",.01)
 ;;00440-7196-30
 ;;9002226.02101,"1795,00440-7196-30 ",.02)
 ;;00440-7196-30
 ;;9002226.02101,"1795,00440-7196-60 ",.01)
 ;;00440-7196-60
 ;;9002226.02101,"1795,00440-7196-60 ",.02)
 ;;00440-7196-60
 ;;9002226.02101,"1795,00440-7196-90 ",.01)
 ;;00440-7196-90
 ;;9002226.02101,"1795,00440-7196-90 ",.02)
 ;;00440-7196-90
 ;;9002226.02101,"1795,00440-7196-92 ",.01)
 ;;00440-7196-92
 ;;9002226.02101,"1795,00440-7196-92 ",.02)
 ;;00440-7196-92
 ;;9002226.02101,"1795,00440-7360-30 ",.01)
 ;;00440-7360-30
 ;;9002226.02101,"1795,00440-7360-30 ",.02)
 ;;00440-7360-30
 ;;9002226.02101,"1795,00440-7426-04 ",.01)
 ;;00440-7426-04
 ;;9002226.02101,"1795,00440-7426-04 ",.02)
 ;;00440-7426-04
 ;;9002226.02101,"1795,00440-7426-06 ",.01)
 ;;00440-7426-06
 ;;9002226.02101,"1795,00440-7426-06 ",.02)
 ;;00440-7426-06
 ;;9002226.02101,"1795,00440-7426-09 ",.01)
 ;;00440-7426-09
 ;;9002226.02101,"1795,00440-7426-09 ",.02)
 ;;00440-7426-09
 ;;9002226.02101,"1795,00440-7426-12 ",.01)
 ;;00440-7426-12
 ;;9002226.02101,"1795,00440-7426-12 ",.02)
 ;;00440-7426-12
 ;;9002226.02101,"1795,00440-7426-20 ",.01)
 ;;00440-7426-20
 ;;9002226.02101,"1795,00440-7426-20 ",.02)
 ;;00440-7426-20
 ;;9002226.02101,"1795,00440-7426-30 ",.01)
 ;;00440-7426-30
 ;;9002226.02101,"1795,00440-7426-30 ",.02)
 ;;00440-7426-30
 ;;9002226.02101,"1795,00440-7426-60 ",.01)
 ;;00440-7426-60
 ;;9002226.02101,"1795,00440-7426-60 ",.02)
 ;;00440-7426-60
 ;;9002226.02101,"1795,00440-7616-30 ",.01)
 ;;00440-7616-30
 ;;9002226.02101,"1795,00440-7616-30 ",.02)
 ;;00440-7616-30
 ;;9002226.02101,"1795,00440-7617-04 ",.01)
 ;;00440-7617-04
 ;;9002226.02101,"1795,00440-7617-04 ",.02)
 ;;00440-7617-04
 ;;9002226.02101,"1795,00440-7617-06 ",.01)
 ;;00440-7617-06
 ;;9002226.02101,"1795,00440-7617-06 ",.02)
 ;;00440-7617-06
 ;;9002226.02101,"1795,00440-7617-12 ",.01)
 ;;00440-7617-12
 ;;9002226.02101,"1795,00440-7617-12 ",.02)
 ;;00440-7617-12
 ;;9002226.02101,"1795,00440-7617-15 ",.01)
 ;;00440-7617-15
 ;;9002226.02101,"1795,00440-7617-15 ",.02)
 ;;00440-7617-15
 ;;9002226.02101,"1795,00440-7617-16 ",.01)
 ;;00440-7617-16
 ;;9002226.02101,"1795,00440-7617-16 ",.02)
 ;;00440-7617-16
 ;;9002226.02101,"1795,00440-7617-21 ",.01)
 ;;00440-7617-21
 ;;9002226.02101,"1795,00440-7617-21 ",.02)
 ;;00440-7617-21
 ;;9002226.02101,"1795,00440-7617-30 ",.01)
 ;;00440-7617-30
 ;;9002226.02101,"1795,00440-7617-30 ",.02)
 ;;00440-7617-30
 ;;9002226.02101,"1795,00440-7620-04 ",.01)
 ;;00440-7620-04
 ;;9002226.02101,"1795,00440-7620-04 ",.02)
 ;;00440-7620-04
 ;;9002226.02101,"1795,00440-8195-04 ",.01)
 ;;00440-8195-04
 ;;9002226.02101,"1795,00440-8195-04 ",.02)
 ;;00440-8195-04
 ;;9002226.02101,"1795,00440-8195-06 ",.01)
 ;;00440-8195-06
 ;;9002226.02101,"1795,00440-8195-06 ",.02)
 ;;00440-8195-06
 ;;9002226.02101,"1795,00440-8195-10 ",.01)
 ;;00440-8195-10