awk '/^s\(s/{sub(/^s\(/,X,$0);sub(/\)$/,Y,$0);A[$0]=$0;next} !/^s\(s/{B[$0]} END{for(j in B){W=B[j];for(W in A){delete A[j]}};for(u in A){print A}}' Input_file

sname-pname-cprexhaa
sname-pname-abcd-phase
sname-pname-cprexrga
sname-pname-cprexloa
sname-pname-cprexmta

awk '/^s\(s/{
                sub(/^s\(/,X,$0);
                sub(/\)$/,Y,$0);
                A[$0]=$0;
                next
            }
     !/^s\(s/{
                B[$0]
             }
    END{
                for(j in B){
                                W=B[j];
                                for(W in A){
                                                  delete A[j]
                                           }
                           };
                for(u in A){
                                print A[u]
                           }
        }
     '  Input_file