CREATE OR REPLACE PACKAGE CY_DOCUMENT AS

PROCEDURE INFOR_A(
document_id in varchar2, 
display_type in varchar2, 
document in out varchar2, 
document_type in out varchar2); 
END CY_DOCUMENT;
/

CREATE OR REPLACE PACKAGE BODY CY_DOCUMENT AS

PROCEDURE INFOR_A(document_id in varchar2, display_type in varchar2, document in out varchar2, document_type in out varchar2) As
Begin
    document_type :='text/html';
	document :='<table width="691" border="1" cellspacing="0" cellpadding="2" bordercolor="#000000">'||
  '<tr valign="middle"> '||
   ' <td width="154" height="56"> '||
      '<div align="center"><b><font face="Arial, Helvetica, sans-serif" size="2">Claim Category</font></b></div>'||
   ' </td>'||
    '<td width="121" height="56"> '||
      '<div align="center"><b><font face="Arial, Helvetica, sans-serif" size="2">Entitled (RM)</font></b></div>'||
    '</td>'||
    '<td width="132" height="56"> '||
      '<div align="center"><b><font face="Arial, Helvetica, sans-serif" size="2">Employee Claimed (RM) <b><font face="Arial, Helvetica, sans-serif" size="2"> </font></b></font></b></div>'||
    '</td>'||
    '<td width="102" height="56"> '||
     ' <div align="center"><b><font face="Arial, Helvetica, sans-serif" size="2">Family  Member Claimed (RM)</font></b></div>'||
    '</td>'||
   ' <td width="150" height="56"> '||
      '<p align="center"><b><font face="Arial, Helvetica, sans-serif" size="2">Balance (RM)</font></b></p>'||
   '</td>'||
 ' </tr>'||
'</table>';
exception
 when others then
 document :='<font> hellooo </font>';
 raise;
END INFOR_A;
END CY_DOCUMENT;
/