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

BGPM5AIO.m

Go to the documentation of this file.
  1. BGPM5AIO ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  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. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"00781107801 ")
  1. ;;4145
  1. ;;21,"00781107805 ")
  1. ;;4146
  1. ;;21,"00781107810 ")
  1. ;;4147
  1. ;;21,"00781118101 ")
  1. ;;4148
  1. ;;21,"00781118110 ")
  1. ;;4149
  1. ;;21,"00781118176 ")
  1. ;;4150
  1. ;;21,"00781118192 ")
  1. ;;4151
  1. ;;21,"00781118201 ")
  1. ;;4152
  1. ;;21,"00781118210 ")
  1. ;;4153
  1. ;;21,"00781118276 ")
  1. ;;4154
  1. ;;21,"00781118292 ")
  1. ;;4155
  1. ;;21,"00781118301 ")
  1. ;;4156
  1. ;;21,"00781118310 ")
  1. ;;4157
  1. ;;21,"00781118376 ")
  1. ;;4158
  1. ;;21,"00781118392 ")
  1. ;;4159
  1. ;;21,"00781122301 ")
  1. ;;4160
  1. ;;21,"00781122305 ")
  1. ;;4161
  1. ;;21,"00781122310 ")
  1. ;;4162
  1. ;;21,"00781122313 ")
  1. ;;4163
  1. ;;21,"00781122801 ")
  1. ;;4164
  1. ;;21,"00781122805 ")
  1. ;;4165
  1. ;;21,"00781122810 ")
  1. ;;4166
  1. ;;21,"00781122813 ")
  1. ;;4167
  1. ;;21,"00781150600 ")
  1. ;;4168
  1. ;;21,"00781150601 ")
  1. ;;4169
  1. ;;21,"00781150603 ")
  1. ;;4170
  1. ;;21,"00781150605 ")
  1. ;;4171
  1. ;;21,"00781150610 ")
  1. ;;4172
  1. ;;21,"00781150613 ")
  1. ;;4173
  1. ;;21,"00781150615 ")
  1. ;;4174
  1. ;;21,"00781150701 ")
  1. ;;4175
  1. ;;21,"00781150705 ")
  1. ;;4176
  1. ;;21,"00781150710 ")
  1. ;;4177
  1. ;;21,"00781150713 ")
  1. ;;4178
  1. ;;21,"00781182401 ")
  1. ;;4179
  1. ;;21,"00781182405 ")
  1. ;;4180
  1. ;;21,"00781182431 ")
  1. ;;4181
  1. ;;21,"00781183301 ")
  1. ;;4182
  1. ;;21,"00781183305 ")
  1. ;;4183
  1. ;;21,"00781183331 ")
  1. ;;4184
  1. ;;21,"00781184101 ")
  1. ;;4185
  1. ;;21,"00781184105 ")
  1. ;;4186
  1. ;;21,"00781184131 ")
  1. ;;4187
  1. ;;21,"00781307075 ")
  1. ;;4188
  1. ;;21,"00781307095 ")
  1. ;;4189
  1. ;;21,"00781307175 ")
  1. ;;4190
  1. ;;21,"00781307195 ")
  1. ;;4191
  1. ;;21,"00781377771 ")
  1. ;;4192
  1. ;;21,"00781377795 ")
  1. ;;4193
  1. ;;21,"00781563001 ")
  1. ;;4194
  1. ;;21,"00781563101 ")
  1. ;;4195
  1. ;;21,"00781563201 ")
  1. ;;4196
  1. ;;21,"00904041160 ")
  1. ;;4197
  1. ;;21,"00904041161 ")
  1. ;;4198
  1. ;;21,"00904041180 ")
  1. ;;4199
  1. ;;21,"00904041260 ")
  1. ;;4200
  1. ;;21,"00904041261 ")
  1. ;;4201
  1. ;;21,"00904041280 ")
  1. ;;4202
  1. ;;21,"00904041460 ")
  1. ;;4203
  1. ;;21,"00904041480 ")
  1. ;;4204
  1. ;;21,"00904041840 ")
  1. ;;4205
  1. ;;21,"00904041860 ")
  1. ;;4206
  1. ;;21,"00904042160 ")
  1. ;;4207
  1. ;;21,"00904042260 ")
  1. ;;4208
  1. ;;21,"00904042360 ")
  1. ;;4209
  1. ;;21,"00904042460 ")
  1. ;;4210
  1. ;;21,"00904506960 ")
  1. ;;4211
  1. ;;21,"00904507060 ")
  1. ;;4212
  1. ;;21,"00904507160 ")
  1. ;;4213
  1. ;;21,"00904511060 ")
  1. ;;4214
  1. ;;21,"00904511080 ")
  1. ;;4215
  1. ;;21,"00904511160 ")
  1. ;;4216
  1. ;;21,"00904511180 ")
  1. ;;4217
  1. ;;21,"00904539261 ")
  1. ;;4218
  1. ;;21,"00904589061 ")
  1. ;;4219
  1. ;;21,"00904592861 ")
  1. ;;4220
  1. ;;21,"00904592961 ")
  1. ;;4221
  1. ;;21,"00904593061 ")
  1. ;;4222
  1. ;;21,"00904594761 ")
  1. ;;4223
  1. ;;21,"00904594861 ")
  1. ;;4224
  1. ;;21,"00904594961 ")
  1. ;;4225
  1. ;;21,"00904595061 ")
  1. ;;4226
  1. ;;21,"00904603360 ")
  1. ;;4227
  1. ;;21,"00904603361 ")
  1. ;;4228
  1. ;;21,"00904603380 ")
  1. ;;4229
  1. ;;21,"00904603460 ")
  1. ;;4230
  1. ;;21,"00904603461 ")
  1. ;;4231
  1. ;;21,"00904603480 ")
  1. ;;4232
  1. ;;21,"00904616261 ")
  1. ;;4233
  1. ;;21,"00904620060 ")
  1. ;;4234
  1. ;;21,"00904763460 ")
  1. ;;4235
  1. ;;21,"00904763461 ")
  1. ;;4236
  1. ;;21,"00904763480 ")
  1. ;;4237
  1. ;;21,"00904763560 ")
  1. ;;4238
  1. ;;21,"00904763561 ")
  1. ;;4239
  1. ;;21,"00904777260 ")
  1. ;;4240
  1. ;;21,"00904777261 ")
  1. ;;4241
  1. ;;21,"00904777280 ")
  1. ;;4242
  1. ;;21,"00904777360 ")
  1. ;;4243
  1. ;;21,"00904777361 ")
  1. ;;4244
  1. ;;21,"00904777380 ")
  1. ;;4245
  1. ;;21,"00904781660 ")
  1. ;;4246
  1. ;;21,"00904781760 ")
  1. ;;4247
  1. ;;21,"00904781860 ")
  1. ;;4248
  1. ;;21,"00904788160 ")
  1. ;;4249
  1. ;;21,"00904788260 ")
  1. ;;4250
  1. ;;21,"00904789360 ")
  1. ;;4251
  1. ;;21,"00904789460 ")
  1. ;;4252
  1. ;;21,"00904794660 ")
  1. ;;4253
  1. ;;21,"00904794680 ")
  1. ;;4254
  1. ;;21,"00904794760 ")
  1. ;;4255
  1. ;;21,"00904794780 ")
  1. ;;4256
  1. ;;21,"10019014501 ")
  1. ;;1
  1. ;;21,"10019014543 ")
  1. ;;2
  1. ;;21,"10019021001 ")
  1. ;;3
  1. ;;21,"10019021002 ")
  1. ;;4
  1. ;;21,"10019021003 ")
  1. ;;5
  1. ;;21,"10019021004 ")
  1. ;;6
  1. ;;21,"10019021063 ")
  1. ;;7
  1. ;;21,"10019021084 ")
  1. ;;8
  1. ;;21,"10130000410 ")
  1. ;;9
  1. ;;21,"10130007310 ")
  1. ;;10
  1. ;;21,"10130013020 ")
  1. ;;11
  1. ;;21,"10130013040 ")
  1. ;;12
  1. ;;21,"10702001301 ")
  1. ;;13
  1. ;;21,"10702001401 ")
  1. ;;14
  1. ;;21,"11819008330 ")
  1. ;;15
  1. ;;21,"11819008360 ")
  1. ;;16
  1. ;;21,"11819008390 ")
  1. ;;17
  1. ;;21,"11819008395 ")
  1. ;;18
  1. ;;21,"11819008397 ")
  1. ;;19
  1. ;;21,"11819008398 ")
  1. ;;20
  1. ;;21,"11819010230 ")
  1. ;;21
  1. ;;21,"11819010290 ")
  1. ;;22
  1. ;;21,"11819010295 ")
  1. ;;23
  1. ;;21,"11819022790 ")
  1. ;;24
  1. ;;21,"12280014500 ")
  1. ;;25
  1. ;;21,"12634043601 ")
  1. ;;26
  1. ;;21,"12634047260 ")
  1. ;;27
  1. ;;21,"12634088500 ")
  1. ;;28
  1. ;;21,"12634088501 ")
  1. ;;29
  1. ;;21,"13107006301 ")
  1. ;;30
  1. ;;21,"13107006399 ")
  1. ;;31
  1. ;;21,"13107006401 ")
  1. ;;32
  1. ;;21,"13107006499 ")
  1. ;;33
  1. ;;21,"13107016801 ")
  1. ;;34
  1. ;;21,"13107016899 ")
  1. ;;35
  1. ;;21,"13107016901 ")
  1. ;;36
  1. ;;21,"13107016999 ")
  1. ;;37
  1. ;;21,"13107017001 ")
  1. ;;38
  1. ;;21,"13107017099 ")
  1. ;;39
  1. ;;21,"13411016901 ")
  1. ;;40
  1. ;;21,"13411016903 ")
  1. ;;41
  1. ;;21,"13411016906 ")
  1. ;;42
  1. ;;21,"13411016909 ")
  1. ;;43
  1. ;;21,"13411016910 ")
  1. ;;44
  1. ;;21,"13411017601 ")
  1. ;;45
  1. ;;21,"13411017603 ")
  1. ;;46
  1. ;;21,"13411017606 ")
  1. ;;47
  1. ;;21,"13411017609 ")
  1. ;;48
  1. ;;21,"13411017610 ")
  1. ;;49
  1. ;;21,"13411021402 ")
  1. ;;50
  1. ;;21,"13411021403 ")
  1. ;;51
  1. ;;21,"13411021406 ")
  1. ;;52
  1. ;;21,"13411021409 ")
  1. ;;53
  1. ;;21,"13411021410 ")
  1. ;;54
  1. ;;21,"13411027603 ")
  1. ;;55
  1. ;;21,"13411029003 ")
  1. ;;56
  1. ;;21,"13411030203 ")
  1. ;;57
  1. ;;21,"13411030303 ")
  1. ;;58
  1. ;;21,"13411039806 ")
  1. ;;59
  1. ;;21,"13411044503 ")
  1. ;;60
  1. ;;21,"13411049906 ")
  1. ;;61
  1. ;;21,"13411051503 ")
  1. ;;62
  1. ;;21,"13411051603 ")
  1. ;;63
  1. ;;21,"13411052306 ")
  1. ;;64
  1. ;;21,"13411052406 ")
  1. ;;65
  1. ;;21,"13411052506 ")
  1. ;;66
  1. ;;21,"13411052606 ")
  1. ;;67
  1. ;;21,"13411059103 ")
  1. ;;68
  1. ;;21,"14593040601 ")
  1. ;;69
  1. ;;21,"14593040701 ")
  1. ;;70
  1. ;;21,"14593040801 ")
  1. ;;71
  1. ;;21,"14593060301 ")
  1. ;;72
  1. ;;21,"14593060302 ")
  1. ;;73
  1. ;;21,"15330002501 ")
  1. ;;74
  1. ;;21,"15330002510 ")
  1. ;;75
  1. ;;21,"15330002801 ")
  1. ;;76
  1. ;;21,"15330002810 ")
  1. ;;77
  1. ;;21,"15330002901 ")
  1. ;;78
  1. ;;21,"15330002910 ")
  1. ;;79
  1. ;;21,"16571043011 ")
  1. ;;80
  1. ;;21,"16571043111 ")
  1. ;;81
  1. ;;21,"16571044111 ")
  1. ;;82
  1. ;;21,"16590013230 ")
  1. ;;83
  1. ;;21,"16590013260 ")
  1. ;;84
  1. ;;21,"16590013330 ")
  1. ;;85
  1. ;;21,"16590013360 ")
  1. ;;86
  1. ;;21,"16590025630 ")
  1. ;;87
  1. ;;21,"16590025660 ")
  1. ;;88
  1. ;;21,"16590025671 ")
  1. ;;89
  1. ;;21,"16590025690 ")
  1. ;;90
  1. ;;21,"16590025730 ")
  1. ;;91
  1. ;;21,"16590025760 ")
  1. ;;92
  1. ;;21,"16590025771 ")
  1. ;;93
  1. ;;21,"16590025790 ")
  1. ;;94
  1. ;;21,"16590031715 ")
  1. ;;95
  1. ;;21,"16590031730 ")
  1. ;;96
  1. ;;21,"16590031760 ")
  1. ;;97
  1. ;;21,"16590031771 ")
  1. ;;98
  1. ;;21,"16590031772 ")
  1. ;;99
  1. ;;21,"16590031790 ")
  1. ;;100
  1. ;;21,"16590042830 ")
  1. ;;101
  1. ;;21,"16590042860 ")
  1. ;;102
  1. ;;21,"16590042872 ")
  1. ;;103
  1. ;;21,"16590042890 ")
  1. ;;104
  1. ;;21,"16590080830 ")
  1. ;;105
  1. ;;21,"16590080845 ")
  1. ;;106
  1. ;;21,"16590080860 ")
  1. ;;107
  1. ;;21,"16590080890 ")
  1. ;;108
  1. ;;21,"16590085128 ")
  1. ;;109
  1. ;;21,"16714002104 ")
  1. ;;110
  1. ;;21,"16714002106 ")
  1. ;;111
  1. ;;21,"16714002204 ")
  1. ;;112
  1. ;;21,"16714002206 ")
  1. ;;113
  1. ;;21,"16714002304 ")
  1. ;;114
  1. ;;21,"16714002306 ")
  1. ;;115
  1. ;;21,"16714002404 ")
  1. ;;116
  1. ;;21,"16714002406 ")
  1. ;;117
  1. ;;21,"16714002504 ")
  1. ;;118
  1. ;;21,"16714002505 ")
  1. ;;119
  1. ;;21,"16714002506 ")
  1. ;;120
  1. ;;21,"16714003101 ")
  1. ;;121
  1. ;;21,"16714003102 ")
  1. ;;122
  1. ;;21,"16714003103 ")
  1. ;;123
  1. ;;21,"16714003104 ")
  1. ;;124
  1. ;;21,"16714003105 ")
  1. ;;125
  1. ;;21,"16714003106 ")
  1. ;;126
  1. ;;21,"16714003201 ")
  1. ;;127
  1. ;;21,"16714003202 ")
  1. ;;128
  1. ;;21,"16714003203 ")
  1. ;;129
  1. ;;21,"16714003204 ")
  1. ;;130
  1. ;;21,"16714003205 ")
  1. ;;131
  1. ;;21,"16714003206 ")
  1. ;;132
  1. ;;21,"16714003301 ")
  1. ;;133
  1. ;;21,"16714003302 ")
  1. ;;134
  1. ;;21,"16714003303 ")
  1. ;;135
  1. ;;21,"16714003304 ")
  1. ;;136
  1. ;;21,"16714003305 ")
  1. ;;137
  1. ;;21,"16714003306 ")
  1. ;;138
  1. ;;21,"17022014924 ")
  1. ;;139
  1. ;;21,"17022034524 ")
  1. ;;140
  1. ;;21,"17088000801 ")
  1. ;;141
  1. ;;21,"17088005101 ")
  1. ;;142
  1. ;;21,"17088005502 ")
  1. ;;143
  1. ;;21,"17088251704 ")
  1. ;;144
  1. ;;21,"17088420101 ")
  1. ;;145
  1. ;;21,"17228010901 ")
  1. ;;146
  1. ;;21,"17228011001 ")
  1. ;;147
  1. ;;21,"17228011101 ")
  1. ;;148
  1. ;;21,"17228108809 ")
  1. ;;149
  1. ;;21,"17478042020 ")
  1. ;;150
  1. ;;21,"17478042040 ")
  1. ;;151
  1. ;;21,"17856001802 ")
  1. ;;152
  1. ;;21,"17856050602 ")
  1. ;;153
  1. ;;21,"17856414202 ")
  1. ;;154
  1. ;;21,"17856527002 ")
  1. ;;155
  1. ;;21,"21695029130 ")
  1. ;;156
  1. ;;21,"21695029830 ")
  1. ;;157
  1. ;;21,"21695029860 ")
  1. ;;158
  1. ;;21,"21695029878 ")
  1. ;;159
  1. ;;21,"21695029890 ")
  1. ;;160
  1. ;;21,"21695029900 ")
  1. ;;161
  1. ;;21,"21695029930 ")
  1. ;;162
  1. ;;21,"21695029960 ")
  1. ;;163
  1. ;;21,"21695029990 ")
  1. ;;164
  1. ;;21,"21695032230 ")
  1. ;;165
  1. ;;21,"21695032290 ")
  1. ;;166
  1. ;;21,"21695032330 ")
  1. ;;167
  1. ;;21,"21695032360 ")
  1. ;;168
  1. ;;21,"21695032390 ")
  1. ;;169
  1. ;;21,"21695032430 ")
  1. ;;170
  1. ;;21,"21695049460 ")
  1. ;;171
  1. ;;21,"21695049478 ")
  1. ;;172
  1. ;;21,"21695049490 ")
  1. ;;173
  1. ;;21,"21695059260 ")
  1. ;;174
  1. ;;21,"21695066730 ")
  1. ;;175
  1. ;;21,"21695066790 ")
  1. ;;176
  1. ;;21,"21695066860 ")
  1. ;;177
  1. ;;21,"21695066878 ")
  1. ;;178
  1. ;;21,"21695066930 ")
  1. ;;179
  1. ;;21,"21695066960 ")
  1. ;;180
  1. ;;21,"21695067030 ")
  1. ;;181
  1. ;;21,"21695067090 ")
  1. ;;182
  1. ;;21,"21695074330 ")
  1. ;;183
  1. ;;21,"21695074430 ")
  1. ;;184
  1. ;;21,"21695079930 ")
  1. ;;185
  1. ;;21,"21695080030 ")
  1. ;;186
  1. ;;21,"21695080230 ")
  1. ;;187
  1. ;;21,"21695080830 ")
  1. ;;188
  1. ;;21,"21695080930 ")
  1. ;;189
  1. ;;21,"23155011001 ")
  1. ;;190
  1. ;;21,"23155011003 ")
  1. ;;191
  1. ;;21,"23155011005 ")
  1. ;;192
  1. ;;21,"23155011006 ")
  1. ;;193
  1. ;;21,"23155011010 ")
  1. ;;194
  1. ;;21,"23155011101 ")
  1. ;;195
  1. ;;21,"23155011103 ")
  1. ;;196
  1. ;;21,"23155011105 ")
  1. ;;197
  1. ;;21,"23155011106 ")
  1. ;;198
  1. ;;21,"23155011110 ")
  1. ;;199
  1. ;;21,"23155011201 ")
  1. ;;200
  1. ;;21,"23155011203 ")
  1. ;;201
  1. ;;21,"23155011205 ")
  1. ;;202
  1. ;;21,"23155011206 ")
  1. ;;203
  1. ;;21,"23155011210 ")
  1. ;;204
  1. ;;21,"23155011301 ")
  1. ;;205
  1. ;;21,"23155011303 ")
  1. ;;206
  1. ;;21,"23155011305 ")
  1. ;;207
  1. ;;21,"23155011306 ")
  1. ;;208
  1. ;;21,"23155011310 ")
  1. ;;209
  1. ;;21,"23155011401 ")
  1. ;;210
  1. ;;21,"23155011403 ")
  1. ;;211
  1. ;;21,"23155011405 ")
  1. ;;212
  1. ;;21,"23155011406 ")
  1. ;;213
  1. ;;21,"23155011410 ")
  1. ;;214
  1. ;;21,"23490013900 ")
  1. ;;215
  1. ;;21,"23490013902 ")
  1. ;;216
  1. ;;21,"23490013903 ")
  1. ;;217
  1. ;;21,"23490013905 ")
  1. ;;218
  1. ;;21,"23490013906 ")
  1. ;;219
  1. ;;21,"23490013909 ")
  1. ;;220
  1. ;;21,"23490014103 ")
  1. ;;221
  1. ;;21,"23490014106 ")
  1. ;;222
  1. ;;21,"23490014109 ")
  1. ;;223
  1. ;;21,"23490021203 ")
  1. ;;224
  1. ;;21,"23490021206 ")
  1. ;;225
  1. ;;21,"23490021209 ")
  1. ;;226
  1. ;;21,"23490046300 ")
  1. ;;227
  1. ;;21,"23490046803 ")
  1. ;;228
  1. ;;21,"23490046901 ")
  1. ;;229
  1. ;;21,"23490053101 ")
  1. ;;230
  1. ;;21,"23490091503 ")
  1. ;;231
  1. ;;21,"23490091505 ")
  1. ;;232
  1. ;;21,"23490091506 ")
  1. ;;233
  1. ;;21,"23490091509 ")
  1. ;;234
  1. ;;21,"23490091600 ")
  1. ;;235
  1. ;;21,"23490091602 ")
  1. ;;236
  1. ;;21,"23490091603 ")
  1. ;;237
  1. ;;21,"23490091605 ")
  1. ;;238
  1. ;;21,"23490091606 ")
  1. ;;239
  1. ;;21,"23490091609 ")
  1. ;;240
  1. ;;21,"23490104504 ")
  1. ;;241
  1. ;;21,"23490104605 ")
  1. ;;242
  1. ;;21,"23490104706 ")
  1. ;;243
  1. ;;21,"23490104807 ")
  1. ;;244
  1. ;;21,"23490106605 ")
  1. ;;245
  1. ;;21,"23490106706 ")
  1. ;;246
  1. ;;21,"23490116303 ")
  1. ;;247
  1. ;;21,"23490116305 ")
  1. ;;248
  1. ;;21,"23490116306 ")
  1. ;;249
  1. ;;21,"23490116309 ")
  1. ;;250