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

BGPM3AAT.m

Go to the documentation of this file.
  1. BGPM3AAT ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
  1. ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
  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,"00247119530 ")
  1. ;;1077
  1. ;;21,"00247119550 ")
  1. ;;1078
  1. ;;21,"00247127530 ")
  1. ;;1383
  1. ;;21,"00247127560 ")
  1. ;;1384
  1. ;;21,"00247215000 ")
  1. ;;856
  1. ;;21,"00247215030 ")
  1. ;;857
  1. ;;21,"00247225203 ")
  1. ;;1774
  1. ;;21,"00247225206 ")
  1. ;;1775
  1. ;;21,"00247227330 ")
  1. ;;920
  1. ;;21,"00247227360 ")
  1. ;;921
  1. ;;21,"00257012501 ")
  1. ;;1312
  1. ;;21,"00257012601 ")
  1. ;;1165
  1. ;;21,"00257016701 ")
  1. ;;1166
  1. ;;21,"00264557710 ")
  1. ;;1266
  1. ;;21,"00264887710 ")
  1. ;;1267
  1. ;;21,"00264956710 ")
  1. ;;1237
  1. ;;21,"00264957710 ")
  1. ;;1268
  1. ;;21,"00264958720 ")
  1. ;;999
  1. ;;21,"00295123601 ")
  1. ;;503
  1. ;;21,"00295123625 ")
  1. ;;504
  1. ;;21,"00298690861 ")
  1. ;;1079
  1. ;;21,"00302820001 ")
  1. ;;1776
  1. ;;21,"00302820201 ")
  1. ;;1904
  1. ;;21,"00302820401 ")
  1. ;;2372
  1. ;;21,"00308618030 ")
  1. ;;1905
  1. ;;21,"00308618099 ")
  1. ;;1906
  1. ;;21,"00308620030 ")
  1. ;;2373
  1. ;;21,"00308620099 ")
  1. ;;2374
  1. ;;21,"00338044903 ")
  1. ;;1238
  1. ;;21,"00338045003 ")
  1. ;;1269
  1. ;;21,"00338045102 ")
  1. ;;1000
  1. ;;21,"00338054903 ")
  1. ;;1239
  1. ;;21,"00338055002 ")
  1. ;;1001
  1. ;;21,"00338055003 ")
  1. ;;1270
  1. ;;21,"00339653712 ")
  1. ;;1530
  1. ;;21,"00339653812 ")
  1. ;;1777
  1. ;;21,"00339653912 ")
  1. ;;1907
  1. ;;21,"00339654012 ")
  1. ;;1999
  1. ;;21,"00339654112 ")
  1. ;;2143
  1. ;;21,"00339654212 ")
  1. ;;2375
  1. ;;21,"00339654312 ")
  1. ;;2449
  1. ;;21,"00339654412 ")
  1. ;;2522
  1. ;;21,"00339654512 ")
  1. ;;1597
  1. ;;21,"00349835001 ")
  1. ;;505
  1. ;;21,"00349839001 ")
  1. ;;1908
  1. ;;21,"00349839101 ")
  1. ;;2376
  1. ;;21,"00349839201 ")
  1. ;;1598
  1. ;;21,"00349844501 ")
  1. ;;506
  1. ;;21,"00349844510 ")
  1. ;;507
  1. ;;21,"00349847401 ")
  1. ;;707
  1. ;;21,"00349847410 ")
  1. ;;708
  1. ;;21,"00349878401 ")
  1. ;;726
  1. ;;21,"00353201701 ")
  1. ;;508
  1. ;;21,"00363015712 ")
  1. ;;509
  1. ;;21,"00363015714 ")
  1. ;;510
  1. ;;21,"00363015716 ")
  1. ;;511
  1. ;;21,"00363015717 ")
  1. ;;512
  1. ;;21,"00363018330 ")
  1. ;;513
  1. ;;21,"00363021807 ")
  1. ;;792
  1. ;;21,"00363022714 ")
  1. ;;177
  1. ;;21,"00363022717 ")
  1. ;;178
  1. ;;21,"00363022757 ")
  1. ;;179
  1. ;;21,"00363025514 ")
  1. ;;858
  1. ;;21,"00363025517 ")
  1. ;;859
  1. ;;21,"00363025532 ")
  1. ;;860
  1. ;;21,"00363039707 ")
  1. ;;793
  1. ;;21,"00363056314 ")
  1. ;;861
  1. ;;21,"00364002902 ")
  1. ;;630
  1. ;;21,"00364064001 ")
  1. ;;2377
  1. ;;21,"00364064002 ")
  1. ;;2378
  1. ;;21,"00364064401 ")
  1. ;;180
  1. ;;21,"00364064402 ")
  1. ;;181
  1. ;;21,"00364073501 ")
  1. ;;514
  1. ;;21,"00364073502 ")
  1. ;;515
  1. ;;21,"00364083501 ")
  1. ;;516
  1. ;;21,"00364224906 ")
  1. ;;633
  1. ;;21,"00364236446 ")
  1. ;;1245
  1. ;;21,"00364236448 ")
  1. ;;1246
  1. ;;21,"00364236453 ")
  1. ;;1247
  1. ;;21,"00364238801 ")
  1. ;;517
  1. ;;21,"00364653854 ")
  1. ;;1313
  1. ;;21,"00364653934 ")
  1. ;;1167
  1. ;;21,"00364653949 ")
  1. ;;1168
  1. ;;21,"00364653953 ")
  1. ;;1169
  1. ;;21,"00364653954 ")
  1. ;;1170
  1. ;;21,"00364654046 ")
  1. ;;1214
  1. ;;21,"00364654048 ")
  1. ;;1215
  1. ;;21,"00364654053 ")
  1. ;;1216
  1. ;;21,"00364666934 ")
  1. ;;1080
  1. ;;21,"00364666954 ")
  1. ;;1081
  1. ;;21,"00364666956 ")
  1. ;;1082
  1. ;;21,"00364711912 ")
  1. ;;1
  1. ;;21,"00364712012 ")
  1. ;;49
  1. ;;21,"00364712112 ")
  1. ;;680
  1. ;;21,"00378045301 ")
  1. ;;1385
  1. ;;21,"00378045305 ")
  1. ;;1386
  1. ;;21,"00378880101 ")
  1. ;;1531
  1. ;;21,"00378880110 ")
  1. ;;1532
  1. ;;21,"00378880201 ")
  1. ;;1778
  1. ;;21,"00378880210 ")
  1. ;;1779
  1. ;;21,"00378880301 ")
  1. ;;2000
  1. ;;21,"00378880310 ")
  1. ;;2001
  1. ;;21,"00378880401 ")
  1. ;;2144
  1. ;;21,"00378880410 ")
  1. ;;2145
  1. ;;21,"00378880501 ")
  1. ;;2379
  1. ;;21,"00378880510 ")
  1. ;;2380
  1. ;;21,"00378880601 ")
  1. ;;2450
  1. ;;21,"00378880610 ")
  1. ;;2451
  1. ;;21,"00378881001 ")
  1. ;;1599
  1. ;;21,"00378881010 ")
  1. ;;1600
  1. ;;21,"00378882501 ")
  1. ;;1909
  1. ;;21,"00378882510 ")
  1. ;;1910
  1. ;;21,"00378887501 ")
  1. ;;2523
  1. ;;21,"00378887510 ")
  1. ;;2524
  1. ;;21,"00381004901 ")
  1. ;;1171
  1. ;;21,"00381004904 ")
  1. ;;1172
  1. ;;21,"00381004905 ")
  1. ;;1173
  1. ;;21,"00381004910 ")
  1. ;;1174
  1. ;;21,"00381005001 ")
  1. ;;1217
  1. ;;21,"00381005002 ")
  1. ;;1218
  1. ;;21,"00381005004 ")
  1. ;;1219
  1. ;;21,"00381005005 ")
  1. ;;1220
  1. ;;21,"00381005010 ")
  1. ;;1221
  1. ;;21,"00381018401 ")
  1. ;;1340
  1. ;;21,"00381040301 ")
  1. ;;1002
  1. ;;21,"00381041802 ")
  1. ;;1314
  1. ;;21,"00381041810 ")
  1. ;;1315
  1. ;;21,"00381046301 ")
  1. ;;1083
  1. ;;21,"00381046305 ")
  1. ;;1084
  1. ;;21,"00381046310 ")
  1. ;;1085
  1. ;;21,"00381051901 ")
  1. ;;1248
  1. ;;21,"00381051902 ")
  1. ;;1249
  1. ;;21,"00381051904 ")
  1. ;;1250
  1. ;;21,"00381051910 ")
  1. ;;1251
  1. ;;21,"00392051468 ")
  1. ;;727
  1. ;;21,"00395013410 ")
  1. ;;518
  1. ;;21,"00395013425 ")
  1. ;;519
  1. ;;21,"00395013450 ")
  1. ;;520
  1. ;;21,"00402004910 ")
  1. ;;1175
  1. ;;21,"00402005005 ")
  1. ;;1222
  1. ;;21,"00402041810 ")
  1. ;;1316
  1. ;;21,"00402046310 ")
  1. ;;1086
  1. ;;21,"00402051905 ")
  1. ;;1252
  1. ;;21,"00405410001 ")
  1. ;;728
  1. ;;21,"00406205201 ")
  1. ;;1533
  1. ;;21,"00406205210 ")
  1. ;;1534
  1. ;;21,"00406205301 ")
  1. ;;1780
  1. ;;21,"00406205310 ")
  1. ;;1781
  1. ;;21,"00406205401 ")
  1. ;;2002
  1. ;;21,"00406205410 ")
  1. ;;2003
  1. ;;21,"00406205501 ")
  1. ;;2146
  1. ;;21,"00406205510 ")
  1. ;;2147
  1. ;;21,"00406205601 ")
  1. ;;2381
  1. ;;21,"00406205610 ")
  1. ;;2382
  1. ;;21,"00406205701 ")
  1. ;;2452
  1. ;;21,"00406205801 ")
  1. ;;2525
  1. ;;21,"00406205901 ")
  1. ;;1601
  1. ;;21,"00406206401 ")
  1. ;;1911
  1. ;;21,"00406206410 ")
  1. ;;1912
  1. ;;21,"00406506410 ")
  1. ;;1913
  1. ;;21,"00409115212 ")
  1. ;;1003
  1. ;;21,"00409115214 ")
  1. ;;1004
  1. ;;21,"00409115270 ")
  1. ;;1005
  1. ;;21,"00409115278 ")
  1. ;;1006
  1. ;;21,"00409131625 ")
  1. ;;933
  1. ;;21,"00409131632 ")
  1. ;;934
  1. ;;21,"00409131666 ")
  1. ;;935
  1. ;;21,"00409140231 ")
  1. ;;1317
  1. ;;21,"00409258102 ")
  1. ;;1202
  1. ;;21,"00409258402 ")
  1. ;;1234
  1. ;;21,"00409272001 ")
  1. ;;1087
  1. ;;21,"00409272002 ")
  1. ;;1088
  1. ;;21,"00409272003 ")
  1. ;;1089
  1. ;;21,"00409272101 ")
  1. ;;1176
  1. ;;21,"00409272301 ")
  1. ;;1318
  1. ;;21,"00409272302 ")
  1. ;;1319
  1. ;;21,"00409765062 ")
  1. ;;1007
  1. ;;21,"00409765103 ")
  1. ;;1271
  1. ;;21,"00409765162 ")
  1. ;;1272
  1. ;;21,"00409776003 ")
  1. ;;1240
  1. ;;21,"00409776103 ")
  1. ;;1273
  1. ;;21,"00409776130 ")
  1. ;;1274
  1. ;;21,"00409779323 ")
  1. ;;1008
  1. ;;21,"00409779362 ")
  1. ;;1009
  1. ;;21,"00409779462 ")
  1. ;;1275
  1. ;;21,"00418434105 ")
  1. ;;1223
  1. ;;21,"00418435105 ")
  1. ;;1177
  1. ;;21,"00418435141 ")
  1. ;;1178
  1. ;;21,"00418446105 ")
  1. ;;1253
  1. ;;21,"00436022070 ")
  1. ;;1090
  1. ;;21,"00436022145 ")
  1. ;;1179
  1. ;;21,"00436022170 ")
  1. ;;1180
  1. ;;21,"00436022175 ")
  1. ;;1181
  1. ;;21,"00436027570 ")
  1. ;;1320
  1. ;;21,"00436041601 ")
  1. ;;521
  1. ;;21,"00436041610 ")
  1. ;;522
  1. ;;21,"00440713016 ")
  1. ;;182
  1. ;;21,"00454091330 ")
  1. ;;1091
  1. ;;21,"00456077826 ")
  1. ;;1092
  1. ;;21,"00463103410 ")
  1. ;;1093
  1. ;;21,"00463602010 ")
  1. ;;523
  1. ;;21,"00463602110 ")
  1. ;;524
  1. ;;21,"00463602310 ")
  1. ;;525
  1. ;;21,"00463602610 ")
  1. ;;183
  1. ;;21,"00463624910 ")
  1. ;;709
  1. ;;21,"00467103325 ")
  1. ;;1094
  1. ;;21,"00467126225 ")
  1. ;;1321
  1. ;;21,"00467203325 ")
  1. ;;1095
  1. ;;21,"00467215225 ")
  1. ;;1182
  1. ;;21,"00467750710 ")
  1. ;;1096
  1. ;;21,"00469003115 ")
  1. ;;1010
  1. ;;21,"00469003325 ")
  1. ;;1097
  1. ;;21,"00469015225 ")
  1. ;;1183
  1. ;;21,"00469081330 ")
  1. ;;1098
  1. ;;21,"00469081350 ")
  1. ;;1099
  1. ;;21,"00469083300 ")
  1. ;;1184
  1. ;;21,"00469083303 ")
  1. ;;1185
  1. ;;21,"00469083370 ")
  1. ;;1186
  1. ;;21,"00469091300 ")
  1. ;;1100
  1. ;;21,"00469091330 ")
  1. ;;1101
  1. ;;21,"00469091350 ")
  1. ;;1102
  1. ;;21,"00469092300 ")
  1. ;;1322
  1. ;;21,"00469092303 ")
  1. ;;1323
  1. ;;21,"00469092330 ")
  1. ;;1324
  1. ;;21,"00469093300 ")
  1. ;;1187
  1. ;;21,"00469093320 ")
  1. ;;1188
  1. ;;21,"00469103315 ")
  1. ;;1103
  1. ;;21,"00469115515 ")
  1. ;;1224
  1. ;;21,"00469126215 ")
  1. ;;1325
  1. ;;21,"00469190300 ")
  1. ;;1011
  1. ;;21,"00469190303 ")
  1. ;;1012
  1. ;;21,"00469203325 ")
  1. ;;1104
  1. ;;21,"00469215215 ")
  1. ;;1189
  1. ;;21,"00469276010 ")
  1. ;;1105
  1. ;;21,"00469276025 ")
  1. ;;1106
  1. ;;21,"00469310115 ")
  1. ;;1013
  1. ;;21,"00469310525 ")
  1. ;;1014
  1. ;;21,"00469504001 ")
  1. ;;1107
  1. ;;21,"00469504501 ")
  1. ;;1015
  1. ;;21,"00469504505 ")
  1. ;;1016
  1. ;;21,"00480015401 ")
  1. ;;1387
  1. ;;21,"00480015405 ")
  1. ;;1388
  1. ;;21,"00517430101 ")
  1. ;;1108
  1. ;;21,"00524005701 ")
  1. ;;729
  1. ;;21,"00527013955 ")
  1. ;;1109
  1. ;;21,"00527014855 ")
  1. ;;1326
  1. ;;21,"00527017455 ")
  1. ;;1190
  1. ;;21,"00527100301 ")
  1. ;;2383
  1. ;;21,"00527100310 ")
  1. ;;2384
  1. ;;21,"00527101801 ")
  1. ;;526
  1. ;;21,"00527101810 ")
  1. ;;527
  1. ;;21,"00527101851 ")
  1. ;;528
  1. ;;21,"00527101910 ")
  1. ;;529
  1. ;;21,"00527101951 ")
  1. ;;530
  1. ;;21,"00527102010 ")
  1. ;;531
  1. ;;21,"00527102051 ")
  1. ;;532
  1. ;;21,"00527106401 ")
  1. ;;1782
  1. ;;21,"00527106410 ")
  1. ;;1783
  1. ;;21,"00527107201 ")
  1. ;;1914
  1. ;;21,"00527107210 ")
  1. ;;1915
  1. ;;21,"00527117410 ")
  1. ;;533
  1. ;;21,"00527117510 ")
  1. ;;710
  1. ;;21,"00527119901 ")
  1. ;;534
  1. ;;21,"00527119910 ")
  1. ;;535
  1. ;;21,"00527121810 ")
  1. ;;536
  1. ;;21,"00527150169 ")
  1. ;;28
  1. ;;21,"00527150170 ")
  1. ;;29
  1. ;;21,"00527150369 ")
  1. ;;627
  1. ;;21,"00527150370 ")
  1. ;;628
  1. ;;21,"00527150469 ")
  1. ;;719
  1. ;;21,"00527150470 ")
  1. ;;720
  1. ;;21,"00536133012 ")
  1. ;;17
  1. ;;21,"00536134001 ")
  1. ;;50
  1. ;;21,"00536135001 ")
  1. ;;681
  1. ;;21,"00536135012 ")
  1. ;;682
  1. ;;21,"00536308610 ")
  1. ;;862
  1. ;;21,"00536308641 ")
  1. ;;863
  1. ;;21,"00536329736 ")
  1. ;;794
  1. ;;21,"00536330010 ")
  1. ;;537
  1. ;;21,"00536330501 ")
  1. ;;538
  1. ;;21,"00536330510 ")
  1. ;;539
  1. ;;21,"00536331101 ")
  1. ;;540
  1. ;;21,"00536331301 ")
  1. ;;184
  1. ;;21,"00536331310 ")
  1. ;;185
  1. ;;21,"00536331810 ")
  1. ;;186
  1. ;;21,"00536332001 ")
  1. ;;730
  1. ;;21,"00536332101 ")
  1. ;;878
  1. ;;21,"00536332610 ")
  1. ;;711
  1. ;;21,"00536486070 ")
  1. ;;1110
  1. ;;21,"00536486075 ")
  1. ;;1111
  1. ;;21,"00536490070 ")
  1. ;;1327
  1. ;;21,"00536492570 ")
  1. ;;1191
  1. ;;21,"00536495065 ")
  1. ;;1225
  1. ;;21,"00555083102 ")
  1. ;;1535
  1. ;;21,"00555083104 ")
  1. ;;1536
  1. ;;21,"00555083105 ")
  1. ;;1537
  1. ;;21,"00555083156 ")
  1. ;;1538
  1. ;;21,"00555083202 ")
  1. ;;1916
  1. ;;21,"00555083204 ")
  1. ;;1917
  1. ;;21,"00555083205 ")
  1. ;;1918
  1. ;;21,"00555083256 ")
  1. ;;1919
  1. ;;21,"00555083302 ")
  1. ;;2385
  1. ;;21,"00555083304 ")
  1. ;;2386
  1. ;;21,"00555083305 ")
  1. ;;2387
  1. ;;21,"00555083356 ")
  1. ;;2388
  1. ;;21,"00555083402 ")
  1. ;;2526
  1. ;;21,"00555083405 ")
  1. ;;2527
  1. ;;21,"00555083456 ")
  1. ;;2528
  1. ;;21,"00555083502 ")
  1. ;;1602
  1. ;;21,"00555083504 ")
  1. ;;1603
  1. ;;21,"00555083556 ")
  1. ;;1604
  1. ;;21,"00555086902 ")
  1. ;;1784
  1. ;;21,"00555086904 ")
  1. ;;1785
  1. ;;21,"00555086905 ")
  1. ;;1786
  1. ;;21,"00555086956 ")
  1. ;;1787
  1. ;;21,"00555087402 ")
  1. ;;2148
  1. ;;21,"00555087405 ")
  1. ;;2149
  1. ;;21,"00555087456 ")
  1. ;;2150
  1. ;;21,"00555092501 ")
  1. ;;2004
  1. ;;21,"00555092502 ")
  1. ;;2005
  1. ;;21,"00555092504 ")
  1. ;;2006
  1. ;;21,"00555092505 ")
  1. ;;2007
  1. ;;21,"00555092556 ")
  1. ;;2008
  1. ;;21,"00555092601 ")
  1. ;;2453
  1. ;;21,"00555092602 ")
  1. ;;2454
  1. ;;21,"00555092604 ")
  1. ;;2455
  1. ;;21,"00555092605 ")
  1. ;;2456
  1. ;;21,"00555092656 ")
  1. ;;2457
  1. ;;21,"00573027110 ")
  1. ;;660
  1. ;;21,"00573027120 ")
  1. ;;661
  1. ;;21,"00573027130 ")
  1. ;;662
  1. ;;21,"00574000201 ")
  1. ;;187
  1. ;;21,"00574000210 ")
  1. ;;188
  1. ;;21,"00574000211 ")
  1. ;;189
  1. ;;21,"00574000501 ")
  1. ;;541
  1. ;;21,"00574000511 ")
  1. ;;542
  1. ;;21,"00574000522 ")
  1. ;;543
  1. ;;21,"00574703212 ")
  1. ;;18
  1. ;;21,"00574703250 ")
  1. ;;19
  1. ;;21,"00574703412 ")
  1. ;;51
  1. ;;21,"00574703450 ")
  1. ;;52
  1. ;;21,"00574703612 ")
  1. ;;683
  1. ;;21,"00574703650 ")
  1. ;;684
  1. ;;21,"00603002436 ")
  1. ;;795
  1. ;;21,"00603002522 ")
  1. ;;864
  1. ;;21,"00603002532 ")
  1. ;;865
  1. ;;21,"00603002622 ")
  1. ;;866
  1. ;;21,"00603002632 ")
  1. ;;867
  1. ;;21,"00603003121 ")
  1. ;;544
  1. ;;21,"00603003125 ")
  1. ;;545
  1. ;;21,"00603008521 ")
  1. ;;546
  1. ;;21,"00603016702 ")
  1. ;;190
  1. ;;21,"00603016721 ")
  1. ;;191
  1. ;;21,"00603016732 ")
  1. ;;192
  1. ;;21,"00603016821 ")
  1. ;;193