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

BGP47J9.m

Go to the documentation of this file.
BGP47J9 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"96295-0123-17 ")
 ;;3111
 ;;21,"96295-0123-19 ")
 ;;3112
 ;;21,"96619-0536-09 ")
 ;;3113
 ;;21,"97882-0001-05 ")
 ;;3114
 ;;9002226,618,.01)
 ;;BGP HEDIS ANTICHOLINERGIC NDC
 ;;9002226,618,.02)
 ;;@
 ;;9002226,618,.04)
 ;;n
 ;;9002226,618,.06)
 ;;@
 ;;9002226,618,.08)
 ;;@
 ;;9002226,618,.09)
 ;;3140316
 ;;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,00006-0021-68 ",.01)
 ;;00006-0021-68
 ;;9002226.02101,"618,00006-0021-68 ",.02)
 ;;00006-0021-68
 ;;9002226.02101,"618,00006-0062-68 ",.01)
 ;;00006-0062-68
 ;;9002226.02101,"618,00006-0062-68 ",.02)
 ;;00006-0062-68
 ;;9002226.02101,"618,00008-0019-01 ",.01)
 ;;00008-0019-01
 ;;9002226.02101,"618,00008-0019-01 ",.02)
 ;;00008-0019-01
 ;;9002226.02101,"618,00008-0027-02 ",.01)
 ;;00008-0027-02
 ;;9002226.02101,"618,00008-0027-02 ",.02)
 ;;00008-0027-02
 ;;9002226.02101,"618,00008-0027-07 ",.01)
 ;;00008-0027-07
 ;;9002226.02101,"618,00008-0027-07 ",.02)
 ;;00008-0027-07
 ;;9002226.02101,"618,00008-0063-01 ",.01)
 ;;00008-0063-01
 ;;9002226.02101,"618,00008-0063-01 ",.02)
 ;;00008-0063-01
 ;;9002226.02101,"618,00008-0212-01 ",.01)
 ;;00008-0212-01
 ;;9002226.02101,"618,00008-0212-01 ",.02)
 ;;00008-0212-01
 ;;9002226.02101,"618,00008-0227-01 ",.01)
 ;;00008-0227-01
 ;;9002226.02101,"618,00008-0227-01 ",.02)
 ;;00008-0227-01
 ;;9002226.02101,"618,00008-0229-01 ",.01)
 ;;00008-0229-01
 ;;9002226.02101,"618,00008-0229-01 ",.02)
 ;;00008-0229-01
 ;;9002226.02101,"618,00008-0498-01 ",.01)
 ;;00008-0498-01
 ;;9002226.02101,"618,00008-0498-01 ",.02)
 ;;00008-0498-01
 ;;9002226.02101,"618,00008-0550-01 ",.01)
 ;;00008-0550-01
 ;;9002226.02101,"618,00008-0550-01 ",.02)
 ;;00008-0550-01
 ;;9002226.02101,"618,00008-0550-02 ",.01)
 ;;00008-0550-02
 ;;9002226.02101,"618,00008-0550-02 ",.02)
 ;;00008-0550-02
 ;;9002226.02101,"618,00008-0746-01 ",.01)
 ;;00008-0746-01
 ;;9002226.02101,"618,00008-0746-01 ",.02)
 ;;00008-0746-01
 ;;9002226.02101,"618,00049-5460-74 ",.01)
 ;;00049-5460-74
 ;;9002226.02101,"618,00049-5460-74 ",.02)
 ;;00049-5460-74
 ;;9002226.02101,"618,00049-5590-93 ",.01)
 ;;00049-5590-93
 ;;9002226.02101,"618,00049-5590-93 ",.02)
 ;;00049-5590-93
 ;;9002226.02101,"618,00049-5600-66 ",.01)
 ;;00049-5600-66
 ;;9002226.02101,"618,00049-5600-66 ",.02)
 ;;00049-5600-66
 ;;9002226.02101,"618,00049-5610-66 ",.01)
 ;;00049-5610-66
 ;;9002226.02101,"618,00049-5610-66 ",.02)
 ;;00049-5610-66
 ;;9002226.02101,"618,00049-5610-73 ",.01)
 ;;00049-5610-73
 ;;9002226.02101,"618,00049-5610-73 ",.02)
 ;;00049-5610-73
 ;;9002226.02101,"618,00049-5620-66 ",.01)
 ;;00049-5620-66
 ;;9002226.02101,"618,00049-5620-66 ",.02)
 ;;00049-5620-66
 ;;9002226.02101,"618,00049-5630-66 ",.01)
 ;;00049-5630-66
 ;;9002226.02101,"618,00049-5630-66 ",.02)
 ;;00049-5630-66
 ;;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,00069-5430-66 ",.01)
 ;;00069-5430-66
 ;;9002226.02101,"618,00069-5430-66 ",.02)
 ;;00069-5430-66
 ;;9002226.02101,"618,00069-5440-93 ",.01)
 ;;00069-5440-93
 ;;9002226.02101,"618,00069-5440-93 ",.02)
 ;;00069-5440-93
 ;;9002226.02101,"618,00069-5440-97 ",.01)
 ;;00069-5440-97
 ;;9002226.02101,"618,00069-5440-97 ",.02)
 ;;00069-5440-97
 ;;9002226.02101,"618,00074-2312-01 ",.01)
 ;;00074-2312-01
 ;;9002226.02101,"618,00074-2312-01 ",.02)
 ;;00074-2312-01
 ;;9002226.02101,"618,00074-2312-11 ",.01)
 ;;00074-2312-11
 ;;9002226.02101,"618,00074-2312-11 ",.02)
 ;;00074-2312-11
 ;;9002226.02101,"618,00074-2312-31 ",.01)
 ;;00074-2312-31
 ;;9002226.02101,"618,00074-2312-31 ",.02)
 ;;00074-2312-31
 ;;9002226.02101,"618,00074-2335-01 ",.01)
 ;;00074-2335-01
 ;;9002226.02101,"618,00074-2335-01 ",.02)
 ;;00074-2335-01
 ;;9002226.02101,"618,00074-2335-31 ",.01)
 ;;00074-2335-31
 ;;9002226.02101,"618,00074-2335-31 ",.02)
 ;;00074-2335-31
 ;;9002226.02101,"618,00085-0016-05 ",.01)
 ;;00085-0016-05
 ;;9002226.02101,"618,00085-0016-05 ",.02)
 ;;00085-0016-05
 ;;9002226.02101,"618,00085-0095-03 ",.01)
 ;;00085-0095-03
 ;;9002226.02101,"618,00085-0095-03 ",.02)
 ;;00085-0095-03
 ;;9002226.02101,"618,00085-0148-03 ",.01)
 ;;00085-0148-03
 ;;9002226.02101,"618,00085-0148-03 ",.02)
 ;;00085-0148-03
 ;;9002226.02101,"618,00085-0820-03 ",.01)
 ;;00085-0820-03
 ;;9002226.02101,"618,00085-0820-03 ",.02)
 ;;00085-0820-03
 ;;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-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,00093-9268-12 ",.01)
 ;;00093-9268-12
 ;;9002226.02101,"618,00093-9268-12 ",.02)
 ;;00093-9268-12
 ;;9002226.02101,"618,00093-9268-16 ",.01)
 ;;00093-9268-16
 ;;9002226.02101,"618,00093-9268-16 ",.02)
 ;;00093-9268-16
 ;;9002226.02101,"618,00095-0006-01 ",.01)
 ;;00095-0006-01
 ;;9002226.02101,"618,00095-0006-01 ",.02)
 ;;00095-0006-01
 ;;9002226.02101,"618,00095-0008-16 ",.01)
 ;;00095-0008-16
 ;;9002226.02101,"618,00095-0008-16 ",.02)
 ;;00095-0008-16
 ;;9002226.02101,"618,00095-0645-01 ",.01)
 ;;00095-0645-01
 ;;9002226.02101,"618,00095-0645-01 ",.02)
 ;;00095-0645-01
 ;;9002226.02101,"618,00095-1200-06 ",.01)
 ;;00095-1200-06
 ;;9002226.02101,"618,00095-1200-06 ",.02)
 ;;00095-1200-06
 ;;9002226.02101,"618,00095-1290-06 ",.01)
 ;;00095-1290-06
 ;;9002226.02101,"618,00095-1290-06 ",.02)
 ;;00095-1290-06
 ;;9002226.02101,"618,00095-6004-16 ",.01)
 ;;00095-6004-16
 ;;9002226.02101,"618,00095-6004-16 ",.02)
 ;;00095-6004-16
 ;;9002226.02101,"618,00095-6006-01 ",.01)
 ;;00095-6006-01
 ;;9002226.02101,"618,00095-6006-01 ",.02)
 ;;00095-6006-01
 ;;9002226.02101,"618,00095-9008-16 ",.01)
 ;;00095-9008-16
 ;;9002226.02101,"618,00095-9008-16 ",.02)
 ;;00095-9008-16
 ;;9002226.02101,"618,00113-0462-62 ",.01)
 ;;00113-0462-62
 ;;9002226.02101,"618,00113-0462-62 ",.02)
 ;;00113-0462-62
 ;;9002226.02101,"618,00113-0479-62 ",.01)
 ;;00113-0479-62
 ;;9002226.02101,"618,00113-0479-62 ",.02)
 ;;00113-0479-62
 ;;9002226.02101,"618,00113-0479-78 ",.01)
 ;;00113-0479-78
 ;;9002226.02101,"618,00113-0479-78 ",.02)
 ;;00113-0479-78
 ;;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-05 ",.01)
 ;;00121-0658-05
 ;;9002226.02101,"618,00121-0658-05 ",.02)
 ;;00121-0658-05
 ;;9002226.02101,"618,00121-0658-10 ",.01)
 ;;00121-0658-10
 ;;9002226.02101,"618,00121-0658-10 ",.02)
 ;;00121-0658-10
 ;;9002226.02101,"618,00121-0658-12 ",.01)
 ;;00121-0658-12
 ;;9002226.02101,"618,00121-0658-12 ",.02)
 ;;00121-0658-12
 ;;9002226.02101,"618,00121-0658-16 ",.01)
 ;;00121-0658-16
 ;;9002226.02101,"618,00121-0658-16 ",.02)
 ;;00121-0658-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-9729-01 ",.01)
 ;;00143-9729-01
 ;;9002226.02101,"618,00143-9729-01 ",.02)
 ;;00143-9729-01
 ;;9002226.02101,"618,00143-9729-05 ",.01)
 ;;00143-9729-05
 ;;9002226.02101,"618,00143-9729-05 ",.02)
 ;;00143-9729-05
 ;;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,00172-2909-60 ",.01)
 ;;00172-2909-60
 ;;9002226.02101,"618,00172-2909-60 ",.02)
 ;;00172-2909-60
 ;;9002226.02101,"618,00172-2911-60 ",.01)
 ;;00172-2911-60
 ;;9002226.02101,"618,00172-2911-60 ",.02)
 ;;00172-2911-60
 ;;9002226.02101,"618,00172-2911-70 ",.01)
 ;;00172-2911-70
 ;;9002226.02101,"618,00172-2911-70 ",.02)
 ;;00172-2911-70
 ;;9002226.02101,"618,00172-2929-60 ",.01)
 ;;00172-2929-60
 ;;9002226.02101,"618,00172-2929-60 ",.02)
 ;;00172-2929-60
 ;;9002226.02101,"618,00172-2929-80 ",.01)
 ;;00172-2929-80
 ;;9002226.02101,"618,00172-2929-80 ",.02)
 ;;00172-2929-80
 ;;9002226.02101,"618,00182-0492-10 ",.01)
 ;;00182-0492-10
 ;;9002226.02101,"618,00182-0492-10 ",.02)
 ;;00182-0492-10
 ;;9002226.02101,"618,00182-1015-01 ",.01)
 ;;00182-1015-01
 ;;9002226.02101,"618,00182-1015-01 ",.02)
 ;;00182-1015-01
 ;;9002226.02101,"618,00182-1098-89 ",.01)
 ;;00182-1098-89
 ;;9002226.02101,"618,00182-1098-89 ",.02)
 ;;00182-1098-89
 ;;9002226.02101,"618,00182-1099-89 ",.01)
 ;;00182-1099-89
 ;;9002226.02101,"618,00182-1099-89 ",.02)
 ;;00182-1099-89
 ;;9002226.02101,"618,00182-1132-00 ",.01)
 ;;00182-1132-00
 ;;9002226.02101,"618,00182-1132-00 ",.02)
 ;;00182-1132-00
 ;;9002226.02101,"618,00182-1132-89 ",.01)
 ;;00182-1132-89
 ;;9002226.02101,"618,00182-1132-89 ",.02)
 ;;00182-1132-89
 ;;9002226.02101,"618,00182-1151-01 ",.01)
 ;;00182-1151-01
 ;;9002226.02101,"618,00182-1151-01 ",.02)
 ;;00182-1151-01
 ;;9002226.02101,"618,00182-1299-00 ",.01)
 ;;00182-1299-00
 ;;9002226.02101,"618,00182-1299-00 ",.02)
 ;;00182-1299-00
 ;;9002226.02101,"618,00182-1299-89 ",.01)
 ;;00182-1299-89
 ;;9002226.02101,"618,00182-1299-89 ",.02)
 ;;00182-1299-89
 ;;9002226.02101,"618,00182-1376-40 ",.01)
 ;;00182-1376-40
 ;;9002226.02101,"618,00182-1376-40 ",.02)
 ;;00182-1376-40
 ;;9002226.02101,"618,00182-1700-00 ",.01)
 ;;00182-1700-00
 ;;9002226.02101,"618,00182-1700-00 ",.02)
 ;;00182-1700-00
 ;;9002226.02101,"618,00182-1700-89 ",.01)
 ;;00182-1700-89
 ;;9002226.02101,"618,00182-1700-89 ",.02)
 ;;00182-1700-89
 ;;9002226.02101,"618,00182-1701-00 ",.01)
 ;;00182-1701-00
 ;;9002226.02101,"618,00182-1701-00 ",.02)
 ;;00182-1701-00
 ;;9002226.02101,"618,00182-1701-89 ",.01)
 ;;00182-1701-89
 ;;9002226.02101,"618,00182-1701-89 ",.02)
 ;;00182-1701-89
 ;;9002226.02101,"618,00182-6171-66 ",.01)
 ;;00182-6171-66
 ;;9002226.02101,"618,00182-6171-66 ",.02)
 ;;00182-6171-66
 ;;9002226.02101,"618,00182-7099-11 ",.01)
 ;;00182-7099-11
 ;;9002226.02101,"618,00182-7099-11 ",.02)
 ;;00182-7099-11
 ;;9002226.02101,"618,00182-7100-11 ",.01)
 ;;00182-7100-11
 ;;9002226.02101,"618,00182-7100-11 ",.02)
 ;;00182-7100-11
 ;;9002226.02101,"618,00182-7101-11 ",.01)
 ;;00182-7101-11
 ;;9002226.02101,"618,00182-7101-11 ",.02)
 ;;00182-7101-11
 ;;9002226.02101,"618,00182-8222-00 ",.01)
 ;;00182-8222-00
 ;;9002226.02101,"618,00182-8222-00 ",.02)
 ;;00182-8222-00
 ;;9002226.02101,"618,00182-8222-89 ",.01)
 ;;00182-8222-89