6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'QP_QP_Form_Con';
7:
8: -- Global variables holding cached record.
9:
10: g_CON_rec QP_Attributes_PUB.Con_Rec_Type;
11: g_db_CON_rec QP_Attributes_PUB.Con_Rec_Type;
12:
13: -- Forward declaration of procedures maintaining entity record cache.
14:
7:
8: -- Global variables holding cached record.
9:
10: g_CON_rec QP_Attributes_PUB.Con_Rec_Type;
11: g_db_CON_rec QP_Attributes_PUB.Con_Rec_Type;
12:
13: -- Forward declaration of procedures maintaining entity record cache.
14:
15: PROCEDURE Write_CON
12:
13: -- Forward declaration of procedures maintaining entity record cache.
14:
15: PROCEDURE Write_CON
16: ( p_CON_rec IN QP_Attributes_PUB.Con_Rec_Type
17: , p_db_record IN BOOLEAN := FALSE
18: );
19:
20: FUNCTION Get_CON
20: FUNCTION Get_CON
21: ( p_db_record IN BOOLEAN := FALSE
22: , p_prc_context_id IN NUMBER
23: )
24: RETURN QP_Attributes_PUB.Con_Rec_Type;
25:
26: PROCEDURE Clear_CON;
27:
28: -- Global variable holding performed operations.
26: PROCEDURE Clear_CON;
27:
28: -- Global variable holding performed operations.
29:
30: g_opr__tbl QP_Attributes_PUB.Con_Tbl_Type;
31:
32: -- Procedure : Default_Attributes
33: --
34:
65: , x_prc_context OUT NOCOPY /* file.sql.39 change */ VARCHAR2
66: , x_seeded OUT NOCOPY /* file.sql.39 change */ VARCHAR2
67: )
68: IS
69: l_CON_rec QP_Attributes_PUB.Con_Rec_Type;
70: l_CON_val_rec QP_Attributes_PUB.Con_Val_Rec_Type;
71: l_control_rec QP_GLOBALS.Control_Rec_Type;
72: l_return_status VARCHAR2(1);
73: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
66: , x_seeded OUT NOCOPY /* file.sql.39 change */ VARCHAR2
67: )
68: IS
69: l_CON_rec QP_Attributes_PUB.Con_Rec_Type;
70: l_CON_val_rec QP_Attributes_PUB.Con_Val_Rec_Type;
71: l_control_rec QP_GLOBALS.Control_Rec_Type;
72: l_return_status VARCHAR2(1);
73: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
74: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
69: l_CON_rec QP_Attributes_PUB.Con_Rec_Type;
70: l_CON_val_rec QP_Attributes_PUB.Con_Val_Rec_Type;
71: l_control_rec QP_GLOBALS.Control_Rec_Type;
72: l_return_status VARCHAR2(1);
73: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
74: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
75: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
76: BEGIN
77:
70: l_CON_val_rec QP_Attributes_PUB.Con_Val_Rec_Type;
71: l_control_rec QP_GLOBALS.Control_Rec_Type;
72: l_return_status VARCHAR2(1);
73: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
74: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
75: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
76: BEGIN
77:
78: -- Set control flags.
71: l_control_rec QP_GLOBALS.Control_Rec_Type;
72: l_return_status VARCHAR2(1);
73: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
74: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
75: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
76: BEGIN
77:
78: -- Set control flags.
79:
296: , x_prc_context OUT NOCOPY /* file.sql.39 change */ VARCHAR2
297: , x_seeded OUT NOCOPY /* file.sql.39 change */ VARCHAR2
298: )
299: IS
300: l_CON_rec QP_Attributes_PUB.Con_Rec_Type;
301: l_old_CON_rec QP_Attributes_PUB.Con_Rec_Type;
302: l_CON_val_rec QP_Attributes_PUB.Con_Val_Rec_Type;
303: l_control_rec QP_GLOBALS.Control_Rec_Type;
304: l_return_status VARCHAR2(1);
297: , x_seeded OUT NOCOPY /* file.sql.39 change */ VARCHAR2
298: )
299: IS
300: l_CON_rec QP_Attributes_PUB.Con_Rec_Type;
301: l_old_CON_rec QP_Attributes_PUB.Con_Rec_Type;
302: l_CON_val_rec QP_Attributes_PUB.Con_Val_Rec_Type;
303: l_control_rec QP_GLOBALS.Control_Rec_Type;
304: l_return_status VARCHAR2(1);
305: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
298: )
299: IS
300: l_CON_rec QP_Attributes_PUB.Con_Rec_Type;
301: l_old_CON_rec QP_Attributes_PUB.Con_Rec_Type;
302: l_CON_val_rec QP_Attributes_PUB.Con_Val_Rec_Type;
303: l_control_rec QP_GLOBALS.Control_Rec_Type;
304: l_return_status VARCHAR2(1);
305: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
306: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
301: l_old_CON_rec QP_Attributes_PUB.Con_Rec_Type;
302: l_CON_val_rec QP_Attributes_PUB.Con_Val_Rec_Type;
303: l_control_rec QP_GLOBALS.Control_Rec_Type;
304: l_return_status VARCHAR2(1);
305: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
306: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
307: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
308: BEGIN
309:
302: l_CON_val_rec QP_Attributes_PUB.Con_Val_Rec_Type;
303: l_control_rec QP_GLOBALS.Control_Rec_Type;
304: l_return_status VARCHAR2(1);
305: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
306: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
307: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
308: BEGIN
309:
310: -- Set control flags.
303: l_control_rec QP_GLOBALS.Control_Rec_Type;
304: l_return_status VARCHAR2(1);
305: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
306: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
307: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
308: BEGIN
309:
310: -- Set control flags.
311:
703: , x_last_updated_by OUT NOCOPY /* file.sql.39 change */ NUMBER
704: , x_last_update_login OUT NOCOPY /* file.sql.39 change */ NUMBER
705: )
706: IS
707: l_CON_rec QP_Attributes_PUB.Con_Rec_Type;
708: l_old_CON_rec QP_Attributes_PUB.Con_Rec_Type;
709: l_control_rec QP_GLOBALS.Control_Rec_Type;
710: l_return_status VARCHAR2(1);
711: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
704: , x_last_update_login OUT NOCOPY /* file.sql.39 change */ NUMBER
705: )
706: IS
707: l_CON_rec QP_Attributes_PUB.Con_Rec_Type;
708: l_old_CON_rec QP_Attributes_PUB.Con_Rec_Type;
709: l_control_rec QP_GLOBALS.Control_Rec_Type;
710: l_return_status VARCHAR2(1);
711: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
712: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
707: l_CON_rec QP_Attributes_PUB.Con_Rec_Type;
708: l_old_CON_rec QP_Attributes_PUB.Con_Rec_Type;
709: l_control_rec QP_GLOBALS.Control_Rec_Type;
710: l_return_status VARCHAR2(1);
711: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
712: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
713: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
714: BEGIN
715:
708: l_old_CON_rec QP_Attributes_PUB.Con_Rec_Type;
709: l_control_rec QP_GLOBALS.Control_Rec_Type;
710: l_return_status VARCHAR2(1);
711: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
712: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
713: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
714: BEGIN
715:
716: -- Set control flags.
709: l_control_rec QP_GLOBALS.Control_Rec_Type;
710: l_return_status VARCHAR2(1);
711: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
712: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
713: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
714: BEGIN
715:
716: -- Set control flags.
717:
854: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
855: , p_prc_context_id IN NUMBER
856: )
857: IS
858: l_CON_rec QP_Attributes_PUB.Con_Rec_Type;
859: l_control_rec QP_GLOBALS.Control_Rec_Type;
860: l_return_status VARCHAR2(1);
861: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
862: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
857: IS
858: l_CON_rec QP_Attributes_PUB.Con_Rec_Type;
859: l_control_rec QP_GLOBALS.Control_Rec_Type;
860: l_return_status VARCHAR2(1);
861: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
862: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
863: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
864: BEGIN
865:
858: l_CON_rec QP_Attributes_PUB.Con_Rec_Type;
859: l_control_rec QP_GLOBALS.Control_Rec_Type;
860: l_return_status VARCHAR2(1);
861: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
862: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
863: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
864: BEGIN
865:
866: -- Set control flags.
859: l_control_rec QP_GLOBALS.Control_Rec_Type;
860: l_return_status VARCHAR2(1);
861: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
862: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
863: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
864: BEGIN
865:
866: -- Set control flags.
867:
981: )
982: IS
983: l_control_rec QP_GLOBALS.Control_Rec_Type;
984: l_return_status VARCHAR2(1);
985: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
986: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
987: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
988: BEGIN
989:
982: IS
983: l_control_rec QP_GLOBALS.Control_Rec_Type;
984: l_return_status VARCHAR2(1);
985: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
986: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
987: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
988: BEGIN
989:
990: -- Set control flags.
983: l_control_rec QP_GLOBALS.Control_Rec_Type;
984: l_return_status VARCHAR2(1);
985: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
986: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
987: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
988: BEGIN
989:
990: -- Set control flags.
991:
1090: )
1091: IS
1092: l_control_rec QP_GLOBALS.Control_Rec_Type;
1093: l_return_status VARCHAR2(1);
1094: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1095: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1096: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1097: BEGIN
1098:
1091: IS
1092: l_control_rec QP_GLOBALS.Control_Rec_Type;
1093: l_return_status VARCHAR2(1);
1094: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1095: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1096: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1097: BEGIN
1098:
1099: -- Set control flags.
1092: l_control_rec QP_GLOBALS.Control_Rec_Type;
1093: l_return_status VARCHAR2(1);
1094: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1095: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1096: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1097: BEGIN
1098:
1099: -- Set control flags.
1100:
1231: , p_user_prc_context_name IN VARCHAR2
1232: )
1233: IS
1234: l_return_status VARCHAR2(1);
1235: l_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1236: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1237: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1238: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1239: BEGIN
1232: )
1233: IS
1234: l_return_status VARCHAR2(1);
1235: l_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1236: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1237: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1238: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1239: BEGIN
1240:
1233: IS
1234: l_return_status VARCHAR2(1);
1235: l_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1236: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1237: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1238: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1239: BEGIN
1240:
1241: -- Load CON record
1234: l_return_status VARCHAR2(1);
1235: l_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1236: l_x_CON_rec QP_Attributes_PUB.Con_Rec_Type;
1237: l_x_SEG_rec QP_Attributes_PUB.Seg_Rec_Type;
1238: l_x_SEG_tbl QP_Attributes_PUB.Seg_Tbl_Type;
1239: BEGIN
1240:
1241: -- Load CON record
1242:
1339:
1340: -- Procedures maintaining CON record cache.
1341:
1342: PROCEDURE Write_CON
1343: ( p_CON_rec IN QP_Attributes_PUB.Con_Rec_Type
1344: , p_db_record IN BOOLEAN := FALSE
1345: )
1346: IS
1347: BEGIN
1359: FUNCTION Get_CON
1360: ( p_db_record IN BOOLEAN := FALSE
1361: , p_prc_context_id IN NUMBER
1362: )
1363: RETURN QP_Attributes_PUB.Con_Rec_Type
1364: IS
1365: BEGIN
1366:
1367: IF p_prc_context_id <> g_CON_rec.prc_context_id
1396: PROCEDURE Clear_Con
1397: IS
1398: BEGIN
1399:
1400: g_CON_rec := QP_Attributes_PUB.G_MISS_CON_REC;
1401: g_db_CON_rec := QP_Attributes_PUB.G_MISS_CON_REC;
1402:
1403: END Clear_Con;
1404:
1397: IS
1398: BEGIN
1399:
1400: g_CON_rec := QP_Attributes_PUB.G_MISS_CON_REC;
1401: g_db_CON_rec := QP_Attributes_PUB.G_MISS_CON_REC;
1402:
1403: END Clear_Con;
1404:
1405: END QP_QP_Form_Con;