DBA Data[Home] [Help]

APPS.AHL_VWP_VISITS_STAGES_PVT dependencies on AHL_VWP_STAGES_B_S

Line 518: SELECT Ahl_vwp_stages_B_S.NEXTVAL

514:
515: l_isValidationFailed BOOLEAN DEFAULT false;
516:
517: CURSOR c_seq IS
518: SELECT Ahl_vwp_stages_B_S.NEXTVAL
519: FROM dual;
520:
521: -- To find whether id already exists
522: CURSOR c_id_exists (x_id IN NUMBER) IS

Line 1491: update AHL_VWP_STAGES_B set OBJECT_VERSION_NUMBER=OBJECT_VERSION_NUMBER+1,

1487: --Set duration to zero, calling UPDATE_AS_STAGE_RULE_DEL next to this statement will not consider duration into account
1488: IF (l_log_statement >= l_log_current_level) THEN
1489: fnd_log.string(l_log_statement,L_DEBUG,p_x_stages_tbl(i).STAGE_ID||' stage id updated');
1490: END IF;
1491: update AHL_VWP_STAGES_B set OBJECT_VERSION_NUMBER=OBJECT_VERSION_NUMBER+1,
1492: DURATION = 0,
1493: LAST_UPDATE_DATE = SYSDATE,
1494: LAST_UPDATED_BY = Fnd_Global.USER_ID,
1495: LAST_UPDATE_LOGIN = Fnd_Global.LOGIN_ID

Line 2002: SELECT Ahl_vwp_stages_B_S.NEXTVAL

1998: IS
1999:
2000: -- To find the next id value from visit sequence
2001: CURSOR c_seq IS
2002: SELECT Ahl_vwp_stages_B_S.NEXTVAL
2003: FROM dual;
2004:
2005: -- To find whether id already exists
2006: CURSOR c_id_exists (x_id IN NUMBER) IS

Line 2559: FROM ahl_stage_links link, ahl_vwp_stages_b stage1, ahl_vwp_stages_b stage2

2555: --Cursor to get all the stage rules of the stage in a visit
2556: CURSOR c_get_stage_rules (p_stage_id IN NUMBER)
2557: IS
2558: SELECT link.stage_link_id, link.relation_type, link.object_id, link.subject_id
2559: FROM ahl_stage_links link, ahl_vwp_stages_b stage1, ahl_vwp_stages_b stage2
2560: WHERE stage1.stage_id = p_stage_id
2561: AND stage1.visit_id = stage2.visit_id
2562: AND link.subject_id = stage2.stage_id;
2563:

Line 2598: FROM ahl_stage_links link, ahl_vwp_stages_b stage1, ahl_vwp_stages_b stage2

2594:
2595: -- Cursor to get all the parallel stage rules
2596: CURSOR c_get_parallel_stage_rules1 (c_stage_id IN NUMBER) IS
2597: SELECT link.stage_link_id, link.object_id, link.subject_id, stage1.visit_id
2598: FROM ahl_stage_links link, ahl_vwp_stages_b stage1, ahl_vwp_stages_b stage2
2599: WHERE stage1.stage_id = c_stage_id
2600: AND stage1.visit_id = stage2.visit_id
2601: AND link.subject_id = stage2.stage_id
2602: AND link.relation_type = 'PARALLEL';

Line 2606: FROM ahl_stage_links link, ahl_vwp_stages_b stage1, ahl_vwp_stages_b stage2

2602: AND link.relation_type = 'PARALLEL';
2603:
2604: CURSOR c_get_parallel_stage_rules2 (c_stage_id IN NUMBER, c_link_id IN NUMBER) IS
2605: SELECT link.stage_link_id, link.object_id, link.subject_id
2606: FROM ahl_stage_links link, ahl_vwp_stages_b stage1, ahl_vwp_stages_b stage2
2607: WHERE stage1.stage_id = c_stage_id
2608: AND stage1.visit_id = stage2.visit_id
2609: AND link.subject_id = stage2.stage_id
2610: AND link.relation_type = 'PARALLEL'

