create or replace package wsgl is -------------------------------------------------------------------------------- -- Declare constants for use in Layout procedures LAYOUT_TABLE constant number(1) := 1; LAYOUT_PREFORMAT constant number(1) := 2; LAYOUT_BULLET constant number(1) := 3; LAYOUT_NUMBER constant number(1) := 4; LAYOUT_CUSTOM constant number(1) := 5; LAYOUT_WRAP constant number(1) := 6; MENU_LONG constant number(1) := 1; MENU_SHORT constant number(1) := 2; TYPE_CHAR constant number(1) := 1; TYPE_CHAR_UPPER constant number(1) := 2; TYPE_DATE constant number(1) := 3; TYPE_NUMBER constant number(1) := 4; ------------------------------------------------------------------------------- -- Declare constants used for system images IMG_TYPE_TICK constant number(1) := 1; IMG_TYPE_RADIO constant number(1) := 2; IMG_TICK constant varchar2(50) := 'cg_tick.gif'; IMG_BLANK constant varchar2(50) := 'cg_blnk.gif'; IMG_RADIO_SEL constant varchar2(50) := 'cg_rad_s.gif'; IMG_RADIO_UNSEL constant varchar2(50) := 'cg_rad_u.gif'; -------------------------------------------------------------------------------- -- Declare constant for Max number of rows which can be returned MAX_ROWS constant number(4) := 1000; -------------------------------------------------------------------------------- -- Declare types used in Domain Validation DV_TEXT constant number(1) := 1; DV_CHECK constant number(1) := 2; DV_RADIO constant number(1) := 3; DV_LIST constant number(1) := 4; DV_RADIO_ACROSS constant number(1) := 5; DV_PASSWORD constant number(1) := 6; type typString240Table is table of varchar2(240) index by binary_integer; type typDVRecord is record (ColAlias varchar2(30) := null, Initialised boolean := false, ControlType number(1) := DV_TEXT, DispWidth number(5) := 30, DispHeight number(5) := 1, MaxWidth number(5) := 30, UseMeanings boolean := false, ColOptional boolean := false, NumOfVV integer := 0, Vals typString240Table, Meanings typString240Table, Abbreviations typString240Table); EmptyStringTable typString240Table; EmptyVCArr owa.vc_arr; EmptyVCArrLong owa_text.vc_arr; -------------------------------------------------------------------------------- -- Declare types used in building controls CTL_READONLY constant number(1) := 1; CTL_UPDATABLE constant number(1) := 2; CTL_INSERTABLE constant number(1) := 3; CTL_QUERY constant number(1) := 4; -------------------------------------------------------------------------------- -- Declare constants for form status FORM_STATUS_OK constant number(1) := 0; FORM_STATUS_ERROR constant number(1) := 1; FORM_STATUS_INS constant number(1) := 2; FORM_STATUS_UPD constant number(1) := 3; FORM_STATUS_NO_UPD constant number(1) := 4; -------------------------------------------------------------------------------- -- Declare constants message types MESS_INFORMATION constant number(1) := 1; MESS_SUCCESS constant number(1) := 2; MESS_WARNING constant number(1) := 3; MESS_ERROR constant number(1) := 4; MESS_ERROR_QRY constant number(1) := 5; MESS_EXCEPTION constant number(1) := 6; -------------------------------------------------------------------------------- -- Declare security constants and exceptions WSG_CLIENTID_COOKIE constant varchar(30) := 'WSGSEC$WSGSECCLIENTID'; invalid_user exception; -------------------------------------------------------------------------------- -- Declare WebServer Generator Library procedures and functions function IsSupported (feature in varchar2) return boolean; -- pragma restrict_references(IsSupported, WNDS); procedure LayoutOpen(p_layout_style in number, p_border in boolean default false, p_custom_bullet in varchar2 default null, p_no_spacing in boolean default false); procedure LayoutClose; procedure LayoutRowStart(p_valign in varchar2 default null, p_attrs in varchar2 default null); -- pragma restrict_references(LayoutRowStart, WNDS); procedure LayoutRowEnd; procedure LayoutHeader(p_width in number, p_align in varchar2, p_title in varchar2, p_id in varchar2 DEFAULT null); -- pragma restrict_references(LayoutHeader, WNDS); procedure LayoutData(p_text in varchar2, p_align in varchar2 DEFAULT null, p_id in varchar2 DEFAULT null); -- pragma restrict_references(LayoutData, WNDS); procedure LayoutData(p_date in date); -- pragma restrict_references(LayoutData, WNDS); procedure LayoutData(p_number in number); -- pragma restrict_references(LayoutData, WNDS); procedure LayoutComputed ( p_prompt_col in number, p_prompt in varchar2, p_item_col in number, p_item in varchar2, p_total_cols in number, p_row_attrs in varchar2 default null); procedure LayoutTextLine ( p_text in varchar2 ); procedure Separator ( p_from_col in number, p_to_col in number, p_total in number, p_attrs in varchar2 default null); procedure Separator (p_attrs in varchar2); procedure SkipData; -- pragma restrict_references(SkipData, WNDS); procedure DefinePageHead(p_title in varchar2 default null, p_bottomframe in boolean default false); procedure StylesheetLink(p_stylesheetURL in varchar2); procedure OpenPageHead(p_title in varchar2 default null, p_bottomframe in boolean default false); procedure METATag; procedure ClosePageHead; procedure OpenPageBody(p_center in boolean default false, p_attributes in varchar2 default null); procedure ClosePageBody; function InBottomFrame return boolean; -- pragma restrict_references(InBottomFrame, WNDS, WNPS); function Preformat(p_text in varchar2) return varchar2; -- pragma restrict_references(Preformat, WNDS, WNPS); procedure DefaultPageCaption(p_caption in varchar2 default null, p_headlevel in number default null); procedure BuildWhere(p_field1 in varchar2, p_field2 in varchar2, p_sli in varchar2, p_datatype in number, p_where in out varchar2, p_date_format in varchar2 default null, p_outerjoin in boolean default false); -- pragma restrict_references(BuildWhere, WNDS); procedure BuildWhere(p_field in varchar2, p_sli in varchar2, p_datatype in number, p_where in out varchar2, p_date_format in varchar2 default null, p_caseinsensitive in boolean default true, p_outerjoin in boolean default false); -- pragma restrict_references(BuildWhere, WNDS); procedure BuildWhere(p_field in typString240Table, p_sli in varchar2, p_datatype in number, p_where in out varchar2, p_date_format in varchar2 default null, p_outerjoin in boolean default false); -- pragma restrict_references(BuildWhere, WNDS); function SearchComponents(p_search in varchar2, p_uu in out varchar2, p_ul in out varchar2, p_lu in out varchar2, p_ll in out varchar2) return number; -- pragma restrict_references(SearchComponents, WNDS); procedure NavLinks(p_style in number default null, p_caption in varchar2 default null, p_menu_level in number default 0, p_proc in varchar2 default null, p_target in varchar2 default '_top', p_attributes in varchar2 default null, p_img in varchar2 default null, p_img_height in number default 0, p_img_width in number default 0, p_output_line in boolean default TRUE, p_list_item in boolean default TRUE, p_menu_required in boolean default TRUE); function TablesSupported return boolean; -- pragma restrict_references(TablesSupported, WNDS, WNPS); procedure Info(p_full in boolean default true, p_app in varchar2 default null, p_mod in varchar2 default null, p_usr in varchar2 default null); procedure EmptyPage(p_attributes in varchar2 default null); function EmptyPageURL(p_attributes in varchar2 default null) return varchar2; -- pragma restrict_references(EmptyPageURL, WNDS, WNPS); procedure SubmitButton(p_name in varchar2, p_title in varchar2, p_type in varchar2, buttonJS in varchar2 default null, p_target in varchar2 default null); function ReturnSubmitButton(p_name in varchar2, p_title in varchar2, p_type in varchar2, buttonJS in varchar2 default null, p_target in varchar2 default null, p_index in number default 0) return varchar2; -- pragma restrict_references(ReturnSubmitButton, WNDS); procedure ResetForMultipleForms; -- pragma restrict_references(ResetForMultipleForms, WNDS); procedure RecordListButton(p_reqd in boolean, p_name in varchar2, p_title in varchar2, p_mess in varchar2 default null, p_dojs in boolean default false, buttonJS in varchar2 default null, p_type_button in boolean default false ); function CountHits( P_SQL in varchar2) return number; procedure LoadDomainValues( P_REF_CODE_TABLE in varchar2, P_DOMAIN in varchar2, P_DVREC in out typDVRecord); function ValidDomainValue( P_DVREC in typDVRecord, P_VALUE in out varchar2) return boolean; -- pragma restrict_references(ValidDomainValue, WNDS); function DomainMeaning( P_DVREC in typDVRecord, P_VALUE in varchar2) return varchar2; -- pragma restrict_references(DomainMeaning, WNDS); function DomainValue( P_DVREC in typDVRecord, P_MEANING in varchar2) return varchar2; -- pragma restrict_references(DomainValue, WNDS); function DomainValue( P_DVREC in typDVRecord, P_MEANING in typString240Table) return typString240Table; -- pragma restrict_references(DomainValue, WNDS); function BuildDVControl( P_DVREC in typDVRecord, P_CTL_STYLE in number, P_CURR_VAL in varchar2 default null, p_onclick in boolean default false, p_onchange in boolean default false, p_onblur in boolean default false, p_onfocus in boolean default false, p_onselect in boolean default false, p_row in number default null, p_multirow in boolean default false, p_alwaysquery in boolean default false, p_img_path in varchar2 default '/') return varchar2; -- pragma restrict_references(BuildDVControl, WNDS); function BuildTextControl( p_alias in varchar2, p_size in varchar2 default null, p_height in varchar2 default null, p_maxlength in varchar2 default null, p_value in varchar2 default null, p_onclick in boolean default false, p_onchange in boolean default false, p_onblur in boolean default false, p_onfocus in boolean default false, p_onselect in boolean default false, p_cal_but_text in varchar2 default null, p_cal_date_format in varchar2 default null, p_form in varchar2 default 'forms[0]', p_row in number default null, p_img_path in varchar2 default '/', p_cal_prompt in varchar2 default null) return varchar2; -- pragma restrict_references(BuildTextControl, WNDS); function BuildPasswordTextControl(p_alias in varchar2, p_size in varchar2 default null, p_height in varchar2 default null, p_maxlength in varchar2 default null, p_password in boolean default false, p_value in varchar2 default null, p_onclick in boolean default false, p_onchange in boolean default false, p_onblur in boolean default false, p_onfocus in boolean default false, p_onselect in boolean default false, p_cal_but_text in varchar2 default null, p_cal_date_format in varchar2 default null, p_form in varchar2 default 'forms[0]', p_row in number default null, p_img_path in varchar2 default '/', p_cal_prompt in varchar2 default null) return varchar2; -- pragma restrict_references(BuildPasswordTextControl, WNDS); function BuildQueryControl( p_alias in varchar2, p_size in varchar2 default null, p_range in boolean default false, p_onclick in boolean default false, p_onchange in boolean default false, p_onblur in boolean default false, p_onfocus in boolean default false, p_onselect in boolean default false, p_cal_but_text in varchar2 default null, p_cal_date_format in varchar2 default null, p_form in varchar2 default 'forms[0]', p_maxlength in varchar2 default null, p_cal_prompt in varchar2 default null) return varchar2; -- pragma restrict_references(BuildQueryControl, WNDS); function BuildPasswordQueryControl( p_alias in varchar2, p_size in varchar2 default null, p_password in boolean default false, p_range in boolean default false, p_onclick in boolean default false, p_onchange in boolean default false, p_onblur in boolean default false, p_onfocus in boolean default false, p_onselect in boolean default false, p_cal_but_text in varchar2 default null, p_cal_date_format in varchar2 default null, p_form in varchar2 default 'forms[0]', p_maxlength in varchar2 default null, p_cal_prompt in varchar2 default null) return varchar2; -- pragma restrict_references(BuildPasswordQueryControl, WNDS); function BuildDerivationControl(p_name in varchar2, p_size in varchar2, p_value in varchar2, p_onclick in boolean default false, p_onblur in boolean default false, p_onfocus in boolean default false, p_onselect in boolean default false, p_row in number default null) return varchar2; -- pragma restrict_references(BuildDerivationControl, WNDS); function InitSysImage(p_image_type in number, p_image_path in varchar2, p_image_name in varchar2, p_initial_val in varchar2) return varchar2; -- pragma restrict_references(InitSysImage, WNDS, WNPS); procedure HiddenField(p_paramname in varchar2, p_paramval in varchar2); procedure HiddenField(p_paramname in varchar2, p_paramval in typString240Table); function GetLayNumberOfPages return number; procedure DisplayMessage(p_type in number, p_mess in varchar2, p_title in varchar2 default null, p_attributes in varchar2 default null, p_location in varchar2 default null, p_context in varchar2 default null, p_action in varchar2 default null); procedure StoreErrorMessage(p_mess in varchar2); function MsgGetText(p_MsgNo in number, p_DfltText in varchar2 default null, p_Subst1 in varchar2 default null, p_Subst2 in varchar2 default null, p_Subst3 in varchar2 default null, p_LangId in number default null) return varchar2; -- pragma restrict_references(MsgGetText, WNDS, WNPS); function EscapeURLParam(p_param in varchar2 ) return varchar2; -- pragma restrict_references(EscapeURLParam, WNDS, WNPS); function GetUser return varchar2; procedure RegisterURL(p_url in varchar2); procedure AddURLParam(p_paramname in varchar2, p_paramval in varchar2); -- pragma restrict_references(AddURLParam, WNDS); procedure AddURLParam(p_paramname in varchar2, p_paramval in typString240Table); -- pragma restrict_references(AddURLParam, WNDS); procedure RefreshURL; function NotLowerCase return boolean; function ExternalCall(p_proc in varchar2) return boolean; function CalledDirect(p_proc in varchar2) return boolean; procedure StoreURLLink(p_level in number, p_caption in varchar2, p_open in boolean default true, p_close in boolean default true); procedure ReturnLinks(p_levels in varchar2, p_style in number, p_target in varchar2 default '_top', p_menu in boolean default true); function Checksum(p_buff in varchar2) return number; -- pragma restrict_references(Checksum, WNDS, WNPS); function ValidateChecksum(p_buff in varchar2, p_checksum in varchar2) return boolean; -- R2.1 Backward compatibility function EscapeURLParam(p_param in varchar2, p_space in boolean default true, p_plus in boolean default true, p_percent in boolean, p_doublequote in boolean default true, p_hash in boolean default true, p_ampersand in boolean ) return varchar2; -- pragma restrict_references(EscapeURLParam, WNDS, WNPS); -- R1.3 Backward compatibility procedure RowContext(p_context in varchar2); procedure PageHeader(p_title in varchar2, p_header in varchar2, p_background in varchar2 default null, p_center in boolean default false); procedure PageFooter; function MAX_ROWS_MESSAGE return varchar2; -- pragma restrict_references(MAX_ROWS_MESSAGE, WNDS, WNPS); procedure Output_Calendar ( Z_FIELD_NAME in VarChar2, Z_FIELD_VALUE in Varchar2, Z_FIELD_FORMAT in Varchar2, Page_Header in Varchar2, Body_Attributes in Varchar2, PKG_Name in Varchar2, Close_But_Caption in Varchar2, First_Part in Boolean, Z_DEFAULT_FORMAT in varchar2 default null ); procedure Output_Format_Cal_JS ( Page_Header in Varchar2, Body_Attributes in Varchar2, Chosen_Date in Varchar2, Field_Format in Varchar2 ); procedure StoreClientID( p_client_id_str in varchar2, p_open_header in boolean default true, p_close_header in boolean default true ); function GetClientID return varchar2; -- version to get around bug 872931 function Anchor2 ( curl in varchar2, ctext in varchar2, cname in varchar2 DEFAULT NULL, ctarget in varchar2 DEFAULT NULL, cattributes in varchar2 DEFAULT NULL ) return varchar2; pragma restrict_references(Anchor2, WNDS, WNPS); -- version to get around bug 965862 function img ( curl in varchar2, calign in varchar2 DEFAULT NULL, calt in varchar2 DEFAULT NULL, cismap in varchar2 DEFAULT NULL, cattributes in varchar2 DEFAULT NULL ) return varchar2; pragma restrict_references(img, WNDS, WNPS); function EscapeItem( z_item_text in varchar2 ) return varchar2; pragma restrict_references( EscapeItem, WNDS, WNPS ); FUNCTION gettext(p_text IN VARCHAR2) RETURN VARCHAR; end; /