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

BGPM3AEG.m

Go to the documentation of this file.
  1. BGPM3AEG ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
  1. ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
  1. ;;BGPMU UFH THERAPY NDCS
  1. ;
  1. ; This routine loads Taxonomy BGPMU UFH THERAPY NDCS
  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,"00002721601 ")
  1. ;;133
  1. ;;21,"00003296320 ")
  1. ;;134
  1. ;;21,"00008027501 ")
  1. ;;135
  1. ;;21,"00008027502 ")
  1. ;;136
  1. ;;21,"00008027550 ")
  1. ;;9
  1. ;;21,"00008027702 ")
  1. ;;2
  1. ;;21,"00008027703 ")
  1. ;;3
  1. ;;21,"00008048701 ")
  1. ;;40
  1. ;;21,"00008048703 ")
  1. ;;41
  1. ;;21,"00008252901 ")
  1. ;;42
  1. ;;21,"00008252902 ")
  1. ;;43
  1. ;;21,"00008252903 ")
  1. ;;44
  1. ;;21,"00008252950 ")
  1. ;;45
  1. ;;21,"00008252951 ")
  1. ;;46
  1. ;;21,"00008252952 ")
  1. ;;47
  1. ;;21,"00009026801 ")
  1. ;;137
  1. ;;21,"00009026802 ")
  1. ;;138
  1. ;;21,"00009026807 ")
  1. ;;139
  1. ;;21,"00009026812 ")
  1. ;;140
  1. ;;21,"00024072212 ")
  1. ;;48
  1. ;;21,"00024072213 ")
  1. ;;49
  1. ;;21,"00024072216 ")
  1. ;;50
  1. ;;21,"00024072217 ")
  1. ;;51
  1. ;;21,"00024072233 ")
  1. ;;52
  1. ;;21,"00024074212 ")
  1. ;;53
  1. ;;21,"00052081110 ")
  1. ;;141
  1. ;;21,"00052081175 ")
  1. ;;142
  1. ;;21,"00056003002 ")
  1. ;;1
  1. ;;21,"00074115212 ")
  1. ;;54
  1. ;;21,"00074115214 ")
  1. ;;55
  1. ;;21,"00074115270 ")
  1. ;;56
  1. ;;21,"00074115271 ")
  1. ;;57
  1. ;;21,"00074115273 ")
  1. ;;58
  1. ;;21,"00074115278 ")
  1. ;;59
  1. ;;21,"00074128125 ")
  1. ;;60
  1. ;;21,"00074131632 ")
  1. ;;4
  1. ;;21,"00074131666 ")
  1. ;;5
  1. ;;21,"00074628602 ")
  1. ;;61
  1. ;;21,"00074628611 ")
  1. ;;62
  1. ;;21,"00074629202 ")
  1. ;;63
  1. ;;21,"00074765002 ")
  1. ;;64
  1. ;;21,"00074765062 ")
  1. ;;65
  1. ;;21,"00074779312 ")
  1. ;;66
  1. ;;21,"00074779323 ")
  1. ;;67
  1. ;;21,"00074779361 ")
  1. ;;68
  1. ;;21,"00074779362 ")
  1. ;;69
  1. ;;21,"00089041001 ")
  1. ;;143
  1. ;;21,"00209422014 ")
  1. ;;144
  1. ;;21,"00223780101 ")
  1. ;;145
  1. ;;21,"00223780801 ")
  1. ;;146
  1. ;;21,"00223781010 ")
  1. ;;147
  1. ;;21,"00223784310 ")
  1. ;;148
  1. ;;21,"00223784430 ")
  1. ;;149
  1. ;;21,"00223786501 ")
  1. ;;70
  1. ;;21,"00223786702 ")
  1. ;;71
  1. ;;21,"00247119530 ")
  1. ;;150
  1. ;;21,"00247119550 ")
  1. ;;151
  1. ;;21,"00264958720 ")
  1. ;;72
  1. ;;21,"00298690861 ")
  1. ;;152
  1. ;;21,"00338045102 ")
  1. ;;73
  1. ;;21,"00338055002 ")
  1. ;;74
  1. ;;21,"00364666934 ")
  1. ;;153
  1. ;;21,"00364666954 ")
  1. ;;154
  1. ;;21,"00364666956 ")
  1. ;;155
  1. ;;21,"00381040301 ")
  1. ;;75
  1. ;;21,"00381046301 ")
  1. ;;156
  1. ;;21,"00381046305 ")
  1. ;;157
  1. ;;21,"00381046310 ")
  1. ;;158
  1. ;;21,"00402046310 ")
  1. ;;159
  1. ;;21,"00409115212 ")
  1. ;;76
  1. ;;21,"00409115214 ")
  1. ;;77
  1. ;;21,"00409115270 ")
  1. ;;78
  1. ;;21,"00409115278 ")
  1. ;;79
  1. ;;21,"00409131625 ")
  1. ;;6
  1. ;;21,"00409131632 ")
  1. ;;7
  1. ;;21,"00409131666 ")
  1. ;;8
  1. ;;21,"00409272001 ")
  1. ;;160
  1. ;;21,"00409272002 ")
  1. ;;161
  1. ;;21,"00409272003 ")
  1. ;;162
  1. ;;21,"00409765062 ")
  1. ;;80
  1. ;;21,"00409779323 ")
  1. ;;81
  1. ;;21,"00409779362 ")
  1. ;;82
  1. ;;21,"00436022070 ")
  1. ;;163
  1. ;;21,"00454091330 ")
  1. ;;164
  1. ;;21,"00456077826 ")
  1. ;;165
  1. ;;21,"00463103410 ")
  1. ;;166
  1. ;;21,"00467103325 ")
  1. ;;167
  1. ;;21,"00467203325 ")
  1. ;;168
  1. ;;21,"00467750710 ")
  1. ;;169
  1. ;;21,"00469003115 ")
  1. ;;83
  1. ;;21,"00469003325 ")
  1. ;;170
  1. ;;21,"00469081330 ")
  1. ;;171
  1. ;;21,"00469081350 ")
  1. ;;172
  1. ;;21,"00469091300 ")
  1. ;;173
  1. ;;21,"00469091330 ")
  1. ;;174
  1. ;;21,"00469091350 ")
  1. ;;175
  1. ;;21,"00469103315 ")
  1. ;;176
  1. ;;21,"00469190300 ")
  1. ;;84
  1. ;;21,"00469190303 ")
  1. ;;85
  1. ;;21,"00469203325 ")
  1. ;;177
  1. ;;21,"00469276010 ")
  1. ;;178
  1. ;;21,"00469276025 ")
  1. ;;179
  1. ;;21,"00469310115 ")
  1. ;;86
  1. ;;21,"00469310525 ")
  1. ;;87
  1. ;;21,"00469504001 ")
  1. ;;180
  1. ;;21,"00469504501 ")
  1. ;;88
  1. ;;21,"00469504505 ")
  1. ;;89
  1. ;;21,"00517430101 ")
  1. ;;181
  1. ;;21,"00527013955 ")
  1. ;;182
  1. ;;21,"00536486070 ")
  1. ;;183
  1. ;;21,"00536486075 ")
  1. ;;184
  1. ;;21,"00641039102 ")
  1. ;;185
  1. ;;21,"00641039125 ")
  1. ;;186
  1. ;;21,"00641039164 ")
  1. ;;187
  1. ;;21,"00641040125 ")
  1. ;;90
  1. ;;21,"00641244041 ")
  1. ;;188
  1. ;;21,"00641244045 ")
  1. ;;189
  1. ;;21,"00641245041 ")
  1. ;;190
  1. ;;21,"00641245045 ")
  1. ;;191
  1. ;;21,"00641326209 ")
  1. ;;91
  1. ;;21,"00641326403 ")
  1. ;;192
  1. ;;21,"00641326503 ")
  1. ;;193
  1. ;;21,"00686001101 ")
  1. ;;92
  1. ;;21,"00686001105 ")
  1. ;;93
  1. ;;21,"00686001910 ")
  1. ;;194
  1. ;;21,"00814365046 ")
  1. ;;195
  1. ;;21,"08290037003 ")
  1. ;;94
  1. ;;21,"08290038003 ")
  1. ;;95
  1. ;;21,"08290038005 ")
  1. ;;96
  1. ;;21,"08290039003 ")
  1. ;;97
  1. ;;21,"08290039005 ")
  1. ;;98
  1. ;;21,"08290039105 ")
  1. ;;99
  1. ;;21,"10719004542 ")
  1. ;;100
  1. ;;21,"10719004731 ")
  1. ;;196
  1. ;;21,"10719004742 ")
  1. ;;197
  1. ;;21,"10974000805 ")
  1. ;;198
  1. ;;21,"10974030605 ")
  1. ;;101
  1. ;;21,"11743021002 ")
  1. ;;102
  1. ;;21,"12671002403 ")
  1. ;;103
  1. ;;21,"12671002407 ")
  1. ;;104
  1. ;;21,"12671002601 ")
  1. ;;199
  1. ;;21,"12671002603 ")
  1. ;;200
  1. ;;21,"12671006303 ")
  1. ;;105
  1. ;;21,"12671006307 ")
  1. ;;106
  1. ;;21,"12671006501 ")
  1. ;;201
  1. ;;21,"12671006515 ")
  1. ;;202
  1. ;;21,"25021040001 ")
  1. ;;107
  1. ;;21,"25021040010 ")
  1. ;;108
  1. ;;21,"25021040030 ")
  1. ;;109
  1. ;;21,"25021040102 ")
  1. ;;110
  1. ;;21,"25021040301 ")
  1. ;;203
  1. ;;21,"25021040304 ")
  1. ;;204
  1. ;;21,"39769001101 ")
  1. ;;10
  1. ;;21,"39769001102 ")
  1. ;;11
  1. ;;21,"39769001105 ")
  1. ;;12
  1. ;;21,"39769001171 ")
  1. ;;13
  1. ;;21,"39769001173 ")
  1. ;;14
  1. ;;21,"39769001175 ")
  1. ;;15
  1. ;;21,"39769001910 ")
  1. ;;111
  1. ;;21,"39769001930 ")
  1. ;;112
  1. ;;21,"39769002601 ")
  1. ;;113
  1. ;;21,"39769002801 ")
  1. ;;205
  1. ;;21,"39769002905 ")
  1. ;;206
  1. ;;21,"39769003610 ")
  1. ;;16
  1. ;;21,"39769003630 ")
  1. ;;17
  1. ;;21,"39769003671 ")
  1. ;;18
  1. ;;21,"39769010771 ")
  1. ;;19
  1. ;;21,"39769010773 ")
  1. ;;20
  1. ;;21,"39769010775 ")
  1. ;;21
  1. ;;21,"39769011871 ")
  1. ;;22
  1. ;;21,"39769011873 ")
  1. ;;23
  1. ;;21,"39769011875 ")
  1. ;;24
  1. ;;21,"49072029130 ")
  1. ;;114
  1. ;;21,"51698004910 ")
  1. ;;207
  1. ;;21,"52584015270 ")
  1. ;;25
  1. ;;21,"52584054001 ")
  1. ;;115
  1. ;;21,"52584054201 ")
  1. ;;208
  1. ;;21,"52958032004 ")
  1. ;;26
  1. ;;21,"52958033008 ")
  1. ;;116
  1. ;;21,"52958033012 ")
  1. ;;117
  1. ;;21,"55154014105 ")
  1. ;;209
  1. ;;21,"55154236205 ")
  1. ;;27
  1. ;;21,"55154510905 ")
  1. ;;28
  1. ;;21,"55154512205 ")
  1. ;;118
  1. ;;21,"55154512207 ")
  1. ;;119
  1. ;;21,"55154512605 ")
  1. ;;120
  1. ;;21,"55154935305 ")
  1. ;;29
  1. ;;21,"55154935505 ")
  1. ;;30
  1. ;;21,"55154936005 ")
  1. ;;121
  1. ;;21,"55154937305 ")
  1. ;;122
  1. ;;21,"55154937705 ")
  1. ;;123
  1. ;;21,"62338313701 ")
  1. ;;31
  1. ;;21,"62338332701 ")
  1. ;;32
  1. ;;21,"62338352701 ")
  1. ;;33
  1. ;;21,"62338510503 ")
  1. ;;124
  1. ;;21,"62338521303 ")
  1. ;;125
  1. ;;21,"63323003810 ")
  1. ;;126
  1. ;;21,"63323003830 ")
  1. ;;127
  1. ;;21,"63323027602 ")
  1. ;;128
  1. ;;21,"63323054001 ")
  1. ;;129
  1. ;;21,"63323054011 ")
  1. ;;130
  1. ;;21,"63323054031 ")
  1. ;;131
  1. ;;21,"63323054057 ")
  1. ;;132
  1. ;;21,"63323054501 ")
  1. ;;34
  1. ;;21,"63323054505 ")
  1. ;;35
  1. ;;21,"63807060050 ")
  1. ;;36
  1. ;;21,"64054100302 ")
  1. ;;37
  1. ;;21,"64253033301 ")
  1. ;;38
  1. ;;21,"64253033352 ")
  1. ;;39
  1. ;;9002226,807,.01)
  1. ;;BGPMU UFH THERAPY NDCS
  1. ;;9002226,807,.02)
  1. ;;NDC codes for UFH therapy
  1. ;;9002226,807,.04)
  1. ;;@
  1. ;;9002226,807,.06)
  1. ;;@
  1. ;;9002226,807,.08)
  1. ;;@
  1. ;;9002226,807,.09)
  1. ;;@
  1. ;;9002226,807,.11)
  1. ;;@
  1. ;;9002226,807,.12)
  1. ;;@
  1. ;;9002226,807,.13)
  1. ;;@
  1. ;;9002226,807,.14)
  1. ;;@
  1. ;;9002226,807,.15)
  1. ;;@
  1. ;;9002226,807,.16)
  1. ;;@
  1. ;;9002226,807,.17)
  1. ;;@
  1. ;;9002226,807,3101)
  1. ;;@
  1. ;;9002226.02101,"807,00002721601 ",.01)
  1. ;;00002721601
  1. ;;9002226.02101,"807,00002721601 ",.02)
  1. ;;00002721601
  1. ;;9002226.02101,"807,00003296320 ",.01)
  1. ;;00003296320
  1. ;;9002226.02101,"807,00003296320 ",.02)
  1. ;;00003296320
  1. ;;9002226.02101,"807,00008027501 ",.01)
  1. ;;00008027501
  1. ;;9002226.02101,"807,00008027501 ",.02)
  1. ;;00008027501
  1. ;;9002226.02101,"807,00008027502 ",.01)
  1. ;;00008027502
  1. ;;9002226.02101,"807,00008027502 ",.02)
  1. ;;00008027502
  1. ;;9002226.02101,"807,00008027550 ",.01)
  1. ;;00008027550
  1. ;;9002226.02101,"807,00008027550 ",.02)
  1. ;;00008027550
  1. ;;9002226.02101,"807,00008027702 ",.01)
  1. ;;00008027702
  1. ;;9002226.02101,"807,00008027702 ",.02)
  1. ;;00008027702
  1. ;;9002226.02101,"807,00008027703 ",.01)
  1. ;;00008027703
  1. ;;9002226.02101,"807,00008027703 ",.02)
  1. ;;00008027703
  1. ;;9002226.02101,"807,00008048701 ",.01)
  1. ;;00008048701
  1. ;;9002226.02101,"807,00008048701 ",.02)
  1. ;;00008048701
  1. ;;9002226.02101,"807,00008048703 ",.01)
  1. ;;00008048703
  1. ;;9002226.02101,"807,00008048703 ",.02)
  1. ;;00008048703
  1. ;;9002226.02101,"807,00008252901 ",.01)
  1. ;;00008252901
  1. ;;9002226.02101,"807,00008252901 ",.02)
  1. ;;00008252901
  1. ;;9002226.02101,"807,00008252902 ",.01)
  1. ;;00008252902
  1. ;;9002226.02101,"807,00008252902 ",.02)
  1. ;;00008252902
  1. ;;9002226.02101,"807,00008252903 ",.01)
  1. ;;00008252903
  1. ;;9002226.02101,"807,00008252903 ",.02)
  1. ;;00008252903
  1. ;;9002226.02101,"807,00008252950 ",.01)
  1. ;;00008252950
  1. ;;9002226.02101,"807,00008252950 ",.02)
  1. ;;00008252950
  1. ;;9002226.02101,"807,00008252951 ",.01)
  1. ;;00008252951
  1. ;;9002226.02101,"807,00008252951 ",.02)
  1. ;;00008252951
  1. ;;9002226.02101,"807,00008252952 ",.01)
  1. ;;00008252952
  1. ;;9002226.02101,"807,00008252952 ",.02)
  1. ;;00008252952
  1. ;;9002226.02101,"807,00009026801 ",.01)
  1. ;;00009026801
  1. ;;9002226.02101,"807,00009026801 ",.02)
  1. ;;00009026801
  1. ;;9002226.02101,"807,00009026802 ",.01)
  1. ;;00009026802
  1. ;;9002226.02101,"807,00009026802 ",.02)
  1. ;;00009026802
  1. ;;9002226.02101,"807,00009026807 ",.01)
  1. ;;00009026807
  1. ;;9002226.02101,"807,00009026807 ",.02)
  1. ;;00009026807
  1. ;;9002226.02101,"807,00009026812 ",.01)
  1. ;;00009026812
  1. ;;9002226.02101,"807,00009026812 ",.02)
  1. ;;00009026812
  1. ;;9002226.02101,"807,00024072212 ",.01)
  1. ;;00024072212
  1. ;;9002226.02101,"807,00024072212 ",.02)
  1. ;;00024072212
  1. ;;9002226.02101,"807,00024072213 ",.01)
  1. ;;00024072213
  1. ;;9002226.02101,"807,00024072213 ",.02)
  1. ;;00024072213
  1. ;;9002226.02101,"807,00024072216 ",.01)
  1. ;;00024072216
  1. ;;9002226.02101,"807,00024072216 ",.02)
  1. ;;00024072216
  1. ;;9002226.02101,"807,00024072217 ",.01)
  1. ;;00024072217
  1. ;;9002226.02101,"807,00024072217 ",.02)
  1. ;;00024072217
  1. ;;9002226.02101,"807,00024072233 ",.01)
  1. ;;00024072233
  1. ;;9002226.02101,"807,00024072233 ",.02)
  1. ;;00024072233
  1. ;;9002226.02101,"807,00024074212 ",.01)
  1. ;;00024074212
  1. ;;9002226.02101,"807,00024074212 ",.02)
  1. ;;00024074212
  1. ;;9002226.02101,"807,00052081110 ",.01)
  1. ;;00052081110
  1. ;;9002226.02101,"807,00052081110 ",.02)
  1. ;;00052081110
  1. ;;9002226.02101,"807,00052081175 ",.01)
  1. ;;00052081175
  1. ;;9002226.02101,"807,00052081175 ",.02)
  1. ;;00052081175
  1. ;;9002226.02101,"807,00056003002 ",.01)
  1. ;;00056003002
  1. ;;9002226.02101,"807,00056003002 ",.02)
  1. ;;00056003002
  1. ;;9002226.02101,"807,00074115212 ",.01)
  1. ;;00074115212
  1. ;;9002226.02101,"807,00074115212 ",.02)
  1. ;;00074115212
  1. ;;9002226.02101,"807,00074115214 ",.01)
  1. ;;00074115214
  1. ;;9002226.02101,"807,00074115214 ",.02)
  1. ;;00074115214
  1. ;;9002226.02101,"807,00074115270 ",.01)
  1. ;;00074115270
  1. ;;9002226.02101,"807,00074115270 ",.02)
  1. ;;00074115270
  1. ;;9002226.02101,"807,00074115271 ",.01)
  1. ;;00074115271
  1. ;;9002226.02101,"807,00074115271 ",.02)
  1. ;;00074115271
  1. ;;9002226.02101,"807,00074115273 ",.01)
  1. ;;00074115273
  1. ;;9002226.02101,"807,00074115273 ",.02)
  1. ;;00074115273
  1. ;;9002226.02101,"807,00074115278 ",.01)
  1. ;;00074115278
  1. ;;9002226.02101,"807,00074115278 ",.02)
  1. ;;00074115278
  1. ;;9002226.02101,"807,00074128125 ",.01)
  1. ;;00074128125
  1. ;;9002226.02101,"807,00074128125 ",.02)
  1. ;;00074128125
  1. ;;9002226.02101,"807,00074131632 ",.01)
  1. ;;00074131632
  1. ;;9002226.02101,"807,00074131632 ",.02)
  1. ;;00074131632
  1. ;;9002226.02101,"807,00074131666 ",.01)
  1. ;;00074131666
  1. ;;9002226.02101,"807,00074131666 ",.02)
  1. ;;00074131666
  1. ;;9002226.02101,"807,00074628602 ",.01)
  1. ;;00074628602
  1. ;;9002226.02101,"807,00074628602 ",.02)
  1. ;;00074628602
  1. ;;9002226.02101,"807,00074628611 ",.01)
  1. ;;00074628611
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGPM3AEH
  1. D ^BGPM3AEI
  1. Q