Line 3177: ahl_vwp_stages_b stage_obj, ahl_vwp_stages_b stage_sub

3173: --To fetch all the stage rules of a stage and get the visit subject and object stage ids corresponding to visit type subject and object stage ids
3174: CURSOR get_stage_rules (p_visit_type_stage_id IN NUMBER, p_visit_id IN NUMBER) IS
3175: SELECT stage_obj.stage_id object_id, stage_sub.stage_id subject_id, links.relation_type
3176: FROM ahl_vst_typ_stage_links links, ahl_visit_type_stages_b vt_obj, ahl_visit_type_stages_b vt_sub,
3177: ahl_vwp_stages_b stage_obj, ahl_vwp_stages_b stage_sub
3178: WHERE links.subject_id = p_visit_type_stage_id
3179: AND links.subject_id = vt_sub.visit_type_stage_id
3180: AND links.object_id = vt_obj.visit_type_stage_id
3181: AND vt_sub.stage_number = stage_sub.stage_num

Line 3622: AND ( ahl_stage_links.subject_id=AHL_VWP_STAGES_B.stage_id OR ahl_stage_links.object_id=AHL_VWP_STAGES_B.stage_id)

3618: Cursor c_parallel_stages_dets(vst_id IN NUMBER) IS
3619: SELECT distinct STAGE_LINK_ID,subject_ID,object_ID FROM
3620: ahl_stage_links ,AHL_VWP_STAGES_B
3621: WHERE RELATION_TYPE='PARALLEL'
3622: AND ( ahl_stage_links.subject_id=AHL_VWP_STAGES_B.stage_id OR ahl_stage_links.object_id=AHL_VWP_STAGES_B.stage_id)
3623: AND VISIT_ID =vst_id;
3624:
3625: l_parallel_stg_dets c_parallel_stages_dets%RowType;
3626:

Line 3848: AND ( ahl_stage_links.subject_id=AHL_VWP_STAGES_B.stage_id OR ahl_stage_links.object_id=AHL_VWP_STAGES_B.stage_id)

3844: Cursor c_parallel_stages_dets(vst_id IN NUMBER) IS
3845: SELECT distinct STAGE_LINK_ID,subject_ID,object_ID FROM
3846: ahl_stage_links ,AHL_VWP_STAGES_B
3847: WHERE RELATION_TYPE='PARALLEL'
3848: AND ( ahl_stage_links.subject_id=AHL_VWP_STAGES_B.stage_id OR ahl_stage_links.object_id=AHL_VWP_STAGES_B.stage_id)
3849: AND VISIT_ID =vst_id;
3850:
3851: l_parallel_stg_dets c_parallel_stages_dets%RowType;
3852:

Line 3899: update AHL_VWP_STAGES_B set object_version_number=object_version_number+1,

3895: select max(START_DATE_TIME) into l_visit_start_date from AHL_VISITS_VL where VISIT_ID = p_visit_id;
3896: IF p_relation_type = 'BEFORE' THEN -- BEFORE
3897:
3898: --Update prev_stage_num to null as current relation is going to be deleted.
3899: update AHL_VWP_STAGES_B set object_version_number=object_version_number+1,
3900: PREV_STAGE_NUM = NULL,
3901: LAST_UPDATE_DATE = SYSDATE,
3902: LAST_UPDATED_BY = Fnd_Global.USER_ID,
3903: LAST_UPDATE_LOGIN = Fnd_Global.LOGIN_ID

Line 3958: update AHL_VWP_STAGES_B set OBJECT_VERSION_NUMBER=OBJECT_VERSION_NUMBER+1,

3954: fnd_log.string(l_log_statement,L_DEBUG,'Update stage start date is '||l_prev_stage_planned_end_date||' for stage '||l_update_stage_id);
3955: END IF;
3956:
3957: -- update stage start date to previous stage planned end date
3958: update AHL_VWP_STAGES_B set OBJECT_VERSION_NUMBER=OBJECT_VERSION_NUMBER+1,
3959: PLANNED_START_DATE=l_prev_stage_planned_end_date,
3960: LAST_UPDATE_DATE = SYSDATE,
3961: LAST_UPDATED_BY = Fnd_Global.USER_ID,
3962: LAST_UPDATE_LOGIN = Fnd_Global.LOGIN_ID

