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

BGP51F5.m

Go to the documentation of this file.
BGP51F5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"68387-0536-90 ")
 ;;1017
 ;;21,"68462-0360-01 ")
 ;;475
 ;;21,"68462-0360-05 ")
 ;;476
 ;;21,"68462-0361-01 ")
 ;;503
 ;;21,"68462-0361-05 ")
 ;;504
 ;;21,"68462-0362-01 ")
 ;;738
 ;;21,"68462-0362-05 ")
 ;;739
 ;;21,"76385-0103-01 ")
 ;;17
 ;;21,"76385-0103-10 ")
 ;;18
 ;;21,"76385-0104-01 ")
 ;;19
 ;;21,"76385-0104-10 ")
 ;;20
 ;;21,"76385-0105-01 ")
 ;;108
 ;;21,"76385-0105-10 ")
 ;;109
 ;;9002226,618,.01)
 ;;BGP HEDIS ANTICHOLINERGIC NDC
 ;;9002226,618,.02)
 ;;@
 ;;9002226,618,.04)
 ;;n
 ;;9002226,618,.06)
 ;;@
 ;;9002226,618,.08)
 ;;@
 ;;9002226,618,.09)
 ;;3140819
 ;;9002226,618,.11)
 ;;@
 ;;9002226,618,.12)
 ;;@
 ;;9002226,618,.13)
 ;;1
 ;;9002226,618,.14)
 ;;@
 ;;9002226,618,.15)
 ;;50.67
 ;;9002226,618,.16)
 ;;@
 ;;9002226,618,.17)
 ;;@
 ;;9002226,618,3101)
 ;;@
 ;;9002226.02101,"618,00037-0707-10 ",.01)
 ;;00037-0707-10
 ;;9002226.02101,"618,00037-0707-10 ",.02)
 ;;00037-0707-10
 ;;9002226.02101,"618,00037-0712-03 ",.01)
 ;;00037-0712-03
 ;;9002226.02101,"618,00037-0712-03 ",.02)
 ;;00037-0712-03
 ;;9002226.02101,"618,00069-5410-66 ",.01)
 ;;00069-5410-66
 ;;9002226.02101,"618,00069-5410-66 ",.02)
 ;;00069-5410-66
 ;;9002226.02101,"618,00069-5420-66 ",.01)
 ;;00069-5420-66
 ;;9002226.02101,"618,00069-5420-66 ",.02)
 ;;00069-5420-66
 ;;9002226.02101,"618,00093-0308-01 ",.01)
 ;;00093-0308-01
 ;;9002226.02101,"618,00093-0308-01 ",.02)
 ;;00093-0308-01
 ;;9002226.02101,"618,00093-0309-12 ",.01)
 ;;00093-0309-12
 ;;9002226.02101,"618,00093-0309-12 ",.02)
 ;;00093-0309-12
 ;;9002226.02101,"618,00093-2929-01 ",.01)
 ;;00093-2929-01
 ;;9002226.02101,"618,00093-2929-01 ",.02)
 ;;00093-2929-01
 ;;9002226.02101,"618,00093-2929-10 ",.01)
 ;;00093-2929-10
 ;;9002226.02101,"618,00093-2929-10 ",.02)
 ;;00093-2929-10
 ;;9002226.02101,"618,00093-2929-19 ",.01)
 ;;00093-2929-19
 ;;9002226.02101,"618,00093-2929-19 ",.02)
 ;;00093-2929-19
 ;;9002226.02101,"618,00093-2929-93 ",.01)
 ;;00093-2929-93
 ;;9002226.02101,"618,00093-2929-93 ",.02)
 ;;00093-2929-93
 ;;9002226.02101,"618,00093-5060-01 ",.01)
 ;;00093-5060-01
 ;;9002226.02101,"618,00093-5060-01 ",.02)
 ;;00093-5060-01
 ;;9002226.02101,"618,00093-5060-05 ",.01)
 ;;00093-5060-05
 ;;9002226.02101,"618,00093-5060-05 ",.02)
 ;;00093-5060-05
 ;;9002226.02101,"618,00093-5060-10 ",.01)
 ;;00093-5060-10
 ;;9002226.02101,"618,00093-5060-10 ",.02)
 ;;00093-5060-10
 ;;9002226.02101,"618,00093-5061-01 ",.01)
 ;;00093-5061-01
 ;;9002226.02101,"618,00093-5061-01 ",.02)
 ;;00093-5061-01
 ;;9002226.02101,"618,00093-5061-05 ",.01)
 ;;00093-5061-05
 ;;9002226.02101,"618,00093-5061-05 ",.02)
 ;;00093-5061-05
 ;;9002226.02101,"618,00093-5061-10 ",.01)
 ;;00093-5061-10
 ;;9002226.02101,"618,00093-5061-10 ",.02)
 ;;00093-5061-10
 ;;9002226.02101,"618,00093-5062-01 ",.01)
 ;;00093-5062-01
 ;;9002226.02101,"618,00093-5062-01 ",.02)
 ;;00093-5062-01
 ;;9002226.02101,"618,00093-5062-05 ",.01)
 ;;00093-5062-05
 ;;9002226.02101,"618,00093-5062-05 ",.02)
 ;;00093-5062-05
 ;;9002226.02101,"618,00093-5062-10 ",.01)
 ;;00093-5062-10
 ;;9002226.02101,"618,00093-5062-10 ",.02)
 ;;00093-5062-10
 ;;9002226.02101,"618,00095-0054-01 ",.01)
 ;;00095-0054-01
 ;;9002226.02101,"618,00095-0054-01 ",.02)
 ;;00095-0054-01
 ;;9002226.02101,"618,00095-0054-20 ",.01)
 ;;00095-0054-20
 ;;9002226.02101,"618,00095-0054-20 ",.02)
 ;;00095-0054-20
 ;;9002226.02101,"618,00095-0108-01 ",.01)
 ;;00095-0108-01
 ;;9002226.02101,"618,00095-0108-01 ",.02)
 ;;00095-0108-01
 ;;9002226.02101,"618,00095-0108-20 ",.01)
 ;;00095-0108-20
 ;;9002226.02101,"618,00095-0108-20 ",.02)
 ;;00095-0108-20
 ;;9002226.02101,"618,00115-1040-01 ",.01)
 ;;00115-1040-01
 ;;9002226.02101,"618,00115-1040-01 ",.02)
 ;;00115-1040-01
 ;;9002226.02101,"618,00115-1041-01 ",.01)
 ;;00115-1041-01
 ;;9002226.02101,"618,00115-1041-01 ",.02)
 ;;00115-1041-01
 ;;9002226.02101,"618,00115-1041-03 ",.01)
 ;;00115-1041-03
 ;;9002226.02101,"618,00115-1041-03 ",.02)
 ;;00115-1041-03
 ;;9002226.02101,"618,00115-1042-01 ",.01)
 ;;00115-1042-01
 ;;9002226.02101,"618,00115-1042-01 ",.02)
 ;;00115-1042-01
 ;;9002226.02101,"618,00121-0489-05 ",.01)
 ;;00121-0489-05
 ;;9002226.02101,"618,00121-0489-05 ",.02)
 ;;00121-0489-05
 ;;9002226.02101,"618,00121-0489-10 ",.01)
 ;;00121-0489-10
 ;;9002226.02101,"618,00121-0489-10 ",.02)
 ;;00121-0489-10
 ;;9002226.02101,"618,00121-0489-20 ",.01)
 ;;00121-0489-20
 ;;9002226.02101,"618,00121-0489-20 ",.02)
 ;;00121-0489-20
 ;;9002226.02101,"618,00121-0547-05 ",.01)
 ;;00121-0547-05
 ;;9002226.02101,"618,00121-0547-05 ",.02)
 ;;00121-0547-05
 ;;9002226.02101,"618,00121-0658-16 ",.01)
 ;;00121-0658-16
 ;;9002226.02101,"618,00121-0658-16 ",.02)
 ;;00121-0658-16
 ;;9002226.02101,"618,00121-0788-16 ",.01)
 ;;00121-0788-16
 ;;9002226.02101,"618,00121-0788-16 ",.02)
 ;;00121-0788-16
 ;;9002226.02101,"618,00121-4788-10 ",.01)
 ;;00121-4788-10
 ;;9002226.02101,"618,00121-4788-10 ",.02)
 ;;00121-4788-10
 ;;9002226.02101,"618,00143-1763-01 ",.01)
 ;;00143-1763-01
 ;;9002226.02101,"618,00143-1763-01 ",.02)
 ;;00143-1763-01
 ;;9002226.02101,"618,00143-1763-10 ",.01)
 ;;00143-1763-10
 ;;9002226.02101,"618,00143-1763-10 ",.02)
 ;;00143-1763-10
 ;;9002226.02101,"618,00143-1764-01 ",.01)
 ;;00143-1764-01
 ;;9002226.02101,"618,00143-1764-01 ",.02)
 ;;00143-1764-01
 ;;9002226.02101,"618,00143-1764-10 ",.01)
 ;;00143-1764-10
 ;;9002226.02101,"618,00143-1764-10 ",.02)
 ;;00143-1764-10
 ;;9002226.02101,"618,00143-9868-22 ",.01)
 ;;00143-9868-22
 ;;9002226.02101,"618,00143-9868-22 ",.02)
 ;;00143-9868-22
 ;;9002226.02101,"618,00143-9869-22 ",.01)
 ;;00143-9869-22
 ;;9002226.02101,"618,00143-9869-22 ",.02)
 ;;00143-9869-22
 ;;9002226.02101,"618,00179-0072-30 ",.01)
 ;;00179-0072-30
 ;;9002226.02101,"618,00179-0072-30 ",.02)
 ;;00179-0072-30
 ;;9002226.02101,"618,00185-0613-01 ",.01)
 ;;00185-0613-01
 ;;9002226.02101,"618,00185-0613-01 ",.02)
 ;;00185-0613-01
 ;;9002226.02101,"618,00185-0613-05 ",.01)
 ;;00185-0613-05
 ;;9002226.02101,"618,00185-0613-05 ",.02)
 ;;00185-0613-05
 ;;9002226.02101,"618,00185-0615-01 ",.01)
 ;;00185-0615-01
 ;;9002226.02101,"618,00185-0615-01 ",.02)
 ;;00185-0615-01
 ;;9002226.02101,"618,00185-0615-05 ",.01)
 ;;00185-0615-05
 ;;9002226.02101,"618,00185-0615-05 ",.02)
 ;;00185-0615-05
 ;;9002226.02101,"618,00378-2586-01 ",.01)
 ;;00378-2586-01
 ;;9002226.02101,"618,00378-2586-01 ",.02)
 ;;00378-2586-01
 ;;9002226.02101,"618,00378-2586-10 ",.01)
 ;;00378-2586-10
 ;;9002226.02101,"618,00378-2586-10 ",.02)
 ;;00378-2586-10
 ;;9002226.02101,"618,00378-2587-01 ",.01)
 ;;00378-2587-01
 ;;9002226.02101,"618,00378-2587-01 ",.02)
 ;;00378-2587-01
 ;;9002226.02101,"618,00378-2587-10 ",.01)
 ;;00378-2587-10
 ;;9002226.02101,"618,00378-2587-10 ",.02)
 ;;00378-2587-10
 ;;9002226.02101,"618,00378-2588-01 ",.01)
 ;;00378-2588-01
 ;;9002226.02101,"618,00378-2588-01 ",.02)
 ;;00378-2588-01
 ;;9002226.02101,"618,00378-2588-10 ",.01)
 ;;00378-2588-10
 ;;9002226.02101,"618,00378-2588-10 ",.02)
 ;;00378-2588-10
 ;;9002226.02101,"618,00378-7028-01 ",.01)
 ;;00378-7028-01
 ;;9002226.02101,"618,00378-7028-01 ",.02)
 ;;00378-7028-01
 ;;9002226.02101,"618,00378-7028-10 ",.01)
 ;;00378-7028-10
 ;;9002226.02101,"618,00378-7028-10 ",.02)
 ;;00378-7028-10
 ;;9002226.02101,"618,00378-7029-01 ",.01)
 ;;00378-7029-01
 ;;9002226.02101,"618,00378-7029-01 ",.02)
 ;;00378-7029-01
 ;;9002226.02101,"618,00378-7029-10 ",.01)
 ;;00378-7029-10
 ;;9002226.02101,"618,00378-7029-10 ",.02)
 ;;00378-7029-10
 ;;9002226.02101,"618,00378-7030-01 ",.01)
 ;;00378-7030-01
 ;;9002226.02101,"618,00378-7030-01 ",.02)
 ;;00378-7030-01
 ;;9002226.02101,"618,00378-7030-10 ",.01)
 ;;00378-7030-10
 ;;9002226.02101,"618,00378-7030-10 ",.02)
 ;;00378-7030-10
 ;;9002226.02101,"618,00409-2312-02 ",.01)
 ;;00409-2312-02
 ;;9002226.02101,"618,00409-2312-02 ",.02)
 ;;00409-2312-02
 ;;9002226.02101,"618,00409-2312-31 ",.01)
 ;;00409-2312-31
 ;;9002226.02101,"618,00409-2312-31 ",.02)
 ;;00409-2312-31
 ;;9002226.02101,"618,00440-1617-12 ",.01)
 ;;00440-1617-12
 ;;9002226.02101,"618,00440-1617-12 ",.02)
 ;;00440-1617-12
 ;;9002226.02101,"618,00440-7195-30 ",.01)
 ;;00440-7195-30
 ;;9002226.02101,"618,00440-7195-30 ",.02)
 ;;00440-7195-30
 ;;9002226.02101,"618,00440-7195-60 ",.01)
 ;;00440-7195-60
 ;;9002226.02101,"618,00440-7195-60 ",.02)
 ;;00440-7195-60
 ;;9002226.02101,"618,00440-7195-90 ",.01)
 ;;00440-7195-90
 ;;9002226.02101,"618,00440-7195-90 ",.02)
 ;;00440-7195-90
 ;;9002226.02101,"618,00440-7195-92 ",.01)
 ;;00440-7195-92
 ;;9002226.02101,"618,00440-7195-92 ",.02)
 ;;00440-7195-92
 ;;9002226.02101,"618,00440-7196-30 ",.01)
 ;;00440-7196-30
 ;;9002226.02101,"618,00440-7196-30 ",.02)
 ;;00440-7196-30
 ;;9002226.02101,"618,00440-7196-60 ",.01)
 ;;00440-7196-60
 ;;9002226.02101,"618,00440-7196-60 ",.02)
 ;;00440-7196-60
 ;;9002226.02101,"618,00440-7196-90 ",.01)
 ;;00440-7196-90
 ;;9002226.02101,"618,00440-7196-90 ",.02)
 ;;00440-7196-90
 ;;9002226.02101,"618,00440-7196-92 ",.01)
 ;;00440-7196-92
 ;;9002226.02101,"618,00440-7196-92 ",.02)
 ;;00440-7196-92
 ;;9002226.02101,"618,00440-7360-30 ",.01)
 ;;00440-7360-30
 ;;9002226.02101,"618,00440-7360-30 ",.02)
 ;;00440-7360-30
 ;;9002226.02101,"618,00440-7426-04 ",.01)
 ;;00440-7426-04
 ;;9002226.02101,"618,00440-7426-04 ",.02)
 ;;00440-7426-04
 ;;9002226.02101,"618,00440-7426-06 ",.01)
 ;;00440-7426-06
 ;;9002226.02101,"618,00440-7426-06 ",.02)
 ;;00440-7426-06
 ;;9002226.02101,"618,00440-7426-09 ",.01)
 ;;00440-7426-09
 ;;9002226.02101,"618,00440-7426-09 ",.02)
 ;;00440-7426-09
 ;;9002226.02101,"618,00440-7426-12 ",.01)
 ;;00440-7426-12
 ;;9002226.02101,"618,00440-7426-12 ",.02)
 ;;00440-7426-12
 ;;9002226.02101,"618,00440-7426-20 ",.01)
 ;;00440-7426-20
 ;;9002226.02101,"618,00440-7426-20 ",.02)
 ;;00440-7426-20
 ;;9002226.02101,"618,00440-7426-30 ",.01)
 ;;00440-7426-30
 ;;9002226.02101,"618,00440-7426-30 ",.02)
 ;;00440-7426-30
 ;;9002226.02101,"618,00440-7426-60 ",.01)
 ;;00440-7426-60
 ;;9002226.02101,"618,00440-7426-60 ",.02)
 ;;00440-7426-60
 ;;9002226.02101,"618,00440-7616-30 ",.01)
 ;;00440-7616-30
 ;;9002226.02101,"618,00440-7616-30 ",.02)
 ;;00440-7616-30
 ;;9002226.02101,"618,00440-7617-04 ",.01)
 ;;00440-7617-04
 ;;9002226.02101,"618,00440-7617-04 ",.02)
 ;;00440-7617-04
 ;;9002226.02101,"618,00440-7617-06 ",.01)
 ;;00440-7617-06
 ;;9002226.02101,"618,00440-7617-06 ",.02)
 ;;00440-7617-06
 ;;9002226.02101,"618,00440-7617-12 ",.01)
 ;;00440-7617-12
 ;;9002226.02101,"618,00440-7617-12 ",.02)
 ;;00440-7617-12
 ;;9002226.02101,"618,00440-7617-15 ",.01)
 ;;00440-7617-15
 ;;9002226.02101,"618,00440-7617-15 ",.02)
 ;;00440-7617-15
 ;;9002226.02101,"618,00440-7617-16 ",.01)
 ;;00440-7617-16
 ;;9002226.02101,"618,00440-7617-16 ",.02)
 ;;00440-7617-16
 ;;9002226.02101,"618,00440-7617-21 ",.01)
 ;;00440-7617-21
 ;;9002226.02101,"618,00440-7617-21 ",.02)
 ;;00440-7617-21
 ;;9002226.02101,"618,00440-7617-30 ",.01)
 ;;00440-7617-30
 ;;9002226.02101,"618,00440-7617-30 ",.02)
 ;;00440-7617-30
 ;;9002226.02101,"618,00440-7620-04 ",.01)
 ;;00440-7620-04
 ;;9002226.02101,"618,00440-7620-04 ",.02)
 ;;00440-7620-04
 ;;9002226.02101,"618,00440-8195-04 ",.01)
 ;;00440-8195-04
 ;;9002226.02101,"618,00440-8195-04 ",.02)
 ;;00440-8195-04
 ;;9002226.02101,"618,00440-8195-06 ",.01)
 ;;00440-8195-06
 ;;9002226.02101,"618,00440-8195-06 ",.02)
 ;;00440-8195-06
 ;;9002226.02101,"618,00440-8195-10 ",.01)
 ;;00440-8195-10
 ;;9002226.02101,"618,00440-8195-10 ",.02)
 ;;00440-8195-10
 ;;9002226.02101,"618,00440-8195-12 ",.01)
 ;;00440-8195-12
 ;;9002226.02101,"618,00440-8195-12 ",.02)
 ;;00440-8195-12
 ;;9002226.02101,"618,00440-8195-20 ",.01)
 ;;00440-8195-20
 ;;9002226.02101,"618,00440-8195-20 ",.02)
 ;;00440-8195-20
 ;;9002226.02101,"618,00472-1400-16 ",.01)
 ;;00472-1400-16
 ;;9002226.02101,"618,00472-1400-16 ",.02)
 ;;00472-1400-16
 ;;9002226.02101,"618,00472-1627-04 ",.01)
 ;;00472-1627-04
 ;;9002226.02101,"618,00472-1627-04 ",.02)
 ;;00472-1627-04
 ;;9002226.02101,"618,00472-1627-08 ",.01)
 ;;00472-1627-08
 ;;9002226.02101,"618,00472-1627-08 ",.02)
 ;;00472-1627-08
 ;;9002226.02101,"618,00472-1627-16 ",.01)
 ;;00472-1627-16
 ;;9002226.02101,"618,00472-1627-16 ",.02)
 ;;00472-1627-16
 ;;9002226.02101,"618,00472-1628-16 ",.01)
 ;;00472-1628-16
 ;;9002226.02101,"618,00472-1628-16 ",.02)
 ;;00472-1628-16
 ;;9002226.02101,"618,00472-1629-08 ",.01)
 ;;00472-1629-08
 ;;9002226.02101,"618,00472-1629-08 ",.02)
 ;;00472-1629-08
 ;;9002226.02101,"618,00472-1629-16 ",.01)
 ;;00472-1629-16
 ;;9002226.02101,"618,00472-1629-16 ",.02)
 ;;00472-1629-16
 ;;9002226.02101,"618,00472-1630-04 ",.01)
 ;;00472-1630-04
 ;;9002226.02101,"618,00472-1630-04 ",.02)
 ;;00472-1630-04
 ;;9002226.02101,"618,00472-1630-16 ",.01)
 ;;00472-1630-16
 ;;9002226.02101,"618,00472-1630-16 ",.02)
 ;;00472-1630-16
 ;;9002226.02101,"618,00485-0072-01 ",.01)
 ;;00485-0072-01
 ;;9002226.02101,"618,00485-0072-01 ",.02)
 ;;00485-0072-01
 ;;9002226.02101,"618,00485-0074-02 ",.01)
 ;;00485-0074-02
 ;;9002226.02101,"618,00485-0074-02 ",.02)
 ;;00485-0074-02
 ;;9002226.02101,"618,00517-4201-25 ",.01)
 ;;00517-4201-25
 ;;9002226.02101,"618,00517-4201-25 ",.02)
 ;;00517-4201-25
 ;;9002226.02101,"618,00517-5601-25 ",.01)
 ;;00517-5601-25
 ;;9002226.02101,"618,00517-5601-25 ",.02)
 ;;00517-5601-25
 ;;9002226.02101,"618,00517-5602-25 ",.01)
 ;;00517-5602-25
 ;;9002226.02101,"618,00517-5602-25 ",.02)
 ;;00517-5602-25