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

BGP63E4.m

Go to the documentation of this file.
  1. BGP63E4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
  1. ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
  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,"54458-0992-10 ")
  1. ;;1237
  1. ;;21,"54458-0993-09 ")
  1. ;;1174
  1. ;;21,"54569-4437-00 ")
  1. ;;304
  1. ;;21,"54569-4438-00 ")
  1. ;;380
  1. ;;21,"54569-4572-00 ")
  1. ;;79
  1. ;;21,"54569-4696-00 ")
  1. ;;764
  1. ;;21,"54569-4698-00 ")
  1. ;;524
  1. ;;21,"54569-4714-00 ")
  1. ;;12
  1. ;;21,"54569-4719-00 ")
  1. ;;35
  1. ;;21,"54569-4719-01 ")
  1. ;;36
  1. ;;21,"54569-4722-00 ")
  1. ;;1414
  1. ;;21,"54569-4722-01 ")
  1. ;;1415
  1. ;;21,"54569-4766-00 ")
  1. ;;1693
  1. ;;21,"54569-4766-03 ")
  1. ;;1694
  1. ;;21,"54569-4767-00 ")
  1. ;;1628
  1. ;;21,"54569-4767-03 ")
  1. ;;1629
  1. ;;21,"54569-4829-00 ")
  1. ;;1175
  1. ;;21,"54569-4895-00 ")
  1. ;;147
  1. ;;21,"54569-5232-00 ")
  1. ;;798
  1. ;;21,"54569-5361-00 ")
  1. ;;609
  1. ;;21,"54569-5362-00 ")
  1. ;;525
  1. ;;21,"54569-5606-00 ")
  1. ;;429
  1. ;;21,"54569-5665-00 ")
  1. ;;1588
  1. ;;21,"54569-5666-00 ")
  1. ;;553
  1. ;;21,"54569-5667-00 ")
  1. ;;1735
  1. ;;21,"54569-5685-00 ")
  1. ;;957
  1. ;;21,"54569-5685-01 ")
  1. ;;958
  1. ;;21,"54569-5801-00 ")
  1. ;;987
  1. ;;21,"54569-5867-00 ")
  1. ;;188
  1. ;;21,"54569-5878-00 ")
  1. ;;703
  1. ;;21,"54569-5880-01 ")
  1. ;;1464
  1. ;;21,"54569-5903-00 ")
  1. ;;1529
  1. ;;21,"54569-5937-00 ")
  1. ;;765
  1. ;;21,"54569-5938-00 ")
  1. ;;799
  1. ;;21,"54569-5998-00 ")
  1. ;;1521
  1. ;;21,"54569-5999-00 ")
  1. ;;1365
  1. ;;21,"54569-6091-00 ")
  1. ;;1176
  1. ;;21,"54569-6091-01 ")
  1. ;;1177
  1. ;;21,"54569-6092-00 ")
  1. ;;1238
  1. ;;21,"54569-6092-01 ")
  1. ;;1239
  1. ;;21,"54569-6110-01 ")
  1. ;;1662
  1. ;;21,"54569-6173-00 ")
  1. ;;381
  1. ;;21,"54569-6173-01 ")
  1. ;;382
  1. ;;21,"54569-6180-00 ")
  1. ;;1465
  1. ;;21,"54569-6180-01 ")
  1. ;;1466
  1. ;;21,"54569-6182-00 ")
  1. ;;1366
  1. ;;21,"54569-6182-01 ")
  1. ;;1367
  1. ;;21,"54569-6223-00 ")
  1. ;;1416
  1. ;;21,"54569-6228-00 ")
  1. ;;1307
  1. ;;21,"54569-6228-01 ")
  1. ;;1308
  1. ;;21,"54569-6294-00 ")
  1. ;;305
  1. ;;21,"54569-6294-01 ")
  1. ;;306
  1. ;;21,"54569-6297-00 ")
  1. ;;238
  1. ;;21,"54569-6309-00 ")
  1. ;;80
  1. ;;21,"54569-8595-00 ")
  1. ;;1022
  1. ;;21,"54868-0009-00 ")
  1. ;;1055
  1. ;;21,"54868-0009-01 ")
  1. ;;1056
  1. ;;21,"54868-1802-00 ")
  1. ;;1542
  1. ;;21,"54868-2335-00 ")
  1. ;;239
  1. ;;21,"54868-2335-01 ")
  1. ;;240
  1. ;;21,"54868-3443-00 ")
  1. ;;1506
  1. ;;21,"54868-3443-01 ")
  1. ;;1507
  1. ;;21,"54868-3726-00 ")
  1. ;;383
  1. ;;21,"54868-3726-01 ")
  1. ;;384
  1. ;;21,"54868-3726-02 ")
  1. ;;385
  1. ;;21,"54868-3906-00 ")
  1. ;;933
  1. ;;21,"54868-3906-01 ")
  1. ;;934
  1. ;;21,"54868-4003-00 ")
  1. ;;1240
  1. ;;21,"54868-4062-00 ")
  1. ;;1006
  1. ;;21,"54868-4062-01 ")
  1. ;;1007
  1. ;;21,"54868-4066-00 ")
  1. ;;742
  1. ;;21,"54868-4066-01 ")
  1. ;;743
  1. ;;21,"54868-4073-00 ")
  1. ;;766
  1. ;;21,"54868-4073-01 ")
  1. ;;767
  1. ;;21,"54868-4073-02 ")
  1. ;;768
  1. ;;21,"54868-4073-03 ")
  1. ;;769
  1. ;;21,"54868-4074-00 ")
  1. ;;800
  1. ;;21,"54868-4074-01 ")
  1. ;;801
  1. ;;21,"54868-4074-02 ")
  1. ;;802
  1. ;;21,"54868-4074-03 ")
  1. ;;803
  1. ;;21,"54868-4074-04 ")
  1. ;;804
  1. ;;21,"54868-4199-00 ")
  1. ;;81
  1. ;;21,"54868-4199-01 ")
  1. ;;82
  1. ;;21,"54868-4199-02 ")
  1. ;;83
  1. ;;21,"54868-4341-00 ")
  1. ;;1467
  1. ;;21,"54868-4341-01 ")
  1. ;;1468
  1. ;;21,"54868-4413-00 ")
  1. ;;13
  1. ;;21,"54868-4414-00 ")
  1. ;;148
  1. ;;21,"54868-4425-00 ")
  1. ;;1695
  1. ;;21,"54868-4425-01 ")
  1. ;;1696
  1. ;;21,"54868-4425-02 ")
  1. ;;1697
  1. ;;21,"54868-4428-00 ")
  1. ;;1630
  1. ;;21,"54868-4428-01 ")
  1. ;;1631
  1. ;;21,"54868-4428-02 ")
  1. ;;1632
  1. ;;21,"54868-4479-00 ")
  1. ;;1508
  1. ;;21,"54868-4479-01 ")
  1. ;;1509
  1. ;;21,"54868-4479-02 ")
  1. ;;1510
  1. ;;21,"54868-4494-00 ")
  1. ;;1104
  1. ;;21,"54868-4526-01 ")
  1. ;;1134
  1. ;;21,"54868-4539-01 ")
  1. ;;479
  1. ;;21,"54868-4540-01 ")
  1. ;;1589
  1. ;;21,"54868-4605-01 ")
  1. ;;496
  1. ;;21,"54868-4612-00 ")
  1. ;;23
  1. ;;21,"54868-4637-00 ")
  1. ;;1241
  1. ;;21,"54868-4637-01 ")
  1. ;;1242
  1. ;;21,"54868-4637-02 ")
  1. ;;1243
  1. ;;21,"54868-4637-03 ")
  1. ;;1244
  1. ;;21,"54868-4637-04 ")
  1. ;;1245
  1. ;;21,"54868-4645-00 ")
  1. ;;526
  1. ;;21,"54868-4645-01 ")
  1. ;;527
  1. ;;21,"54868-4645-02 ")
  1. ;;528
  1. ;;21,"54868-4652-00 ")
  1. ;;610
  1. ;;21,"54868-4652-01 ")
  1. ;;611
  1. ;;21,"54868-4652-02 ")
  1. ;;612
  1. ;;21,"54868-4652-03 ")
  1. ;;613
  1. ;;21,"54868-4729-00 ")
  1. ;;979
  1. ;;21,"54868-4785-00 ")
  1. ;;1309
  1. ;;21,"54868-4785-01 ")
  1. ;;1310
  1. ;;21,"54868-4785-02 ")
  1. ;;1311
  1. ;;21,"54868-4785-03 ")
  1. ;;1312
  1. ;;21,"54868-4869-00 ")
  1. ;;988
  1. ;;21,"54868-4870-00 ")
  1. ;;704
  1. ;;21,"54868-4870-01 ")
  1. ;;705
  1. ;;21,"54868-4870-02 ")
  1. ;;706
  1. ;;21,"54868-4885-00 ")
  1. ;;445
  1. ;;21,"54868-4885-01 ")
  1. ;;446
  1. ;;21,"54868-4904-00 ")
  1. ;;935
  1. ;;21,"54868-4904-01 ")
  1. ;;936
  1. ;;21,"54868-4977-00 ")
  1. ;;1178
  1. ;;21,"54868-4977-01 ")
  1. ;;1179
  1. ;;21,"54868-4977-02 ")
  1. ;;1180
  1. ;;21,"54868-4986-00 ")
  1. ;;430
  1. ;;21,"54868-4986-01 ")
  1. ;;431
  1. ;;21,"54868-4986-02 ")
  1. ;;432
  1. ;;21,"54868-5075-00 ")
  1. ;;1522
  1. ;;21,"54868-5075-01 ")
  1. ;;1523
  1. ;;21,"54868-5077-00 ")
  1. ;;307
  1. ;;21,"54868-5078-00 ")
  1. ;;1530
  1. ;;21,"54868-5078-01 ")
  1. ;;1531
  1. ;;21,"54868-5082-00 ")
  1. ;;554
  1. ;;21,"54868-5082-01 ")
  1. ;;555
  1. ;;21,"54868-5082-02 ")
  1. ;;556
  1. ;;21,"54868-5082-03 ")
  1. ;;557
  1. ;;21,"54868-5100-00 ")
  1. ;;1023
  1. ;;21,"54868-5100-01 ")
  1. ;;1024
  1. ;;21,"54868-5170-00 ")
  1. ;;1515
  1. ;;21,"54868-5170-01 ")
  1. ;;1516
  1. ;;21,"54868-5256-00 ")
  1. ;;918
  1. ;;21,"54868-5281-00 ")
  1. ;;1052
  1. ;;21,"54868-5281-01 ")
  1. ;;1053
  1. ;;21,"54868-5296-00 ")
  1. ;;959
  1. ;;21,"54868-5297-00 ")
  1. ;;1600
  1. ;;21,"54868-5313-00 ")
  1. ;;960
  1. ;;21,"54868-5313-01 ")
  1. ;;961
  1. ;;21,"54868-5323-00 ")
  1. ;;1736
  1. ;;21,"54868-5346-00 ")
  1. ;;1060
  1. ;;21,"54868-5346-01 ")
  1. ;;1061
  1. ;;21,"54868-5418-00 ")
  1. ;;1577
  1. ;;21,"54868-5465-00 ")
  1. ;;1141
  1. ;;21,"54868-5466-00 ")
  1. ;;42
  1. ;;21,"54868-5466-01 ")
  1. ;;43
  1. ;;21,"54868-5469-00 ")
  1. ;;1071
  1. ;;21,"54868-5469-01 ")
  1. ;;1072
  1. ;;21,"54868-5475-00 ")
  1. ;;1564
  1. ;;21,"54868-5489-00 ")
  1. ;;37
  1. ;;21,"54868-5503-00 ")
  1. ;;1042
  1. ;;21,"54868-5503-01 ")
  1. ;;1043
  1. ;;21,"54868-5591-00 ")
  1. ;;29
  1. ;;21,"54868-5607-00 ")
  1. ;;1759
  1. ;;21,"54868-5690-01 ")
  1. ;;727
  1. ;;21,"54868-5690-02 ")
  1. ;;728
  1. ;;21,"54868-5705-00 ")
  1. ;;1368
  1. ;;21,"54868-5780-00 ")
  1. ;;1663
  1. ;;21,"54868-5781-00 ")
  1. ;;707
  1. ;;21,"54868-5781-02 ")
  1. ;;708
  1. ;;21,"54868-5782-00 ")
  1. ;;805
  1. ;;21,"54868-5782-01 ")
  1. ;;806
  1. ;;21,"54868-5782-02 ")
  1. ;;807
  1. ;;21,"54868-5782-03 ")
  1. ;;808
  1. ;;21,"54868-5782-04 ")
  1. ;;809
  1. ;;21,"54868-5783-00 ")
  1. ;;830
  1. ;;21,"54868-5783-01 ")
  1. ;;831
  1. ;;21,"54868-5787-00 ")
  1. ;;1001
  1. ;;21,"54868-5792-00 ")
  1. ;;770
  1. ;;21,"54868-5792-01 ")
  1. ;;771
  1. ;;21,"54868-5804-00 ")
  1. ;;874
  1. ;;21,"54868-5977-00 ")
  1. ;;577
  1. ;;21,"54868-5983-00 ")
  1. ;;884
  1. ;;21,"54868-5983-01 ")
  1. ;;885
  1. ;;21,"54868-5996-00 ")
  1. ;;903
  1. ;;21,"54868-5997-00 ")
  1. ;;894
  1. ;;21,"54868-6036-00 ")
  1. ;;843
  1. ;;21,"54868-6123-00 ")
  1. ;;666
  1. ;;21,"55045-3170-00 ")
  1. ;;962
  1. ;;21,"55045-3225-06 ")
  1. ;;1313
  1. ;;21,"55045-3373-08 ")
  1. ;;1044
  1. ;;21,"55045-3401-08 ")
  1. ;;386
  1. ;;21,"55045-3409-09 ")
  1. ;;614
  1. ;;21,"55111-0133-01 ")
  1. ;;1045
  1. ;;21,"55111-0134-01 ")
  1. ;;1025
  1. ;;21,"55111-0338-01 ")
  1. ;;744
  1. ;;21,"55111-0339-01 ")
  1. ;;772
  1. ;;21,"55111-0339-05 ")
  1. ;;773
  1. ;;21,"55111-0340-01 ")
  1. ;;810
  1. ;;21,"55111-0340-05 ")
  1. ;;811
  1. ;;21,"55111-0341-01 ")
  1. ;;709
  1. ;;21,"55111-0341-05 ")
  1. ;;710
  1. ;;21,"55111-0586-01 ")
  1. ;;729
  1. ;;21,"55111-0587-01 ")
  1. ;;832
  1. ;;21,"55289-0039-30 ")
  1. ;;812
  1. ;;21,"55289-0096-30 ")
  1. ;;774
  1. ;;21,"55289-0238-30 ")
  1. ;;241
  1. ;;21,"55289-0436-30 ")
  1. ;;447
  1. ;;21,"55289-0443-30 ")
  1. ;;1532
  1. ;;21,"55289-0484-30 ")
  1. ;;1026
  1. ;;21,"55289-0522-30 ")
  1. ;;1469
  1. ;;21,"55289-0573-30 ")
  1. ;;1314
  1. ;;21,"55289-0815-30 ")
  1. ;;1698
  1. ;;21,"55289-0817-30 ")
  1. ;;529
  1. ;;21,"55289-0820-30 ")
  1. ;;1737
  1. ;;21,"55289-0825-30 ")
  1. ;;615
  1. ;;21,"55289-0838-30 ")
  1. ;;1633
  1. ;;21,"55289-0876-30 ")
  1. ;;558
  1. ;;21,"55289-0878-30 ")
  1. ;;1315
  1. ;;21,"55289-0878-90 ")
  1. ;;1316
  1. ;;21,"55289-0981-30 ")
  1. ;;711
  1. ;;21,"55390-0712-01 ")
  1. ;;1046
  1. ;;21,"55887-0102-30 ")
  1. ;;149
  1. ;;21,"55887-0103-30 ")
  1. ;;189
  1. ;;21,"55887-0105-30 ")
  1. ;;84
  1. ;;21,"55887-0175-30 ")
  1. ;;937
  1. ;;21,"55887-0307-30 ")
  1. ;;616
  1. ;;21,"55887-0366-30 ")
  1. ;;919
  1. ;;21,"55887-0425-30 ")
  1. ;;1181
  1. ;;21,"55887-0425-60 ")
  1. ;;1182
  1. ;;21,"55887-0425-90 ")
  1. ;;1183
  1. ;;21,"55887-0426-20 ")
  1. ;;1246
  1. ;;21,"55887-0426-60 ")
  1. ;;1247
  1. ;;21,"55887-0426-90 ")
  1. ;;1248
  1. ;;21,"55887-0432-30 ")
  1. ;;308
  1. ;;21,"55887-0432-60 ")
  1. ;;309
  1. ;;21,"55887-0432-90 ")
  1. ;;310
  1. ;;21,"55887-0532-60 ")
  1. ;;1317
  1. ;;21,"55887-0594-30 ")
  1. ;;1047
  1. ;;21,"55887-0594-90 ")
  1. ;;1048
  1. ;;21,"55887-0595-30 ")
  1. ;;1027
  1. ;;21,"55887-0595-90 ")
  1. ;;1028
  1. ;;21,"57237-0026-01 ")
  1. ;;1062
  1. ;;21,"57237-0026-30 ")
  1. ;;1063
  1. ;;21,"57237-0027-01 ")
  1. ;;1073
  1. ;;21,"57237-0027-30 ")
  1. ;;1074
  1. ;;21,"58016-0053-00 ")
  1. ;;448
  1. ;;21,"58016-0053-30 ")
  1. ;;449
  1. ;;21,"58016-0053-60 ")
  1. ;;450
  1. ;;21,"58016-0053-90 ")
  1. ;;451
  1. ;;21,"58016-0065-00 ")
  1. ;;938
  1. ;;21,"58016-0065-30 ")
  1. ;;939
  1. ;;21,"58016-0065-60 ")
  1. ;;940
  1. ;;21,"58016-0065-90 ")
  1. ;;941
  1. ;;21,"58016-0066-00 ")
  1. ;;433
  1. ;;21,"58016-0066-30 ")
  1. ;;434
  1. ;;21,"58016-0066-60 ")
  1. ;;435
  1. ;;21,"58016-0066-90 ")
  1. ;;436
  1. ;;21,"58016-0228-00 ")
  1. ;;1249
  1. ;;21,"58016-0228-02 ")
  1. ;;1250
  1. ;;21,"58016-0228-30 ")
  1. ;;1251
  1. ;;21,"58016-0228-60 ")
  1. ;;1252
  1. ;;21,"58016-0228-90 ")
  1. ;;1253
  1. ;;21,"58016-4631-01 ")
  1. ;;1590
  1. ;;21,"58864-0605-30 ")
  1. ;;530
  1. ;;21,"58864-0659-30 ")
  1. ;;1470
  1. ;;21,"58864-0661-30 ")
  1. ;;1493
  1. ;;21,"58864-0662-30 ")
  1. ;;387
  1. ;;21,"58864-0681-30 ")
  1. ;;617
  1. ;;21,"58864-0726-15 ")
  1. ;;85
  1. ;;21,"58864-0726-30 ")
  1. ;;86
  1. ;;21,"58864-0771-15 ")
  1. ;;150
  1. ;;21,"58864-0807-30 ")
  1. ;;311
  1. ;;21,"58864-0838-30 ")
  1. ;;1511
  1. ;;21,"59746-0333-10 ")
  1. ;;312
  1. ;;21,"59746-0333-90 ")
  1. ;;313
  1. ;;21,"59746-0334-10 ")
  1. ;;388
  1. ;;21,"59746-0334-30 ")
  1. ;;389
  1. ;;21,"59746-0334-90 ")
  1. ;;390
  1. ;;21,"59746-0335-10 ")
  1. ;;242
  1. ;;21,"59746-0335-30 ")
  1. ;;243
  1. ;;21,"59746-0335-90 ")
  1. ;;244
  1. ;;21,"59746-0337-90 ")
  1. ;;1417
  1. ;;21,"59746-0338-90 ")
  1. ;;1369
  1. ;;21,"59746-0339-30 ")
  1. ;;1471
  1. ;;21,"59746-0339-90 ")
  1. ;;1472
  1. ;;21,"59746-0360-30 ")
  1. ;;578
  1. ;;21,"59746-0361-90 ")
  1. ;;618
  1. ;;21,"59746-0362-90 ")
  1. ;;531
  1. ;;21,"59746-0363-90 ")
  1. ;;559
  1. ;;21,"59762-0011-01 ")
  1. ;;1418
  1. ;;21,"59762-0011-02 ")
  1. ;;1419
  1. ;;21,"59762-0012-01 ")
  1. ;;1370
  1. ;;21,"59762-0012-02 ")
  1. ;;1371
  1. ;;21,"59762-0015-01 ")
  1. ;;1473
  1. ;;21,"59762-0015-02 ")
  1. ;;1474
  1. ;;21,"59762-0070-01 ")
  1. ;;314
  1. ;;21,"59762-0071-01 ")
  1. ;;391
  1. ;;21,"59762-0071-02 ")
  1. ;;392
  1. ;;21,"59762-0072-01 ")
  1. ;;245
  1. ;;21,"59762-0072-02 ")
  1. ;;246
  1. ;;21,"59762-0220-01 ")
  1. ;;1553
  1. ;;21,"59762-0222-01 ")
  1. ;;1543
  1. ;;21,"59762-0223-01 ")
  1. ;;1565
  1. ;;21,"59762-3293-01 ")
  1. ;;1184
  1. ;;21,"59762-3293-02 ")
  1. ;;1185
  1. ;;21,"59762-3293-03 ")
  1. ;;1186
  1. ;;21,"59762-3293-04 ")
  1. ;;1187
  1. ;;21,"59762-3294-01 ")
  1. ;;1254
  1. ;;21,"59762-3294-02 ")
  1. ;;1255
  1. ;;21,"59762-3294-03 ")
  1. ;;1256
  1. ;;21,"59762-3294-04 ")
  1. ;;1257
  1. ;;21,"59762-3295-01 ")
  1. ;;1318
  1. ;;21,"59762-3295-02 ")
  1. ;;1319
  1. ;;21,"59762-3295-03 ")
  1. ;;1320
  1. ;;21,"59762-3295-04 ")
  1. ;;1321
  1. ;;21,"59762-5250-01 ")
  1. ;;1064
  1. ;;21,"59762-5250-04 ")
  1. ;;1065
  1. ;;21,"59762-5251-01 ")
  1. ;;1075
  1. ;;21,"59762-5251-04 ")
  1. ;;1076
  1. ;;21,"60429-0044-01 ")
  1. ;;1188
  1. ;;21,"60429-0044-10 ")
  1. ;;1189
  1. ;;21,"60429-0045-01 ")
  1. ;;1258
  1. ;;21,"60429-0045-10 ")
  1. ;;1259
  1. ;;21,"60429-0046-01 ")
  1. ;;1322
  1. ;;21,"60429-0046-10 ")
  1. ;;1323
  1. ;;21,"60505-0205-03 ")
  1. ;;1190
  1. ;;21,"60505-0206-03 ")
  1. ;;1260
  1. ;;21,"60505-0207-03 ")
  1. ;;1324
  1. ;;21,"60505-0208-01 ")
  1. ;;1049
  1. ;;21,"60505-0209-01 ")
  1. ;;1029
  1. ;;21,"60505-0261-01 ")
  1. ;;973
  1. ;;21,"60505-0262-01 ")
  1. ;;920