est/odb/pdn/rcx: use prefix from the correct module in messages

maliberty · maliberty · commit b68246e513b6 · 2025-10-21T03:53:41.000Z
Signed-off-by: Matt Liberty &lt;mliberty@precisioninno.com&gt;
diff --git a/src/est/src/EstimateParasitics.tcl b/src/est/src/EstimateParasitics.tcl
@@ -53,7 +53,7 @@ proc set_layer_rc { args } {
     flags {}
 
   if { [info exists keys(-layer)] && [info exists keys(-via)] } {
-    utl::error "ORD" 201 "Use -layer or -via but not both."
+    utl::error "EST" 201 "Use -layer or -via but not both."
   }
 
   set corners [sta::parse_corner_or_all keys]
@@ -62,15 +62,15 @@ proc set_layer_rc { args } {
     set layer_name $keys(-layer)
     set layer [$tech findLayer $layer_name]
     if { $layer == "NULL" } {
-      utl::error "ORD" 202 "layer $layer_name not found."
+      utl::error "EST" 202 "layer $layer_name not found."
     }
 
     if { [$layer getRoutingLevel] == 0 } {
-      utl::error "ORD" 203 "$layer_name is not a routing layer."
+      utl::error "EST" 203 "$layer_name is not a routing layer."
     }
 
     if { ![info exists keys(-capacitance)] && ![info exists keys(-resistance)] } {
-      utl::error "ORD" 204 "missing -capacitance or -resistance argument."
+      utl::error "EST" 204 "missing -capacitance or -resistance argument."
     }
 
     set cap 0.0
@@ -102,11 +102,11 @@ proc set_layer_rc { args } {
     set layer_name $keys(-via)
     set layer [$tech findLayer $layer_name]
     if { $layer == "NULL" } {
-      utl::error "ORD" 205 "via $layer_name not found."
+      utl::error "EST" 205 "via $layer_name not found."
     }
 
     if { [info exists keys(-capacitance)] } {
-      utl::warn "ORD" 206 "-capacitance not supported for vias."
+      utl::warn "EST" 206 "-capacitance not supported for vias."
     }
 
     if { [info exists keys(-resistance)] } {
@@ -124,10 +124,10 @@ proc set_layer_rc { args } {
         est::set_layer_rc_cmd $layer $corner $res 0.0
       }
     } else {
-      utl::error "ORD" 208 "no -resistance specified for via."
+      utl::error "EST" 208 "no -resistance specified for via."
     }
   } else {
-    utl::error "ORD" 209 "missing -layer or -via argument."
+    utl::error "EST" 209 "missing -layer or -via argument."
   }
 }
 
diff --git a/src/grt/test/no_tracks.ok b/src/grt/test/no_tracks.ok
@@ -1,4 +1,4 @@
 [INFO ODB-0227] LEF file: Nangate45/Nangate45.lef, created 22 layers, 27 vias, 135 library cells
 [INFO IFP-0001] Added 29 rows of 219 site FreePDK45_38x28_10R_NP_162NW_34O.
-[ERROR GRT-0057] Missing track structure for layer metal1.
-GRT-0057
+[ERROR ODB-0139] Missing track structure for layer metal1.
+ODB-0139
diff --git a/src/odb/src/swig/tcl/odb.tcl b/src/odb/src/swig/tcl/odb.tcl
@@ -598,7 +598,7 @@ proc define_layer_range { layers } {
         [ord::db_layer_has_ver_tracks $db_layer])
     } {
       set layer_name [$db_layer getName]
-      utl::error GRT 57 "Missing track structure for layer $layer_name."
+      utl::error ODB 139 "Missing track structure for layer $layer_name."
     }
   }
 }
@@ -622,7 +622,7 @@ proc define_clock_layer_range { layers } {
     $block setMinLayerForClock $min_clock_layer
     $block setMaxLayerForClock $max_clock_layer
   } else {
-    utl::error GRT 56 "In argument -clock_layers, min routing layer is\
+    utl::error ODB 137 "In argument -clock_layers, min routing layer is\
       greater than max routing layer."
   }
 }
