[Home] [Help]
PACKAGE: APPS.IGF_GR_GEN_XML
Source
1 PACKAGE IGF_GR_GEN_XML AS
2 /* $Header: IGFGR12S.pls 120.0 2005/06/02 15:45:04 appldev noship $ */
3 /*************************************************************
4 Created By : ugummall
5 Date Created On : 2004/10/04
6 Purpose :
7 Know limitations, enhancements or remarks
8 Change History
9 Who When What
10 (reverse chronological order - newest change first)
11 ***************************************************************/
12
13 PROCEDURE main (
14 errbuf OUT NOCOPY VARCHAR2,
15 retcode OUT NOCOPY NUMBER,
16 p_award_year IN VARCHAR2,
17 p_source_entity_id IN VARCHAR2,
18 p_report_entity_id IN VARCHAR2,
19 p_rep_dummy IN VARCHAR2,
20 p_attend_entity_id IN VARCHAR2,
21 p_atd_dummy IN VARCHAR2,
22 p_base_id IN IGF_GR_RFMS_ALL.BASE_ID%TYPE,
23 p_per_dummy IN NUMBER,
24 p_persid_grp IN NUMBER
25 );
26
27 PROCEDURE store_xml ( itemtype IN VARCHAR2,
28 itemkey IN VARCHAR2,
29 actid IN NUMBER,
30 funcmode IN VARCHAR2,
31 resultout OUT NOCOPY VARCHAR2);
32
33 PROCEDURE print_xml ( errbuf OUT NOCOPY VARCHAR2,
34 retcode OUT NOCOPY NUMBER,
35 p_document_id VARCHAR2);
36
37 PROCEDURE set_nls_fmt(PARAM in VARCHAR2);
38
39 CURSOR cur_rfms ( cp_ci_cal_type igf_gr_rfms.ci_cal_type%TYPE,
40 cp_ci_sequence_number igf_gr_rfms.ci_sequence_number%TYPE,
41 cp_rep_entity_id_txt igf_gr_rfms.rep_entity_id_txt%TYPE,
42 cp_atd_entity_id_txt igf_gr_rfms.atd_entity_id_txt%TYPE,
43 cp_base_id igf_gr_rfms.base_id%TYPE
44 ) IS
45 SELECT rfms.*
46 FROM IGF_GR_RFMS RFMS
47 WHERE rfms.ci_cal_type = cp_ci_cal_type
48 AND rfms.ci_sequence_number = cp_ci_sequence_number
49 AND NVL(rfms.rep_entity_id_txt, '-1') = NVL(cp_rep_entity_id_txt, NVL(rfms.rep_entity_id_txt, '-1'))
50 AND NVL(rfms.atd_entity_id_txt, '-1') = NVL(cp_atd_entity_id_txt, NVL(rfms.atd_entity_id_txt, '-1'))
51 AND rfms.base_id = NVL(cp_base_id, rfms.base_id)
52 AND rfms.orig_action_code = 'R';
53 -- FOR UPDATE OF orig_action_code NOWAIT;
54
55 END IGF_GR_GEN_XML;