1260:
1261: ELSIF retn_rule_rec.retention_level_code ='EVENT_TYPE' THEN
1262: /*The following code has been added to fix bug 3168266 */
1263: DECLARE
1264: l_revenue_category_meaning pa_lookups.meaning%TYPE;
1265: BEGIN
1266: SELECT meaning
1267: INTO l_revenue_category_meaning
1268: FROM pa_lookups
1264: l_revenue_category_meaning pa_lookups.meaning%TYPE;
1265: BEGIN
1266: SELECT meaning
1267: INTO l_revenue_category_meaning
1268: FROM pa_lookups
1269: WHERE lookup_code =retn_rule_rec.revenue_category_code
1270: AND lookup_type = 'REVENUE CATEGORY';
1271: RetnRuleText := RetnRuleText ||
1272: l_revenue_category_meaning|| ', ' ||
1288: ELSIF retn_rule_rec.retention_level_code ='REVENUE_CATEGORY'
1289: THEN
1290: /*The following code has been added to fix bug 3168266 */
1291: DECLARE
1292: l_revenue_category_meaning1 pa_lookups.meaning%TYPE;
1293: begin
1294: SELECT meaning
1295: INTO l_revenue_category_meaning1
1296: FROM pa_lookups
1292: l_revenue_category_meaning1 pa_lookups.meaning%TYPE;
1293: begin
1294: SELECT meaning
1295: INTO l_revenue_category_meaning1
1296: FROM pa_lookups
1297: WHERE lookup_code =retn_rule_rec.revenue_category_code
1298: AND lookup_type = 'REVENUE CATEGORY';
1299: RetnRuleText := RetnRuleText ||
1300: l_revenue_category_meaning1|| ', ' ||
3181: SET CANCELED_FLAG = 'Y',
3182: INVOICE_COMMENT =
3183: (select rtrim(upper(l.meaning)||' '||
3184: rtrim(SUBSTRB(i.invoice_comment,1,232)))
3185: from pa_lookups l,
3186: pa_draft_invoices i
3187: where i.project_Id = p_project_id
3188: and i.draft_invoice_num = p_draft_invoice_num
3189: and l.lookup_type = 'INVOICE_CREDIT_TYPE'