Line 4107: AHL_VWP_STAGES_B SUBSTG,

4103: FROM (
4104: SELECT SUBJECT_ID,OBJECT_ID FROM AHL_STAGE_LINKS
4105: WHERE OBJECT_ID = obj_id AND RELATION_TYPE ='BEFORE'
4106: ) SRules,
4107: AHL_VWP_STAGES_B SUBSTG,
4108: AHL_VWP_STAGES_B OBJSTG
4109: WHERE SUBSTG.STAGE_ID = SRules.SUBJECT_ID AND OBJSTG.STAGE_ID = SRules.OBJECT_ID;
4110:
4111: -- To get all parallel stages under visit

Line 4116: AND ( ahl_stage_links.subject_id=AHL_VWP_STAGES_B.stage_id OR ahl_stage_links.object_id=AHL_VWP_STAGES_B.stage_id)

4112: Cursor c_parallel_stages_dets(vst_id IN NUMBER) IS
4113: SELECT distinct STAGE_LINK_ID,subject_ID,object_ID FROM
4114: ahl_stage_links ,AHL_VWP_STAGES_B
4115: WHERE RELATION_TYPE='PARALLEL'
4116: AND ( ahl_stage_links.subject_id=AHL_VWP_STAGES_B.stage_id OR ahl_stage_links.object_id=AHL_VWP_STAGES_B.stage_id)
4117: AND VISIT_ID =vst_id;
4118:
4119: l_parallel_stg_dets c_parallel_stages_dets%RowType;
4120:

Line 4128: from AHL_VISITS_B VST, AHL_VWP_STAGES_B STG

4124: SELECT VST.VISIT_ID,STAGE_ID,
4125: VST.department_id DEPT_ID, nvl(STG.duration,0) DURATION,
4126: CASE WHEN nvl(VST.start_date_time,STG.earliest_start_date) >= nvl(STG.earliest_start_date,VST.start_date_time)
4127: THEN VST.start_date_time ELSE STG.earliest_start_date END MAX_START_DATE
4128: from AHL_VISITS_B VST, AHL_VWP_STAGES_B STG
4129: WHERE VST.VISIT_ID = STG.VISIT_ID
4130: AND VST.VISIT_ID = vst_id
4131: AND STG.STAGE_ID = stg_id;
4132:

Line 4202: UPDATE AHL_VWP_STAGES_B SET OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER+1,

4198:
4199: -- PRAKKUM :: 23-FEB-2011 :: Bug 13711800 :: Fix for Operational Visits
4200: l_planned_end_date := Compute_Stage_End_Date(p_visit_id, null, l_stg_start_date_dets.MAX_START_DATE, l_stg_start_date_dets.DEPT_ID, l_stg_start_date_dets.DURATION);
4201:
4202: UPDATE AHL_VWP_STAGES_B SET OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER+1,
4203: PLANNED_START_DATE = l_stg_start_date_dets.MAX_START_DATE,
4204: PLANNED_END_DATE = l_planned_end_date,
4205: LAST_UPDATE_DATE = SYSDATE,
4206: LAST_UPDATED_BY = Fnd_Global.USER_ID,

