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

BGP13N2.m

Go to the documentation of this file.
BGP13N2 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"58016-0967-00 ")
 ;;333
 ;;21,"58016-0967-30 ")
 ;;334
 ;;21,"58016-0967-60 ")
 ;;335
 ;;21,"58016-0967-90 ")
 ;;336
 ;;21,"58864-0323-14 ")
 ;;65
 ;;21,"58864-0371-14 ")
 ;;256
 ;;21,"58864-0371-20 ")
 ;;257
 ;;21,"58864-0371-30 ")
 ;;258
 ;;21,"58864-0651-14 ")
 ;;103
 ;;21,"59630-0450-08 ")
 ;;32
 ;;21,"59630-0450-16 ")
 ;;33
 ;;21,"61392-0168-30 ")
 ;;259
 ;;21,"61392-0168-31 ")
 ;;260
 ;;21,"61392-0168-32 ")
 ;;261
 ;;21,"61392-0168-39 ")
 ;;262
 ;;21,"61392-0168-45 ")
 ;;263
 ;;21,"61392-0168-51 ")
 ;;264
 ;;21,"61392-0168-54 ")
 ;;265
 ;;21,"61392-0168-60 ")
 ;;266
 ;;21,"61392-0168-90 ")
 ;;267
 ;;21,"61392-0168-91 ")
 ;;268
 ;;21,"61392-0169-30 ")
 ;;269
 ;;21,"61392-0169-31 ")
 ;;270
 ;;21,"61392-0169-32 ")
 ;;271
 ;;21,"61392-0169-39 ")
 ;;272
 ;;21,"61392-0169-45 ")
 ;;273
 ;;21,"61392-0169-51 ")
 ;;274
 ;;21,"61392-0169-54 ")
 ;;275
 ;;21,"61392-0169-60 ")
 ;;276
 ;;21,"61392-0169-90 ")
 ;;277
 ;;21,"61392-0169-91 ")
 ;;278
 ;;21,"62584-0808-01 ")
 ;;279
 ;;21,"62584-0808-11 ")
 ;;280
 ;;21,"63304-0518-01 ")
 ;;330
 ;;21,"63629-1459-01 ")
 ;;281
 ;;21,"63629-1459-02 ")
 ;;282
 ;;21,"63629-1459-03 ")
 ;;283
 ;;21,"63629-1748-01 ")
 ;;284
 ;;21,"63629-1748-02 ")
 ;;285
 ;;21,"63629-2713-01 ")
 ;;426
 ;;21,"63629-2713-02 ")
 ;;427
 ;;21,"64727-3298-01 ")
 ;;111
 ;;21,"64727-3298-02 ")
 ;;112
 ;;21,"64727-3299-01 ")
 ;;113
 ;;21,"64727-3299-02 ")
 ;;114
 ;;21,"64727-3300-01 ")
 ;;115
 ;;21,"64727-3300-02 ")
 ;;116
 ;;21,"64727-3308-01 ")
 ;;117
 ;;21,"64727-3308-02 ")
 ;;118
 ;;21,"64727-3312-01 ")
 ;;119
 ;;21,"64727-3312-02 ")
 ;;120
 ;;21,"64727-7070-01 ")
 ;;432
 ;;21,"64727-7070-02 ")
 ;;433
 ;;21,"64727-7073-01 ")
 ;;434
 ;;21,"64727-7073-02 ")
 ;;435
 ;;21,"64727-7075-08 ")
 ;;436
 ;;21,"64727-7080-01 ")
 ;;437
 ;;21,"64727-7080-02 ")
 ;;438
 ;;21,"64727-7087-01 ")
 ;;439
 ;;21,"64727-7087-02 ")
 ;;440
 ;;21,"66105-0450-10 ")
 ;;66
 ;;21,"66336-0008-14 ")
 ;;286
 ;;21,"66336-0008-28 ")
 ;;287
 ;;21,"66336-0289-14 ")
 ;;67
 ;;21,"66336-0289-20 ")
 ;;68
 ;;21,"66336-0590-14 ")
 ;;288
 ;;21,"66336-0590-20 ")
 ;;289
 ;;21,"66336-0952-60 ")
 ;;428
 ;;21,"68115-0220-06 ")
 ;;69
 ;;21,"68115-0220-14 ")
 ;;70
 ;;21,"68115-0220-20 ")
 ;;71
 ;;21,"68115-0258-28 ")
 ;;290
 ;;21,"68115-0259-28 ")
 ;;291
 ;;21,"68115-0666-00 ")
 ;;429
 ;;9002226,718,.01)
 ;;BGP HEDIS OTHER NDC AVOID ELD
 ;;9002226,718,.02)
 ;;@
 ;;9002226,718,.04)
 ;;n
 ;;9002226,718,.06)
 ;;@
 ;;9002226,718,.08)
 ;;@
 ;;9002226,718,.09)
 ;;@
 ;;9002226,718,.11)
 ;;@
 ;;9002226,718,.12)
 ;;@
 ;;9002226,718,.13)
 ;;1
 ;;9002226,718,.14)
 ;;@
 ;;9002226,718,.15)
 ;;@
 ;;9002226,718,.16)
 ;;@
 ;;9002226,718,.17)
 ;;@
 ;;9002226,718,3101)
 ;;@
 ;;9002226.02101,"718,00076-0301-03 ",.01)
 ;;00076-0301-03
 ;;9002226.02101,"718,00076-0301-03 ",.02)
 ;;00076-0301-03
 ;;9002226.02101,"718,00076-0301-04 ",.01)
 ;;00076-0301-04
 ;;9002226.02101,"718,00076-0301-04 ",.02)
 ;;00076-0301-04
 ;;9002226.02101,"718,00093-2130-01 ",.01)
 ;;00093-2130-01
 ;;9002226.02101,"718,00093-2130-01 ",.02)
 ;;00093-2130-01
 ;;9002226.02101,"718,00093-2130-10 ",.01)
 ;;00093-2130-10
 ;;9002226.02101,"718,00093-2130-10 ",.02)
 ;;00093-2130-10
 ;;9002226.02101,"718,00093-2130-19 ",.01)
 ;;00093-2130-19
 ;;9002226.02101,"718,00093-2130-19 ",.02)
 ;;00093-2130-19
 ;;9002226.02101,"718,00093-2130-93 ",.01)
 ;;00093-2130-93
 ;;9002226.02101,"718,00093-2130-93 ",.02)
 ;;00093-2130-93
 ;;9002226.02101,"718,00093-2131-01 ",.01)
 ;;00093-2131-01
 ;;9002226.02101,"718,00093-2131-01 ",.02)
 ;;00093-2131-01
 ;;9002226.02101,"718,00093-2131-10 ",.01)
 ;;00093-2131-10
 ;;9002226.02101,"718,00093-2131-10 ",.02)
 ;;00093-2131-10
 ;;9002226.02101,"718,00093-2131-19 ",.01)
 ;;00093-2131-19
 ;;9002226.02101,"718,00093-2131-19 ",.02)
 ;;00093-2131-19
 ;;9002226.02101,"718,00093-2131-93 ",.01)
 ;;00093-2131-93
 ;;9002226.02101,"718,00093-2131-93 ",.02)
 ;;00093-2131-93
 ;;9002226.02101,"718,00115-3984-01 ",.01)
 ;;00115-3984-01
 ;;9002226.02101,"718,00115-3984-01 ",.02)
 ;;00115-3984-01
 ;;9002226.02101,"718,00115-4824-01 ",.01)
 ;;00115-4824-01
 ;;9002226.02101,"718,00115-4824-01 ",.02)
 ;;00115-4824-01
 ;;9002226.02101,"718,00115-4824-03 ",.01)
 ;;00115-4824-03
 ;;9002226.02101,"718,00115-4824-03 ",.02)
 ;;00115-4824-03
 ;;9002226.02101,"718,00115-4826-01 ",.01)
 ;;00115-4826-01
 ;;9002226.02101,"718,00115-4826-01 ",.02)
 ;;00115-4826-01
 ;;9002226.02101,"718,00115-4826-03 ",.01)
 ;;00115-4826-03
 ;;9002226.02101,"718,00115-4826-03 ",.02)
 ;;00115-4826-03
 ;;9002226.02101,"718,00115-7037-01 ",.01)
 ;;00115-7037-01
 ;;9002226.02101,"718,00115-7037-01 ",.02)
 ;;00115-7037-01
 ;;9002226.02101,"718,00149-0007-05 ",.01)
 ;;00149-0007-05
 ;;9002226.02101,"718,00149-0007-05 ",.02)
 ;;00149-0007-05
 ;;9002226.02101,"718,00149-0008-05 ",.01)
 ;;00149-0008-05
 ;;9002226.02101,"718,00149-0008-05 ",.02)
 ;;00149-0008-05
 ;;9002226.02101,"718,00149-0008-66 ",.01)
 ;;00149-0008-66
 ;;9002226.02101,"718,00149-0008-66 ",.02)
 ;;00149-0008-66
 ;;9002226.02101,"718,00149-0008-67 ",.01)
 ;;00149-0008-67
 ;;9002226.02101,"718,00149-0008-67 ",.02)
 ;;00149-0008-67
 ;;9002226.02101,"718,00149-0008-77 ",.01)
 ;;00149-0008-77
 ;;9002226.02101,"718,00149-0008-77 ",.02)
 ;;00149-0008-77
 ;;9002226.02101,"718,00149-0009-05 ",.01)
 ;;00149-0009-05
 ;;9002226.02101,"718,00149-0009-05 ",.02)
 ;;00149-0009-05
 ;;9002226.02101,"718,00149-0009-66 ",.01)
 ;;00149-0009-66
 ;;9002226.02101,"718,00149-0009-66 ",.02)
 ;;00149-0009-66
 ;;9002226.02101,"718,00149-0009-67 ",.01)
 ;;00149-0009-67
 ;;9002226.02101,"718,00149-0009-67 ",.02)
 ;;00149-0009-67
 ;;9002226.02101,"718,00149-0009-77 ",.01)
 ;;00149-0009-77
 ;;9002226.02101,"718,00149-0009-77 ",.02)
 ;;00149-0009-77
 ;;9002226.02101,"718,00149-0710-01 ",.01)
 ;;00149-0710-01
 ;;9002226.02101,"718,00149-0710-01 ",.02)
 ;;00149-0710-01
 ;;9002226.02101,"718,00172-2130-60 ",.01)
 ;;00172-2130-60
 ;;9002226.02101,"718,00172-2130-60 ",.02)
 ;;00172-2130-60
 ;;9002226.02101,"718,00172-2130-80 ",.01)
 ;;00172-2130-80
 ;;9002226.02101,"718,00172-2130-80 ",.02)
 ;;00172-2130-80
 ;;9002226.02101,"718,00172-2131-60 ",.01)
 ;;00172-2131-60
 ;;9002226.02101,"718,00172-2131-60 ",.02)
 ;;00172-2131-60
 ;;9002226.02101,"718,00172-2131-70 ",.01)
 ;;00172-2131-70
 ;;9002226.02101,"718,00172-2131-70 ",.02)
 ;;00172-2131-70
 ;;9002226.02101,"718,00182-0493-10 ",.01)
 ;;00182-0493-10
 ;;9002226.02101,"718,00182-0493-10 ",.02)
 ;;00182-0493-10
 ;;9002226.02101,"718,00182-0494-10 ",.01)
 ;;00182-0494-10
 ;;9002226.02101,"718,00182-0494-10 ",.02)
 ;;00182-0494-10
 ;;9002226.02101,"718,00182-1944-00 ",.01)
 ;;00182-1944-00
 ;;9002226.02101,"718,00182-1944-00 ",.02)
 ;;00182-1944-00
 ;;9002226.02101,"718,00182-1944-89 ",.01)
 ;;00182-1944-89
 ;;9002226.02101,"718,00182-1944-89 ",.02)
 ;;00182-1944-89
 ;;9002226.02101,"718,00182-1945-00 ",.01)
 ;;00182-1945-00
 ;;9002226.02101,"718,00182-1945-00 ",.02)
 ;;00182-1945-00
 ;;9002226.02101,"718,00182-1945-89 ",.01)
 ;;00182-1945-89
 ;;9002226.02101,"718,00182-1945-89 ",.02)
 ;;00182-1945-89
 ;;9002226.02101,"718,00185-0122-01 ",.01)
 ;;00185-0122-01
 ;;9002226.02101,"718,00185-0122-01 ",.02)
 ;;00185-0122-01
 ;;9002226.02101,"718,00185-0122-10 ",.01)
 ;;00185-0122-10
 ;;9002226.02101,"718,00185-0122-10 ",.02)
 ;;00185-0122-10
 ;;9002226.02101,"718,00187-0311-01 ",.01)
 ;;00187-0311-01
 ;;9002226.02101,"718,00187-0311-01 ",.02)
 ;;00187-0311-01
 ;;9002226.02101,"718,00187-0311-06 ",.01)
 ;;00187-0311-06
 ;;9002226.02101,"718,00187-0311-06 ",.02)
 ;;00187-0311-06
 ;;9002226.02101,"718,00187-0499-06 ",.01)
 ;;00187-0499-06
 ;;9002226.02101,"718,00187-0499-06 ",.02)
 ;;00187-0499-06
 ;;9002226.02101,"718,00187-0901-01 ",.01)
 ;;00187-0901-01
 ;;9002226.02101,"718,00187-0901-01 ",.02)
 ;;00187-0901-01
 ;;9002226.02101,"718,00187-0902-01 ",.01)
 ;;00187-0902-01
 ;;9002226.02101,"718,00187-0902-01 ",.02)
 ;;00187-0902-01
 ;;9002226.02101,"718,00223-2072-01 ",.01)
 ;;00223-2072-01
 ;;9002226.02101,"718,00223-2072-01 ",.02)
 ;;00223-2072-01
 ;;9002226.02101,"718,00223-2072-02 ",.01)
 ;;00223-2072-02
 ;;9002226.02101,"718,00223-2072-02 ",.02)
 ;;00223-2072-02
 ;;9002226.02101,"718,00223-2074-01 ",.01)
 ;;00223-2074-01
 ;;9002226.02101,"718,00223-2074-01 ",.02)
 ;;00223-2074-01
 ;;9002226.02101,"718,00223-2074-02 ",.01)
 ;;00223-2074-02
 ;;9002226.02101,"718,00223-2074-02 ",.02)
 ;;00223-2074-02
 ;;9002226.02101,"718,00223-2076-01 ",.01)
 ;;00223-2076-01
 ;;9002226.02101,"718,00223-2076-01 ",.02)
 ;;00223-2076-01
 ;;9002226.02101,"718,00223-2076-02 ",.01)
 ;;00223-2076-02
 ;;9002226.02101,"718,00223-2076-02 ",.02)
 ;;00223-2076-02
 ;;9002226.02101,"718,00247-0137-02 ",.01)
 ;;00247-0137-02
 ;;9002226.02101,"718,00247-0137-02 ",.02)
 ;;00247-0137-02
 ;;9002226.02101,"718,00247-0137-04 ",.01)
 ;;00247-0137-04
 ;;9002226.02101,"718,00247-0137-04 ",.02)
 ;;00247-0137-04
 ;;9002226.02101,"718,00247-0137-08 ",.01)
 ;;00247-0137-08
 ;;9002226.02101,"718,00247-0137-08 ",.02)
 ;;00247-0137-08
 ;;9002226.02101,"718,00247-0137-10 ",.01)
 ;;00247-0137-10
 ;;9002226.02101,"718,00247-0137-10 ",.02)
 ;;00247-0137-10
 ;;9002226.02101,"718,00247-0137-12 ",.01)
 ;;00247-0137-12
 ;;9002226.02101,"718,00247-0137-12 ",.02)
 ;;00247-0137-12
 ;;9002226.02101,"718,00247-0137-14 ",.01)
 ;;00247-0137-14
 ;;9002226.02101,"718,00247-0137-14 ",.02)
 ;;00247-0137-14
 ;;9002226.02101,"718,00247-0137-20 ",.01)
 ;;00247-0137-20
 ;;9002226.02101,"718,00247-0137-20 ",.02)
 ;;00247-0137-20
 ;;9002226.02101,"718,00247-0137-21 ",.01)
 ;;00247-0137-21
 ;;9002226.02101,"718,00247-0137-21 ",.02)
 ;;00247-0137-21
 ;;9002226.02101,"718,00247-0137-28 ",.01)
 ;;00247-0137-28
 ;;9002226.02101,"718,00247-0137-28 ",.02)
 ;;00247-0137-28
 ;;9002226.02101,"718,00247-0137-30 ",.01)
 ;;00247-0137-30
 ;;9002226.02101,"718,00247-0137-30 ",.02)
 ;;00247-0137-30
 ;;9002226.02101,"718,00247-0137-40 ",.01)
 ;;00247-0137-40
 ;;9002226.02101,"718,00247-0137-40 ",.02)
 ;;00247-0137-40
 ;;9002226.02101,"718,00247-0159-10 ",.01)
 ;;00247-0159-10
 ;;9002226.02101,"718,00247-0159-10 ",.02)
 ;;00247-0159-10
 ;;9002226.02101,"718,00247-0159-14 ",.01)
 ;;00247-0159-14
 ;;9002226.02101,"718,00247-0159-14 ",.02)
 ;;00247-0159-14
 ;;9002226.02101,"718,00247-0159-20 ",.01)
 ;;00247-0159-20
 ;;9002226.02101,"718,00247-0159-20 ",.02)
 ;;00247-0159-20
 ;;9002226.02101,"718,00247-0159-21 ",.01)
 ;;00247-0159-21
 ;;9002226.02101,"718,00247-0159-21 ",.02)
 ;;00247-0159-21
 ;;9002226.02101,"718,00247-0159-28 ",.01)
 ;;00247-0159-28
 ;;9002226.02101,"718,00247-0159-28 ",.02)
 ;;00247-0159-28
 ;;9002226.02101,"718,00247-0159-30 ",.01)
 ;;00247-0159-30
 ;;9002226.02101,"718,00247-0159-30 ",.02)
 ;;00247-0159-30
 ;;9002226.02101,"718,00247-0159-40 ",.01)
 ;;00247-0159-40
 ;;9002226.02101,"718,00247-0159-40 ",.02)
 ;;00247-0159-40
 ;;9002226.02101,"718,00247-0164-02 ",.01)
 ;;00247-0164-02
 ;;9002226.02101,"718,00247-0164-02 ",.02)
 ;;00247-0164-02
 ;;9002226.02101,"718,00247-0164-03 ",.01)
 ;;00247-0164-03
 ;;9002226.02101,"718,00247-0164-03 ",.02)
 ;;00247-0164-03
 ;;9002226.02101,"718,00247-0164-06 ",.01)
 ;;00247-0164-06
 ;;9002226.02101,"718,00247-0164-06 ",.02)
 ;;00247-0164-06
 ;;9002226.02101,"718,00247-0164-10 ",.01)
 ;;00247-0164-10
 ;;9002226.02101,"718,00247-0164-10 ",.02)
 ;;00247-0164-10
 ;;9002226.02101,"718,00247-0164-14 ",.01)
 ;;00247-0164-14
 ;;9002226.02101,"718,00247-0164-14 ",.02)
 ;;00247-0164-14
 ;;9002226.02101,"718,00247-0164-20 ",.01)
 ;;00247-0164-20
 ;;9002226.02101,"718,00247-0164-20 ",.02)
 ;;00247-0164-20
 ;;9002226.02101,"718,00247-0164-21 ",.01)
 ;;00247-0164-21
 ;;9002226.02101,"718,00247-0164-21 ",.02)
 ;;00247-0164-21
 ;;9002226.02101,"718,00247-0164-90 ",.01)
 ;;00247-0164-90
 ;;9002226.02101,"718,00247-0164-90 ",.02)
 ;;00247-0164-90
 ;;9002226.02101,"718,00247-0258-00 ",.01)
 ;;00247-0258-00
 ;;9002226.02101,"718,00247-0258-00 ",.02)
 ;;00247-0258-00
 ;;9002226.02101,"718,00247-0258-04 ",.01)
 ;;00247-0258-04
 ;;9002226.02101,"718,00247-0258-04 ",.02)
 ;;00247-0258-04
 ;;9002226.02101,"718,00247-0258-06 ",.01)
 ;;00247-0258-06
 ;;9002226.02101,"718,00247-0258-06 ",.02)
 ;;00247-0258-06
 ;;9002226.02101,"718,00247-0258-10 ",.01)
 ;;00247-0258-10
 ;;9002226.02101,"718,00247-0258-10 ",.02)
 ;;00247-0258-10
 ;;9002226.02101,"718,00247-0258-14 ",.01)
 ;;00247-0258-14