| line |
true |
false |
branch |
|
151
|
0 |
22 |
unless (defined $errorhandler) |
|
268
|
0 |
22 |
unless (defined $self and ref $self) |
|
273
|
0 |
22 |
unless defined $params |
|
340
|
0 |
0 |
unless (defined $self and ref $self) |
|
346
|
0 |
0 |
unless ($sdb) |
|
350
|
0 |
0 |
if ($self->_checkTableExists($cacheTable)) { } |
|
375
|
0 |
0 |
unless (defined $self and ref $self) |
|
381
|
0 |
0 |
unless ($sdb) |
|
386
|
0 |
0 |
if ($pkeys > 0) |
|
390
|
0 |
0 |
if ($self->_checkTableExists($childTable) and $self->_checkTableExists($parentTable)) { } |
|
400
|
0 |
0 |
if (-e $childFile and -e $parentFile) { } |
|
423
|
0 |
0 |
unless (defined $self and ref $self) |
|
429
|
0 |
0 |
unless ($sdb) |
|
433
|
0 |
0 |
unless ($db) |
|
437
|
0 |
0 |
if ($option_verbose) |
|
438
|
0 |
0 |
unless open CHD, ">$childFile" |
|
439
|
0 |
0 |
unless open PAR, ">$parentFile" |
|
454
|
0 |
0 |
unless ($parentRelations =~ /\(\)/) |
|
467
|
0 |
0 |
if (exists $parCuisHash{$cui}) |
|
470
|
0 |
0 |
if (exists $parentTaxonomyArray{$cui}) |
|
473
|
0 |
0 |
if ($sab_cui eq $cui) |
|
486
|
0 |
0 |
if ($option_verbose) |
|
497
|
0 |
0 |
if ($option_verbose) |
|
511
|
0 |
0 |
if ($option_verbose) |
|
517
|
0 |
0 |
if ($debug) |
|
536
|
0 |
0 |
unless (defined $self and ref $self) |
|
542
|
0 |
0 |
unless ($sdb) |
|
587
|
0 |
0 |
unless (defined $self and ref $self) |
|
593
|
0 |
0 |
unless ($sdb) |
|
595
|
0 |
0 |
unless open PAR, $parentFile |
|
596
|
0 |
0 |
unless open CHD, $childFile |
|
601
|
0 |
0 |
if ($_ =~ /^\s*$/) |
|
611
|
0 |
0 |
if ($_ =~ /^\s*$/) |
|
630
|
0 |
0 |
unless (defined $self and ref $self) |
|
636
|
0 |
0 |
unless ($sdb) |
|
674
|
0 |
0 |
unless (defined $self and ref $self) |
|
678
|
0 |
0 |
unless (defined $table) |
|
684
|
0 |
0 |
unless ($sdb) |
|
698
|
0 |
0 |
if (not exists $tables{lc $table}) { } |
|
716
|
0 |
0 |
unless (defined $self and ref $self) |
|
721
|
0 |
0 |
if (defined $self->{'username'}) { } |
|
732
|
0 |
0 |
if ($@) |
|
737
|
0 |
0 |
if ($@) |
|
762
|
0 |
0 |
unless (defined $self and ref $self) |
|
768
|
0 |
0 |
unless ($sdb) |
|
784
|
0 |
0 |
unless (defined $self and ref $self) |
|
790
|
0 |
0 |
unless ($db) |
|
807
|
0 |
0 |
unless (defined $self and ref $self) |
|
813
|
0 |
0 |
unless ($db) |
|
833
|
0 |
0 |
if (not exists $databases{$indexDB}) |
|
850
|
0 |
0 |
unless (defined $self and ref $self) |
|
855
|
0 |
0 |
unless (defined $concept) |
|
861
|
0 |
0 |
unless ($db) |
|
882
|
0 |
0 |
unless (defined $self and ref $self) |
|
887
|
0 |
0 |
unless (defined $concept) |
|
891
|
0 |
0 |
if (exists $cuiListHash{$concept}) { } |
|
907
|
0 |
0 |
unless (defined $self and ref $self) |
|
911
|
0 |
0 |
if (defined $cuilist) |
|
912
|
0 |
0 |
unless open CUILIST, $cuilist |
|
916
|
0 |
0 |
unless ($errorhandler->_validCui($_)) |
|
932
|
0 |
0 |
if ($option_verbose) |
|
937
|
0 |
0 |
unless (defined $self and ref $self) |
|
941
|
0 |
0 |
if (not -e $configFile) |
|
943
|
0 |
0 |
unless open CONFIG, ">$configFile" |
|
978
|
0 |
0 |
unless (defined $self and ref $self) |
|
1009
|
0 |
0 |
if ($defflag == 1) { } |
|
1032
|
0 |
0 |
if ($umlsall) { } |
|
1043
|
0 |
0 |
if ($defflag == 1) { } |
|
1051
|
0 |
0 |
if ($rel =~ /[a-z\_]+/) { } |
|
1072
|
0 |
0 |
if ($rak > 0) |
|
1073
|
0 |
0 |
if ($defflag == 1) { } |
|
1122
|
0 |
0 |
if ($option_verbose) |
|
1130
|
0 |
0 |
if ($option_t == 0) |
|
1131
|
0 |
0 |
if ($option_config) { } |
|
1161
|
0 |
0 |
unless (defined $self and ref $self) |
|
1165
|
0 |
0 |
if ($option_verbose) { } |
|
1166
|
0 |
0 |
if (not defined $umlsinterface) |
|
1182
|
0 |
0 |
if ($answer =~ /[Yy]/) { } |
|
1192
|
0 |
0 |
unless (-e $umlsinterface) |
|
1229
|
0 |
0 |
unless (defined $self and ref $self) |
|
1234
|
0 |
0 |
unless (defined $includerelkeys and defined $excluderelkeys and defined $includerel and defined $excluderel) |
|
1239
|
0 |
0 |
if ($includerelkeys <= 0 and $excluderelkeys <= 0) |
|
1245
|
0 |
0 |
if (exists do {
$includerel
}->{'UMLS_ALL'}) |
|
1253
|
0 |
0 |
unless ($db) |
|
1261
|
0 |
0 |
if ($includerelkeys > 0) { } |
|
1280
|
0 |
0 |
if ($excluderelkeys > 0 and exists do {
$excluderel
}->{$rel}) |
|
1283
|
0 |
0 |
if ($relcount == $#array + 1) { } |
|
1287
|
0 |
0 |
if ($rel =~ /(PAR|RB)/) { } |
|
|
0 |
0 |
elsif ($rel =~ /(CHD|RN)/) { } |
|
1294
|
0 |
0 |
if ($#parents >= 0) |
|
1299
|
0 |
0 |
if ($#children >= 0) |
|
1329
|
0 |
0 |
unless (defined $self and ref $self) |
|
1334
|
0 |
0 |
unless (defined $includesabdefkeys and defined $excludesabdefkeys and defined $includesabdef and defined $excludesabdef) |
|
1339
|
0 |
0 |
if ($includesabdefkeys <= 0 and $excludesabdefkeys <= 0) |
|
1347
|
0 |
0 |
if (exists do {
$includesabdef
}->{'UMLS_ALL'}) |
|
1355
|
0 |
0 |
unless ($db) |
|
1359
|
0 |
0 |
if ($includesabdefkeys > 0) { } |
|
1374
|
0 |
0 |
if ($excludesabdefkeys > 0 and exists do {
$excludesabdef
}->{$sab}) |
|
1382
|
0 |
0 |
if (not $sabdef_umlsall) |
|
1407
|
0 |
0 |
unless (defined $self and ref $self) |
|
1412
|
0 |
0 |
unless (defined $includereldefkeys and defined $excludereldefkeys and defined $includereldef and defined $excludereldef) |
|
1417
|
0 |
0 |
if ($includereldefkeys <= 0 and $excludereldefkeys <= 0) |
|
1423
|
0 |
0 |
if (exists do {
$includereldef
}->{'UMLS_ALL'}) |
|
1430
|
0 |
0 |
unless ($db) |
|
1434
|
0 |
0 |
if ($includereldefkeys > 0) { } |
|
1451
|
0 |
0 |
if ($excludereldefkeys > 0 and exists do {
$excludereldef
}->{$rel}) |
|
1461
|
0 |
0 |
if ($includereldefkeys > 0) { } |
|
|
0 |
0 |
elsif ($excludereldefkeys > 0) { } |
|
1462
|
0 |
0 |
if (exists do {
$includereldef
}->{'TERM'}) |
|
1463
|
0 |
0 |
if (exists do {
$includereldef
}->{'CUI'}) |
|
1464
|
0 |
0 |
if (exists do {
$includereldef
}->{'ST'}) |
|
1467
|
0 |
0 |
unless (exists do {
$excludereldef
}->{'TERM'}) |
|
1468
|
0 |
0 |
unless (exists do {
$excludereldef
}->{'CUI'}) |
|
1469
|
0 |
0 |
if (not exists do {
$excludereldef
}->{'ST'}) |
|
1487
|
0 |
0 |
unless (defined $self and ref $self) |
|
1493
|
0 |
0 |
unless ($db) |
|
1524
|
0 |
0 |
unless (defined $self and ref $self) |
|
1529
|
0 |
0 |
unless (defined $includesabkeys and defined $excludesabkeys and defined $includesab and defined $excludesab) |
|
1535
|
0 |
0 |
if ($includesabkeys <= 0 and $excludesabkeys <= 0) |
|
1544
|
0 |
0 |
if (exists do {
$includesab
}->{'UMLS_ALL'}) |
|
1554
|
0 |
0 |
unless ($db) |
|
1558
|
0 |
0 |
if ($includesabkeys > 0) { } |
|
1573
|
0 |
0 |
if ($excludesabkeys > 0 and exists do {
$excludesab
}->{$sab}) |
|
1576
|
0 |
0 |
if ($sabcount == $#array + 1) { } |
|
1606
|
0 |
0 |
unless (defined $self and ref $self) |
|
1611
|
0 |
0 |
unless (defined $includerelakeys and defined $excluderelakeys and defined $includerela and defined $excluderela) |
|
1617
|
0 |
0 |
if ($includerelakeys <= 0 and $excluderelakeys <= 0) |
|
1621
|
0 |
0 |
unless ($db) |
|
1629
|
0 |
0 |
if ($relations =~ /PAR/) { } |
|
|
0 |
0 |
elsif ($relations =~ /RB/) { } |
|
1630
|
0 |
0 |
if ($relations =~ /RB/) { } |
|
1637
|
0 |
0 |
if ($relations =~ /CHD/) { } |
|
|
0 |
0 |
elsif ($relations =~ /RB/) { } |
|
1638
|
0 |
0 |
if ($relations =~ /RN/) { } |
|
1646
|
0 |
0 |
if ($umlsall) { } |
|
1660
|
0 |
0 |
if (defined $crela) |
|
1661
|
0 |
0 |
if ($crela ne 'NULL') |
|
1669
|
0 |
0 |
if ($crelakeys <= 0) |
|
1679
|
0 |
0 |
if ($umlsall) { } |
|
1693
|
0 |
0 |
if (defined $prela) |
|
1694
|
0 |
0 |
if ($prela ne 'NULL') |
|
1702
|
0 |
0 |
if ($prelakeys <= 0) |
|
1711
|
0 |
0 |
if ($includerelakeys > 0) { } |
|
1733
|
0 |
0 |
if ($excluderelakeys > 0 and exists do {
$excluderela
}->{$r}) |
|
1737
|
0 |
0 |
if (exists $childrelas{$r}) { } |
|
|
0 |
0 |
elsif (exists $parentrelas{$r}) { } |
|
1745
|
0 |
0 |
if ($#newrelations >= 0) |
|
1754
|
0 |
0 |
if ($parentRelations =~ /PAR/) |
|
1758
|
0 |
0 |
if ($parentRelations =~ /RB/) |
|
1763
|
0 |
0 |
if ($childRelations =~ /CHD/) |
|
1767
|
0 |
0 |
if ($childRelations =~ /RN/) |
|
1792
|
0 |
0 |
unless (defined $self and ref $self) |
|
1797
|
0 |
0 |
unless (defined $includereladefkeys and defined $excludereladefkeys and defined $includereladef and defined $excludereladef) |
|
1803
|
0 |
0 |
if ($includereladefkeys <= 0 and $excludereladefkeys <= 0) |
|
1807
|
0 |
0 |
unless ($db) |
|
1815
|
0 |
0 |
if ($reldefstring =~ /PAR/) { } |
|
|
0 |
0 |
elsif ($reldefstring =~ /RB/) { } |
|
1816
|
0 |
0 |
if ($reldefstring =~ /RB/) { } |
|
1823
|
0 |
0 |
if ($reldefstring =~ /CHD/) { } |
|
|
0 |
0 |
elsif ($reldefstring =~ /RB/) { } |
|
1824
|
0 |
0 |
if ($reldefstring =~ /RN/) { } |
|
1832
|
0 |
0 |
if ($umlsall) { } |
|
1846
|
0 |
0 |
if (defined $crela) |
|
1847
|
0 |
0 |
if ($crela ne 'NULL') |
|
1855
|
0 |
0 |
if ($crelakeys <= 0) |
|
1864
|
0 |
0 |
if ($umlsall) { } |
|
1878
|
0 |
0 |
if (defined $prela) |
|
1879
|
0 |
0 |
if ($prela ne 'NULL') |
|
1887
|
0 |
0 |
if ($prelakeys <= 0) |
|
1896
|
0 |
0 |
if ($includereladefkeys > 0) { } |
|
1918
|
0 |
0 |
if ($excludereladefkeys > 0 and exists do {
$excludereladef
}->{$r}) |
|
1922
|
0 |
0 |
if (exists $childrelas{$r}) { } |
|
|
0 |
0 |
elsif (exists $parentrelas{$r}) { } |
|
1930
|
0 |
0 |
if ($#newrelations >= 0) |
|
1953
|
0 |
0 |
unless (defined $self and ref $self) |
|
1966
|
0 |
0 |
if (defined $file) |
|
1967
|
0 |
0 |
unless open FILE, $file |
|
1971
|
0 |
0 |
if ($_ =~ /^\s*$/) |
|
1973
|
0 |
0 |
if ($_ =~ /([A-Z]+)\s*\:\:\s*(include|exclude)\s+(.*)/) { } |
|
1989
|
0 |
0 |
if ($type eq 'SAB' and $det eq 'include') { } |
|
|
0 |
0 |
elsif ($type eq 'SAB' and $det eq 'exclude') { } |
|
|
0 |
0 |
elsif ($type eq 'REL' and $det eq 'include') { } |
|
|
0 |
0 |
elsif ($type eq 'REL' and $det eq 'exclude') { } |
|
|
0 |
0 |
elsif ($type eq 'RELA' and $det eq 'include') { } |
|
|
0 |
0 |
elsif ($type eq 'RELA' and $det eq 'exclude') { } |
|
|
0 |
0 |
elsif ($type eq 'RELDEF' and $det eq 'include') { } |
|
|
0 |
0 |
elsif ($type eq 'RELDEF' and $det eq 'exclude') { } |
|
|
0 |
0 |
elsif ($type eq 'SABDEF' and $det eq 'include') { } |
|
|
0 |
0 |
elsif ($type eq 'SABDEF' and $det eq 'exclude') { } |
|
|
0 |
0 |
elsif ($type eq 'RELADEF' and $det eq 'include') { } |
|
|
0 |
0 |
elsif ($type eq 'RELADEF' and $det eq 'exclude') { } |
|
2048
|
0 |
0 |
if (exists $includerela{'UMLS_ALL'}) |
|
2049
|
0 |
0 |
if (exists $includereladef{'UMLS_ALL'}) |
|
2065
|
0 |
0 |
if (not exists $check{'SAB'} and exists $check{'REL'} or not exists $check{'REL'} and exists $check{'SAB'}) |
|
2072
|
0 |
0 |
if (not exists $check{'SABDEF'} and exists $check{'RELDEF'} or not exists $check{'RELDEF'} and exists $check{'SABDEF'}) |
|
2079
|
0 |
0 |
if ($includesabkeys > 0 and $excludesabkeys > 0) |
|
2085
|
0 |
0 |
if ($includerelkeys > 0 and $excluderelkeys > 0) |
|
2091
|
0 |
0 |
if ($includerelkeys <= 0 and $excluderelkeys <= 0 and $includerelakeys > 0 || $excluderelakeys > 0) |
|
2098
|
0 |
0 |
if ($includereldefkeys <= 0 and $excludereldefkeys <= 0 and $includereladefkeys > 0 || $excludereladefkeys > 0) |
|
2108
|
0 |
0 |
if ($includerelkeys <= 0 and $excluderelkeys <= 0) |
|
2121
|
0 |
0 |
if ($includereldefkeys <= 0 and $excludereldefkeys <= 0) { } |
|
2147
|
0 |
0 |
if ($relations =~ /(PAR|CHD|RB|RN)/) { } |
|
2151
|
0 |
0 |
if ($includerelkeys > 0 || $excluderelkeys > 0 and $includerelakeys > 0 || $excluderelakeys > 0) |
|
2167
|
0 |
0 |
if ($reldefstring =~ /(PAR|CHD|RB|RN)/) { } |
|
2171
|
0 |
0 |
if ($includereldefkeys > 0 || $excludereldefkeys > 0 and $includereladefkeys > 0 || $excludereladefkeys > 0) |
|
2201
|
0 |
0 |
if ($debug) |
|
2202
|
0 |
0 |
if ($umlsall) { } |
|
2207
|
0 |
0 |
if ($sabdefsources eq '') { } |
|
2214
|
0 |
0 |
if ($reldefstring ne '') |
|
2282
|
0 |
0 |
unless (defined $self and ref $self) |
|
2288
|
0 |
0 |
unless ($db) |
|
2295
|
0 |
0 |
if (scalar @{$arrRef;} < 1) |
|
2314
|
0 |
0 |
unless (defined $self and ref $self) |
|
2320
|
0 |
0 |
unless ($db) |
|
2334
|
0 |
0 |
unless (defined $tables{'MRCONSO'} or defined $tables{'mrconso'}) |
|
2337
|
0 |
0 |
unless (defined $tables{'MRDEF'} or defined $tables{'mrdef'}) |
|
2340
|
0 |
0 |
unless (defined $tables{'SRDEF'} or defined $tables{'srdef'}) |
|
2343
|
0 |
0 |
unless (defined $tables{'MRREL'} or defined $tables{'mrrel'}) |
|
2346
|
0 |
0 |
unless (defined $tables{'MRDOC'} or defined $tables{'mrdoc'}) |
|
2349
|
0 |
0 |
if (not defined $tables{'MRSAB'} || defined $tables{'mrsab'}) |
|
2365
|
0 |
0 |
unless (defined $self and ref $self) |
|
2370
|
0 |
0 |
unless defined $params |
|
2379
|
0 |
0 |
if (defined $t) |
|
2385
|
0 |
0 |
if (defined $verbose or defined $cuilist or defined $debugoption or defined $config) |
|
2391
|
0 |
0 |
if (defined $debugoption) |
|
2397
|
0 |
0 |
if (defined $verbose) |
|
2404
|
0 |
0 |
if (defined $cuilist) |
|
2410
|
0 |
0 |
if (defined $config) |
|
2415
|
0 |
0 |
if ($option_t == 0) |
|
2432
|
0 |
22 |
unless (defined $self and ref $self) |
|
2437
|
0 |
22 |
unless defined $params |
|
2448
|
22 |
0 |
unless (defined $database) |
|
2449
|
22 |
0 |
unless (defined $socket) |
|
2450
|
22 |
0 |
unless (defined $hostname) |
|
2456
|
0 |
22 |
if (defined $username and defined $password) { } |
|
2457
|
0 |
0 |
if ($debug) |
|
2461
|
0 |
22 |
if ($debug) |
|
2470
|
0 |
0 |
unless ($db) |
|
2516
|
0 |
0 |
unless (defined $self and ref $self) |
|
2521
|
0 |
0 |
unless ($sab) |
|
2525
|
0 |
0 |
unless ($db) |
|
2556
|
0 |
0 |
unless (defined $self and ref $self) |
|
2561
|
0 |
0 |
unless ($sab) |
|
2565
|
0 |
0 |
unless ($db) |
|
2568
|
0 |
0 |
if ($sab eq 'UMLS_ALL') |
|
2575
|
0 |
0 |
if (scalar @{$arrRef;} < 1) |
|
2579
|
0 |
0 |
if (scalar @{$arrRef;} > 1) |
|
2596
|
0 |
0 |
unless (defined $self and ref $self) |
|
2600
|
0 |
0 |
if ($self) |
|
2602
|
0 |
0 |
if $db |
|
2619
|
0 |
66 |
if ($debug) |
|
2637
|
0 |
0 |
unless (defined $self and ref $self) |
|
2642
|
0 |
0 |
unless (defined $concept) |
|
2647
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
2652
|
0 |
0 |
if ($concept eq $umlsRoot) |
|
2655
|
0 |
0 |
if (exists $sabHash{$concept}) |
|
2659
|
0 |
0 |
unless ($db) |
|
2663
|
0 |
0 |
if ($umlsall) { } |
|
2676
|
0 |
0 |
if $count |
|
2694
|
0 |
0 |
unless (defined $self and ref $self) |
|
2699
|
0 |
0 |
unless (defined $concept) |
|
2703
|
0 |
0 |
unless (defined $rel) |
|
2708
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
2714
|
0 |
0 |
unless ($db) |
|
2718
|
0 |
0 |
if ($umlsall) { } |
|
2741
|
0 |
0 |
unless (defined $self and ref $self) |
|
2746
|
0 |
0 |
unless (defined $concept) |
|
2751
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
2759
|
0 |
0 |
if ($concept eq $umlsRoot) |
|
2767
|
0 |
0 |
unless ($db) |
|
2799
|
0 |
0 |
unless (defined $self and ref $self) |
|
2804
|
0 |
0 |
unless (defined $concept) |
|
2809
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
2817
|
0 |
0 |
if ($concept eq $umlsRoot) |
|
2825
|
0 |
0 |
unless ($db) |
|
2829
|
0 |
0 |
if ($umlsall) { } |
|
2866
|
0 |
0 |
unless (defined $self and ref $self) |
|
2871
|
0 |
0 |
unless (defined $concept) |
|
2876
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
2884
|
0 |
0 |
if ($concept eq $umlsRoot) |
|
2892
|
0 |
0 |
unless ($db) |
|
2896
|
0 |
0 |
if ($umlsall) { } |
|
2931
|
0 |
0 |
unless (defined $self and ref $self) |
|
2936
|
0 |
0 |
unless (defined $concept) |
|
2941
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
2949
|
0 |
0 |
if ($concept eq $umlsRoot) |
|
2957
|
0 |
0 |
unless ($db) |
|
2961
|
0 |
0 |
if ($sabdef_umlsall) { } |
|
2996
|
0 |
0 |
unless (defined $self and ref $self) |
|
3001
|
0 |
0 |
unless (defined $concept) |
|
3006
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
3014
|
0 |
0 |
if ($concept eq $umlsRoot) |
|
3022
|
0 |
0 |
unless ($db) |
|
3025
|
0 |
0 |
if ($sabdef_umlsall) { } |
|
3064
|
0 |
0 |
unless (defined $self and ref $self) |
|
3069
|
0 |
0 |
unless (defined $concept) |
|
3074
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
3082
|
0 |
0 |
if ($concept eq $umlsRoot) |
|
3090
|
0 |
0 |
unless ($db) |
|
3134
|
0 |
0 |
unless (defined $self and ref $self) |
|
3139
|
0 |
0 |
unless (defined $term) |
|
3148
|
0 |
0 |
unless ($db) |
|
3153
|
0 |
0 |
if ($umlsall) { } |
|
|
0 |
0 |
elsif ($sources ne '') { } |
|
3181
|
0 |
0 |
unless (defined $self and ref $self) |
|
3186
|
0 |
0 |
unless (defined $term) |
|
3195
|
0 |
0 |
unless ($db) |
|
3200
|
0 |
0 |
if ($sabdef_umlsall) { } |
|
|
0 |
0 |
elsif ($sabdefsources ne '') { } |
|
3227
|
0 |
0 |
unless (defined $self and ref $self) |
|
3232
|
0 |
0 |
unless (defined $term) |
|
3241
|
0 |
0 |
unless ($db) |
|
3264
|
0 |
0 |
unless (defined $self and ref $self) |
|
3270
|
0 |
0 |
unless ($db) |
|
3276
|
0 |
0 |
if ($umlsall) { } |
|
3284
|
0 |
0 |
if ($#array > 0) |
|
3301
|
0 |
0 |
if ($#array > 0) |
|
3324
|
0 |
0 |
unless (defined $self and ref $self) |
|
3330
|
0 |
0 |
if ($elements > 0) |
|
3336
|
0 |
0 |
unless ($db) |
|
3340
|
0 |
0 |
if ($umlsall) { } |
|
3381
|
0 |
0 |
unless (defined $self and ref $self) |
|
3402
|
0 |
0 |
unless (defined $self and ref $self) |
|
3407
|
0 |
0 |
unless (defined $concept) |
|
3412
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
3418
|
0 |
0 |
unless ($db) |
|
3461
|
0 |
0 |
unless (defined $self and ref $self) |
|
3466
|
0 |
0 |
unless (defined $concept) |
|
3471
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
3477
|
0 |
0 |
unless ($db) |
|
3481
|
0 |
0 |
if ($concept eq $umlsRoot) { } |
|
3489
|
0 |
0 |
if ($umlsall) { } |
|
3501
|
0 |
0 |
if (exists $childTaxonomyArray{$concept}) { } |
|
3525
|
0 |
0 |
unless (defined $self and ref $self) |
|
3530
|
0 |
0 |
unless (defined $concept) |
|
3535
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
3541
|
0 |
0 |
unless ($db) |
|
3544
|
0 |
0 |
if ($concept eq $umlsRoot) { } |
|
|
0 |
0 |
elsif (exists $sabHash{$concept} and $concept ne $umlsRoot) { } |
|
3557
|
0 |
0 |
if ($umlsall) { } |
|
3569
|
0 |
0 |
if (exists $parentTaxonomyArray{$concept}) { } |
|
3591
|
0 |
0 |
unless (defined $self and ref $self) |
|
3596
|
0 |
0 |
unless (defined $concept) |
|
3601
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
3607
|
0 |
0 |
unless ($db) |
|
3611
|
0 |
0 |
if ($umlsall) { } |
|
3638
|
0 |
0 |
unless (defined $self and ref $self) |
|
3643
|
0 |
0 |
unless (defined $concept1) |
|
3646
|
0 |
0 |
unless (defined $concept2) |
|
3651
|
0 |
0 |
unless ($errorhandler->_validCui($concept1)) |
|
3654
|
0 |
0 |
unless ($errorhandler->_validCui($concept2)) |
|
3659
|
0 |
0 |
unless ($db) |
|
3663
|
0 |
0 |
if ($concept1 eq $umlsRoot) |
|
3670
|
0 |
0 |
if ($umlsall) { } |
|
3702
|
0 |
0 |
unless (defined $self and ref $self) |
|
3707
|
0 |
0 |
unless (defined $concept) |
|
3712
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
3718
|
0 |
0 |
if ($concept =~ /C1274012/) |
|
3720
|
0 |
0 |
if ($concept =~ /C1274013/) |
|
3722
|
0 |
0 |
if ($concept =~ /C1276325/) |
|
3724
|
0 |
0 |
if ($concept =~ /C1274014/) |
|
3726
|
0 |
0 |
if ($concept =~ /C1274015/) |
|
3728
|
0 |
0 |
if ($concept =~ /C1274021/) |
|
3730
|
0 |
0 |
if ($concept =~ /C1443286/) |
|
3732
|
0 |
0 |
if ($concept =~ /C1274012/) |
|
3734
|
0 |
0 |
if ($concept =~ /C2733115/) |
|
3752
|
0 |
0 |
unless (defined $self and ref $self) |
|
3757
|
0 |
0 |
unless (defined $concept) |
|
3762
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
3768
|
0 |
0 |
unless ($db) |
|
3793
|
0 |
0 |
unless (defined $self and ref $self) |
|
3798
|
0 |
0 |
unless (defined $st1) |
|
3801
|
0 |
0 |
unless (defined $st2) |
|
3807
|
0 |
0 |
unless ($db) |
|
3834
|
0 |
0 |
unless (defined $self and ref $self) |
|
3839
|
0 |
0 |
unless (defined $st) |
|
3845
|
0 |
0 |
unless ($db) |
|
3869
|
0 |
0 |
unless (defined $self and ref $self) |
|
3874
|
0 |
0 |
unless (defined $tui) |
|
3879
|
0 |
0 |
if ($tui eq 'T000') |
|
3885
|
0 |
0 |
unless ($db) |
|
3909
|
0 |
0 |
unless (defined $self and ref $self) |
|
3914
|
0 |
0 |
unless (defined $abbrev) |
|
3920
|
0 |
0 |
unless ($db) |
|
3944
|
0 |
0 |
unless (defined $self and ref $self) |
|
3949
|
0 |
0 |
unless (defined $st) |
|
3955
|
0 |
0 |
unless ($db) |
|
3977
|
0 |
0 |
unless (defined $self and ref $self) |
|
3982
|
0 |
0 |
unless (defined $concept) |
|
4014
|
0 |
0 |
unless (defined $self and ref $self) |
|
4043
|
0 |
0 |
unless (defined $self and ref $self) |
|
4048
|
0 |
0 |
unless (defined $st) |
|
4081
|
0 |
0 |
unless (defined $self and ref $self) |
|
4086
|
0 |
0 |
unless (defined $concept) |
|
4090
|
0 |
0 |
unless (defined $rel) |
|
4095
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
4101
|
0 |
0 |
unless ($db) |
|
4105
|
0 |
0 |
unless ($umlsall) |
|
4106
|
0 |
0 |
if ($sabdefsources ne '') |
|
4111
|
0 |
0 |
if ($rel =~ /PAR|RB/ and $reladefparents ne '') |
|
4114
|
0 |
0 |
if ($rel =~ /CHD|RN/ and $reladefchildren ne '') |
|
4139
|
0 |
0 |
unless (defined $self and ref $self) |
|
4144
|
0 |
0 |
unless (defined $concept) |
|
4149
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
4155
|
0 |
0 |
unless ($db) |
|
4163
|
0 |
0 |
if ($dkeys <= 0 or exists $relDefHash{'ST'}) |
|
4172
|
0 |
0 |
if ($dkeys <= 0 or exists $relDefHash{'PAR'}) |
|
4184
|
0 |
0 |
if ($dkeys <= 0 or exists $relDefHash{'CHD'}) |
|
4196
|
0 |
0 |
if ($dkeys <= 0 or exists $relDefHash{'SIB'}) |
|
4208
|
0 |
0 |
if ($dkeys <= 0 or exists $relDefHash{'SYN'}) |
|
4220
|
0 |
0 |
if ($dkeys <= 0 or exists $relDefHash{'RB'}) |
|
4232
|
0 |
0 |
if ($dkeys <= 0 or exists $relDefHash{'RN'}) |
|
4244
|
0 |
0 |
if ($dkeys <= 0 or exists $relDefHash{'RO'}) |
|
4256
|
0 |
0 |
if ($dkeys <= 0 or exists $relDefHash{'CUI'}) |
|
4265
|
0 |
0 |
if ($dkeys <= 0 or exists $relDefHash{'TERM'}) |
|
4288
|
0 |
0 |
unless (defined $self and ref $self) |
|
4293
|
0 |
0 |
unless (defined $concept) |
|
4298
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
4304
|
0 |
0 |
unless ($db) |
|
4309
|
0 |
0 |
if ($sabdefsources ne '') { } |
|
4326
|
0 |
0 |
if (defined $sabflag) { } |
|
4344
|
0 |
0 |
unless (defined $self and ref $self) |
|
4512
|
0 |
0 |
unless (defined $self and ref $self) |
|
4518
|
0 |
0 |
unless ($sdb) |
|
4533
|
0 |
0 |
if (exists $tables{$intrinsicTable}) |
|
4537
|
0 |
0 |
if (exists $tables{$parentTable}) |
|
4541
|
0 |
0 |
if (exists $tables{$childTable}) |
|
4545
|
0 |
0 |
if (exists $tables{$cacheTable}) |
|
4549
|
0 |
0 |
if (exists $tables{$tableName}) |
|
4553
|
0 |
0 |
if (exists $tables{$infoTable}) |
|
4557
|
0 |
0 |
if (exists $tables{'tableindex'}) |
|
4590
|
0 |
0 |
unless (defined $self and ref $self) |
|
4595
|
0 |
0 |
if (-e $tableFile) |
|
4598
|
0 |
0 |
if (-e $childFile) |
|
4601
|
0 |
0 |
if (-e $parentFile) |
|
4604
|
0 |
0 |
if (-e $configFile) |
|
4623
|
0 |
0 |
unless (defined $self and ref $self) |
|
4628
|
0 |
0 |
unless (defined $concept) |
|
4633
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
4637
|
0 |
0 |
if (exists $parentTaxonomyArray{$concept}) { } |
|
4654
|
0 |
0 |
unless (defined $self and ref $self) |
|
4659
|
0 |
0 |
unless (defined $concept) |
|
4664
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
4668
|
0 |
0 |
if (exists $childTaxonomyArray{$concept}) { } |