@@ -709,11 +709,11 @@ proc set_io_pin_constraint { args } {
   set lef_units [$tech getLefUnits]
 
   if { [info exists keys(-region)] && [info exists keys(-mirrored_pins)] } {
-    utl::error PPL 83 "Both -region and -mirrored_pins constraints not allowed."
+    utl::error ODB 144 "Both -region and -mirrored_pins constraints not allowed."
   }
 
   if { [info exists keys(-mirrored_pins)] && [info exists flags(-group)] } {
-    utl::error PPL 87 "Both -mirrored_pins and -group constraints not allowed."
+    utl::error ODB 146 "Both -mirrored_pins and -group constraints not allowed."
   }
 
   if { [info exists keys(-region)] } {
@@ -735,12 +735,12 @@ proc set_io_pin_constraint { args } {
         set begin [ppl::get_edge_extreme "-region" 1 $edge]
         set end [ppl::get_edge_extreme "-region" 0 $edge]
       } else {
-        utl::error PPL 212 "Invalid value for \'-region edge:interval\'. Set the interval as the\
+        utl::error ODB 261 "Invalid value for \'-region edge:interval\'. Set the interval as the\
                 wildcard \'*\' or as a range \'begin-end\' in microns."
       }
 
       if { [info exists keys(-direction)] && [info exists keys(-pin_names)] } {
-        utl::error PPL 16 "Both -direction and -pin_names constraints not allowed."
+        utl::error ODB 17 "Both -direction and -pin_names constraints not allowed."
       }
 
       if { [info exists keys(-direction)] } {
@@ -772,37 +772,37 @@ proc set_io_pin_constraint { args } {
         set urx [ord::microns_to_dbu $urx]
         set ury [ord::microns_to_dbu $ury]
       } else {
-        utl::error PPL 59 "Box at top layer must have 4 values (llx lly urx ury)."
+        utl::error ODB 145 "Box at top layer must have 4 values (llx lly urx ury)."
       }
 
       if { [info exists keys(-pin_names)] } {
         set names $keys(-pin_names)
         odb::add_pins_to_top_layer $names $llx $lly $urx $ury
       }
     } else {
-      utl::warn PPL 73 "Constraint with region $region has an invalid edge."
+      utl::warn ODB 142 "Constraint with region $region has an invalid edge."
     }
   }
 
   if { [info exists flags(-group)] } {
     if { [info exists keys(-pin_names)] } {
       set group $keys(-pin_names)
     } else {
-      utl::error PPL 58 "The -pin_names argument is required when using -group flag."
+      utl::error ODB 140 "The -pin_names argument is required when using -group flag."
     }
 
     set pin_list [ppl::parse_pin_names "place_pins -group_pins" $group]
     if { [llength $pin_list] != 0 } {
       odb::add_pin_group $pin_list [info exists flags(-order)]
     }
   } elseif { [info exists flags(-order)] } {
-    utl::error PPL 95 "-order cannot be used without -group."
+    utl::error ODB 147 "-order cannot be used without -group."
   }
 
   if { [info exists keys(-mirrored_pins)] } {
     set mirrored_pins $keys(-mirrored_pins)
     if { [llength $mirrored_pins] % 2 != 0 } {
-      utl::error PPL 81 "List of pins must have an even number of pins."
+      utl::error ODB 143 "List of pins must have an even number of pins."
     }
 
     foreach {pin1 pin2} $mirrored_pins {
@@ -859,7 +859,7 @@ proc exclude_io_pin_region { args } {
       }
     }
   } else {
-    utl::error PPL 10 "The -region keyword is required for exclude_io_pin_region command."
+    utl::error ODB 12 "The -region keyword is required for exclude_io_pin_region command."
   }
 }
 
@@ -991,17 +991,17 @@ proc define_pin_shape_pattern { args } {
     set layer [ppl::parse_layer_name $layer_name]
 
     if { $layer == 0 } {
-      utl::error PPL 52 "Routing layer not found for name $layer_name."
+      utl::error ODB 96 "Routing layer not found for name $layer_name."
     }
   } else {
-    utl::error PPL 53 "-layer is required."
+    utl::error ODB 150 "-layer is required."
   }
 
   if { [info exists keys(-x_step)] && [info exists keys(-y_step)] } {
     set x_step [ord::microns_to_dbu $keys(-x_step)]
     set y_step [ord::microns_to_dbu $keys(-y_step)]
   } else {
-    utl::error PPL 54 "-x_step and -y_step are required."
+    utl::error ODB 102 "-x_step and -y_step are required."
   }
 
   set block [ord::get_db_block]
