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

BUD2ZD.m

Go to the documentation of this file.
  1. BUD2ZD ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 16, 2012;
  1. ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
  1. ;;BGPMU IVD ANTIPLATELET NDCS
  1. ;
  1. ; This routine loads Taxonomy BGPMU IVD ANTIPLATELET 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,"00084004615 ")
  1. ;;1
  1. ;;21,"00084005701 ")
  1. ;;2
  1. ;;21,"00084005718 ")
  1. ;;3
  1. ;;21,"00084007314 ")
  1. ;;4
  1. ;;21,"00084040803 ")
  1. ;;5
  1. ;;21,"00084040814 ")
  1. ;;6
  1. ;;21,"00084040816 ")
  1. ;;7
  1. ;;21,"00093015401 ")
  1. ;;8
  1. ;;21,"00093015405 ")
  1. ;;9
  1. ;;21,"00113025968 ")
  1. ;;10
  1. ;;21,"00113027468 ")
  1. ;;11
  1. ;;21,"00113027748 ")
  1. ;;12
  1. ;;21,"00113041178 ")
  1. ;;13
  1. ;;21,"00113041187 ")
  1. ;;14
  1. ;;21,"00113041190 ")
  1. ;;15
  1. ;;21,"00113041660 ")
  1. ;;16
  1. ;;21,"00113041678 ")
  1. ;;17
  1. ;;21,"00113041687 ")
  1. ;;18
  1. ;;21,"00113041693 ")
  1. ;;19
  1. ;;21,"00113046708 ")
  1. ;;20
  1. ;;21,"00113046768 ")
  1. ;;21
  1. ;;21,"00113053576 ")
  1. ;;22
  1. ;;21,"00113141182 ")
  1. ;;23
  1. ;;21,"00122080166 ")
  1. ;;24
  1. ;;21,"00122082166 ")
  1. ;;25
  1. ;;21,"00122085066 ")
  1. ;;26
  1. ;;21,"00122086266 ")
  1. ;;27
  1. ;;21,"00149009311 ")
  1. ;;28
  1. ;;21,"00182044401 ")
  1. ;;29
  1. ;;21,"00182044410 ")
  1. ;;30
  1. ;;21,"00182044801 ")
  1. ;;31
  1. ;;21,"00182044810 ")
  1. ;;32
  1. ;;21,"00182044901 ")
  1. ;;33
  1. ;;21,"00182105801 ")
  1. ;;34
  1. ;;21,"00182106105 ")
  1. ;;35
  1. ;;21,"00182106107 ")
  1. ;;36
  1. ;;21,"00182142095 ")
  1. ;;37
  1. ;;21,"00182190901 ")
  1. ;;38
  1. ;;21,"00182190910 ")
  1. ;;39
  1. ;;21,"00182821789 ")
  1. ;;40
  1. ;;21,"00185011505 ")
  1. ;;41
  1. ;;21,"00185011530 ")
  1. ;;42
  1. ;;21,"00185011560 ")
  1. ;;43
  1. ;;21,"00228261303 ")
  1. ;;44
  1. ;;21,"00228261306 ")
  1. ;;45
  1. ;;21,"00228261311 ")
  1. ;;46
  1. ;;21,"00247060601 ")
  1. ;;47
  1. ;;21,"00247060610 ")
  1. ;;48
  1. ;;21,"00247060625 ")
  1. ;;49
  1. ;;21,"00247060640 ")
  1. ;;50
  1. ;;21,"00247082700 ")
  1. ;;51
  1. ;;21,"00247082712 ")
  1. ;;52
  1. ;;21,"00247082725 ")
  1. ;;53
  1. ;;21,"00247119100 ")
  1. ;;54
  1. ;;21,"00247119101 ")
  1. ;;55
  1. ;;21,"00247119103 ")
  1. ;;56
  1. ;;21,"00247119124 ")
  1. ;;57
  1. ;;21,"00247119130 ")
  1. ;;58
  1. ;;21,"00247127530 ")
  1. ;;59
  1. ;;21,"00247127560 ")
  1. ;;60
  1. ;;21,"00247215000 ")
  1. ;;61
  1. ;;21,"00247215030 ")
  1. ;;62
  1. ;;21,"00280200051 ")
  1. ;;63
  1. ;;21,"00280210012 ")
  1. ;;64
  1. ;;21,"00280210032 ")
  1. ;;65
  1. ;;21,"00280210040 ")
  1. ;;66
  1. ;;21,"00280211010 ")
  1. ;;67
  1. ;;21,"00280261001 ")
  1. ;;68
  1. ;;21,"00280261020 ")
  1. ;;69
  1. ;;21,"00280261040 ")
  1. ;;70
  1. ;;21,"00280261080 ")
  1. ;;71
  1. ;;21,"00295123601 ")
  1. ;;72
  1. ;;21,"00295123625 ")
  1. ;;73
  1. ;;21,"00363015712 ")
  1. ;;74
  1. ;;21,"00363015714 ")
  1. ;;75
  1. ;;21,"00363015716 ")
  1. ;;76
  1. ;;21,"00363015717 ")
  1. ;;77
  1. ;;21,"00363018330 ")
  1. ;;78
  1. ;;21,"00363021807 ")
  1. ;;79
  1. ;;21,"00363022713 ")
  1. ;;80
  1. ;;21,"00363022714 ")
  1. ;;81
  1. ;;21,"00363022717 ")
  1. ;;82
  1. ;;21,"00363022757 ")
  1. ;;83
  1. ;;21,"00363025514 ")
  1. ;;84
  1. ;;21,"00363025517 ")
  1. ;;85
  1. ;;21,"00363025532 ")
  1. ;;86
  1. ;;21,"00363039707 ")
  1. ;;87
  1. ;;21,"00363041412 ")
  1. ;;88
  1. ;;21,"00363056314 ")
  1. ;;89
  1. ;;21,"00363058732 ")
  1. ;;90
  1. ;;21,"00404071013 ")
  1. ;;91
  1. ;;21,"00404071099 ")
  1. ;;92
  1. ;;21,"00404071213 ")
  1. ;;93
  1. ;;21,"00404071299 ")
  1. ;;94
  1. ;;21,"00440113090 ")
  1. ;;95
  1. ;;21,"00440113590 ")
  1. ;;96
  1. ;;21,"00480015401 ")
  1. ;;97
  1. ;;21,"00480015405 ")
  1. ;;98
  1. ;;21,"00536308610 ")
  1. ;;99
  1. ;;21,"00536308641 ")
  1. ;;100
  1. ;;21,"00536329736 ")
  1. ;;101
  1. ;;21,"00536330501 ")
  1. ;;102
  1. ;;21,"00536330510 ")
  1. ;;103
  1. ;;21,"00536331301 ")
  1. ;;104
  1. ;;21,"00536331310 ")
  1. ;;105
  1. ;;21,"00536331810 ")
  1. ;;106
  1. ;;21,"00573027110 ")
  1. ;;107
  1. ;;21,"00573027120 ")
  1. ;;108
  1. ;;21,"00574000201 ")
  1. ;;109
  1. ;;21,"00574000211 ")
  1. ;;110
  1. ;;21,"00603002436 ")
  1. ;;111
  1. ;;21,"00603002522 ")
  1. ;;112
  1. ;;21,"00603002532 ")
  1. ;;113
  1. ;;21,"00603002622 ")
  1. ;;114
  1. ;;21,"00603002632 ")
  1. ;;115
  1. ;;21,"00603003121 ")
  1. ;;116
  1. ;;21,"00603003125 ")
  1. ;;117
  1. ;;21,"00603016621 ")
  1. ;;118
  1. ;;21,"00603016702 ")
  1. ;;119
  1. ;;21,"00603016721 ")
  1. ;;120
  1. ;;21,"00603016732 ")
  1. ;;121
  1. ;;21,"00603016821 ")
  1. ;;122
  1. ;;21,"00603016902 ")
  1. ;;123
  1. ;;21,"00603016921 ")
  1. ;;124
  1. ;;21,"00603016932 ")
  1. ;;125
  1. ;;21,"00615052231 ")
  1. ;;126
  1. ;;21,"00615052239 ")
  1. ;;127
  1. ;;21,"00615350831 ")
  1. ;;128
  1. ;;21,"00615350839 ")
  1. ;;129
  1. ;;21,"00615356831 ")
  1. ;;130
  1. ;;21,"00615356839 ")
  1. ;;131
  1. ;;21,"00677117201 ")
  1. ;;132
  1. ;;21,"00820013401 ")
  1. ;;133
  1. ;;21,"00820013410 ")
  1. ;;134
  1. ;;21,"00820013701 ")
  1. ;;135
  1. ;;21,"00820013710 ")
  1. ;;136
  1. ;;21,"00820014301 ")
  1. ;;137
  1. ;;21,"00820014304 ")
  1. ;;138
  1. ;;21,"00820014310 ")
  1. ;;139
  1. ;;21,"00869153009 ")
  1. ;;140
  1. ;;21,"00904034759 ")
  1. ;;141
  1. ;;21,"00904058260 ")
  1. ;;142
  1. ;;21,"00904058560 ")
  1. ;;143
  1. ;;21,"00904200940 ")
  1. ;;144
  1. ;;21,"00904200960 ")
  1. ;;145
  1. ;;21,"00904200970 ")
  1. ;;146
  1. ;;21,"00904200980 ")
  1. ;;147
  1. ;;21,"00904201159 ")
  1. ;;148
  1. ;;21,"00904201360 ")
  1. ;;149
  1. ;;21,"00904201372 ")
  1. ;;150
  1. ;;21,"00904201380 ")
  1. ;;151
  1. ;;21,"00904201559 ")
  1. ;;152
  1. ;;21,"00904201959 ")
  1. ;;153
  1. ;;21,"00904201980 ")
  1. ;;154
  1. ;;21,"00904404061 ")
  1. ;;155
  1. ;;21,"00904404073 ")
  1. ;;156
  1. ;;21,"00904537840 ")
  1. ;;157
  1. ;;21,"00904537846 ")
  1. ;;158
  1. ;;21,"00904537852 ")
  1. ;;159
  1. ;;21,"00904537860 ")
  1. ;;160
  1. ;;21,"00904537861 ")
  1. ;;161
  1. ;;21,"04116709325 ")
  1. ;;162
  1. ;;21,"10056053576 ")
  1. ;;163
  1. ;;21,"10135012601 ")
  1. ;;164
  1. ;;21,"10135012603 ")
  1. ;;165
  1. ;;21,"10135012610 ")
  1. ;;166
  1. ;;21,"10135012613 ")
  1. ;;167
  1. ;;21,"10135012616 ")
  1. ;;168
  1. ;;21,"10135012620 ")
  1. ;;169
  1. ;;21,"10135012627 ")
  1. ;;170
  1. ;;21,"10135012630 ")
  1. ;;171
  1. ;;21,"10135012650 ")
  1. ;;172
  1. ;;21,"10135012657 ")
  1. ;;173
  1. ;;21,"10135012660 ")
  1. ;;174
  1. ;;21,"10135012669 ")
  1. ;;175
  1. ;;21,"10135012675 ")
  1. ;;176
  1. ;;21,"10135012690 ")
  1. ;;177
  1. ;;21,"10135012699 ")
  1. ;;178
  1. ;;21,"10135015001 ")
  1. ;;179
  1. ;;21,"10135015005 ")
  1. ;;180
  1. ;;21,"10135015010 ")
  1. ;;181
  1. ;;21,"10135015013 ")
  1. ;;182
  1. ;;21,"10135015020 ")
  1. ;;183
  1. ;;21,"10135015024 ")
  1. ;;184
  1. ;;21,"10135015030 ")
  1. ;;185
  1. ;;21,"10135015057 ")
  1. ;;186
  1. ;;21,"10135015069 ")
  1. ;;187
  1. ;;21,"10135017101 ")
  1. ;;188
  1. ;;21,"10135017110 ")
  1. ;;189
  1. ;;21,"10135017160 ")
  1. ;;190
  1. ;;21,"10135017164 ")
  1. ;;191
  1. ;;21,"10135017201 ")
  1. ;;192
  1. ;;21,"10135017210 ")
  1. ;;193
  1. ;;21,"10135017301 ")
  1. ;;194
  1. ;;21,"10135017303 ")
  1. ;;195
  1. ;;21,"10135017305 ")
  1. ;;196
  1. ;;21,"10135017310 ")
  1. ;;197
  1. ;;21,"10135017336 ")
  1. ;;198
  1. ;;21,"10135017353 ")
  1. ;;199
  1. ;;21,"10135017362 ")
  1. ;;200
  1. ;;21,"10135017369 ")
  1. ;;201
  1. ;;21,"10135017401 ")
  1. ;;202
  1. ;;21,"10135017410 ")
  1. ;;203
  1. ;;21,"10135024036 ")
  1. ;;204
  1. ;;21,"10135038715 ")
  1. ;;205
  1. ;;21,"10135038727 ")
  1. ;;206
  1. ;;21,"10135038815 ")
  1. ;;207
  1. ;;21,"10135038827 ")
  1. ;;208
  1. ;;21,"10244056210 ")
  1. ;;209
  1. ;;21,"10244056211 ")
  1. ;;210
  1. ;;21,"10244056261 ")
  1. ;;211
  1. ;;21,"10244056262 ")
  1. ;;212
  1. ;;21,"10244056265 ")
  1. ;;213
  1. ;;21,"10267240401 ")
  1. ;;214
  1. ;;21,"11383005011 ")
  1. ;;215
  1. ;;21,"11383005023 ")
  1. ;;216
  1. ;;21,"11383007225 ")
  1. ;;217
  1. ;;21,"11383014811 ")
  1. ;;218
  1. ;;21,"11383014825 ")
  1. ;;219
  1. ;;21,"11383014851 ")
  1. ;;220
  1. ;;21,"11383015814 ")
  1. ;;221
  1. ;;21,"11383015826 ")
  1. ;;222
  1. ;;21,"11383025236 ")
  1. ;;223
  1. ;;21,"11530000202 ")
  1. ;;224
  1. ;;21,"11530000206 ")
  1. ;;225
  1. ;;21,"11534015511 ")
  1. ;;226
  1. ;;21,"11673027468 ")
  1. ;;227
  1. ;;21,"11673027748 ")
  1. ;;228
  1. ;;21,"11673041687 ")
  1. ;;229
  1. ;;21,"11673041690 ")
  1. ;;230
  1. ;;21,"11673046708 ")
  1. ;;231
  1. ;;21,"11673046768 ")
  1. ;;232
  1. ;;21,"11673053576 ")
  1. ;;233
  1. ;;21,"11673056317 ")
  1. ;;234
  1. ;;21,"11673056332 ")
  1. ;;235
  1. ;;21,"11822316901 ")
  1. ;;236
  1. ;;21,"11845070601 ")
  1. ;;237
  1. ;;21,"11845070604 ")
  1. ;;238
  1. ;;21,"11845070629 ")
  1. ;;239
  1. ;;21,"11845084701 ")
  1. ;;240
  1. ;;21,"11845089004 ")
  1. ;;241
  1. ;;21,"11845089901 ")
  1. ;;242
  1. ;;21,"11845093001 ")
  1. ;;243
  1. ;;21,"11845094236 ")
  1. ;;244
  1. ;;21,"11845097502 ")
  1. ;;245
  1. ;;21,"11845099316 ")
  1. ;;246
  1. ;;21,"11917004160 ")
  1. ;;247
  1. ;;21,"11917004161 ")
  1. ;;248
  1. ;;21,"12843006132 ")
  1. ;;249
  1. ;;21,"12843010514 ")
  1. ;;250
  1. ;;21,"12843053636 ")
  1. ;;251
  1. ;;21,"12843053637 ")
  1. ;;252
  1. ;;21,"12843053640 ")
  1. ;;253
  1. ;;21,"15127001105 ")
  1. ;;254
  1. ;;21,"15127012020 ")
  1. ;;255
  1. ;;21,"15127022894 ")
  1. ;;256
  1. ;;21,"15127024136 ")
  1. ;;257
  1. ;;21,"15127073801 ")
  1. ;;258
  1. ;;21,"15127073805 ")
  1. ;;259
  1. ;;21,"15127073809 ")
  1. ;;260
  1. ;;21,"15127073810 ")
  1. ;;261
  1. ;;21,"15127073821 ")
  1. ;;262
  1. ;;21,"15127076008 ")
  1. ;;263
  1. ;;21,"15127087436 ")
  1. ;;264
  1. ;;21,"17714000936 ")
  1. ;;265
  1. ;;21,"17714001001 ")
  1. ;;266
  1. ;;21,"17714001010 ")
  1. ;;267
  1. ;;21,"17714001101 ")
  1. ;;268
  1. ;;21,"17714001110 ")
  1. ;;269
  1. ;;21,"17856044420 ")
  1. ;;270
  1. ;;21,"19458500101 ")
  1. ;;271
  1. ;;21,"19458500102 ")
  1. ;;272
  1. ;;21,"19458500201 ")
  1. ;;273
  1. ;;21,"19458500301 ")
  1. ;;274
  1. ;;21,"19458500801 ")
  1. ;;275
  1. ;;21,"21695053336 ")
  1. ;;276
  1. ;;21,"21695066600 ")
  1. ;;277
  1. ;;21,"21695066630 ")
  1. ;;278
  1. ;;21,"21695066690 ")
  1. ;;279
  1. ;;21,"21695068400 ")
  1. ;;280
  1. ;;21,"21695068430 ")
  1. ;;281
  1. ;;21,"21695068472 ")
  1. ;;282
  1. ;;21,"21695068490 ")
  1. ;;283
  1. ;;21,"23490660701 ")
  1. ;;284
  1. ;;21,"23490660702 ")
  1. ;;285
  1. ;;21,"23490661201 ")
  1. ;;286
  1. ;;21,"23490661202 ")
  1. ;;287
  1. ;;21,"24385002868 ")
  1. ;;288
  1. ;;21,"24385027868 ")
  1. ;;289
  1. ;;21,"24385036468 ")
  1. ;;290
  1. ;;21,"24385041185 ")
  1. ;;291
  1. ;;21,"24385041190 ")
  1. ;;292
  1. ;;21,"24385041685 ")
  1. ;;293
  1. ;;21,"24385041687 ")
  1. ;;294
  1. ;;21,"24385041690 ")
  1. ;;295
  1. ;;21,"24385042902 ")
  1. ;;296
  1. ;;21,"24385042978 ")
  1. ;;297
  1. ;;21,"24385042990 ")
  1. ;;298
  1. ;;21,"24385053548 ")
  1. ;;299
  1. ;;21,"24385053576 ")
  1. ;;300
  1. ;;21,"24385053587 ")
  1. ;;301
  1. ;;21,"24385053590 ")
  1. ;;302
  1. ;;21,"24385054148 ")
  1. ;;303
  1. ;;21,"24385054187 ")
  1. ;;304
  1. ;;21,"24385054572 ")
  1. ;;305
  1. ;;21,"26053000701 ")
  1. ;;306
  1. ;;21,"26053032301 ")
  1. ;;307
  1. ;;21,"30142041678 ")
  1. ;;308
  1. ;;21,"30142041687 ")
  1. ;;309
  1. ;;21,"30142046708 ")
  1. ;;310
  1. ;;21,"30142046768 ")
  1. ;;311
  1. ;;21,"33358003501 ")
  1. ;;312
  1. ;;21,"33358003530 ")
  1. ;;313
  1. ;;21,"33358003600 ")
  1. ;;314
  1. ;;21,"33358003630 ")
  1. ;;315
  1. ;;21,"36800025968 ")
  1. ;;316
  1. ;;21,"36800027468 ")
  1. ;;317
  1. ;;21,"36800027748 ")
  1. ;;318
  1. ;;21,"36800042902 ")
  1. ;;319
  1. ;;21,"36800046768 ")
  1. ;;320
  1. ;;21,"37205014519 ")
  1. ;;321
  1. ;;21,"37205014578 ")
  1. ;;322
  1. ;;21,"37205014587 ")
  1. ;;323
  1. ;;21,"37205015078 ")
  1. ;;324
  1. ;;21,"37205021807 ")
  1. ;;325
  1. ;;21,"37205021823 ")
  1. ;;326
  1. ;;21,"37205036968 ")
  1. ;;327
  1. ;;21,"37205042978 ")
  1. ;;328
  1. ;;21,"37205042990 ")
  1. ;;329
  1. ;;21,"37205042996 ")
  1. ;;330
  1. ;;21,"37205046768 ")
  1. ;;331
  1. ;;21,"37205051076 ")
  1. ;;332
  1. ;;21,"37205051087 ")
  1. ;;333
  1. ;;21,"37205051172 ")
  1. ;;334
  1. ;;21,"37205070868 ")
  1. ;;335
  1. ;;21,"37808027748 ")
  1. ;;336
  1. ;;21,"37808046768 ")
  1. ;;337
  1. ;;21,"37808053576 ")
  1. ;;338
  1. ;;21,"41163027468 ")
  1. ;;339
  1. ;;21,"41163041412 ")
  1. ;;340
  1. ;;21,"41163041460 ")
  1. ;;341
  1. ;;21,"41163041678 ")
  1. ;;342
  1. ;;21,"41163041687 ")
  1. ;;343
  1. ;;21,"41163041690 ")
  1. ;;344
  1. ;;21,"41163041693 ")
  1. ;;345
  1. ;;21,"41163042978 ")
  1. ;;346
  1. ;;21,"41163042990 ")
  1. ;;347
  1. ;;21,"41163046768 ")
  1. ;;348
  1. ;;21,"41163053576 ")
  1. ;;349
  1. ;;21,"41163053587 ")
  1. ;;350
  1. ;;21,"41163056306 ")
  1. ;;351
  1. ;;21,"41163056317 ")
  1. ;;352
  1. ;;21,"41163056332 ")
  1. ;;353
  1. ;;21,"41163064281 ")
  1. ;;354
  1. ;;21,"41226041182 ")
  1. ;;355
  1. ;;21,"41250027408 ")
  1. ;;356
  1. ;;21,"41250027468 ")
  1. ;;357
  1. ;;21,"41250027715 ")
  1. ;;358
  1. ;;21,"41250027748 ")
  1. ;;359
  1. ;;21,"41250053576 ")
  1. ;;360
  1. ;;21,"41250096634 ")
  1. ;;361
  1. ;;21,"41268053576 ")
  1. ;;362
  1. ;;21,"41520046768 ")
  1. ;;363
  1. ;;21,"42507027468 ")
  1. ;;364
  1. ;;21,"42507046768 ")
  1. ;;365
  1. ;;21,"42507053576 ")
  1. ;;366
  1. ;;21,"43063027890 ")
  1. ;;367
  1. ;;21,"43353071630 ")
  1. ;;368
  1. ;;21,"43353071660 ")
  1. ;;369
  1. ;;21,"45802064287 ")
  1. ;;370
  1. ;;21,"46066020402 ")
  1. ;;371
  1. ;;21,"47682001133 ")
  1. ;;372
  1. ;;21,"47682001148 ")
  1. ;;373
  1. ;;21,"47682001199 ")
  1. ;;374
  1. ;;21,"47682008513 ")
  1. ;;375
  1. ;;21,"47682008533 ")
  1. ;;376
  1. ;;21,"47682009533 ")
  1. ;;377
  1. ;;21,"47682009613 ")
  1. ;;378
  1. ;;21,"47682009633 ")
  1. ;;379
  1. ;;21,"47682009713 ")
  1. ;;380
  1. ;;21,"47682009747 ")
  1. ;;381
  1. ;;21,"47682009764 ")
  1. ;;382
  1. ;;21,"47682009799 ")
  1. ;;383
  1. ;;21,"47682009813 ")
  1. ;;384
  1. ;;21,"47682009833 ")
  1. ;;385
  1. ;;21,"47682009848 ")
  1. ;;386
  1. ;;21,"47682009899 ")
  1. ;;387
  1. ;;21,"47682009933 ")
  1. ;;388
  1. ;;21,"47682009948 ")
  1. ;;389
  1. ;;21,"47682010433 ")
  1. ;;390
  1. ;;21,"47682010613 ")
  1. ;;391
  1. ;;21,"47682010633 ")
  1. ;;392
  1. ;;21,"47682011613 ")
  1. ;;393
  1. ;;21,"47682011647 ")
  1. ;;394
  1. ;;21,"47682011664 ")
  1. ;;395
  1. ;;21,"47682011699 ")
  1. ;;396
  1. ;;21,"47682011913 ")
  1. ;;397
  1. ;;21,"47682011936 ")
  1. ;;398
  1. ;;21,"47682011948 ")
  1. ;;399
  1. ;;21,"47682011999 ")
  1. ;;400
  1. ;;21,"47682015113 ")
  1. ;;401
  1. ;;21,"47682015213 ")
  1. ;;402
  1. ;;21,"47682080513 ")
  1. ;;403
  1. ;;21,"47682080533 ")
  1. ;;404
  1. ;;21,"47682080548 ")
  1. ;;405
  1. ;;21,"47682080599 ")
  1. ;;406
  1. ;;21,"47682080613 ")
  1. ;;407
  1. ;;21,"47682080633 ")
  1. ;;408
  1. ;;21,"47682080648 ")
  1. ;;409
  1. ;;21,"47682080699 ")
  1. ;;410
  1. ;;21,"47682090533 ")
  1. ;;411
  1. ;;21,"47682090548 ")
  1. ;;412
  1. ;;21,"47682090633 ")
  1. ;;413
  1. ;;21,"47682090648 ")
  1. ;;414
  1. ;;21,"49035027423 ")
  1. ;;415
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BUD2ZD2
  1. D ^BUD2ZD3
  1. D ^BUD2ZD4
  1. D ^BUD2ZD5
  1. D ^BUD2ZD6
  1. D ^BUD2ZD7
  1. D ^BUD2ZD8
  1. D ^BUD2ZD9
  1. Q