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

BGPM5AFS.m

Go to the documentation of this file.
BGPM5AFS ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;21,"00781166610 ")
 ;;4447
 ;;21,"00781166631 ")
 ;;4448
 ;;21,"00781166634 ")
 ;;4449
 ;;21,"00781166692 ")
 ;;4450
 ;;21,"00781166701 ")
 ;;4451
 ;;21,"00781166710 ")
 ;;4452
 ;;21,"00781166731 ")
 ;;4453
 ;;21,"00781166734 ")
 ;;4454
 ;;21,"00781166792 ")
 ;;4455
 ;;21,"00781166801 ")
 ;;4456
 ;;21,"00781166810 ")
 ;;4457
 ;;21,"00781166831 ")
 ;;4458
 ;;21,"00781166834 ")
 ;;4459
 ;;21,"00781166892 ")
 ;;4460
 ;;21,"00781166901 ")
 ;;4461
 ;;21,"00781166910 ")
 ;;4462
 ;;21,"00781166931 ")
 ;;4463
 ;;21,"00781166934 ")
 ;;4464
 ;;21,"00781166992 ")
 ;;4465
 ;;21,"00781167301 ")
 ;;4466
 ;;21,"00781167310 ")
 ;;4467
 ;;21,"00781167331 ")
 ;;4468
 ;;21,"00781167334 ")
 ;;4469
 ;;21,"00781167392 ")
 ;;4470
 ;;21,"00781182801 ")
 ;;4471
 ;;21,"00781182810 ")
 ;;4472
 ;;21,"00781182813 ")
 ;;4473
 ;;21,"00781182901 ")
 ;;4474
 ;;21,"00781182910 ")
 ;;4475
 ;;21,"00781182913 ")
 ;;4476
 ;;21,"00781183801 ")
 ;;4477
 ;;21,"00781183810 ")
 ;;4478
 ;;21,"00781183813 ")
 ;;4479
 ;;21,"00781183901 ")
 ;;4480
 ;;21,"00781183910 ")
 ;;4481
 ;;21,"00781183913 ")
 ;;4482
 ;;21,"00781184801 ")
 ;;4483
 ;;21,"00781184810 ")
 ;;4484
 ;;21,"00781184831 ")
 ;;4485
 ;;21,"00781212601 ")
 ;;4486
 ;;21,"00781212701 ")
 ;;4487
 ;;21,"00781212705 ")
 ;;4488
 ;;21,"00781212710 ")
 ;;4489
 ;;21,"00781212801 ")
 ;;4490
 ;;21,"00781212805 ")
 ;;4491
 ;;21,"00781212826 ")
 ;;4492
 ;;21,"00781212901 ")
 ;;4493
 ;;21,"00781212905 ")
 ;;4494
 ;;21,"00781212910 ")
 ;;4495
 ;;21,"00781508310 ")
 ;;4496
 ;;21,"00781508392 ")
 ;;4497
 ;;21,"00781508410 ")
 ;;4498
 ;;21,"00781508492 ")
 ;;4499
 ;;21,"00781532001 ")
 ;;4500
 ;;21,"00781532010 ")
 ;;4501
 ;;21,"00781532101 ")
 ;;4502
 ;;21,"00781532110 ")
 ;;4503
 ;;21,"00781544101 ")
 ;;4504
 ;;21,"00781544110 ")
 ;;4505
 ;;21,"00781544201 ")
 ;;4506
 ;;21,"00781544210 ")
 ;;4507
 ;;21,"00781544301 ")
 ;;4508
 ;;21,"00781544310 ")
 ;;4509
 ;;21,"00781544401 ")
 ;;4510
 ;;21,"00781544410 ")
 ;;4511
 ;;21,"00855082750 ")
 ;;4512
 ;;21,"00904504561 ")
 ;;4513
 ;;21,"00904504661 ")
 ;;4514
 ;;21,"00904504761 ")
 ;;4515
 ;;21,"00904504840 ")
 ;;4516
 ;;21,"00904504860 ")
 ;;4517
 ;;21,"00904504880 ")
 ;;4518
 ;;21,"00904550160 ")
 ;;4519
 ;;21,"00904550260 ")
 ;;4520
 ;;21,"00904550261 ")
 ;;4521
 ;;21,"00904550280 ")
 ;;4522
 ;;21,"00904550360 ")
 ;;4523
 ;;21,"00904550380 ")
 ;;4524
 ;;21,"00904550460 ")
 ;;4525
 ;;21,"00904550480 ")
 ;;4526
 ;;21,"00904560960 ")
 ;;4527
 ;;21,"00904560961 ")
 ;;4528
 ;;21,"00904560980 ")
 ;;4529
 ;;21,"00904561060 ")
 ;;4530
 ;;21,"00904561061 ")
 ;;4531
 ;;21,"00904561080 ")
 ;;4532
 ;;21,"00904561160 ")
 ;;4533
 ;;21,"00904561161 ")
 ;;4534
 ;;21,"00904561180 ")
 ;;4535
 ;;21,"00904563761 ")
 ;;4536
 ;;21,"00904563843 ")
 ;;4537
 ;;21,"00904563846 ")
 ;;4538
 ;;21,"00904563861 ")
 ;;4539
 ;;21,"00904563889 ")
 ;;4540
 ;;21,"00904563943 ")
 ;;4541
 ;;21,"00904563946 ")
 ;;4542
 ;;21,"00904563948 ")
 ;;4543
 ;;21,"00904563961 ")
 ;;4544
 ;;21,"00904563989 ")
 ;;4545
 ;;21,"00904563993 ")
 ;;4546
 ;;21,"00904564043 ")
 ;;4547
 ;;21,"00904564046 ")
 ;;4548
 ;;21,"00904564048 ")
 ;;4549
 ;;21,"00904564061 ")
 ;;4550
 ;;21,"00904564089 ")
 ;;4551
 ;;21,"00904564093 ")
 ;;4552
 ;;21,"00904564161 ")
 ;;4553
 ;;21,"00904564243 ")
 ;;4554
 ;;21,"00904564246 ")
 ;;4555
 ;;21,"00904564248 ")
 ;;4556
 ;;21,"00904564252 ")
 ;;4557
 ;;21,"00904564261 ")
 ;;4558
 ;;21,"00904564289 ")
 ;;4559
 ;;21,"00904564293 ")
 ;;4560
 ;;21,"00904575789 ")
 ;;4561
 ;;21,"00904577889 ")
 ;;4562
 ;;21,"00904580843 ")
 ;;4563
 ;;21,"00904580846 ")
 ;;4564
 ;;21,"00904580848 ")
 ;;4565
 ;;21,"00904580861 ")
 ;;4566
 ;;21,"00904580880 ")
 ;;4567
 ;;21,"00904580889 ")
 ;;4568
 ;;21,"00904580893 ")
 ;;4569
 ;;21,"00904580943 ")
 ;;4570
 ;;21,"00904580946 ")
 ;;4571
 ;;21,"00904580948 ")
 ;;4572
 ;;21,"00904580961 ")
 ;;4573
 ;;21,"00904580980 ")
 ;;4574
 ;;21,"00904580989 ")
 ;;4575
 ;;21,"00904580993 ")
 ;;4576
 ;;21,"00904581043 ")
 ;;4577
 ;;21,"00904581046 ")
 ;;4578
 ;;21,"00904581048 ")
 ;;4579
 ;;21,"00904581052 ")
 ;;4580
 ;;21,"00904581061 ")
 ;;4581
 ;;21,"00904581080 ")
 ;;4582
 ;;21,"00904581089 ")
 ;;4583
 ;;21,"00904581093 ")
 ;;4584
 ;;21,"00904581143 ")
 ;;4585
 ;;21,"00904581146 ")
 ;;4586
 ;;21,"00904581161 ")
 ;;4587
 ;;21,"00904581180 ")
 ;;4588
 ;;21,"00904581189 ")
 ;;4589
 ;;21,"00904581240 ")
 ;;4590
 ;;21,"00904606380 ")
 ;;4591
 ;;21,"00904606480 ")
 ;;4592
 ;;21,"00904606580 ")
 ;;4593
 ;;21,"00904606680 ")
 ;;4594
 ;;21,"10544023830 ")
 ;;1
 ;;21,"10544023860 ")
 ;;2
 ;;21,"10544023930 ")
 ;;3
 ;;21,"10544023960 ")
 ;;4
 ;;21,"10544024030 ")
 ;;5
 ;;21,"10544024060 ")
 ;;6
 ;;21,"10544056430 ")
 ;;7
 ;;21,"11819009690 ")
 ;;8
 ;;21,"11819011190 ")
 ;;9
 ;;21,"11819029290 ")
 ;;10
 ;;21,"11819029345 ")
 ;;11
 ;;21,"11819029390 ")
 ;;12
 ;;21,"11819029445 ")
 ;;13
 ;;21,"11819029490 ")
 ;;14
 ;;21,"11819029545 ")
 ;;15
 ;;21,"11819029590 ")
 ;;16
 ;;21,"11819029595 ")
 ;;17
 ;;21,"12280012960 ")
 ;;18
 ;;21,"12280014400 ")
 ;;19
 ;;21,"12634074760 ")
 ;;20
 ;;21,"12634074860 ")
 ;;21
 ;;21,"12634077071 ")
 ;;22
 ;;21,"13411018402 ")
 ;;23
 ;;21,"13411018403 ")
 ;;24
 ;;21,"13411018406 ")
 ;;25
 ;;21,"13411018409 ")
 ;;26
 ;;21,"13411018410 ")
 ;;27
 ;;21,"13411018803 ")
 ;;28
 ;;21,"13411018810 ")
 ;;29
 ;;21,"13411018903 ")
 ;;30
 ;;21,"13411018910 ")
 ;;31
 ;;21,"13411019003 ")
 ;;32
 ;;21,"13411019010 ")
 ;;33
 ;;21,"13411023102 ")
 ;;34
 ;;21,"13411023103 ")
 ;;35
 ;;21,"13411023106 ")
 ;;36
 ;;21,"13411023109 ")
 ;;37
 ;;21,"13411023110 ")
 ;;38
 ;;21,"13411023302 ")
 ;;39
 ;;21,"13411023303 ")
 ;;40
 ;;21,"13411023306 ")
 ;;41
 ;;21,"13411023309 ")
 ;;42
 ;;21,"13411023310 ")
 ;;43
 ;;21,"13411033403 ")
 ;;44
 ;;21,"13411037703 ")
 ;;45
 ;;21,"13411037803 ")
 ;;46
 ;;21,"13411037903 ")
 ;;47
 ;;21,"13411038003 ")
 ;;48
 ;;21,"13411038103 ")
 ;;49
 ;;21,"13411038203 ")
 ;;50
 ;;21,"13411046203 ")
 ;;51
 ;;21,"13411049303 ")
 ;;52
 ;;21,"13411054906 ")
 ;;53
 ;;21,"14593041701 ")
 ;;54
 ;;21,"14593041710 ")
 ;;55
 ;;21,"14593041801 ")
 ;;56
 ;;21,"14593041850 ")
 ;;57
 ;;21,"14593042001 ")
 ;;58
 ;;21,"14593042010 ")
 ;;59
 ;;21,"14593042050 ")
 ;;60
 ;;21,"15330023301 ")
 ;;61
 ;;21,"15330023401 ")
 ;;62
 ;;21,"15338020030 ")
 ;;63
 ;;21,"15338021130 ")
 ;;64
 ;;21,"15338022030 ")
 ;;65
 ;;21,"15338023330 ")
 ;;66
 ;;21,"15548004501 ")
 ;;67
 ;;21,"15548004503 ")
 ;;68
 ;;21,"15548004505 ")
 ;;69
 ;;21,"15548004601 ")
 ;;70
 ;;21,"15548004602 ")
 ;;71
 ;;21,"15548004603 ")
 ;;72
 ;;21,"15548004701 ")
 ;;73
 ;;21,"15548004703 ")
 ;;74
 ;;21,"15548004801 ")
 ;;75
 ;;21,"15548022703 ")
 ;;76
 ;;21,"15548027203 ")
 ;;77
 ;;21,"15548027210 ")
 ;;78
 ;;21,"15548027303 ")
 ;;79
 ;;21,"15548027310 ")
 ;;80
 ;;21,"16252053000 ")
 ;;81
 ;;21,"16252053090 ")
 ;;82
 ;;21,"16252053100 ")
 ;;83
 ;;21,"16252053190 ")
 ;;84
 ;;21,"16252053200 ")
 ;;85
 ;;21,"16252053290 ")
 ;;86
 ;;21,"16252054100 ")
 ;;87
 ;;21,"16252054130 ")
 ;;88
 ;;21,"16252054200 ")
 ;;89
 ;;21,"16252054290 ")
 ;;90
 ;;21,"16252057001 ")
 ;;91
 ;;21,"16252057030 ")
 ;;92
 ;;21,"16252057101 ")
 ;;93
 ;;21,"16252057150 ")
 ;;94
 ;;21,"16252057201 ")
 ;;95
 ;;21,"16252057250 ")
 ;;96
 ;;21,"16252057301 ")
 ;;97
 ;;21,"16252057310 ")
 ;;98
 ;;21,"16252057350 ")
 ;;99
 ;;21,"16252061001 ")
 ;;100
 ;;21,"16252061101 ")
 ;;101
 ;;21,"16252061201 ")
 ;;102
 ;;21,"16252061301 ")
 ;;103
 ;;21,"16252061401 ")
 ;;104
 ;;21,"16590030630 ")
 ;;105
 ;;21,"16590030660 ")
 ;;106
 ;;21,"16590030690 ")
 ;;107
 ;;21,"16590030930 ")
 ;;108
 ;;21,"16590030960 ")
 ;;109
 ;;21,"16590030972 ")
 ;;110
 ;;21,"16590030990 ")
 ;;111
 ;;21,"16590035630 ")
 ;;112
 ;;21,"16590035645 ")
 ;;113
 ;;21,"16590035671 ")
 ;;114
 ;;21,"16590039230 ")
 ;;115
 ;;21,"16590039260 ")
 ;;116
 ;;21,"16590039290 ")
 ;;117
 ;;21,"17106100100 ")
 ;;118
 ;;21,"17106100200 ")
 ;;119
 ;;21,"17106100300 ")
 ;;120
 ;;21,"17106100400 ")
 ;;121
 ;;21,"17856004102 ")
 ;;122
 ;;21,"17856010802 ")
 ;;123
 ;;21,"17856099002 ")
 ;;124
 ;;21,"17856099302 ")
 ;;125
 ;;21,"18837027730 ")
 ;;126
 ;;21,"21695032830 ")
 ;;127
 ;;21,"21695032890 ")
 ;;128
 ;;21,"21695032930 ")
 ;;129
 ;;21,"21695032978 ")
 ;;130
 ;;21,"21695032990 ")
 ;;131
 ;;21,"21695033020 ")
 ;;132
 ;;21,"21695033030 ")
 ;;133
 ;;21,"21695033090 ")
 ;;134
 ;;21,"21695033130 ")
 ;;135
 ;;21,"21695033190 ")
 ;;136
 ;;21,"21695034590 ")
 ;;137
 ;;21,"21695039330 ")
 ;;138
 ;;21,"21695039430 ")
 ;;139
 ;;21,"21695047730 ")
 ;;140
 ;;21,"21695047778 ")
 ;;141
 ;;21,"21695047830 ")
 ;;142
 ;;21,"21695048730 ")
 ;;143
 ;;21,"21695048830 ")
 ;;144
 ;;21,"21695048860 ")
 ;;145
 ;;21,"21695048890 ")
 ;;146
 ;;21,"21695048930 ")
 ;;147
 ;;21,"21695048990 ")
 ;;148
 ;;21,"21695073330 ")
 ;;149
 ;;21,"21695073430 ")
 ;;150
 ;;21,"21695073460 ")
 ;;151
 ;;21,"21695073530 ")
 ;;152
 ;;21,"21695073560 ")
 ;;153
 ;;21,"21695073590 ")
 ;;154
 ;;21,"21695078030 ")
 ;;155
 ;;21,"21695082130 ")
 ;;156
 ;;21,"21695082190 ")
 ;;157
 ;;21,"21695082230 ")
 ;;158
 ;;21,"21695082290 ")
 ;;159
 ;;21,"21695082330 ")
 ;;160
 ;;21,"21695082360 ")
 ;;161
 ;;21,"23490052300 ")
 ;;162
 ;;21,"23490052303 ")
 ;;163
 ;;21,"23490052305 ")
 ;;164
 ;;21,"23490052306 ")
 ;;165
 ;;21,"23490052309 ")
 ;;166
 ;;21,"23490082700 ")
 ;;167
 ;;21,"23490082703 ")
 ;;168
 ;;21,"23490082705 ")
 ;;169
 ;;21,"23490082706 ")
 ;;170
 ;;21,"23490082709 ")
 ;;171
 ;;21,"23490082903 ")
 ;;172
 ;;21,"23490082905 ")
 ;;173
 ;;21,"23490082906 ")
 ;;174
 ;;21,"23490082909 ")
 ;;175
 ;;21,"23490148703 ")
 ;;176
 ;;21,"23490148706 ")
 ;;177
 ;;21,"23490148709 ")
 ;;178
 ;;21,"23490148800 ")
 ;;179
 ;;21,"23490148803 ")
 ;;180
 ;;21,"23490148806 ")
 ;;181
 ;;21,"23490148809 ")
 ;;182
 ;;21,"23490519101 ")
 ;;183
 ;;21,"23490519201 ")
 ;;184
 ;;21,"23490519301 ")
 ;;185
 ;;21,"23490519302 ")
 ;;186
 ;;21,"23490519303 ")
 ;;187
 ;;21,"23490519400 ")
 ;;188
 ;;21,"23490519401 ")
 ;;189
 ;;21,"23490519402 ")
 ;;190
 ;;21,"23490549101 ")
 ;;191
 ;;21,"23490549102 ")
 ;;192
 ;;21,"23490549108 ")
 ;;193
 ;;21,"23490549109 ")
 ;;194
 ;;21,"23490549201 ")
 ;;195
 ;;21,"23490549202 ")
 ;;196
 ;;21,"23490549401 ")
 ;;197
 ;;21,"23490549402 ")
 ;;198
 ;;21,"23490581500 ")
 ;;199
 ;;21,"23490581501 ")
 ;;200
 ;;21,"23490581601 ")
 ;;201
 ;;21,"23490581602 ")
 ;;202
 ;;21,"23490581606 ")
 ;;203
 ;;21,"23490581702 ")
 ;;204
 ;;21,"23490581802 ")
 ;;205
 ;;21,"23490581902 ")
 ;;206
 ;;21,"23490582001 ")
 ;;207
 ;;21,"23490582101 ")
 ;;208
 ;;21,"23490582201 ")
 ;;209
 ;;21,"23490936403 ")
 ;;210
 ;;21,"24196050101 ")
 ;;211
 ;;21,"24196050105 ")
 ;;212