1: PACKAGE BODY gma_standard AS
2: /* $Header: GMASTNDB.pls 120.2 2005/12/15 11:10:25 txdaniel noship $ */
3:
4: counter pls_integer;
5: v_eventQuery EDR_STANDARD.eventQuery;
6: v_ameRuleinputvalues EDR_STANDARD.ameRuleinputvalues;
7:
8: G_PKG_NAME CONSTANT VARCHAR2(30) := 'EDR_FILES_PUB';
9:
2: /* $Header: GMASTNDB.pls 120.2 2005/12/15 11:10:25 txdaniel noship $ */
3:
4: counter pls_integer;
5: v_eventQuery EDR_STANDARD.eventQuery;
6: v_ameRuleinputvalues EDR_STANDARD.ameRuleinputvalues;
7:
8: G_PKG_NAME CONSTANT VARCHAR2(30) := 'EDR_FILES_PUB';
9:
10: PROCEDURE PSIG_STATUS
13: p_event_key in varchar2,
14: P_status out NOCOPY varchar2
15: ) IS
16: BEGIN
17: edr_standard.psig_status(p_event, p_event_key, p_status);
18: END PSIG_STATUS;
19:
20: /* signature Requirement. This Procedure returns signature requireemnt for a given event.
21: The status is 'Yes' */
25: p_event_key in varchar2,
26: P_status out NOCOPY boolean
27: ) is
28: BEGIN
29: edr_standard.psig_required(p_event, p_event_key, p_status);
30: END PSIG_REQUIRED;
31:
32: /* eRecord Requirement. This Procedure returns signature requirement for a given event.
33: The status is 'true' or 'false' */
37: p_event_key in varchar2,
38: P_status out NOCOPY boolean
39: ) is
40: BEGIN
41: edr_standard.erec_required(p_event, p_event_key, p_status);
42: END EREC_REQUIRED;
43:
44: FUNCTION PSIG_QUERY(p_eventQuery GMA_STANDARD.eventQuery) return number IS PRAGMA AUTONOMOUS_TRANSACTION;
45: i number;
49: v_eventQuery(counter).event_name := p_eventQuery(counter).event_name;
50: v_eventQuery(counter).event_key := p_eventQuery(counter).event_key;
51: v_eventQuery(counter).key_type := p_eventQuery(counter).key_type;
52: end loop;
53: i := edr_standard.psig_query(v_eventQuery);
54: return i;
55: END PSIG_QUERY;
56:
57: PROCEDURE GET_AMERULE_INPUT_VALUES( ameapplication IN varchar2,
63: v_ameRuleinputvalues(counter).input_name := ameruleinputvalues(counter).input_name;
64: v_ameRuleinputvalues(counter).input_value := ameruleinputvalues(counter).input_value;
65: end loop;
66:
67: edr_standard.get_amerule_input_values(ameapplication, ameruleid, amerulename, v_ameRuleinputvalues);
68:
69: for counter IN 1..ameruleinputvalues.COUNT loop
70: v_ameRuleinputvalues(counter).input_name := ameruleinputvalues(counter).input_name;
71: v_ameRuleinputvalues(counter).input_value := ameruleinputvalues(counter).input_value;
73: END GET_AMERULE_INPUT_VALUES;
74:
75: PROCEDURE DISPLAY_DATE(P_DATE_IN in DATE , P_DATE_OUT OUT NOCOPY Varchar2) IS
76: BEGIN
77: edr_standard.display_date(p_date_in, p_date_out);
78: END DISPLAY_DATE;
79:
80: PROCEDURE UPLOAD_FILE( p_api_version IN NUMBER,
81: p_commit IN VARCHAR2,
546: p_parameter_name7 => '#WF_SIGN_REQUESTER',
547: p_parameter_value7 => l_user);
548:
549:
550: EDR_STANDARD.PSIG_STATUS
551: ( p_event => 'oracle.apps.edr.file.approve' ,
552: p_event_key => l_file_id ,
553: p_status => l_status
554: );
804: ( p_event_name IN VARCHAR2
805: ,p_event_key IN VARCHAR2
806: ) RETURN NUMBER IS
807: BEGIN
808: RETURN EDR_STANDARD_PUB.GET_ERECORD_ID
809: ( p_event_name => p_event_name
810: ,p_event_key => p_event_key
811: );
812: