70: Begin
71: errcd := 0;
72: SELECT L.LOOKUP_CODE
73: Into inttyp
74: FROM FND_LOOKUPS L,PO_VENDOR_SITES V
75: WHERE L.LOOKUP_CODE = V.GLOBAL_ATTRIBUTE2
76: AND L.LOOKUP_TYPE = 'JLBR_INTEREST_PENALTY_TYPE'
77: AND V.VENDOR_SITE_ID = vndstid and rownum = row_number;
78: Exception
106: Begin
107: errcd := 0;
108: SELECT L.LOOKUP_CODE
109: INTO intfml
110: FROM FND_LOOKUPS L, PO_VENDOR_SITES V
111: WHERE L.LOOKUP_CODE = V.GLOBAL_ATTRIBUTE5
112: AND L.LOOKUP_TYPE = 'JLBR_INTEREST_FORMULA'
113: AND V.VENDOR_SITE_ID = vndstid and rownum = row_number;
114: Exception
123: Begin
124: errcd := 0;
125: SELECT L.LOOKUP_CODE
126: INTO pnttyp
127: FROM FND_LOOKUPS L, PO_VENDOR_SITES V
128: WHERE L.LOOKUP_CODE = V.GLOBAL_ATTRIBUTE7
129: AND L.LOOKUP_TYPE = 'JLBR_INTEREST_PENALTY_TYPE'
130: AND V.VENDOR_SITE_ID = vndstid and rownum = row_number;
131: Exception