Files
mip/Data/BulkLoad/EFT/Nominations/plsql/efno_contact.bdy

42 lines
1.1 KiB
Plaintext

CREATE OR REPLACE PACKAGE BODY efno_contact IS
PROCEDURE startup IS
--
g_page_header VARCHAR2(100) := caco_utilities.get_module_text(2002);
--
BEGIN
--
IF NOT caco_security.security_check(p_package_name => 'efno_contact.startup') THEN
RETURN;
END IF;
--
htp.p('<html xmlns="http://www.w3.org/1999/xhtml" lang="en-gb">');
wsgl.openpagehead(g_page_header);
htp.p('<META http-equiv="Content-Type" content="text/html; charset=iso-8859-2">');
htp.p('<LINK REL=stylesheet HREF="caco_system.css?p_type=general" >');
--
htp.p('<title>'||g_page_header||'</title>');
wsgl.closepagehead;
wsgl.openpagebody(FALSE);
--
htp.p(caco_system.menu);
--
wsgl.defaultpagecaption(g_page_header
,1);
--
FOR i IN ( SELECT description FROM contact_details WHERE rownum < 2 ) LOOP
--
htp.p(i.description);
--
END LOOP;
--
wsgl.closepagebody;
--
END startup;
BEGIN
-- Initialization
NULL;
END efno_contact;
/