1: PACKAGE BODY OKE_MDS_RELIEF_PKG AS
2: /* $Header: OKEMDSFB.pls 120.2 2006/03/16 14:56:45 ausmani noship $ */
3:
4: PROCEDURE write_log ( mesg IN VARCHAR2 ) IS
5: BEGIN
6: fnd_file.put_line( fnd_file.log , mesg );
7: END write_log;
8:
9:
10: PROCEDURE Get_Record (x_mds_tbl IN OUT NOCOPY oke_mds_relief_pkg.mds_tbl_type) IS
11:
12: CURSOR Oke_C IS
13:
14: SELECT a.transaction_id
90: ( ERRBUF OUT NOCOPY VARCHAR2
91: , RETCODE OUT NOCOPY NUMBER
92: ) IS
93:
94: l_mds_tbl oke_mds_relief_pkg.mds_tbl_type;
95: l_transaction_id NUMBER;
96: l_count NUMBER := 0;
97: l_qty NUMBER;
98: l_schedule_date DATE;
317: RETCODE := 2;
318:
319: END Mds_Relief;
320:
321: END OKE_MDS_RELIEF_PKG;