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

BGPM5ALF.m

Go to the documentation of this file.
  1. BGPM5ALF ;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,"11370015530 ")
  1. ;;32
  1. ;;21,"11370015534 ")
  1. ;;33
  1. ;;21,"11370015540 ")
  1. ;;34
  1. ;;21,"11370015597 ")
  1. ;;35
  1. ;;21,"11370015623 ")
  1. ;;36
  1. ;;21,"11370015630 ")
  1. ;;37
  1. ;;21,"11370015640 ")
  1. ;;38
  1. ;;21,"11370015694 ")
  1. ;;39
  1. ;;21,"11370015696 ")
  1. ;;40
  1. ;;21,"11370015723 ")
  1. ;;41
  1. ;;21,"11370015730 ")
  1. ;;42
  1. ;;21,"11370015773 ")
  1. ;;43
  1. ;;21,"11370015797 ")
  1. ;;44
  1. ;;21,"11383012323 ")
  1. ;;45
  1. ;;21,"11383014711 ")
  1. ;;46
  1. ;;21,"11694074201 ")
  1. ;;47
  1. ;;21,"11694086101 ")
  1. ;;48
  1. ;;21,"11694086104 ")
  1. ;;49
  1. ;;21,"11694088101 ")
  1. ;;50
  1. ;;21,"11819011395 ")
  1. ;;51
  1. ;;21,"11819025630 ")
  1. ;;52
  1. ;;21,"11819025645 ")
  1. ;;53
  1. ;;21,"11819025690 ")
  1. ;;54
  1. ;;21,"11845005781 ")
  1. ;;55
  1. ;;21,"11845008825 ")
  1. ;;56
  1. ;;21,"11845009401 ")
  1. ;;57
  1. ;;21,"11845057701 ")
  1. ;;58
  1. ;;21,"11845057801 ")
  1. ;;59
  1. ;;21,"11845074201 ")
  1. ;;60
  1. ;;21,"11845094101 ")
  1. ;;61
  1. ;;21,"11845095201 ")
  1. ;;62
  1. ;;21,"11845107501 ")
  1. ;;63
  1. ;;21,"12280015030 ")
  1. ;;64
  1. ;;21,"12634082390 ")
  1. ;;65
  1. ;;21,"12634085471 ")
  1. ;;66
  1. ;;21,"12634086971 ")
  1. ;;67
  1. ;;21,"13411011101 ")
  1. ;;68
  1. ;;21,"13411011102 ")
  1. ;;69
  1. ;;21,"13411011103 ")
  1. ;;70
  1. ;;21,"13411011106 ")
  1. ;;71
  1. ;;21,"13411011109 ")
  1. ;;72
  1. ;;21,"13411011110 ")
  1. ;;73
  1. ;;21,"13411011301 ")
  1. ;;74
  1. ;;21,"13411011303 ")
  1. ;;75
  1. ;;21,"13411011306 ")
  1. ;;76
  1. ;;21,"13411011309 ")
  1. ;;77
  1. ;;21,"13411011315 ")
  1. ;;78
  1. ;;21,"13411011401 ")
  1. ;;79
  1. ;;21,"13411011403 ")
  1. ;;80
  1. ;;21,"13411011406 ")
  1. ;;81
  1. ;;21,"13411011409 ")
  1. ;;82
  1. ;;21,"13411011415 ")
  1. ;;83
  1. ;;21,"13411011501 ")
  1. ;;84
  1. ;;21,"13411011503 ")
  1. ;;85
  1. ;;21,"13411011506 ")
  1. ;;86
  1. ;;21,"13411011509 ")
  1. ;;87
  1. ;;21,"13411011515 ")
  1. ;;88
  1. ;;21,"13411013201 ")
  1. ;;89
  1. ;;21,"13411013203 ")
  1. ;;90
  1. ;;21,"13411013206 ")
  1. ;;91
  1. ;;21,"13411013209 ")
  1. ;;92
  1. ;;21,"13411013215 ")
  1. ;;93
  1. ;;21,"13411013301 ")
  1. ;;94
  1. ;;21,"13411013303 ")
  1. ;;95
  1. ;;21,"13411013306 ")
  1. ;;96
  1. ;;21,"13411013309 ")
  1. ;;97
  1. ;;21,"13411013315 ")
  1. ;;98
  1. ;;21,"13411016101 ")
  1. ;;99
  1. ;;21,"13411016103 ")
  1. ;;100
  1. ;;21,"13411016106 ")
  1. ;;101
  1. ;;21,"13411016109 ")
  1. ;;102
  1. ;;21,"13411016115 ")
  1. ;;103
  1. ;;21,"13411016201 ")
  1. ;;104
  1. ;;21,"13411016203 ")
  1. ;;105
  1. ;;21,"13411016206 ")
  1. ;;106
  1. ;;21,"13411016209 ")
  1. ;;107
  1. ;;21,"13411016215 ")
  1. ;;108
  1. ;;21,"13411016703 ")
  1. ;;109
  1. ;;21,"13411016710 ")
  1. ;;110
  1. ;;21,"13672048000 ")
  1. ;;111
  1. ;;21,"13672048007 ")
  1. ;;112
  1. ;;21,"13672048090 ")
  1. ;;113
  1. ;;21,"13672048500 ")
  1. ;;114
  1. ;;21,"13672048507 ")
  1. ;;115
  1. ;;21,"13672048590 ")
  1. ;;116
  1. ;;21,"14508011513 ")
  1. ;;117
  1. ;;21,"14508011518 ")
  1. ;;118
  1. ;;21,"14508011586 ")
  1. ;;119
  1. ;;21,"14550051401 ")
  1. ;;120
  1. ;;21,"14550051404 ")
  1. ;;121
  1. ;;21,"14550051501 ")
  1. ;;122
  1. ;;21,"14550051504 ")
  1. ;;123
  1. ;;21,"14550051601 ")
  1. ;;124
  1. ;;21,"14550051604 ")
  1. ;;125
  1. ;;21,"15548044211 ")
  1. ;;126
  1. ;;21,"15548044214 ")
  1. ;;127
  1. ;;21,"15548058005 ")
  1. ;;128
  1. ;;21,"15548058011 ")
  1. ;;129
  1. ;;21,"15548058901 ")
  1. ;;130
  1. ;;21,"15548058903 ")
  1. ;;131
  1. ;;21,"16590054730 ")
  1. ;;132
  1. ;;21,"16590054760 ")
  1. ;;133
  1. ;;21,"16590054772 ")
  1. ;;134
  1. ;;21,"16590054790 ")
  1. ;;135
  1. ;;21,"16590096860 ")
  1. ;;136
  1. ;;21,"16714010101 ")
  1. ;;137
  1. ;;21,"16714010102 ")
  1. ;;138
  1. ;;21,"16714010103 ")
  1. ;;139
  1. ;;21,"16714010104 ")
  1. ;;140
  1. ;;21,"16714010105 ")
  1. ;;141
  1. ;;21,"17088002600 ")
  1. ;;142
  1. ;;21,"17856015702 ")
  1. ;;143
  1. ;;21,"17856015802 ")
  1. ;;144
  1. ;;21,"17856031102 ")
  1. ;;145
  1. ;;21,"17856031202 ")
  1. ;;146
  1. ;;21,"17856031302 ")
  1. ;;147
  1. ;;21,"17856031502 ")
  1. ;;148
  1. ;;21,"17856612302 ")
  1. ;;149
  1. ;;21,"17856612320 ")
  1. ;;150
  1. ;;21,"21695025590 ")
  1. ;;151
  1. ;;21,"21695028710 ")
  1. ;;152
  1. ;;21,"21695028790 ")
  1. ;;153
  1. ;;21,"21695028890 ")
  1. ;;154
  1. ;;21,"21695032530 ")
  1. ;;155
  1. ;;21,"21695033930 ")
  1. ;;156
  1. ;;21,"21695048130 ")
  1. ;;157
  1. ;;21,"21695053430 ")
  1. ;;158
  1. ;;21,"21695053530 ")
  1. ;;159
  1. ;;21,"21695053590 ")
  1. ;;160
  1. ;;21,"21695053630 ")
  1. ;;161
  1. ;;21,"21695053690 ")
  1. ;;162
  1. ;;21,"21695065930 ")
  1. ;;163
  1. ;;21,"21695073230 ")
  1. ;;164
  1. ;;21,"21695073260 ")
  1. ;;165
  1. ;;21,"21695073290 ")
  1. ;;166
  1. ;;21,"21695075990 ")
  1. ;;167
  1. ;;21,"21695077830 ")
  1. ;;168
  1. ;;21,"21695077890 ")
  1. ;;169
  1. ;;21,"21695078178 ")
  1. ;;170
  1. ;;21,"21695082730 ")
  1. ;;171
  1. ;;21,"23490063200 ")
  1. ;;172
  1. ;;21,"23490063203 ")
  1. ;;173
  1. ;;21,"23490063205 ")
  1. ;;174
  1. ;;21,"23490063206 ")
  1. ;;175
  1. ;;21,"23490063209 ")
  1. ;;176
  1. ;;21,"23490562601 ")
  1. ;;177
  1. ;;21,"23490562602 ")
  1. ;;178
  1. ;;21,"23490583802 ")
  1. ;;179
  1. ;;21,"23490583806 ")
  1. ;;180
  1. ;;21,"23490583809 ")
  1. ;;181
  1. ;;21,"23490583900 ")
  1. ;;182
  1. ;;21,"23490583901 ")
  1. ;;183
  1. ;;21,"23490584001 ")
  1. ;;184
  1. ;;21,"23490584002 ")
  1. ;;185
  1. ;;21,"24236008602 ")
  1. ;;186
  1. ;;21,"24236015602 ")
  1. ;;187
  1. ;;21,"24236021002 ")
  1. ;;188
  1. ;;21,"24236022902 ")
  1. ;;189
  1. ;;21,"24236030502 ")
  1. ;;190
  1. ;;21,"24236037202 ")
  1. ;;191
  1. ;;21,"24236038402 ")
  1. ;;192
  1. ;;21,"24236049802 ")
  1. ;;193
  1. ;;21,"24236050002 ")
  1. ;;194
  1. ;;21,"24236059102 ")
  1. ;;195
  1. ;;21,"24236064002 ")
  1. ;;196
  1. ;;21,"24236064402 ")
  1. ;;197
  1. ;;21,"24236071302 ")
  1. ;;198
  1. ;;21,"24385073478 ")
  1. ;;199
  1. ;;21,"24385083978 ")
  1. ;;200
  1. ;;21,"24658013005 ")
  1. ;;201
  1. ;;21,"24658013018 ")
  1. ;;202
  1. ;;21,"24658013033 ")
  1. ;;203
  1. ;;21,"24658013060 ")
  1. ;;204
  1. ;;21,"24658026005 ")
  1. ;;205
  1. ;;21,"24658026018 ")
  1. ;;206
  1. ;;21,"24658026030 ")
  1. ;;207
  1. ;;21,"24658026060 ")
  1. ;;208
  1. ;;21,"24658026090 ")
  1. ;;209
  1. ;;21,"26053010301 ")
  1. ;;210
  1. ;;21,"26053013801 ")
  1. ;;211
  1. ;;21,"26053014001 ")
  1. ;;212
  1. ;;21,"26053014101 ")
  1. ;;213
  1. ;;21,"26053017701 ")
  1. ;;214
  1. ;;21,"26053030501 ")
  1. ;;215
  1. ;;21,"27437010901 ")
  1. ;;216
  1. ;;21,"27437010906 ")
  1. ;;217
  1. ;;21,"27437011001 ")
  1. ;;218
  1. ;;21,"27437011006 ")
  1. ;;219
  1. ;;21,"30768000061 ")
  1. ;;220
  1. ;;21,"31722022501 ")
  1. ;;221
  1. ;;21,"31722022505 ")
  1. ;;222
  1. ;;21,"31722022560 ")
  1. ;;223
  1. ;;21,"33358015530 ")
  1. ;;224
  1. ;;21,"33358015560 ")
  1. ;;225
  1. ;;21,"33358021001 ")
  1. ;;226
  1. ;;21,"33358021030 ")
  1. ;;227
  1. ;;21,"33358021060 ")
  1. ;;228
  1. ;;21,"33358021090 ")
  1. ;;229
  1. ;;21,"33358022330 ")
  1. ;;230
  1. ;;21,"33358022430 ")
  1. ;;231
  1. ;;21,"33358022500 ")
  1. ;;232
  1. ;;21,"33358022530 ")
  1. ;;233
  1. ;;21,"33358022560 ")
  1. ;;234
  1. ;;21,"33358022630 ")
  1. ;;235
  1. ;;21,"35356041330 ")
  1. ;;236
  1. ;;21,"35356051930 ")
  1. ;;237
  1. ;;21,"35356099230 ")
  1. ;;238
  1. ;;21,"39686001423 ")
  1. ;;239
  1. ;;21,"42291037590 ")
  1. ;;240
  1. ;;21,"42291037690 ")
  1. ;;241
  1. ;;21,"42291037710 ")
  1. ;;242
  1. ;;21,"42291037790 ")
  1. ;;243
  1. ;;21,"43265075101 ")
  1. ;;244
  1. ;;21,"43265075102 ")
  1. ;;245
  1. ;;21,"43265075201 ")
  1. ;;246
  1. ;;21,"43265075202 ")
  1. ;;247
  1. ;;21,"43265075401 ")
  1. ;;248
  1. ;;21,"43265075402 ")
  1. ;;249
  1. ;;21,"43265075501 ")
  1. ;;250
  1. ;;21,"43265075502 ")
  1. ;;251
  1. ;;21,"43292012356 ")
  1. ;;252
  1. ;;21,"43292022328 ")
  1. ;;253
  1. ;;21,"43292055740 ")
  1. ;;254
  1. ;;21,"43353003115 ")
  1. ;;255
  1. ;;21,"43353003145 ")
  1. ;;256
  1. ;;21,"43353003160 ")
  1. ;;257
  1. ;;21,"43353003182 ")
  1. ;;258
  1. ;;21,"43353003199 ")
  1. ;;259
  1. ;;21,"43353009060 ")
  1. ;;260
  1. ;;21,"43353009080 ")
  1. ;;261
  1. ;;21,"43353028915 ")
  1. ;;262
  1. ;;21,"43353028945 ")
  1. ;;263
  1. ;;21,"43353040230 ")
  1. ;;264
  1. ;;21,"43353067330 ")
  1. ;;265
  1. ;;21,"43353067353 ")
  1. ;;266
  1. ;;21,"43353067394 ")
  1. ;;267
  1. ;;21,"43353071460 ")
  1. ;;268
  1. ;;21,"43353071845 ")
  1. ;;269
  1. ;;21,"43353071860 ")
  1. ;;270
  1. ;;21,"43806024040 ")
  1. ;;271
  1. ;;21,"43806038240 ")
  1. ;;272
  1. ;;21,"43806041140 ")
  1. ;;273
  1. ;;21,"43806041240 ")
  1. ;;274
  1. ;;21,"43806067035 ")
  1. ;;275
  1. ;;21,"43806067041 ")
  1. ;;276
  1. ;;21,"43806067070 ")
  1. ;;277
  1. ;;21,"43806092240 ")
  1. ;;278
  1. ;;21,"43806092340 ")
  1. ;;279
  1. ;;21,"43806092440 ")
  1. ;;280
  1. ;;21,"46672081777 ")
  1. ;;281
  1. ;;21,"49072095377 ")
  1. ;;282
  1. ;;21,"49299109001 ")
  1. ;;283
  1. ;;21,"49299109102 ")
  1. ;;284
  1. ;;21,"49299109204 ")
  1. ;;285
  1. ;;21,"49299109308 ")
  1. ;;286
  1. ;;21,"49348009710 ")
  1. ;;287
  1. ;;21,"49348026212 ")
  1. ;;288
  1. ;;21,"49349003902 ")
  1. ;;289
  1. ;;21,"49349015702 ")
  1. ;;290
  1. ;;21,"49349029602 ")
  1. ;;291
  1. ;;21,"49349029621 ")
  1. ;;292
  1. ;;21,"49349030702 ")
  1. ;;293
  1. ;;21,"49349032802 ")
  1. ;;294
  1. ;;21,"49349068625 ")
  1. ;;295
  1. ;;21,"49349068702 ")
  1. ;;296
  1. ;;21,"49483001301 ")
  1. ;;297
  1. ;;21,"49483001310 ")
  1. ;;298
  1. ;;21,"49483001401 ")
  1. ;;299
  1. ;;21,"49483001410 ")
  1. ;;300
  1. ;;21,"49483001501 ")
  1. ;;301
  1. ;;21,"49483001510 ")
  1. ;;302
  1. ;;21,"49483001801 ")
  1. ;;303
  1. ;;21,"49856003400 ")
  1. ;;304
  1. ;;21,"49856003406 ")
  1. ;;305
  1. ;;21,"49856017700 ")
  1. ;;306
  1. ;;21,"49856017701 ")
  1. ;;307
  1. ;;21,"49856017703 ")
  1. ;;308
  1. ;;21,"49856017709 ")
  1. ;;309
  1. ;;21,"49856017800 ")
  1. ;;310
  1. ;;21,"49856017801 ")
  1. ;;311
  1. ;;21,"49856017803 ")
  1. ;;312
  1. ;;21,"49856017809 ")
  1. ;;313
  1. ;;21,"49856017900 ")
  1. ;;314
  1. ;;21,"49856017901 ")
  1. ;;315
  1. ;;21,"49856017903 ")
  1. ;;316
  1. ;;21,"49856017909 ")
  1. ;;317
  1. ;;21,"49884046565 ")
  1. ;;318
  1. ;;21,"49884046566 ")
  1. ;;319
  1. ;;21,"49884046665 ")
  1. ;;320
  1. ;;21,"49884046667 ")
  1. ;;321
  1. ;;21,"49884075401 ")
  1. ;;322
  1. ;;21,"49884075402 ")
  1. ;;323
  1. ;;21,"49884075410 ")
  1. ;;324
  1. ;;21,"49884075501 ")
  1. ;;325
  1. ;;21,"49884075502 ")
  1. ;;326
  1. ;;21,"49884075510 ")
  1. ;;327
  1. ;;21,"49884075601 ")
  1. ;;328
  1. ;;21,"49884075602 ")
  1. ;;329
  1. ;;21,"49884075610 ")
  1. ;;330
  1. ;;21,"49884079165 ")
  1. ;;331
  1. ;;21,"49884079166 ")
  1. ;;332
  1. ;;21,"49884079265 ")
  1. ;;333
  1. ;;21,"49884079289 ")
  1. ;;334
  1. ;;21,"49884093665 ")
  1. ;;335
  1. ;;21,"49884093666 ")
  1. ;;336
  1. ;;21,"49884093765 ")
  1. ;;337
  1. ;;21,"49884093767 ")
  1. ;;338
  1. ;;21,"49999011430 ")
  1. ;;339
  1. ;;21,"49999011460 ")
  1. ;;340
  1. ;;21,"49999029330 ")
  1. ;;341
  1. ;;21,"49999030630 ")
  1. ;;342
  1. ;;21,"49999039230 ")
  1. ;;343
  1. ;;21,"49999039290 ")
  1. ;;344
  1. ;;21,"49999046730 ")
  1. ;;345
  1. ;;21,"49999046790 ")
  1. ;;346
  1. ;;21,"49999046830 ")
  1. ;;347
  1. ;;21,"49999046890 ")
  1. ;;348
  1. ;;21,"49999047030 ")
  1. ;;349
  1. ;;21,"49999047060 ")
  1. ;;350
  1. ;;21,"49999047090 ")
  1. ;;351
  1. ;;21,"49999047100 ")
  1. ;;352
  1. ;;21,"49999047130 ")
  1. ;;353
  1. ;;21,"49999047160 ")
  1. ;;354
  1. ;;21,"49999048730 ")
  1. ;;355
  1. ;;21,"49999048790 ")
  1. ;;356
  1. ;;21,"49999048830 ")
  1. ;;357
  1. ;;21,"49999074130 ")
  1. ;;358
  1. ;;21,"49999078830 ")
  1. ;;359
  1. ;;21,"49999087330 ")
  1. ;;360
  1. ;;21,"49999087390 ")
  1. ;;361
  1. ;;21,"49999088230 ")
  1. ;;362
  1. ;;21,"49999088290 ")
  1. ;;363
  1. ;;21,"49999088530 ")
  1. ;;364
  1. ;;21,"49999088590 ")
  1. ;;365
  1. ;;21,"49999095730 ")
  1. ;;366
  1. ;;21,"49999095830 ")
  1. ;;367
  1. ;;21,"49999095930 ")
  1. ;;368
  1. ;;21,"49999098930 ")
  1. ;;369
  1. ;;21,"49999099230 ")
  1. ;;370
  1. ;;21,"49999099290 ")
  1. ;;371
  1. ;;21,"50428213843 ")
  1. ;;372
  1. ;;21,"51079078701 ")
  1. ;;373
  1. ;;21,"51079078717 ")
  1. ;;374
  1. ;;21,"51079078719 ")
  1. ;;375
  1. ;;21,"51079078720 ")
  1. ;;376
  1. ;;21,"51079097401 ")
  1. ;;377
  1. ;;21,"51079097420 ")
  1. ;;378
  1. ;;21,"51079097501 ")
  1. ;;379
  1. ;;21,"51079097520 ")
  1. ;;380
  1. ;;21,"51079097530 ")
  1. ;;381
  1. ;;21,"51079097556 ")
  1. ;;382
  1. ;;21,"51079097601 ")
  1. ;;383
  1. ;;21,"51079097620 ")
  1. ;;384
  1. ;;21,"51079097630 ")
  1. ;;385
  1. ;;21,"51079097656 ")
  1. ;;386
  1. ;;21,"51129003301 ")
  1. ;;387
  1. ;;21,"51129142401 ")
  1. ;;388
  1. ;;21,"51129154601 ")
  1. ;;389
  1. ;;21,"51129203101 ")
  1. ;;390
  1. ;;21,"51129258201 ")
  1. ;;391
  1. ;;21,"51129259001 ")
  1. ;;392
  1. ;;21,"51129275401 ")
  1. ;;393
  1. ;;21,"51129289201 ")
  1. ;;394
  1. ;;21,"51129289901 ")
  1. ;;395