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

BGP48B3.m

Go to the documentation of this file.
BGP48B3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"54868-3377-02 ")
 ;;194
 ;;21,"54868-3377-03 ")
 ;;195
 ;;21,"54868-3426-00 ")
 ;;770
 ;;21,"54868-3426-01 ")
 ;;771
 ;;21,"54868-3711-00 ")
 ;;1220
 ;;21,"54868-3711-01 ")
 ;;1221
 ;;21,"54868-4091-00 ")
 ;;1162
 ;;21,"54868-4091-01 ")
 ;;1163
 ;;21,"54868-4091-02 ")
 ;;1164
 ;;21,"54868-4091-03 ")
 ;;1165
 ;;21,"54868-4420-00 ")
 ;;625
 ;;21,"54868-4529-00 ")
 ;;1420
 ;;21,"54868-4529-01 ")
 ;;1421
 ;;21,"54868-4529-02 ")
 ;;1422
 ;;21,"54868-4529-03 ")
 ;;1423
 ;;21,"54868-4609-00 ")
 ;;1346
 ;;21,"54868-4609-01 ")
 ;;1345
 ;;21,"54868-4842-00 ")
 ;;1213
 ;;21,"54868-4842-01 ")
 ;;1214
 ;;21,"54868-4842-02 ")
 ;;1215
 ;;21,"54868-4906-00 ")
 ;;1305
 ;;21,"54868-4988-00 ")
 ;;720
 ;;21,"54868-4988-01 ")
 ;;721
 ;;21,"54868-4988-02 ")
 ;;722
 ;;21,"54868-4988-03 ")
 ;;723
 ;;21,"54868-4988-04 ")
 ;;724
 ;;21,"54868-5148-00 ")
 ;;1394
 ;;21,"54868-5148-01 ")
 ;;1395
 ;;21,"54868-5148-02 ")
 ;;1396
 ;;21,"54868-5148-03 ")
 ;;1372
 ;;21,"54868-5148-04 ")
 ;;1373
 ;;21,"54868-5185-00 ")
 ;;1342
 ;;21,"54868-5185-01 ")
 ;;1343
 ;;21,"54868-5185-02 ")
 ;;1344
 ;;21,"54868-5185-03 ")
 ;;1328
 ;;21,"54868-5188-00 ")
 ;;1276
 ;;21,"54868-5188-01 ")
 ;;1277
 ;;21,"54868-5188-02 ")
 ;;1278
 ;;21,"54868-5210-00 ")
 ;;629
 ;;21,"54868-5210-01 ")
 ;;630
 ;;21,"54868-5210-02 ")
 ;;631
 ;;21,"54868-5210-03 ")
 ;;632
 ;;21,"54868-5243-00 ")
 ;;1495
 ;;21,"54868-5243-01 ")
 ;;1496
 ;;21,"54868-5243-02 ")
 ;;1497
 ;;21,"54868-5243-03 ")
 ;;1498
 ;;21,"54868-5243-04 ")
 ;;1499
 ;;21,"54868-5288-00 ")
 ;;1300
 ;;21,"54868-5288-01 ")
 ;;1301
 ;;21,"54868-5288-02 ")
 ;;1302
 ;;21,"54868-5364-00 ")
 ;;608
 ;;21,"54868-5364-01 ")
 ;;609
 ;;21,"54868-5364-02 ")
 ;;610
 ;;21,"54868-5399-00 ")
 ;;1279
 ;;21,"54868-5399-01 ")
 ;;1280
 ;;21,"54868-5457-00 ")
 ;;103
 ;;21,"54868-5457-01 ")
 ;;104
 ;;21,"54868-5457-02 ")
 ;;105
 ;;21,"54868-5467-00 ")
 ;;1292
 ;;21,"54868-5467-01 ")
 ;;1293
 ;;21,"54868-5467-02 ")
 ;;1294
 ;;21,"54868-5712-00 ")
 ;;1136
 ;;21,"54868-5739-00 ")
 ;;1522
 ;;21,"55045-1211-01 ")
 ;;30
 ;;21,"55045-2058-01 ")
 ;;418
 ;;21,"55045-2138-00 ")
 ;;1030
 ;;21,"55045-2138-01 ")
 ;;1031
 ;;21,"55045-2138-08 ")
 ;;1032
 ;;21,"55045-2265-01 ")
 ;;243
 ;;21,"55045-2265-08 ")
 ;;244
 ;;21,"55045-2266-01 ")
 ;;427
 ;;21,"55045-2322-01 ")
 ;;1043
 ;;21,"55045-3300-01 ")
 ;;718
 ;;21,"55045-3434-08 ")
 ;;615
 ;;21,"55048-0241-30 ")
 ;;118
 ;;21,"55048-0242-30 ")
 ;;71
 ;;21,"55048-0243-30 ")
 ;;211
 ;;21,"55048-0243-60 ")
 ;;212
 ;;21,"55048-0244-30 ")
 ;;308
 ;;21,"55048-0245-30 ")
 ;;683
 ;;21,"55048-0245-60 ")
 ;;684
 ;;21,"55048-0246-30 ")
 ;;1275
 ;;21,"55048-0247-30 ")
 ;;1296
 ;;21,"55048-0248-30 ")
 ;;912
 ;;21,"55048-0248-90 ")
 ;;913
 ;;21,"55048-0269-30 ")
 ;;878
 ;;21,"55048-0270-30 ")
 ;;490
 ;;21,"55048-0273-60 ")
 ;;1462
 ;;21,"55048-0273-71 ")
 ;;1463
 ;;21,"55048-0288-60 ")
 ;;123
 ;;21,"55048-0289-60 ")
 ;;204
 ;;21,"55111-0320-01 ")
 ;;77
 ;;21,"55111-0320-05 ")
 ;;78
 ;;21,"55111-0321-01 ")
 ;;148
 ;;21,"55111-0321-05 ")
 ;;149
 ;;21,"55111-0322-01 ")
 ;;223
 ;;21,"55111-0322-05 ")
 ;;224
 ;;21,"55111-0695-01 ")
 ;;1306
 ;;21,"55111-0696-01 ")
 ;;1375
 ;;21,"55111-0696-10 ")
 ;;1376
 ;;21,"55111-0697-01 ")
 ;;1464
 ;;21,"55111-0697-10 ")
 ;;1465
 ;;21,"55289-0066-90 ")
 ;;33
 ;;21,"55289-0066-97 ")
 ;;34
 ;;21,"55289-0125-30 ")
 ;;605
 ;;21,"55289-0173-30 ")
 ;;1125
 ;;21,"55289-0187-97 ")
 ;;1243
 ;;21,"55289-0265-90 ")
 ;;1233
 ;;21,"55289-0281-30 ")
 ;;1426
 ;;21,"55289-0281-60 ")
 ;;1427
 ;;21,"55289-0281-86 ")
 ;;1428
 ;;21,"55289-0281-90 ")
 ;;1511
 ;;21,"55289-0289-97 ")
 ;;1226
 ;;21,"55289-0301-93 ")
 ;;719
 ;;21,"55289-0424-30 ")
 ;;419
 ;;21,"55289-0424-97 ")
 ;;420
 ;;21,"55289-0606-30 ")
 ;;866
 ;;21,"55289-0606-90 ")
 ;;867
 ;;21,"55289-0614-01 ")
 ;;890
 ;;21,"55289-0614-60 ")
 ;;891
 ;;21,"55289-0779-07 ")
 ;;644
 ;;21,"55289-0806-14 ")
 ;;316
 ;;21,"55289-0806-30 ")
 ;;317
 ;;21,"55289-0806-60 ")
 ;;318
 ;;21,"55289-0806-86 ")
 ;;319
 ;;21,"55289-0806-90 ")
 ;;320
 ;;21,"55289-0892-01 ")
 ;;966
 ;;21,"55289-0892-14 ")
 ;;967
 ;;21,"55289-0892-15 ")
 ;;968
 ;;21,"55289-0892-30 ")
 ;;969
 ;;21,"55289-0892-60 ")
 ;;970
 ;;21,"55289-0892-86 ")
 ;;971
 ;;21,"55289-0892-90 ")
 ;;972
 ;;21,"55289-0892-93 ")
 ;;973
 ;;21,"55289-0892-97 ")
 ;;974
 ;;21,"55289-0892-98 ")
 ;;975
 ;;21,"55289-0976-01 ")
 ;;452
 ;;21,"55289-0976-14 ")
 ;;453
 ;;21,"55289-0976-30 ")
 ;;454
 ;;21,"55289-0976-60 ")
 ;;455
 ;;21,"55289-0976-93 ")
 ;;456
 ;;21,"55370-0146-07 ")
 ;;1139
 ;;21,"55370-0146-08 ")
 ;;1140
 ;;21,"55370-0146-09 ")
 ;;1141
 ;;21,"55370-0147-07 ")
 ;;1173
 ;;21,"55370-0147-08 ")
 ;;1174
 ;;21,"55370-0147-09 ")
 ;;1175
 ;;21,"55370-0506-07 ")
 ;;1196
 ;;21,"55370-0506-08 ")
 ;;1197
 ;;21,"55370-0506-09 ")
 ;;1198
 ;;21,"55700-0022-30 ")
 ;;638
 ;;21,"55887-0179-30 ")
 ;;685
 ;;21,"55887-0212-30 ")
 ;;661
 ;;21,"55887-0212-60 ")
 ;;662
 ;;21,"55887-0222-30 ")
 ;;129
 ;;21,"55887-0222-60 ")
 ;;130
 ;;21,"55887-0222-90 ")
 ;;131
 ;;21,"55887-0339-30 ")
 ;;1155
 ;;21,"55887-0339-60 ")
 ;;1156
 ;;21,"55887-0339-90 ")
 ;;1157
 ;;21,"55887-0368-30 ")
 ;;1492
 ;;21,"55887-0368-60 ")
 ;;1493
 ;;21,"55887-0368-90 ")
 ;;1494
 ;;21,"55887-0535-30 ")
 ;;825
 ;;21,"55887-0535-60 ")
 ;;826
 ;;21,"55887-0535-90 ")
 ;;827
 ;;21,"55887-0536-30 ")
 ;;1015
 ;;21,"55887-0536-60 ")
 ;;1016
 ;;21,"55887-0536-90 ")
 ;;1017
 ;;21,"55887-0693-30 ")
 ;;449
 ;;21,"55887-0693-60 ")
 ;;450
 ;;21,"55887-0693-90 ")
 ;;451
 ;;21,"55887-0727-30 ")
 ;;299
 ;;21,"55887-0727-60 ")
 ;;300
 ;;21,"55887-0727-90 ")
 ;;301
 ;;21,"55887-0965-30 ")
 ;;784
 ;;21,"55887-0968-30 ")
 ;;748
 ;;21,"55887-0969-30 ")
 ;;677
 ;;21,"57664-0398-13 ")
 ;;253
 ;;21,"57664-0398-18 ")
 ;;254
 ;;21,"57664-0398-88 ")
 ;;255
 ;;21,"57664-0399-13 ")
 ;;476
 ;;21,"57664-0399-18 ")
 ;;477
 ;;21,"57664-0399-88 ")
 ;;478
 ;;21,"57664-0724-88 ")
 ;;1299
 ;;21,"57664-0725-88 ")
 ;;1272
 ;;21,"57664-0727-88 ")
 ;;1256
 ;;21,"57866-0236-01 ")
 ;;247
 ;;21,"57866-0237-01 ")
 ;;824
 ;;21,"57866-6302-01 ")
 ;;668
 ;;21,"57866-6409-01 ")
 ;;960
 ;;21,"57866-6409-02 ")
 ;;961
 ;;21,"57866-6409-03 ")
 ;;962
 ;;21,"57866-6409-04 ")
 ;;963
 ;;21,"57866-6409-05 ")
 ;;964
 ;;21,"57866-6409-06 ")
 ;;965
 ;;21,"57866-6462-01 ")
 ;;545
 ;;21,"57866-6462-02 ")
 ;;546
 ;;21,"57866-6463-01 ")
 ;;385
 ;;21,"57866-6463-02 ")
 ;;386
 ;;21,"57866-7073-01 ")
 ;;107
 ;;21,"57866-7073-02 ")
 ;;108
 ;;21,"57866-7074-01 ")
 ;;182
 ;;21,"57866-7074-02 ")
 ;;183
 ;;21,"57866-7991-01 ")
 ;;1413
 ;;21,"58016-0005-00 ")
 ;;152
 ;;21,"58016-0005-30 ")
 ;;153
 ;;21,"58016-0005-60 ")
 ;;154
 ;;21,"58016-0005-90 ")
 ;;155
 ;;21,"58016-0058-00 ")
 ;;1324
 ;;21,"58016-0058-30 ")
 ;;1325
 ;;21,"58016-0058-60 ")
 ;;1326
 ;;21,"58016-0058-90 ")
 ;;1327
 ;;21,"58016-0334-00 ")
 ;;656
 ;;21,"58016-0334-02 ")
 ;;657
 ;;21,"58016-0334-30 ")
 ;;658
 ;;21,"58016-0334-60 ")
 ;;659
 ;;21,"58016-0334-90 ")
 ;;660
 ;;21,"58016-0370-30 ")
 ;;1227
 ;;21,"58016-0376-00 ")
 ;;479
 ;;21,"58016-0376-02 ")
 ;;480
 ;;21,"58016-0376-30 ")
 ;;481
 ;;21,"58016-0376-60 ")
 ;;482
 ;;21,"58016-0376-90 ")
 ;;483
 ;;21,"58016-0376-99 ")
 ;;484
 ;;21,"58016-0378-00 ")
 ;;1044
 ;;21,"58016-0378-02 ")
 ;;1045
 ;;21,"58016-0378-30 ")
 ;;1046
 ;;21,"58016-0378-60 ")
 ;;1009
 ;;21,"58016-0378-90 ")
 ;;1010
 ;;21,"58016-0378-99 ")
 ;;1011
 ;;21,"58016-0411-00 ")
 ;;1504
 ;;21,"58016-0411-02 ")
 ;;1470
 ;;21,"58016-0411-30 ")
 ;;1471
 ;;21,"58016-0411-60 ")
 ;;1472
 ;;21,"58016-0411-90 ")
 ;;1473
 ;;21,"58016-0467-00 ")
 ;;200
 ;;21,"58016-0467-30 ")
 ;;201
 ;;21,"58016-0467-60 ")
 ;;202
 ;;21,"58016-0467-90 ")
 ;;203
 ;;21,"58016-0691-00 ")
 ;;701
 ;;21,"58016-0691-30 ")
 ;;702
 ;;21,"58016-0691-60 ")
 ;;703
 ;;21,"58016-0691-90 ")
 ;;704
 ;;21,"58016-0844-00 ")
 ;;184
 ;;21,"58016-0844-30 ")
 ;;185
 ;;21,"58016-0844-60 ")
 ;;186
 ;;21,"58016-0844-90 ")
 ;;187
 ;;21,"58016-0876-00 ")
 ;;261
 ;;21,"58016-0876-10 ")
 ;;262
 ;;21,"58016-0876-12 ")
 ;;263
 ;;21,"58016-0876-14 ")
 ;;264
 ;;21,"58016-0876-15 ")
 ;;265
 ;;21,"58016-0876-20 ")
 ;;266
 ;;21,"58016-0876-21 ")
 ;;267
 ;;21,"58016-0876-24 ")
 ;;268
 ;;21,"58016-0876-28 ")
 ;;269
 ;;21,"58016-0876-30 ")
 ;;270
 ;;21,"58016-0876-40 ")
 ;;271
 ;;21,"58016-0876-50 ")
 ;;272
 ;;21,"58016-0876-60 ")
 ;;273
 ;;21,"58118-0321-03 ")
 ;;138
 ;;21,"58118-0321-06 ")
 ;;139
 ;;21,"58118-0322-03 ")
 ;;205
 ;;21,"58118-0322-06 ")
 ;;206
 ;;21,"58118-0461-06 ")
 ;;491
 ;;21,"58118-0461-08 ")
 ;;492
 ;;21,"58118-0461-09 ")
 ;;493
 ;;21,"58118-1452-03 ")
 ;;387
 ;;21,"58118-1452-06 ")
 ;;388
 ;;21,"58118-1452-09 ")
 ;;389
 ;;21,"58118-2331-03 ")
 ;;1361
 ;;21,"58118-2331-09 ")
 ;;1362
 ;;21,"58118-2332-03 ")
 ;;1449
 ;;21,"58118-2332-09 ")
 ;;1450
 ;;21,"58118-8343-08 ")
 ;;853
 ;;21,"58118-8343-09 ")
 ;;854
 ;;21,"58864-0027-14 ")
 ;;350
 ;;21,"58864-0027-30 ")
 ;;351
 ;;21,"58864-0027-60 ")
 ;;352
 ;;21,"58864-0027-90 ")
 ;;353
 ;;21,"58864-0100-30 ")
 ;;8
 ;;21,"58864-0161-30 ")
 ;;514
 ;;21,"58864-0161-60 ")
 ;;515
 ;;21,"58864-0214-30 ")
 ;;1116
 ;;21,"58864-0214-60 ")
 ;;1117
 ;;21,"58864-0224-30 ")
 ;;1005
 ;;21,"58864-0224-60 ")
 ;;1006
 ;;21,"58864-0224-93 ")
 ;;1007
 ;;21,"58864-0689-30 ")
 ;;750
 ;;21,"58864-0689-60 ")
 ;;751
 ;;21,"58864-0705-30 ")
 ;;670
 ;;21,"58864-0711-30 ")
 ;;1352
 ;;21,"58864-0858-30 ")
 ;;626
 ;;21,"58864-0952-30 ")
 ;;1393
 ;;21,"58864-0953-30 ")
 ;;1505
 ;;21,"58864-0956-30 ")
 ;;707
 ;;21,"58864-0957-30 ")
 ;;627
 ;;21,"59762-0540-01 ")
 ;;621
 ;;21,"59762-0541-01 ")
 ;;666
 ;;21,"59762-0541-02 ")
 ;;667
 ;;21,"59762-0542-01 ")
 ;;732
 ;;21,"59762-0542-02 ")
 ;;733
 ;;21,"59762-2330-07 ")
 ;;1316
 ;;21,"59762-2331-06 ")
 ;;1384
 ;;21,"59762-2331-08 ")
 ;;1385
 ;;21,"59762-2332-06 ")
 ;;1433
 ;;21,"59762-2332-08 ")
 ;;1434
 ;;21,"59762-3725-01 ")
 ;;785
 ;;21,"59762-3726-03 ")
 ;;801
 ;;21,"59762-3727-04 ")
 ;;1025
 ;;21,"59762-3727-06 ")
 ;;1026
 ;;21,"59762-3727-07 ")
 ;;1027
 ;;21,"59762-3781-01 ")
 ;;1137
 ;;21,"59762-3782-01 ")
 ;;1170
 ;;21,"59762-3782-03 ")
 ;;1171
 ;;21,"59762-3783-01 ")
 ;;1192
 ;;21,"59762-3783-02 ")
 ;;1193
 ;;21,"59762-3783-03 ")
 ;;1194
 ;;21,"59762-5031-01 ")
 ;;622
 ;;21,"59762-5032-01 ")
 ;;664
 ;;21,"59762-5032-02 ")
 ;;665
 ;;21,"59762-5033-01 ")
 ;;734
 ;;21,"59762-5033-02 ")
 ;;735
 ;;21,"59762-7020-09 ")
 ;;769
 ;;21,"59762-7021-05 ")
 ;;864
 ;;21,"59762-7021-09 ")
 ;;865
 ;;21,"59762-7022-05 ")
 ;;918
 ;;21,"59762-7022-09 ")
 ;;919
 ;;21,"60346-0457-30 ")
 ;;752
 ;;21,"60346-0513-60 ")
 ;;1182
 ;;21,"60346-0613-30 ")
 ;;598
 ;;21,"60346-0633-30 ")
 ;;23
 ;;21,"60346-0633-60 ")
 ;;24
 ;;21,"60346-0633-90 ")
 ;;25
 ;;21,"60346-0662-30 ")
 ;;1118
 ;;21,"60346-0662-60 ")
 ;;1119
 ;;21,"60346-0730-30 ")
 ;;892
 ;;21,"60346-0730-60 ")
 ;;893
 ;;21,"60346-0784-30 ")
 ;;11
 ;;21,"60346-0890-30 ")
 ;;792
 ;;21,"60346-0938-07 ")
 ;;1028
 ;;21,"60346-0938-30 ")
 ;;1029
 ;;21,"60429-0082-01 ")
 ;;333
 ;;21,"60429-0082-10 ")
 ;;334
 ;;21,"60429-0082-30 ")
 ;;335
 ;;21,"60429-0082-60 ")
 ;;336
 ;;21,"60429-0083-01 ")
 ;;494
 ;;21,"60429-0083-10 ")
 ;;495
 ;;21,"60429-0083-12 ")
 ;;496
 ;;21,"60429-0083-30 ")
 ;;497
 ;;21,"60429-0083-60 ")
 ;;498
 ;;21,"60429-0085-12 ")
 ;;920
 ;;21,"60429-0085-18 ")
 ;;921
 ;;21,"60429-0085-27 ")
 ;;922
 ;;21,"60429-0085-30 ")
 ;;923
 ;;21,"60429-0085-36 ")
 ;;924
 ;;21,"60429-0085-60 ")
 ;;925
 ;;21,"60429-0085-90 ")
 ;;926
 ;;21,"60429-0283-01 ")
 ;;1142
 ;;21,"60429-0284-01 ")
 ;;1172
 ;;21,"60429-0285-01 ")
 ;;1199
 ;;21,"60429-0291-01 ")
 ;;73
 ;;21,"60429-0293-01 ")
 ;;216
 ;;21,"60505-0141-00 ")
 ;;321
 ;;21,"60505-0141-01 ")
 ;;322
 ;;21,"60505-0141-02 ")
 ;;323
 ;;21,"60505-0141-08 ")
 ;;324
 ;;21,"60505-0142-00 ")
 ;;504
 ;;21,"60505-0142-01 ")
 ;;505
 ;;21,"60505-0142-02 ")
 ;;506
 ;;21,"60505-0142-04 ")
 ;;507
 ;;21,"60760-0024-60 ")
 ;;543
 ;;21,"60760-0024-98 ")
 ;;544
 ;;21,"60760-0141-60 ")
 ;;383
 ;;21,"60760-0141-98 ")
 ;;384
 ;;21,"60760-0175-30 ")
 ;;1269
 ;;21,"60760-0175-90 ")
 ;;1270
 ;;21,"60760-0176-30 ")
 ;;1287
 ;;21,"60760-0176-90 ")
 ;;1288
 ;;21,"60760-0229-30 ")
 ;;99
 ;;21,"60760-0229-90 ")
 ;;100
 ;;21,"60760-0230-30 ")
 ;;170
 ;;21,"60760-0230-90 ")
 ;;171
 ;;21,"60951-0714-70 ")
 ;;431
 ;;21,"60951-0714-85 ")
 ;;432
 ;;21,"61442-0115-01 ")
 ;;83
 ;;21,"61442-0116-01 ")
 ;;136
 ;;21,"61442-0117-01 ")
 ;;237
 ;;21,"62037-0871-30 ")
 ;;614
 ;;21,"62037-0872-01 ")
 ;;641
 ;;21,"62037-0872-05 ")
 ;;642
 ;;21,"62037-0873-01 ")
 ;;727