[Home] [Help]
546: FROM dual;
547:
548: -- To find whether id already exists
549: CURSOR c_id_exists (x_id IN NUMBER) IS
550: SELECT 1 FROM Ahl_Visits_VL
551: WHERE Visit_id = x_id;
552:
553: L_API_NAME CONSTANT VARCHAR2(30) := 'Get_Visit_Id';
554: L_FULL_NAME CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || L_API_NAME;
1186: AVTS.PRIORITY_CODE,
1187: FLVT3.MEANING PRIORITY_MEAN, AVTS.PROJECT_TEMPLATE_ID,
1188: PA.NAME PROJECT_TEMPLATE_NAME ,
1189: AVTS.UNIT_SCHEDULE_ID, AVTS.ASSO_PRIMARY_VISIT_ID
1190: FROM AHL_VISITS_VL AVTS, AHL_SIMULATION_PLANS_VL ASPV,
1191: CSI_ITEM_INSTANCES CSIS, HR_ALL_ORGANIZATION_UNITS HROU,
1192: BOM_DEPARTMENTS BDPT, MTL_SYSTEM_ITEMS_B_KFV MTSB,
1193: FND_LOOKUP_VALUES_VL FLVT, FND_LOOKUP_VALUES_VL FLVT1,
1194: FND_LOOKUP_VALUES_VL FLVT2, FND_LOOKUP_VALUES_VL FLVT3,
1281: c_visit_rec c_visit%ROWTYPE;
1282:
1283: -- To find out all visit/template details
1284: CURSOR c_visit_details (x_id IN NUMBER) IS
1285: SELECT * FROM AHL_VISITS_VL
1286: WHERE VISIT_ID = x_id;
1287:
1288: visit_rec c_visit_details%ROWTYPE;
1289:
1693: FROM dual;
1694:
1695: -- To find whether id already exists
1696: CURSOR c_id_exists (x_id IN NUMBER) IS
1697: SELECT 1 FROM Ahl_Visits_VL
1698: WHERE Visit_id = x_id;
1699:
1700: -- To find the maximum visit number among all visits
1701: CURSOR c_visit_number IS
2865:
2866: -- Define local Cursors
2867: -- To find visit related information
2868: CURSOR c_visit (x_visit_id IN NUMBER) IS
2869: SELECT * FROM AHL_VISITS_VL
2870: WHERE VISIT_ID = x_visit_id;
2871: c_visit_rec c_visit%ROWTYPE;
2872:
2873: -- To find task related information for a visit
3414: -- To find visit related information
3415: -- TCHIMIRA :: Bug 8594339 :: 19-NOV-2009
3416: -- Modified Cursor to acquire a lock on the visit record without waiting
3417: CURSOR c_Visit(x_id IN NUMBER) IS
3418: SELECT * FROM Ahl_Visits_VL
3419: WHERE VISIT_ID = x_id
3420: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
3421:
3422: c_Visit_rec c_Visit%ROWTYPE;
5236:
5237: -- Define local Cursors
5238: -- To find visit related information
5239: CURSOR c_Visit(x_id IN NUMBER) IS
5240: SELECT * FROM Ahl_Visits_VL
5241: WHERE VISIT_ID = x_id;
5242:
5243: l_visit_rec c_Visit%ROWTYPE;
5244:
6202: IF p_validation_mode = Jtf_Plsql_Api.g_create AND p_Visit_rec.VISIT_ID IS NOT NULL
6203: THEN
6204:
6205: IF Ahl_Utility_Pvt.check_uniqueness(
6206: 'Ahl_Visits_VL',
6207: 'VISIT_ID = ' || p_Visit_rec.VISIT_ID
6208: ) = Fnd_Api.g_false THEN
6209:
6210: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6221: -- check if VISIT NUMBER is UNIQUE
6222: IF p_validation_mode = Jtf_Plsql_Api.g_create THEN
6223: IF (p_Visit_rec.VISIT_NUMBER IS NOT NULL) THEN
6224: l_valid_flag := Ahl_Utility_Pvt.Check_Uniqueness (
6225: 'Ahl_Visits_VL',
6226: 'VISIT_NUMBER = ''' || p_Visit_rec.VISIT_NUMBER || ''''
6227: );
6228: END IF;
6229: ELSE
6228: END IF;
6229: ELSE
6230: IF (p_Visit_rec.VISIT_NUMBER IS NOT NULL) THEN
6231: l_valid_flag := Ahl_Utility_Pvt.Check_Uniqueness (
6232: 'Ahl_Visits_VL',
6233: 'VISIT_NUMBER = ''' || p_Visit_rec.VISIT_NUMBER ||
6234: ''' AND VISIT_ID <> ' || p_Visit_rec.VISIT_ID
6235: );
6236: END IF;
6294: l_cost_price_rec AHL_VWP_VISIT_CST_PR_PVT.Cost_price_rec_type;
6295: -- Define local Cursors
6296: -- To find visit related information
6297: CURSOR c_visit (x_id IN NUMBER) IS
6298: SELECT * FROM AHL_VISITS_VL
6299: WHERE VISIT_ID = x_id;
6300: c_visit_rec c_visit%ROWTYPE;
6301:
6302: -- To find task related information
6824:
6825: -- Define local Cursors
6826: -- To find visit related information
6827: CURSOR c_visit (x_visit_id IN NUMBER) IS
6828: SELECT * FROM AHL_VISITS_VL
6829: WHERE VISIT_ID = x_visit_id;
6830: c_visit_rec c_visit%ROWTYPE;
6831:
6832: -- To find task related information for a visit
7303: -- Define local Cursors
7304:
7305: -- To find visit related information
7306: CURSOR c_Visit(x_visit_id IN NUMBER) IS
7307: SELECT * FROM Ahl_Visits_VL
7308: WHERE VISIT_ID = x_visit_id;
7309:
7310: c_Visit_rec c_Visit%ROWTYPE;
7311: l_org_id NUMBER;