| line |
true |
false |
branch |
|
20
|
0 |
0 |
$_[0] >= 78 ? : |
|
56
|
0 |
0 |
unless my $code = $args{'code'} |
|
64
|
0 |
0 |
unless $code =~ /\A([A-Z]+)([0-9A-Z]+)\z/ |
|
70
|
0 |
0 |
if ($res->{'category_code'} =~ /\AM[DL]\z/) { } |
|
|
0 |
0 |
elsif ($res->{'category_code'} =~ /\A[DG](.?)(.?)\z/) { } |
|
|
0 |
0 |
elsif ($res->{'category_code'} =~ /\AS[DIL]\z/) { } |
|
|
0 |
0 |
elsif ($res->{'category_code'} =~ /\AN(.?)\z/) { } |
|
|
0 |
0 |
elsif ($res->{'category_code'} =~ /\AB?T(.)\z/) { } |
|
|
0 |
0 |
elsif ($res->{'category_code'} =~ /\AFF\z/) { } |
|
|
0 |
0 |
elsif ($res->{'category_code'} =~ /\AHT\z/) { } |
|
72
|
0 |
0 |
$res->{'category_code'} eq 'MD' ? : |
|
73
|
0 |
0 |
if (length $res->{'number'} == 12) { } |
|
|
0 |
0 |
elsif (length $res->{'number'} == 15) { } |
|
74
|
0 |
0 |
unless $res->{'number'} =~ /\A([0-9])([0-9]{3})([0-9]{2})([0-9]{3})([0-9]{3})\z/ |
|
85
|
0 |
0 |
unless $res->{'number'} =~ /\A([0-9]{1})([0-9]{1})([0-9]{2})([0-9]{2})([0-9]{4})([0-9]{5})\z/ |
|
91
|
0 |
0 |
$1 == 1 ? : |
|
|
0 |
0 |
$1 == 0 ? : |
|
106
|
0 |
0 |
$res->{'category_code'} =~ /\AD/ ? : |
|
107
|
0 |
0 |
if ($res->{'drug_category_code'} eq 'B') { } |
|
|
0 |
0 |
elsif ($res->{'drug_category_code'} eq 'T') { } |
|
|
0 |
0 |
elsif ($res->{'drug_category_code'} eq 'K') { } |
|
|
0 |
0 |
elsif ($res->{'drug_category_code'} eq 'N') { } |
|
|
0 |
0 |
elsif ($res->{'drug_category_code'} eq 'P') { } |
|
114
|
0 |
0 |
if ($res->{'drug_origin_code'} eq 'L') { } |
|
|
0 |
0 |
elsif ($res->{'drug_origin_code'} eq 'I') { } |
|
|
0 |
0 |
elsif ($res->{'drug_origin_code'} eq 'E') { } |
|
|
0 |
0 |
elsif ($res->{'drug_origin_code'} eq 'X') { } |
|
120
|
0 |
0 |
unless $res->{'number'} =~ /\A([0-9]{2})([0-9]{3})([0-9]{3})([0-9]{2})([A-Z])([0-9])\z/ |
|
129
|
0 |
0 |
if ($res->{'drug_dosage_form_code'} eq '01') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '02') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '04') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '09') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '10') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '11') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '12') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '14') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '15') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '16') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '17') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '22') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '23') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '24') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '28') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '29') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '30') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '31') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '32') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '33') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '34') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '36') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '37') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '38') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '41') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '43') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '44') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '46') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '47') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '48') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '49') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '53') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '56') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '58') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '62') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '63') { } |
|
|
0 |
0 |
elsif ($res->{'drug_dosage_form_code'} eq '81') { } |
|
172
|
0 |
0 |
$res->{'category_code'} eq 'SI' ? : |
|
|
0 |
0 |
$res->{'category_code'} eq 'SD' ? : |
|
175
|
0 |
0 |
unless $res->{'number'} =~ /\A([0-9]{9})\z/ |
|
182
|
0 |
0 |
if ($res->{'cosmetic_category_code'} eq 'A') { } |
|
|
0 |
0 |
elsif ($res->{'cosmetic_category_code'} eq 'B') { } |
|
|
0 |
0 |
elsif ($res->{'cosmetic_category_code'} eq 'C') { } |
|
|
0 |
0 |
elsif ($res->{'cosmetic_category_code'} eq 'D') { } |
|
|
0 |
0 |
elsif ($res->{'cosmetic_category_code'} eq 'E') { } |
|
189
|
0 |
0 |
unless $res->{'number'} =~ /\A([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{5})\z/ |
|
200
|
0 |
0 |
$res->{'category_code'} =~ /\AB/ ? : |
|
201
|
0 |
0 |
if ($res->{'trad_origin'} eq 'R') { } |
|
|
0 |
0 |
elsif ($res->{'trad_origin'} eq 'I') { } |
|
|
0 |
0 |
elsif ($res->{'trad_origin'} eq 'L') { } |
|
206
|
0 |
0 |
unless $res->{'number'} =~ /\A([0-9]{2})([0-9]{1})([0-9]{1})([0-9]{4})([0-9]{1})\z/ |
|
215
|
0 |
0 |
if ($res->{'trad_company_type_code'} == 1) { } |
|
|
0 |
0 |
elsif ($res->{'trad_company_type_code'} == 2) { } |
|
|
0 |
0 |
elsif ($res->{'trad_company_type_code'} == 3) { } |
|
|
0 |
0 |
elsif ($res->{'trad_company_type_code'} == 4) { } |
|
224
|
0 |
0 |
if ($res->{'trad_packaging_code'} == 1) { } |
|
|
0 |
0 |
elsif ($res->{'trad_packaging_code'} == 2) { } |
|
|
0 |
0 |
elsif ($res->{'trad_packaging_code'} == 3) { } |
|
|
0 |
0 |
elsif ($res->{'trad_packaging_code'} == 4) { } |
|
|
0 |
0 |
elsif ($res->{'trad_packaging_code'} == 5) { } |
|
|
0 |
0 |
elsif ($res->{'trad_packaging_code'} == 6) { } |
|
|
0 |
0 |
elsif ($res->{'trad_packaging_code'} == 7) { } |
|
|
0 |
0 |
elsif ($res->{'trad_packaging_code'} == 8) { } |
|
|
0 |
0 |
elsif ($res->{'trad_packaging_code'} == 9) { } |
|
234
|
0 |
0 |
if ($res->{'trad_packaging_volume_code'} == 1) { } |
|
|
0 |
0 |
elsif ($res->{'trad_packaging_volume_code'} == 2) { } |
|
|
0 |
0 |
elsif ($res->{'trad_packaging_volume_code'} == 3) { } |
|
242
|
0 |
0 |
unless $res->{'number'} =~ /\A([0-9]{9})\z/ |
|
248
|
0 |
0 |
unless $res->{'number'} =~ /\A([0-9]{9})\z/ |