floating metals and vias

hi
Found this SKILL Code, But please advice how to adjust this code to only detects the floating metals 
 and vias that are not connecting to any poly or source drain.

/************************************************************************* 
* DISCLAIMER: The following code is provided for Cadence customers       * 
* to use at their own risk. The code may require modification to         * 
* satisfy the requirements of any user. The code and any modifications   * 
* to the code may not be compatible with current or future versions of   * 
* Cadence products. THE CODE IS PROVIDED "AS IS" AND WITH NO WARRANTIES, * 
* INCLUDING WITHOUT LIMITATION ANY EXPRESS WARRANTIES OR IMPLIED         * 
* WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.         * 
*************************************************************************/

procedure(CCSselDanglingShp(@optional (cv geGetEditCellView()))
let((mlist vlist)
mlist=setof(sh cv~>shapes !sh~>net && sh~>purpose != "label")
vlist = setof(via cv~>vias !via~>net)

if(mlist
        then
        printf("Dangling wires found at %L\n" mlist~>bBox )
        geSelectFigs(mlist)
        else
        printf("No dangling wires found \n" )
        )
if(vlist
        then
        printf("Dangling vias found at %L\n" vlist~>bBox)
        geSelectFigs(vlist)
        else
        printf("No dangling via found \n")
        )
))

hiSetBindKey("Layout" "<Key>F10" "CCSselDanglingShp()")

Nanthini