Any way to "Global Modify" a property of a component with tcl in ASC?

I wrote a procedure to modify a property (e.g. PART_NUMBER) of a component (type: INST) page by page.
I met a issue that if a component is associated with different pages, then it will raise violation error.

Error message:

PKG1104 Physical part <PART_NAME>_<PACK_TYPE>-<VALUE>,<PART_NUMBER> cannot be assigned to package <modified_component_refdes>.

The package <modified_component_refdes> is associated with part name <PART_NAME>_<PACK_TYPE>-<VALUE>,<PART_NUMBER>-<JEDEC_TYPE>.

I guess the error occurs that I didn't modify all components (w/ same refdes) simultaneously.

And here is my code snippet, maybe there is something I can improve:

proc testMod {} {
# Read refdes & cpn mapping
puts "Processing mapping list..."
set refPropsFile "C:/temp/refdes_props.csv"
ReadFiles create readRefProps $refPropsFile "csv"  # This is just a class I created to read csv file
set refPropsList [readRefProps readFile "\t"]   # Return type is a list
set mapping {}
foreach eachMapping $refPropsList {
# Extract the key and value from the sublist
dict set mapping [lindex $eachMapping 0] [lrange $eachMapping 1 end]
}
readRefProps destroy

puts "Updating Properties..."
# Loading the schPageUtils pacakge.
package require schPageUtils
# Getting All Page Information.
set pageListDict [schPageUtils::getDesignPagesAllInfo]
# Reading Total Number of Pages
set size [schPageUtils::getPagesInfoSize $pageListDict]

set pageIter 1
while {$pageIter <= $size} {

set currTabSPath [cps::getSPathByTabIndex 1]
puts $pageIter
puts $currTabSPath
set pageId [sch::dbGetActivePage]
selectObject all
set selItem [sch::dbGetSelectedItems $pageId]
selectObject none
#set hasModified 0
foreach item $selItem {
set itemType [sch::dbGetType $item]
if {$itemType == $::sch::DBTInst} {
set ItemSpath [sch::dbGetSPath $item]
array set RefOrg [join [sch::dbxGetRefDesAndOriginFromInstSpath $ItemSpath]]
set location $RefOrg(refdes)
if {[dict exists $mapping $location]} {
#set hasModified 1
set props [dict get $mapping $location]
set pn [lindex $props 0]
set footprint [lindex $props 1]
puts $location
puts $pn
puts $footprint

sch::dbSelectObjectById $item $::sch::DBTrue
modifyProp -name PART_NUMBER -value $pn
modifyProp -name JEDEC_TYPE -value $footprint
puts "Properties modified."
saveAll
}
}
}
sch::nextPage
closeItem $currTabSPath
incr pageIter
}
puts "Done"
#saveAll
#sch::closeProject
#exit
}