1: package body PN_VAR_RENT_INV_PKG AS
2: /* $Header: PNVRINVB.pls 120.8 2007/04/24 07:52:19 lbala noship $ */
3:
4:
5: --------------------------------------------------------------------------------
79:
80: BEGIN
81:
82:
83: PNP_DEBUG_PKG.debug ('PN_VAR_RENT_INV_PKG.INSERT_ROW (+)');
84:
85: -------------------------------------------------------
86: -- We need to generate the var_rent_INv_id
87: -------------------------------------------------------
206: RAISE NO_DATA_FOUND;
207: END IF;
208: CLOSE c;
209:
210: PNP_DEBUG_PKG.debug ('PN_VAR_RENT_INV_PKG.INSERT_ROW (-)');
211:
212: END INSERT_ROW;
213:
214: -----------------------------------------------------------------------
218: procedure lock_row_exception (p_column_name IN varchar2,
219: p_new_value IN varchar2)
220: IS
221: BEGIN
222: PNP_DEBUG_PKG.debug ('PN_VAR_RENT_INV_PKG.LOCK_ROW_EXCEPTION (+)');
223:
224: fnd_message.set_name ('PN','PN_RECORD_CHANGED');
225: fnd_message.set_token ('COLUMN_NAME',p_column_name);
226: fnd_message.set_token ('NEW_VALUE',p_new_value);
225: fnd_message.set_token ('COLUMN_NAME',p_column_name);
226: fnd_message.set_token ('NEW_VALUE',p_new_value);
227: app_exception.RAISE_exception;
228:
229: PNP_DEBUG_PKG.debug ('PN_VAR_RENT_INV_PKG.LOCK_ROW_EXCEPTION (-)');
230: END lock_row_exception;
231:
232:
233: -------------------------------------------------------------------------------
287:
288: tlINfo c1%ROWTYPE;
289:
290: BEGIN
291: PNP_DEBUG_PKG.debug ('PN_VAR_RENT_INV_PKG.LOCK_ROW (+)');
292:
293: OPEN c1;
294: FETCH c1 INTO tlINfo;
295: IF (c1%NOTFOUND) THEN
566: END IF;
567:
568:
569:
570: PNP_DEBUG_PKG.debug ('PN_VAR_RENT_INV_PKG.LOCK_ROW (-)');
571:
572: END LOCK_ROW;
573:
574:
628: l_precision NUMBER;
629:
630: BEGIN
631:
632: PNP_DEBUG_PKG.debug ('PN_VAR_RENT_INV_PKG.UPDATE_ROW (+)');
633:
634: l_precision := nvl(pn_var_rent_calc_pkg.get_currency_precision(),4);
635:
636: UPDATE PN_VAR_RENT_INV_ALL SET
678: IF (SQL%NOTFOUND) THEN
679: RAISE NO_DATA_FOUND;
680: END IF;
681:
682: PNP_DEBUG_PKG.debug ('PN_VAR_RENT_INV_PKG.UPDATE_ROW (-)');
683:
684: END UPDATE_ROW;
685:
686:
695: X_VAR_RENT_INV_ID IN NUMBER
696: ) IS
697: BEGIN
698:
699: PNP_DEBUG_PKG.debug ('PN_VAR_RENT_INV_PKG.DELETE_ROW (+)');
700:
701: DELETE FROM PN_VAR_RENT_INV_ALL
702: WHERE VAR_RENT_INV_ID = X_VAR_RENT_INV_ID;
703:
704: IF (SQL%NOTFOUND) THEN
705: RAISE NO_DATA_FOUND;
706: END IF;
707:
708: PNP_DEBUG_PKG.debug ('PN_VAR_RENT_INV_PKG.DELETE_ROW (-)');
709:
710:
711: END DELETE_ROW;
712:
709:
710:
711: END DELETE_ROW;
712:
713: END PN_VAR_RENT_INV_PKG;
714: