FUNCTION get_pomono RETURN MO.MONO%TYPE IS

V_POMONO MO.MONO%TYPE;
V_DOCTYPE VARCHAR2(2);

BEGIN
	SELECT doctype 
	INTO v_doctype
	FROM CI
	WHERE cino =:cn.cino;
	
		If v_doctype in ('MO','PO') then	
		-- insert brchid
			BEGIN
				IF v_doctype = 'MO' then
					SELECT CI.MONO
					INTO V_POMONO
					FROM CI
					WHERE ci.cino = :cn.cino;
				ELSIF v_doctype = 'PO' then
					SELECT CI.PONO
					INTO V_POMONO
					FROM CI
					WHERE ci.cino = :cn.cino;
				END IF;
			EXCEPTION
				WHEN NO_DATA_FOUND THEN :cn.pomono :=null;		
			END;
		END IF;
	
	RETURN V_POMONO;
EXCEPTION
	WHEN NO_DATA_FOUND THEN v_doctype :=null;		


END;

MESSAGE('executing trigger POST-QUERY');