inout reference INOUT_Table_Reference; {Refer to table with the following syntax: table(INOUT_Table_Reference)}
out boolean OUT_Active;

local string l_sTrxSource;

default form to 'RM_Transaction_Inquiry';
default window to 'RM_Transaction_Inquiry_Scroll';

OUT_Active = false;
l_sTrxSource = 'TRX Source' of table(INOUT_Table_Reference);

if substring(l_sTrxSource,1,length(getmsg(8037))) = getmsg(8037) or
	substring(l_sTrxSource,1,length(getmsg(SOP_PREFIX))) = getmsg(SOP_PREFIX) then
	if ask("Would you like to display Receivables Transaction Zoom or originating source Transaction zoom",
				"&Receivables","&Originating","") = ASKBUTTON1 then
		OUT_Active = true;

		call RM_Zoom_To_Entry_Form, 
				'Document Number',
				'RM Document Type-All',
				'Document Status',
				""{'TRX Source' of table RM_Inquiry_TEMP},
				'Transaction Description', 
				'Currency View' of window RM_Transaction_Inquiry,
				WINID_RMTRXINQUIRY;
	end if;
end if;