23: * Procedure : Check_Existence
24: * Purpose : Procedure will query the old isolation record and return it in old record variables.
25: *********************************************************************/
26: PROCEDURE CHECK_EXISTENCE
27: ( p_iso_header_rec IN EAM_PROCESS_SAFETY_PUB.eam_iso_header_rec_type
28: , x_iso_header_rec OUT NOCOPY EAM_PROCESS_SAFETY_PUB.eam_iso_header_rec_type
29: , x_mesg_token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
30: , x_return_Status OUT NOCOPY VARCHAR2
31: )IS
24: * Purpose : Procedure will query the old isolation record and return it in old record variables.
25: *********************************************************************/
26: PROCEDURE CHECK_EXISTENCE
27: ( p_iso_header_rec IN EAM_PROCESS_SAFETY_PUB.eam_iso_header_rec_type
28: , x_iso_header_rec OUT NOCOPY EAM_PROCESS_SAFETY_PUB.eam_iso_header_rec_type
29: , x_mesg_token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
30: , x_return_Status OUT NOCOPY VARCHAR2
31: )IS
32: l_token_tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
32: l_token_tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
33: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
34: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
35: l_return_status VARCHAR2(1);
36: l_isolation_header_rec EAM_PROCESS_SAFETY_PUB.eam_iso_header_rec_type;
37: BEGIN
38:
39: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Quering Isolation'); END IF;
40:
95: * Procedure: Check_Attributes
96: * Purpose: Check_Attributes procedure will validate every Revised item attribute in its entirely.
97: *********************************************************************/
98: PROCEDURE CHECK_ATTRIBUTES
99: ( p_iso_header_rec IN EAM_PROCESS_SAFETY_PUB.eam_iso_header_rec_type
100: , p_old_iso_header_rec IN EAM_PROCESS_SAFETY_PUB.eam_iso_header_rec_type
101: , x_mesg_token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
102: , x_return_Status OUT NOCOPY VARCHAR2
103: )IS
96: * Purpose: Check_Attributes procedure will validate every Revised item attribute in its entirely.
97: *********************************************************************/
98: PROCEDURE CHECK_ATTRIBUTES
99: ( p_iso_header_rec IN EAM_PROCESS_SAFETY_PUB.eam_iso_header_rec_type
100: , p_old_iso_header_rec IN EAM_PROCESS_SAFETY_PUB.eam_iso_header_rec_type
101: , x_mesg_token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
102: , x_return_Status OUT NOCOPY VARCHAR2
103: )IS
104:
367: * Procedure : Check_Required
368: * Purpose : Check_Required procedure will check the existence of mandatory attributes.
369: *********************************************************************/
370: PROCEDURE CHECK_REQUIRED
371: ( p_iso_header_rec IN EAM_PROCESS_SAFETY_PUB.eam_iso_header_rec_type
372: , x_mesg_token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
373: , x_return_Status OUT NOCOPY VARCHAR2
374: )IS
375: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;