Skip to content

Clear_Dirty

Changes the record attribute dirty flag to False.

PROCEDURE Clear_Dirty (  
   record_  IN OUT type_record_,  
   name_    IN     type_name_ )

Parameters

record_    
Foundation1 record.

name_    
   Attribute name.

Example

SET SERVEROUT ON SIZE 100000  
DECLARE  
   AM Plsqlap_Record_API.type_record_;  
   TB Plsqlap_Record_API.type_record_;  
BEGIN  
   AM := Plsqlap_Record_API.New_record('APPLICATION_MESSAGE');  
   TB := Plsqlap_Record_API.New_record('TEXT_BODY');  

   Plsqlap_Record_API.Set_Value (AM,'APPLICATION_MESSAGE_ID','100',  
   Plsqlap_Record_API.dt_Text_Key);  
   Plsqlap_Record_API.Set_Value (AM,'SENDER','Jan H Malmberg',Plsqlap_Record_API.dt_Alpha);  
   Plsqlap_Record_API.Set_Value (AM, 'MESSAGE_TYPE', 'A1', Plsqlap_Record_API.dt_Alpha);  

   Plsqlap_Record_API.Set_Value(TB, 'TEXT_BODY_TYPE', 'Str', Plsqlap_Record_API.dt_Enumeration);  
   Plsqlap_Record_API.Set_Value(TB, 'TEXT_VALUE', 'This is a demonstration',  
   Plsqlap_Record_API.dt_Long_Text);  

   Plsqlap_Record_API.Add_Aggregate(AM, 'TEXT_BODY', TB);  
    
   Plsqlap_Record_API.Debug_Record(AM);  
    
   Plsqlap_Record_API.Clear_Dirty(AM);  
    
   Plsqlap_Record_API.Debug_Record(AM);  
END;  
/  
main: Fnd_View APPLICATION_MESSAGE New_Record  
main:    Text_Key APPLICATION_MESSAGE_ID '100^*'  
main:    Alpha SENDER 'Jan H Malmberg'  
main:    Alpha MESSAGE_TYPE 'A1'  
main:    Array TEXT_BODY (1 elements):  
main:       1:Fnd_View TEXT_BODY New_Record element of APPLICATION_MESSAGE.TEXT_BODY  
main:          Enum TEXT_BODY_TYPE Str  
main:          Long_Text TEXT_VALUE 'This is a demonstration...' (23 characters)  

main: Fnd_View APPLICATION_MESSAGE Queried_Record  
main:    Text_Key APPLICATION_MESSAGE_ID '100^*'  
main:    Alpha SENDER 'Jan H Malmberg'  
main:    Alpha MESSAGE_TYPE 'A1'  
main:    Array TEXT_BODY (1 elements):  
main:       1:Fnd_View TEXT_BODY Queried_Record element of APPLICATION_MESSAGE.TEXT_BODY  
main:          Enum TEXT_BODY_TYPE Str  
main:          Long_Text TEXT_VALUE 'This is a demonstration...' (23 characters)  
       
PL/SQL procedure successfully completed.