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

BGP7KXIC.m

Go to the documentation of this file.
BGP7KXIC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 10, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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,"51079-0313-10 ")
 ;;165
 ;;21,"51285-0223-02 ")
 ;;36
 ;;21,"51285-0223-05 ")
 ;;37
 ;;21,"51285-0224-02 ")
 ;;1090
 ;;21,"51285-0224-05 ")
 ;;74
 ;;21,"51432-0004-00 ")
 ;;38
 ;;21,"51432-0004-06 ")
 ;;1046
 ;;21,"51432-0006-00 ")
 ;;75
 ;;21,"51432-0006-03 ")
 ;;76
 ;;21,"51432-0006-06 ")
 ;;1
 ;;21,"51432-0451-03 ")
 ;;1266
 ;;21,"51432-0451-05 ")
 ;;298
 ;;21,"51432-0452-03 ")
 ;;1183
 ;;21,"51432-0452-05 ")
 ;;1184
 ;;21,"51432-0453-03 ")
 ;;339
 ;;21,"51432-0453-05 ")
 ;;1300
 ;;21,"51432-0454-03 ")
 ;;1154
 ;;21,"51432-0505-19 ")
 ;;49
 ;;21,"51432-0540-20 ")
 ;;145
 ;;21,"51432-0578-20 ")
 ;;1104
 ;;21,"51432-0676-20 ")
 ;;151
 ;;21,"51432-0676-21 ")
 ;;152
 ;;21,"51432-0678-20 ")
 ;;1368
 ;;21,"51432-0678-21 ")
 ;;423
 ;;21,"51432-0680-20 ")
 ;;1133
 ;;21,"51432-0680-21 ")
 ;;1134
 ;;21,"51655-0171-76 ")
 ;;1301
 ;;21,"51655-0256-24 ")
 ;;1232
 ;;21,"51655-0256-25 ")
 ;;1202
 ;;21,"51655-0256-76 ")
 ;;260
 ;;21,"51655-0257-25 ")
 ;;340
 ;;21,"51655-0257-52 ")
 ;;341
 ;;21,"51655-0257-76 ")
 ;;1302
 ;;21,"51655-0291-24 ")
 ;;1278
 ;;21,"51655-0334-24 ")
 ;;261
 ;;21,"51789-0673-02 ")
 ;;16
 ;;21,"51789-0673-03 ")
 ;;17
 ;;21,"51789-0673-99 ")
 ;;18
 ;;21,"51799-0190-01 ")
 ;;180
 ;;21,"51799-0190-10 ")
 ;;1155
 ;;21,"51947-3600-01 ")
 ;;32
 ;;21,"51947-3601-02 ")
 ;;116
 ;;21,"51947-3602-03 ")
 ;;117
 ;;21,"51947-3603-04 ")
 ;;118
 ;;21,"51991-0375-01 ")
 ;;776
 ;;21,"52246-0801-20 ")
 ;;39
 ;;21,"52246-0801-90 ")
 ;;40
 ;;21,"52246-0848-20 ")
 ;;1233
 ;;21,"52246-0848-30 ")
 ;;262
 ;;21,"52246-0848-60 ")
 ;;1234
 ;;21,"52246-0848-90 ")
 ;;1235
 ;;21,"52246-0849-20 ")
 ;;342
 ;;21,"52246-0849-30 ")
 ;;1303
 ;;21,"52246-0849-60 ")
 ;;1304
 ;;21,"52246-0849-90 ")
 ;;1305
 ;;21,"52246-0852-60 ")
 ;;1185
 ;;21,"52246-0885-30 ")
 ;;226
 ;;21,"52446-0012-21 ")
 ;;1047
 ;;21,"52446-0012-32 ")
 ;;41
 ;;21,"52446-0013-32 ")
 ;;77
 ;;21,"52446-0467-21 ")
 ;;1186
 ;;21,"52446-0468-21 ")
 ;;263
 ;;21,"52446-0468-28 ")
 ;;264
 ;;21,"52446-0469-21 ")
 ;;343
 ;;21,"52446-0469-28 ")
 ;;1306
 ;;21,"52446-0469-32 ")
 ;;1307
 ;;21,"52446-0776-58 ")
 ;;133
 ;;21,"52446-0892-58 ")
 ;;181
 ;;21,"52446-0893-58 ")
 ;;424
 ;;21,"52446-0894-58 ")
 ;;1135
 ;;21,"52493-0210-01 ")
 ;;1048
 ;;21,"52493-0210-30 ")
 ;;1049
 ;;21,"52493-0211-30 ")
 ;;78
 ;;21,"52493-0259-01 ")
 ;;1209
 ;;21,"52493-0274-01 ")
 ;;320
 ;;21,"52493-0279-01 ")
 ;;1308
 ;;21,"52493-0279-30 ")
 ;;1309
 ;;21,"52493-0279-60 ")
 ;;1310
 ;;21,"52493-0280-30 ")
 ;;395
 ;;21,"52493-0281-30 ")
 ;;187
 ;;21,"52493-0282-01 ")
 ;;1236
 ;;21,"52493-0282-20 ")
 ;;1237
 ;;21,"52493-0282-30 ")
 ;;1238
 ;;21,"52493-0282-60 ")
 ;;265
 ;;21,"52493-0283-30 ")
 ;;227
 ;;21,"52493-0284-04 ")
 ;;425
 ;;21,"52493-0284-08 ")
 ;;426
 ;;21,"52493-0289-30 ")
 ;;205
 ;;21,"52493-0888-17 ")
 ;;85
 ;;21,"52959-0131-00 ")
 ;;852
 ;;21,"52959-0279-30 ")
 ;;811
 ;;21,"52959-0286-03 ")
 ;;805
 ;;21,"52959-0596-01 ")
 ;;853
 ;;21,"52959-0598-01 ")
 ;;861
 ;;21,"52959-1198-00 ")
 ;;25
 ;;21,"52959-1375-03 ")
 ;;442
 ;;21,"52959-1447-01 ")
 ;;83
 ;;21,"52959-1466-01 ")
 ;;86
 ;;21,"52999-0358-01 ")
 ;;344
 ;;21,"53002-0829-00 ")
 ;;19
 ;;21,"53002-0829-12 ")
 ;;101
 ;;21,"53265-0379-10 ")
 ;;1311
 ;;21,"53265-0379-50 ")
 ;;345
 ;;21,"53265-0380-10 ")
 ;;859
 ;;21,"53265-0380-50 ")
 ;;860
 ;;21,"53265-0381-10 ")
 ;;1349
 ;;21,"53265-0382-10 ")
 ;;828
 ;;21,"53506-0970-30 ")
 ;;1312
 ;;21,"53506-0970-60 ")
 ;;346
 ;;21,"53506-0971-30 ")
 ;;266
 ;;21,"53506-0971-60 ")
 ;;267
 ;;21,"53506-0973-30 ")
 ;;1164
 ;;21,"53506-0974-30 ")
 ;;228
 ;;21,"53506-0978-30 ")
 ;;206
 ;;21,"53506-0988-30 ")
 ;;1273
 ;;21,"53506-0988-60 ")
 ;;310
 ;;21,"53506-0990-04 ")
 ;;50
 ;;21,"53506-0993-30 ")
 ;;1239
 ;;21,"53633-0204-01 ")
 ;;1050
 ;;21,"53633-0204-10 ")
 ;;42
 ;;21,"53633-0204-11 ")
 ;;1051
 ;;21,"53633-0205-01 ")
 ;;79
 ;;21,"53633-0205-10 ")
 ;;2
 ;;21,"53633-0205-11 ")
 ;;3
 ;;21,"53978-5049-09 ")
 ;;268
 ;;21,"53978-5050-09 ")
 ;;347
 ;;21,"54092-0067-01 ")
 ;;831
 ;;21,"54092-0067-10 ")
 ;;832
 ;;21,"54092-0067-52 ")
 ;;833
 ;;21,"54092-0069-01 ")
 ;;815
 ;;21,"54124-0004-40 ")
 ;;396
 ;;21,"54124-0004-60 ")
 ;;397
 ;;21,"54124-0300-60 ")
 ;;311
 ;;21,"54124-0354-50 ")
 ;;186
 ;;21,"54124-0486-30 ")
 ;;269
 ;;21,"54124-0519-30 ")
 ;;348
 ;;21,"54124-0519-60 ")
 ;;349
 ;;21,"54124-0582-02 ")
 ;;350
 ;;21,"54124-0582-30 ")
 ;;1313
 ;;21,"54124-0582-60 ")
 ;;1314
 ;;21,"54124-0583-20 ")
 ;;270
 ;;21,"54124-0583-50 ")
 ;;1240
 ;;21,"54124-0583-60 ")
 ;;271
 ;;21,"54124-0676-28 ")
 ;;24
 ;;21,"54124-0706-60 ")
 ;;1350
 ;;21,"54124-0820-60 ")
 ;;1203
 ;;21,"54124-0915-60 ")
 ;;1315
 ;;21,"54124-0923-12 ")
 ;;1162
 ;;21,"54124-0949-60 ")
 ;;1204
 ;;21,"54124-0977-30 ")
 ;;1165
 ;;21,"54124-0977-60 ")
 ;;188
 ;;21,"54124-0978-04 ")
 ;;1369
 ;;21,"54274-0076-10 ")
 ;;207
 ;;21,"54274-0167-10 ")
 ;;1241
 ;;21,"54274-0167-30 ")
 ;;272
 ;;21,"54274-0167-50 ")
 ;;273
 ;;21,"54274-0168-10 ")
 ;;351
 ;;21,"54274-0168-30 ")
 ;;1316
 ;;21,"54274-0168-50 ")
 ;;352
 ;;21,"54274-0192-10 ")
 ;;208
 ;;21,"54274-0592-16 ")
 ;;1370
 ;;21,"54274-0592-38 ")
 ;;1371
 ;;21,"54274-0623-16 ")
 ;;137
 ;;21,"54348-0155-10 ")
 ;;229
 ;;21,"54348-0156-14 ")
 ;;312
 ;;21,"54569-0044-00 ")
 ;;134
 ;;21,"54569-0048-00 ")
 ;;918
 ;;21,"54569-0049-00 ")
 ;;919
 ;;21,"54569-0053-00 ")
 ;;883
 ;;21,"54569-0054-00 ")
 ;;1317
 ;;21,"54569-0055-00 ")
 ;;353
 ;;21,"54569-0055-01 ")
 ;;354
 ;;21,"54569-0056-00 ")
 ;;189
 ;;21,"54569-0056-01 ")
 ;;190
 ;;21,"54569-0056-02 ")
 ;;1166
 ;;21,"54569-0056-03 ")
 ;;191
 ;;21,"54569-0056-04 ")
 ;;1167
 ;;21,"54569-0056-05 ")
 ;;1168
 ;;21,"54569-0057-00 ")
 ;;230
 ;;21,"54569-0057-01 ")
 ;;1205
 ;;21,"54569-0057-02 ")
 ;;231
 ;;21,"54569-0057-03 ")
 ;;232
 ;;21,"54569-0057-04 ")
 ;;233
 ;;21,"54569-0059-00 ")
 ;;1274
 ;;21,"54569-0059-01 ")
 ;;313
 ;;21,"54569-0059-02 ")
 ;;314
 ;;21,"54569-0059-03 ")
 ;;1275
 ;;21,"54569-0061-00 ")
 ;;274
 ;;21,"54569-0061-01 ")
 ;;1242
 ;;21,"54569-0061-02 ")
 ;;275
 ;;21,"54569-0061-03 ")
 ;;276
 ;;21,"54569-0061-04 ")
 ;;1243
 ;;21,"54569-0061-05 ")
 ;;1244
 ;;21,"54569-0062-00 ")
 ;;1318
 ;;21,"54569-0062-01 ")
 ;;355
 ;;21,"54569-0062-02 ")
 ;;806
 ;;21,"54569-0062-03 ")
 ;;356
 ;;21,"54569-0062-04 ")
 ;;1319
 ;;21,"54569-0065-00 ")
 ;;357
 ;;21,"54569-0065-01 ")
 ;;834
 ;;21,"54569-0065-02 ")
 ;;835
 ;;21,"54569-0065-03 ")
 ;;358
 ;;21,"54569-0065-04 ")
 ;;1320
 ;;21,"54569-0065-05 ")
 ;;836
 ;;21,"54569-0067-00 ")
 ;;884
 ;;21,"54569-0307-00 ")
 ;;398
 ;;21,"54569-0307-01 ")
 ;;1347
 ;;21,"54569-0307-02 ")
 ;;1348
 ;;21,"54569-0307-03 ")
 ;;399
 ;;21,"54569-0315-00 ")
 ;;1272
 ;;21,"54569-0316-00 ")
 ;;359
 ;;21,"54569-0318-00 ")
 ;;1187
 ;;21,"54569-0318-01 ")
 ;;881
 ;;21,"54569-0318-02 ")
 ;;1188
 ;;21,"54569-1004-00 ")
 ;;829
 ;;21,"54569-1012-00 ")
 ;;830
 ;;21,"54569-1013-00 ")
 ;;882
 ;;21,"54569-1016-00 ")
 ;;5
 ;;21,"54569-1290-00 ")
 ;;1156
 ;;21,"54569-1608-00 ")
 ;;427
 ;;21,"54569-1612-00 ")
 ;;402
 ;;21,"54569-1612-01 ")
 ;;1351
 ;;21,"54569-1612-02 ")
 ;;1352
 ;;21,"54569-1664-00 ")
 ;;197
 ;;21,"54569-1664-01 ")
 ;;198
 ;;21,"54569-1665-00 ")
 ;;242
 ;;21,"54569-1665-01 ")
 ;;243
 ;;21,"54569-1666-00 ")
 ;;802
 ;;21,"54569-1666-01 ")
 ;;803
 ;;21,"54569-1667-00 ")
 ;;304
 ;;21,"54569-1667-01 ")
 ;;305
 ;;21,"54569-1667-02 ")
 ;;306
 ;;21,"54569-1745-01 ")
 ;;110
 ;;21,"54569-1804-00 ")
 ;;1163
 ;;21,"54569-1888-00 ")
 ;;1372
 ;;21,"54569-1965-01 ")
 ;;153
 ;;21,"54569-2016-00 ")
 ;;360
 ;;21,"54569-2032-00 ")
 ;;920
 ;;21,"54569-2032-01 ")
 ;;209
 ;;21,"54569-2032-02 ")
 ;;210
 ;;21,"54569-2032-03 ")
 ;;1189
 ;;21,"54569-2466-00 ")
 ;;80
 ;;21,"54569-2466-01 ")
 ;;81
 ;;21,"54569-2466-02 ")
 ;;4
 ;;21,"54569-2466-03 ")
 ;;82
 ;;21,"54569-2481-00 ")
 ;;1190
 ;;21,"54569-2482-00 ")
 ;;821
 ;;21,"54569-2482-01 ")
 ;;822
 ;;21,"54569-2482-02 ")
 ;;1245
 ;;21,"54569-2482-03 ")
 ;;1246
 ;;21,"54569-2482-04 ")
 ;;277
 ;;21,"54569-2482-05 ")
 ;;823
 ;;21,"54569-2482-06 ")
 ;;1247
 ;;21,"54569-2482-07 ")
 ;;1248
 ;;21,"54569-2482-08 ")
 ;;278
 ;;21,"54569-2483-00 ")
 ;;824
 ;;21,"54569-2483-01 ")
 ;;825
 ;;21,"54569-2483-02 ")
 ;;826
 ;;21,"54569-2483-03 ")
 ;;827
 ;;21,"54569-2483-04 ")
 ;;361
 ;;21,"54569-2555-00 ")
 ;;113
 ;;21,"54569-2673-00 ")
 ;;234
 ;;21,"54569-2673-01 ")
 ;;1206
 ;;21,"54569-2715-00 ")
 ;;1052
 ;;21,"54569-2715-01 ")
 ;;1053
 ;;21,"54569-2715-02 ")
 ;;1054
 ;;21,"54569-2860-00 ")
 ;;51
 ;;21,"54569-2905-00 ")
 ;;1321
 ;;21,"54569-2964-00 ")
 ;;299
 ;;21,"54569-3054-00 ")
 ;;1379
 ;;21,"54569-3113-00 ")
 ;;428
 ;;21,"54569-3113-01 ")
 ;;429
 ;;21,"54569-3113-02 ")
 ;;1373
 ;;21,"54569-3976-00 ")
 ;;872
 ;;21,"54569-4274-00 ")
 ;;1160
 ;;21,"54569-4279-00 ")
 ;;873
 ;;21,"54569-4540-00 ")
 ;;913
 ;;21,"54569-4549-00 ")
 ;;888
 ;;21,"54569-4602-00 ")
 ;;877
 ;;21,"54569-4603-00 ")
 ;;878
 ;;21,"54569-4604-00 ")
 ;;444
 ;;21,"54569-4604-01 ")
 ;;869
 ;;21,"54569-4605-00 ")
 ;;862
 ;;21,"54569-4736-00 ")
 ;;917
 ;;21,"54569-4741-00 ")
 ;;914
 ;;21,"54569-4772-00 ")
 ;;889
 ;;21,"54569-4822-00 ")
 ;;915
 ;;21,"54569-4863-00 ")
 ;;866
 ;;21,"54569-4896-00 ")
 ;;911
 ;;21,"54569-5162-00 ")
 ;;8
 ;;21,"54569-5163-00 ")
 ;;880
 ;;21,"54569-5167-00 ")
 ;;184
 ;;21,"54569-5241-00 ")
 ;;891
 ;;21,"54569-5242-00 ")
 ;;885
 ;;21,"54569-5243-00 ")
 ;;804
 ;;21,"54569-5663-00 ")
 ;;30
 ;;21,"54569-5671-00 ")
 ;;120
 ;;21,"54569-5702-00 ")
 ;;1398
 ;;21,"54569-8580-00 ")
 ;;807
 ;;21,"54569-8586-00 ")
 ;;814
 ;;21,"54807-0230-16 ")
 ;;430
 ;;21,"54807-0811-01 ")
 ;;1191
 ;;21,"54807-0812-01 ")
 ;;1249
 ;;21,"54807-0813-01 ")
 ;;1322
 ;;21,"54838-0513-80 ")
 ;;905
 ;;21,"54839-0513-80 ")
 ;;138
 ;;21,"54868-0028-00 ")
 ;;838
 ;;21,"54868-0028-01 ")
 ;;839
 ;;21,"54868-0028-02 ")
 ;;840
 ;;21,"54868-0028-03 ")
 ;;841
 ;;21,"54868-0028-05 ")
 ;;842
 ;;21,"54868-0029-00 ")
 ;;843
 ;;21,"54868-0029-02 ")
 ;;844
 ;;21,"54868-0029-03 ")
 ;;845
 ;;21,"54868-0029-05 ")
 ;;846
 ;;21,"54868-0029-06 ")
 ;;847
 ;;21,"54868-1268-01 ")
 ;;907
 ;;21,"54868-1269-01 ")
 ;;926
 ;;21,"54868-1438-00 ")
 ;;867
 ;;21,"54868-1438-01 ")
 ;;868
 ;;21,"54868-1438-02 ")
 ;;400
 ;;21,"54868-1841-01 ")
 ;;816
 ;;21,"54868-1883-01 ")
 ;;904
 ;;21,"54868-1894-01 ")
 ;;20
 ;;21,"54868-1894-02 ")
 ;;879
 ;;21,"54868-2822-00 ")
 ;;102
 ;;21,"54868-3283-00 ")
 ;;818
 ;;21,"54868-3283-01 ")
 ;;819
 ;;21,"54868-3283-02 ")
 ;;820
 ;;21,"54868-3555-00 ")
 ;;91
 ;;21,"54868-4172-00 ")
 ;;817
 ;;21,"54868-4172-01 ")
 ;;1391
 ;;21,"54868-4182-00 ")
 ;;855
 ;;21,"54868-4264-00 ")
 ;;863
 ;;21,"54868-4295-00 ")
 ;;906
 ;;21,"54868-4392-00 ")
 ;;856
 ;;21,"54868-4516-00 ")
 ;;864
 ;;21,"54868-4517-00 ")
 ;;908
 ;;21,"54868-4518-00 ")
 ;;857
 ;;21,"54868-4630-00 ")
 ;;909
 ;;21,"54868-4847-00 ")
 ;;185
 ;;21,"54868-5294-00 ")
 ;;26
 ;;21,"54977-0295-99 ")
 ;;192
 ;;21,"54977-0319-60 ")
 ;;211
 ;;21,"54977-0319-99 ")
 ;;212
 ;;21,"54977-0320-60 ")
 ;;1250
 ;;21,"54977-0320-99 ")
 ;;279
 ;;21,"54977-0321-60 ")
 ;;362
 ;;21,"54977-0321-99 ")
 ;;1323
 ;;21,"54977-0458-16 ")
 ;;166
 ;;21,"54977-0465-08 ")
 ;;1062
 ;;21,"54977-0684-01 ")
 ;;103
 ;;21,"54977-0684-02 ")
 ;;104
 ;;21,"54977-0704-01 ")
 ;;7
 ;;21,"55045-1312-03 ")
 ;;363
 ;;21,"55045-1312-07 ")
 ;;1324
 ;;21,"55045-1452-02 ")
 ;;1251
 ;;21,"55045-1452-03 ")
 ;;280
 ;;21,"55045-1452-08 ")
 ;;1252
 ;;21,"55045-1452-09 ")
 ;;281
 ;;21,"55045-1639-01 ")
 ;;1169
 ;;21,"55045-1931-05 ")
 ;;105
 ;;21,"55045-2119-07 ")
 ;;443
 ;;21,"55045-2819-00 ")
 ;;31
 ;;21,"55045-2919-01 ")
 ;;858
 ;;21,"55045-3054-01 ")
 ;;865
 ;;21,"55053-0522-01 ")
 ;;854
 ;;21,"55081-0029-00 ")
 ;;43
 ;;21,"55081-0530-00 ")
 ;;213
 ;;21,"55081-0530-01 ")
 ;;214
 ;;21,"55081-0531-00 ")
 ;;282
 ;;21,"55081-0531-01 ")
 ;;283
 ;;21,"55081-0531-02 ")
 ;;1253
 ;;21,"55081-0531-03 ")
 ;;284
 ;;21,"55081-0531-04 ")
 ;;1254
 ;;21,"55081-0532-00 ")
 ;;364
 ;;21,"55081-0532-01 ")
 ;;1325
 ;;21,"55081-0532-02 ")
 ;;1326
 ;;21,"55081-0532-03 ")
 ;;1327
 ;;21,"55081-1176-00 ")
 ;;1374
 ;;21,"55154-6301-02 ")
 ;;21
 ;;21,"55154-8502-07 ")
 ;;9
 ;;21,"55175-0550-02 ")
 ;;215
 ;;21,"55175-0550-04 ")
 ;;1192
 ;;21,"55175-1832-03 ")
 ;;235
 ;;21,"55175-1835-03 ")
 ;;1276
 ;;21,"55175-1905-00 ")
 ;;431
 ;;21,"55175-1905-01 ")
 ;;1375
 ;;21,"55175-1905-02 ")
 ;;1376
 ;;21,"55175-2747-00 ")
 ;;403
 ;;21,"55175-2753-01 ")
 ;;1387
 ;;21,"55175-3006-00 ")
 ;;365
 ;;21,"55175-3006-09 ")
 ;;366
 ;;21,"55175-4181-02 ")
 ;;1328