为各级触发器建立程序单元
一、命名规则：
1.FORM级触发器——表单名
把自己加的
2.块级触发器——块名
3.数据项级触发器——数据项名（不单独建程序单元，而作为块级包中的存储过程）
二、程序模板
1.FORMS级
包规范
PACKAGE CUXOMWKS11733 IS
PROCEDURE event_handle(event IN VARCHAR2);
END;
包体
PACKAGE BODY cuxomwks11733 IS
/*==================================================
名称: event_handle
功能描述: FORM级触发器
历史记录: 1.00 2016-08-12 Jim 创建
==================================================*/
PROCEDURE event_handle(event IN VARCHAR2) IS
l_menu1 varchar2(30);
BEGIN
IF (event = 'FORM级触发器1') THEN
触发器1进行的动作
ELSIF (event = 'FORM级触发器2') THEN
触发器2进行的动作
......
ELSIF (event = 'FORM级触发器n') THEN
触发器n进行的动作
ELSE
app_exception.invalid_argument('程序单元名.EVENT_HANDLE',
'EVENT',
event);
END IF;
END event_handle;
END;
2.块级
①数据块里没有项有触发器的
跟上面的FORM级一样
②数据块里有项有触发器的
a.为块级触发器建一个event_handle存储过程共用
b.为项级触发器各建一个存储过程（名字同数据项名）
包规范
PACKAGE CONTROL IS
PROCEDURE event_handle(event IN VARCHAR2);
PROCEDURE submit(event IN VARCHAR2); --提交按钮存储过程
END;
包体
PACKAGE BODY CONTROL IS
/*==================================================
名称: event_handle
功能描述: 块级触发器
历史记录: 1.00 2016-08-12 Jim 创建
==================================================*/
PROCEDURE event_handle(event IN VARCHAR2) IS
BEGIN
IF (event = 'PRE-FORM') THEN
NULL;
ELSE
app_exception.invalid_argument('CONTROL.EVENT_HANDLE',
'EVENT',
event);
END IF;
END event_handle;
/*==================================================
名称: submit
功能描述: ITEM级触发器
历史记录: 1.00 2016-08-12 Jim 创建
==================================================*/
PROCEDURE submit(event IN VARCHAR2) IS
x_return_status VARCHAR2(20);
x_msg_count NUMBER;
x_msg_data VARCHAR2(3000);
BEGIN
IF (event = 'WHEN-BUTTON-PRESSED') THEN
commit_changed;
go_block('HEADERS');
cux_om_order_11733_pub.submit_order(p_api_version => 1.0,
p_init_msg_list => hss_api.g_true,
p_commit => hss_api.g_true,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_om_header_id => :headers.header_id);
IF x_return_status <> hss_api.g_ret_sts_success THEN
hss_form_utl.display_errors;
RAISE form_trigger_failure;
END IF;
:parameter.g_query_find := 'TRUE';
:parameter.header_id := :headers.header_id;
app_find.find('HEADERS');
:parameter.g_query_find := 'FALSE';
ELSE
app_exception.invalid_argument('SUBMIT.EVENT_HANDLE',
'EVENT',
event);
END IF;
END submit;
END;