54: X_LAST_UPDATE_DATE in DATE,
55: X_LAST_UPDATED_BY in NUMBER,
56: X_LAST_UPDATE_LOGIN in NUMBER
57: ) is
58: cursor C is select ROWID from AHL_VISIT_TASKS_B
59: where VISIT_TASK_ID = X_VISIT_TASK_ID
60: ;
61: begin
62: insert into AHL_VISIT_TASKS_B (
58: cursor C is select ROWID from AHL_VISIT_TASKS_B
59: where VISIT_TASK_ID = X_VISIT_TASK_ID
60: ;
61: begin
62: insert into AHL_VISIT_TASKS_B (
63: DEPARTMENT_ID,
64: PRICE_LIST_ID,
65: STATUS_CODE,
66: ESTIMATED_PRICE,
294: MR_ID,
295: DURATION,
296: UNIT_EFFECTIVITY_ID,
297: START_FROM_HOUR
298: from AHL_VISIT_TASKS_B
299: where VISIT_TASK_ID = X_VISIT_TASK_ID
300: for update of VISIT_TASK_ID nowait;
301: recinfo c%rowtype;
302:
473: X_LAST_UPDATED_BY in NUMBER,
474: X_LAST_UPDATE_LOGIN in NUMBER
475: ) is
476: begin
477: update AHL_VISIT_TASKS_B set
478: DEPARTMENT_ID = X_DEPARTMENT_ID,
479: PRICE_LIST_ID = X_PRICE_LIST_ID,
480: STATUS_CODE = X_STATUS_CODE,
481: ESTIMATED_PRICE = X_ESTIMATED_PRICE,
553: if (sql%notfound) then
554: raise no_data_found;
555: end if;
556:
557: delete from AHL_VISIT_TASKS_B
558: where VISIT_TASK_ID = X_VISIT_TASK_ID;
559:
560: if (sql%notfound) then
561: raise no_data_found;
567: begin
568: delete from AHL_VISIT_TASKS_TL T
569: where not exists
570: (select NULL
571: from AHL_VISIT_TASKS_B B
572: where B.VISIT_TASK_ID = T.VISIT_TASK_ID
573: );
574:
575: update AHL_VISIT_TASKS_TL T set (