PACKAGE BODY: APPS.CS_SR_COMP_SUBCOMP_PKG

Source

1 PACKAGE BODY CS_SR_COMP_SUBCOMP_PKG AS
2 /* $Header: csxamgrb.pls 120.1 2005/06/13 13:56:02 appldev  $ */
3 
4 PROCEDURE SR_DYNAMIC_ASSIGN
5 ( l_sr_rec          IN OUT NOCOPY JTF_ASSIGN_PUB.JTF_SERV_REQ_REC_TYPE
6 , l_component_id    IN NUMBER
7 , l_subcomponent_id in number ) IS
8 BEGIN
9   CS_SR_COMP_SUBCOMP_PKG.ll_sr_rec := null ;
10   CS_SR_COMP_SUBCOMP_PKG.ll_sr_rec := l_sr_rec ;
11 
12   EXECUTE IMMEDIATE
13   'BEGIN
14      CS_SR_COMP_SUBCOMP_PKG.ll_sr_rec.item_component     := :1;
15      CS_SR_COMP_SUBCOMP_PKG.ll_sr_rec.item_subcomponent  := :2;
16    END;'
17    USING l_component_id, l_subcomponent_id ;
18 
19    l_sr_rec                         := CS_SR_COMP_SUBCOMP_PKG.ll_sr_rec ;
20    CS_SR_COMP_SUBCOMP_PKG.ll_sr_rec := null ;
21 
22 END SR_DYNAMIC_ASSIGN ;
23 
24 PROCEDURE TASK_DYNAMIC_ASSIGN
25 ( l_task_rec IN OUT NOCOPY JTF_ASSIGN_PUB.JTF_SRV_TASK_REC_TYPE
26 , l_component_id in number
27 , l_subcomponent_id in number ) IS
28 
29 BEGIN
30   CS_SR_COMP_SUBCOMP_PKG.ll_sr_task_rec := null ;
31   CS_SR_COMP_SUBCOMP_PKG.ll_sr_task_rec := l_task_rec ;
32 
33   EXECUTE IMMEDIATE
34   'BEGIN
35      CS_SR_COMP_SUBCOMP_PKG.ll_sr_task_rec.item_component     := :1;
36      CS_SR_COMP_SUBCOMP_PKG.ll_sr_task_rec.item_subcomponent  := :2;
37    END;'
38    USING l_component_id, l_subcomponent_id ;
39 
40    l_task_rec                            := CS_SR_COMP_SUBCOMP_PKG.ll_sr_task_rec ;
41    CS_SR_COMP_SUBCOMP_PKG.ll_sr_task_rec := null ;
42 
43 END TASK_DYNAMIC_ASSIGN ;
44 
45 END CS_SR_COMP_SUBCOMP_PKG ;