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

BGP7LXEB.m

Go to the documentation of this file.
BGP7LXEB ; 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,"57866-4642-03 ")
 ;;133
 ;;21,"57866-4643-01 ")
 ;;190
 ;;21,"57866-4644-01 ")
 ;;238
 ;;21,"58016-0406-60 ")
 ;;417
 ;;21,"58864-0045-20 ")
 ;;418
 ;;21,"58864-0045-30 ")
 ;;419
 ;;21,"58864-0045-42 ")
 ;;420
 ;;21,"60346-0086-06 ")
 ;;421
 ;;21,"60346-0086-15 ")
 ;;422
 ;;21,"60346-0086-20 ")
 ;;423
 ;;21,"60346-0086-21 ")
 ;;424
 ;;21,"60346-0086-24 ")
 ;;425
 ;;21,"60346-0086-25 ")
 ;;426
 ;;21,"60346-0086-30 ")
 ;;427
 ;;21,"60346-0086-40 ")
 ;;428
 ;;21,"60346-0086-60 ")
 ;;429
 ;;21,"60346-0086-90 ")
 ;;430
 ;;21,"60346-0086-94 ")
 ;;431
 ;;21,"60346-0796-20 ")
 ;;305
 ;;21,"60346-0796-30 ")
 ;;306
 ;;21,"60809-0126-55 ")
 ;;191
 ;;21,"60809-0126-72 ")
 ;;192
 ;;21,"60809-0151-55 ")
 ;;62
 ;;21,"60809-0151-72 ")
 ;;63
 ;;21,"60809-0152-55 ")
 ;;88
 ;;21,"60809-0152-72 ")
 ;;89
 ;;21,"60809-0153-55 ")
 ;;134
 ;;21,"60809-0153-72 ")
 ;;135
 ;;21,"60809-0154-55 ")
 ;;239
 ;;21,"60809-0154-72 ")
 ;;240
 ;;21,"61392-0462-15 ")
 ;;64
 ;;21,"61392-0462-30 ")
 ;;65
 ;;21,"61392-0462-31 ")
 ;;66
 ;;21,"61392-0462-32 ")
 ;;67
 ;;21,"61392-0462-39 ")
 ;;68
 ;;21,"61392-0462-45 ")
 ;;69
 ;;21,"61392-0462-51 ")
 ;;70
 ;;21,"61392-0462-54 ")
 ;;71
 ;;21,"61392-0462-56 ")
 ;;72
 ;;21,"61392-0462-60 ")
 ;;73
 ;;21,"61392-0462-90 ")
 ;;74
 ;;21,"61392-0462-91 ")
 ;;75
 ;;21,"61392-0463-30 ")
 ;;136
 ;;21,"61392-0463-31 ")
 ;;137
 ;;21,"61392-0463-32 ")
 ;;138
 ;;21,"61392-0463-39 ")
 ;;139
 ;;21,"61392-0463-45 ")
 ;;140
 ;;21,"61392-0463-51 ")
 ;;141
 ;;21,"61392-0463-54 ")
 ;;142
 ;;21,"61392-0463-60 ")
 ;;143
 ;;21,"61392-0463-90 ")
 ;;144
 ;;21,"61392-0463-91 ")
 ;;145
 ;;21,"61392-0464-30 ")
 ;;193
 ;;21,"61392-0464-31 ")
 ;;194
 ;;21,"61392-0464-32 ")
 ;;195
 ;;21,"61392-0464-39 ")
 ;;196
 ;;21,"61392-0464-45 ")
 ;;197
 ;;21,"61392-0464-51 ")
 ;;198
 ;;21,"61392-0464-54 ")
 ;;199
 ;;21,"61392-0464-60 ")
 ;;200
 ;;21,"61392-0464-90 ")
 ;;201
 ;;21,"61392-0464-91 ")
 ;;202
 ;;21,"61392-0465-30 ")
 ;;241
 ;;21,"61392-0465-31 ")
 ;;242
 ;;21,"61392-0465-32 ")
 ;;243
 ;;21,"61392-0465-39 ")
 ;;244
 ;;21,"61392-0465-45 ")
 ;;245
 ;;21,"61392-0465-51 ")
 ;;246
 ;;21,"61392-0465-54 ")
 ;;247
 ;;21,"61392-0465-60 ")
 ;;248
 ;;21,"61392-0465-90 ")
 ;;249
 ;;21,"61392-0465-91 ")
 ;;250
 ;;21,"66116-0230-30 ")
 ;;432
 ;;21,"66116-0651-30 ")
 ;;433
 ;;21,"66267-0113-15 ")
 ;;434
 ;;21,"66267-0113-30 ")
 ;;435
 ;;21,"68030-3874-01 ")
 ;;436
 ;;9002226,621,.01)
 ;;BGP HEDIS ANTIPSYCHOTIC NDC
 ;;9002226,621,.02)
 ;;@
 ;;9002226,621,.04)
 ;;n
 ;;9002226,621,.06)
 ;;@
 ;;9002226,621,.08)
 ;;@
 ;;9002226,621,.09)
 ;;@
 ;;9002226,621,.11)
 ;;@
 ;;9002226,621,.12)
 ;;@
 ;;9002226,621,.13)
 ;;1
 ;;9002226,621,.14)
 ;;@
 ;;9002226,621,.15)
 ;;@
 ;;9002226,621,.16)
 ;;@
 ;;9002226,621,.17)
 ;;@
 ;;9002226,621,3101)
 ;;@
 ;;9002226.02101,"621,00049-5620-41 ",.01)
 ;;00049-5620-41
 ;;9002226.02101,"621,00049-5620-41 ",.02)
 ;;00049-5620-41
 ;;9002226.02101,"621,00049-5630-41 ",.01)
 ;;00049-5630-41
 ;;9002226.02101,"621,00049-5630-41 ",.02)
 ;;00049-5630-41
 ;;9002226.02101,"621,00054-3860-50 ",.01)
 ;;00054-3860-50
 ;;9002226.02101,"621,00054-3860-50 ",.02)
 ;;00054-3860-50
 ;;9002226.02101,"621,00054-3861-50 ",.01)
 ;;00054-3861-50
 ;;9002226.02101,"621,00054-3861-50 ",.02)
 ;;00054-3861-50
 ;;9002226.02101,"621,00071-2220-23 ",.01)
 ;;00071-2220-23
 ;;9002226.02101,"621,00071-2220-23 ",.02)
 ;;00071-2220-23
 ;;9002226.02101,"621,00071-2333-20 ",.01)
 ;;00071-2333-20
 ;;9002226.02101,"621,00071-2333-20 ",.02)
 ;;00071-2333-20
 ;;9002226.02101,"621,00078-0001-31 ",.01)
 ;;00078-0001-31
 ;;9002226.02101,"621,00078-0001-31 ",.02)
 ;;00078-0001-31
 ;;9002226.02101,"621,00078-0002-05 ",.01)
 ;;00078-0002-05
 ;;9002226.02101,"621,00078-0002-05 ",.02)
 ;;00078-0002-05
 ;;9002226.02101,"621,00078-0002-06 ",.01)
 ;;00078-0002-06
 ;;9002226.02101,"621,00078-0002-06 ",.02)
 ;;00078-0002-06
 ;;9002226.02101,"621,00078-0002-09 ",.01)
 ;;00078-0002-09
 ;;9002226.02101,"621,00078-0002-09 ",.02)
 ;;00078-0002-09
 ;;9002226.02101,"621,00078-0003-05 ",.01)
 ;;00078-0003-05
 ;;9002226.02101,"621,00078-0003-05 ",.02)
 ;;00078-0003-05
 ;;9002226.02101,"621,00078-0003-06 ",.01)
 ;;00078-0003-06
 ;;9002226.02101,"621,00078-0003-06 ",.02)
 ;;00078-0003-06
 ;;9002226.02101,"621,00078-0003-09 ",.01)
 ;;00078-0003-09
 ;;9002226.02101,"621,00078-0003-09 ",.02)
 ;;00078-0003-09
 ;;9002226.02101,"621,00078-0004-05 ",.01)
 ;;00078-0004-05
 ;;9002226.02101,"621,00078-0004-05 ",.02)
 ;;00078-0004-05
 ;;9002226.02101,"621,00078-0004-06 ",.01)
 ;;00078-0004-06
 ;;9002226.02101,"621,00078-0004-06 ",.02)
 ;;00078-0004-06
 ;;9002226.02101,"621,00078-0004-09 ",.01)
 ;;00078-0004-09
 ;;9002226.02101,"621,00078-0004-09 ",.02)
 ;;00078-0004-09
 ;;9002226.02101,"621,00078-0005-05 ",.01)
 ;;00078-0005-05
 ;;9002226.02101,"621,00078-0005-05 ",.02)
 ;;00078-0005-05
 ;;9002226.02101,"621,00078-0006-05 ",.01)
 ;;00078-0006-05
 ;;9002226.02101,"621,00078-0006-05 ",.02)
 ;;00078-0006-05
 ;;9002226.02101,"621,00078-0006-65 ",.01)
 ;;00078-0006-65
 ;;9002226.02101,"621,00078-0006-65 ",.02)
 ;;00078-0006-65
 ;;9002226.02101,"621,00078-0007-05 ",.01)
 ;;00078-0007-05
 ;;9002226.02101,"621,00078-0007-05 ",.02)
 ;;00078-0007-05
 ;;9002226.02101,"621,00078-0008-05 ",.01)
 ;;00078-0008-05
 ;;9002226.02101,"621,00078-0008-05 ",.02)
 ;;00078-0008-05
 ;;9002226.02101,"621,00084-0705-32 ",.01)
 ;;00084-0705-32
 ;;9002226.02101,"621,00084-0705-32 ",.02)
 ;;00084-0705-32
 ;;9002226.02101,"621,00113-0379-16 ",.01)
 ;;00113-0379-16
 ;;9002226.02101,"621,00113-0379-16 ",.02)
 ;;00113-0379-16
 ;;9002226.02101,"621,00121-0661-04 ",.01)
 ;;00121-0661-04
 ;;9002226.02101,"621,00121-0661-04 ",.02)
 ;;00121-0661-04
 ;;9002226.02101,"621,00121-0662-04 ",.01)
 ;;00121-0662-04
 ;;9002226.02101,"621,00121-0662-04 ",.02)
 ;;00121-0662-04
 ;;9002226.02101,"621,00182-0683-40 ",.01)
 ;;00182-0683-40
 ;;9002226.02101,"621,00182-0683-40 ",.02)
 ;;00182-0683-40
 ;;9002226.02101,"621,00182-0683-41 ",.01)
 ;;00182-0683-41
 ;;9002226.02101,"621,00182-0683-41 ",.02)
 ;;00182-0683-41
 ;;9002226.02101,"621,00182-6060-37 ",.01)
 ;;00182-6060-37
 ;;9002226.02101,"621,00182-6060-37 ",.02)
 ;;00182-6060-37
 ;;9002226.02101,"621,00223-1008-05 ",.01)
 ;;00223-1008-05
 ;;9002226.02101,"621,00223-1008-05 ",.02)
 ;;00223-1008-05
 ;;9002226.02101,"621,00223-2128-01 ",.01)
 ;;00223-2128-01
 ;;9002226.02101,"621,00223-2128-01 ",.02)
 ;;00223-2128-01
 ;;9002226.02101,"621,00223-2128-02 ",.01)
 ;;00223-2128-02
 ;;9002226.02101,"621,00223-2128-02 ",.02)
 ;;00223-2128-02
 ;;9002226.02101,"621,00223-2129-01 ",.01)
 ;;00223-2129-01
 ;;9002226.02101,"621,00223-2129-01 ",.02)
 ;;00223-2129-01
 ;;9002226.02101,"621,00223-2129-02 ",.01)
 ;;00223-2129-02
 ;;9002226.02101,"621,00223-2129-02 ",.02)
 ;;00223-2129-02
 ;;9002226.02101,"621,00223-2130-01 ",.01)
 ;;00223-2130-01
 ;;9002226.02101,"621,00223-2130-01 ",.02)
 ;;00223-2130-01
 ;;9002226.02101,"621,00223-2130-02 ",.01)
 ;;00223-2130-02
 ;;9002226.02101,"621,00223-2130-02 ",.02)
 ;;00223-2130-02
 ;;9002226.02101,"621,00223-2131-01 ",.01)
 ;;00223-2131-01
 ;;9002226.02101,"621,00223-2131-01 ",.02)
 ;;00223-2131-01
 ;;9002226.02101,"621,00223-2131-02 ",.01)
 ;;00223-2131-02
 ;;9002226.02101,"621,00223-2131-02 ",.02)
 ;;00223-2131-02
 ;;9002226.02101,"621,00223-2132-01 ",.01)
 ;;00223-2132-01
 ;;9002226.02101,"621,00223-2132-01 ",.02)
 ;;00223-2132-01
 ;;9002226.02101,"621,00223-2132-02 ",.01)
 ;;00223-2132-02
 ;;9002226.02101,"621,00223-2132-02 ",.02)
 ;;00223-2132-02
 ;;9002226.02101,"621,00223-2133-01 ",.01)
 ;;00223-2133-01
 ;;9002226.02101,"621,00223-2133-01 ",.02)
 ;;00223-2133-01
 ;;9002226.02101,"621,00223-2133-02 ",.01)
 ;;00223-2133-02
 ;;9002226.02101,"621,00223-2133-02 ",.02)
 ;;00223-2133-02
 ;;9002226.02101,"621,00223-2134-01 ",.01)
 ;;00223-2134-01
 ;;9002226.02101,"621,00223-2134-01 ",.02)
 ;;00223-2134-01
 ;;9002226.02101,"621,00223-2134-02 ",.01)
 ;;00223-2134-02
 ;;9002226.02101,"621,00223-2134-02 ",.02)
 ;;00223-2134-02
 ;;9002226.02101,"621,00228-2206-10 ",.01)
 ;;00228-2206-10
 ;;9002226.02101,"621,00228-2206-10 ",.02)
 ;;00228-2206-10
 ;;9002226.02101,"621,00298-5504-04 ",.01)
 ;;00298-5504-04
 ;;9002226.02101,"621,00298-5504-04 ",.02)
 ;;00298-5504-04
 ;;9002226.02101,"621,00298-5504-16 ",.01)
 ;;00298-5504-16
 ;;9002226.02101,"621,00298-5504-16 ",.02)
 ;;00298-5504-16
 ;;9002226.02101,"621,00298-5504-18 ",.01)
 ;;00298-5504-18
 ;;9002226.02101,"621,00298-5504-18 ",.02)
 ;;00298-5504-18
 ;;9002226.02101,"621,00302-3487-01 ",.01)
 ;;00302-3487-01
 ;;9002226.02101,"621,00302-3487-01 ",.02)
 ;;00302-3487-01
 ;;9002226.02101,"621,00349-2137-01 ",.01)
 ;;00349-2137-01
 ;;9002226.02101,"621,00349-2137-01 ",.02)
 ;;00349-2137-01
 ;;9002226.02101,"621,00349-2137-05 ",.01)
 ;;00349-2137-05
 ;;9002226.02101,"621,00349-2137-05 ",.02)
 ;;00349-2137-05
 ;;9002226.02101,"621,00349-2137-10 ",.01)
 ;;00349-2137-10
 ;;9002226.02101,"621,00349-2137-10 ",.02)
 ;;00349-2137-10
 ;;9002226.02101,"621,00349-8355-01 ",.01)
 ;;00349-8355-01
 ;;9002226.02101,"621,00349-8355-01 ",.02)
 ;;00349-8355-01
 ;;9002226.02101,"621,00349-8355-05 ",.01)
 ;;00349-8355-05
 ;;9002226.02101,"621,00349-8355-05 ",.02)
 ;;00349-8355-05
 ;;9002226.02101,"621,00349-8459-16 ",.01)
 ;;00349-8459-16
 ;;9002226.02101,"621,00349-8459-16 ",.02)
 ;;00349-8459-16
 ;;9002226.02101,"621,00364-0724-01 ",.01)
 ;;00364-0724-01
 ;;9002226.02101,"621,00364-0724-01 ",.02)
 ;;00364-0724-01
 ;;9002226.02101,"621,00364-7023-16 ",.01)
 ;;00364-7023-16
 ;;9002226.02101,"621,00364-7023-16 ",.02)
 ;;00364-7023-16
 ;;9002226.02101,"621,00364-7023-99 ",.01)
 ;;00364-7023-99
 ;;9002226.02101,"621,00364-7023-99 ",.02)
 ;;00364-7023-99
 ;;9002226.02101,"621,00378-0612-01 ",.01)
 ;;00378-0612-01
 ;;9002226.02101,"621,00378-0612-01 ",.02)
 ;;00378-0612-01
 ;;9002226.02101,"621,00378-0612-10 ",.01)
 ;;00378-0612-10
 ;;9002226.02101,"621,00378-0612-10 ",.02)
 ;;00378-0612-10
 ;;9002226.02101,"621,00378-0614-01 ",.01)
 ;;00378-0614-01
 ;;9002226.02101,"621,00378-0614-01 ",.02)
 ;;00378-0614-01
 ;;9002226.02101,"621,00378-0614-10 ",.01)
 ;;00378-0614-10
 ;;9002226.02101,"621,00378-0614-10 ",.02)
 ;;00378-0614-10
 ;;9002226.02101,"621,00378-0616-01 ",.01)
 ;;00378-0616-01
 ;;9002226.02101,"621,00378-0616-01 ",.02)
 ;;00378-0616-01
 ;;9002226.02101,"621,00378-0616-10 ",.01)
 ;;00378-0616-10
 ;;9002226.02101,"621,00378-0616-10 ",.02)
 ;;00378-0616-10
 ;;9002226.02101,"621,00378-0618-01 ",.01)
 ;;00378-0618-01
 ;;9002226.02101,"621,00378-0618-01 ",.02)
 ;;00378-0618-01
 ;;9002226.02101,"621,00378-0618-10 ",.01)
 ;;00378-0618-10
 ;;9002226.02101,"621,00378-0618-10 ",.02)
 ;;00378-0618-10
 ;;9002226.02101,"621,00403-0414-84 ",.01)
 ;;00403-0414-84
 ;;9002226.02101,"621,00403-0414-84 ",.02)
 ;;00403-0414-84
 ;;9002226.02101,"621,00403-0414-86 ",.01)
 ;;00403-0414-86
 ;;9002226.02101,"621,00403-0414-86 ",.02)
 ;;00403-0414-86
 ;;9002226.02101,"621,00405-4993-01 ",.01)
 ;;00405-4993-01
 ;;9002226.02101,"621,00405-4993-01 ",.02)
 ;;00405-4993-01
 ;;9002226.02101,"621,00405-4993-03 ",.01)
 ;;00405-4993-03
 ;;9002226.02101,"621,00405-4993-03 ",.02)
 ;;00405-4993-03
 ;;9002226.02101,"621,00405-4994-01 ",.01)
 ;;00405-4994-01
 ;;9002226.02101,"621,00405-4994-01 ",.02)
 ;;00405-4994-01
 ;;9002226.02101,"621,00405-4995-01 ",.01)
 ;;00405-4995-01
 ;;9002226.02101,"621,00405-4995-01 ",.02)
 ;;00405-4995-01
 ;;9002226.02101,"621,00405-4995-03 ",.01)
 ;;00405-4995-03
 ;;9002226.02101,"621,00405-4995-03 ",.02)
 ;;00405-4995-03
 ;;9002226.02101,"621,00405-4996-01 ",.01)
 ;;00405-4996-01
 ;;9002226.02101,"621,00405-4996-01 ",.02)
 ;;00405-4996-01
 ;;9002226.02101,"621,00405-4996-03 ",.01)
 ;;00405-4996-03
 ;;9002226.02101,"621,00405-4996-03 ",.02)
 ;;00405-4996-03
 ;;9002226.02101,"621,00405-4997-01 ",.01)
 ;;00405-4997-01
 ;;9002226.02101,"621,00405-4997-01 ",.02)
 ;;00405-4997-01
 ;;9002226.02101,"621,00405-4998-01 ",.01)
 ;;00405-4998-01
 ;;9002226.02101,"621,00405-4998-01 ",.02)
 ;;00405-4998-01
 ;;9002226.02101,"621,00405-4999-01 ",.01)
 ;;00405-4999-01
 ;;9002226.02101,"621,00405-4999-01 ",.02)
 ;;00405-4999-01
 ;;9002226.02101,"621,00417-0837-75 ",.01)
 ;;00417-0837-75
 ;;9002226.02101,"621,00417-0837-75 ",.02)
 ;;00417-0837-75
 ;;9002226.02101,"621,00426-0356-04 ",.01)
 ;;00426-0356-04
 ;;9002226.02101,"621,00426-0356-04 ",.02)
 ;;00426-0356-04
 ;;9002226.02101,"621,00472-1224-94 ",.01)
 ;;00472-1224-94
 ;;9002226.02101,"621,00472-1224-94 ",.02)
 ;;00472-1224-94
 ;;9002226.02101,"621,00472-1225-94 ",.01)
 ;;00472-1225-94
 ;;9002226.02101,"621,00472-1225-94 ",.02)
 ;;00472-1225-94
 ;;9002226.02101,"621,00472-1227-04 ",.01)
 ;;00472-1227-04
 ;;9002226.02101,"621,00472-1227-04 ",.02)
 ;;00472-1227-04
 ;;9002226.02101,"621,00472-1227-16 ",.01)
 ;;00472-1227-16
 ;;9002226.02101,"621,00472-1227-16 ",.02)
 ;;00472-1227-16
 ;;9002226.02101,"621,00472-1227-28 ",.01)
 ;;00472-1227-28
 ;;9002226.02101,"621,00472-1227-28 ",.02)
 ;;00472-1227-28
 ;;9002226.02101,"621,00472-1451-94 ",.01)
 ;;00472-1451-94
 ;;9002226.02101,"621,00472-1451-94 ",.02)
 ;;00472-1451-94
 ;;9002226.02101,"621,00536-0470-85 ",.01)
 ;;00536-0470-85
 ;;9002226.02101,"621,00536-0470-85 ",.02)
 ;;00536-0470-85