Line 4473: /*update AHL_VWP_STAGES_B set object_version_number=object_version_number+1,

4469: END IF;
4470:
4471: --IF l_prev_stg_num is NULL THEN
4472:
4473: /*update AHL_VWP_STAGES_B set object_version_number=object_version_number+1,
4474: PLANNED_START_DATE=l_prev_stage_planned_end_date,
4475: PREV_STAGE_NUM = l_stg_stage_number,
4476: LAST_UPDATE_DATE = SYSDATE,
4477: LAST_UPDATED_BY = Fnd_Global.USER_ID,

Line 4666: from ahl_vwp_stages_b stg,

4662: ELSE
4663: nvl(vst.start_date_time,stg.earliest_start_date)
4664: END stage_start_date , -- PRAKKUM :: 08-JUL-2011 :: VWPE 12730539 :: Stage start date w.r.t visit start date
4665: vst.department_id
4666: from ahl_vwp_stages_b stg,
4667: ahl_visits_vl vst
4668: WHERE
4669: vst.visit_id = stg.visit_id AND vst.VISIT_ID = x_id;
4670:

Line 4685: AHL_STAGE_LINKS STG_LK,AHL_VWP_STAGES_B STG

4681: cursor c_stage_rules_count (p_visit_id IN NUMBER)
4682: IS
4683: SELECT count(1) as cnt
4684: FROM
4685: AHL_STAGE_LINKS STG_LK,AHL_VWP_STAGES_B STG
4686: WHERE ( STG.STAGE_ID = STG_LK.subject_ID OR STG.STAGE_ID = STG_LK.object_ID )
4687: AND STG.VISIT_ID = p_visit_id;
4688: /*
4689: --cursor to find stages whose earliest start date not wintinh stage planned start date and end dates

Line 4753: UPDATE AHL_VWP_STAGES_B set object_version_number=object_version_number+1,

4749:
4750: IF l_visit_limited_dets.status_code='DRAFT' AND (l_dept_id IS NULL OR l_visit_start_date IS NULL OR (l_visit_limited_dets.visit_type_code IS NULL AND l_visit_limited_dets.IS_OLD_VISIT <> 'Y')) THEN
4751:
4752: -- On a draft visit if anything above seems null then stop processing and make all date calculations to null
4753: UPDATE AHL_VWP_STAGES_B set object_version_number=object_version_number+1,
4754: PLANNED_START_DATE=null,
4755: PLANNED_END_DATE=null,
4756: LAST_UPDATE_DATE = SYSDATE,
4757: LAST_UPDATED_BY = Fnd_Global.USER_ID,

Line 4852: AHL_STAGE_LINKS STG_LK,AHL_VWP_STAGES_B STG

4848:
4849: SELECT distinct STG_LK.subject_ID, STG_LK.object_ID, STG_LK.RELATION_TYPE
4850: BULK COLLECT INTO l_stages_links
4851: FROM
4852: AHL_STAGE_LINKS STG_LK,AHL_VWP_STAGES_B STG
4853: WHERE ( STG.STAGE_ID = STG_LK.subject_ID OR STG.STAGE_ID = STG_LK.object_ID )
4854: AND STG.VISIT_ID = p_visit_id;
4855:
4856: IF (l_log_statement >= l_log_current_level) THEN

Line 5626: UPDATE AHL_VWP_STAGES_B SET object_version_number=object_version_number+1,

5622: fnd_log.string(l_log_statement,L_DEBUG,'SD '||l_stage_start_date||' ED '||l_stage_end_date ||' for stage id '||l_stage_id);
5623: END IF;
5624:
5625: -- Stage dates are updated
5626: UPDATE AHL_VWP_STAGES_B SET object_version_number=object_version_number+1,
5627: PLANNED_START_DATE = l_stage_start_date,
5628: PLANNED_END_DATE = l_stage_end_date,
5629: LAST_UPDATE_DATE = SYSDATE,
5630: LAST_UPDATED_BY = Fnd_Global.USER_ID,

Line 5722: AND ( ahl_stage_links.subject_id=AHL_VWP_STAGES_B.stage_id OR ahl_stage_links.object_id=AHL_VWP_STAGES_B.stage_id)

5718: Cursor c_parallel_stages_dets(vst_id IN NUMBER) IS
5719: SELECT distinct STAGE_LINK_ID,subject_ID,object_ID FROM
5720: ahl_stage_links ,AHL_VWP_STAGES_B
5721: WHERE RELATION_TYPE='PARALLEL'
5722: AND ( ahl_stage_links.subject_id=AHL_VWP_STAGES_B.stage_id OR ahl_stage_links.object_id=AHL_VWP_STAGES_B.stage_id)
5723: AND VISIT_ID =vst_id;
5724:
5725: l_parallel_stg_dets c_parallel_stages_dets%RowType;
5726:

Line 5804: l_query_str :=' select MAX(stg.PLANNED_END_DATE) from ahl_stage_links, ahl_vwp_stages_b stg '||

5800: fnd_log.string(l_log_statement,L_DEBUG,'parallelStagesInStr is :' ||parallelStagesInStr );
5801: END IF;
5802:
5803: -- Get max planned end date from all parallel stage before stages
5804: l_query_str :=' select MAX(stg.PLANNED_END_DATE) from ahl_stage_links, ahl_vwp_stages_b stg '||
5805: ' where stg.STAGE_ID = subject_id AND relation_type = ''BEFORE'' '||
5806: ' and object_id in (' || parallelStagesInStr ||')';
5807:
5808: IF (l_log_statement >= l_log_current_level) THEN

Line 5821: ' MAX(stg.EARLIEST_START_DATE) MAX_EARLIEST_START_DATE from ahl_vwp_stages_b stg '||

5817:
5818: -- PRAKKUM :: 09/05/2012 :: Bug 13965577
5819: -- Get max earliest start date from all parallel stages
5820: l_query_str :=' select '||
5821: ' MAX(stg.EARLIEST_START_DATE) MAX_EARLIEST_START_DATE from ahl_vwp_stages_b stg '||
5822: ' where stg.STAGE_ID in (' || parallelStagesInStr ||')';
5823:
5824: IF (l_log_statement >= l_log_current_level) THEN
5825: fnd_log.string(l_log_statement,L_DEBUG,'l_query_str is :' ||l_query_str);

Line 5837: ' else MAX(stg.PLANNED_START_DATE) end MIN_PLANNED_START_DATE from ahl_vwp_stages_b stg '||

5833:
5834: -- Get max planned start date from all parallel stages considering if earliest start date exists
5835: l_query_str :=' select case when '||
5836: ' (MAX(stg.EARLIEST_START_DATE)>MAX(stg.PLANNED_START_DATE)) then MAX(stg.EARLIEST_START_DATE) '||
5837: ' else MAX(stg.PLANNED_START_DATE) end MIN_PLANNED_START_DATE from ahl_vwp_stages_b stg '||
5838: ' where stg.STAGE_ID in (' || parallelStagesInStr ||')';
5839:
5840: IF (l_log_statement >= l_log_current_level) THEN
5841: fnd_log.string(l_log_statement,L_DEBUG,'l_query_str is :' ||l_query_str);

Line 5880: l_query_str :=' UPDATE AHL_VWP_STAGES_B set object_version_number=object_version_number+1, '||

5876: fnd_log.string(l_log_statement,L_DEBUG,'l_planned_end_date is :' ||TO_CHAR(l_planned_end_date,'DD-MON-YYYY HH24:MI:SS') );
5877: END IF;
5878:
5879:
5880: l_query_str :=' UPDATE AHL_VWP_STAGES_B set object_version_number=object_version_number+1, '||
5881: ' PLANNED_START_DATE = :p_planned_end_date, '||
5882: ' LAST_UPDATE_DATE = SYSDATE, '||
5883: ' LAST_UPDATED_BY = Fnd_Global.USER_ID, '||
5884: ' LAST_UPDATE_LOGIN = Fnd_Global.LOGIN_ID '||

Line 6186: ahl_vwp_stages_b stg

6182: --To get invalid stages whose end date falls beyond visit end date
6183: CURSOR get_invalid_stages(c_visit_id IN NUMBER) IS
6184: SELECT stg.stage_id,stg.stage_num,stg.planned_end_date,vst.close_date_time
6185: FROM ahl_visits_b vst,
6186: ahl_vwp_stages_b stg
6187: WHERE vst.visit_id = stg.visit_id
6188: AND TRUNC(stg.planned_end_date,'MI') > TRUNC(nvl(vst.close_date_time,stg.planned_end_date),'MI')
6189: AND vst.visit_id = c_visit_id
6190: AND vst.status_code <> 'DRAFT'