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

BGP7GXOC.m

Go to the documentation of this file.
BGP7GXOC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 25, 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,"63739-0188-01 ")
 ;;130
 ;;21,"63739-0188-03 ")
 ;;131
 ;;21,"63868-0611-32 ")
 ;;484
 ;;21,"63868-0789-24 ")
 ;;485
 ;;21,"64727-3299-01 ")
 ;;314
 ;;21,"64727-3300-01 ")
 ;;341
 ;;21,"64727-3308-01 ")
 ;;381
 ;;21,"64727-3312-01 ")
 ;;397
 ;;21,"64727-7070-01 ")
 ;;315
 ;;21,"64727-7070-02 ")
 ;;316
 ;;21,"64727-7073-02 ")
 ;;342
 ;;21,"64727-7075-08 ")
 ;;343
 ;;21,"64727-7080-01 ")
 ;;382
 ;;21,"64727-7080-02 ")
 ;;383
 ;;21,"64727-7087-01 ")
 ;;398
 ;;21,"64727-7087-02 ")
 ;;399
 ;;21,"64899-0094-32 ")
 ;;799
 ;;21,"65162-0480-10 ")
 ;;752
 ;;21,"65162-0480-50 ")
 ;;753
 ;;21,"65162-0481-10 ")
 ;;656
 ;;21,"65162-0481-50 ")
 ;;657
 ;;21,"65628-0020-01 ")
 ;;444
 ;;21,"65628-0021-01 ")
 ;;443
 ;;21,"65759-0990-36 ")
 ;;486
 ;;21,"65759-0991-32 ")
 ;;487
 ;;21,"66116-0626-30 ")
 ;;658
 ;;21,"66267-0145-84 ")
 ;;754
 ;;21,"66267-0145-86 ")
 ;;755
 ;;21,"66887-0001-05 ")
 ;;421
 ;;21,"68030-4026-01 ")
 ;;756
 ;;21,"68030-4026-03 ")
 ;;757
 ;;21,"68030-4026-06 ")
 ;;758
 ;;21,"68030-4027-01 ")
 ;;659
 ;;21,"68030-4027-02 ")
 ;;660
 ;;21,"68030-4027-07 ")
 ;;661
 ;;21,"68030-4027-08 ")
 ;;760
 ;;21,"68030-6045-01 ")
 ;;761
 ;;21,"68030-6045-02 ")
 ;;762
 ;;21,"68030-6045-03 ")
 ;;763
 ;;21,"68030-9784-01 ")
 ;;759
 ;;21,"68115-0220-14 ")
 ;;247
 ;;21,"68115-0235-15 ")
 ;;676
 ;;21,"68115-0258-28 ")
 ;;132
 ;;21,"68115-0666-00 ")
 ;;349
 ;;21,"68115-0809-30 ")
 ;;422
 ;;21,"68387-0340-90 ")
 ;;677
 ;;21,"70030-0133-59 ")
 ;;800
 ;;21,"70030-0138-07 ")
 ;;801
 ;;21,"70030-0139-71 ")
 ;;488
 ;;21,"73913-1152-82 ")
 ;;489
 ;;21,"82468-0614-52 ")
 ;;490
 ;;21,"87701-0904-14 ")
 ;;491
 ;;21,"87701-0905-79 ")
 ;;492
 ;;21,"91899-0146-62 ")
 ;;493
 ;;21,"97807-0010-52 ")
 ;;802
 ;;9002226,634,.01)
 ;;BGP HEDIS OTHER NDC AVOID ELD
 ;;9002226,634,.02)
 ;;@
 ;;9002226,634,.04)
 ;;n
 ;;9002226,634,.06)
 ;;@
 ;;9002226,634,.08)
 ;;@
 ;;9002226,634,.09)
 ;;@
 ;;9002226,634,.11)
 ;;@
 ;;9002226,634,.12)
 ;;@
 ;;9002226,634,.13)
 ;;1
 ;;9002226,634,.14)
 ;;@
 ;;9002226,634,.15)
 ;;@
 ;;9002226,634,.16)
 ;;@
 ;;9002226,634,.17)
 ;;@
 ;;9002226,634,3101)
 ;;@
 ;;9002226.02101,"634,00007-3155-18 ",.01)
 ;;00007-3155-18
 ;;9002226.02101,"634,00007-3155-18 ",.02)
 ;;00007-3155-18
 ;;9002226.02101,"634,00007-3156-13 ",.01)
 ;;00007-3156-13
 ;;9002226.02101,"634,00007-3156-13 ",.02)
 ;;00007-3156-13
 ;;9002226.02101,"634,00009-0347-02 ",.01)
 ;;00009-0347-02
 ;;9002226.02101,"634,00009-0347-02 ",.02)
 ;;00009-0347-02
 ;;9002226.02101,"634,00009-0417-01 ",.01)
 ;;00009-0417-01
 ;;9002226.02101,"634,00009-0417-01 ",.02)
 ;;00009-0417-01
 ;;9002226.02101,"634,00009-0417-02 ",.01)
 ;;00009-0417-02
 ;;9002226.02101,"634,00009-0417-02 ",.02)
 ;;00009-0417-02
 ;;9002226.02101,"634,00024-2253-04 ",.01)
 ;;00024-2253-04
 ;;9002226.02101,"634,00024-2253-04 ",.02)
 ;;00024-2253-04
 ;;9002226.02101,"634,00031-7429-64 ",.01)
 ;;00031-7429-64
 ;;9002226.02101,"634,00031-7429-64 ",.02)
 ;;00031-7429-64
 ;;9002226.02101,"634,00051-8425-30 ",.01)
 ;;00051-8425-30
 ;;9002226.02101,"634,00051-8425-30 ",.02)
 ;;00051-8425-30
 ;;9002226.02101,"634,00051-8450-30 ",.01)
 ;;00051-8450-30
 ;;9002226.02101,"634,00051-8450-30 ",.02)
 ;;00051-8450-30
 ;;9002226.02101,"634,00051-8488-88 ",.01)
 ;;00051-8488-88
 ;;9002226.02101,"634,00051-8488-88 ",.02)
 ;;00051-8488-88
 ;;9002226.02101,"634,00052-0691-05 ",.01)
 ;;00052-0691-05
 ;;9002226.02101,"634,00052-0691-05 ",.02)
 ;;00052-0691-05
 ;;9002226.02101,"634,00052-0695-02 ",.01)
 ;;00052-0695-02
 ;;9002226.02101,"634,00052-0695-02 ",.02)
 ;;00052-0695-02
 ;;9002226.02101,"634,00052-0696-02 ",.01)
 ;;00052-0696-02
 ;;9002226.02101,"634,00052-0696-02 ",.02)
 ;;00052-0696-02
 ;;9002226.02101,"634,00052-0697-02 ",.01)
 ;;00052-0697-02
 ;;9002226.02101,"634,00052-0697-02 ",.02)
 ;;00052-0697-02
 ;;9002226.02101,"634,00052-0698-01 ",.01)
 ;;00052-0698-01
 ;;9002226.02101,"634,00052-0698-01 ",.02)
 ;;00052-0698-01
 ;;9002226.02101,"634,00052-0698-25 ",.01)
 ;;00052-0698-25
 ;;9002226.02101,"634,00052-0698-25 ",.02)
 ;;00052-0698-25
 ;;9002226.02101,"634,00052-0698-71 ",.01)
 ;;00052-0698-71
 ;;9002226.02101,"634,00052-0698-71 ",.02)
 ;;00052-0698-71
 ;;9002226.02101,"634,00076-0301-03 ",.01)
 ;;00076-0301-03
 ;;9002226.02101,"634,00076-0301-03 ",.02)
 ;;00076-0301-03
 ;;9002226.02101,"634,00076-0301-04 ",.01)
 ;;00076-0301-04
 ;;9002226.02101,"634,00076-0301-04 ",.02)
 ;;00076-0301-04
 ;;9002226.02101,"634,00113-0024-05 ",.01)
 ;;00113-0024-05
 ;;9002226.02101,"634,00113-0024-05 ",.02)
 ;;00113-0024-05
 ;;9002226.02101,"634,00113-0024-73 ",.01)
 ;;00113-0024-73
 ;;9002226.02101,"634,00113-0024-73 ",.02)
 ;;00113-0024-73
 ;;9002226.02101,"634,00113-0431-62 ",.01)
 ;;00113-0431-62
 ;;9002226.02101,"634,00113-0431-62 ",.02)
 ;;00113-0431-62
 ;;9002226.02101,"634,00115-3982-01 ",.01)
 ;;00115-3982-01
 ;;9002226.02101,"634,00115-3982-01 ",.02)
 ;;00115-3982-01
 ;;9002226.02101,"634,00115-3982-02 ",.01)
 ;;00115-3982-02
 ;;9002226.02101,"634,00115-3982-02 ",.02)
 ;;00115-3982-02
 ;;9002226.02101,"634,00115-3982-03 ",.01)
 ;;00115-3982-03
 ;;9002226.02101,"634,00115-3982-03 ",.02)
 ;;00115-3982-03
 ;;9002226.02101,"634,00115-3984-01 ",.01)
 ;;00115-3984-01
 ;;9002226.02101,"634,00115-3984-01 ",.02)
 ;;00115-3984-01
 ;;9002226.02101,"634,00115-3984-02 ",.01)
 ;;00115-3984-02
 ;;9002226.02101,"634,00115-3984-02 ",.02)
 ;;00115-3984-02
 ;;9002226.02101,"634,00115-3984-03 ",.01)
 ;;00115-3984-03
 ;;9002226.02101,"634,00115-3984-03 ",.02)
 ;;00115-3984-03
 ;;9002226.02101,"634,00115-3986-01 ",.01)
 ;;00115-3986-01
 ;;9002226.02101,"634,00115-3986-01 ",.02)
 ;;00115-3986-01
 ;;9002226.02101,"634,00115-3986-02 ",.01)
 ;;00115-3986-02
 ;;9002226.02101,"634,00115-3986-02 ",.02)
 ;;00115-3986-02
 ;;9002226.02101,"634,00115-3986-03 ",.01)
 ;;00115-3986-03
 ;;9002226.02101,"634,00115-3986-03 ",.02)
 ;;00115-3986-03
 ;;9002226.02101,"634,00115-4824-01 ",.01)
 ;;00115-4824-01
 ;;9002226.02101,"634,00115-4824-01 ",.02)
 ;;00115-4824-01
 ;;9002226.02101,"634,00115-4824-03 ",.01)
 ;;00115-4824-03
 ;;9002226.02101,"634,00115-4824-03 ",.02)
 ;;00115-4824-03
 ;;9002226.02101,"634,00115-4826-01 ",.01)
 ;;00115-4826-01
 ;;9002226.02101,"634,00115-4826-01 ",.02)
 ;;00115-4826-01
 ;;9002226.02101,"634,00115-4826-03 ",.01)
 ;;00115-4826-03
 ;;9002226.02101,"634,00115-4826-03 ",.02)
 ;;00115-4826-03
 ;;9002226.02101,"634,00115-7037-01 ",.01)
 ;;00115-7037-01
 ;;9002226.02101,"634,00115-7037-01 ",.02)
 ;;00115-7037-01
 ;;9002226.02101,"634,00115-7038-01 ",.01)
 ;;00115-7038-01
 ;;9002226.02101,"634,00115-7038-01 ",.02)
 ;;00115-7038-01
 ;;9002226.02101,"634,00149-0007-05 ",.01)
 ;;00149-0007-05
 ;;9002226.02101,"634,00149-0007-05 ",.02)
 ;;00149-0007-05
 ;;9002226.02101,"634,00149-0008-05 ",.01)
 ;;00149-0008-05
 ;;9002226.02101,"634,00149-0008-05 ",.02)
 ;;00149-0008-05
 ;;9002226.02101,"634,00149-0008-66 ",.01)
 ;;00149-0008-66
 ;;9002226.02101,"634,00149-0008-66 ",.02)
 ;;00149-0008-66
 ;;9002226.02101,"634,00149-0008-67 ",.01)
 ;;00149-0008-67
 ;;9002226.02101,"634,00149-0008-67 ",.02)
 ;;00149-0008-67
 ;;9002226.02101,"634,00149-0008-77 ",.01)
 ;;00149-0008-77
 ;;9002226.02101,"634,00149-0008-77 ",.02)
 ;;00149-0008-77
 ;;9002226.02101,"634,00149-0009-05 ",.01)
 ;;00149-0009-05
 ;;9002226.02101,"634,00149-0009-05 ",.02)
 ;;00149-0009-05
 ;;9002226.02101,"634,00149-0009-66 ",.01)
 ;;00149-0009-66
 ;;9002226.02101,"634,00149-0009-66 ",.02)
 ;;00149-0009-66
 ;;9002226.02101,"634,00149-0009-67 ",.01)
 ;;00149-0009-67
 ;;9002226.02101,"634,00149-0009-67 ",.02)
 ;;00149-0009-67
 ;;9002226.02101,"634,00149-0009-77 ",.01)
 ;;00149-0009-77
 ;;9002226.02101,"634,00149-0009-77 ",.02)
 ;;00149-0009-77
 ;;9002226.02101,"634,00149-0710-01 ",.01)
 ;;00149-0710-01
 ;;9002226.02101,"634,00149-0710-01 ",.02)
 ;;00149-0710-01
 ;;9002226.02101,"634,00149-0735-15 ",.01)
 ;;00149-0735-15
 ;;9002226.02101,"634,00149-0735-15 ",.02)
 ;;00149-0735-15
 ;;9002226.02101,"634,00149-0735-61 ",.01)
 ;;00149-0735-61
 ;;9002226.02101,"634,00149-0735-61 ",.02)
 ;;00149-0735-61
 ;;9002226.02101,"634,00172-2130-60 ",.01)
 ;;00172-2130-60
 ;;9002226.02101,"634,00172-2130-60 ",.02)
 ;;00172-2130-60
 ;;9002226.02101,"634,00172-2130-70 ",.01)
 ;;00172-2130-70
 ;;9002226.02101,"634,00172-2130-70 ",.02)
 ;;00172-2130-70
 ;;9002226.02101,"634,00172-2130-80 ",.01)
 ;;00172-2130-80
 ;;9002226.02101,"634,00172-2130-80 ",.02)
 ;;00172-2130-80
 ;;9002226.02101,"634,00172-2131-60 ",.01)
 ;;00172-2131-60
 ;;9002226.02101,"634,00172-2131-60 ",.02)
 ;;00172-2131-60
 ;;9002226.02101,"634,00172-2131-70 ",.01)
 ;;00172-2131-70
 ;;9002226.02101,"634,00172-2131-70 ",.02)
 ;;00172-2131-70
 ;;9002226.02101,"634,00172-2131-80 ",.01)
 ;;00172-2131-80
 ;;9002226.02101,"634,00172-2131-80 ",.02)
 ;;00172-2131-80
 ;;9002226.02101,"634,00182-0493-10 ",.01)
 ;;00182-0493-10
 ;;9002226.02101,"634,00182-0493-10 ",.02)
 ;;00182-0493-10
 ;;9002226.02101,"634,00182-0494-10 ",.01)
 ;;00182-0494-10
 ;;9002226.02101,"634,00182-0494-10 ",.02)
 ;;00182-0494-10
 ;;9002226.02101,"634,00182-0714-63 ",.01)
 ;;00182-0714-63
 ;;9002226.02101,"634,00182-0714-63 ",.02)
 ;;00182-0714-63
 ;;9002226.02101,"634,00182-1142-61 ",.01)
 ;;00182-1142-61
 ;;9002226.02101,"634,00182-1142-61 ",.02)
 ;;00182-1142-61
 ;;9002226.02101,"634,00182-1143-61 ",.01)
 ;;00182-1143-61
 ;;9002226.02101,"634,00182-1143-61 ",.02)
 ;;00182-1143-61
 ;;9002226.02101,"634,00182-1817-89 ",.01)
 ;;00182-1817-89
 ;;9002226.02101,"634,00182-1817-89 ",.02)
 ;;00182-1817-89
 ;;9002226.02101,"634,00182-1818-89 ",.01)
 ;;00182-1818-89
 ;;9002226.02101,"634,00182-1818-89 ",.02)
 ;;00182-1818-89
 ;;9002226.02101,"634,00182-1919-00 ",.01)
 ;;00182-1919-00
 ;;9002226.02101,"634,00182-1919-00 ",.02)
 ;;00182-1919-00
 ;;9002226.02101,"634,00182-1944-01 ",.01)
 ;;00182-1944-01
 ;;9002226.02101,"634,00182-1944-01 ",.02)
 ;;00182-1944-01
 ;;9002226.02101,"634,00182-1944-05 ",.01)
 ;;00182-1944-05
 ;;9002226.02101,"634,00182-1944-05 ",.02)
 ;;00182-1944-05
 ;;9002226.02101,"634,00182-1944-89 ",.01)
 ;;00182-1944-89
 ;;9002226.02101,"634,00182-1944-89 ",.02)
 ;;00182-1944-89
 ;;9002226.02101,"634,00182-1945-01 ",.01)
 ;;00182-1945-01
 ;;9002226.02101,"634,00182-1945-01 ",.02)
 ;;00182-1945-01
 ;;9002226.02101,"634,00182-1945-89 ",.01)
 ;;00182-1945-89
 ;;9002226.02101,"634,00182-1945-89 ",.02)
 ;;00182-1945-89
 ;;9002226.02101,"634,00185-0122-01 ",.01)
 ;;00185-0122-01
 ;;9002226.02101,"634,00185-0122-01 ",.02)
 ;;00185-0122-01
 ;;9002226.02101,"634,00185-0122-10 ",.01)
 ;;00185-0122-10
 ;;9002226.02101,"634,00185-0122-10 ",.02)
 ;;00185-0122-10
 ;;9002226.02101,"634,00187-0311-01 ",.01)
 ;;00187-0311-01
 ;;9002226.02101,"634,00187-0311-01 ",.02)
 ;;00187-0311-01
 ;;9002226.02101,"634,00187-0311-06 ",.01)
 ;;00187-0311-06
 ;;9002226.02101,"634,00187-0311-06 ",.02)
 ;;00187-0311-06
 ;;9002226.02101,"634,00187-0499-06 ",.01)
 ;;00187-0499-06
 ;;9002226.02101,"634,00187-0499-06 ",.02)
 ;;00187-0499-06
 ;;9002226.02101,"634,00187-0901-01 ",.01)
 ;;00187-0901-01
 ;;9002226.02101,"634,00187-0901-01 ",.02)
 ;;00187-0901-01
 ;;9002226.02101,"634,00187-0902-01 ",.01)
 ;;00187-0902-01
 ;;9002226.02101,"634,00187-0902-01 ",.02)
 ;;00187-0902-01
 ;;9002226.02101,"634,00223-2072-01 ",.01)
 ;;00223-2072-01
 ;;9002226.02101,"634,00223-2072-01 ",.02)
 ;;00223-2072-01
 ;;9002226.02101,"634,00223-2072-02 ",.01)
 ;;00223-2072-02
 ;;9002226.02101,"634,00223-2072-02 ",.02)
 ;;00223-2072-02
 ;;9002226.02101,"634,00223-2074-01 ",.01)
 ;;00223-2074-01
 ;;9002226.02101,"634,00223-2074-01 ",.02)
 ;;00223-2074-01
 ;;9002226.02101,"634,00223-2074-02 ",.01)
 ;;00223-2074-02
 ;;9002226.02101,"634,00223-2074-02 ",.02)
 ;;00223-2074-02
 ;;9002226.02101,"634,00223-2076-01 ",.01)
 ;;00223-2076-01
 ;;9002226.02101,"634,00223-2076-01 ",.02)
 ;;00223-2076-01
 ;;9002226.02101,"634,00223-2076-02 ",.01)
 ;;00223-2076-02
 ;;9002226.02101,"634,00223-2076-02 ",.02)
 ;;00223-2076-02
 ;;9002226.02101,"634,00223-8660-10 ",.01)
 ;;00223-8660-10
 ;;9002226.02101,"634,00223-8660-10 ",.02)
 ;;00223-8660-10
 ;;9002226.02101,"634,00247-0137-02 ",.01)
 ;;00247-0137-02
 ;;9002226.02101,"634,00247-0137-02 ",.02)
 ;;00247-0137-02
 ;;9002226.02101,"634,00247-0137-04 ",.01)
 ;;00247-0137-04
 ;;9002226.02101,"634,00247-0137-04 ",.02)
 ;;00247-0137-04
 ;;9002226.02101,"634,00247-0137-10 ",.01)
 ;;00247-0137-10
 ;;9002226.02101,"634,00247-0137-10 ",.02)
 ;;00247-0137-10
 ;;9002226.02101,"634,00247-0137-12 ",.01)
 ;;00247-0137-12
 ;;9002226.02101,"634,00247-0137-12 ",.02)
 ;;00247-0137-12
 ;;9002226.02101,"634,00247-0137-14 ",.01)
 ;;00247-0137-14
 ;;9002226.02101,"634,00247-0137-14 ",.02)
 ;;00247-0137-14
 ;;9002226.02101,"634,00247-0137-20 ",.01)
 ;;00247-0137-20
 ;;9002226.02101,"634,00247-0137-20 ",.02)
 ;;00247-0137-20
 ;;9002226.02101,"634,00247-0137-21 ",.01)
 ;;00247-0137-21
 ;;9002226.02101,"634,00247-0137-21 ",.02)
 ;;00247-0137-21
 ;;9002226.02101,"634,00247-0137-28 ",.01)
 ;;00247-0137-28
 ;;9002226.02101,"634,00247-0137-28 ",.02)
 ;;00247-0137-28
 ;;9002226.02101,"634,00247-0137-30 ",.01)
 ;;00247-0137-30
 ;;9002226.02101,"634,00247-0137-30 ",.02)
 ;;00247-0137-30
 ;;9002226.02101,"634,00247-0137-40 ",.01)
 ;;00247-0137-40
 ;;9002226.02101,"634,00247-0137-40 ",.02)
 ;;00247-0137-40