TYPE BODY: APPS.AHL_MC_POS_REF

Source

1 TYPE BODY        "AHL_MC_POS_REF" as member procedure put (ref_code in varchar2, r_id in number) is begin pos_ref_code := ref_code; rel_id := r_id; end put; member function pos_ref_code_matches (ref_code in varchar2) return boolean is begin if (pos_ref_code is null) then return false; end if; return (pos_ref_code = ref_code); end pos_ref_code_matches; member procedure get_rel_id (r_id out number) is begin r_id := rel_id; end get_rel_id;end;
2 
3