[Home] [Help]
1: package body PSA_MF_ADJ_DIST_ALL_PKG AS
2: /* $Header: PSAMFAHB.pls 120.5 2006/09/13 12:20:08 agovil ship $ */
3:
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFAHB.PSA_MF_ADJ_DIST_ALL_PKG.';
12: --===========================FND_LOG.END=======================================
13:
14: procedure INSERT_ROW (
15: X_ROWID in out NOCOPY VARCHAR2,
39: X_ATTRIBUTE14 in VARCHAR2,
40: X_ATTRIBUTE15 in VARCHAR2,
41: X_MODE in VARCHAR2
42: ) is
43: cursor C is select ROWID from PSA_MF_ADJ_DIST_ALL
44: where ADJUSTMENT_ID = X_ADJUSTMENT_ID
45: and CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID;
46: X_LAST_UPDATE_DATE DATE;
47: X_LAST_UPDATED_BY NUMBER;
69: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
70: -- ========================= FND LOG ===========================
71: app_exception.raise_exception;
72: end if;
73: insert into PSA_MF_ADJ_DIST_ALL (
74: ADJUSTMENT_ID,
75: CUST_TRX_LINE_GL_DIST_ID,
76: MF_ADJUSTMENT_CCID,
77: AMOUNT,
194: ATTRIBUTE12,
195: ATTRIBUTE13,
196: ATTRIBUTE14,
197: ATTRIBUTE15
198: from PSA_MF_ADJ_DIST_ALL
199: where ADJUSTMENT_ID = X_ADJUSTMENT_ID
200: and CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID
201: for update of ADJUSTMENT_ID nowait;
202: tlinfo c1%rowtype;
347: psa_utils.debug_other_msg(g_error_level,l_full_path,FALSE);
348: -- ========================= FND LOG ===========================
349: app_exception.raise_exception;
350: end if;
351: update PSA_MF_ADJ_DIST_ALL set
352: MF_ADJUSTMENT_CCID = X_MF_ADJUSTMENT_CCID,
353: AMOUNT = X_AMOUNT,
354: PERCENT = X_PERCENT,
355: PREV_CUST_TRX_LINE_ID = X_PREV_CUST_TRX_LINE_ID,
411: X_ATTRIBUTE14 in VARCHAR2,
412: X_ATTRIBUTE15 in VARCHAR2,
413: X_MODE in VARCHAR2
414: ) is
415: cursor c1 is select rowid from PSA_MF_ADJ_DIST_ALL
416: where ADJUSTMENT_ID = X_ADJUSTMENT_ID
417: and CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID
418: ;
419: dummy c1%rowtype;
486: X_ADJUSTMENT_ID in NUMBER,
487: X_CUST_TRX_LINE_GL_DIST_ID in NUMBER
488: ) is
489: begin
490: delete from PSA_MF_ADJ_DIST_ALL
491: where ADJUSTMENT_ID = X_ADJUSTMENT_ID
492: and CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID;
493: if (sql%notfound) then
494: raise no_data_found;
494: raise no_data_found;
495: end if;
496: end DELETE_ROW;
497:
498: end PSA_MF_ADJ_DIST_ALL_PKG;