[Home] [Help]
63: -- START: Defining local functions and procedures SIGNATURES --
64: --------------------------------------------------------------------
65: -- To Check_Visit_Task_Req_Items
66: PROCEDURE Check_Visit_Task_Req_Items (
67: p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type,
68: --Added by rnahata for Issue 105
69: p_validation_mode IN VARCHAR2 := Jtf_Plsql_Api.g_create,
70: x_return_status OUT NOCOPY VARCHAR2
71: );
71: );
72:
73: -- To Check_Visit_Task_UK_Items
74: PROCEDURE Check_Visit_Task_UK_Items (
75: p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type,
76: p_validation_mode IN VARCHAR2 := Jtf_Plsql_Api.g_create,
77: x_return_status OUT NOCOPY VARCHAR2
78: );
79:
78: );
79:
80: -- To Check_Task_Items
81: PROCEDURE Check_Task_Items (
82: p_Task_rec IN AHL_VWP_RULES_PVT.task_rec_type,
83: p_validation_mode IN VARCHAR2 := Jtf_Plsql_Api.g_create,
84: x_return_status OUT NOCOPY VARCHAR2
85: );
86:
89: p_api_version IN NUMBER,
90: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
91: p_commit IN VARCHAR2 := Fnd_Api.g_false,
92: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
93: p_Task_rec IN AHL_VWP_RULES_PVT.task_rec_type,
94: x_return_status OUT NOCOPY VARCHAR2,
95: x_msg_count OUT NOCOPY NUMBER,
96: x_msg_data OUT NOCOPY VARCHAR2
97: );
97: );
98:
99: -- To assign Null to missing attributes of visit while creation/updation.
100: PROCEDURE Default_Missing_Attribs(
101: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type
102: );
103:
104: -- To Create Unassociated Task
105: PROCEDURE Create_Unassociated_Task(
107: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
108: p_commit IN VARCHAR2 := Fnd_Api.g_false,
109: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
110: p_module_type IN VARCHAR2 := 'JSP',
111: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
112: x_return_status OUT NOCOPY VARCHAR2,
113: x_msg_count OUT NOCOPY NUMBER,
114: x_msg_data OUT NOCOPY VARCHAR2
115: );
120: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
121: p_commit IN VARCHAR2 := Fnd_Api.g_false,
122: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
123: p_module_type IN VARCHAR2 :='JSP',
124: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
125: x_return_status OUT NOCOPY VARCHAR2,
126: x_msg_count OUT NOCOPY NUMBER,
127: x_msg_data OUT NOCOPY VARCHAR2
128: );
146: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
147: p_commit IN VARCHAR2 := Fnd_Api.g_false,
148: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
149: p_module_type IN VARCHAR2 := 'JSP',
150: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
151: x_return_status OUT NOCOPY VARCHAR2,
152: x_msg_count OUT NOCOPY NUMBER,
153: x_msg_data OUT NOCOPY VARCHAR2
154: );
160: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
161: p_commit IN VARCHAR2 := Fnd_Api.g_false,
162: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
163: p_module_type IN VARCHAR2 := 'JSP',
164: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
165: x_return_status OUT NOCOPY VARCHAR2,
166: x_msg_count OUT NOCOPY NUMBER,
167: x_msg_data OUT NOCOPY VARCHAR2
168: );
189: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
190: p_commit IN VARCHAR2:= FND_API.G_FALSE,
191: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
192: p_module_type IN VARCHAR2:= 'JSP',
193: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
194: x_return_status OUT NOCOPY VARCHAR2,
195: x_msg_count OUT NOCOPY NUMBER,
196: x_msg_data OUT NOCOPY VARCHAR2
197: );
201: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
202: p_commit IN VARCHAR2:= FND_API.G_FALSE,
203: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
204: p_module_type IN VARCHAR2:= 'JSP',
205: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
206: x_return_status OUT NOCOPY VARCHAR2,
207: x_msg_count OUT NOCOPY NUMBER,
208: x_msg_data OUT NOCOPY VARCHAR2
209: );
318:
319: -- end of the local procedure to set default attribs.
320:
321: PROCEDURE Default_Missing_Attribs
322: ( p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type)
323: AS
324: L_API_NAME CONSTANT VARCHAR2(30) := 'Default_Missing_Attribs';
325: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
326: BEGIN
416: p_commit IN VARCHAR2 := Fnd_Api.g_false,
417: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
418: p_module_type IN VARCHAR2 :='JSP',
419: p_task_id IN NUMBER,
420: x_task_rec OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
421: x_return_status OUT NOCOPY VARCHAR2,
422: x_msg_count OUT NOCOPY NUMBER,
423: x_msg_data OUT NOCOPY VARCHAR2
424: )
427: L_API_NAME CONSTANT VARCHAR2(30) := 'Get_Task_Details';
428: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
429:
430: -- local variables defined for the procedure
431: l_task_rec AHL_VWP_RULES_PVT.Task_Rec_Type := NULL;
432: l_zone VARCHAR2(30);
433: l_sub_zone VARCHAR2(30);
434: l_uom VARCHAR2(30);
435: l_route_id NUMBER;
1120: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1121: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1122: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1123: p_module_type IN VARCHAR2 := 'JSP',
1124: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
1125: x_return_status OUT NOCOPY VARCHAR2,
1126: x_msg_count OUT NOCOPY NUMBER,
1127: x_msg_data OUT NOCOPY VARCHAR2
1128: )
1133: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
1134: l_msg_count NUMBER;
1135: l_msg_data VARCHAR2(2000);
1136: l_return_status VARCHAR2(1);
1137: l_task_rec AHL_VWP_RULES_PVT.Task_Rec_Type := p_x_task_rec;
1138:
1139: -- To find visit related information
1140: CURSOR c_visit(x_id IN NUMBER) IS
1141: SELECT * FROM AHL_VISITS_VL
1374: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1375: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1376: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1377: p_module_type IN VARCHAR2 := 'JSP',
1378: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
1379: x_return_status OUT NOCOPY VARCHAR2,
1380: x_msg_count OUT NOCOPY NUMBER,
1381: x_msg_data OUT NOCOPY VARCHAR2
1382: )
1385: L_API_NAME CONSTANT VARCHAR2(30) := 'CREATE UNASSOCIATED TASK';
1386: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
1387:
1388: -- Local variables defined for the procedure
1389: l_task_rec AHL_VWP_RULES_PVT.Task_Rec_Type := p_x_task_rec;
1390: l_msg_data VARCHAR2(2000);
1391: l_item_name VARCHAR2(40);
1392: l_rowid VARCHAR2(30);
1393: l_return_status VARCHAR2(1);
1533: l_Task_rec.inventory_item_id <> Fnd_Api.G_MISS_NUM) AND
1534: (l_Task_rec.item_organization_id IS NOT NULL AND
1535: l_Task_rec.item_organization_id <> Fnd_Api.G_MISS_NUM) THEN
1536:
1537: AHL_VWP_RULES_PVT.Check_Item_Name_Or_Id
1538: (p_item_id => l_Task_rec.inventory_item_id,
1539: p_org_id => l_Task_rec.item_organization_id,
1540: p_item_name => l_Task_rec.item_name,
1541: x_item_id => l_item_id,
1595:
1596: IF (l_log_statement >= l_log_current_level) THEN
1597: fnd_log.string(l_log_statement,
1598: L_DEBUG_KEY,
1599: 'Calling AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id');
1600: END IF;
1601:
1602: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
1603: (p_organization_id => c_visit_rec.organization_id,
1598: L_DEBUG_KEY,
1599: 'Calling AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id');
1600: END IF;
1601:
1602: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
1603: (p_organization_id => c_visit_rec.organization_id,
1604: p_dept_name => l_task_rec.dept_name,
1605: p_department_id => NULL,
1606: x_department_id => l_department_id,
1614: RAISE Fnd_Api.G_EXC_ERROR;
1615: END IF;
1616:
1617: -- Changes for Post 11.5.10 by amagrawa
1618: Ahl_vwp_rules_pvt.CHECK_DEPARTMENT_SHIFT
1619: ( P_DEPT_ID => l_department_id,
1620: X_RETURN_STATUS => l_return_status);
1621:
1622: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
1640: l_Task_rec.serial_number <> Fnd_Api.G_MISS_CHAR) THEN
1641: IF (l_log_statement >= l_log_current_level) THEN
1642: fnd_log.string(l_log_statement,
1643: L_DEBUG_KEY,
1644: ': AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id ' );
1645: END IF;
1646: AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id
1647: (p_item_id => l_Task_rec.inventory_item_id,
1648: p_org_id => l_Task_rec.item_organization_id,
1642: fnd_log.string(l_log_statement,
1643: L_DEBUG_KEY,
1644: ': AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id ' );
1645: END IF;
1646: AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id
1647: (p_item_id => l_Task_rec.inventory_item_id,
1648: p_org_id => l_Task_rec.item_organization_id,
1649: p_serial_id => l_Task_rec.instance_id,
1650: p_serial_number => l_Task_rec.serial_number,
1668: ': Before UC Item Org ID= ' || l_Task_rec.item_organization_id );
1669: END IF;
1670: /* sowsubra - start
1671: --BEGIN: jeli added for bug 3777720
1672: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(l_task_rec.visit_id, l_task_rec.instance_id)
1673: = FND_API.G_RET_STS_ERROR) THEN
1674: --END: jeli added for bug 3777720
1675: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
1676: Fnd_Msg_Pub.ADD;
1727: l_Task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
1728: IF (l_log_statement >= l_log_current_level) THEN
1729: fnd_log.string(l_log_statement,
1730: L_DEBUG_KEY,
1731: 'Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID ' );
1732: END IF;
1733: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
1734: (p_visit_task_id => l_Task_rec.cost_parent_id,
1735: p_visit_task_number => l_Task_rec.cost_parent_number,
1729: fnd_log.string(l_log_statement,
1730: L_DEBUG_KEY,
1731: 'Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID ' );
1732: END IF;
1733: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
1734: (p_visit_task_id => l_Task_rec.cost_parent_id,
1735: p_visit_task_number => l_Task_rec.cost_parent_number,
1736: p_visit_id => l_Task_rec.visit_id,
1737: x_visit_task_id => l_cost_parent_id,
1761:
1762: IF (l_log_statement >= l_log_current_level) THEN
1763: fnd_log.string(l_log_statement,
1764: L_DEBUG_KEY,
1765: 'Calling AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop ' );
1766: END IF;
1767: AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop
1768: (p_visit_id => l_Task_rec.visit_id,
1769: p_visit_task_id => l_Task_rec.visit_task_id ,
1763: fnd_log.string(l_log_statement,
1764: L_DEBUG_KEY,
1765: 'Calling AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop ' );
1766: END IF;
1767: AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop
1768: (p_visit_id => l_Task_rec.visit_id,
1769: p_visit_task_id => l_Task_rec.visit_task_id ,
1770: p_cost_parent_id => l_Task_rec.cost_parent_id
1771: );
1783: l_Task_rec.orginating_task_number <> Fnd_Api.G_MISS_NUM ) THEN
1784: IF (l_log_statement >= l_log_current_level) THEN
1785: fnd_log.string(l_log_statement,
1786: L_DEBUG_KEY,
1787: 'Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID ' );
1788: END IF;
1789: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
1790: (p_visit_task_id => l_Task_rec.originating_task_id,
1791: p_visit_task_number => l_Task_rec.orginating_task_number,
1785: fnd_log.string(l_log_statement,
1786: L_DEBUG_KEY,
1787: 'Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID ' );
1788: END IF;
1789: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
1790: (p_visit_task_id => l_Task_rec.originating_task_id,
1791: p_visit_task_number => l_Task_rec.orginating_task_number,
1792: p_visit_id => l_Task_rec.visit_id,
1793: x_visit_task_id => l_originating_task_id,
1813: -- To Check for originating task id not forming loop
1814: IF (l_Task_rec.originating_task_id IS NOT NULL AND
1815: l_Task_rec.originating_task_id <> Fnd_Api.G_MISS_NUM ) THEN
1816:
1817: AHL_VWP_RULES_PVT.Check_Origin_Task_Loop
1818: (p_visit_id => l_Task_rec.visit_id ,
1819: p_visit_task_id => l_Task_rec.visit_task_id ,
1820: p_originating_task_id => l_Task_rec.originating_task_id
1821: );
1857: RAISE Fnd_Api.g_exc_error;
1858: END IF;
1859: END IF;
1860: */
1861: l_Visit_Task_ID := AHL_VWP_RULES_PVT.Get_Visit_Task_Id();
1862: l_task_rec.visit_task_ID := l_Visit_Task_ID;
1863:
1864: -- Check for the Visit Number.
1865: l_task_number := AHL_VWP_RULES_PVT.Get_Visit_Task_Number(l_task_rec.visit_id);
1861: l_Visit_Task_ID := AHL_VWP_RULES_PVT.Get_Visit_Task_Id();
1862: l_task_rec.visit_task_ID := l_Visit_Task_ID;
1863:
1864: -- Check for the Visit Number.
1865: l_task_number := AHL_VWP_RULES_PVT.Get_Visit_Task_Number(l_task_rec.visit_id);
1866: l_task_rec.visit_task_number := l_task_number;
1867:
1868: IF (l_log_statement >= l_log_current_level) THEN
1869: fnd_log.string(l_log_statement,
1984: p_x_task_rec.Visit_Task_Number := l_task_rec.Visit_Task_Number;
1985:
1986: IF (c_visit_rec.Any_Task_Chg_Flag = 'N') THEN
1987:
1988: AHL_VWP_RULES_PVT.update_visit_task_flag(
1989: p_visit_id =>c_visit_rec.visit_id,
1990: p_flag =>'Y',
1991: x_return_status =>x_return_status);
1992:
2095: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2096: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2097: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2098: p_module_type IN VARCHAR2 := 'JSP',
2099: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
2100: x_return_status OUT NOCOPY VARCHAR2,
2101: x_msg_count OUT NOCOPY NUMBER,
2102: x_msg_data OUT NOCOPY VARCHAR2
2103: )
2106: L_API_NAME CONSTANT VARCHAR2(30) := 'Create_Summary_Task';
2107: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
2108:
2109: -- Local variables defined for the procedure
2110: l_task_rec AHL_VWP_RULES_PVT.Task_Rec_Type := p_x_task_rec;
2111: l_msg_data VARCHAR2(2000);
2112: l_item_name VARCHAR2(40);
2113: l_rowid VARCHAR2(30);
2114: l_return_status VARCHAR2(1);
2201: IF (l_task_rec.dept_name IS NOT NULL AND l_task_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
2202: IF (l_log_statement >= l_log_current_level) THEN
2203: fnd_log.string(l_log_statement,
2204: L_DEBUG_KEY,
2205: 'Calling AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id ');
2206: END IF;
2207: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
2208: (p_organization_id => c_visit_rec.organization_id,
2209: p_dept_name => l_task_rec.dept_name,
2203: fnd_log.string(l_log_statement,
2204: L_DEBUG_KEY,
2205: 'Calling AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id ');
2206: END IF;
2207: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
2208: (p_organization_id => c_visit_rec.organization_id,
2209: p_dept_name => l_task_rec.dept_name,
2210: p_department_id => NULL,
2211: x_department_id => l_department_id,
2219: RAISE Fnd_Api.G_EXC_ERROR;
2220: END IF;
2221:
2222: -- Changes for Post 11.5.10 by amagrawa
2223: Ahl_vwp_rules_pvt.CHECK_DEPARTMENT_SHIFT
2224: ( P_DEPT_ID => l_department_id,
2225: X_RETURN_STATUS => l_return_status);
2226:
2227: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
2254:
2255: IF (l_log_statement >= l_log_current_level) THEN
2256: fnd_log.string(l_log_statement,
2257: L_DEBUG_KEY,
2258: 'Calling AHL_VWP_RULES_PVT.Check_Item_Name_Or_Id ' );
2259: END IF;
2260: AHL_VWP_RULES_PVT.Check_Item_Name_Or_Id
2261: (p_item_id => l_Task_rec.inventory_item_id,
2262: p_org_id => l_Task_rec.item_organization_id,
2256: fnd_log.string(l_log_statement,
2257: L_DEBUG_KEY,
2258: 'Calling AHL_VWP_RULES_PVT.Check_Item_Name_Or_Id ' );
2259: END IF;
2260: AHL_VWP_RULES_PVT.Check_Item_Name_Or_Id
2261: (p_item_id => l_Task_rec.inventory_item_id,
2262: p_org_id => l_Task_rec.item_organization_id,
2263: p_item_name => l_Task_rec.item_name,
2264: x_item_id => l_item_id,
2335: -- Convert serial number to instance/ serial id
2336: IF (l_Task_rec.serial_number IS NOT NULL AND
2337: l_Task_rec.serial_number <> Fnd_Api.G_MISS_CHAR) THEN
2338:
2339: AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id
2340: (p_item_id => l_Task_rec.inventory_item_id,
2341: p_org_id => l_Task_rec.item_organization_id,
2342: p_serial_id => l_Task_rec.instance_id,
2343: p_serial_number => l_Task_rec.serial_number,
2361: ', Org ID= ' || l_Task_rec.item_organization_id);
2362: END IF;
2363: /* sowsubra - start
2364: --BEGIN: jeli added for bug 3777720
2365: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(l_task_rec.visit_id, l_task_rec.instance_id) = FND_API.G_RET_STS_ERROR) THEN
2366: --END: jeli added for bug 3777720
2367: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
2368: Fnd_Msg_Pub.ADD;
2369: RAISE Fnd_Api.G_EXC_ERROR;
2384: -- Convert cost parent number to id
2385: IF (l_Task_rec.cost_parent_number IS NOT NULL AND
2386: l_Task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
2387:
2388: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
2389: (p_visit_task_id => l_Task_rec.cost_parent_id,
2390: p_visit_task_number => l_Task_rec.cost_parent_number,
2391: p_visit_id => l_Task_rec.visit_id,
2392: x_visit_task_id => l_cost_parent_id,
2413: -- To Check for cost parent task id not forming loop
2414: IF (l_Task_rec.cost_parent_id IS NOT NULL AND
2415: l_Task_rec.cost_parent_id <> Fnd_Api.G_MISS_NUM ) THEN
2416:
2417: AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop
2418: (p_visit_id => l_Task_rec.visit_id,
2419: p_visit_task_id => l_Task_rec.visit_task_id ,
2420: p_cost_parent_id => l_Task_rec.cost_parent_id
2421: );
2433: -- Convert originating task number to id
2434: IF (l_Task_rec.orginating_task_number IS NOT NULL AND
2435: l_Task_rec.orginating_task_number <> Fnd_Api.G_MISS_NUM ) THEN
2436:
2437: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
2438: (p_visit_task_id => l_Task_rec.originating_task_id,
2439: p_visit_task_number => l_Task_rec.orginating_task_number,
2440: p_visit_id => l_Task_rec.visit_id,
2441: x_visit_task_id => l_originating_task_id,
2462: -- To Check for originating task id not forming loop
2463: IF (l_Task_rec.originating_task_id IS NOT NULL AND
2464: l_Task_rec.originating_task_id <> Fnd_Api.G_MISS_NUM ) THEN
2465:
2466: AHL_VWP_RULES_PVT.Check_Origin_Task_Loop
2467: (p_visit_id => l_Task_rec.visit_id ,
2468: p_visit_task_id => l_Task_rec.visit_task_id ,
2469: p_originating_task_id => l_Task_rec.originating_task_id
2470: );
2499:
2500: -- Check for the ID.
2501: IF l_task_rec.Visit_Task_ID = Fnd_Api.g_miss_num OR l_task_rec.Visit_Task_ID IS NULL THEN
2502: -- Check for the ID.
2503: l_Visit_Task_ID := AHL_VWP_RULES_PVT.Get_Visit_Task_Id();
2504: l_task_rec.visit_task_ID := l_Visit_Task_ID;
2505:
2506: -- Check for the Visit Number.
2507: l_task_number := AHL_VWP_RULES_PVT.Get_Visit_Task_Number(l_task_rec.visit_id);
2503: l_Visit_Task_ID := AHL_VWP_RULES_PVT.Get_Visit_Task_Id();
2504: l_task_rec.visit_task_ID := l_Visit_Task_ID;
2505:
2506: -- Check for the Visit Number.
2507: l_task_number := AHL_VWP_RULES_PVT.Get_Visit_Task_Number(l_task_rec.visit_id);
2508: l_task_rec.visit_task_number := l_task_number;
2509:
2510: IF (l_log_statement >= l_log_current_level) THEN
2511: fnd_log.string(l_log_statement,
2632: p_x_task_rec.Visit_Task_ID := l_task_rec.Visit_Task_ID;
2633: p_x_task_rec.Visit_Task_Number := l_task_rec.Visit_Task_Number;
2634:
2635: IF c_visit_rec.Any_Task_Chg_Flag='N' THEN
2636: AHL_VWP_RULES_PVT.update_visit_task_flag(
2637: p_visit_id =>c_visit_rec.visit_id,
2638: p_flag =>'Y',
2639: x_return_status =>x_return_status);
2640: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2714: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2715: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2716: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2717: p_module_type IN VARCHAR2 := 'JSP',
2718: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
2719: x_return_status OUT NOCOPY VARCHAR2,
2720: x_msg_count OUT NOCOPY NUMBER,
2721: x_msg_data OUT NOCOPY VARCHAR2
2722: )
2725: L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Task';
2726: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
2727:
2728: -- local variables defined for the procedure
2729: l_task_rec AHL_VWP_RULES_PVT.Task_Rec_Type := p_x_task_rec;
2730: l_msg_data VARCHAR2(2000);
2731: l_return_status VARCHAR2(1);
2732: l_msg_count NUMBER;
2733: l_visit_end_date DATE;
2898: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
2899: p_commit IN VARCHAR2:= FND_API.G_FALSE,
2900: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2901: p_module_type IN VARCHAR2:= 'JSP',
2902: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
2903: x_return_status OUT NOCOPY VARCHAR2,
2904: x_msg_count OUT NOCOPY NUMBER,
2905: x_msg_data OUT NOCOPY VARCHAR2
2906:
2971: FROM Ahl_Visits_VL
2972: WHERE VISIT_ID = p_visit_id;
2973:
2974: l_Visit_rec c_Visit%ROWTYPE;
2975: l_Task_rec AHL_VWP_RULES_PVT.Task_Rec_Type default p_x_task_rec;
2976:
2977: Cursor c_visit_task_det(p_visit_task_id in number)
2978: is
2979: Select ROW_ID ,
3125:
3126: -- Code added to make sure that department name to id conversion takes place
3127: -- Irrespective of above API Being Called.
3128: IF (l_task_rec.dept_name IS NOT NULL AND l_task_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
3129: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
3130: (p_organization_id => l_visit_rec.organization_id,
3131: p_dept_name => l_task_rec.dept_name,
3132: p_department_id => NULL,
3133: x_department_id => l_task_rec.department_id,
3140: RAISE Fnd_Api.G_EXC_ERROR;
3141: END IF;
3142:
3143: -- Changes for Post 11.5.10 by cxcheng
3144: Ahl_vwp_rules_pvt.CHECK_DEPARTMENT_SHIFT
3145: ( P_DEPT_ID => l_task_rec.department_id,
3146: X_RETURN_STATUS => l_return_status);
3147:
3148: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
3370:
3371: IF (l_log_statement >= l_log_current_level)THEN
3372: fnd_log.string(l_log_statement,
3373: L_DEBUG_KEY,
3374: 'Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID ');
3375: END IF;
3376:
3377: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
3378: (p_visit_task_id => p_x_task_rec.cost_parent_id,
3373: L_DEBUG_KEY,
3374: 'Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID ');
3375: END IF;
3376:
3377: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
3378: (p_visit_task_id => p_x_task_rec.cost_parent_id,
3379: p_visit_task_number => p_x_task_rec.cost_parent_number,
3380: p_visit_id => p_x_task_rec.visit_id,
3381: x_visit_task_id => p_x_task_rec.cost_parent_id,
3394: IF l_visit_rec.any_task_chg_flag = 'N' THEN
3395: IF (l_log_statement >= l_log_current_level)THEN
3396: fnd_log.string(l_log_statement,
3397: L_DEBUG_KEY,
3398: 'Before Calling AHL_VWP_RULES_PVT.Update_Visit_Task_Flag ' ||
3399: 'Any_task_chg_flag = ' ||l_visit_rec.any_task_chg_flag);
3400: END IF;
3401:
3402: AHL_VWP_RULES_PVT.Update_Visit_Task_Flag
3398: 'Before Calling AHL_VWP_RULES_PVT.Update_Visit_Task_Flag ' ||
3399: 'Any_task_chg_flag = ' ||l_visit_rec.any_task_chg_flag);
3400: END IF;
3401:
3402: AHL_VWP_RULES_PVT.Update_Visit_Task_Flag
3403: (p_visit_id => l_old_Task_rec.visit_id,
3404: p_flag => 'Y',
3405: x_return_status => x_return_status);
3406:
3406:
3407: IF (l_log_statement >= l_log_current_level)THEN
3408: fnd_log.string(l_log_statement,
3409: L_DEBUG_KEY,
3410: 'After Calling AHL_VWP_RULES_PVT.Update_Visit_Task_Flag, Return Status = ' ||x_return_status);
3411: END IF;
3412:
3413: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3414: RAISE FND_API.G_EXC_ERROR;
3486: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
3487: p_commit IN VARCHAR2:= FND_API.G_FALSE,
3488: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3489: p_module_type IN VARCHAR2:= 'JSP',
3490: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
3491: x_return_status OUT NOCOPY VARCHAR2,
3492: x_msg_count OUT NOCOPY NUMBER,
3493: x_msg_data OUT NOCOPY VARCHAR2
3494:
3496:
3497: L_API_VERSION CONSTANT NUMBER := 1.0;
3498: L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Tasks_in_Production';
3499: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
3500: l_Task_rec AHL_VWP_RULES_PVT.Task_Rec_Type default p_x_task_rec;
3501:
3502: Cursor c_visit_task_det(p_visit_task_id in number)
3503: is
3504: Select ROW_ID ,
3606:
3607: IF (l_Task_rec.cost_parent_number IS NOT NULL AND
3608: l_Task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
3609:
3610: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
3611: (p_visit_task_id => l_Task_rec.cost_parent_id,
3612: p_visit_task_number => l_Task_rec.cost_parent_number,
3613: p_visit_id => l_Task_rec.visit_id,
3614: x_visit_task_id => l_cost_parent_id,
3630: -- To Check for cost parent task id not forming loop
3631: IF (l_Task_rec.cost_parent_id IS NOT NULL AND
3632: l_Task_rec.cost_parent_id <> Fnd_Api.G_MISS_NUM ) THEN
3633:
3634: AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop
3635: (p_visit_id => l_Task_rec.visit_id,
3636: p_visit_task_id => l_Task_rec.visit_task_id ,
3637: p_cost_parent_id => l_Task_rec.cost_parent_id
3638: );
3741: FETCH c_any_task_flg INTO l_any_task_chg_flag;
3742: CLOSE c_any_task_flg;
3743:
3744: IF l_any_task_chg_flag = 'N' THEN
3745: AHL_VWP_RULES_PVT.Update_Visit_Task_Flag
3746: (p_visit_id => l_old_Task_rec.visit_id,
3747: p_flag => 'Y',
3748: x_return_status => x_return_status);
3749: END IF;
3811: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3812: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3813: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3814: p_module_type IN VARCHAR2 := 'JSP',
3815: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
3816: x_return_status OUT NOCOPY VARCHAR2,
3817: x_msg_count OUT NOCOPY NUMBER,
3818: x_msg_data OUT NOCOPY VARCHAR2
3819: )
3821: L_API_VERSION CONSTANT NUMBER := 1.0;
3822: L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Unassociated_Task';
3823: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
3824: -- local variables defined for the procedure
3825: l_task_rec AHL_VWP_RULES_PVT.Task_Rec_Type := p_x_task_rec;
3826: l_return_status VARCHAR2(1);
3827: l_msg_data VARCHAR2(2000);
3828: l_msg_count NUMBER;
3829: l_serial_ID NUMBER;
3900: -- For DEPARTMENT
3901: -- Convert department name to department id
3902: IF (l_task_rec.dept_name IS NOT NULL AND l_task_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
3903:
3904: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
3905: (p_organization_id => c_visit_rec.organization_id,
3906: p_dept_name => l_task_rec.dept_name,
3907: p_department_id => NULL,
3908: x_department_id => l_department_id,
3936:
3937: IF (l_log_statement >= l_log_current_level) THEN
3938: fnd_log.string(l_log_statement,
3939: L_DEBUG_KEY,
3940: ' Calling AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id' );
3941: END IF;
3942:
3943: AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id
3944: (p_item_id => l_Task_rec.inventory_item_id,
3939: L_DEBUG_KEY,
3940: ' Calling AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id' );
3941: END IF;
3942:
3943: AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id
3944: (p_item_id => l_Task_rec.inventory_item_id,
3945: p_org_id => l_Task_rec.item_organization_id,
3946: p_serial_id => l_Task_rec.instance_id,
3947: p_serial_number => l_Task_rec.serial_number,
3968: /* sowsubra - start
3969: IF c_Visit_rec.item_instance_id IS NOT NULL THEN
3970:
3971: --BEGIN: jeli added for bug 3777720
3972: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(l_task_rec.visit_id, l_task_rec.instance_id) = FND_API.G_RET_STS_ERROR) THEN
3973: --END: jeli added for bug 3777720
3974: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
3975: Fnd_Msg_Pub.ADD;
3976: RAISE Fnd_Api.G_EXC_ERROR;
3992: -- Convert cost parent number to id
3993: IF (l_Task_rec.cost_parent_number IS NOT NULL AND
3994: l_Task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
3995:
3996: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
3997: (p_visit_task_id => l_Task_rec.cost_parent_id,
3998: p_visit_task_number => l_Task_rec.cost_parent_number,
3999: p_visit_id => l_Task_rec.visit_id,
4000: x_visit_task_id => l_cost_parent_id,
4022: -- To Check for cost parent task id not forming loop
4023: IF (l_Task_rec.cost_parent_id IS NOT NULL AND
4024: l_Task_rec.cost_parent_id <> Fnd_Api.G_MISS_NUM ) THEN
4025:
4026: AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop
4027: (p_visit_id => l_Task_rec.visit_id,
4028: p_visit_task_id => l_Task_rec.visit_task_id ,
4029: p_cost_parent_id => l_Task_rec.cost_parent_id
4030: );
4046:
4047: IF (l_log_statement >= l_log_current_level) THEN
4048: fnd_log.string(l_log_statement,
4049: L_DEBUG_KEY,
4050: ' Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID');
4051: END IF;
4052:
4053: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
4054: (p_visit_task_id => l_Task_rec.originating_task_id,
4049: L_DEBUG_KEY,
4050: ' Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID');
4051: END IF;
4052:
4053: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
4054: (p_visit_task_id => l_Task_rec.originating_task_id,
4055: p_visit_task_number => l_Task_rec.orginating_task_number,
4056: p_visit_id => l_Task_rec.visit_id,
4057: x_visit_task_id => l_originating_task_id,
4079: -- To Check for originating task id not forming loop
4080: IF (l_Task_rec.originating_task_id IS NOT NULL AND
4081: l_Task_rec.originating_task_id <> Fnd_Api.G_MISS_NUM ) THEN
4082:
4083: AHL_VWP_RULES_PVT.Check_Origin_Task_Loop
4084: (p_visit_id => l_Task_rec.visit_id ,
4085: p_visit_task_id => l_Task_rec.visit_task_id ,
4086: p_originating_task_id => l_Task_rec.originating_task_id
4087: );
4315:
4316: END IF; -- Start_date_time check.
4317:
4318: IF c_visit_rec.any_task_chg_flag = 'N' THEN
4319: AHL_VWP_RULES_PVT.Update_Visit_Task_Flag
4320: (p_visit_id => l_task_rec.visit_id,
4321: p_flag => 'Y',
4322: x_return_status => x_return_status);
4323: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4391: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4392: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4393: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4394: p_module_type IN VARCHAR2 := 'JSP',
4395: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
4396: x_return_status OUT NOCOPY VARCHAR2,
4397: x_msg_count OUT NOCOPY NUMBER,
4398: x_msg_data OUT NOCOPY VARCHAR2
4399: )
4402: L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Summary_Task';
4403: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
4404:
4405: -- local variables defined for the procedure
4406: l_task_rec AHL_VWP_RULES_PVT.Task_Rec_Type := p_x_task_rec;
4407: l_return_status VARCHAR2(1);
4408: l_msg_data VARCHAR2(2000);
4409:
4410: l_msg_count NUMBER;
4479: -- For DEPARTMENT
4480: -- Convert department name to department id
4481: IF (l_task_rec.dept_name IS NOT NULL AND l_task_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
4482:
4483: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
4484: (p_organization_id => c_visit_rec.organization_id,
4485: p_dept_name => l_task_rec.dept_name,
4486: p_department_id => NULL,
4487: x_department_id => l_department_id,
4520: -- Convert serial number to instance/ serial id
4521: IF (l_Task_rec.serial_number IS NOT NULL AND
4522: l_Task_rec.serial_number <> Fnd_Api.G_MISS_CHAR) THEN
4523:
4524: AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id
4525: (p_item_id => l_Task_rec.inventory_item_id,
4526: p_org_id => l_Task_rec.item_organization_id,
4527: p_serial_id => l_Task_rec.instance_id,
4528: p_serial_number => l_Task_rec.serial_number,
4547: ': Before UC Item Org ID= ' || l_Task_rec.item_organization_id);
4548: END IF;
4549: /* sowsubra - start
4550: --BEGIN: jeli added for bug 3777720
4551: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(l_task_rec.visit_id, l_task_rec.instance_id) = FND_API.G_RET_STS_ERROR) THEN
4552: --END: jeli added for bug 3777720
4553: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
4554: Fnd_Msg_Pub.ADD;
4555: RAISE Fnd_Api.G_EXC_ERROR;
4584:
4585: IF (l_log_statement >= l_log_current_level) THEN
4586: fnd_log.string(l_log_statement,
4587: L_DEBUG_KEY,
4588: ' Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID');
4589: END IF;
4590:
4591: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
4592: (p_visit_task_id => l_Task_rec.cost_parent_id,
4587: L_DEBUG_KEY,
4588: ' Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID');
4589: END IF;
4590:
4591: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
4592: (p_visit_task_id => l_Task_rec.cost_parent_id,
4593: p_visit_task_number => l_Task_rec.cost_parent_number,
4594: p_visit_id => l_Task_rec.visit_id,
4595: x_visit_task_id => l_cost_parent_id,
4612: -- To Check for cost parent task id not forming loop
4613: IF (l_Task_rec.cost_parent_id IS NOT NULL AND
4614: l_Task_rec.cost_parent_id <> Fnd_Api.G_MISS_NUM ) THEN
4615:
4616: AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop
4617: (p_visit_id => l_Task_rec.visit_id,
4618: p_visit_task_id => l_Task_rec.visit_task_id ,
4619: p_cost_parent_id => l_Task_rec.cost_parent_id
4620: );
4641:
4642: IF (l_log_statement >= l_log_current_level) THEN
4643: fnd_log.string(l_log_statement,
4644: L_DEBUG_KEY,
4645: ' Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID');
4646: END IF;
4647:
4648: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
4649: (p_visit_task_id => l_Task_rec.originating_task_id,
4644: L_DEBUG_KEY,
4645: ' Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID');
4646: END IF;
4647:
4648: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
4649: (p_visit_task_id => l_Task_rec.originating_task_id,
4650: p_visit_task_number => l_Task_rec.orginating_task_number,
4651: p_visit_id => l_Task_rec.visit_id,
4652: x_visit_task_id => l_originating_task_id,
4675: -- To Check for originating task id not forming loop
4676: IF (l_Task_rec.originating_task_id IS NOT NULL AND
4677: l_Task_rec.originating_task_id <> Fnd_Api.G_MISS_NUM ) THEN
4678:
4679: AHL_VWP_RULES_PVT.Check_Origin_Task_Loop
4680: (p_visit_id => l_Task_rec.visit_id ,
4681: p_visit_task_id => l_Task_rec.visit_task_id ,
4682: p_originating_task_id => l_Task_rec.originating_task_id
4683: );
5277:
5278: -- Bug fix #4187213
5279: -- yazhou 16-Feb-2005
5280: IF c_visit_rec.Any_Task_Chg_Flag='N' THEN
5281: AHL_VWP_RULES_PVT.update_visit_task_flag(
5282: p_visit_id =>c_visit_rec.visit_id,
5283: p_flag =>'Y',
5284: x_return_status =>x_return_status);
5285:
5560: l_visit_id := c_task_rec.visit_id;
5561: l_task_id := p_Visit_Task_ID;
5562:
5563: --To update all tasks which have the deleting task as cost or originating task
5564: AHL_VWP_RULES_PVT.Update_Cost_Origin_Task
5565: (p_visit_task_id =>l_task_Id,
5566: x_return_status =>x_return_status
5567: );
5568:
5980: ' Calling Update_Cost_Origin_Task, task id : '||l_task_ID );
5981: END IF;
5982:
5983: -- To update all tasks which have the deleting task as cost or originating task
5984: AHL_VWP_RULES_PVT.Update_Cost_Origin_Task
5985: (
5986: p_visit_task_id =>l_task_ID,
5987: x_return_status =>x_return_status
5988: );
6487:
6488: IF (l_log_statement >= l_log_current_level)THEN
6489: fnd_log.string(l_log_statement,
6490: L_DEBUG_KEY,
6491: ' Calling AHL_VWP_RULES_PVT.Update_Cost_Origin_Task');
6492: END IF;
6493:
6494: -- To update all tasks which have the deleting task as cost or originating task
6495: AHL_VWP_RULES_PVT.Update_Cost_Origin_Task
6491: ' Calling AHL_VWP_RULES_PVT.Update_Cost_Origin_Task');
6492: END IF;
6493:
6494: -- To update all tasks which have the deleting task as cost or originating task
6495: AHL_VWP_RULES_PVT.Update_Cost_Origin_Task
6496: (
6497: p_visit_task_id =>l_task_ID,
6498: x_return_status =>x_return_status
6499: );
6738:
6739: IF (l_log_statement >= l_log_current_level) THEN
6740: fnd_log.string(l_log_statement,
6741: L_DEBUG_KEY,
6742: 'Before AHL_VWP_RULES_PVT.Update_Cost_Origin_Task Call');
6743: END IF;
6744:
6745: -- To update all tasks which have the deleting task as cost or originating task
6746: AHL_VWP_RULES_PVT.Update_Cost_Origin_Task
6742: 'Before AHL_VWP_RULES_PVT.Update_Cost_Origin_Task Call');
6743: END IF;
6744:
6745: -- To update all tasks which have the deleting task as cost or originating task
6746: AHL_VWP_RULES_PVT.Update_Cost_Origin_Task
6747: (
6748: p_visit_task_id =>l_task_ID,
6749: x_return_status =>x_return_status
6750: );
7095: p_api_version IN NUMBER,
7096: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
7097: p_commit IN VARCHAR2 := Fnd_Api.g_false,
7098: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
7099: p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type,
7100:
7101: x_return_status OUT NOCOPY VARCHAR2,
7102: x_msg_count OUT NOCOPY NUMBER,
7103: x_msg_data OUT NOCOPY VARCHAR2
7206: -- PURPOSE
7207: --
7208: ---------------------------------------------------------------------
7209: PROCEDURE Check_Task_Items (
7210: p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type,
7211: p_validation_mode IN VARCHAR2 := Jtf_Plsql_Api.g_create,
7212:
7213: x_return_status OUT NOCOPY VARCHAR2
7214: )
7272: --
7273: ---------------------------------------------------------------------
7274: /*
7275: PROCEDURE Complete_Visit_Task_Rec (
7276: p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type,
7277: x_complete_rec OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type
7278: )
7279: IS
7280: CURSOR c_Visit_Task IS
7273: ---------------------------------------------------------------------
7274: /*
7275: PROCEDURE Complete_Visit_Task_Rec (
7276: p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type,
7277: x_complete_rec OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type
7278: )
7279: IS
7280: CURSOR c_Visit_Task IS
7281: SELECT *
7311: -- PURPOSE
7312: --
7313: ---------------------------------------------------------------------
7314: PROCEDURE Check_Visit_Task_Req_Items (
7315: p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type,
7316: -- Added by rnahata for Issue 105 - validation mode parameter
7317: p_validation_mode IN VARCHAR2 := Jtf_Plsql_Api.g_create,
7318: x_return_status OUT NOCOPY VARCHAR2
7319: )
7421: -- PURPOSE
7422: --
7423: ---------------------------------------------------------------------
7424: PROCEDURE Check_Visit_Task_UK_Items (
7425: p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type,
7426: p_validation_mode IN VARCHAR2 := Jtf_Plsql_Api.g_create,
7427: x_return_status OUT NOCOPY VARCHAR2
7428: )
7429: IS
7485: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
7486: p_commit IN VARCHAR2 := Fnd_Api.g_false,
7487: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
7488: p_module_type IN VARCHAR2 := 'JSP',
7489: p_x_task_tbl IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Tbl_Type,
7490: x_return_status OUT NOCOPY VARCHAR2,
7491: x_msg_count OUT NOCOPY NUMBER,
7492: x_msg_data OUT NOCOPY VARCHAR2
7493: )
7498: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
7499: l_msg_count NUMBER;
7500: l_msg_data VARCHAR2(2000);
7501: l_return_status VARCHAR2(1);
7502: l_task_tbl AHL_VWP_RULES_PVT.Task_Tbl_Type := p_x_task_tbl;
7503: -- Begin changes by rnahata for Issue 105
7504: l_instance_qty NUMBER := 0;
7505: l_instance_id NUMBER := 0;
7506: -- End changes by rnahata for Issue 105
7847:
7848: l_instance_qty NUMBER := 0;
7849: -- End changes by rnahata for Issue 105
7850:
7851: l_Task_tbl AHL_VWP_RULES_PVT.Task_Tbl_Type;
7852:
7853: BEGIN
7854: --------------------- initialize -----------------------
7855: SAVEPOINT associate_default_mrs;