[Home] [Help]
769: l_policy_id NUMBER(15);
770:
771: BEGIN
772:
773: select AP_POL_HEADERS_S.NEXTVAL
774: into l_policy_id
775: from dual;
776:
777: insert into AP_POL_HEADERS
773: select AP_POL_HEADERS_S.NEXTVAL
774: into l_policy_id
775: from dual;
776:
777: insert into AP_POL_HEADERS
778: (
779: POLICY_ID,
780: CATEGORY_CODE,
781: SCHEDULE_TYPE_CODE,
1272: ------------------------------------------------------------------------
1273:
1274: cursor policy_cur is
1275: select policy_id
1276: from ap_pol_headers
1277: where policy_id = p_policy_id
1278: and rownum = 1;
1279:
1280: policy_rec policy_cur%ROWTYPE;
1392: ------------------------------------------------------------------------
1393:
1394: CURSOR policy_cur IS
1395: select policy_id
1396: from ap_pol_headers
1397: where category_code = p_expense_category
1398: and upper(policy_name) = upper(p_policy_name)
1399: and rownum = 1;
1400:
1492: ------------------------------------------------------------------------
1493:
1494: CURSOR per_diem_type_code_cur IS
1495: select per_diem_type_code
1496: from ap_pol_headers
1497: where policy_id = p_policy_id
1498: and rownum = 1;
1499:
1500: per_diem_type_code_rec per_diem_type_code_cur%ROWTYPE;
1519: ------------------------------------------------------------------------
1520:
1521: CURSOR meals_type_code_cur IS
1522: select meals_type_code
1523: from ap_pol_headers
1524: where policy_id = p_policy_id
1525: and rownum = 1;
1526:
1527: meals_type_code_rec meals_type_code_cur%ROWTYPE;