[Home] [Help]
1: PACKAGE BODY qa_specs_pkg AS
2: /* $Header: qaspecb.pls 120.2 2006/07/17 04:19:01 bso noship $ */
3:
4: --
5: -- Simple utility function to test if an ID is
2: /* $Header: qaspecb.pls 120.2 2006/07/17 04:19:01 bso noship $ */
3:
4: --
5: -- Simple utility function to test if an ID is
6: -- null or -1. The IDs as setup in qa_specs are
7: -- usually filled with -1 to indicate not specified.
8: --
9: FUNCTION empty(p_id NUMBER) RETURN BOOLEAN IS
10: BEGIN
129: -- Also a generically useful function to fetch spec name.
130: -- bso Tue Feb 7 15:41:15 PST 2006
131: --
132: FUNCTION get_spec_name(p_spec_id NUMBER) RETURN VARCHAR2 IS
133: l_spec_name qa_specs.spec_name%TYPE;
134: BEGIN
135: SELECT spec_name INTO l_spec_name
136: FROM qa_specs
137: WHERE spec_id = p_spec_id AND rownum <= 1;
132: FUNCTION get_spec_name(p_spec_id NUMBER) RETURN VARCHAR2 IS
133: l_spec_name qa_specs.spec_name%TYPE;
134: BEGIN
135: SELECT spec_name INTO l_spec_name
136: FROM qa_specs
137: WHERE spec_id = p_spec_id AND rownum <= 1;
138:
139: RETURN l_spec_name;
140: END get_spec_name;
152: -- Use standard FND API to copy attachment from master
153: -- spec to child spec.
154: --
155: fnd_attached_documents2_pkg.copy_attachments(
156: x_from_entity_name => 'QA_SPECS',
157: x_from_pk1_value => p_from_spec_id,
158: x_to_entity_name => 'QA_SPECS',
159: x_to_pk1_value => p_to_spec_id);
160:
154: --
155: fnd_attached_documents2_pkg.copy_attachments(
156: x_from_entity_name => 'QA_SPECS',
157: x_from_pk1_value => p_from_spec_id,
158: x_to_entity_name => 'QA_SPECS',
159: x_to_pk1_value => p_to_spec_id);
160:
161: END copy_attachment;
162:
159: x_to_pk1_value => p_to_spec_id);
160:
161: END copy_attachment;
162:
163: END qa_specs_pkg;