How to fix the CDF termOrder mismatch

When I add, delete, or rename a pin in the schematic or the symbol view, the netlister will complaint about this:

WARNING (ADE-6004): Mismatch was found between the terminals in the cellView and those on the
           termOrder property on the CDF. Because of the mismatch, the CDF termOrder will
           be ignored. The terminals in the cellView will be netlisted in the alphabetical
           order of their names. Eliminate the mismatch if you want the CDF termOrder
           property to be used for netlisting.

This is produced from IC6.1.6-64b.500-12.

Here is the SKILL code that I created to fix the termOrder mismatch problem:

/* twen
 * 2016-02-09
 * Eg: twFixTermOrder("mylib")
 *     twFixTermOrder("mylib" "mycell")
 */
procedure(twFixTermOrder(lib @optional (cell nil))
    let((oldAutoCtl libId cellId cellIds)
        ;; Save the prompting and automatic check-in and check-out controls
        oldAutoCtl = ddAutoCtlGetVars()
        ;; Do not prompt the user to check-in or check-out
        ddAutoCtlSetVars(0 0 3 3)
        
        when(libId=ddGetObj(lib)
            ;; If no cell name is specified, then fix all cells in the lib
            if(cell cellIds=list(ddGetObj(lib cell)) cellIds=libId->cells)
            foreach(cellId cellIds
                when(ddGetObj(lib cellId->name "schematic")
                    printf("Updating the CDF termOrder for %s/%s \n" lib cellId->name)
                    artGenerateHierSymbolCDF(dbOpenCellViewByType(lib cellId->name "schematic") t)
                )
            )
        )
        ;; Restore the prompting and automatic check-in and check-out controls
        apply(`ddAutoCtlSetVars oldAutoCtl)
    )
)

I'd like to add a feature to fix the termOrder for cells within a particular category. Any comments are welcomed!

TJ