Identificação de Páginas CC0300b

Prezados, bom dia.

Estou desenvolvendo uma UPC para o programa CC0300b, e preciso saber o nome das Páginas que contém o programa.
Alguém saberia me informar um modo com que me permita identificar quando estou na Página "Ordem", por exemplo o programa faça uma ação, ou quando eu navegar para a página "Parcelas" e "Cotação" o programa realize uma outra ação.

Muito obrigado pela atenção.

def input param p-ind-event as char no-undo.
def input param p-ind-object as char no-undo.
def input param p-wgh-object as handle no-undo.
def input param p-wgh-frame as widget-handle no-undo.
def input param p-cod-table as char no-undo.
def input param p-row-table as rowid no-undo.

DEFINE VARIABLE c-folder AS CHARACTER NO-UNDO.
DEFINE VARIABLE h-objeto AS HANDLE NO-UNDO.
DEFINE VARIABLE i-page AS INTEGER NO-UNDO.

/*
MESSAGE "p-ind-event : " p-ind-event SKIP
"p-ind-object: " p-ind-object SKIP
"p-wgh-object: " p-wgh-object SKIP
"p-cod-table : " p-cod-table SKIP
"p-wgh-frame : " p-wgh-frame SKIP
"p-row-table : " STRING(p-row-table)
VIEW-AS ALERT-BOX INFO BUTTONS OK.
*/

IF p-ind-object = "CONTAINER" AND
p-ind-event = "BEFORE-CHANGE-PAGE" THEN DO:

ASSIGN h-objeto = p-wgh-object.
DO WHILE VALID-HANDLE(h-objeto):
IF h-objeto:FILE-NAME = "utp/thinFolder.w" THEN LEAVE.
ASSIGN h-objeto = h-objeto:NEXT-SIBLING.
END.

IF VALID-HANDLE(h-objeto) THEN
RUN getCurrentFolder IN h-objeto (OUTPUT i-page).

MESSAGE i-page
VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.

Muito obrigado brother, resolveu o meu problema.

Alguem sabe como deixar o toggle-box Gera Relação Item X Fornecedor , default selecionado marcado , yes