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

BGP73H.m

Go to the documentation of this file.
  1. BGP73H ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  1. ;;BGP HEDIS ASTHMA NDC
  1. ;
  1. ; This routine loads Taxonomy BGP HEDIS ASTHMA 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,"00037-0521-92 ")
  1. ;;1
  1. ;;21,"00037-0541-92 ")
  1. ;;2
  1. ;;21,"00037-0545-68 ")
  1. ;;3
  1. ;;21,"00037-0731-92 ")
  1. ;;4
  1. ;;21,"00121-4794-15 ")
  1. ;;5
  1. ;;21,"00143-1020-01 ")
  1. ;;6
  1. ;;21,"00143-1020-10 ")
  1. ;;7
  1. ;;21,"00143-1025-01 ")
  1. ;;8
  1. ;;21,"00143-1025-10 ")
  1. ;;9
  1. ;;21,"00247-0656-02 ")
  1. ;;10
  1. ;;21,"00247-0656-04 ")
  1. ;;11
  1. ;;21,"00247-0656-10 ")
  1. ;;12
  1. ;;21,"00247-0656-14 ")
  1. ;;13
  1. ;;21,"00247-0656-20 ")
  1. ;;14
  1. ;;21,"00247-0656-28 ")
  1. ;;15
  1. ;;21,"00247-0656-30 ")
  1. ;;16
  1. ;;21,"00247-0656-60 ")
  1. ;;17
  1. ;;21,"00247-0824-06 ")
  1. ;;18
  1. ;;21,"00247-0824-10 ")
  1. ;;19
  1. ;;21,"00247-0824-30 ")
  1. ;;20
  1. ;;21,"00247-0824-60 ")
  1. ;;21
  1. ;;21,"00247-0824-90 ")
  1. ;;22
  1. ;;21,"00456-0648-16 ")
  1. ;;23
  1. ;;21,"00485-0059-16 ")
  1. ;;24
  1. ;;21,"00490-0080-00 ")
  1. ;;25
  1. ;;21,"00490-0080-30 ")
  1. ;;26
  1. ;;21,"00490-0080-60 ")
  1. ;;27
  1. ;;21,"00490-0080-90 ")
  1. ;;28
  1. ;;21,"00525-0376-16 ")
  1. ;;29
  1. ;;21,"00603-1190-58 ")
  1. ;;30
  1. ;;21,"00904-5887-61 ")
  1. ;;31
  1. ;;21,"00904-5888-61 ")
  1. ;;32
  1. ;;21,"00904-5889-61 ")
  1. ;;33
  1. ;;21,"10135-0604-08 ")
  1. ;;34
  1. ;;21,"17856-0644-30 ")
  1. ;;35
  1. ;;21,"17856-0644-31 ")
  1. ;;36
  1. ;;21,"23155-0062-01 ")
  1. ;;37
  1. ;;21,"23155-0063-01 ")
  1. ;;38
  1. ;;21,"23490-7355-01 ")
  1. ;;39
  1. ;;21,"24839-0226-01 ")
  1. ;;40
  1. ;;21,"24839-0227-16 ")
  1. ;;41
  1. ;;21,"27808-0033-01 ")
  1. ;;42
  1. ;;21,"29033-0001-01 ")
  1. ;;43
  1. ;;21,"29033-0002-01 ")
  1. ;;44
  1. ;;21,"35356-0126-60 ")
  1. ;;45
  1. ;;21,"38130-0012-01 ")
  1. ;;46
  1. ;;21,"42291-0813-90 ")
  1. ;;47
  1. ;;21,"42291-0814-90 ")
  1. ;;48
  1. ;;21,"42291-0815-90 ")
  1. ;;49
  1. ;;21,"42858-0701-01 ")
  1. ;;50
  1. ;;21,"42858-0702-01 ")
  1. ;;51
  1. ;;21,"45985-0647-01 ")
  1. ;;52
  1. ;;21,"49708-0644-90 ")
  1. ;;53
  1. ;;21,"49999-0550-00 ")
  1. ;;54
  1. ;;21,"49999-0921-30 ")
  1. ;;55
  1. ;;21,"50111-0459-01 ")
  1. ;;56
  1. ;;21,"50111-0459-02 ")
  1. ;;57
  1. ;;21,"50111-0459-03 ")
  1. ;;58
  1. ;;21,"50111-0482-01 ")
  1. ;;59
  1. ;;21,"50111-0482-02 ")
  1. ;;60
  1. ;;21,"50111-0482-03 ")
  1. ;;61
  1. ;;21,"50111-0483-01 ")
  1. ;;62
  1. ;;21,"50111-0483-02 ")
  1. ;;63
  1. ;;21,"50111-0518-01 ")
  1. ;;64
  1. ;;21,"50242-0040-62 ")
  1. ;;65
  1. ;;21,"50474-0100-01 ")
  1. ;;66
  1. ;;21,"50474-0200-01 ")
  1. ;;67
  1. ;;21,"50474-0200-50 ")
  1. ;;68
  1. ;;21,"50474-0300-01 ")
  1. ;;69
  1. ;;21,"50474-0300-50 ")
  1. ;;70
  1. ;;21,"50474-0400-01 ")
  1. ;;71
  1. ;;21,"51862-0131-16 ")
  1. ;;72
  1. ;;21,"52244-0100-10 ")
  1. ;;73
  1. ;;21,"52244-0200-10 ")
  1. ;;74
  1. ;;21,"52244-0300-10 ")
  1. ;;75
  1. ;;21,"52244-0400-10 ")
  1. ;;76
  1. ;;21,"54569-0065-01 ")
  1. ;;77
  1. ;;21,"54569-0065-02 ")
  1. ;;78
  1. ;;21,"54569-0065-05 ")
  1. ;;79
  1. ;;21,"54569-1666-00 ")
  1. ;;80
  1. ;;21,"54838-0556-80 ")
  1. ;;81
  1. ;;21,"54868-0028-00 ")
  1. ;;82
  1. ;;21,"54868-0028-01 ")
  1. ;;83
  1. ;;21,"54868-0028-02 ")
  1. ;;84
  1. ;;21,"54868-0028-03 ")
  1. ;;85
  1. ;;21,"54868-0028-05 ")
  1. ;;86
  1. ;;21,"54868-0028-06 ")
  1. ;;87
  1. ;;21,"54868-0029-00 ")
  1. ;;88
  1. ;;21,"54868-0029-02 ")
  1. ;;89
  1. ;;21,"54868-0029-03 ")
  1. ;;90
  1. ;;21,"54868-0029-05 ")
  1. ;;91
  1. ;;21,"54868-0029-06 ")
  1. ;;92
  1. ;;21,"54868-0029-07 ")
  1. ;;93
  1. ;;21,"54868-1461-01 ")
  1. ;;94
  1. ;;21,"54868-1461-02 ")
  1. ;;95
  1. ;;21,"54868-2710-00 ")
  1. ;;96
  1. ;;21,"54868-2710-01 ")
  1. ;;97
  1. ;;21,"55045-3768-08 ")
  1. ;;98
  1. ;;21,"55887-0277-30 ")
  1. ;;99
  1. ;;21,"55887-0847-60 ")
  1. ;;100
  1. ;;21,"55887-0847-90 ")
  1. ;;101
  1. ;;21,"60258-0335-16 ")
  1. ;;102
  1. ;;21,"60258-0336-01 ")
  1. ;;103
  1. ;;21,"61392-0016-45 ")
  1. ;;104
  1. ;;21,"61392-0016-54 ")
  1. ;;105
  1. ;;21,"61392-0016-56 ")
  1. ;;106
  1. ;;21,"61392-0016-91 ")
  1. ;;107
  1. ;;21,"61392-0017-54 ")
  1. ;;108
  1. ;;21,"61392-0017-56 ")
  1. ;;109
  1. ;;21,"61392-0017-91 ")
  1. ;;110
  1. ;;21,"62332-0025-31 ")
  1. ;;111
  1. ;;21,"62332-0026-31 ")
  1. ;;112
  1. ;;21,"63629-2792-01 ")
  1. ;;113
  1. ;;21,"63629-2792-02 ")
  1. ;;114
  1. ;;21,"63629-3551-01 ")
  1. ;;115
  1. ;;21,"63874-0443-01 ")
  1. ;;116
  1. ;;21,"63874-0443-15 ")
  1. ;;117
  1. ;;21,"63874-0443-20 ")
  1. ;;118
  1. ;;21,"63874-0443-30 ")
  1. ;;119
  1. ;;21,"63874-0447-01 ")
  1. ;;120
  1. ;;21,"63874-0447-15 ")
  1. ;;121
  1. ;;21,"63874-0447-20 ")
  1. ;;122
  1. ;;21,"63874-0447-30 ")
  1. ;;123
  1. ;;21,"63874-0447-60 ")
  1. ;;124
  1. ;;21,"63874-0675-01 ")
  1. ;;125
  1. ;;21,"63874-0675-15 ")
  1. ;;126
  1. ;;21,"63874-0675-20 ")
  1. ;;127
  1. ;;21,"64661-0814-16 ")
  1. ;;128
  1. ;;21,"65162-0324-11 ")
  1. ;;129
  1. ;;21,"65162-0335-10 ")
  1. ;;130
  1. ;;21,"68462-0356-01 ")
  1. ;;131
  1. ;;21,"68462-0380-01 ")
  1. ;;132
  1. ;;9002226,649,.01)
  1. ;;BGP HEDIS ASTHMA NDC
  1. ;;9002226,649,.02)
  1. ;;@
  1. ;;9002226,649,.04)
  1. ;;n
  1. ;;9002226,649,.06)
  1. ;;@
  1. ;;9002226,649,.08)
  1. ;;@
  1. ;;9002226,649,.09)
  1. ;;3170105
  1. ;;9002226,649,.11)
  1. ;;@
  1. ;;9002226,649,.12)
  1. ;;@
  1. ;;9002226,649,.13)
  1. ;;1
  1. ;;9002226,649,.14)
  1. ;;@
  1. ;;9002226,649,.15)
  1. ;;50.67
  1. ;;9002226,649,.16)
  1. ;;@
  1. ;;9002226,649,.17)
  1. ;;@
  1. ;;9002226,649,.22)
  1. ;;1
  1. ;;9002226,649,3101)
  1. ;;@
  1. ;;9002226.02101,"649,00037-0521-92 ",.01)
  1. ;;00037-0521-92
  1. ;;9002226.02101,"649,00037-0521-92 ",.02)
  1. ;;00037-0521-92
  1. ;;9002226.02101,"649,00037-0541-92 ",.01)
  1. ;;00037-0541-92
  1. ;;9002226.02101,"649,00037-0541-92 ",.02)
  1. ;;00037-0541-92
  1. ;;9002226.02101,"649,00037-0545-68 ",.01)
  1. ;;00037-0545-68
  1. ;;9002226.02101,"649,00037-0545-68 ",.02)
  1. ;;00037-0545-68
  1. ;;9002226.02101,"649,00037-0731-92 ",.01)
  1. ;;00037-0731-92
  1. ;;9002226.02101,"649,00037-0731-92 ",.02)
  1. ;;00037-0731-92
  1. ;;9002226.02101,"649,00121-4794-15 ",.01)
  1. ;;00121-4794-15
  1. ;;9002226.02101,"649,00121-4794-15 ",.02)
  1. ;;00121-4794-15
  1. ;;9002226.02101,"649,00143-1020-01 ",.01)
  1. ;;00143-1020-01
  1. ;;9002226.02101,"649,00143-1020-01 ",.02)
  1. ;;00143-1020-01
  1. ;;9002226.02101,"649,00143-1020-10 ",.01)
  1. ;;00143-1020-10
  1. ;;9002226.02101,"649,00143-1020-10 ",.02)
  1. ;;00143-1020-10
  1. ;;9002226.02101,"649,00143-1025-01 ",.01)
  1. ;;00143-1025-01
  1. ;;9002226.02101,"649,00143-1025-01 ",.02)
  1. ;;00143-1025-01
  1. ;;9002226.02101,"649,00143-1025-10 ",.01)
  1. ;;00143-1025-10
  1. ;;9002226.02101,"649,00143-1025-10 ",.02)
  1. ;;00143-1025-10
  1. ;;9002226.02101,"649,00247-0656-02 ",.01)
  1. ;;00247-0656-02
  1. ;;9002226.02101,"649,00247-0656-02 ",.02)
  1. ;;00247-0656-02
  1. ;;9002226.02101,"649,00247-0656-04 ",.01)
  1. ;;00247-0656-04
  1. ;;9002226.02101,"649,00247-0656-04 ",.02)
  1. ;;00247-0656-04
  1. ;;9002226.02101,"649,00247-0656-10 ",.01)
  1. ;;00247-0656-10
  1. ;;9002226.02101,"649,00247-0656-10 ",.02)
  1. ;;00247-0656-10
  1. ;;9002226.02101,"649,00247-0656-14 ",.01)
  1. ;;00247-0656-14
  1. ;;9002226.02101,"649,00247-0656-14 ",.02)
  1. ;;00247-0656-14
  1. ;;9002226.02101,"649,00247-0656-20 ",.01)
  1. ;;00247-0656-20
  1. ;;9002226.02101,"649,00247-0656-20 ",.02)
  1. ;;00247-0656-20
  1. ;;9002226.02101,"649,00247-0656-28 ",.01)
  1. ;;00247-0656-28
  1. ;;9002226.02101,"649,00247-0656-28 ",.02)
  1. ;;00247-0656-28
  1. ;;9002226.02101,"649,00247-0656-30 ",.01)
  1. ;;00247-0656-30
  1. ;;9002226.02101,"649,00247-0656-30 ",.02)
  1. ;;00247-0656-30
  1. ;;9002226.02101,"649,00247-0656-60 ",.01)
  1. ;;00247-0656-60
  1. ;;9002226.02101,"649,00247-0656-60 ",.02)
  1. ;;00247-0656-60
  1. ;;9002226.02101,"649,00247-0824-06 ",.01)
  1. ;;00247-0824-06
  1. ;;9002226.02101,"649,00247-0824-06 ",.02)
  1. ;;00247-0824-06
  1. ;;9002226.02101,"649,00247-0824-10 ",.01)
  1. ;;00247-0824-10
  1. ;;9002226.02101,"649,00247-0824-10 ",.02)
  1. ;;00247-0824-10
  1. ;;9002226.02101,"649,00247-0824-30 ",.01)
  1. ;;00247-0824-30
  1. ;;9002226.02101,"649,00247-0824-30 ",.02)
  1. ;;00247-0824-30
  1. ;;9002226.02101,"649,00247-0824-60 ",.01)
  1. ;;00247-0824-60
  1. ;;9002226.02101,"649,00247-0824-60 ",.02)
  1. ;;00247-0824-60
  1. ;;9002226.02101,"649,00247-0824-90 ",.01)
  1. ;;00247-0824-90
  1. ;;9002226.02101,"649,00247-0824-90 ",.02)
  1. ;;00247-0824-90
  1. ;;9002226.02101,"649,00456-0648-16 ",.01)
  1. ;;00456-0648-16
  1. ;;9002226.02101,"649,00456-0648-16 ",.02)
  1. ;;00456-0648-16
  1. ;;9002226.02101,"649,00485-0059-16 ",.01)
  1. ;;00485-0059-16
  1. ;;9002226.02101,"649,00485-0059-16 ",.02)
  1. ;;00485-0059-16
  1. ;;9002226.02101,"649,00490-0080-00 ",.01)
  1. ;;00490-0080-00
  1. ;;9002226.02101,"649,00490-0080-00 ",.02)
  1. ;;00490-0080-00
  1. ;;9002226.02101,"649,00490-0080-30 ",.01)
  1. ;;00490-0080-30
  1. ;;9002226.02101,"649,00490-0080-30 ",.02)
  1. ;;00490-0080-30
  1. ;;9002226.02101,"649,00490-0080-60 ",.01)
  1. ;;00490-0080-60
  1. ;;9002226.02101,"649,00490-0080-60 ",.02)
  1. ;;00490-0080-60
  1. ;;9002226.02101,"649,00490-0080-90 ",.01)
  1. ;;00490-0080-90
  1. ;;9002226.02101,"649,00490-0080-90 ",.02)
  1. ;;00490-0080-90
  1. ;;9002226.02101,"649,00525-0376-16 ",.01)
  1. ;;00525-0376-16
  1. ;;9002226.02101,"649,00525-0376-16 ",.02)
  1. ;;00525-0376-16
  1. ;;9002226.02101,"649,00603-1190-58 ",.01)
  1. ;;00603-1190-58
  1. ;;9002226.02101,"649,00603-1190-58 ",.02)
  1. ;;00603-1190-58
  1. ;;9002226.02101,"649,00904-5887-61 ",.01)
  1. ;;00904-5887-61
  1. ;;9002226.02101,"649,00904-5887-61 ",.02)
  1. ;;00904-5887-61
  1. ;;9002226.02101,"649,00904-5888-61 ",.01)
  1. ;;00904-5888-61
  1. ;;9002226.02101,"649,00904-5888-61 ",.02)
  1. ;;00904-5888-61
  1. ;;9002226.02101,"649,00904-5889-61 ",.01)
  1. ;;00904-5889-61
  1. ;;9002226.02101,"649,00904-5889-61 ",.02)
  1. ;;00904-5889-61
  1. ;;9002226.02101,"649,10135-0604-08 ",.01)
  1. ;;10135-0604-08
  1. ;;9002226.02101,"649,10135-0604-08 ",.02)
  1. ;;10135-0604-08
  1. ;;9002226.02101,"649,17856-0644-30 ",.01)
  1. ;;17856-0644-30
  1. ;;9002226.02101,"649,17856-0644-30 ",.02)
  1. ;;17856-0644-30
  1. ;;9002226.02101,"649,17856-0644-31 ",.01)
  1. ;;17856-0644-31
  1. ;;9002226.02101,"649,17856-0644-31 ",.02)
  1. ;;17856-0644-31
  1. ;;9002226.02101,"649,23155-0062-01 ",.01)
  1. ;;23155-0062-01
  1. ;;9002226.02101,"649,23155-0062-01 ",.02)
  1. ;;23155-0062-01
  1. ;;9002226.02101,"649,23155-0063-01 ",.01)
  1. ;;23155-0063-01
  1. ;;9002226.02101,"649,23155-0063-01 ",.02)
  1. ;;23155-0063-01
  1. ;;9002226.02101,"649,23490-7355-01 ",.01)
  1. ;;23490-7355-01
  1. ;;9002226.02101,"649,23490-7355-01 ",.02)
  1. ;;23490-7355-01
  1. ;;9002226.02101,"649,24839-0226-01 ",.01)
  1. ;;24839-0226-01
  1. ;;9002226.02101,"649,24839-0226-01 ",.02)
  1. ;;24839-0226-01
  1. ;;9002226.02101,"649,24839-0227-16 ",.01)
  1. ;;24839-0227-16
  1. ;;9002226.02101,"649,24839-0227-16 ",.02)
  1. ;;24839-0227-16
  1. ;;9002226.02101,"649,27808-0033-01 ",.01)
  1. ;;27808-0033-01
  1. ;;9002226.02101,"649,27808-0033-01 ",.02)
  1. ;;27808-0033-01
  1. ;;9002226.02101,"649,29033-0001-01 ",.01)
  1. ;;29033-0001-01
  1. ;;9002226.02101,"649,29033-0001-01 ",.02)
  1. ;;29033-0001-01
  1. ;;9002226.02101,"649,29033-0002-01 ",.01)
  1. ;;29033-0002-01
  1. ;;9002226.02101,"649,29033-0002-01 ",.02)
  1. ;;29033-0002-01
  1. ;;9002226.02101,"649,35356-0126-60 ",.01)
  1. ;;35356-0126-60
  1. ;;9002226.02101,"649,35356-0126-60 ",.02)
  1. ;;35356-0126-60
  1. ;;9002226.02101,"649,38130-0012-01 ",.01)
  1. ;;38130-0012-01
  1. ;;9002226.02101,"649,38130-0012-01 ",.02)
  1. ;;38130-0012-01
  1. ;;9002226.02101,"649,42291-0813-90 ",.01)
  1. ;;42291-0813-90
  1. ;;9002226.02101,"649,42291-0813-90 ",.02)
  1. ;;42291-0813-90
  1. ;;9002226.02101,"649,42291-0814-90 ",.01)
  1. ;;42291-0814-90
  1. ;;9002226.02101,"649,42291-0814-90 ",.02)
  1. ;;42291-0814-90
  1. ;;9002226.02101,"649,42291-0815-90 ",.01)
  1. ;;42291-0815-90
  1. ;;9002226.02101,"649,42291-0815-90 ",.02)
  1. ;;42291-0815-90
  1. ;;9002226.02101,"649,42858-0701-01 ",.01)
  1. ;;42858-0701-01
  1. ;;9002226.02101,"649,42858-0701-01 ",.02)
  1. ;;42858-0701-01
  1. ;;9002226.02101,"649,42858-0702-01 ",.01)
  1. ;;42858-0702-01
  1. ;;9002226.02101,"649,42858-0702-01 ",.02)
  1. ;;42858-0702-01
  1. ;;9002226.02101,"649,45985-0647-01 ",.01)
  1. ;;45985-0647-01
  1. ;;9002226.02101,"649,45985-0647-01 ",.02)
  1. ;;45985-0647-01
  1. ;;9002226.02101,"649,49708-0644-90 ",.01)
  1. ;;49708-0644-90
  1. ;;9002226.02101,"649,49708-0644-90 ",.02)
  1. ;;49708-0644-90
  1. ;;9002226.02101,"649,49999-0550-00 ",.01)
  1. ;;49999-0550-00
  1. ;;9002226.02101,"649,49999-0550-00 ",.02)
  1. ;;49999-0550-00
  1. ;;9002226.02101,"649,49999-0921-30 ",.01)
  1. ;;49999-0921-30
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP73H2
  1. Q