1: PACKAGE BODY INVPVDR2 AS
2: /* $Header: INVPVD2B.pls 120.8.12020000.5 2013/01/23 08:35:18 lmai ship $ */
3:
4: FUNCTION validate_item_header2
5: (
349: end if;
350: status := 1;
351: END IF;
352: IF l_inv_debug_level IN(101, 102) THEN
353: INVPUTLI.info('INVPVDR2: Validating flags');
354: END IF;
355: -- validate ENCUMBRANCE_ACCOUNT
356: select ENCUMBRANCE_REVERSAL_FLAG
357: into resersal_flag
1221: err_text := substr('INVPVALI.validate_item_header2' || SQLERRM, 1,240);
1222: return(SQLCODE);
1223: end validate_item_header2;
1224:
1225: end INVPVDR2;