13: -- Enter procedure, function bodies as shown below
14: G_PKG_NAME CONSTANT varchar2(30) :='IEM_EMAILPROC_HDL_PVT ';
15: G_ROUTE_ID varchar2(30) ;
16: G_EMAILPROC_ID varchar2(30);
17: G_created_updated_by NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID')) ;
18:
19: G_LAST_UPDATE_LOGIN NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ ID') ) ;
20:
21:
15: G_ROUTE_ID varchar2(30) ;
16: G_EMAILPROC_ID varchar2(30);
17: G_created_updated_by NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID')) ;
18:
19: G_LAST_UPDATE_LOGIN NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ ID') ) ;
20:
21:
22:
23:
567: l_api_name VARCHAR2(255):='update_account_emailprocs';
568: l_api_version_number NUMBER:=1.0;
569: l_emailproc_cnt NUMBER;
570: l_acct_cnt NUMBER;
571: l_LAST_UPDATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID')) ;
572: l_LAST_UPDATE_DATE DATE:=SYSDATE;
573: l_LAST_UPDATE_LOGIN NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ ID')) ;
574: l_enabled_flag VARCHAR2(1);
575:
569: l_emailproc_cnt NUMBER;
570: l_acct_cnt NUMBER;
571: l_LAST_UPDATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID')) ;
572: l_LAST_UPDATE_DATE DATE:=SYSDATE;
573: l_LAST_UPDATE_LOGIN NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ ID')) ;
574: l_enabled_flag VARCHAR2(1);
575:
576: BEGIN
577: -- Standard Start of API savepoint