&fullURI = %Request.FullURI;
&pos1 = Find("/psc/", &fullURI);

&part1 = Substring(&fullURI, 1, &pos1 + 4);
&part2 = Substring(&fullURI, &pos1 + 5, Len(&fullURI));

&pos2 = Find("/", &part2);
&part3 = Substring(&part2, 1, &pos2 - 1);
&part4 = Substring(&part2, &pos2, Len(&part2));

&pos3 = Find("_", &part3);
If &pos3 = 0 Then
   &site = &part3;
Else
   &site = Substring(&part3, 1, &pos3 - 1);
End-If;

&newWinURL = &part1 | &site | "_newwin" | &part4 | "?" | %Request.QueryString;

CSK_PTBR_WRK.NEW_WINDOW_PB.JavaScriptEvents = "onclick=""javascript:window.open('" | EscapeJavascriptString(&newWinURL) | "')""";