@@ -1023,23 +1023,23 @@ proc define_pin_shape_pattern { args } {
       set urx [$die_area xMax]
       set ury [$die_area yMax]
     } else {
-      utl::error PPL 63 "-region is not a list of 4 values {llx lly urx ury}."
+      utl::error ODB 141 "-region is not a list of 4 values {llx lly urx ury}."
     }
     odb::Rect region $llx $lly $urx $ury
   } else {
-    utl::error PPL 55 "-region is required."
+    utl::error ODB 135 "-region is required."
   }
 
   if { [info exists keys(-size)] } {
     set size $keys(-size)
     if { [llength $size] != 2 } {
-      utl::error PPL 56 "-size is not a list of 2 values."
+      utl::error ODB 136 "-size is not a list of 2 values."
     }
     lassign $size width height
     set width [ord::microns_to_dbu $width]
     set height [ord::microns_to_dbu $height]
   } else {
-    utl::error PPL 57 "-size is required."
+    utl::error ODB 138 "-size is required."
   }
 
   if { [info exists keys(-pin_keepout)] } {
diff --git a/src/pdn/src/grid.cpp b/src/pdn/src/grid.cpp
@@ -1789,8 +1789,8 @@ bool BumpGrid::isValid() const
   const auto nets = getNets(startsWithPower());
   const int net_count = nets.size();
   if (net_count > 1) {
-    getLogger()->warn(utl::PAD,
-                      232,
+    getLogger()->warn(utl::PDN,
+                      241,
                       "Bump grid for {} is connected to {} power nets",
                       getInstance()->getName(),
                       net_count);
diff --git a/src/ppl/test/add_constraint_error1.ok b/src/ppl/test/add_constraint_error1.ok
@@ -3,5 +3,5 @@
 [INFO ODB-0130]     Created 54 pins.
 [INFO ODB-0131]     Created 88 components and 422 component-terminals.
 [INFO ODB-0133]     Created 54 nets and 88 connections.
-[ERROR PPL-0081] List of pins must have an even number of pins.
-PPL-0081
+[ERROR ODB-0143] List of pins must have an even number of pins.
+ODB-0143
diff --git a/src/ppl/test/add_constraint_error10.ok b/src/ppl/test/add_constraint_error10.ok
@@ -3,5 +3,5 @@
 [INFO ODB-0130]     Created 54 pins.
 [INFO ODB-0131]     Created 88 components and 422 component-terminals.
 [INFO ODB-0133]     Created 54 nets and 88 connections.
-[ERROR PPL-0212] Invalid value for '-region edge:interval'. Set the interval as the wildcard '*' or as a range 'begin-end' in microns.
-PPL-0212
+[ERROR ODB-0261] Invalid value for '-region edge:interval'. Set the interval as the wildcard '*' or as a range 'begin-end' in microns.
+ODB-0261
diff --git a/src/ppl/test/add_constraint_error2.ok b/src/ppl/test/add_constraint_error2.ok
@@ -3,5 +3,5 @@
 [INFO ODB-0130]     Created 54 pins.
 [INFO ODB-0131]     Created 88 components and 422 component-terminals.
 [INFO ODB-0133]     Created 54 nets and 88 connections.
-[ERROR PPL-0083] Both -region and -mirrored_pins constraints not allowed.
-PPL-0083
+[ERROR ODB-0144] Both -region and -mirrored_pins constraints not allowed.
+ODB-0144
diff --git a/src/ppl/test/add_constraint_error3.ok b/src/ppl/test/add_constraint_error3.ok
@@ -3,5 +3,5 @@
 [INFO ODB-0130]     Created 54 pins.
 [INFO ODB-0131]     Created 88 components and 422 component-terminals.
 [INFO ODB-0133]     Created 54 nets and 88 connections.
-[ERROR PPL-0058] The -pin_names argument is required when using -group flag.
-PPL-0058
+[ERROR ODB-0140] The -pin_names argument is required when using -group flag.
+ODB-0140
diff --git a/src/ppl/test/add_constraint_error4.ok b/src/ppl/test/add_constraint_error4.ok
@@ -3,5 +3,5 @@
 [INFO ODB-0130]     Created 54 pins.
 [INFO ODB-0131]     Created 88 components and 422 component-terminals.
 [INFO ODB-0133]     Created 54 nets and 88 connections.
-[ERROR PPL-0087] Both -mirrored_pins and -group constraints not allowed.
-PPL-0087
+[ERROR ODB-0146] Both -mirrored_pins and -group constraints not allowed.
+ODB-0146
diff --git a/src/ppl/test/add_constraint_error5.ok b/src/ppl/test/add_constraint_error5.ok
@@ -3,5 +3,5 @@
 [INFO ODB-0130]     Created 54 pins.
 [INFO ODB-0131]     Created 88 components and 422 component-terminals.
 [INFO ODB-0133]     Created 54 nets and 88 connections.
-[ERROR PPL-0095] -order cannot be used without -group.
-PPL-0095
+[ERROR ODB-0147] -order cannot be used without -group.
+ODB-0147
diff --git a/src/rcx/src/dbUtil.cpp b/src/rcx/src/dbUtil.cpp
@@ -33,7 +33,7 @@ using odb::dbWirePathShape;
 using odb::dbWireShapeType;
 using odb::dbWireType;
 using odb::Point;
-using utl::ODB;
+using utl::RCX;
 
 namespace rcx {
 
@@ -181,8 +181,8 @@ odb::dbTechLayerRule* dbCreateNetUtil::getRule(int routingLayer, int width)
   if (nd_rule == nullptr) {
     return nullptr;
   }
-  logger_->info(utl::ODB,
-                273,
+  logger_->info(utl::RCX,
+                299,
                 "Create ND RULE {} for layer/width {},{}",
                 rule_name,
                 routingLayer,
@@ -279,9 +279,9 @@ odb::dbNet* dbCreateNetUtil::createNetSingleWire(const char* netName,
       || (routingLayer > _tech->getRoutingLayerCount())) {
     if (netName == nullptr) {
       logger_->warn(
-          ODB, 400, "Cannot create wire, because net name is nullptr\n");
+          RCX, 400, "Cannot create wire, because net name is nullptr\n");
     } else {
-      logger_->warn(ODB,
+      logger_->warn(RCX,
                     401,
                     "Cannot create wire, because routing layer ({}) is invalid",
                     routingLayer);
@@ -331,7 +331,7 @@ odb::dbNet* dbCreateNetUtil::createNetSingleWire(const char* netName,
 
   if (width < (int) minWidth) {
     std::string ln = layer->getName();
-    logger_->warn(ODB,
+    logger_->warn(RCX,
                   402,
                   "Cannot create net %s, because wire width ({}) is less than "
                   "minWidth ({}) on layer {}",
@@ -358,7 +358,7 @@ odb::dbNet* dbCreateNetUtil::createNetSingleWire(const char* netName,
 
     if ((blutrms.first == nullptr) || (blutrms.second == nullptr)) {
       odb::dbNet::destroy(net);
-      logger_->warn(ODB,
+      logger_->warn(RCX,
                     403,
                     "Cannot create net {}, because failed to create bterms",
                     netName);
@@ -514,10 +514,10 @@ odb::dbNet* dbCreateNetUtil::createNetSingleWire(const char* netName,
       || (routingLayer > _tech->getRoutingLayerCount())) {
     if (netName == nullptr) {
       logger_->warn(
-          ODB, 404, "Cannot create wire, because net name is nullptr");
+          RCX, 408, "Cannot create wire, because net name is nullptr");
     } else {
-      logger_->warn(ODB,
-                    405,
+      logger_->warn(RCX,
+                    414,
                     "Cannot create wire, because routing layer ({}) is invalid",
                     routingLayer);
     }
@@ -592,7 +592,7 @@ odb::dbNet* dbCreateNetUtil::createNetSingleWire(const char* netName,
   odb::dbNet* net = odb::dbNet::create(_block, netName, skipExistsNet);
 
   if (net == nullptr) {
-    logger_->warn(ODB, 406, "Cannot create net {}, duplicate net", netName);
+    logger_->warn(RCX, 409, "Cannot create net {}, duplicate net", netName);
     return nullptr;
   }
 
@@ -606,8 +606,8 @@ odb::dbNet* dbCreateNetUtil::createNetSingleWire(const char* netName,
 
     if ((blutrms.first == nullptr) || (blutrms.second == nullptr)) {
       odb::dbNet::destroy(net);
-      logger_->warn(ODB,
-                    407,
+      logger_->warn(RCX,
+                    411,
                     "Cannot create net {}, because failed to create bterms",
                     netName);
       return nullptr;
diff --git a/src/rcx/src/extDefPatterns.cpp b/src/rcx/src/extDefPatterns.cpp
@@ -1307,7 +1307,7 @@ dbTechLayerRule* extRulesPat::GetRule(int routingLayer, int width)
     return nullptr;
   fprintf(stdout, " NewRule %s,layer=%d width=%d\n", rule_name, routingLayer,
 width); fflush(stdout);
-  // rule->getImpl()->getLogger()->info(utl::ODB,
+  // rule->getImpl()->getLogger()->info(utl::RCX,
   //                                    273,
   //                                    "Create ND RULE {} for layer/width
 {},{}",

Original file line number	Diff line number	Diff line change
`@@ -53,7 +53,7 @@ proc set_layer_rc { args } {`
`53`	`53`	`flags {}`
`54`	`54`
`55`	`55`	`if { [info exists keys(-layer)] && [info exists keys(-via)] } {`
`56`		`- utl::error "ORD" 201 "Use -layer or -via but not both."`
	`56`	`+ utl::error "EST" 201 "Use -layer or -via but not both."`
`57`	`57`	`}`
`58`	`58`
`59`	`59`	`set corners [sta::parse_corner_or_all keys]`
`@@ -62,15 +62,15 @@ proc set_layer_rc { args } {`
`62`	`62`	`set layer_name $keys(-layer)`
`63`	`63`	`set layer [$tech findLayer $layer_name]`
`64`	`64`	`if { $layer == "NULL" } {`
`65`		`- utl::error "ORD" 202 "layer $layer_name not found."`
	`65`	`+ utl::error "EST" 202 "layer $layer_name not found."`
`66`	`66`	`}`
`67`	`67`
`68`	`68`	`if { [$layer getRoutingLevel] == 0 } {`
`69`		`- utl::error "ORD" 203 "$layer_name is not a routing layer."`
	`69`	`+ utl::error "EST" 203 "$layer_name is not a routing layer."`
`70`	`70`	`}`
`71`	`71`
`72`	`72`	`if { ![info exists keys(-capacitance)] && ![info exists keys(-resistance)] } {`
`73`		`- utl::error "ORD" 204 "missing -capacitance or -resistance argument."`
	`73`	`+ utl::error "EST" 204 "missing -capacitance or -resistance argument."`
`74`	`74`	`}`
`75`	`75`
`76`	`76`	`set cap 0.0`
`@@ -102,11 +102,11 @@ proc set_layer_rc { args } {`
`102`	`102`	`set layer_name $keys(-via)`
`103`	`103`	`set layer [$tech findLayer $layer_name]`
`104`	`104`	`if { $layer == "NULL" } {`
`105`		`- utl::error "ORD" 205 "via $layer_name not found."`
	`105`	`+ utl::error "EST" 205 "via $layer_name not found."`
`106`	`106`	`}`
`107`	`107`
`108`	`108`	`if { [info exists keys(-capacitance)] } {`
`109`		`- utl::warn "ORD" 206 "-capacitance not supported for vias."`
	`109`	`+ utl::warn "EST" 206 "-capacitance not supported for vias."`
`110`	`110`	`}`
`111`	`111`
`112`	`112`	`if { [info exists keys(-resistance)] } {`
`@@ -124,10 +124,10 @@ proc set_layer_rc { args } {`
`124`	`124`	`est::set_layer_rc_cmd $layer $corner $res 0.0`
`125`	`125`	`}`
`126`	`126`	`} else {`
`127`		`- utl::error "ORD" 208 "no -resistance specified for via."`
	`127`	`+ utl::error "EST" 208 "no -resistance specified for via."`
`128`	`128`	`}`
`129`	`129`	`} else {`
`130`		`- utl::error "ORD" 209 "missing -layer or -via argument."`
	`130`	`+ utl::error "EST" 209 "missing -layer or -via argument."`
`131`	`131`	`}`
`132`	`132`	`}`
`133`	`133`
Original file line number	Diff line number	Diff line change
`@@ -598,7 +598,7 @@ proc define_layer_range { layers } {`
`598`	`598`	`[ord::db_layer_has_ver_tracks $db_layer])`
`599`	`599`	`} {`
`600`	`600`	`set layer_name [$db_layer getName]`
`601`		`- utl::error GRT 57 "Missing track structure for layer $layer_name."`
	`601`	`+ utl::error ODB 139 "Missing track structure for layer $layer_name."`
`602`	`602`	`}`
`603`	`603`	`}`
`604`	`604`	`}`
`@@ -622,7 +622,7 @@ proc define_clock_layer_range { layers } {`
`622`	`622`	`$block setMinLayerForClock $min_clock_layer`
`623`	`623`	`$block setMaxLayerForClock $max_clock_layer`
`624`	`624`	`} else {`
`625`		`- utl::error GRT 56 "In argument -clock_layers, min routing layer is\`
	`625`	`+ utl::error ODB 137 "In argument -clock_layers, min routing layer is\`
`626`	`626`	`greater than max routing layer."`
`627`	`627`	`}`
`628`	`628`	`}`
`@@ -709,11 +709,11 @@ proc set_io_pin_constraint { args } {`
`709`	`709`	`set lef_units [$tech getLefUnits]`
`710`	`710`
`711`	`711`	`if { [info exists keys(-region)] && [info exists keys(-mirrored_pins)] } {`
`712`		`- utl::error PPL 83 "Both -region and -mirrored_pins constraints not allowed."`
	`712`	`+ utl::error ODB 144 "Both -region and -mirrored_pins constraints not allowed."`
`713`	`713`	`}`
`714`	`714`
`715`	`715`	`if { [info exists keys(-mirrored_pins)] && [info exists flags(-group)] } {`
`716`		`- utl::error PPL 87 "Both -mirrored_pins and -group constraints not allowed."`
	`716`	`+ utl::error ODB 146 "Both -mirrored_pins and -group constraints not allowed."`
`717`	`717`	`}`
`718`	`718`
`719`	`719`	`if { [info exists keys(-region)] } {`
`@@ -735,12 +735,12 @@ proc set_io_pin_constraint { args } {`
`735`	`735`	`set begin [ppl::get_edge_extreme "-region" 1 $edge]`
`736`	`736`	`set end [ppl::get_edge_extreme "-region" 0 $edge]`
`737`	`737`	`} else {`
`738`		`- utl::error PPL 212 "Invalid value for \'-region edge:interval\'. Set the interval as the\`
	`738`	`+ utl::error ODB 261 "Invalid value for \'-region edge:interval\'. Set the interval as the\`
`739`	`739`	`wildcard \'*\' or as a range \'begin-end\' in microns."`
`740`	`740`	`}`
`741`	`741`
`742`	`742`	`if { [info exists keys(-direction)] && [info exists keys(-pin_names)] } {`
`743`		`- utl::error PPL 16 "Both -direction and -pin_names constraints not allowed."`
	`743`	`+ utl::error ODB 17 "Both -direction and -pin_names constraints not allowed."`
`744`	`744`	`}`
`745`	`745`
`746`	`746`	`if { [info exists keys(-direction)] } {`
`@@ -772,37 +772,37 @@ proc set_io_pin_constraint { args } {`
`772`	`772`	`set urx [ord::microns_to_dbu $urx]`
`773`	`773`	`set ury [ord::microns_to_dbu $ury]`
`774`	`774`	`} else {`
`775`		`- utl::error PPL 59 "Box at top layer must have 4 values (llx lly urx ury)."`
	`775`	`+ utl::error ODB 145 "Box at top layer must have 4 values (llx lly urx ury)."`
`776`	`776`	`}`
`777`	`777`
`778`	`778`	`if { [info exists keys(-pin_names)] } {`
`779`	`779`	`set names $keys(-pin_names)`
`780`	`780`	`odb::add_pins_to_top_layer $names $llx $lly $urx $ury`
`781`	`781`	`}`
`782`	`782`	`} else {`
`783`		`- utl::warn PPL 73 "Constraint with region $region has an invalid edge."`
	`783`	`+ utl::warn ODB 142 "Constraint with region $region has an invalid edge."`
`784`	`784`	`}`
`785`	`785`	`}`
`786`	`786`
`787`	`787`	`if { [info exists flags(-group)] } {`
`788`	`788`	`if { [info exists keys(-pin_names)] } {`
`789`	`789`	`set group $keys(-pin_names)`
`790`	`790`	`} else {`
`791`		`- utl::error PPL 58 "The -pin_names argument is required when using -group flag."`
	`791`	`+ utl::error ODB 140 "The -pin_names argument is required when using -group flag."`
`792`	`792`	`}`
`793`	`793`
`794`	`794`	`set pin_list [ppl::parse_pin_names "place_pins -group_pins" $group]`
`795`	`795`	`if { [llength $pin_list] != 0 } {`
`796`	`796`	`odb::add_pin_group $pin_list [info exists flags(-order)]`
`797`	`797`	`}`
`798`	`798`	`} elseif { [info exists flags(-order)] } {`
`799`		`- utl::error PPL 95 "-order cannot be used without -group."`
	`799`	`+ utl::error ODB 147 "-order cannot be used without -group."`
`800`	`800`	`}`
`801`	`801`
`802`	`802`	`if { [info exists keys(-mirrored_pins)] } {`
`803`	`803`	`set mirrored_pins $keys(-mirrored_pins)`
`804`	`804`	`if { [llength $mirrored_pins] % 2 != 0 } {`
`805`		`- utl::error PPL 81 "List of pins must have an even number of pins."`
	`805`	`+ utl::error ODB 143 "List of pins must have an even number of pins."`
`806`	`806`	`}`
`807`	`807`
`808`	`808`	`foreach {pin1 pin2} $mirrored_pins {`
`@@ -859,7 +859,7 @@ proc exclude_io_pin_region { args } {`
`859`	`859`	`}`
`860`	`860`	`}`
`861`	`861`	`} else {`
`862`		`- utl::error PPL 10 "The -region keyword is required for exclude_io_pin_region command."`
	`862`	`+ utl::error ODB 12 "The -region keyword is required for exclude_io_pin_region command."`
`863`	`863`	`}`
`864`	`864`	`}`
`865`	`865`
`@@ -991,17 +991,17 @@ proc define_pin_shape_pattern { args } {`
`991`	`991`	`set layer [ppl::parse_layer_name $layer_name]`
`992`	`992`
`993`	`993`	`if { $layer == 0 } {`
`994`		`- utl::error PPL 52 "Routing layer not found for name $layer_name."`
	`994`	`+ utl::error ODB 96 "Routing layer not found for name $layer_name."`
`995`	`995`	`}`
`996`	`996`	`} else {`
`997`		`- utl::error PPL 53 "-layer is required."`
	`997`	`+ utl::error ODB 150 "-layer is required."`
`998`	`998`	`}`
`999`	`999`
`1000`	`1000`	`if { [info exists keys(-x_step)] && [info exists keys(-y_step)] } {`
`1001`	`1001`	`set x_step [ord::microns_to_dbu $keys(-x_step)]`
`1002`	`1002`	`set y_step [ord::microns_to_dbu $keys(-y_step)]`
`1003`	`1003`	`} else {`
`1004`		`- utl::error PPL 54 "-x_step and -y_step are required."`
	`1004`	`+ utl::error ODB 102 "-x_step and -y_step are required."`
`1005`	`1005`	`}`
`1006`	`1006`
`1007`	`1007`	`set block [ord::get_db_block]`
`@@ -1023,23 +1023,23 @@ proc define_pin_shape_pattern { args } {`
`1023`	`1023`	`set urx [$die_area xMax]`
`1024`	`1024`	`set ury [$die_area yMax]`
`1025`	`1025`	`} else {`
`1026`		`- utl::error PPL 63 "-region is not a list of 4 values {llx lly urx ury}."`
	`1026`	`+ utl::error ODB 141 "-region is not a list of 4 values {llx lly urx ury}."`
`1027`	`1027`	`}`
`1028`	`1028`	`odb::Rect region $llx $lly $urx $ury`
`1029`	`1029`	`} else {`
`1030`		`- utl::error PPL 55 "-region is required."`
	`1030`	`+ utl::error ODB 135 "-region is required."`
`1031`	`1031`	`}`
`1032`	`1032`
`1033`	`1033`	`if { [info exists keys(-size)] } {`
`1034`	`1034`	`set size $keys(-size)`
`1035`	`1035`	`if { [llength $size] != 2 } {`
`1036`		`- utl::error PPL 56 "-size is not a list of 2 values."`
	`1036`	`+ utl::error ODB 136 "-size is not a list of 2 values."`
`1037`	`1037`	`}`
`1038`	`1038`	`lassign $size width height`
`1039`	`1039`	`set width [ord::microns_to_dbu $width]`
`1040`	`1040`	`set height [ord::microns_to_dbu $height]`
`1041`	`1041`	`} else {`
`1042`		`- utl::error PPL 57 "-size is required."`
	`1042`	`+ utl::error ODB 138 "-size is required."`
`1043`	`1043`	`}`
`1044`	`1044`
`1045`	`1045`	`if { [info exists keys(-pin_keepout)] } {`