49: )
50: IS
51: CURSOR C IS
52: SELECT ROWID
53: FROM PN_VAR_DEDUCTIONS_ALL
54: WHERE DEDUCTION_ID = X_DEDUCTION_ID;
55:
56: BEGIN
57:
62: -------------------------------------------------------
63:
64: SELECT NVL(max(deduction_num),0)
65: INTO X_DEDUCTION_NUM
66: FROM PN_VAR_DEDUCTIONS_ALL
67: WHERE LINE_ITEM_ID = X_LINE_ITEM_ID;
68:
69: X_DEDUCTION_NUM := X_DEDUCTION_NUM + 1;
70:
78: FROM dual;
79: END IF;
80:
81:
82: INSERT INTO PN_VAR_DEDUCTIONS_ALL
83: (
84: DEDUCTION_ID,
85: DEDUCTION_NUM,
86: EXPORTED_CODE,
211: )
212: IS
213: CURSOR c1 IS
214: SELECT *
215: FROM PN_VAR_DEDUCTIONS_ALL
216: WHERE DEDUCTION_ID = X_DEDUCTION_ID
217: FOR UPDATE OF DEDUCTION_ID NOWAIT;
218:
219: tlinfo c1%rowtype;
485: BEGIN
486:
487: PNP_DEBUG_PKG.debug ('PN_VAR_DEDUCTIONS_PKG.UPDATE_ROW (+)');
488:
489: UPDATE PN_VAR_DEDUCTIONS_ALL
490: SET
491: DEDUCTION_ID = X_DEDUCTION_ID,
492: DEDUCTION_NUM = X_DEDUCTION_NUM,
493: EXPORTED_CODE = X_EXPORTED_CODE,
545: BEGIN
546:
547: PNP_DEBUG_PKG.debug ('PN_VAR_DEDUCTIONS_PKG.DELETE_ROW (+)');
548:
549: DELETE FROM PN_VAR_DEDUCTIONS_ALL
550: WHERE DEDUCTION_ID = X_DEDUCTION_ID;
551:
552: IF (sql%notfound) THEN
553: RAISE NO_DATA_FOUND;