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

BGP8ZO.m

Go to the documentation of this file.
  1. BGP8ZO ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
  1. ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
  1. ;;BGP HEDIS ANTITHROMBOTIC NDC
  1. ;
  1. ; This routine loads Taxonomy BGP HEDIS ANTITHROMBOTIC NDC
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. D OTHER
  1. I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
  1. I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
  1. D KILL^ATXSTX2
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"00054-0434-25 ")
  1. ;;1
  1. ;;21,"00054-0435-25 ")
  1. ;;2
  1. ;;21,"00054-0436-25 ")
  1. ;;3
  1. ;;21,"00093-0154-01 ")
  1. ;;4
  1. ;;21,"00115-1070-01 ")
  1. ;;5
  1. ;;21,"00115-1070-03 ")
  1. ;;6
  1. ;;21,"00115-1071-01 ")
  1. ;;7
  1. ;;21,"00115-1071-03 ")
  1. ;;8
  1. ;;21,"00115-1072-01 ")
  1. ;;9
  1. ;;21,"00115-1072-03 ")
  1. ;;10
  1. ;;21,"00406-2187-01 ")
  1. ;;11
  1. ;;21,"00406-2187-10 ")
  1. ;;12
  1. ;;21,"00406-2188-01 ")
  1. ;;13
  1. ;;21,"00406-2188-10 ")
  1. ;;14
  1. ;;21,"00406-2189-01 ")
  1. ;;15
  1. ;;21,"00406-2189-10 ")
  1. ;;16
  1. ;;21,"00440-8562-60 ")
  1. ;;17
  1. ;;21,"00440-8562-91 ")
  1. ;;18
  1. ;;21,"00440-8562-92 ")
  1. ;;19
  1. ;;21,"00527-1461-01 ")
  1. ;;20
  1. ;;21,"00527-1461-10 ")
  1. ;;21
  1. ;;21,"00527-1462-01 ")
  1. ;;22
  1. ;;21,"00527-1462-10 ")
  1. ;;23
  1. ;;21,"00527-1463-01 ")
  1. ;;24
  1. ;;21,"00527-1463-10 ")
  1. ;;25
  1. ;;21,"00555-0252-02 ")
  1. ;;26
  1. ;;21,"00555-0252-05 ")
  1. ;;27
  1. ;;21,"00555-0285-02 ")
  1. ;;28
  1. ;;21,"00555-0285-05 ")
  1. ;;29
  1. ;;21,"00555-0286-02 ")
  1. ;;30
  1. ;;21,"00555-0286-05 ")
  1. ;;31
  1. ;;21,"00597-0017-01 ")
  1. ;;32
  1. ;;21,"00597-0018-01 ")
  1. ;;33
  1. ;;21,"00597-0019-01 ")
  1. ;;34
  1. ;;21,"00904-1086-61 ")
  1. ;;35
  1. ;;21,"00904-1087-61 ")
  1. ;;36
  1. ;;21,"00904-1088-61 ")
  1. ;;37
  1. ;;21,"10135-0536-10 ")
  1. ;;38
  1. ;;21,"10135-0537-10 ")
  1. ;;39
  1. ;;21,"10135-0538-10 ")
  1. ;;40
  1. ;;21,"42291-0526-10 ")
  1. ;;41
  1. ;;21,"42291-0527-10 ")
  1. ;;42
  1. ;;21,"42291-0528-10 ")
  1. ;;43
  1. ;;21,"50268-0263-11 ")
  1. ;;44
  1. ;;21,"50268-0263-15 ")
  1. ;;45
  1. ;;21,"50268-0264-11 ")
  1. ;;46
  1. ;;21,"50268-0264-15 ")
  1. ;;47
  1. ;;21,"50268-0265-11 ")
  1. ;;48
  1. ;;21,"50268-0265-15 ")
  1. ;;49
  1. ;;21,"54569-0470-00 ")
  1. ;;50
  1. ;;21,"54868-0042-01 ")
  1. ;;51
  1. ;;21,"54868-0042-02 ")
  1. ;;52
  1. ;;21,"54868-0042-04 ")
  1. ;;53
  1. ;;21,"54868-0043-00 ")
  1. ;;54
  1. ;;21,"54868-0043-01 ")
  1. ;;55
  1. ;;21,"54868-0043-02 ")
  1. ;;56
  1. ;;21,"54868-0043-03 ")
  1. ;;57
  1. ;;21,"54868-0044-00 ")
  1. ;;58
  1. ;;21,"54868-0044-01 ")
  1. ;;59
  1. ;;21,"54868-0044-02 ")
  1. ;;60
  1. ;;21,"55289-0748-01 ")
  1. ;;61
  1. ;;21,"57664-0327-06 ")
  1. ;;62
  1. ;;21,"57664-0327-13 ")
  1. ;;63
  1. ;;21,"57664-0327-83 ")
  1. ;;64
  1. ;;21,"57664-0327-86 ")
  1. ;;65
  1. ;;21,"60505-0027-02 ")
  1. ;;66
  1. ;;21,"60505-0027-04 ")
  1. ;;67
  1. ;;21,"60505-0027-07 ")
  1. ;;68
  1. ;;21,"64980-0133-01 ")
  1. ;;69
  1. ;;21,"64980-0133-10 ")
  1. ;;70
  1. ;;21,"64980-0134-01 ")
  1. ;;71
  1. ;;21,"64980-0134-10 ")
  1. ;;72
  1. ;;21,"64980-0135-01 ")
  1. ;;73
  1. ;;21,"64980-0135-10 ")
  1. ;;74
  1. ;;21,"68382-0187-01 ")
  1. ;;75
  1. ;;21,"68382-0187-05 ")
  1. ;;76
  1. ;;21,"68382-0187-10 ")
  1. ;;77
  1. ;;21,"68382-0188-01 ")
  1. ;;78
  1. ;;21,"68382-0188-05 ")
  1. ;;79
  1. ;;21,"68382-0188-10 ")
  1. ;;80
  1. ;;21,"68382-0189-01 ")
  1. ;;81
  1. ;;21,"68382-0189-05 ")
  1. ;;82
  1. ;;21,"68382-0189-10 ")
  1. ;;83
  1. ;;9002226,1796,.01)
  1. ;;BGP HEDIS ANTITHROMBOTIC NDC
  1. ;;9002226,1796,.02)
  1. ;;@
  1. ;;9002226,1796,.04)
  1. ;;n
  1. ;;9002226,1796,.06)
  1. ;;@
  1. ;;9002226,1796,.08)
  1. ;;@
  1. ;;9002226,1796,.09)
  1. ;;3180122
  1. ;;9002226,1796,.11)
  1. ;;@
  1. ;;9002226,1796,.12)
  1. ;;@
  1. ;;9002226,1796,.13)
  1. ;;1
  1. ;;9002226,1796,.14)
  1. ;;@
  1. ;;9002226,1796,.15)
  1. ;;50.67
  1. ;;9002226,1796,.16)
  1. ;;@
  1. ;;9002226,1796,.17)
  1. ;;@
  1. ;;9002226,1796,.22)
  1. ;;1
  1. ;;9002226,1796,3101)
  1. ;;@
  1. ;;9002226.02101,"1796,00054-0434-25 ",.01)
  1. ;;00054-0434-25
  1. ;;9002226.02101,"1796,00054-0434-25 ",.02)
  1. ;;00054-0434-25
  1. ;;9002226.02101,"1796,00054-0435-25 ",.01)
  1. ;;00054-0435-25
  1. ;;9002226.02101,"1796,00054-0435-25 ",.02)
  1. ;;00054-0435-25
  1. ;;9002226.02101,"1796,00054-0436-25 ",.01)
  1. ;;00054-0436-25
  1. ;;9002226.02101,"1796,00054-0436-25 ",.02)
  1. ;;00054-0436-25
  1. ;;9002226.02101,"1796,00093-0154-01 ",.01)
  1. ;;00093-0154-01
  1. ;;9002226.02101,"1796,00093-0154-01 ",.02)
  1. ;;00093-0154-01
  1. ;;9002226.02101,"1796,00115-1070-01 ",.01)
  1. ;;00115-1070-01
  1. ;;9002226.02101,"1796,00115-1070-01 ",.02)
  1. ;;00115-1070-01
  1. ;;9002226.02101,"1796,00115-1070-03 ",.01)
  1. ;;00115-1070-03
  1. ;;9002226.02101,"1796,00115-1070-03 ",.02)
  1. ;;00115-1070-03
  1. ;;9002226.02101,"1796,00115-1071-01 ",.01)
  1. ;;00115-1071-01
  1. ;;9002226.02101,"1796,00115-1071-01 ",.02)
  1. ;;00115-1071-01
  1. ;;9002226.02101,"1796,00115-1071-03 ",.01)
  1. ;;00115-1071-03
  1. ;;9002226.02101,"1796,00115-1071-03 ",.02)
  1. ;;00115-1071-03
  1. ;;9002226.02101,"1796,00115-1072-01 ",.01)
  1. ;;00115-1072-01
  1. ;;9002226.02101,"1796,00115-1072-01 ",.02)
  1. ;;00115-1072-01
  1. ;;9002226.02101,"1796,00115-1072-03 ",.01)
  1. ;;00115-1072-03
  1. ;;9002226.02101,"1796,00115-1072-03 ",.02)
  1. ;;00115-1072-03
  1. ;;9002226.02101,"1796,00406-2187-01 ",.01)
  1. ;;00406-2187-01
  1. ;;9002226.02101,"1796,00406-2187-01 ",.02)
  1. ;;00406-2187-01
  1. ;;9002226.02101,"1796,00406-2187-10 ",.01)
  1. ;;00406-2187-10
  1. ;;9002226.02101,"1796,00406-2187-10 ",.02)
  1. ;;00406-2187-10
  1. ;;9002226.02101,"1796,00406-2188-01 ",.01)
  1. ;;00406-2188-01
  1. ;;9002226.02101,"1796,00406-2188-01 ",.02)
  1. ;;00406-2188-01
  1. ;;9002226.02101,"1796,00406-2188-10 ",.01)
  1. ;;00406-2188-10
  1. ;;9002226.02101,"1796,00406-2188-10 ",.02)
  1. ;;00406-2188-10
  1. ;;9002226.02101,"1796,00406-2189-01 ",.01)
  1. ;;00406-2189-01
  1. ;;9002226.02101,"1796,00406-2189-01 ",.02)
  1. ;;00406-2189-01
  1. ;;9002226.02101,"1796,00406-2189-10 ",.01)
  1. ;;00406-2189-10
  1. ;;9002226.02101,"1796,00406-2189-10 ",.02)
  1. ;;00406-2189-10
  1. ;;9002226.02101,"1796,00440-8562-60 ",.01)
  1. ;;00440-8562-60
  1. ;;9002226.02101,"1796,00440-8562-60 ",.02)
  1. ;;00440-8562-60
  1. ;;9002226.02101,"1796,00440-8562-91 ",.01)
  1. ;;00440-8562-91
  1. ;;9002226.02101,"1796,00440-8562-91 ",.02)
  1. ;;00440-8562-91
  1. ;;9002226.02101,"1796,00440-8562-92 ",.01)
  1. ;;00440-8562-92
  1. ;;9002226.02101,"1796,00440-8562-92 ",.02)
  1. ;;00440-8562-92
  1. ;;9002226.02101,"1796,00527-1461-01 ",.01)
  1. ;;00527-1461-01
  1. ;;9002226.02101,"1796,00527-1461-01 ",.02)
  1. ;;00527-1461-01
  1. ;;9002226.02101,"1796,00527-1461-10 ",.01)
  1. ;;00527-1461-10
  1. ;;9002226.02101,"1796,00527-1461-10 ",.02)
  1. ;;00527-1461-10
  1. ;;9002226.02101,"1796,00527-1462-01 ",.01)
  1. ;;00527-1462-01
  1. ;;9002226.02101,"1796,00527-1462-01 ",.02)
  1. ;;00527-1462-01
  1. ;;9002226.02101,"1796,00527-1462-10 ",.01)
  1. ;;00527-1462-10
  1. ;;9002226.02101,"1796,00527-1462-10 ",.02)
  1. ;;00527-1462-10
  1. ;;9002226.02101,"1796,00527-1463-01 ",.01)
  1. ;;00527-1463-01
  1. ;;9002226.02101,"1796,00527-1463-01 ",.02)
  1. ;;00527-1463-01
  1. ;;9002226.02101,"1796,00527-1463-10 ",.01)
  1. ;;00527-1463-10
  1. ;;9002226.02101,"1796,00527-1463-10 ",.02)
  1. ;;00527-1463-10
  1. ;;9002226.02101,"1796,00555-0252-02 ",.01)
  1. ;;00555-0252-02
  1. ;;9002226.02101,"1796,00555-0252-02 ",.02)
  1. ;;00555-0252-02
  1. ;;9002226.02101,"1796,00555-0252-05 ",.01)
  1. ;;00555-0252-05
  1. ;;9002226.02101,"1796,00555-0252-05 ",.02)
  1. ;;00555-0252-05
  1. ;;9002226.02101,"1796,00555-0285-02 ",.01)
  1. ;;00555-0285-02
  1. ;;9002226.02101,"1796,00555-0285-02 ",.02)
  1. ;;00555-0285-02
  1. ;;9002226.02101,"1796,00555-0285-05 ",.01)
  1. ;;00555-0285-05
  1. ;;9002226.02101,"1796,00555-0285-05 ",.02)
  1. ;;00555-0285-05
  1. ;;9002226.02101,"1796,00555-0286-02 ",.01)
  1. ;;00555-0286-02
  1. ;;9002226.02101,"1796,00555-0286-02 ",.02)
  1. ;;00555-0286-02
  1. ;;9002226.02101,"1796,00555-0286-05 ",.01)
  1. ;;00555-0286-05
  1. ;;9002226.02101,"1796,00555-0286-05 ",.02)
  1. ;;00555-0286-05
  1. ;;9002226.02101,"1796,00597-0017-01 ",.01)
  1. ;;00597-0017-01
  1. ;;9002226.02101,"1796,00597-0017-01 ",.02)
  1. ;;00597-0017-01
  1. ;;9002226.02101,"1796,00597-0018-01 ",.01)
  1. ;;00597-0018-01
  1. ;;9002226.02101,"1796,00597-0018-01 ",.02)
  1. ;;00597-0018-01
  1. ;;9002226.02101,"1796,00597-0019-01 ",.01)
  1. ;;00597-0019-01
  1. ;;9002226.02101,"1796,00597-0019-01 ",.02)
  1. ;;00597-0019-01
  1. ;;9002226.02101,"1796,00904-1086-61 ",.01)
  1. ;;00904-1086-61
  1. ;;9002226.02101,"1796,00904-1086-61 ",.02)
  1. ;;00904-1086-61
  1. ;;9002226.02101,"1796,00904-1087-61 ",.01)
  1. ;;00904-1087-61
  1. ;;9002226.02101,"1796,00904-1087-61 ",.02)
  1. ;;00904-1087-61
  1. ;;9002226.02101,"1796,00904-1088-61 ",.01)
  1. ;;00904-1088-61
  1. ;;9002226.02101,"1796,00904-1088-61 ",.02)
  1. ;;00904-1088-61
  1. ;;9002226.02101,"1796,10135-0536-10 ",.01)
  1. ;;10135-0536-10
  1. ;;9002226.02101,"1796,10135-0536-10 ",.02)
  1. ;;10135-0536-10
  1. ;;9002226.02101,"1796,10135-0537-10 ",.01)
  1. ;;10135-0537-10
  1. ;;9002226.02101,"1796,10135-0537-10 ",.02)
  1. ;;10135-0537-10
  1. ;;9002226.02101,"1796,10135-0538-10 ",.01)
  1. ;;10135-0538-10
  1. ;;9002226.02101,"1796,10135-0538-10 ",.02)
  1. ;;10135-0538-10
  1. ;;9002226.02101,"1796,42291-0526-10 ",.01)
  1. ;;42291-0526-10
  1. ;;9002226.02101,"1796,42291-0526-10 ",.02)
  1. ;;42291-0526-10
  1. ;;9002226.02101,"1796,42291-0527-10 ",.01)
  1. ;;42291-0527-10
  1. ;;9002226.02101,"1796,42291-0527-10 ",.02)
  1. ;;42291-0527-10
  1. ;;9002226.02101,"1796,42291-0528-10 ",.01)
  1. ;;42291-0528-10
  1. ;;9002226.02101,"1796,42291-0528-10 ",.02)
  1. ;;42291-0528-10
  1. ;;9002226.02101,"1796,50268-0263-11 ",.01)
  1. ;;50268-0263-11
  1. ;;9002226.02101,"1796,50268-0263-11 ",.02)
  1. ;;50268-0263-11
  1. ;;9002226.02101,"1796,50268-0263-15 ",.01)
  1. ;;50268-0263-15
  1. ;;9002226.02101,"1796,50268-0263-15 ",.02)
  1. ;;50268-0263-15
  1. ;;9002226.02101,"1796,50268-0264-11 ",.01)
  1. ;;50268-0264-11
  1. ;;9002226.02101,"1796,50268-0264-11 ",.02)
  1. ;;50268-0264-11
  1. ;;9002226.02101,"1796,50268-0264-15 ",.01)
  1. ;;50268-0264-15
  1. ;;9002226.02101,"1796,50268-0264-15 ",.02)
  1. ;;50268-0264-15
  1. ;;9002226.02101,"1796,50268-0265-11 ",.01)
  1. ;;50268-0265-11
  1. ;;9002226.02101,"1796,50268-0265-11 ",.02)
  1. ;;50268-0265-11
  1. ;;9002226.02101,"1796,50268-0265-15 ",.01)
  1. ;;50268-0265-15
  1. ;;9002226.02101,"1796,50268-0265-15 ",.02)
  1. ;;50268-0265-15
  1. ;;9002226.02101,"1796,54569-0470-00 ",.01)
  1. ;;54569-0470-00
  1. ;;9002226.02101,"1796,54569-0470-00 ",.02)
  1. ;;54569-0470-00
  1. ;;9002226.02101,"1796,54868-0042-01 ",.01)
  1. ;;54868-0042-01
  1. ;;9002226.02101,"1796,54868-0042-01 ",.02)
  1. ;;54868-0042-01
  1. ;;9002226.02101,"1796,54868-0042-02 ",.01)
  1. ;;54868-0042-02
  1. ;;9002226.02101,"1796,54868-0042-02 ",.02)
  1. ;;54868-0042-02
  1. ;;9002226.02101,"1796,54868-0042-04 ",.01)
  1. ;;54868-0042-04
  1. ;;9002226.02101,"1796,54868-0042-04 ",.02)
  1. ;;54868-0042-04
  1. ;;9002226.02101,"1796,54868-0043-00 ",.01)
  1. ;;54868-0043-00
  1. ;;9002226.02101,"1796,54868-0043-00 ",.02)
  1. ;;54868-0043-00
  1. ;;9002226.02101,"1796,54868-0043-01 ",.01)
  1. ;;54868-0043-01
  1. ;;9002226.02101,"1796,54868-0043-01 ",.02)
  1. ;;54868-0043-01
  1. ;;9002226.02101,"1796,54868-0043-02 ",.01)
  1. ;;54868-0043-02
  1. ;;9002226.02101,"1796,54868-0043-02 ",.02)
  1. ;;54868-0043-02
  1. ;;9002226.02101,"1796,54868-0043-03 ",.01)
  1. ;;54868-0043-03
  1. ;;9002226.02101,"1796,54868-0043-03 ",.02)
  1. ;;54868-0043-03
  1. ;;9002226.02101,"1796,54868-0044-00 ",.01)
  1. ;;54868-0044-00
  1. ;;9002226.02101,"1796,54868-0044-00 ",.02)
  1. ;;54868-0044-00
  1. ;;9002226.02101,"1796,54868-0044-01 ",.01)
  1. ;;54868-0044-01
  1. ;;9002226.02101,"1796,54868-0044-01 ",.02)
  1. ;;54868-0044-01
  1. ;;9002226.02101,"1796,54868-0044-02 ",.01)
  1. ;;54868-0044-02
  1. ;;9002226.02101,"1796,54868-0044-02 ",.02)
  1. ;;54868-0044-02
  1. ;;9002226.02101,"1796,55289-0748-01 ",.01)
  1. ;;55289-0748-01
  1. ;;9002226.02101,"1796,55289-0748-01 ",.02)
  1. ;;55289-0748-01
  1. ;;9002226.02101,"1796,57664-0327-06 ",.01)
  1. ;;57664-0327-06
  1. ;;9002226.02101,"1796,57664-0327-06 ",.02)
  1. ;;57664-0327-06
  1. ;;9002226.02101,"1796,57664-0327-13 ",.01)
  1. ;;57664-0327-13
  1. ;;9002226.02101,"1796,57664-0327-13 ",.02)
  1. ;;57664-0327-13
  1. ;;9002226.02101,"1796,57664-0327-83 ",.01)
  1. ;;57664-0327-83
  1. ;;9002226.02101,"1796,57664-0327-83 ",.02)
  1. ;;57664-0327-83
  1. ;;9002226.02101,"1796,57664-0327-86 ",.01)
  1. ;;57664-0327-86
  1. ;;9002226.02101,"1796,57664-0327-86 ",.02)
  1. ;;57664-0327-86
  1. ;;9002226.02101,"1796,60505-0027-02 ",.01)
  1. ;;60505-0027-02
  1. ;;9002226.02101,"1796,60505-0027-02 ",.02)
  1. ;;60505-0027-02
  1. ;;9002226.02101,"1796,60505-0027-04 ",.01)
  1. ;;60505-0027-04
  1. ;;9002226.02101,"1796,60505-0027-04 ",.02)
  1. ;;60505-0027-04
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP8ZO2
  1. Q