The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_LAST_UPDATE_LOGIN Number;
l_LAST_UPDATED_BY Number;
Select
ALLOCATION_SET_ID
,ALLOCATION_SET_NAME
,OWNER
,ACCESS_SET_ID
,LEDGER_ID
,LEDGER_CURRENCY
,PERIOD_NAME
,BUDGET_VERSION_ID
,BALANCING_SEGMENT_VALUE
,JOURNAL_EFFECTIVE_DATE
,CALCULATION_EFFECTIVE_DATE
,USAGE_CODE
,GL_PERIOD_NAME
,PA_PERIOD_NAME
,EXPENDITURE_ITEM_DATE
,CREATED_BY
,LAST_UPDATED_BY
,LAST_UPDATE_LOGIN
,ORG_ID
From GL_AUTO_ALLOC_SET_HISTORY
Where REQUEST_ID = p_request_Id;
SELECT user_name
FROM fnd_user
WHERE user_id = l_user_id;
SELECT chart_of_accounts_id
FROM GL_ACCESS_SETS
WHERE access_set_id = l_access_set_id;
,l_LAST_UPDATED_BY
,l_LAST_UPDATE_LOGIN
,l_org_id;
UPDATE GL_AUTO_ALLOC_SET_HISTORY
SET MONITOR_URL = l_monitor_url
Where Request_Id = to_number(p_item_key);
aname => 'LAST_UPDATED_BY',
avalue => l_LAST_UPDATED_BY);
diagn_debug_msg('Create_And_Start_Wf: ' || 'Attribute CREATED_BY = ' ||to_char(l_LAST_UPDATED_BY));
aname => 'LAST_UPDATE_LOGIN',
avalue => l_LAST_UPDATE_LOGIN);
diagn_debug_msg('Create_And_Start_Wf: ' || 'Attribute LAST_UPDATE_LOGIN = ' ||to_char(l_LAST_UPDATE_LOGIN));
Select
STEP_NUMBER
, BATCH_ID
, BATCH_TYPE_CODE
, ALLOCATION_METHOD_CODE
, OWNER
From GL_AUTO_ALLOC_BATCH_HISTORY
Where REQUEST_ID = to_number(p_item_key)
AND Step_number > l_step_number
Order by Step_number ASC;
Select jb.status, jb.je_batch_id
FROM GL_JE_BATCHES jb,
GL_AUTO_ALLOC_BATCH_HISTORY bh
WHERE bh.request_id = to_number(p_item_key)
AND bh.step_number = l_step
AND jb.je_batch_id = bh.generated_je_batch_id;
Update GL_AUTO_ALLOC_BATCH_HISTORY
Set COMPLETE_FLAG = 'Y'
Where REQUEST_ID = to_number(p_item_key)
And STEP_NUMBER = l_step;
diagn_debug_msg('Rows updated='||to_char(SQL%ROWCOUNT));
diagn_debug_msg('Next_Step_Type: ' || 'No update any row for complete flag = Y');
Update_Status(to_number(p_item_key)
,f_step_number
,'UFE'
);
Update_Status(to_number(p_item_key)
,l_step_number
,'UFE'
);
Update_Status(to_number(p_item_key)
,l_step_number
,'JRP'
);
Update_Status(to_number(p_item_key)
,l_step_number
,'GC'
);
Update_Status(to_number(p_item_key)
,l_step_number
,'UFE'
);
Select JB.APPROVAL_STATUS_CODE,JB.JE_BATCH_ID
FROM GL_JE_BATCHES jb,
GL_AUTO_ALLOC_BATCH_HISTORY bh
WHERE bh.request_id = to_number(p_item_key)
AND bh.step_number = l_step_number
AND jb.je_batch_id = bh.generated_je_batch_id;
Update_Status(to_number(p_item_key)
,l_step_number
,'JAP'
);
Update_Status(to_number(p_item_key)
,l_step_number
,'GC'
);
Update_Status(to_number(p_item_key)
,l_step_number
,'UFE'
);
Select JB.APPROVAL_STATUS_CODE,JB.NAME,JB.JE_BATCH_ID
FROM GL_JE_BATCHES jb,
GL_AUTO_ALLOC_BATCH_HISTORY bh
WHERE bh.request_id = to_number(p_item_key)
AND bh.step_number = l_step_number
AND jb.je_batch_id = bh.generated_je_batch_id;
Update_Status(to_number(p_item_key)
,l_step_number
,'UFE'
);
Select JB.APPROVAL_STATUS_CODE,JB.JE_BATCH_ID
FROM GL_JE_BATCHES jb,
GL_AUTO_ALLOC_BATCH_HISTORY bh
WHERE bh.request_id = to_number(p_item_key)
AND bh.step_number = l_step_number
AND jb.je_batch_id = bh.generated_je_batch_id;
Update_Status(to_number(p_item_key)
,l_step_number
,'JAP'
);
Update_Status(to_number(p_item_key)
,l_step_number
,'GC'
);
Update_Status(to_number(p_item_key)
,l_step_number
,'UFE'
);
Select A.GENERATED_JE_BATCH_ID,
JEB.Name
From GL_JE_BATCHES JEB
,GL_AUTO_ALLOC_BATCH_HISTORY A
Where JEB.JE_BATCH_ID = A.GENERATED_JE_BATCH_ID
AND A.REQUEST_ID = to_number(p_item_key)
AND A.STEP_NUMBER = l_step_number;
Update_Status(to_number(p_item_key)
,l_step_number
,'GC'
);
Update_Status(to_number(p_item_key)
,l_step_number
,'UFE'
);
Procedure Select_And_Validate_Batch(p_item_type IN VARCHAR2,
p_item_key IN VARCHAR2,
p_actid IN NUMBER,
p_funcmode IN VARCHAR2,
p_result OUT NOCOPY VARCHAR2) Is
l_result Varchar2(1);
SELECT jb.je_batch_id
FROM GL_JE_BATCHES jb,
GL_AUTO_ALLOC_BATCH_HISTORY bh
WHERE bh.request_id = to_number(p_item_key)
AND bh.step_number = l_step_number
AND jb.je_batch_id = bh.generated_je_batch_id
AND jb.status NOT IN ('P','I','S');
diagn_debug_msg('Started Select_And_Validate_Batch');
diagn_debug_msg('Select_And_Validate_Batch: ' || 'Batch '||to_char(l_gen_batch_id)||' is already posted');
diagn_debug_msg('Select_And_Validate_Batch: ' || 'Batch '||to_char(l_gen_batch_id)||' is valid for posting');
Update_Status(to_number(p_item_key)
,l_step_number
,'GC'
);
diagn_debug_msg('Select_And_Validate_Batch: ' || 'Sending Notification. '||l_error_msg);
diagn_debug_msg('Select_And_Validate_Batch: ' || 'Message_name = '||l_message_Name);
Update_Status(to_number(p_item_key)
,l_step_number
,'BNP'
);
Wf_Core.Context('GL_AUTO_ALLOC_WF_PKG', 'Select_And_Validate_Batch', p_item_type, p_item_key);
diagn_debug_msg('Select_And_Validate_Batch: ' || err_msg ||'*'||err_stack);
Update_Status(to_number(p_item_key)
,l_step_number
,'UFE'
);
End Select_And_Validate_Batch;
Select jb.je_batch_id, jb.status
From GL_JE_BATCHES jb,
GL_AUTO_ALLOC_BATCH_HISTORY bh
Where bh.request_id = to_number(p_item_key)
And bh.step_number = l_step_number
And jb.je_batch_id = bh.generated_je_batch_id;
Update_Status(to_number(p_item_key)
,l_step_number
,'JBNP'
);
Update_Status(to_number(p_item_key)
,l_step_number
,'PC'
);
Update_Status(to_number(p_item_key)
,l_step_number
,'UFE'
);
Procedure Delete_Batch(p_item_type IN VARCHAR2,
p_item_key IN VARCHAR2,
p_actid IN NUMBER,
p_funcmode IN VARCHAR2,
p_result OUT NOCOPY VARCHAR2) Is
l_step_number Number;
Cursor Verify_Delete_C IS
Select
H.Step_Number
,H.Batch_Id
,H.BATCH_TYPE_CODE
,H.GENERATED_JE_BATCH_ID
,H.COMPLETE_FLAG
,JEB.Name
,JEB.Status
From GL_JE_BATCHES JEB
,GL_AUTO_ALLOC_BATCH_HISTORY H
Where
JEB.JE_BATCH_ID = H.GENERATED_JE_BATCH_ID
AND H.REQUEST_ID = to_number(p_item_key)
AND H.GENERATED_JE_BATCH_ID IS Not Null
AND JEB.Status <> 'P'
Order By H.STEP_NUMBER Desc;
Select step_number
From GL_AUTO_ALLOC_BATCH_HISTORY
Where
REQUEST_ID= to_number(p_item_key)
AND GENERATED_JE_BATCH_ID IS NULL
AND STATUS_CODE <> 'NS';
diagn_debug_msg('Rollback:Started Delete_Batch');
Open Verify_Delete_C;
Fetch Verify_Delete_C Into
l_step_number
,l_batch_id
,l_batch_type_code
,l_gen_batch_Id
,l_complete_flag
,l_gen_batch_name
,l_status;
If Verify_Delete_C%NOTFOUND Then
IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
diagn_debug_msg('Delete_Batch: ' || 'Rollback:No Batch to delete');
Update_Status(to_number(p_item_key)
,l_step_number
,'RNR'
);
diagn_debug_msg('Delete_Batch: ' || 'Rollback:Deleting Batch= '||to_char(l_gen_batch_Id));
DELETE gl_je_lines
WHERE je_header_id IN (SELECT je_header_id
FROM gl_je_headers
WHERE je_batch_id = l_gen_batch_Id);
DELETE gl_je_headers
WHERE je_batch_id = l_gen_batch_Id;
DELETE gl_je_batches
WHERE je_batch_id = l_gen_batch_Id;
diagn_debug_msg('Delete_Batch: ' || 'Rollback:Batch deleted');
Update_Status(to_number(p_item_key)
,l_step_number
,'RC'
);
Close Verify_Delete_C;
Update_Status(to_number(p_item_key)
,-1
,'RP'
);
Wf_Core.Context('GL_AUTO_ALLOC_WF_PKG', 'Delete_Batch', p_item_type, p_item_key);
diagn_debug_msg('Delete_Batch: ' || err_msg ||'*'||err_stack);
Update_Status(to_number(p_item_key)
,l_step_number
,'RUFE'
);
End Delete_Batch;
Select
Step_Number
,GENERATED_JE_BATCH_ID
From GL_AUTO_ALLOC_BATCH_HISTORY
WHERE REQUEST_ID = to_number(p_item_key)
And COMPLETE_FLAG = 'Y'
And Nvl(ALL_HEADERS_REVERSED,'N') <> 'Y'
And STEP_NUMBER <= l_step_number
Order by STEP_NUMBER desc;
Select JE.JE_HEADER_ID
FROM GL_JE_HEADERS JE
WHERE JE.JE_BATCH_ID = l_gen_batch_id
AND NOT EXISTS ( SELECT RB.JE_HEADER_ID
FROM GL_AUTO_ALLOC_REV_BATCHES RB
WHERE RB.PARENT_REQUEST_ID = to_number(p_item_key)
AND RB.JE_HEADER_ID = JE.JE_HEADER_ID);
Update_Status(to_number(p_item_key)
,l_step_number
,'RRP');
UPDATE GL_AUTO_ALLOC_BATCH_HISTORY
Set ALL_HEADERS_REVERSED = 'Y'
WHERE REQUEST_ID = to_number(p_item_key)
And GENERATED_JE_BATCH_ID = l_gen_batch_id;
diagn_debug_msg('Rows updated = '||to_char(SQL%ROWCOUNT));
Update_Status(to_number(p_item_key)
,l_step_number
,'RRC');
Update_Status(to_number(p_item_key)
,l_step_number
,'RRP');
UPDATE GL_AUTO_ALLOC_BATCH_HISTORY
Set ALL_HEADERS_REVERSED = 'Y'
WHERE REQUEST_ID = to_number(p_item_key)
And GENERATED_JE_BATCH_ID = l_gen_batch_id;
diagn_debug_msg('Rollback:Rows updated = '||to_char(SQL%ROWCOUNT));
Update_Status(to_number(p_item_key)
,l_step_number
,'RRC');
Update_Status(to_number(p_item_key)
,-1
,'RRC');
Update_Status(to_number(p_item_key)
,l_step_number
,'RUFE'
);
Select R.REVERSAL_JE_HEADER_ID
From GL_JE_BATCHES JEB
,GL_AUTO_ALLOC_REV_BATCHES R
Where JEB.JE_BATCH_ID = R.REVERSAL_JE_BATCH_ID
AND JEB.STATUS Not In ('P','I')
AND R.PARENT_REQUEST_ID = to_number(p_item_key);
Update_Status(to_number(p_item_key)
,-1
,'RPP');
Update_Status(to_number(p_item_key)
,-1
,'RC');
Select
Accrual_rev_status
,Accrual_rev_je_header_id
From GL_JE_HEADERS
Where JE_HEADER_ID = l_je_header_id;
Update_Status(to_number(p_item_key)
,l_step_number
,'RJNR');
Update_Status(to_number(p_item_key)
,l_step_number
,'RUFE'
);
Procedure Select_And_Validate_AllBatches(p_item_type IN VARCHAR2,
p_item_key IN VARCHAR2,
p_actid IN NUMBER,
p_funcmode IN VARCHAR2,
p_result OUT NOCOPY VARCHAR2) Is
l_reversal_je_batch_id NUMBER;
Select
GLAARV.REVERSAL_JE_BATCH_ID
,BH.step_Number
FROM GL_JE_BATCHES GLB
,GL_AUTO_ALLOC_BATCH_HISTORY BH
,GL_AUTO_ALLOC_REV_BATCHES GLAARV
Where GLB.JE_BATCH_ID = GLAARV.REVERSAL_JE_BATCH_ID
AND GLAARV.JE_BATCH_ID = BH.GENERATED_JE_BATCH_ID
AND GLB.STATUS NOT In ('P','I','S')
AND BH.REQUEST_ID = to_number(p_item_key)
AND GLAARV.PARENT_REQUEST_ID = to_number(p_item_key);
diagn_debug_msg('Rollback:Started Select_And_Validate_AllBatches');
diagn_debug_msg('Select_And_Validate_AllBatches: ' || 'Rollback: '||to_char(l_reversal_je_batch_id)||
' Batch is valid for posting');
diagn_debug_msg('Select_And_Validate_AllBatches: ' || 'Rollback:Batch '||to_char(l_reversal_je_batch_id)||
' is already posted');
Update_Status(to_number(p_item_key)
,l_step_number
,'RBNP');
diagn_debug_msg('Select_And_Validate_AllBatches: ' || '*************************************');
diagn_debug_msg('Select_And_Validate_AllBatches: ' || 'Rollback:All reverse batches valid for posting');
diagn_debug_msg('Select_And_Validate_AllBatches: ' || '*************************************');
Update_Status(to_number(p_item_key)
,-1
,'RPP');
diagn_debug_msg('Select_And_Validate_AllBatches: ' || 'Rollback:Batches not valid for posting = '||l_batches_not_valid||
' Sending Notification' );
diagn_debug_msg('Select_And_Validate_AllBatches: ' || 'Message_name = '||l_message_Name);
Wf_Core.Context('GL_AUTO_ALLOC_WF_PKG', 'Select_And_Validate_AllBatches', p_item_type, p_item_key);
diagn_debug_msg('Select_And_Validate_AllBatches: ' || err_msg ||'*'||err_stack);
Update_Status(to_number(p_item_key)
,l_step_number
,'RUFE'
);
End Select_And_Validate_AllBatches ;
Select JEB.Status
,JEB.JE_Batch_Id
,BH.Step_Number
From GL_JE_BATCHES JEB
,GL_AUTO_ALLOC_BATCH_HISTORY BH
,GL_AUTO_ALLOC_REV_BATCHES RB
Where JEB.JE_BATCH_ID = RB.REVERSAL_JE_BATCH_ID
And RB.JE_BATCH_ID = BH.GENERATED_JE_BATCH_ID
AND BH.REQUEST_ID = to_number(p_item_key)
And RB.PARENT_REQUEST_ID = to_number(p_item_key);
Update_status(
to_number(p_item_key)
,l_step_number
,'RJBNP');
Update_Status(to_number(p_item_key)
,-1
,'RC');
Update_Status(to_number(p_item_key)
,l_step_number
,'RUFE'
);
Update_Status(to_number(p_item_key)
,l_step_number
,'GP'
);
Update_Status(to_number(p_item_key)
,l_step_number
,'UFE'
);
SELECT jb.request_id,bh.generated_je_batch_id
FROM GL_JE_BATCHES jb,
GL_AUTO_ALLOC_BATCH_HISTORY bh
WHERE bh.request_id = to_number(p_item_key)
AND bh.step_number = l_step_number
AND jb.je_batch_id = bh.generated_je_batch_id;
diagn_debug_msg('SUBMIT_POSTING_PROGRAM: ' || 'Inserting req id = '||to_char(l_batch_request_id)||
' into histroy detail');
INSERT_BATCH_HIST_DET(
p_REQUEST_ID => l_batch_request_id
,p_PARENT_REQUEST_ID => l_parent_req_id
,p_STEP_NUMBER => l_step_number
,p_PROGRAM_NAME_CODE => 'GLPPOS'
,p_RUN_MODE => l_operating_mode);
Update GL_JE_BATCHES
Set Posting_Run_Id = l_posting_run_id
,Status = 'S'
Where JE_BATCH_ID in ( Select GLAARV.REVERSAL_JE_BATCH_ID
From GL_JE_BATCHES GLB
,GL_AUTO_ALLOC_REV_BATCHES GLAARV
Where GLB.JE_BATCH_ID = GLAARV.REVERSAL_JE_BATCH_ID
AND GLB.STATUS NOT In ('P','I','S')
AND GLAARV.PARENT_REQUEST_ID = to_number(p_item_key) );
Update_Status(to_number(p_item_key)
,-1
,'RPP'
);
Update GL_JE_BATCHES
Set Posting_Run_Id = l_posting_run_id,
Status = 'S'
Where JE_BATCH_ID IN
( SELECT bh.generated_je_batch_id
FROM GL_AUTO_ALLOC_BATCH_HISTORY bh,
GL_JE_BATCHES jb
WHERE bh.request_id = to_number(p_item_key)
AND bh.step_number = l_step_number
AND jb.je_batch_id = bh.generated_je_batch_id
AND jb.status NOT IN ('P','I','S')
);
Update_Status(to_number(p_item_key)
,l_step_number
,'PP'
);
Update_Status(to_number(p_item_key)
,l_step_number
,'UFE'
);
SELECT 'untaxed journals'
FROM DUAL
WHERE EXISTS
(SELECT 'UNTAXED'
FROM GL_JE_HEADERS JEH,
GL_LEDGERS LGR
WHERE JEH.je_batch_id = l_je_batch_id
AND JEH.tax_status_code = 'R'
AND JEH.currency_code <> 'STAT'
AND JEH.je_source = 'Manual'
AND LGR.ledger_id = JEH.ledger_id
AND LGR.ledger_category_code <> 'NONE'
AND LGR.enable_automatic_tax_flag = 'Y');
Select
NAME
,CONTROL_TOTAL
,RUNNING_TOTAL_DR
,RUNNING_TOTAL_CR
,DEFAULT_PERIOD_NAME
,ACTUAL_FLAG
,BUDGETARY_CONTROL_STATUS
,STATUS
,APPROVAL_STATUS_CODE
From GL_JE_BATCHES
Where JE_BATCH_ID = l_je_batch_id;
SELECT
jh.LEDGER_ID,
jh.BUDGET_VERSION_ID,
lgr.LATEST_ENCUMBRANCE_YEAR
FROM GL_JE_HEADERS jh, GL_LEDGERS lgr
WHERE jh.JE_BATCH_ID = l_je_batch_id
AND lgr.LEDGER_ID = jh.LEDGER_ID
AND lgr.LEDGER_CATEGORY_CODE <> 'NONE';
Update GL_JE_BATCHES
Set approval_status_code = 'Z'
Where je_batch_id = l_je_batch_id;
GL_PERIOD_STATUSES_PKG.select_columns(
101,
l_ledger_id,
l_period_name,
l_period_status,
l_start_date,
l_end_date,
l_period_num,
l_period_year);
SELECT max(decode(bud.status, 'I', 1, 'F', 1, 0)),
max(l_period_year - bud.latest_opened_year)
FROM GL_BUDGET_VERSIONS BV,
GL_BUDGETS BUD
WHERE BV.budget_version_id = l_budget_version_id
AND BUD.budget_type = BV.budget_type
AND BUD.budget_name = BV.budget_name;
Update_Status(to_number(p_item_key)
,l_step_number
,'GP'
);
Update_Status(to_number(p_item_key)
,l_step_number
,'UFE'
);
Update GL_JE_HEADERS
Set accrual_rev_flag = 'Y'
, accrual_rev_period_name = l_period_name
, accrual_rev_effective_date = decode(actual_flag,'A',
default_effective_date,accrual_rev_effective_date)
Where je_header_id = l_je_header_id;
Update_Status(to_number(p_item_key)
,l_step_number
,'RRP'
);
Update_Status(to_number(p_item_key)
,l_step_number
,'RUFE'
);
select userenv('LANG') into l_userenv_lang from dual;
select userenv('CLIENT_INFO') into l_client_info from dual;
Update_Status(to_number(p_item_key)
,l_step_number
,l_status_code
);
Update_Status(to_number(p_item_key)
,l_step_number
,l_status_code
);
Update_Status(to_number(p_item_key)
,l_step_number
,'UFE'
);
Select
H.Step_Number
,H.Batch_Id
,H.BATCH_TYPE_CODE
,H.GENERATED_JE_BATCH_ID
,H.COMPLETE_FLAG
,JEB.Status
From GL_JE_BATCHES JEB
,GL_AUTO_ALLOC_BATCH_HISTORY H
Where
JEB.JE_BATCH_ID = H.GENERATED_JE_BATCH_ID
AND H.REQUEST_ID = to_number(p_item_key)
Order By H.STEP_NUMBER Desc;
Select
H.Step_Number
,H.Batch_Id
,H.BATCH_TYPE_CODE
,H.GENERATED_JE_BATCH_ID
,JEB.Name
From GL_JE_BATCHES JEB
,GL_AUTO_ALLOC_BATCH_HISTORY H
Where JEB.JE_BATCH_ID = H.GENERATED_JE_BATCH_ID
AND H.REQUEST_ID = to_number(p_item_key)
AND H.COMPLETE_FLAG = 'Y'
Order By H.STEP_NUMBER Desc;
Update GL_AUTO_ALLOC_BATCH_HISTORY
Set COMPLETE_FLAG = 'Y'
Where REQUEST_ID = to_number(p_item_key)
And STEP_NUMBER = l_step_number;
Update_Status(to_number(p_item_key)
,l_step_number
,'RUFE'
);
Update_Status(to_number(p_item_key)
,l_step_number
,'RST'
);
Update_Status(to_number(p_item_key)
,l_step_number
,'ST'
);
procedure Selector_Func (p_item_type IN VARCHAR2,
p_item_key IN VARCHAR2,
p_actid IN NUMBER,
p_funcmode IN VARCHAR2,
p_result OUT NOCOPY VARCHAR2) IS
Begin
If ( p_funcmode = 'RUN' ) THEN
NULL;
diagn_debug_msg('Entering Selector_Func');
Wf_Core.Context('GL_AUTO_ALLOC_WF_PKG', 'SELECTOR_FUNC', p_item_type, p_item_key);
diagn_debug_msg('Selector_Func: ' || err_msg ||'*'||err_stack);
End Selector_Func ;
Procedure INSERT_BATCH_HIST_DET(
p_request_id IN NUMBER
,p_parent_request_id IN NUMBER
,p_step_number IN NUMBER
,p_program_name_code IN VARCHAR2
,p_run_mode IN VARCHAR2
,p_allocation_type IN VARCHAR2 DEFAULT 'GL'
,p_created_by IN NUMBER DEFAULT -1
,p_last_updated_by IN NUMBER DEFAULT -1
,p_last_update_login IN NUMBER DEFAULT -1
) IS
l_CREATED_BY NUMBER;
l_LAST_UPDATED_BY NUMBER;
l_LAST_UPDATE_LOGIN NUMBER;
Select step_number
From GL_AUTO_ALLOC_BATCH_HISTORY
WHERE request_Id = p_PARENT_REQUEST_ID
AND Status_Code Not In ( 'NS','RNR','RC');
,l_LAST_UPDATED_BY
,l_LAST_UPDATE_LOGIN
);
l_last_updated_by := p_last_updated_by;
l_last_update_login := p_last_update_login ;
Insert Into GL_AUTO_ALLOC_BAT_HIST_DET
(REQUEST_ID
,PARENT_REQUEST_ID
,STEP_NUMBER
,PROGRAM_NAME_CODE
,LAST_UPDATE_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_LOGIN
,CREATION_DATE
,CREATED_BY
,STATUS_CODE
,RUN_MODE
)
Values
(p_REQUEST_ID
,p_PARENT_REQUEST_ID
,p_STEP_NUMBER
,p_PROGRAM_NAME_CODE
,sysdate
,l_LAST_UPDATED_BY
,l_LAST_UPDATE_LOGIN
,sysdate
,l_CREATED_BY
,NULL
,p_RUN_MODE);
Insert Into GL_AUTO_ALLOC_BAT_HIST_DET
(REQUEST_ID
,PARENT_REQUEST_ID
,STEP_NUMBER
,PROGRAM_NAME_CODE
,LAST_UPDATE_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_LOGIN
,CREATION_DATE
,CREATED_BY
,STATUS_CODE
,RUN_MODE
)
Values
(p_REQUEST_ID
,p_PARENT_REQUEST_ID
,f_step_number
,p_PROGRAM_NAME_CODE
,sysdate
,l_LAST_UPDATED_BY
,l_LAST_UPDATE_LOGIN
,sysdate
,l_CREATED_BY
,NULL
,p_RUN_MODE);
End INSERT_BATCH_HIST_DET ;
,l_LAST_UPDATED_BY OUT NOCOPY NUMBER
,l_LAST_UPDATE_LOGIN OUT NOCOPY NUMBER ) IS
Begin
l_CREATED_BY:= WF_ENGINE.GetItemAttrNumber
(p_item_type,
p_item_key,
'CREATED_BY');
l_LAST_UPDATED_BY:= WF_ENGINE.GetItemAttrNumber
(p_item_type,
p_item_key,
'LAST_UPDATED_BY');
l_LAST_UPDATE_LOGIN:= WF_ENGINE.GetItemAttrNumber
(p_item_type,
p_item_key,
'LAST_UPDATE_LOGIN');
SELECT batch_type_code
FROM gl_auto_alloc_batch_history
WHERE Request_Id = X_Request_Id;
Procedure Update_Status(
l_request_id IN Number
,l_step_number IN Number
,l_status_code IN Varchar2 ) IS
f_step_number NUMBER;
Select
STATUS_CODE
,STEP_NUMBER
FROM GL_AUTO_ALLOC_BATCH_HISTORY
WHERE REQUEST_ID = l_request_id
AND ( STEP_NUMBER = l_step_number OR
-1 = l_step_number) ;
diagn_debug_msg('Update_Status: ' || 'Status_code = '||l_status_code||
' Step_number = '||to_char(l_step_number));
UPDATE GL_AUTO_ALLOC_BATCH_HISTORY
SET STATUS_CODE = l_status_code
WHERE REQUEST_ID = l_request_id
AND STEP_NUMBER = f_step_number;
UPDATE GL_AUTO_ALLOC_BATCH_HISTORY
SET STATUS_CODE = l_status_code
WHERE REQUEST_ID = l_request_id
AND STEP_NUMBER = l_step_number;
End Update_Status;
Select USER_CONCURRENT_PROGRAM_NAME
From fnd_concurrent_programs_vl
Where APPLICATION_ID = 101
AND CONCURRENT_PROGRAM_NAME = Prog_Code;
select userenv('LANG') into l_userenv_lang from dual;
select userenv('CLIENT_INFO') into l_client_info from dual;
select nvl(userenv('LANG'),'US') into l_userenv_lang from dual;
Update_Status(to_number(p_item_key)
,p_step_number
,l_status_code
);
diagn_debug_msg('Inserting req id = '||to_char(l_submit_request_id)||
' into histroy detail');
INSERT_BATCH_HIST_DET(
p_REQUEST_ID => l_submit_request_id
,p_PARENT_REQUEST_ID => l_parent_req_id
,p_STEP_NUMBER => p_step_number
,p_PROGRAM_NAME_CODE => Prog_Code
,p_RUN_MODE => l_operating_mode);
Update_Status(to_number(p_item_key)
,l_step_number
,'BNG'
);
Update_Status(to_number(p_item_key)
,l_step_number
,'BNG'
);
Update_Status(to_number(p_item_key)
,l_step_number
,'UFE'
);