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

BGP31S.m

Go to the documentation of this file.
BGP31S ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
 ;;BGP HEDIS GASTROINTESTINAL NDC
 ;
 ; This routine loads Taxonomy BGP HEDIS GASTROINTESTINAL NDC
 ;
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
 D OTHER
 I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
 I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
 D KILL^ATXSTX2
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;21,"00074-1952-02 ")
 ;;1
 ;;21,"00074-1952-32 ")
 ;;2
 ;;21,"00182-1396-01 ")
 ;;3
 ;;21,"00182-1427-19 ")
 ;;4
 ;;21,"00182-1427-23 ")
 ;;5
 ;;21,"00409-1952-32 ")
 ;;6
 ;;21,"00440-8590-06 ")
 ;;7
 ;;21,"00574-7220-10 ")
 ;;8
 ;;21,"00574-7222-10 ")
 ;;9
 ;;21,"00574-7222-50 ")
 ;;10
 ;;21,"00603-6256-21 ")
 ;;11
 ;;21,"00603-8150-10 ")
 ;;12
 ;;21,"00603-8151-10 ")
 ;;13
 ;;21,"00677-1383-01 ")
 ;;14
 ;;21,"00713-0107-09 ")
 ;;15
 ;;21,"00713-0108-09 ")
 ;;16
 ;;21,"00713-0108-50 ")
 ;;17
 ;;21,"00904-2735-15 ")
 ;;18
 ;;21,"00904-2736-15 ")
 ;;19
 ;;21,"00904-3291-60 ")
 ;;20
 ;;21,"16590-0239-10 ")
 ;;21
 ;;21,"16590-0570-10 ")
 ;;22
 ;;21,"16590-0570-30 ")
 ;;23
 ;;21,"16590-0570-60 ")
 ;;24
 ;;21,"16590-0570-90 ")
 ;;25
 ;;21,"21695-0448-10 ")
 ;;26
 ;;21,"21695-0853-20 ")
 ;;27
 ;;21,"33261-0837-30 ")
 ;;28
 ;;21,"33261-0837-60 ")
 ;;29
 ;;21,"33261-0837-90 ")
 ;;30
 ;;21,"35356-0473-00 ")
 ;;31
 ;;21,"42023-0118-01 ")
 ;;32
 ;;21,"42023-0119-25 ")
 ;;33
 ;;21,"42023-0142-01 ")
 ;;34
 ;;21,"42023-0143-25 ")
 ;;35
 ;;21,"43386-0660-24 ")
 ;;36
 ;;21,"43386-0660-26 ")
 ;;37
 ;;21,"45802-0723-32 ")
 ;;38
 ;;21,"45802-0723-90 ")
 ;;39
 ;;21,"45802-0724-32 ")
 ;;40
 ;;21,"45802-0724-90 ")
 ;;41
 ;;21,"49999-0145-10 ")
 ;;42
 ;;21,"49999-0146-10 ")
 ;;43
 ;;21,"49999-0341-10 ")
 ;;44
 ;;21,"49999-0342-10 ")
 ;;45
 ;;21,"49999-0342-50 ")
 ;;46
 ;;21,"51655-0523-53 ")
 ;;47
 ;;21,"51991-0625-01 ")
 ;;48
 ;;21,"52152-0166-02 ")
 ;;49
 ;;21,"52152-0185-02 ")
 ;;50
 ;;21,"52959-0226-10 ")
 ;;51
 ;;21,"52959-0226-12 ")
 ;;52
 ;;21,"52959-0290-04 ")
 ;;53
 ;;21,"52959-0290-05 ")
 ;;54
 ;;21,"52959-0290-10 ")
 ;;55
 ;;21,"52959-0479-10 ")
 ;;56
 ;;21,"52959-0479-12 ")
 ;;57
 ;;21,"52959-0479-20 ")
 ;;58
 ;;21,"52959-0479-30 ")
 ;;59
 ;;21,"52959-0573-01 ")
 ;;60
 ;;21,"52959-0817-10 ")
 ;;61
 ;;21,"52959-1264-01 ")
 ;;62
 ;;21,"52959-1264-05 ")
 ;;63
 ;;21,"53489-0293-01 ")
 ;;64
 ;;21,"53489-0376-01 ")
 ;;65
 ;;21,"53489-0376-05 ")
 ;;66
 ;;21,"54092-0187-01 ")
 ;;67
 ;;21,"54092-0542-02 ")
 ;;68
 ;;21,"54569-0364-01 ")
 ;;69
 ;;21,"54569-0365-00 ")
 ;;70
 ;;21,"54569-0365-01 ")
 ;;71
 ;;21,"54569-1796-01 ")
 ;;72
 ;;21,"54569-1896-00 ")
 ;;73
 ;;21,"54569-1896-01 ")
 ;;74
 ;;21,"54569-1896-02 ")
 ;;75
 ;;21,"54569-1896-03 ")
 ;;76
 ;;21,"54569-1897-00 ")
 ;;77
 ;;21,"54569-1897-01 ")
 ;;78
 ;;21,"54569-3407-00 ")
 ;;79
 ;;21,"54569-5589-00 ")
 ;;80
 ;;21,"54569-5589-01 ")
 ;;81
 ;;21,"54868-0340-00 ")
 ;;82
 ;;21,"54868-0340-01 ")
 ;;83
 ;;21,"54868-0608-00 ")
 ;;84
 ;;21,"54868-0756-00 ")
 ;;85
 ;;21,"54868-1485-01 ")
 ;;86
 ;;21,"54868-2195-00 ")
 ;;87
 ;;21,"54868-2195-01 ")
 ;;88
 ;;21,"54868-2973-00 ")
 ;;89
 ;;21,"54868-2973-02 ")
 ;;90
 ;;21,"54868-2973-03 ")
 ;;91
 ;;21,"54868-2973-04 ")
 ;;92
 ;;21,"54868-3487-00 ")
 ;;93
 ;;21,"54868-3487-01 ")
 ;;94
 ;;21,"54868-3487-02 ")
 ;;95
 ;;21,"54868-3487-03 ")
 ;;96
 ;;21,"54868-3487-04 ")
 ;;97
 ;;21,"54868-5181-00 ")
 ;;98
 ;;21,"54868-5741-00 ")
 ;;99
 ;;21,"54868-5741-01 ")
 ;;100
 ;;21,"55045-1133-03 ")
 ;;101
 ;;21,"55045-1197-01 ")
 ;;102
 ;;21,"55045-1197-03 ")
 ;;103
 ;;21,"55045-1198-02 ")
 ;;104
 ;;21,"55045-1198-03 ")
 ;;105
 ;;21,"55045-1628-03 ")
 ;;106
 ;;21,"55053-0444-01 ")
 ;;107
 ;;21,"55289-0219-20 ")
 ;;108
 ;;21,"55289-0428-10 ")
 ;;109
 ;;21,"55289-0428-17 ")
 ;;110
 ;;21,"55289-0529-05 ")
 ;;111
 ;;21,"55289-0953-06 ")
 ;;112
 ;;21,"55887-0081-06 ")
 ;;113
 ;;21,"55887-0632-10 ")
 ;;114
 ;;21,"57866-4727-02 ")
 ;;115
 ;;21,"58016-0973-00 ")
 ;;116
 ;;21,"58016-0973-02 ")
 ;;117
 ;;21,"58016-0973-03 ")
 ;;118
 ;;21,"58016-0973-08 ")
 ;;119
 ;;21,"58016-0973-10 ")
 ;;120
 ;;21,"58016-0973-12 ")
 ;;121
 ;;21,"58016-0973-15 ")
 ;;122
 ;;21,"58016-0973-20 ")
 ;;123
 ;;21,"58016-0973-24 ")
 ;;124
 ;;21,"58016-0973-30 ")
 ;;125
 ;;21,"58016-0973-50 ")
 ;;126
 ;;21,"58016-0973-60 ")
 ;;127
 ;;21,"58016-0973-73 ")
 ;;128
 ;;21,"58016-0973-89 ")
 ;;129
 ;;21,"58016-0973-90 ")
 ;;130
 ;;21,"58016-3091-01 ")
 ;;131
 ;;21,"58016-3092-01 ")
 ;;132
 ;;21,"58016-3126-01 ")
 ;;133
 ;;21,"58177-0037-04 ")
 ;;134
 ;;21,"58298-0140-10 ")
 ;;135
 ;;21,"58298-0145-10 ")
 ;;136
 ;;21,"58298-0145-50 ")
 ;;137
 ;;21,"59741-0304-09 ")
 ;;138
 ;;21,"59741-0304-50 ")
 ;;139
 ;;21,"59741-0305-09 ")
 ;;140
 ;;21,"59741-0305-50 ")
 ;;141
 ;;21,"59879-0115-01 ")
 ;;142
 ;;21,"60346-0494-05 ")
 ;;143
 ;;21,"60346-0495-05 ")
 ;;144
 ;;21,"60346-0629-10 ")
 ;;145
 ;;21,"60346-0629-12 ")
 ;;146
 ;;21,"60346-0629-15 ")
 ;;147
 ;;21,"60346-0629-30 ")
 ;;148
 ;;21,"61570-0079-01 ")
 ;;149
 ;;21,"61570-0079-05 ")
 ;;150
 ;;21,"61570-0503-10 ")
 ;;151
 ;;21,"61570-0504-10 ")
 ;;152
 ;;21,"61570-0504-50 ")
 ;;153
 ;;21,"61570-0540-02 ")
 ;;154
 ;;21,"61570-0541-20 ")
 ;;155
 ;;21,"61570-0543-25 ")
 ;;156
 ;;21,"61646-0308-01 ")
 ;;157
 ;;21,"63629-3685-01 ")
 ;;158
 ;;21,"63629-3685-02 ")
 ;;159
 ;;21,"66267-0208-10 ")
 ;;160
 ;;21,"66267-0208-20 ")
 ;;161
 ;;21,"66267-0273-05 ")
 ;;162
 ;;21,"66336-0026-12 ")
 ;;163
 ;;21,"66336-0494-05 ")
 ;;164
 ;;21,"66336-0495-05 ")
 ;;165
 ;;21,"68030-7289-01 ")
 ;;166
 ;;21,"68115-0337-03 ")
 ;;167
 ;;21,"68115-0337-05 ")
 ;;168
 ;;21,"68115-0337-10 ")
 ;;169
 ;;21,"68115-0338-05 ")
 ;;170
 ;;21,"68115-0338-10 ")
 ;;171
 ;;21,"68115-0339-20 ")
 ;;172
 ;;21,"68115-0588-00 ")
 ;;173
 ;;21,"68258-9100-01 ")
 ;;174
 ;;9002226,1736,.01)
 ;;BGP HEDIS GASTROINTESTINAL NDC
 ;;9002226,1736,.02)
 ;;@
 ;;9002226,1736,.04)
 ;;n
 ;;9002226,1736,.06)
 ;;@
 ;;9002226,1736,.08)
 ;;@
 ;;9002226,1736,.09)
 ;;3120829
 ;;9002226,1736,.11)
 ;;@
 ;;9002226,1736,.12)
 ;;@
 ;;9002226,1736,.13)
 ;;1
 ;;9002226,1736,.14)
 ;;@
 ;;9002226,1736,.15)
 ;;50.67
 ;;9002226,1736,.16)
 ;;@
 ;;9002226,1736,.17)
 ;;@
 ;;9002226,1736,3101)
 ;;@
 ;;9002226.02101,"1736,00074-1952-02 ",.01)
 ;;00074-1952-02
 ;;9002226.02101,"1736,00074-1952-02 ",.02)
 ;;00074-1952-02
 ;;9002226.02101,"1736,00074-1952-32 ",.01)
 ;;00074-1952-32
 ;;9002226.02101,"1736,00074-1952-32 ",.02)
 ;;00074-1952-32
 ;;9002226.02101,"1736,00182-1396-01 ",.01)
 ;;00182-1396-01
 ;;9002226.02101,"1736,00182-1396-01 ",.02)
 ;;00182-1396-01
 ;;9002226.02101,"1736,00182-1427-19 ",.01)
 ;;00182-1427-19
 ;;9002226.02101,"1736,00182-1427-19 ",.02)
 ;;00182-1427-19
 ;;9002226.02101,"1736,00182-1427-23 ",.01)
 ;;00182-1427-23
 ;;9002226.02101,"1736,00182-1427-23 ",.02)
 ;;00182-1427-23
 ;;9002226.02101,"1736,00409-1952-32 ",.01)
 ;;00409-1952-32
 ;;9002226.02101,"1736,00409-1952-32 ",.02)
 ;;00409-1952-32
 ;;9002226.02101,"1736,00440-8590-06 ",.01)
 ;;00440-8590-06
 ;;9002226.02101,"1736,00440-8590-06 ",.02)
 ;;00440-8590-06
 ;;9002226.02101,"1736,00574-7220-10 ",.01)
 ;;00574-7220-10
 ;;9002226.02101,"1736,00574-7220-10 ",.02)
 ;;00574-7220-10
 ;;9002226.02101,"1736,00574-7222-10 ",.01)
 ;;00574-7222-10
 ;;9002226.02101,"1736,00574-7222-10 ",.02)
 ;;00574-7222-10
 ;;9002226.02101,"1736,00574-7222-50 ",.01)
 ;;00574-7222-50
 ;;9002226.02101,"1736,00574-7222-50 ",.02)
 ;;00574-7222-50
 ;;9002226.02101,"1736,00603-6256-21 ",.01)
 ;;00603-6256-21
 ;;9002226.02101,"1736,00603-6256-21 ",.02)
 ;;00603-6256-21
 ;;9002226.02101,"1736,00603-8150-10 ",.01)
 ;;00603-8150-10
 ;;9002226.02101,"1736,00603-8150-10 ",.02)
 ;;00603-8150-10
 ;;9002226.02101,"1736,00603-8151-10 ",.01)
 ;;00603-8151-10
 ;;9002226.02101,"1736,00603-8151-10 ",.02)
 ;;00603-8151-10
 ;;9002226.02101,"1736,00677-1383-01 ",.01)
 ;;00677-1383-01
 ;;9002226.02101,"1736,00677-1383-01 ",.02)
 ;;00677-1383-01
 ;;9002226.02101,"1736,00713-0107-09 ",.01)
 ;;00713-0107-09
 ;;9002226.02101,"1736,00713-0107-09 ",.02)
 ;;00713-0107-09
 ;;9002226.02101,"1736,00713-0108-09 ",.01)
 ;;00713-0108-09
 ;;9002226.02101,"1736,00713-0108-09 ",.02)
 ;;00713-0108-09
 ;;9002226.02101,"1736,00713-0108-50 ",.01)
 ;;00713-0108-50
 ;;9002226.02101,"1736,00713-0108-50 ",.02)
 ;;00713-0108-50
 ;;9002226.02101,"1736,00904-2735-15 ",.01)
 ;;00904-2735-15
 ;;9002226.02101,"1736,00904-2735-15 ",.02)
 ;;00904-2735-15
 ;;9002226.02101,"1736,00904-2736-15 ",.01)
 ;;00904-2736-15
 ;;9002226.02101,"1736,00904-2736-15 ",.02)
 ;;00904-2736-15
 ;;9002226.02101,"1736,00904-3291-60 ",.01)
 ;;00904-3291-60
 ;;9002226.02101,"1736,00904-3291-60 ",.02)
 ;;00904-3291-60
 ;;9002226.02101,"1736,16590-0239-10 ",.01)
 ;;16590-0239-10
 ;;9002226.02101,"1736,16590-0239-10 ",.02)
 ;;16590-0239-10
 ;;9002226.02101,"1736,16590-0570-10 ",.01)
 ;;16590-0570-10
 ;;9002226.02101,"1736,16590-0570-10 ",.02)
 ;;16590-0570-10
 ;;9002226.02101,"1736,16590-0570-30 ",.01)
 ;;16590-0570-30
 ;;9002226.02101,"1736,16590-0570-30 ",.02)
 ;;16590-0570-30
 ;;9002226.02101,"1736,16590-0570-60 ",.01)
 ;;16590-0570-60
 ;;9002226.02101,"1736,16590-0570-60 ",.02)
 ;;16590-0570-60
 ;;9002226.02101,"1736,16590-0570-90 ",.01)
 ;;16590-0570-90
 ;;9002226.02101,"1736,16590-0570-90 ",.02)
 ;;16590-0570-90
 ;;9002226.02101,"1736,21695-0448-10 ",.01)
 ;;21695-0448-10
 ;;9002226.02101,"1736,21695-0448-10 ",.02)
 ;;21695-0448-10
 ;;9002226.02101,"1736,21695-0853-20 ",.01)
 ;;21695-0853-20
 ;;9002226.02101,"1736,21695-0853-20 ",.02)
 ;;21695-0853-20
 ;;9002226.02101,"1736,33261-0837-30 ",.01)
 ;;33261-0837-30
 ;;9002226.02101,"1736,33261-0837-30 ",.02)
 ;;33261-0837-30
 ;;9002226.02101,"1736,33261-0837-60 ",.01)
 ;;33261-0837-60
 ;;9002226.02101,"1736,33261-0837-60 ",.02)
 ;;33261-0837-60
 ;;9002226.02101,"1736,33261-0837-90 ",.01)
 ;;33261-0837-90
 ;;9002226.02101,"1736,33261-0837-90 ",.02)
 ;;33261-0837-90
 ;;9002226.02101,"1736,35356-0473-00 ",.01)
 ;;35356-0473-00
 ;;9002226.02101,"1736,35356-0473-00 ",.02)
 ;;35356-0473-00
 ;;9002226.02101,"1736,42023-0118-01 ",.01)
 ;;42023-0118-01
 ;;9002226.02101,"1736,42023-0118-01 ",.02)
 ;;42023-0118-01
 ;;9002226.02101,"1736,42023-0119-25 ",.01)
 ;;42023-0119-25
 ;;9002226.02101,"1736,42023-0119-25 ",.02)
 ;;42023-0119-25
 ;;9002226.02101,"1736,42023-0142-01 ",.01)
 ;;42023-0142-01
 ;;9002226.02101,"1736,42023-0142-01 ",.02)
 ;;42023-0142-01
 ;;9002226.02101,"1736,42023-0143-25 ",.01)
 ;;42023-0143-25
 ;;9002226.02101,"1736,42023-0143-25 ",.02)
 ;;42023-0143-25
 ;;9002226.02101,"1736,43386-0660-24 ",.01)
 ;;43386-0660-24
 ;;9002226.02101,"1736,43386-0660-24 ",.02)
 ;;43386-0660-24
 ;;9002226.02101,"1736,43386-0660-26 ",.01)
 ;;43386-0660-26
 ;;9002226.02101,"1736,43386-0660-26 ",.02)
 ;;43386-0660-26
 ;;9002226.02101,"1736,45802-0723-32 ",.01)
 ;;45802-0723-32
 ;;9002226.02101,"1736,45802-0723-32 ",.02)
 ;;45802-0723-32
 ;;9002226.02101,"1736,45802-0723-90 ",.01)
 ;;45802-0723-90
 ;;9002226.02101,"1736,45802-0723-90 ",.02)
 ;;45802-0723-90
 ;;9002226.02101,"1736,45802-0724-32 ",.01)
 ;;45802-0724-32
 ;;9002226.02101,"1736,45802-0724-32 ",.02)
 ;;45802-0724-32
 ;;9002226.02101,"1736,45802-0724-90 ",.01)
 ;;45802-0724-90
 ;;9002226.02101,"1736,45802-0724-90 ",.02)
 ;;45802-0724-90
 ;;9002226.02101,"1736,49999-0145-10 ",.01)
 ;;49999-0145-10
 ;;9002226.02101,"1736,49999-0145-10 ",.02)
 ;;49999-0145-10
 ;;9002226.02101,"1736,49999-0146-10 ",.01)
 ;;49999-0146-10
 ;;9002226.02101,"1736,49999-0146-10 ",.02)
 ;;49999-0146-10
 ;;9002226.02101,"1736,49999-0341-10 ",.01)
 ;;49999-0341-10
 ;;9002226.02101,"1736,49999-0341-10 ",.02)
 ;;49999-0341-10
 ;;9002226.02101,"1736,49999-0342-10 ",.01)
 ;;49999-0342-10
 ;;9002226.02101,"1736,49999-0342-10 ",.02)
 ;;49999-0342-10
 ;;9002226.02101,"1736,49999-0342-50 ",.01)
 ;;49999-0342-50
 ;;9002226.02101,"1736,49999-0342-50 ",.02)
 ;;49999-0342-50
 ;;9002226.02101,"1736,51655-0523-53 ",.01)
 ;;51655-0523-53
 ;;9002226.02101,"1736,51655-0523-53 ",.02)
 ;;51655-0523-53
 ;;9002226.02101,"1736,51991-0625-01 ",.01)
 ;;51991-0625-01
 ;;9002226.02101,"1736,51991-0625-01 ",.02)
 ;;51991-0625-01
 ;;9002226.02101,"1736,52152-0166-02 ",.01)
 ;;52152-0166-02
 ;;9002226.02101,"1736,52152-0166-02 ",.02)
 ;;52152-0166-02
 ;;9002226.02101,"1736,52152-0185-02 ",.01)
 ;;52152-0185-02
 ;;9002226.02101,"1736,52152-0185-02 ",.02)
 ;;52152-0185-02
 ;;9002226.02101,"1736,52959-0226-10 ",.01)
 ;;52959-0226-10
 ;;9002226.02101,"1736,52959-0226-10 ",.02)
 ;;52959-0226-10
 ;;9002226.02101,"1736,52959-0226-12 ",.01)
 ;;52959-0226-12
 ;;9002226.02101,"1736,52959-0226-12 ",.02)
 ;;52959-0226-12
 ;;9002226.02101,"1736,52959-0290-04 ",.01)
 ;;52959-0290-04
 ;;9002226.02101,"1736,52959-0290-04 ",.02)
 ;;52959-0290-04
 ;;9002226.02101,"1736,52959-0290-05 ",.01)
 ;;52959-0290-05
 ;;9002226.02101,"1736,52959-0290-05 ",.02)
 ;;52959-0290-05
 ;;9002226.02101,"1736,52959-0290-10 ",.01)
 ;;52959-0290-10
 ;;9002226.02101,"1736,52959-0290-10 ",.02)
 ;;52959-0290-10
 ;;9002226.02101,"1736,52959-0479-10 ",.01)
 ;;52959-0479-10
 ;;9002226.02101,"1736,52959-0479-10 ",.02)
 ;;52959-0479-10
 ;;9002226.02101,"1736,52959-0479-12 ",.01)
 ;;52959-0479-12
 ;;9002226.02101,"1736,52959-0479-12 ",.02)
 ;;52959-0479-12
 ;
OTHER ; OTHER ROUTINES
 D ^BGP31S2
 D ^BGP31S3
 Q