| line |
true |
false |
branch |
|
153
|
0 |
22 |
unless (defined $errorhandler) |
|
270
|
0 |
22 |
unless (defined $self and ref $self) |
|
275
|
0 |
22 |
unless defined $params |
|
342
|
0 |
0 |
unless (defined $self and ref $self) |
|
348
|
0 |
0 |
unless ($sdb) |
|
352
|
0 |
0 |
if ($self->_checkTableExists($cacheTable)) { } |
|
377
|
0 |
0 |
unless (defined $self and ref $self) |
|
383
|
0 |
0 |
unless ($sdb) |
|
388
|
0 |
0 |
if ($pkeys > 0) |
|
392
|
0 |
0 |
if ($self->_checkTableExists($childTable) and $self->_checkTableExists($parentTable)) { } |
|
402
|
0 |
0 |
if (-e $childFile and -e $parentFile) { } |
|
425
|
0 |
0 |
unless (defined $self and ref $self) |
|
431
|
0 |
0 |
unless ($sdb) |
|
435
|
0 |
0 |
unless ($db) |
|
439
|
0 |
0 |
if ($option_verbose) |
|
440
|
0 |
0 |
unless open CHD, ">$childFile" |
|
441
|
0 |
0 |
unless open PAR, ">$parentFile" |
|
456
|
0 |
0 |
unless ($parentRelations =~ /\(\)/) |
|
469
|
0 |
0 |
if (exists $parCuisHash{$cui}) |
|
472
|
0 |
0 |
if (exists $parentTaxonomyArray{$cui}) |
|
475
|
0 |
0 |
if ($sab_cui eq $cui) |
|
488
|
0 |
0 |
if ($option_verbose) |
|
499
|
0 |
0 |
if ($option_verbose) |
|
513
|
0 |
0 |
if ($option_verbose) |
|
519
|
0 |
0 |
if ($debug) |
|
538
|
0 |
0 |
unless (defined $self and ref $self) |
|
544
|
0 |
0 |
unless ($sdb) |
|
589
|
0 |
0 |
unless (defined $self and ref $self) |
|
595
|
0 |
0 |
unless ($sdb) |
|
597
|
0 |
0 |
unless open PAR, $parentFile |
|
598
|
0 |
0 |
unless open CHD, $childFile |
|
603
|
0 |
0 |
if ($_ =~ /^\s*$/) |
|
613
|
0 |
0 |
if ($_ =~ /^\s*$/) |
|
632
|
0 |
0 |
unless (defined $self and ref $self) |
|
638
|
0 |
0 |
unless ($sdb) |
|
676
|
0 |
0 |
unless (defined $self and ref $self) |
|
680
|
0 |
0 |
unless (defined $table) |
|
686
|
0 |
0 |
unless ($sdb) |
|
700
|
0 |
0 |
if (not exists $tables{lc $table}) { } |
|
718
|
0 |
0 |
unless (defined $self and ref $self) |
|
723
|
0 |
0 |
if (defined $self->{'username'}) { } |
|
734
|
0 |
0 |
if ($@) |
|
739
|
0 |
0 |
if ($@) |
|
764
|
0 |
0 |
unless (defined $self and ref $self) |
|
770
|
0 |
0 |
unless ($sdb) |
|
786
|
0 |
0 |
unless (defined $self and ref $self) |
|
792
|
0 |
0 |
unless ($db) |
|
809
|
0 |
0 |
unless (defined $self and ref $self) |
|
815
|
0 |
0 |
unless ($db) |
|
835
|
0 |
0 |
if (not exists $databases{$indexDB}) |
|
852
|
0 |
0 |
unless (defined $self and ref $self) |
|
857
|
0 |
0 |
unless (defined $concept) |
|
863
|
0 |
0 |
unless ($db) |
|
884
|
0 |
0 |
unless (defined $self and ref $self) |
|
889
|
0 |
0 |
unless (defined $concept) |
|
893
|
0 |
0 |
if (exists $cuiListHash{$concept}) { } |
|
909
|
0 |
0 |
unless (defined $self and ref $self) |
|
913
|
0 |
0 |
if (defined $cuilist) |
|
914
|
0 |
0 |
unless open CUILIST, $cuilist |
|
918
|
0 |
0 |
unless ($errorhandler->_validCui($_)) |
|
934
|
0 |
0 |
if ($option_verbose) |
|
939
|
0 |
0 |
unless (defined $self and ref $self) |
|
943
|
0 |
0 |
if (not -e $configFile) |
|
945
|
0 |
0 |
unless open CONFIG, ">$configFile" |
|
980
|
0 |
0 |
unless (defined $self and ref $self) |
|
1011
|
0 |
0 |
if ($defflag == 1) { } |
|
1034
|
0 |
0 |
if ($umlsall) { } |
|
1045
|
0 |
0 |
if ($defflag == 1) { } |
|
1053
|
0 |
0 |
if ($rel =~ /[a-z\_]+/) { } |
|
1074
|
0 |
0 |
if ($rak > 0) |
|
1075
|
0 |
0 |
if ($defflag == 1) { } |
|
1124
|
0 |
0 |
if ($option_verbose) |
|
1132
|
0 |
0 |
if ($option_t == 0) |
|
1133
|
0 |
0 |
if ($option_config) { } |
|
1163
|
0 |
0 |
unless (defined $self and ref $self) |
|
1167
|
0 |
0 |
if ($option_verbose) { } |
|
1168
|
0 |
0 |
if (not defined $umlsinterface) |
|
1184
|
0 |
0 |
if ($answer =~ /[Yy]/) { } |
|
1194
|
0 |
0 |
unless (-e $umlsinterface) |
|
1231
|
0 |
0 |
unless (defined $self and ref $self) |
|
1236
|
0 |
0 |
unless (defined $includerelkeys and defined $excluderelkeys and defined $includerel and defined $excluderel) |
|
1241
|
0 |
0 |
if ($includerelkeys <= 0 and $excluderelkeys <= 0) |
|
1247
|
0 |
0 |
if (exists do {
$includerel
}->{'UMLS_ALL'}) |
|
1255
|
0 |
0 |
unless ($db) |
|
1263
|
0 |
0 |
if ($includerelkeys > 0) { } |
|
1282
|
0 |
0 |
if ($excluderelkeys > 0 and exists do {
$excluderel
}->{$rel}) |
|
1285
|
0 |
0 |
if ($relcount == $#array + 1) { } |
|
1289
|
0 |
0 |
if ($rel =~ /(PAR|RB)/) { } |
|
|
0 |
0 |
elsif ($rel =~ /(CHD|RN)/) { } |
|
1296
|
0 |
0 |
if ($#parents >= 0) |
|
1301
|
0 |
0 |
if ($#children >= 0) |
|
1331
|
0 |
0 |
unless (defined $self and ref $self) |
|
1336
|
0 |
0 |
unless (defined $includesabdefkeys and defined $excludesabdefkeys and defined $includesabdef and defined $excludesabdef) |
|
1341
|
0 |
0 |
if ($includesabdefkeys <= 0 and $excludesabdefkeys <= 0) |
|
1349
|
0 |
0 |
if (exists do {
$includesabdef
}->{'UMLS_ALL'}) |
|
1357
|
0 |
0 |
unless ($db) |
|
1361
|
0 |
0 |
if ($includesabdefkeys > 0) { } |
|
1376
|
0 |
0 |
if ($excludesabdefkeys > 0 and exists do {
$excludesabdef
}->{$sab}) |
|
1384
|
0 |
0 |
if (not $sabdef_umlsall) |
|
1409
|
0 |
0 |
unless (defined $self and ref $self) |
|
1414
|
0 |
0 |
unless (defined $includereldefkeys and defined $excludereldefkeys and defined $includereldef and defined $excludereldef) |
|
1419
|
0 |
0 |
if ($includereldefkeys <= 0 and $excludereldefkeys <= 0) |
|
1425
|
0 |
0 |
if (exists do {
$includereldef
}->{'UMLS_ALL'}) |
|
1432
|
0 |
0 |
unless ($db) |
|
1436
|
0 |
0 |
if ($includereldefkeys > 0) { } |
|
1453
|
0 |
0 |
if ($excludereldefkeys > 0 and exists do {
$excludereldef
}->{$rel}) |
|
1463
|
0 |
0 |
if ($includereldefkeys > 0) { } |
|
|
0 |
0 |
elsif ($excludereldefkeys > 0) { } |
|
1464
|
0 |
0 |
if (exists do {
$includereldef
}->{'TERM'}) |
|
1465
|
0 |
0 |
if (exists do {
$includereldef
}->{'CUI'}) |
|
1466
|
0 |
0 |
if (exists do {
$includereldef
}->{'ST'}) |
|
1469
|
0 |
0 |
unless (exists do {
$excludereldef
}->{'TERM'}) |
|
1470
|
0 |
0 |
unless (exists do {
$excludereldef
}->{'CUI'}) |
|
1471
|
0 |
0 |
if (not exists do {
$excludereldef
}->{'ST'}) |
|
1489
|
0 |
0 |
unless (defined $self and ref $self) |
|
1495
|
0 |
0 |
unless ($db) |
|
1526
|
0 |
0 |
unless (defined $self and ref $self) |
|
1531
|
0 |
0 |
unless (defined $includesabkeys and defined $excludesabkeys and defined $includesab and defined $excludesab) |
|
1537
|
0 |
0 |
if ($includesabkeys <= 0 and $excludesabkeys <= 0) |
|
1546
|
0 |
0 |
if (exists do {
$includesab
}->{'UMLS_ALL'}) |
|
1556
|
0 |
0 |
unless ($db) |
|
1560
|
0 |
0 |
if ($includesabkeys > 0) { } |
|
1575
|
0 |
0 |
if ($excludesabkeys > 0 and exists do {
$excludesab
}->{$sab}) |
|
1578
|
0 |
0 |
if ($sabcount == $#array + 1) { } |
|
1608
|
0 |
0 |
unless (defined $self and ref $self) |
|
1613
|
0 |
0 |
unless (defined $includerelakeys and defined $excluderelakeys and defined $includerela and defined $excluderela) |
|
1619
|
0 |
0 |
if ($includerelakeys <= 0 and $excluderelakeys <= 0) |
|
1623
|
0 |
0 |
unless ($db) |
|
1631
|
0 |
0 |
if ($relations =~ /PAR/) { } |
|
|
0 |
0 |
elsif ($relations =~ /RB/) { } |
|
1632
|
0 |
0 |
if ($relations =~ /RB/) { } |
|
1639
|
0 |
0 |
if ($relations =~ /CHD/) { } |
|
|
0 |
0 |
elsif ($relations =~ /RB/) { } |
|
1640
|
0 |
0 |
if ($relations =~ /RN/) { } |
|
1648
|
0 |
0 |
if ($umlsall) { } |
|
1662
|
0 |
0 |
if (defined $crela) |
|
1663
|
0 |
0 |
if ($crela ne 'NULL') |
|
1671
|
0 |
0 |
if ($crelakeys <= 0) |
|
1681
|
0 |
0 |
if ($umlsall) { } |
|
1695
|
0 |
0 |
if (defined $prela) |
|
1696
|
0 |
0 |
if ($prela ne 'NULL') |
|
1704
|
0 |
0 |
if ($prelakeys <= 0) |
|
1713
|
0 |
0 |
if ($includerelakeys > 0) { } |
|
1735
|
0 |
0 |
if ($excluderelakeys > 0 and exists do {
$excluderela
}->{$r}) |
|
1739
|
0 |
0 |
if (exists $childrelas{$r}) { } |
|
|
0 |
0 |
elsif (exists $parentrelas{$r}) { } |
|
1747
|
0 |
0 |
if ($#newrelations >= 0) |
|
1756
|
0 |
0 |
if ($parentRelations =~ /PAR/) |
|
1760
|
0 |
0 |
if ($parentRelations =~ /RB/) |
|
1765
|
0 |
0 |
if ($childRelations =~ /CHD/) |
|
1769
|
0 |
0 |
if ($childRelations =~ /RN/) |
|
1794
|
0 |
0 |
unless (defined $self and ref $self) |
|
1799
|
0 |
0 |
unless (defined $includereladefkeys and defined $excludereladefkeys and defined $includereladef and defined $excludereladef) |
|
1805
|
0 |
0 |
if ($includereladefkeys <= 0 and $excludereladefkeys <= 0) |
|
1809
|
0 |
0 |
unless ($db) |
|
1817
|
0 |
0 |
if ($reldefstring =~ /PAR/) { } |
|
|
0 |
0 |
elsif ($reldefstring =~ /RB/) { } |
|
1818
|
0 |
0 |
if ($reldefstring =~ /RB/) { } |
|
1825
|
0 |
0 |
if ($reldefstring =~ /CHD/) { } |
|
|
0 |
0 |
elsif ($reldefstring =~ /RB/) { } |
|
1826
|
0 |
0 |
if ($reldefstring =~ /RN/) { } |
|
1834
|
0 |
0 |
if ($umlsall) { } |
|
1848
|
0 |
0 |
if (defined $crela) |
|
1849
|
0 |
0 |
if ($crela ne 'NULL') |
|
1857
|
0 |
0 |
if ($crelakeys <= 0) |
|
1866
|
0 |
0 |
if ($umlsall) { } |
|
1880
|
0 |
0 |
if (defined $prela) |
|
1881
|
0 |
0 |
if ($prela ne 'NULL') |
|
1889
|
0 |
0 |
if ($prelakeys <= 0) |
|
1898
|
0 |
0 |
if ($includereladefkeys > 0) { } |
|
1920
|
0 |
0 |
if ($excludereladefkeys > 0 and exists do {
$excludereladef
}->{$r}) |
|
1924
|
0 |
0 |
if (exists $childrelas{$r}) { } |
|
|
0 |
0 |
elsif (exists $parentrelas{$r}) { } |
|
1932
|
0 |
0 |
if ($#newrelations >= 0) |
|
1955
|
0 |
0 |
unless (defined $self and ref $self) |
|
1968
|
0 |
0 |
if (defined $file) |
|
1969
|
0 |
0 |
unless open FILE, $file |
|
1973
|
0 |
0 |
if ($_ =~ /^\s*$/) |
|
1975
|
0 |
0 |
if ($_ =~ /([A-Z]+)\s*\:\:\s*(include|exclude)\s+(.*)/) { } |
|
1991
|
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') { } |
|
2050
|
0 |
0 |
if (exists $includerela{'UMLS_ALL'}) |
|
2051
|
0 |
0 |
if (exists $includereladef{'UMLS_ALL'}) |
|
2067
|
0 |
0 |
if (not exists $check{'SAB'} and exists $check{'REL'} or not exists $check{'REL'} and exists $check{'SAB'}) |
|
2074
|
0 |
0 |
if (not exists $check{'SABDEF'} and exists $check{'RELDEF'} or not exists $check{'RELDEF'} and exists $check{'SABDEF'}) |
|
2081
|
0 |
0 |
if ($includesabkeys > 0 and $excludesabkeys > 0) |
|
2087
|
0 |
0 |
if ($includerelkeys > 0 and $excluderelkeys > 0) |
|
2093
|
0 |
0 |
if ($includerelkeys <= 0 and $excluderelkeys <= 0 and $includerelakeys > 0 || $excluderelakeys > 0) |
|
2100
|
0 |
0 |
if ($includereldefkeys <= 0 and $excludereldefkeys <= 0 and $includereladefkeys > 0 || $excludereladefkeys > 0) |
|
2110
|
0 |
0 |
if ($includerelkeys <= 0 and $excluderelkeys <= 0) |
|
2123
|
0 |
0 |
if ($includereldefkeys <= 0 and $excludereldefkeys <= 0) { } |
|
2149
|
0 |
0 |
if ($relations =~ /(PAR|CHD|RB|RN)/) { } |
|
2153
|
0 |
0 |
if ($includerelkeys > 0 || $excluderelkeys > 0 and $includerelakeys > 0 || $excluderelakeys > 0) |
|
2169
|
0 |
0 |
if ($reldefstring =~ /(PAR|CHD|RB|RN)/) { } |
|
2173
|
0 |
0 |
if ($includereldefkeys > 0 || $excludereldefkeys > 0 and $includereladefkeys > 0 || $excludereladefkeys > 0) |
|
2203
|
0 |
0 |
if ($debug) |
|
2204
|
0 |
0 |
if ($umlsall) { } |
|
2209
|
0 |
0 |
if ($sabdefsources eq '') { } |
|
2216
|
0 |
0 |
if ($reldefstring ne '') |
|
2284
|
0 |
0 |
unless (defined $self and ref $self) |
|
2290
|
0 |
0 |
unless ($db) |
|
2297
|
0 |
0 |
if (scalar @{$arrRef;} < 1) |
|
2316
|
0 |
0 |
unless (defined $self and ref $self) |
|
2322
|
0 |
0 |
unless ($db) |
|
2336
|
0 |
0 |
unless (defined $tables{'MRCONSO'} or defined $tables{'mrconso'}) |
|
2339
|
0 |
0 |
unless (defined $tables{'MRDEF'} or defined $tables{'mrdef'}) |
|
2342
|
0 |
0 |
unless (defined $tables{'SRDEF'} or defined $tables{'srdef'}) |
|
2345
|
0 |
0 |
unless (defined $tables{'MRREL'} or defined $tables{'mrrel'}) |
|
2348
|
0 |
0 |
unless (defined $tables{'MRDOC'} or defined $tables{'mrdoc'}) |
|
2351
|
0 |
0 |
if (not defined $tables{'MRSAB'} || defined $tables{'mrsab'}) |
|
2367
|
0 |
0 |
unless (defined $self and ref $self) |
|
2372
|
0 |
0 |
unless defined $params |
|
2381
|
0 |
0 |
if (defined $t) |
|
2387
|
0 |
0 |
if (defined $verbose or defined $cuilist or defined $debugoption or defined $config) |
|
2393
|
0 |
0 |
if (defined $debugoption) |
|
2399
|
0 |
0 |
if (defined $verbose) |
|
2406
|
0 |
0 |
if (defined $cuilist) |
|
2412
|
0 |
0 |
if (defined $config) |
|
2417
|
0 |
0 |
if ($option_t == 0) |
|
2434
|
0 |
22 |
unless (defined $self and ref $self) |
|
2439
|
0 |
22 |
unless defined $params |
|
2450
|
22 |
0 |
unless (defined $database) |
|
2451
|
22 |
0 |
unless (defined $socket) |
|
2452
|
22 |
0 |
unless (defined $hostname) |
|
2458
|
0 |
22 |
if (defined $username and defined $password) { } |
|
2459
|
0 |
0 |
if ($debug) |
|
2463
|
0 |
22 |
if ($debug) |
|
2472
|
0 |
0 |
unless ($db) |
|
2518
|
0 |
0 |
unless (defined $self and ref $self) |
|
2523
|
0 |
0 |
unless ($sab) |
|
2527
|
0 |
0 |
unless ($db) |
|
2558
|
0 |
0 |
unless (defined $self and ref $self) |
|
2563
|
0 |
0 |
unless ($sab) |
|
2567
|
0 |
0 |
unless ($db) |
|
2570
|
0 |
0 |
if ($sab eq 'UMLS_ALL') |
|
2577
|
0 |
0 |
if (scalar @{$arrRef;} < 1) |
|
2581
|
0 |
0 |
if (scalar @{$arrRef;} > 1) |
|
2598
|
0 |
0 |
unless (defined $self and ref $self) |
|
2602
|
0 |
0 |
if ($self) |
|
2604
|
0 |
0 |
if $db |
|
2621
|
0 |
66 |
if ($debug) |
|
2639
|
0 |
0 |
unless (defined $self and ref $self) |
|
2644
|
0 |
0 |
unless (defined $concept) |
|
2649
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
2654
|
0 |
0 |
if ($concept eq $umlsRoot) |
|
2657
|
0 |
0 |
if (exists $sabHash{$concept}) |
|
2661
|
0 |
0 |
unless ($db) |
|
2665
|
0 |
0 |
if ($umlsall) { } |
|
2678
|
0 |
0 |
if $count |
|
2696
|
0 |
0 |
unless (defined $self and ref $self) |
|
2701
|
0 |
0 |
unless (defined $concept) |
|
2705
|
0 |
0 |
unless (defined $rel) |
|
2710
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
2716
|
0 |
0 |
unless ($db) |
|
2720
|
0 |
0 |
if ($umlsall) { } |
|
2743
|
0 |
0 |
unless (defined $self and ref $self) |
|
2748
|
0 |
0 |
unless (defined $concept) |
|
2753
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
2761
|
0 |
0 |
if ($concept eq $umlsRoot) |
|
2769
|
0 |
0 |
unless ($db) |
|
2801
|
0 |
0 |
unless (defined $self and ref $self) |
|
2806
|
0 |
0 |
unless (defined $concept) |
|
2811
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
2819
|
0 |
0 |
if ($concept eq $umlsRoot) |
|
2827
|
0 |
0 |
unless ($db) |
|
2831
|
0 |
0 |
if ($umlsall) { } |
|
2868
|
0 |
0 |
unless (defined $self and ref $self) |
|
2873
|
0 |
0 |
unless (defined $concept) |
|
2878
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
2886
|
0 |
0 |
if ($concept eq $umlsRoot) |
|
2894
|
0 |
0 |
unless ($db) |
|
2898
|
0 |
0 |
if ($umlsall) { } |
|
2933
|
0 |
0 |
unless (defined $self and ref $self) |
|
2938
|
0 |
0 |
unless (defined $concept) |
|
2943
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
2951
|
0 |
0 |
if ($concept eq $umlsRoot) |
|
2959
|
0 |
0 |
unless ($db) |
|
2963
|
0 |
0 |
if ($sabdef_umlsall) { } |
|
2998
|
0 |
0 |
unless (defined $self and ref $self) |
|
3003
|
0 |
0 |
unless (defined $concept) |
|
3008
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
3016
|
0 |
0 |
if ($concept eq $umlsRoot) |
|
3024
|
0 |
0 |
unless ($db) |
|
3027
|
0 |
0 |
if ($sabdef_umlsall) { } |
|
3066
|
0 |
0 |
unless (defined $self and ref $self) |
|
3071
|
0 |
0 |
unless (defined $concept) |
|
3076
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
3084
|
0 |
0 |
if ($concept eq $umlsRoot) |
|
3092
|
0 |
0 |
unless ($db) |
|
3136
|
0 |
0 |
unless (defined $self and ref $self) |
|
3141
|
0 |
0 |
unless (defined $term) |
|
3150
|
0 |
0 |
unless ($db) |
|
3155
|
0 |
0 |
if ($umlsall) { } |
|
|
0 |
0 |
elsif ($sources ne '') { } |
|
3183
|
0 |
0 |
unless (defined $self and ref $self) |
|
3188
|
0 |
0 |
unless (defined $term) |
|
3197
|
0 |
0 |
unless ($db) |
|
3202
|
0 |
0 |
if ($sabdef_umlsall) { } |
|
|
0 |
0 |
elsif ($sabdefsources ne '') { } |
|
3229
|
0 |
0 |
unless (defined $self and ref $self) |
|
3234
|
0 |
0 |
unless (defined $term) |
|
3243
|
0 |
0 |
unless ($db) |
|
3266
|
0 |
0 |
unless (defined $self and ref $self) |
|
3272
|
0 |
0 |
unless ($db) |
|
3278
|
0 |
0 |
if ($umlsall) { } |
|
3286
|
0 |
0 |
if ($#array > 0) |
|
3303
|
0 |
0 |
if ($#array > 0) |
|
3326
|
0 |
0 |
unless (defined $self and ref $self) |
|
3332
|
0 |
0 |
if ($elements > 0) |
|
3338
|
0 |
0 |
unless ($db) |
|
3342
|
0 |
0 |
if ($umlsall) { } |
|
3383
|
0 |
0 |
unless (defined $self and ref $self) |
|
3404
|
0 |
0 |
unless (defined $self and ref $self) |
|
3409
|
0 |
0 |
unless (defined $concept) |
|
3414
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
3420
|
0 |
0 |
unless ($db) |
|
3463
|
0 |
0 |
unless (defined $self and ref $self) |
|
3468
|
0 |
0 |
unless (defined $concept) |
|
3473
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
3479
|
0 |
0 |
unless ($db) |
|
3483
|
0 |
0 |
if ($concept eq $umlsRoot) { } |
|
3491
|
0 |
0 |
if ($umlsall) { } |
|
3503
|
0 |
0 |
if (exists $childTaxonomyArray{$concept}) { } |
|
3527
|
0 |
0 |
unless (defined $self and ref $self) |
|
3532
|
0 |
0 |
unless (defined $concept) |
|
3537
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
3543
|
0 |
0 |
unless ($db) |
|
3546
|
0 |
0 |
if ($concept eq $umlsRoot) { } |
|
|
0 |
0 |
elsif (exists $sabHash{$concept} and $concept ne $umlsRoot) { } |
|
3559
|
0 |
0 |
if ($umlsall) { } |
|
3571
|
0 |
0 |
if (exists $parentTaxonomyArray{$concept}) { } |
|
3593
|
0 |
0 |
unless (defined $self and ref $self) |
|
3598
|
0 |
0 |
unless (defined $concept) |
|
3603
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
3609
|
0 |
0 |
unless ($db) |
|
3613
|
0 |
0 |
if ($umlsall) { } |
|
3640
|
0 |
0 |
unless (defined $self and ref $self) |
|
3645
|
0 |
0 |
unless (defined $concept1) |
|
3648
|
0 |
0 |
unless (defined $concept2) |
|
3653
|
0 |
0 |
unless ($errorhandler->_validCui($concept1)) |
|
3656
|
0 |
0 |
unless ($errorhandler->_validCui($concept2)) |
|
3661
|
0 |
0 |
unless ($db) |
|
3665
|
0 |
0 |
if ($concept1 eq $umlsRoot) |
|
3672
|
0 |
0 |
if ($umlsall) { } |
|
3704
|
0 |
0 |
unless (defined $self and ref $self) |
|
3709
|
0 |
0 |
unless (defined $concept) |
|
3714
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
3720
|
0 |
0 |
if ($concept =~ /C1274012/) |
|
3722
|
0 |
0 |
if ($concept =~ /C1274013/) |
|
3724
|
0 |
0 |
if ($concept =~ /C1276325/) |
|
3726
|
0 |
0 |
if ($concept =~ /C1274014/) |
|
3728
|
0 |
0 |
if ($concept =~ /C1274015/) |
|
3730
|
0 |
0 |
if ($concept =~ /C1274021/) |
|
3732
|
0 |
0 |
if ($concept =~ /C1443286/) |
|
3734
|
0 |
0 |
if ($concept =~ /C1274012/) |
|
3736
|
0 |
0 |
if ($concept =~ /C2733115/) |
|
3754
|
0 |
0 |
unless (defined $self and ref $self) |
|
3759
|
0 |
0 |
unless (defined $concept) |
|
3764
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
3770
|
0 |
0 |
unless ($db) |
|
3794
|
0 |
0 |
unless (defined $self and ref $self) |
|
3800
|
0 |
0 |
unless ($db) |
|
3804
|
0 |
0 |
if (exists $sgConversion{$sg}) { } |
|
3814
|
0 |
0 |
if ($string eq $group) |
|
3838
|
0 |
0 |
unless (defined $self and ref $self) |
|
3844
|
0 |
0 |
unless ($db) |
|
3869
|
0 |
0 |
unless (defined $self and ref $self) |
|
3874
|
0 |
0 |
unless (defined $st1) |
|
3877
|
0 |
0 |
unless (defined $st2) |
|
3883
|
0 |
0 |
unless ($db) |
|
3910
|
0 |
0 |
unless (defined $self and ref $self) |
|
3915
|
0 |
0 |
unless (defined $st) |
|
3921
|
0 |
0 |
unless ($db) |
|
3945
|
0 |
0 |
unless (defined $self and ref $self) |
|
3950
|
0 |
0 |
unless (defined $tui) |
|
3955
|
0 |
0 |
if ($tui eq 'T000') |
|
3961
|
0 |
0 |
unless ($db) |
|
3985
|
0 |
0 |
unless (defined $self and ref $self) |
|
3990
|
0 |
0 |
unless (defined $abbrev) |
|
3996
|
0 |
0 |
unless ($db) |
|
4020
|
0 |
0 |
unless (defined $self and ref $self) |
|
4025
|
0 |
0 |
unless (defined $st) |
|
4031
|
0 |
0 |
unless ($db) |
|
4053
|
0 |
0 |
unless (defined $self and ref $self) |
|
4058
|
0 |
0 |
unless (defined $concept) |
|
4091
|
0 |
0 |
unless (defined $self and ref $self) |
|
4122
|
0 |
0 |
unless (defined $self and ref $self) |
|
4151
|
0 |
0 |
unless (defined $self and ref $self) |
|
4156
|
0 |
0 |
unless (defined $st) |
|
4189
|
0 |
0 |
unless (defined $self and ref $self) |
|
4194
|
0 |
0 |
unless (defined $concept) |
|
4198
|
0 |
0 |
unless (defined $rel) |
|
4203
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
4209
|
0 |
0 |
unless ($db) |
|
4213
|
0 |
0 |
unless ($umlsall) |
|
4214
|
0 |
0 |
if ($sabdefsources ne '') |
|
4219
|
0 |
0 |
if ($rel =~ /PAR|RB/ and $reladefparents ne '') |
|
4222
|
0 |
0 |
if ($rel =~ /CHD|RN/ and $reladefchildren ne '') |
|
4247
|
0 |
0 |
unless (defined $self and ref $self) |
|
4252
|
0 |
0 |
unless (defined $concept) |
|
4257
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
4263
|
0 |
0 |
unless ($db) |
|
4271
|
0 |
0 |
if ($dkeys <= 0 or exists $relDefHash{'ST'}) |
|
4280
|
0 |
0 |
if ($dkeys <= 0 or exists $relDefHash{'PAR'}) |
|
4292
|
0 |
0 |
if ($dkeys <= 0 or exists $relDefHash{'CHD'}) |
|
4304
|
0 |
0 |
if ($dkeys <= 0 or exists $relDefHash{'SIB'}) |
|
4316
|
0 |
0 |
if ($dkeys <= 0 or exists $relDefHash{'SYN'}) |
|
4328
|
0 |
0 |
if ($dkeys <= 0 or exists $relDefHash{'RB'}) |
|
4340
|
0 |
0 |
if ($dkeys <= 0 or exists $relDefHash{'RN'}) |
|
4352
|
0 |
0 |
if ($dkeys <= 0 or exists $relDefHash{'RO'}) |
|
4364
|
0 |
0 |
if ($dkeys <= 0 or exists $relDefHash{'CUI'}) |
|
4373
|
0 |
0 |
if ($dkeys <= 0 or exists $relDefHash{'TERM'}) |
|
4396
|
0 |
0 |
unless (defined $self and ref $self) |
|
4401
|
0 |
0 |
unless (defined $concept) |
|
4406
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
4412
|
0 |
0 |
unless ($db) |
|
4417
|
0 |
0 |
if ($sabdefsources ne '') { } |
|
4434
|
0 |
0 |
if (defined $sabflag) { } |
|
4452
|
0 |
0 |
unless (defined $self and ref $self) |
|
4652
|
0 |
0 |
unless (defined $self and ref $self) |
|
4658
|
0 |
0 |
unless ($sdb) |
|
4673
|
0 |
0 |
if (exists $tables{$intrinsicTable}) |
|
4677
|
0 |
0 |
if (exists $tables{$parentTable}) |
|
4681
|
0 |
0 |
if (exists $tables{$childTable}) |
|
4685
|
0 |
0 |
if (exists $tables{$cacheTable}) |
|
4689
|
0 |
0 |
if (exists $tables{$tableName}) |
|
4693
|
0 |
0 |
if (exists $tables{$infoTable}) |
|
4697
|
0 |
0 |
if (exists $tables{'tableindex'}) |
|
4730
|
0 |
0 |
unless (defined $self and ref $self) |
|
4735
|
0 |
0 |
if (-e $tableFile) |
|
4738
|
0 |
0 |
if (-e $childFile) |
|
4741
|
0 |
0 |
if (-e $parentFile) |
|
4744
|
0 |
0 |
if (-e $configFile) |
|
4763
|
0 |
0 |
unless (defined $self and ref $self) |
|
4768
|
0 |
0 |
unless (defined $concept) |
|
4773
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
4777
|
0 |
0 |
if (exists $parentTaxonomyArray{$concept}) { } |
|
4794
|
0 |
0 |
unless (defined $self and ref $self) |
|
4799
|
0 |
0 |
unless (defined $concept) |
|
4804
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
|
4808
|
0 |
0 |
if (exists $childTaxonomyArray{$concept}) { } |