ROS.60050 r    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~8000800080008000800080008000800080008000800080008000 8000!8000"8000#8000$8000%8000&8000'8000(8000)8000*8000+8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>8000?8000@8000A8000B8000C8000D8000E8000F8000G8000H8000I8000J8000K8000L8000M8000N8000O8000P8000Q8000R8000S8000T8000U8000V8000W8000X8000Y8000Z8000[8000\8000]8000^8000_8000`8000a8000b8000c8000d8000e8000f8000g8000h8000i8000j8000k8000l8000m8000n8000o8000p8000q8000r8000s8000t8000u8000v`rP0808 p08D108$ 08200321_01108edit_tti08;5WHE MO08ICK (ALL OL08LCOMMENT 08ͫͫͫ0808FORMS40 "00x ͫͫͫgray96$00x "/r25g25b0&00x $Y r100g50b0*08x ( 00r75g75b50no*08x ( 00r88g88b50ͫͫͫͫͫͫͫ0D O &'$$!00 0808BD1 $ P3_27_JAN_200309_19_59BEGIN previous_block; END;(WHEN-BUTTON-PRESSED (B_SQL.PB_CLOSE_SQL)E>ͫͫͫͫͫͫͫSQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D O &'$[!00 x ( *,- 00r50g100b0/08x ( *,- 00r75g100b0/08x ( *,- 00r88g100b0/08x ( *,- 00r100g100b0.08x' ( *, 00r0g100b50008x ( * ,. 00r25g100b50@008x ( * ,. 00r50g100b50008x ( * ,. 00r75g100b50008x ( * ,. 00r88g100b50208x * , .0 00r100g100b50AI.08x' ( *, 00r0g100b75008x ( * ,. 00r25g100b75@008x ( * ,. 00r50g100b75008x ( * ,. 00r75g100b75008x ( * ,. 00r88g100b75208x * , .0 00r100g100b75CK.08x' ( *,OT 00r0g100b88IL008x ( * ,. 00r25g100b88@008x ( * ,.U 00r50g100b88008x ( * ,. 00r75g100b88008x ( * ,. 00r88g100b88208x * , .0 00r100g100b88008x( * ,. 00r0g100b100208x * , .0 00r25g100b100@208x * , .0 00r50g100b100 208x * , .0 00r75g100b100208x * , .0 00r88g100b100208x * , .0 00r100g100b100*:BF[(^bfh(rvx((( SQL*FormsLFORM50C:\DDG\comments.fmbxg73 xg73 ;Copyright (c) Oracle Corporation 1990. All Rights Reserved.ar# (000 0800Bu ` 080042p8000d8000e8000f8000g8000h8000i8000j8000k8000l8000m8000n8000o8000p8000q8000r8000s8000t8000u8000vx0!lBD!1 $" P1_08_JAN_200313_26_56BEGIN -- -- Begin default relation declare section -- DECLARE Dummy_Define VARCHAR2(1); -- -- Begin ALL_COL_COMMENTS detail declare section -- CURSOR ALL_COL_COMMENTS_cur IS SELECT null FROM ALL_COL_COMMENTS WHERE OWNER = :ALL_TAB_COMMENTS.OWNER and TABLE_NAME = :ALL_TAB_COMMENTS.TABLE_NAME; -- -- End ALL_COL_COMMENTS detail declare section -- -- -- End default relation declare section -- -- -- Begin default relation program section -- BEGIN -- -- Begin ALL_COL_COMMENTS detail program section -- OPEN ALL_COL_COMMENTS_cur; FETCH ALL_COL_COMMENTS_cur INTO Dummy_Define; IF ( ALL_COL_COMMENTS_cur%found ) THEN Message('Cannot delete master record when matching detail records exist.'); CLOSE ALL_COL_COMMENTS_cur; RAISE Form_Trigger_Failure; END IF; CLOSE ALL_COL_COMMENTS_cur; -- -- End ALL_COL_COMMENTS detail program section -- END; -- -- End default relation program section --  END;)ON-CHECK-DELETE-MASTER (ALL_TAB_COMMENTS)ͫͫͫͫͫͫͫw SYSSTANDARD p <<TOOLBOXALL_COL_COMMENTS w4PUBLICALL_COL_COMMENTSw4SYSALL_COL_COMMENTSSQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08D F"PKG INIT""DUMMY_DEFINE"ALL_COL_COMMENTS_CUR""" (.069:<>@B    4Hfg0  ͫͫͫͫͫͫͫ0P gB 4#UwH4uH 4yH6 .&'&'GE$FsHhsH! r{t gdHgdHgdH!tgdH !XX `8@`T?Cannot delete master record when matching detail records exist.ALL_COL_COMMENTS_CUR+4 H Px |,:Y]b!f%f*o SELECT NULL FROM ALL_COL_COMMENTS WHERE OWNER = :b1 AND TABLE_NAME = :b2"\?!3L_80003TS800038000380003N8808L66RESFILE___NA p8B_headerfield_NAMEDEFAULT,;) ,*A,i<y}[H,OWNEROWNERALL_TAB_COMMENTS.OWNERDEFAULT.<<)&.P V.d*A%BJ!.xtuiy}[H.g.h jik|. /~COLUMN_NAMECOLUMN_NAMEColumn NameC_MAINDEFAULTArialEnter value for : COLUMN_NAME0=)'0$ V04*AsBJ!0D0Ltui2y#}[H0Tg0dh jik|0p /~@#lBD!1 $" VP2_08_JAN_200313_26_56BEGIN -- -- Begin default relation declare section -- DECLARE recstat VARCHAR2(20) := :System.record_status; startitm VARCHAR2(61) := :System.cursor_item; rel_id Relation; -- -- End default relation declare section -- -- -- Begin default relation program section -- BEGIN IF ( recstat = 'NEW' or recstat = 'INSERT' ) THEN RETURN; END IF; -- -- Begin ALL_COL_COMMENTS detail program section -- IF ( (:ALL_TAB_COMMENTS.OWNER is not null) or (:ALL_TAB_COMMENTS.TABLE_NAME is not null) ) THEN rel_id := Find_Relation('ALL_TAB_COMMENTS.JOIN_COMMENTS'); Query_Master_Details(rel_id, 'ALL_COL_COMMENTS'); END IF; -- -- End ALL_COL_COMMENTS detail program section -- IF ( :System.cursor_item <> startitm ) THEN Go_Item(startitm); Check_Package_Failure; END IF; END; -- -- End default relation program section --  END;&ON-POPULATE-DETAILS (ALL_TAB_COMMENTS)1ͫͫͫͫͫͫͫw SYSSTANDARD FORMS4C FORMS40 /NSPC1/QUERY_MASTER_DETAILS/NSPC1/CHECK_PACKAGE_FAILURE$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08D 2"PKG INIT""RECSTAT"STARTITM"REL_ID"ID"" &)*017:<>@B   = \p ͫͫͫͫͫͫͫ0D F|   \  p\  \4  4&'4$B  1!H&'H$BD <&'L$-'d$  p*  &'p$F'$!4 , &)*&)*NEWINSERTALL_TAB_COMMENTS.JOIN_COMMENTSALL_COL_COMMENTSd(\$D(pH=(( ( (4(H ++QW "' x4Ld!blacknoneLU::MT8::CMPTXT2CMPTXT2NW:;dOV: ;tG;l;g;hjikm/Z~TEXTSTR3TEXTSTR3OwnerblackArial=P 7+=$ % tuiyql=0=<[=H=T=`=lI=x/ZrTEXT4TEXT4blackwhitenoneblackblacknoneQU==RT;==CMPTXT5CMPTXT5SW>>xTV= >G>l>g>hjikm/Z~TEXTSTR6TEXTSTR6Table NameblackArial@0U 7+@< % tuiyql@H@T[@`@l@x@I@/ZrPr?0808=''BD1 $ P0_12_JUN_200312_52_00BEGIN SaveComments(TRUE, FALSE); END;KEY-COMMIT (Form)bͫͫͫͫͫͫͫw SYSSTANDARD /NSPC1/SAVECOMMENTS$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D p '$!88(  $0800 ;00800 z@80008000 8000!8000"8000#8000$8000%8000&8000'8000(8000)8000*8000+8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>8000?8000@8000A8000B8000C8000D8000E8000F8000G8000H8000I8000J8000K8000L8000M8000N8000O8000P8000Q8000R8000S8000T8000U8000V8000W8000X8000Y8000Z8000[8000\8000]8000^8000_8000`8000a8000b8000c8000d8000e8000f8000g8000h8000i8000j8000k8000l8000m8000n8000o8000p8000q8000r8000s8000t8000u8000v`r<hh: FRM50_BUFFER table contains user's buffer.hh,8ROSATTRIBSclass attributes_t+hh)ROSLFDESCros lf descripL)hh'OMROSOBJMAPros name->idͫ+hh)ROSSTRINGStk2 uiStrings0*hh(ROSSTRUCTSstruct types*hh(ROSTK2RESVtk2 reservedPhhNTOOL_MODULEtable contains information about different module$pp"VG_COLORVG_COLOR+pp $&'()VG_COLORITEMID@+pp $&'()VG_COLORCELLID@-pp &()*+VG_COLORNAME_SET@ /pp (*+,-VG_COLORNAME_LENGTH /pp (*+,-VG_COLORCOLOR_NAMEx'pp "#$%VG_COLORRED )pp "$%&'VG_COLORGREEN )pp "$%&'VG_COLORBLUE AN_0808BD1 $"|P0_08_JAN_200313_26_56BEGIN @set_window_property(:system.event_window,WINDOW_STATE,MAXIMIZE); END;WHEN-WINDOW-ACTIVATED (Form)kͫͫͫͫͫͫͫw SYSSTANDARD FORMS4C FORMS4W $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""TDͫͫͫͫͫͫͫ0D EE 0 &'&'&'GIGI $9!H$H8 $,DSQLFORMS w SYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08!"PKG INIT"CHECK_PACKAGE_FAILURE""T8$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08a  D"CHECK_PACKAGE_FAILURE"FORM_SUCCESS"NOT"RAISE"FORM_TRIGGER_FAILURE"" #$/136:?CDIMNPSWY]_`hU<.|.bO           dͫͫͫͫͫͫͫ0D 99  `&'$:   h!tP0CHECK_PACKAGE_FAILUREq3q8q 0800 0800Bu ` 080042p8000d8000e8000f8000g8000h8000i8000j8000k8000l8000m8000n8000o8000p8000q8000r8000s8000t8000u8000vpr0808||BD1 $ hP3_08_JAN_200313_26_56BEGIN -- -- Begin default relation program section -- BEGIN Clear_All_Master_Details; END; -- -- End default relation program section --  END;#ON-CLEAR-DETAILS (ALL_TAB_COMMENTS)eUͫͫͫͫͫͫͫ/NSPC1/CLEAR_ALL_MASTER_DETAILS$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D T '$!88 vv vWINDOW-ACTIVATED (Form)kͫͫͫͫͫͫͫw SYSSTANDARD FORMS4C FORMS4W $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""TDͫͫͫͫͫͫͫ0D EE 0 &'&'&'GIGI $9!H$H8 $,D00480005800068000780008800098000:8000;8000<8000=8000>8000?8000@8000A8000B8000C8000D8000E8000F8000G8000H8000I8000J8000K8000L8000M8000N8000O8000P8000Q8000R8000S8000T8000U8000V8000W8000X8000Y8000Z8000[8000\8000]8000^8000_8000`8000a8000b8000c8000d8000e8000f8000g8000h8000i8000j8000k8000l8000m8000n8000o8000p8000q8000r8000s8000t8000u8000v|ru0808s]]BD%&1 $"AP9_08_JAN_200313_26_56BEGIN <:all_tab_comments.tabcomments := :all_tab_comments.comments; END;POST-QUERY (ALL_TAB_COMMENTS)yAͫͫͫͫͫͫͫw SYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T!ͫͫͫͫͫͫͫ0D ""  &%!TTD! ,% !%&WINDOW-ACTIVATED (Form)kͫͫͫͫͫͫͫw SYSSTANDARD FORMS4C FORMS4W $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""TDͫͫͫͫͫͫͫ0D EE 0 &'&'&'GIGI $9!H$H8 $,D00480005800068000780008800098000:8000;8000<8000=8000>8000?8000@8000A8000B8000C8000D8000E8000F8000G8000H8000I8000J8000K8000L8000M8000N8000O8000P8000Q8000R8000S8000T8000U8000V8000W8000X8000Y8000Z8000[8000\8000]8000^8000_8000`8000a8000b8000c8000d8000e8000f8000g8000h8000i8000j8000k8000l8000m8000n8000o8000p8000q8000r8000s8000t8000u8000vhrc0808aKKBD1 $ 7P12_08_JAN_200313_26_56BEGIN SaveComments(TRUE, FALSE); END;4WHEN-BUTTON-PRESSED (BUTTON_PALETTE.PB_SAVE_COMMENT)bͫͫͫͫͫͫͫw SYSSTANDARD /NSPC1/SAVECOMMENTS$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D p '$!88(  $&WINDOW-ACTIVATED (Form)kͫͫͫͫͫͫͫw SYSSTANDARD FORMS4C FORMS4W $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""TDͫͫͫͫͫͫͫ0D EE 0 &'&'&'GIGI $9!H$H8 $,D00480005800068000780008800098000:8000;8000<8000=8000>8000?8000@8000A8000B8000C8000D8000E8000F8000G8000H8000I8000J8000K8000L8000M8000N8000O8000P8000Q8000R8000S8000T8000U8000V8000W8000X8000Y8000Z8000[8000\8000]8000^8000_8000`8000a8000b8000c8000d8000e8000f8000g8000h8000i8000j8000k8000l8000m8000n8000o8000p8000q8000r8000s8000t8000u8000vrJ0808H22BD1 $ P4_08_JAN_200313_26_56BEGIN do_key('scroll_up'); END;.WHEN-BUTTON-PRESSED (BUTTON_PALETTE.SCROLL_UP)Wͫͫͫͫͫͫͫw SYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D r &'$ !@@0 scroll_up  408082 BD1 $ P5_08_JAN_200313_26_56BEGIN do_key('up'); END;'WHEN-BUTTON-PRESSED (BUTTON_PALETTE.UP)yWͫͫͫͫͫͫͫw SYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D j &'$ !88(up  480005800068000780008800098000:8000;8000<8000=8000>8000?8000@8000A8000B8000C8000D8000E8000F8000G8000H8000I8000J8000K8000L8000M8000N8000O8000P8000Q8000R8000S8000T8000U8000V8000W8000X8000Y8000Z8000[8000\8000]8000^8000_8000`8000a8000b8000c8000d8000e8000f8000g8000h8000i8000j8000k8000l8000m8000n8000o8000p8000q8000r8000s8000t8000u8000vr<0808: $$BD1 $ P6_08_JAN_200313_26_56BEGIN do_key('down'); END;)WHEN-BUTTON-PRESSED (BUTTON_PALETTE.DOWN)}Wͫͫͫͫͫͫͫw SYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D n &'$ !<<,down  N0808L 66BD1 $ "P7_08_JAN_200313_26_56BEGIN do_key('scroll_down'); END;0WHEN-BUTTON-PRESSED (BUTTON_PALETTE.SCROLL_DOWN)Wͫͫͫͫͫͫͫw SYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D r &'$ !@@0 scroll_down  80005800068000780008800098000:8000;8000<8000=8000>8000?8000@8000A8000B8000C8000D8000E8000F8000G8000H8000I8000J8000K8000L8000M8000N8000O8000P8000Q8000R8000S8000T8000U8000V8000W8000X8000Y8000Z8000[8000\8000]8000^8000_8000`8000a8000b8000c8000d8000e8000f8000g8000h8000i8000j8000k8000l8000m8000n8000o8000p8000q8000r8000s8000t8000u8000vDr>0808< &&BD 1 $"P8_08_JAN_200313_26_56BEGIN dif :System.Mode = 'NORMAL' then do_key('enter_query'); else do_key('execute_query'); end if; END;*WHEN-BUTTON-PRESSED (BUTTON_PALETTE.QUERY)Wͫͫͫͫͫͫͫw SYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""TMͫͫͫͫͫͫͫ0D NN/H  (P ' &'$ &'0$ !hNORMAL enter_query execute_query $%<M , 0<  STANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D r &'$ !@@0 scroll_down  80005800068000780008800098000:8000;8000<8000=8000>8000?8000@8000A8000B8000C8000D8000E8000F8000G8000H8000I8000J8000K8000L8000M8000N8000O8000P8000Q8000R8000S8000T8000U8000V8000W8000X8000Y8000Z8000[8000\8000]8000^8000_8000`8000a8000b8000c8000d8000e8000f8000g8000h8000i8000j8000k8000l8000m8000n8000o8000p8000q8000r8000s8000t8000u8000vPrI0808G 11BD?!1 $"P1_27_JAN_200309_19_59BEGIN fSaveComments(FALSE, TRUE); :b_sql.di_sql_tablename := :all_tab_comments.table_name; go_block('b_sql'); END;+WHEN-BUTTON-PRESSED (BUTTON_PALETTE.PB_SQL)xͫͫͫͫͫͫͫw SYSSTANDARD /NSPC1/SAVECOMMENTSSQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""TEͫͫͫͫͫͫͫ0D FF%( 4'$!   ? &'$;!t$tTb_sql 4\? `d!4E $(?! SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D r &'$ !@@0 scroll_down  80005800068000780008800098000:8000;8000<8000=8000>8000?8000@8000A8000B8000C8000D8000E8000F8000G8000H8000I8000J8000K8000L8000M8000N8000O8000P8000Q8000R8000S8000T8000U8000V8000W8000X8000Y8000Z8000[8000\8000]8000^8000_8000`8000a8000b8000c8000d8000e8000f8000g8000h8000i8000j8000k8000l8000m8000n8000o8000p8000q8000r8000s8000t8000u8000v|rv0808t^^BD*01 $"BP15_08_JAN_200313_26_56BEGIN <:all_col_comments.colcomments := :all_col_comments.comments; END;POST-QUERY (ALL_COL_COMMENTS)yAͫͫͫͫͫͫͫw SYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T!ͫͫͫͫͫͫͫ0D ""  0*!TTD! ,* !*0$;!t$tTb_sql 4\? `d!4E $(?! SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D r &'$ !@@0 scroll_down  80005800068000780008800098000:8000;8000<8000=8000>8000?8000@8000A8000B8000C8000D8000E8000F8000G8000H8000I8000J8000K8000L8000M8000N8000O8000P8000Q8000R8000S8000T8000U8000V8000W8000X8000Y8000Z8000[8000\8000]8000^8000_8000`8000a8000b8000c8000d8000e8000f8000g8000h8000i8000j8000k8000l8000m8000n8000o8000p8000q8000r8000s8000t8000u8000vr0808 BD1 $ P0_08_JAN_200321_02_11BEGIN edit_textitem; END;5WHEN-MOUSE-DOUBLECLICK (ALL_COL_COMMENTS.COLCOMMENTS)E=ͫͫͫͫͫͫͫFORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D O &'$$!00 0808BD1 $ P3_27_JAN_200309_19_59BEGIN previous_block; END;(WHEN-BUTTON-PRESSED (B_SQL.PB_CLOSE_SQL)E>ͫͫͫͫͫͫͫSQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D O &'$[!00 x ( *,- 00r50g100b0/08x ( *,- 00r75g100b0/08x ( *,- 00r88g100b0/08x ( *,- 00r100g100b0.08x' ( *, 00r0g100b50008x ( * ,. 00r25g100b50@008x ( * ,. 00r50g100b50008x ( * ,. 00r75g100b50008x ( * ,. 00r88g100b50208x * , .0 00r100g100b50AI.08x' ( *, 00r0g100b75008x ( * ,. 00r25g100b75@008x ( * ,. 00r50g100b75008x ( * ,. 00r75g100b75008x ( * ,. 00r88g100b75208x * , .0 00r100g100b75CK.08x' ( *,OT 00r0g100b88IL008x ( * ,. 00r25g100b88@008x ( * ,.U 00r50g100b88008x ( * ,. 00r75g100b88008x ( * ,. 00r88g100b88208x * , .0 00r100g100b88008x( * ,. 00r0g100b100208x * , .0 00r25g100b100@208x * , .0 00r50g100b100 208x * , .0 00r75g100b100208x * , .0 00r88g100b100208x * , .0 00r100g100b100*:BF[(^bfh(rvx((( SQL*FormsLFORM50C:\DDG\comments.fmbxg73 xg73 ;Copyright (c) Oracle Corporation 1990. All Rights Reserved.ar# (000 0800Bu ` 080042p8000d8000e8000f8000g8000h8000i8000j8000k8000l8000m8000n8000o8000p8000q8000r8000s8000t8000u8000vlB: 1 $"QUERY_MASTER_DETAILSRPROCEDURE Query_Master_Details(rel_id Relation,detail VARCHAR2) IS oldmsg VARCHAR2(2); -- Old Message Level Setting reldef VARCHAR2(5); -- Relation Deferred Setting BEGIN -- -- Initialize Local Variable(s) -- reldef := Get_Relation_Property(rel_id, DEFERRED_COORDINATION); oldmsg := :System.Message_Level; -- -- If NOT Deferred, Goto detail and execute the query. -- IF reldef = 'FALSE' THEN Go_Block(detail); Check_Package_Failure; :System.Message_Level := '10'; Execute_Query; :System.Message_Level := oldmsg; ELSE -- -- Relation is deferred, mark the detail block as un-coordinated -- Set_Block_Property(detail, COORDINATION_STATUS, NON_COORDINATED); END IF; EXCEPTION WHEN Form_Trigger_Failure THEN :System.Message_Level := oldmsg; RAISE; END Query_Master_Details; Qͫͫͫͫͫͫͫw SYSSTANDARD FORMS4C FORMS40 SQLFORMS /NSPC1/CHECK_PACKAGE_FAILURE$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08K?"PKG INIT"QUERY_MASTER_DETAILS"REL_ID"ID"DETAIL"OLDMSG"RELDEF""#&(.17:;ADEGI     $8  $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08&ffffB10edeedAAeedAAe# $]eeAAAeAAe"QUERY_MASTER_DETAILS"REL_ID"RELATION"DETAIL"VARCHAR2"OLDMSG"2"RELDEF"5"GET_RELATION_PROPERTY"DEFERRED_COORDINATION"System.Message_Level""="FALSE"GO_BLOCK"CHECK_PACKAGE_FAILURE"10"EXECUTE_QUERY"SET_BLOCK_PROPERTY"COORDINATION_STATUS"NON_COORDINATED"FORM_TRIGGER_FAILURE"RAISE"" #$)*26;<DHSUYZaimpswx  $()-159>?CEIPTWY[bjnqtux{hU==cQcQ . <.|nWW nW W bOcQQcQc     '0007     #+   5   T7    J      !"#$Z  () V U,1*-.^]+34_1$ 78`1:;1 V Uc=>d1@A1 V UC*&BEFeC( ,LNJ.0KPQN V UN V XWY4[\ !\9<"a#b$%b>    '*%&+B/0269<?5DGHIKMORS%&U/05GHI4dU  ͫͫͫlͫͫͫ0D *Lp &'&'%GILL $?L8 $8T J&'%$;'$4 &'$/$ 5&'&'&'%GIGI $ $ jk!4l  &)*&)*QUERY_MASTER_DETAILSvFALSE105($lx(8|L `h ? K [lu 4 window deuld_filedlgfiledlgdeuinwindow deucnwindow deubkwindow deual_filedlgfiledlgdeuacwindowdeuabwindowdeutswindow[YdeutawindowVT deutrwindowLJdeutg_modalwindowIGdeusw_modalwindow@>deusr_modalwindow97 deuspwindow53deuolwindow*( deuipmenudeudd_removewindowdeudd_renamewindowdeumn_pastemenu$"deute_importfiledlgFDdeuol_filedlgfiledlg+)deuin_filedlgfiledlgdeusr_endsearchalert;9deutw_p5boxUSdeutmwindowWUdeutgwindowHFdeupwwindow-+deuowwindow,*)deunpwindow)' deulg_filedlgfiledlgdeuldwindowdeuitwindowdeudd_grantwindowdeudd_selectwindow deubwwindowdeutm_p1boxYWdeutw_p1boxQOdeugs_expmenuNL deugswindowMKdeusw_notcompiledstringDBdeusw_notmodifiedstringB@deust_modalwindow>< deupw_modalwindow.,deulw_modalwindow deuiw_modalwindow7deuiwwindow7deuicwindow deubw_modalwindow deualwindow deutg_disconnectalertKIdeusw_succcompiledstringCAdeutw_p0boxPN deusp_tabbox64deusp_wraptabbox75deupw_errorcompiledstring31deulw_disablestring" deumn_clipmenu&$deumnmenu#!!deumn_filtermenu'%deucx_errorboxalert  deumn_disablemenu%#deucx_3confirmboxalert  deuismenudeupw_unsavedalert42deutw_p4boxTR deumn_edittypemenu(&deupw_modifiedstring/-deulw_enablestring! checkbox*8+8.34 MS Sans Serif 1I%&' ("$%&'#$%&'#$%&'#$%&'#( ! deupwv12! deupwv13"#$%&'#$%&' () deupwv0 pushb*+,P-34 MS Sans Serif  lB:1 $"BECLEAR_ALL_MASTER_DETAILS~PROCEDURE Clear_All_Master_Details IS mastblk VARCHAR2(30); -- Initial Master Block Cusing Coord coordop VARCHAR2(30); -- Operation Causing the Coord trigblk VARCHAR2(30); -- Cur Block On-Clear-Details Fires On startitm VARCHAR2(61); -- Item in which cursor started frmstat VARCHAR2(15); -- Form Status curblk VARCHAR2(30); -- Current Block currel VARCHAR2(30); -- Current Relation curdtl VARCHAR2(30); -- Current Detail Block FUNCTION First_Changed_Block_Below(Master VARCHAR2) RETURN VARCHAR2 IS curblk VARCHAR2(30); -- Current Block currel VARCHAR2(30); -- Current Relation retblk VARCHAR2(30); -- Return Block BEGIN -- -- Initialize Local Vars -- curblk := Master; currel := Get_Block_Property(curblk, FIRST_MASTER_RELATION); -- -- While there exists another relation for this block -- WHILE currel IS NOT NULL LOOP -- -- Get the name of the detail block -- curblk := Get_Relation_Property(currel, DETAIL_NAME); -- -- If this block has changes, return its name -- IF ( Get_Block_Property(curblk, STATUS) IN('CHANGED','INSERT') ) THEN RETURN curblk; ELSE -- -- No changes, recursively look for changed blocks below -- retblk := First_Changed_Block_Below(curblk); -- -- If some block below is changed, return its name -- IF retblk IS NOT NULL THEN RETURN retblk; ELSE -- -- Consider the next relation -- currel := Get_Relation_Property(currel, NEXT_MASTER_RELATION); END IF; END IF; END LOOP; -- -- No changed blocks were found -- RETURN NULL; END First_Changed_Block_Below; BEGIN -- -- Init Local Vars -- mastblk := :System.Master_Block; coordop := :System.Coordination_Operation; trigblk := :System.Trigger_Block; startitm := :System.Trigger_Item; frmstat := :System.Form_Status; -- -- If the coordination operation is anything but CLEAR_RECORD or -- SYNCHRONIZE_BLOCKS, then continue checking. -- IF coordop NOT IN ('CLEAR_RECORD', 'SYNCHRONIZE_BLOCKS') THEN -- -- If we're processing the driving master block... -- IF mastblk = trigblk THEN -- -- If something in the form is changed, find the -- first changed block below the master -- IF frmstat = 'CHANGED' THEN curblk := First_Changed_Block_Below(mastblk); -- -- If we find a changed block below, go there -- and Ask to commit the changes. -- IF curblk IS NOT NULL THEN Go_Block(curblk); Check_Package_Failure; Clear_Block(ASK_COMMIT); -- -- If user cancels commit dialog, raise error -- IF NOT ( :System.Form_Status = 'QUERY' OR :System.Block_Status = 'NEW' ) THEN RAISE Form_Trigger_Failure; END IF; END IF; END IF; END IF; END IF; -- -- Clear all the detail blocks for this master without -- any further asking to commit. -- currel := Get_Block_Property(trigblk, FIRST_MASTER_RELATION); WHILE currel IS NOT NULL LOOP curdtl := Get_Relation_Property(currel, DETAIL_NAME); IF Get_Block_Property(curdtl, STATUS) <> 'NEW' THEN Go_Block(curdtl); Check_Package_Failure; Clear_Block(NO_VALIDATE); IF :System.Block_Status <> 'NEW' THEN RAISE Form_Trigger_Failure; END IF; END IF; currel := Get_Relation_Property(currel, NEXT_MASTER_RELATION); END LOOP; -- -- Put cursor back where it started -- IF :System.Cursor_Item <> startitm THEN Go_Item(startitm); Check_Package_Failure; END IF; EXCEPTION WHEN Form_Trigger_Failure THEN IF :System.Cursor_Item <> startitm THEN Go_Item(startitm); END IF; RAISE; END Clear_All_Master_Details; 2=0lͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS /NSPC1/CHECK_PACKAGE_FAILURE$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08DD"PKG INIT"CLEAR_ALL_MASTER_DETAILS"MASTBLK"COORDOP"TRIGBLK"STARTITM"FRMSTAT"CURBLK"CURREL"CURDTL"FIRST_CHANGED_BLOCK_BELOW"MASTER"RETBLK"" &)*034:=>DGHNQRX[\befntw} ?7 8  9:=;< = !>#" C &')*,@.- 0A21 4B65($8%($  +/3$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ085'eedAAeedAAeedAAeedAAeedAAeedAAeedAAeedAAeddeedAAeedAAeedAAe$ e2 eFee e2e $ $e {  $ $e$ e2 EeF{ Ee2 Ew EweeAeeAeeAeeAeeAeeAeeAAAeAAeAAeAAeAAeAAeAAeAAeAAe^"CLEAR_ALL_MASTER_DETAILS"MASTBLK"VARCHAR2"30"COORDOP"TRIGBLK"STARTITM"61"FRMSTAT"15"CURBLK"CURREL"CURDTL"FUNCTION"FIRST_CHANGED_BLOCK_BELOW"MASTER"RETURN"RETBLK"GET_BLOCK_PROPERTY"FIRST_MASTER_RELATION"WHILE"IS NOT NULL"LOOP"GET_RELATION_PROPERTY"DETAIL_NAME"STATUS"CHANGED"INSERT"NEXT_MASTER_RELATION"System.Master_Block""System.Coordination_Operation"System.Trigger_Block"System.Trigger_Item"System.Form_Status"CLEAR_RECORD"SYNCHRONIZE_BLOCKS"="GO_BLOCK"CHECK_PACKAGE_FAILURE"CLEAR_BLOCK"ASK_COMMIT"QUERY"System.Block_Status"NEW"NOT"RAISE"FORM_TRIGGER_FAILURE"!="NO_VALIDATE"System.Cursor_Item"GO_ITEM""P #$/156=EILOST[cgjmqry!%59:?@HLP[]abiqux{  #'(,049>@DHLNRV[_`dgkpstxz~ $()-136:?CDHMOSW\`aehlqtuy{ !%).237;>BGKLQUVZ^cejnosx|}  !")-/489=@BDKRY`gnu} $'*2369ABCDEFGJMUVY\defghijmpxyz{|hUcQcQcQcQcQcQcQcQh,=cQcQcQ .G.~ .<ZH.>nne .<.~e .eMO <HLnn<.|<.|n .<.~WWW<.|@lZ.|nR.|nb .G.~ .<.|.nWWW<.|nb .<.|WW <.|WbOcQcQcQcQcQcQcQQcQcQcQcQcQcQcQcQc !!!!!!!!!!!!!!""##''''''+++++++,,--111111199:<@@@AAABBBCCCDDDJJJJJJJJJNNNNNNNNSSSSSSSSTTTTTTYYYYYYYZZZZ[[[\\\\`````````````aaaaaabbmmmmmmmnnnnnnnoooooooppppppppppppqqqqrrrssssttttttttuuxxxxxxx~~~~~~~~@ABCDa~!'+1NSTYZ[\`a`mnoppqrstx~                  %&&&-       "+ '/ ' 2<H  -   +3 &<  -    (((*,,,.6  ) %-+++#.5 "( %-& (    (, +]J         !! "##$=&( ( )**+ -/ / 011246 6 78 8!9"#;= =>?$%?&@'(BCJCJBADIAFH)GB*+KaBA!JMOK% OBPQ,-Q.R/0TVK' VBWX12X3Y45[]K)]B^_67_8`9:+Jcda NGfga Uhi;<1 N=mr Janlop>?4 U6ltur Nvw@A9 UB<r|lz}C~DE? NFBGE{J NlzG\HBJ NLIJO\QJ\S UKLU UM Ja JJX e^ i_!m` "qa '#ubbdN$$%%giO&Pk npQ&Rr 'u .SBx zTU| .~'V .(W)X*YZ.[P l\]^&_#ub++`&a,yc-- 0b 5cde  fg 5   <hi 5j k1lmn <o-- !'p <$%(q'()r2s,1*-.t1u,yc--+310v56  578wx 5y=B;>?z1{3}d <DEB4| HIB(}LNJ0~K!NQVJORS13}d PXY"V4 $N$e i!m"q#u,y3}gfhkjlonpsrtwvx{z|~$ %+-  -- "% %,3:A  '.5<EGLSZNU\beljkqszxy{ ;  4#&*")+/029:<@ACGFKMO[\PTUWZjk^_`abcdqxy ")/09:@AFTUZd `U5d^Gc'N.B_<\ab ͫͫͫͫͫͫͫ0P Y   $$88LL``<   0 @@#v@&'T$BT z&'$;'$&'&'G E$``H8  (tt`   h&'&'G I<\\ $4\&'p$Bp  &'&'G Ixx $@x(&'&'(G I $4`b W&'($;'$&'&'G E($tt`  h&'&'G I $@*  &'$F'$6! &'$Fjk! %&'&'G I<LL $4L$&'$`$B`+ #&'&'$G Ihh $@h|&'&'G I $40 x" %#8&'8$B 8%S7&'&'$G I $@$% hg!81tP0CLEAR_ALL_MASTER_DETAILS CLEAR_RECORDSYNCHRONIZE_BLOCKSCHANGEDQUERYNEWFIRST_CHANGED_BLOCK_BELOWINSERT( 0 (4 \ (` (، =( *  * H *(L t @x | *T \ *p x   (($(8(L(`(t( {  `"l($,(80XL\`(`dhhlptx|((Ĕ@A&B2C>DJJqNSTYZ[\ `GbRSmnop%q7r@sZtquvx~',]!"'2+V,g19:` t0H`xr 0Alig+0 0P 0` 0  0E 0Aligv+ 0w| 0. 0C 0  0StacA0 025P 0YPT` 0hC 0 0 0Bl 0  0 0*8 0K0 0um@ 0 ` 0 p 0& 0 0h 0Canc p00fi !00(H80 Verca 80p80 Horizonll80.80oa_hlblf 80H@80#p80oa_hl80F80#~80(_v80@80vs&p80!*^8080vcwiow80eu 80indow>P80deubwvin8080xWdeutw_p1boxQOdeugs_expmenuNL deugswindowMKdeusw_notcompiledstringDBdeusw_notmodifiedstringB@deust_modalwindow>< deupw_modalwindow.,deulw_modalwindow deuiw_modalwindow7deuiwwindow7deuicwindow deubw_modalwindow deualwindow deutg_disconnectalertKIdeusw_succcompiledstringCAdeutw_p0boxPN deusp_tabbox64deusp_wraptabbox75deupw_errorcompiledstring31deulw_disablestring" deumn_clipmenu&$deumnmenu#!!deumn_filtermenu'%deucx_errorboxalert  deumn_disablemenu%#deucx_3confirmboxalert  deuismenudeupw_unsavedalert42deutw_p4boxTR deumn_edittypemenu(&deupw_modifiedstring/-deulw_enablestring! checkbox*8+8.34 MS Sans Serif 1I%&' ("$%&'#$%&'#$%&'#$%&'#( ! deupwv12! deupwv13"#$%&'#$%&' () deupwv0 pushb*+,P-34 MS Sans Serif p$lB: TUV!%W*0X1 $&3 SAVECOMMENTSPROCEDURE SaveComments(commitwork in boolean, gensql in boolean) IS s varchar2(4000); savblk varchar2(100); savrec varchar2(20); begin savblk := :system.cursor_block; savrec := :system.cursor_record; if gensql then :b_sql.sqlcomments := NULL; end if; s := 'COMMENT ON TABLE '||:all_Tab_comments.table_name||' IS '''||replace(:all_tab_comments.tabcomments,'''','''''')||''''; if commitwork then forms_ddl(s); if form_failure then message('TABLE COMMENT FAILED:'||s); message(' ',no_acknowledge); end if; end if; if gensql then :b_sql.sqlcomments := :b_sql.sqlcomments || s || ';' || chr(10); end if; -- Now if necessary, comment on columns go_block('all_col_comments'); first_record; loop s := 'COMMENT ON COLUMN '||:all_Tab_comments.table_name||'.'||:all_col_comments.column_name ||' IS '''||replace(:all_col_comments.colcomments,'''','''''')||''''; if (nvl(:all_col_comments.colcomments,'x')<>nvl(:all_col_comments.comments,'x')) AND commitwork then forms_ddl(s); if form_failure then message('COLUMN COMMENT FAILED:'||s); message(' ',no_acknowledge); end if; end if; if gensql then begin :b_sql.sqlcomments := :b_sql.sqlcomments || s || ';' || chr(10); exception when others then exit; -- may exceed length end; end if; -- message(s);message(' ',no_acknowledge); exit when :system.last_record = 'TRUE'; next_record; end loop; first_record; if savblk is not null then go_block(savblk); end if; END;-Mͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 SQLFORMS FORMS4C $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08J :"PKG INIT"SAVECOMMENTS"COMMITWORK"GENSQL"S"SAVBLK"SAVREC""#$*-.478>ABDFH    d $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ085:$D  eedAAeedAAeedAAeeeee\ ePeeeeAeeeeeee Eee\ ePeeeeA $ eeAeeAeeAeeAeeAeeAeeAeeAeeAAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAe  1"SAVECOMMENTS"COMMITWORK"BOOLEAN"GENSQL"S"VARCHAR2"4000"SAVBLK"100"SAVREC"20"system.cursor_block""system.cursor_record"b_sql.sqlcomments"COMMENT ON TABLE "||"all_Tab_comments.table_name" IS ''"REPLACE"all_tab_comments.tabcomments"''"''''"FORMS_DDL"FORM_FAILURE"MESSAGE"TABLE COMMENT FAILED:" "NO_ACKNOWLEDGE";"CHR"10"GO_BLOCK"all_col_comments"FIRST_RECORD"LOOP"COMMENT ON COLUMN "."all_col_comments.column_name"all_col_comments.colcomments"NVL"x"!="all_col_comments.comments"COLUMN COMMENT FAILED:"OTHERS"EXIT"system.last_record"="TRUE"NEXT_RECORD"IS NOT NULL"" #$)*26;<DHSUYZaimpswx  $).23:?DILPTV[_`dgkptuw|l  $)-.378=ABGKLQUV[_`elqx} "&+/059<@DFQSUY`eijosty}~   '.5<CJRVY\dhknvz}   &'(+.6789<?GHILOWXY\_ghijmpxyz}  $%&'*-56789hU==cQcQcQ < M .|.|.|.|nn.nnn<W<.W.|nWn< .|.|.|n.QWnWG .|.|.|.|.|.|nnn.nnn<Z.|.n.n W<.W.|nWn< .|.|.|n.Q S+O+.|nWW<.~WOcQcQcQcQcQcQcQcQcQQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQc  !!!!!$$$$$$%%%%%%%%%%%%%%%%%%%&&&&&&'++++++,,,...///////00002 +  !%%%%+,./0 &///9       vB8:DDDLjox%' ;4/27>>>B  J  A <  >C >CL... *0004OYd  )+  "A"":""5""8=DDDH!"""$ LC 4D>  0.  ""D""     &        d " " #$$% ()& T +,& ! U !&/0- #.230 V 56&78K%:;G(=>?+@A;.: !>FGF1 $%BEJ5&NOL 7MQRLO:<OVYMTWXM >U[\RY!A^_"Q#CPcdVY$FU%I &ijg Khlm jV no&]'Mqr([)Ptu*W+lSV Zz{,\-V . ~a&!/X"`"b&#0 &Z1{2`3w4c5o6f7k8i9j:l;f<o%e% !&i&' (Wn=v>r( ,*ruzv?@A+BxC)D{(,**~*E)F~, 00** GHIJKL--MN V OPQRSTV UV W X1Y0 4X223Z &#[ &\4]!!^# T U V ! $%' (W( ,*, 00 0 4X _`abcdefghi"!#jdkl&%'mno*)+pqr.-/stu213vwx657yz8{9|}9~<==@AACDDHIINOOSTTXYY"^__%cdd&ghhlmmpqqsttxyy*|}}*-  €ÀĀŀƀǀȀɀ2ʀˀ̀̀ "   ! '*-4Lg}.19K<E?DBCHIJMPTSUZb]`aefhkpysxvw|S   BC?DHIJ<E9K`a]΀efvwsx|pyπnd !    ͫͫͫͫͫͫͫ0D @  L(TU((% <V<!P;P ; %d&'d0H $$$8; $: 0% &'$0&'8$88X O;`@&'&' @G E$F&'&'xGI$F%] UV<;<L; LH&'PP$/; HPD D<V<&'$;&'$7!P;Pt; tpWx; pxl; lh*&'0H xx$8; hxd: d0*&' $C0&' $C % &'$0&'$8Y P;&'&' G E$F&'&'xGI$F%q iV<;<; &'$/;  <V<k=kX(  &'$T&'$7&'$B &'$;!<,l(! D0 SAVECOMMENTSCOMMENT ON TABLE  IS ''''TABLE COMMENT FAILED: ; all_col_commentsCOMMENT ON COLUMN .xCOLUMN COMMENT FAILED:TRUE TX(\d(*$*8 Px $(,0*48<@*DH((((<V(Pxdd|X (x\  dhD(HP&4 A   %3 !$%bh&o'v+,./02gh\t0H`x( TUV!%W*0X01p0ring10ms1 0egfi2' 8v5y0: 8?00B lp8ZF!8YIP 0XM 8WR08ingV08vgiaexty st08Jp08tring08vgegim08:808string08*08 ok+086`08 7p08shb808 <el08shbA08 B_l08labelC 08"#DP08F`08G08I08J08K08L@ 08O` 08S nd nf fd icomp c16 c32 bdc c bfc cc okccc cccc helpccccc dd radior0808B:1 $ zCHECK_PACKAGE_FAILUREvProcedure Check_Package_Failure IS BEGIN IF NOT ( Form_Success ) THEN RAISE Form_Trigger_Failure; END IF; END;WͫͫͫͫͫͫͫSQLFORMS w SYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08!"PKG INIT"CHECK_PACKAGE_FAILURE""T8$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08a  D"CHECK_PACKAGE_FAILURE"FORM_SUCCESS"NOT"RAISE"FORM_TRIGGER_FAILURE"" #$/136:?CDIMNPSWY]_`hU<.|.bO           dͫͫͫͫͫͫͫ0D 99  `&'$:   h!tP0CHECK_PACKAGE_FAILUREq3q8q 0800 0800Bu ` 080042p 0800p\$00x !"TAblack(00x " $&ͫwhite%00x "#green)00x# $&' darkgreen!"PKG INIT"CHECK_PACKAGE_FAILURE""T8$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08a  D"CHECK_PACKAGE_FAILURE"FORM_SUCCESS"NOT"RAISE"FORM_TRIGGER_FAILURE"" #$/136:?CDIMNPSWY]_`hU<.|.bO           dͫͫͫͫͫͫͫ0D 99  `&'$:   h!tP0CHECK_PACKAGE_FAILUREq3q8q 0800 0800Bu ` 080042p8000d8000e8000f8000g8000h8000i8000j8000k8000l8000m8000n8000o8000p8000q8000r8000s8000t8000u8000vr(00x " $&gray96 = = =(00x " $&gray92zzz(00x " $&hegray88(00x " $&m_gray84(((%00x !"#urr0g0b0END(00x "$%&ͫ r25g0b0@(00x "$%&LF r50g0b0(00x "$%&ͫ r75g0b0(00x "$%& r88g0b0(00x "$%& r100g0b0(00x!" $&r0g0b50*00x "$ &(REr25g0b50@*00x "$ &(r50g0b50*00x "$ &(r75g0b50*00x "$ &(ͫr88g0b50ͫ,00x $& (* r100g0b50(00x!" $&r0g0b75*00x "$ &(r25g0b75@CH*00x "$ &(UCr50g0b75M_*00x "$ &(r75g0b751*00x "$ &(]r88g0b75,00x $& (*O r100g0b75(00x!" $&r0g0b88*00x "$ &( r25g0b88@*00x "$ &(r50g0b88*00x "$ &( r75g0b88*00x "$ &(r88g0b88,00x $& (* r100g0b88(00x"# $& r0g0b100,00x $& (*! r25g0b100@,00x $& (*" r50g0b100,00x $& (*# r75g0b100,00x $& (*:$ r88g0b100,00x $& (*% r100g0b100&00x  "$AG&gray*00x " $ &('darkgray&00x "$(cyanr*00x" $ &()darkcyan0(00x " $&*gray80333333(00x " $&0+gray76=p=p=p(00x " $&!,gray72GGG(00x " $&ͫ-gray68QQQ'00x! "$%.r0g25b0@)00x# $&' darkgreen!"PKG INIT"CHECK_PACKAGE_FAILURE""T8$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08a  D"CHECK_PACKAGE_FAILURE"FORM_SUCCESS"NOT"RAISE"FORM_TRIGGER_FAILURE"" #$/136:?CDIMNPSWY]_`hU<.|.bO           dͫͫͫͫͫͫͫ0D 99  `&'$:   h!tP0CHECK_PACKAGE_FAILUREq3q8q 0800 0800Bu ` 080042p8000d8000e8000f8000g8000h8000i8000j8000k8000l8000m8000n8000o8000p8000q8000r8000s8000t8000u8000vr)00x " $&'/r25g25b0@@)00x " $&'0r50g25b0@()00x " $&'ay1r75g25b0@0)00x " $&'(2r88g25b0@+00x $ &()ND3 r100g25b0@"*00x" $ &(4r0g25b50@%,00x $ & (*5 r25g25b50@@,00x $ & (*06 r50g25b50@,00x $ & (*7 r75g25b50@,00x $ & (*!8 r88g25b50@,00x $ & (* &9 r100g25b50@*00x" $ &( &:r0g25b750@,00x $ & (* &; r25g25b75@@,00x $ & (* &< r50g25b75@,00x $ & (* (= r75g25b75@,00x $ & (* $> r88g25b75@,00x $ & (*? r100g25b75@*00x" $ &(UC@r0g25b885@M_,00x $ & (*A r25g25b88@@,00x $ & (*]B r50g25b88@,00x $ & (*OC r75g25b88@,00x $ & (*D r88g25b88@,00x $ & (*E r100g25b88@*00x# $ &(F r0g25b100@,00x $ & (*G r25g25b100@@,00x $ & (*H r50g25b100@,00x $ & (* I r75g25b100@,00x $ & (*J r88g25b100@.00x & ( *,5gK r100g25b100@0$00x  !"10Lred(00x "$%& Mdarkred$00x ":Nblue(00x"# $& $Odarkblue(00x " $&Pgray64\(\(\((00x " $&Qgray60ffffff(00x " $&0Rgray56ppp(00x " $&0Sgray52zzz'00x! "$%Tr0g50b0$)00x " $&'Ur25g50b0@&0)00x " $&'0Vr50g50b0,)00x " $&'Wr75g50b0ray)00x " $&'!Xr88g50b0b0@)00x# $&' darkgreen!"PKG INIT"CHECK_PACKAGE_FAILURE""T8$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08a  D"CHECK_PACKAGE_FAILURE"FORM_SUCCESS"NOT"RAISE"FORM_TRIGGER_FAILURE"" #$/136:?CDIMNPSWY]_`hU<.|.bO           dͫͫͫͫͫͫͫ0D 99  `&'$:   h!tP0CHECK_PACKAGE_FAILUREq3q8q 0800 0800Bu ` 080042p8000d8000e8000f8000g8000h8000i8000j8000k8000l8000m8000n8000o8000p8000q8000r8000s8000t8000u8000vr+00x $ &()Y r100g50b0*00x" $ &(Zr0g50b50,00x $ & (*ay[ r25g50b50@,00x $ & (*(\ r50g50b50,00x $ & (*ND] r75g50b50,00x $ & (*^ r88g50b50,00x $ & (*_ r100g50b50*00x" $ &(0`r0g50b750,00x $ & (*a r25g50b75@,00x $ & (*!b r50g50b75,00x $ & (* &c r75g50b75,00x $ & (* &d r88g50b75,00x $ & (* &e r100g50b75*00x" $ &( &fr0g50b885,00x $ & (* (g r25g50b88@,00x $ & (* $h r50g50b88,00x $ & (*i r75g50b88,00x $ & (*UCj r88g50b88,00x $ & (*k r100g50b88*00x# $ &(]l r0g50b100,00x $ & (*Om r25g50b100@,00x $ & (*n r50g50b100,00x $ & (*o r75g50b100,00x $ & (*p r88g50b100.00x & ( *,q r100g50b100'00x "$% ryellow+00x $ &() s darkyellow*00x "$ &(tmagenta.00x &( *,5gu darkmagenta0(00x " $&10vgray48(00x " $&wgray44\\\(00x " $&xgray40(00x " $&rkygray36ףף'00x! "$%ayzr0g75b0)00x " $&'ay{r25g75b0@0)00x " $&'p|r50g75b0)00x " $&'z}r75g75b0!)00x " $&'~r88g75b0$&+00x $ &() r100g75b0&.08x& ( *,00r0g75b50008x ( * ,. 00r25g75b50@008x ( * ,. 00r50g75b50darkgreen!"PKG INIT"CHECK_PACKAGE_FAILURE""T8$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08a  D"CHECK_PACKAGE_FAILURE"FORM_SUCCESS"NOT"RAISE"FORM_TRIGGER_FAILURE"" #$/136:?CDIMNPSWY]_`hU<.|.bO           dͫͫͫͫͫͫͫ0D 99  `&'$:   h!tP0CHECK_PACKAGE_FAILUREq3q8q 0800 0800Bu ` 080042p8000d8000e8000f8000g8000h8000i8000j8000k8000l8000m8000n8000o8000p8000q8000r8000s8000t8000u8000vr008x ( * ,. 00r75g75b50008x ( * ,. 00r88g75b50008x ( * ,.5g 00r100g75b50.08x& ( *,b500r0g75b750008x ( * ,. 00r25g75b75@008x ( * ,. 00r50g75b75008x ( * ,. 00r75g75b75008x ( * ,. 00r88g75b75008x ( * ,.0 00r100g75b75.08x& ( *,00r0g75b885b7008x ( * ,. $ 00r25g75b88@008x ( * ,. ( 00r50g75b88008x ( * ,. & 00r75g75b88008x ( * ,.  00r88g75b88008x ( * ,.0g 00r100g75b88.08x' ( *,b8 00r0g75b100008x ( * ,. 00r25g75b100@008x ( * ,. 00r50g75b100008x ( * ,. 00r75g75b100008x ( * ,. 00r88g75b100208x * , .00 00r100g75b100b1.08x & ( *, $00custom1.08x & ( *, *00custom2.08x & ( *,$00custom3.08x & ( *, 00custom4,08x $ & (*ge00gray32,08x $ & (*rk00gray28QQQ,08x $ & (*00gray24,08x $ & (*ay00gray20+08x% &()00r0g88b0-08x & (*+00r25g88b0@"$-08x & (*+00r50g88b0{-08x & (*+000r75g88b050g-08x & (*+00r88g88b05b0/08x ( *,- " 00r100g88b0.08x& ( *,(00r0g88b50&008x ( * ,. 00r25g88b50@008x ( * ,. 00r50g88b50008x ( * ,. 00r75g88b50darkgreen!"PKG INIT"CHECK_PACKAGE_FAILURE""T8$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08a  D"CHECK_PACKAGE_FAILURE"FORM_SUCCESS"NOT"RAISE"FORM_TRIGGER_FAILURE"" #$/136:?CDIMNPSWY]_`hU<.|.bO           dͫͫͫͫͫͫͫ0D 99  `&'$:   h!tP0CHECK_PACKAGE_FAILUREq3q8q 0800 0800Bu ` 080042p8000d8000e8000f8000g8000h8000i8000j8000k8000l8000m8000n8000o8000p8000q8000r8000s8000t8000u8000v r008x ( * ,. 00r88g88b50008x ( * ,. 00r100g88b50.08x& ( *,5g00r0g88b750008x ( * ,.b5 00r25g88b75@008x ( * ,. 00r50g88b75008x ( * ,. 00r75g88b75008x ( * ,. 00r88g88b75008x ( * ,. 00r100g88b75.08x& ( *,000r0g88b885008x ( * ,. 00r25g88b88@008x ( * ,. $ 00r50g88b88008x ( * ,. ( 00r75g88b88008x ( * ,. & 00r88g88b88008x ( * ,.  00r100g88b88.08x' ( *,0g 00r0g88b100008x ( * ,.b8 00r25g88b100@008x ( * ,. 00r50g88b100008x ( * ,. 00r75g88b100008x ( * ,. 00r88g88b100208x * , .0 00r100g88b100.08x & ( *,00custom5b1.08x & ( *, $00custom6.08x & ( *, *00custom7.08x & ( *,$00custom8,08x $ & (* 00gray16 ,08x $ & (* (00gray12GGG,08x $ & (* (00gray8,08x $ & (* (00gray4-08x& (*+ (00r0g100b0/08x ( *,- 00r25g100b0@/08x ( *,- 00r50g100b0/08x ( *,- 00r75g100b0/08x ( *,- 00r88g100b0/08x ( *,- 00r100g100b0.08x' ( *, 00r0g100b50008x ( * ,. 00r25g100b50@008x ( * ,. 00r50g100b50008x ( * ,. 00r75g100b50008x ( * ,. 00r88g100b50208x * , .0 00r100g100b50AI.08x' ( *, 00r0g100b75008x ( * ,. 00r25g100b75@008x ( * ,. 00r50g100b75008x ( * ,. 00r75g100b75008x ( * ,. 00r88g100b75208x * , .0 00r100g100b75CK.08x' ( *,OT 00r0g100b88IL008x ( * ,. 00r25g100b88@008x ( * ,.U 00r50g100b88008x ( * ,. 00r75g100b88008x ( * ,. 00r88g100b88208x * , .0 00r100g100b88008x( * ,. 00r0g100b100208x * , .0 00r25g100b100@208x * , .0 00r50g100b100 208x * , .0 00r75g100b100208x * , .0 00r88g100b100208x * , .0 00r100g100b100*:BF[(^bfh(rvx((( SQL*FormsLFORM50C:\DDG\comments.fmbxg73 xg73 ;Copyright (c) Oracle Corporation 1990. All Rights Reserved.ar# (000 0800Bu ` 080042p8000d8000e8000f8000g8000h8000i8000j8000k8000l8000m8000n8000o8000p8000q8000r8000s8000t8000u8000vl  3 (; 8a H: X @ 7\TkVn/GxxAVoCOMMENTSi0 pjPkUSlP'0Thx$0<HTt 0@`pComment EditorComments (double-click to edit in window)Column NameCOMMENT Statements for Table:Table CommentsTable TypeTable NameOwnerEnter value for : COMMENTSCommentsEnter value for : COLUMN_NAMEColumn NameALL_COL_COMMENTS Query >> > < << Enter value for : COMMENTSCommentsEnter value for : TABLE_TYPETable TypeEnter value for : TABLE_NAMETable NameEnter value for : OWNEROwnerALL_TAB_COMMENTSMODULE2Enter value for : COMMENTSCommentsSave CommentsEnter the comment for this table.CommentsVIEWTABLEEnter value for : COMMENTSCommentsCloseSee SQLm'}'3GGGGGGG||||||3|||~'NVVVVVVV""USCOMMENTSMODULE2WINDOW0DEFAULT E8 8  D :WHEN-WINDOW-ACTIVATEDWHEN-WINDOW-ACTIVATED D 0/':KEY-COMMITKEY-COMMIT  xx)2 0  H   ` xBA  (H  : T/ALL_TAB_COMMENTSALL_TAB_COMMENTSALL_TAB_COMMENTSowner,table_nameALL_TAB_COMMENTSDEFAULTALL_TAB_COMMENTSE8 8 x8 8P @D x \ ;u:ON-CHECK-DELETE-MASTERON-CHECK-DELETE-MASTER D x  zu:ON-POPULATE-DETAILSON-POPULATE-DETAILS D x8|u:ON-CLEAR-DETAILSON-CLEAR-DETAILSD x/]:POST-QUERYPOST-QUERYh0 x&< VH*A%VBJ!Tt4uicy}[H`gph jik||/~ lOWNEROWNEROwnerC_MAINDEFAULTArialEnter value for : OWNER x' V *A%VdBJ!tuiy}[H(g8h jik|D/~TABLE_NAMETABLE_NAMETable NameC_MAINDEFAULTArialEnter value for : TABLE_NAME x'V*A% VdBJ!tuiNy}[Hgh jik|/~TABLE_TYPETABLE_TYPETable Type#X"h@GL#TABLETABLE"hG"VIEWVIEWC_MAINDEFAULTArialEnter value for : TABLE_TYPE< x'P Vd*AVBJ!ttu2iy(}[Hgh jik|| !/~TABCOMMENTSTABCOMMENTSCommentsC_MAINDEFAULTArialEnter the comment for this table. x! V*AVBJ!tuPiy7}[H$|4/COMMENTSCOMMENTSCommentsDEFAULTEnter value for : COMMENTSCtB xDB@JOIN_COMMENTSJOIN_COMMENTSALL_COL_COMMENTSall_tab_comments.owner = all_col_comments.owner and all_tab_comments.table_name = all_col_comments.table_name  (H/BUTTON_PALETTEBUTTON_PALETTEDEFAULThd@ !#%'4` xx*A!tFu`iHy}[Hgh jik:/~PB_SAVE_COMMENTPB_SAVE_COMMENTSave CommentsC_MAINDEFAULTArial!E8,"DhH/Ku:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED\#xl|*A!tubi*y}[Hgh jik:/~SCROLL_UPSCROLL_UP << C_MAINDEFAULTArial$E8%Dd$2u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED8&x@H*A!Ttubi$y}[H`gph jik:|/~UPUP < C_MAINDEFAULTArial'E8(D@ u:WHEN-BUTTON-0lPRESSEDWHEN-BUTTON-PRESSED!)x!!*A!!(tubi$y}[H!4g!Dh jik:!P/~DOWNDOWN > C_MAINDEFAULTArial*E8!p!+D ! $u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED",x"#*A!# t!ubi*y}[H#g#(h jik:#4/~SCROLL_DOWNSCROLL_DOWN >> C_MAINDEFAULTArial-E8#T#.D!# 6u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED$/x$$*A!$tKubi<y}[H$g%h jik:% /~QUERYQUERY Query C_MAINDEFAULTArial0E8%,%l1D#%\ &u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED&2x!& V&*AVBJ!&&t4uUiy7}[H'|'/COMMENTSCOMMENTSCommentsDEFAULTEnter value for : COMMENTS(43x(@(L*A!(\tu`iHy}[H(hg(xh jik:('/~PB_SQLPB_SQLSee SQLC_MAINDEFAULTArial4E8((5D'4)/ 1u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED*6*  *4g*L*TBA *h("*$& '%H**:*+, /ALL_COL_COMMENTSALL_COL_COMMENTSALL_COL_COMMENTSCOLUMN_NAMEALL_COL_COMMENTSC_MAINDEFAULTALL_COL_COMMENTS7E8*+ 8D)+/^:POST-QUERYPOST-QUERY9+l,@,.0+:) +*A, Ji<y}[H,0TABLE_NAMETABLE_NAMEALL_TAB_COMMENTS.TABLE_NAMEDEFAULT,;) ,*A,i<y}[H,OWNEROWNERALL_TAB_COMMENTS.OWNERDEFAULT.<<)&.P V.d*A%BJ!.xtuiy}[H.g.h jik|. /~COLUMN_NAMECOLUMN_NAMEColumn NameC_MAINDEFAULTArialEnter value for : COLUMN_NAME0=)'0$ V04*AsBJ!0D0Ltui2y#}[H0Tg0dh jik|0p /~@lCOMMENTSCOMMENTSCommentsDEFAULTArialEnter value for : COMMENTS1>)'1 V2*AsBJ!2tui)y}[H2$g24h jik|2@:2`$%/~COLCOMMENTSCOLCOMMENTSCommentsC_MAINDEFAULTArialEnter value for : COMMENTS?E822@D02/:WHEN-MOUSE-DOUBLECLICKWHEN-MOUSE-DOUBLECLICK30A3<% 3H/B_SQLB_SQLB3x454@C24T @!4htu0iy[l4t4g4h jik/Z~SQLCOMMENTSSQLCOMMENTSC_SQLblackgray20Tahoma5HD25`!5xtuiyl55g5h jik/Z~DI_SQL_TABLENAMEDI_SQL_TABLENAMEC_SQLblackgray20Tahoma6hE26|6!6tu9iQyl66g6hjik:6&/Z~PB_CLOSE_SQLPB_CLOSE_SQLCloseC_SQLblackgray20TahomaFE867$GD57@/:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDH 7N$8I 8 NO_^o8,iy}[H8<8L/]dKH C_MAINC_MAINWINDOW0DEFAULTJ 8;>ADH:K 7+: % t1uiyql::([:4:@:L:XI:d/ZrTEXT1TEXT1blackwhitenoneblackblacknoneLU::MT8::CMPTXT2CMPTXT2NW:;dOV: ;tG;l;g;hjikm/Z~TEXTSTR3TEXTSTR3OwnerblackArial=P 7+=$ % tuiyql=0=<[=H=T=`=lI=x/ZrTEXT4TEXT4blackwhitenoneblackblacknoneQU==RT;==CMPTXT5CMPTXT5SW>>xTV= >G>l>g>hjikm/Z~TEXTSTR6TEXTSTR6Table NameblackArial@0U 7+@< % tuiyql@H@T[@`@l@x@I@/ZrPlTEXT7TEXT7blackwhitenoneblackblacknoneVU@@WT>@@CMPTXT8CMPTXT8XWAAYV@ AGAlAgAhjikm/Z~TEXTSTR9TEXTSTR9Table TypeblackArialCHZ 7+CT % tau&iTy qlC`Cl[CxCCCIC/ZrTEXT10TEXT10blackwhitenoneblackblacknone[UCC\TADDCMPTXT11CMPTXT11]WD0D^VC DGDlDgDhjikm/Z~TEXTSTR12TEXTSTR12Table CommentsblackArialFd_ 7+Fp % t!uiyqlF|F[FFFFIF/ZrTEXT21TEXT21blackwhitenoneblackblacknone`UFG aTDGG,CMPTXT22CMPTXT22bWGLGcVF GGGlGgHhjikm/Z~TEXTSTR23TEXTSTR23Column NameblackArialId 7+I % tuiy qlII[IIIIII/ZrTEXT24TEXT24blackwhitenoneblackblacknoneeUJJ(fTHJ8JHCMPTXT25CMPTXT25gWJhJhVJ JGKlK0gK<hjikm/Z~TEXTSTR26TEXTSTR26Comments (double-click to edit in window)blackArialiL7L@jj0lMM[MMMNgNh jikUZr~  !"#$%&'()*+,-./ 0X1 23 456789:;dblackgray20transparentblackblacktransparentArialNj  N_^ZoNiyZN/]dQ4 C_SQLC_SQLWINDOW0k NOl N$O % tvuiry O[OOO/rTEXT23TEXT23`lgray20nonenonemUOP nTNP0P@CMPTXT24CMPTXT24oWP`PpVO PGPlQgQ(hjikm/Z~TEXTSTR25TEXTSTR25COMMENT Statements for Table:blackTahomaqLN$K@jj0lSS[SSSSgSh jikUZr~  !"#$%&'()*+,-./ 0X1 23 456789:;dblackgray20transparentblackblacktransparentTahomar;T@TU UTxs:TCHECK_PACKAGE_FAILURECHECK_PACKAGE_FAILURETt:UQUERY_MASTER_DETAILSQUERY_MASTER_DETAILSUXu:UxBuCLEAR_ALL_MASTER_DETAILSCLEAR_ALL_MASTER_DETAILSUv:U/42SAVECOMMENTSSAVECOMMENTSwOjV VxN V3VrV`iyY}[HVn/kWINDOW0WINDOW0Comment EditorC_MAINDEFAULTye@W@Y<@Y@Z@[|@\T@]@]@^@_l@`P@a@a@c@eT@f@hh@i@kd@l @l@n0@oXzdX$X@CDEFGHXAALL_TAB_COMMENTS.OWNERALL_TAB_COMMENTS.OWNER{]XhX|^WXOWNER}^WXALL_TAB_COMMENTS~YY P1_08_JAN_200313_26_56P2_08_JAN_200313_26_56YdYC DEFGHYASYSTEM.MODESYSTEM.MODEYP8_08_JAN_200313_26_56Z@dZ\C DEFGHZxASYSTEM.MESSAGE_LEVELSYSTEM.MESSAGE_LEVELZQUERY_MASTER_DETAILS[d[ CDEFGH[<ASYSTEM.MASTER_BLOCKSYSTEM.MASTER_BLOCK[\CLEAR_ALL_MASTER_DETAILS[d[CDEFGH\ASYSTEM.COORDINATION_OPERATIONSYSTEM.COORDINATION_OPERATION\4CLEAR_ALL_MASTER_DETAILS\d\CDEFGH\ASYSTEM.TRIGGER_BLOCKSYSTEM.TRIGGER_BLOCK\CLEAR_ALL_MASTER_DETAILS]ld]CDEFGH]ASYSTEM.TRIGGER_ITEMSYSTEM.TRIGGER_ITEM]CLEAR_ALL_MASTER_DETAILS^4d^LCDEFGH^dASYSTEM.FORM_STATUSSYSTEM.FORM_STATUS^CLEAR_ALL_MASTER_DETAILS^d_CDEFGH_,ASYSTEM.BLOCK_STATUSSYSTEM.BLOCK_STATUS_LCLEAR_ALL_MASTER_DETAILS_d_CDEFGp lH_ASYSTEM.CURSOR_ITEMSYSTEM.CURSOR_ITEM``4CLEAR_ALL_MASTER_DETAILSP2_08_JAN_200313_26_56`d`CDEFGH`ASYSTEM.RECORD_STATUSSYSTEM.RECORD_STATUS`P2_08_JAN_200313_26_56addaCDEFGHaASYSTEM.EVENT_WINDOWSYSTEM.EVENT_WINDOWaP0_08_JAN_200313_26_56b0dbTbxC!DEFdGHcAALL_TAB_COMMENTS.TABLE_NAMEALL_TAB_COMMENTS.TABLE_NAME]bb^abTABLE_NAME^acALL_TAB_COMMENTScPclccP1_08_JAN_200313_26_56P2_08_JAN_200313_26_56P1_27_JAN_200309_19_59SAVECOMMENTSddd4dXC%DEFGHdAALL_TAB_COMMENTS.TABCOMMENTSALL_TAB_COMMENTS.TABCOMMENTS]dd^cdTABCOMMENTS^cdALL_TAB_COMMENTSe$e@P9_08_JAN_200313_26_56SAVECOMMENTSedeeC&DEFGHfAALL_TAB_COMMENTS.COMMENTSALL_TAB_COMMENTS.COMMENTS]ffL^eTf<COMMENTS^eTftALL_TAB_COMMENTSfP9_08_JAN_200313_26_56g dgDghC*DEFGHh AALL_COL_COMMENTS.COLCOMMENTSALL_COL_COMMENTS.COLCOMMENTS]gg^fgCOLCOMMENTS^fgALL_COL_COMMENTSh4hTP15_08_JAN_200313_26_56SAVECOMMENTShdhiC0DEFGHiAALL_COL_COMMENTS.COMMENTSALL_COL_COMMENTS.COMMENTS]i(i`^hhiPCOMMENTS^hhiALL_COL_COMMENTSiiP15_08_JAN_200313_26_56SAVECOMMENTSjTdjpjC?DEFGHk(AB_SQL.DI_SQL_TABLENAMEB_SQL.DI_SQL_TABLENAME]jj^ijDI_SQL_TABLENAME^ikB_SQLkHP1_27_JAN_200309_19_59kdkCTDEFGHkASYSTEM.CURSOR_BLOCKSYSTEM.CURSOR_BLOCKl SAVECOMMENTSlpdlCUDEFGHlASYSTEM.CURSOR_RECORDSYSTEM.CURSOR_RECORDlSAVECOMMENTSm4dmLmdCVDEFGHmAB_SQL.SQLCOMMENTSB_SQL.SQLCOMMENTS]mm^lmSQLCOMMENTS^lmB_SQLnSAVECOMMENTSndnnCWDEFGHotAALL_COL_COMMENTS.COLUMN_NAMEALL_COL_COMMENTS.COLUMN_NAME]no4^n0o COLUMN_NAME^n0o\ALL_COL_COMMENTSo!lSAVECOMMENTSodpCXDEFGHp(ASYSTEM.LAST_RECORDSYSTEM.LAST_RECORDpHSAVECOMMENTSTS detail declare section -- CURSOR ALL_COL_COMMENTS_cur IS SELECT null FROM ALL_COL_COMMENTS WHERE OWNER = :ALL_TAB_COMMENTS.OWNER and TABLE_NAME = :ALL_TAB_COMMENTS.TABLE_NAME; -- -- End ALL_COL_COMMENTS detail declare section -- -- -- End default relation declare section -- -- -- Begin default relation program section -- BEGIN -- -- Begin ALL_COL_COMMENTS detail program section -- OPEN ALL_COL_COMMENTS_cur; FETCH ALL_COL_COMMENTS_cur INTO Dummy_Define; IF ( ALL_COL_COMMENTS_cur%found ) THEN Message('Cannot delete master record when matching detail records exist.'); CLOSE ALL_COL_COMMENTS_cur; RAISE Form_Trigger_Failure; END IF; CLOSE ALL_COL_COMMENTS_cur; -- -- End ALL_COL_COMMENTS detail program section -- END; -- -- End default relation program section --  END;)ON-CHECK-DELETE-MASTER (ALL_TAB_COMMENTS)ͫͫͫͫͫͫͫw SYSSTANDARD p <<TOOLBOXALL_COL_COMMENTS w4PUBLICALL_COL_COMMENTSw4SYSALL_COL_COMMENTSSQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08D F"PKG INIT""DUMMY_DEFINE"ALL_COL_COMMENTS_CUR""" (.069:<>@B    4Hfg0  ͫͫͫͫͫͫͫ0P gB 4#UwH4uH 4yH6 .&'&'GE$FsHhsH! r{t gdHgdHgdH!tgdH !XX `8@`T?Cannot delete master record when matching detail records exist.ALL_COL_COMMENTS_CUR+4 H Px |,:Y]b!f%f*o SELECT NULL FROM ALL_COL_COMMENTS WHERE OWNER = :b1 AND TABLE_NAME = :b2"\?!3L_80003TS800038000380003N8808L66RESFILE___NA p8B_headerfield_NAMEDEFAULT,;) ,*A,i<y}[H,OWNEROWNERALL_TAB_COMMENTS.OWNERDEFAULT.<<)&.P V.d*A%BJ!.xtuiy}[H.g.h jik|. /~COLUMN_NAMECOLUMN_NAMEColumn NameC_MAINDEFAULTArialEnter value for : COLUMN_NAME0=)'0$ V04*AsBJ!0D0Ltui2y#}[H0Tg0dh jik|0p /~