ROS.60050 r    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000 8000 8000 8000 8000 8000800080008000800080008000800080008000800080008000800080008000800080008000 8000!8000"8000#8000$8000%8000&8000'8000(8000)8000*8000+8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>Pr@0808`08D908$"08_APR_2009_08IN Js _i08(:systemur08sual_attbu08_FIELD')08ST-TEXT-EM 08.RMOSUBJT)08ͫͫͫ$00x "r75g0b75&00x $FORMA r25g25b88%00x#ͫͫͫl r0g50b100ͫ*08x ( 00r50g75b100*08x ( 00r75g88b100"PKG INIT"""T:ͫͫͫͫͫͫͫ0D ;; 049&'&'GIT $!\$\LVA_INPUT_FIELD $,: 90808BD91 $"P12_09_APR_200519_03_36BEGIN Mset_item_property(:system.current_item,visual_attribute,'VA_INPUT_FIELD_HL'); END;%PRE-TEXT-ITEM (RM_OLEDOCS.RMOSUBJECT)kͫͫͫͫͫͫͫw SYSSTANDARD FORMS4C FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T:ͫͫͫͫͫͫͫ0D ;; 089&'&'GIT $!`$`PVA_INPUT_FIELD_HL $,: 9208x * , .0 00r75g100b100208x * , .02_ 00r88g100b100208x * , .0EN 00r100g100b100NE*:BFq(rvz|((((ͫ SQL*FormsFORM50)N:\orawin95\hsa_form\rmoledocs_backup.fmbxj  xj j ACopyright (c) Oracle Corporation 1990, 1999. All Rights Reserved.v (0"PKG INIT"""Tͫͫͫͫͫͫͫ0D ~ &'$F!LL<CC_ACTIONS.COMMENT_TEXT WW 0800 00800 E@ 0800OP8000 8000!8000"8000#8000$8000%8000&8000'8000(8000)8000*8000+8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>x0lBD1 $ bP3_17_NOV_200215_27_12BEGIN ;-- IF THERE IS NOTHING TO COMMIT OR -- IF USER PRESSES ANY KEY OTHER THAN THE SPACE BAR ON A CHECK BOX DECLARE v_msg_txt VARCHAR2(2000); BEGIN IF error_code = 40735 THEN IF SQLCODE = 0 AND DBMS_ERROR_CODE = 0 THEN raise_form_alert(error_text); ELSE v_msg_txt := 'ERROR:'||CHR(10); IF SQLCODE = 0 THEN NULL; ELSE v_msg_txt := v_msg_txt ||SQLCODE||' '||SQLERRM||CHR(10); END IF; IF DBMS_ERROR_CODE = 0 THEN NULL; ELSE v_msg_txt := v_msg_txt ||DBMS_ERROR_CODE||' '||DBMS_ERROR_TEXT; END IF; RAISE_FORM_ALERT(v_msg_txt); END IF; ELSIF MESSAGE_CODE = 40200 THEN --field protected against update MESSAGE('Field protected against update'); ELSIF ERROR_CODE <> 40401 AND ERROR_CODE <> 41008 THEN MESSAGE_HANDLER(ERROR_CODE, TRUE); END IF; END; END;ON-ERROR (Form)ͫͫͫͫͫͫͫw SYSSTANDARD SQLFORMS FORMS40 /LWCSLIBRAISE_FORM_ALERT/LWCSLIBMESSAGE_HANDLER$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $!"PKG INIT""V_MSG_TXT"" "  ͫͫͫͫͫͫͫ0D n  | &' $,.( ( l0.808b X&'@$.H@H< 2&'PP$-'P$#&'dd$/:d lx.x  `l; ;0&'$;&'$/: &'$.  M&'$; ;0&'  $:  ' $&' $G.H( (7 +&'&'PGE$F&'0$,.h808b V&'@$,.pH@H8 ,&'P$,'Px$! 4  ERROR: Field protected against updateѝ0 X4 ( 8 P ((T l (0p (8 (@ (H P d (x  ( $ (( @ D H L P T X (\ t (x (    *  *( *0  *8 , *@0 H *HL d *Ph 8v    >djh(,040@HHPLhpptxx 90808BD91 $"P8_06_MAY_200511_31_23BEGIN Mset_item_property(:system.current_item,visual_attribute,'VA_INPUT_FIELD_HL'); END;*PRE-TEXT-ITEM (RM_OLEDOCS.RMODOCUMENTTYPE)kͫͫͫͫͫͫͫw SYSSTANDARD FORMS4C FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T:ͫͫͫͫͫͫͫ0D ;; 089&'&'GIT $!`$`PVA_INPUT_FIELD_HL $,: 9HL PT,` $%&@r0808BD1 $ P4_20_NOV_200210_52_43BEGIN DECLARE lv_alert_id ALERT; lv_alert_button NUMBER; BEGIN IF MESSAGE_CODE = 40350 THEN NULL; ELSIF MESSAGE_CODE = 40400 THEN --accepted and saved NULL; ELSE MESSAGE_HANDLER(MESSAGE_CODE, FALSE); END IF; END; END;ON-MESSAGE (Form)ͫͫͫͫͫͫͫFORMS4C w SYSSTANDARD SQLFORMS /LWCSLIBMESSAGE_HANDLER$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ087 6"PKG INIT""LV_ALERT_ID"ID"LV_ALERT_BUTTON""#&(.135       ͫͫͫͫͫͫͫ0D )4  &'$$G.,$,  V&'4$G.$<4<  *&'D$G'D,$!, &)*&)*Н7 Ld$h,4<D=Ci o  x$|,:ͫͫͫͫͫͫͫ0D ;; 089&'&'GIT $!`$`PVA_INPUT_FIELD_HL $,: 9\0808ZDDBD1 $ 0P8_02_JUN_200512_46_38BEGIN #GO_ITEM('CC_ACTIONS.COMMENT_TEXT'); END;%KEY-NEXT-ITEM (RM_OLEDOCS.RMOSUBJECT)Vͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D ~ &'$F!LL<CC_ACTIONS.COMMENT_TEXT WW 0800 00800 E@ 0800OP8000 8000!8000"8000#8000$8000%8000&8000'8000(8000)8000*8000+8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>Pr<hh:FRM50_BUFFER table contains user's buffer.hh,8ROSATTRIBSclass attributesJs+hh)syROSLFDESCros lf descript)hh'IEROSOBJMAPros name->idXT-+hh)MOROSSTRINGStk2 uiStrings*hh(ROSSTRUCTSstruct types*hh(ROSTK2RESVtk2 reservedPhhNTOOL_MODULEtable contains information about different module$pp" (VG_COLORVG_COLOR+pp $&'()VG_COLORITEMID@a+pp $&'()VG_COLORCELLID@-pp &()*+VG_COLORNAME_SET@ /pp (*+,-VG_COLORNAME_LENGTH /pp (*+,-VG_COLORCOLOR_NAMEx'pp "#$%VG_COLORRED )pp "$%&'VG_COLORGREEN GI)pp "$%&'VG_COLORBLUE 0808xxBD1 $ dP0_09_OCT_200208_37_56BEGIN 3BEGIN hide_menu; GO_ITEM('bkhdr.startid'); END; END;WHEN-NEW-FORM-INSTANCE (Form)lͫͫͫͫͫͫͫSQLFORMS w SYSSTANDARD FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T&ͫͫͫͫͫͫͫ0D '' &'$?&'$F!T$T4 bkhdr.startid WW&W&W 0800 v0 $!`$`PVA_INPUT_FIELD_HL $,: 9208x * , .0 00r75g100b100208x * , .02_ 00r88g100b100208x * , .0EN 00r100g100b100NE*:BFq(rvz|((((ͫ SQL*FormsFORM50)N:\orawin95\hsa_form\rmoledocs_backup.fmbxj  xj j ACopyright (c) Oracle Corporation 1990, 1999. All Rights Reserved.v (0"PKG INIT"""Tͫͫͫͫͫͫͫ0D ~ &'$F!LL<CC_ACTIONS.COMMENT_TEXT WW 0800 00800 E@ 0800OP8000 8000!8000"8000#8000$8000%8000&8000'8000(8000)8000*8000+8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>``rk0808iSSBD1 $ ?P41_05_MAY_200513_19_28BEGIN 1info_message('Function Keys have been disabled'); END;KEY-OTHERS (Form)bͫͫͫͫͫͫͫw SYSSTANDARD /NSPC5/INFO_MESSAGE$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D  '$!XXH Function Keys have been disabled WW ;0808BD1 $ P42_05_MAY_200513_19_28BEGIN next_item; END;KEY-NEXT-ITEM (Form)E=ͫͫͫͫͫͫͫFORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D O &'$q!00 WW0800 v0ͫͫ0D ;; 089&'&'GIT $!`$`PVA_INPUT_FIELD_HL $,: 9\0808ZDDBD1 $ 0P8_02_JUN_200512_46_38BEGIN #GO_ITEM('CC_ACTIONS.COMMENT_TEXT'); END;%KEY-NEXT-ITEM (RM_OLEDOCS.RMOSUBJECT)Vͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D ~ &'$F!LL<CC_ACTIONS.COMMENT_TEXT WW 0800 00800 E@ 0800OP8000 8000!8000"8000#8000$8000%8000&8000'8000(8000)8000*8000+8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>plBD561 $"P4_06_NOV_200518_30_56BEGIN Declare eDummy EXCEPTION; piTemp PLS_INTEGER; BEGIN IF :bkhdr.startid IS NULL OR :bkhdr.endid IS NULL THEN info_message('Start and End IDs must be supplied'); RAISE eDummy; END IF; IF :bkhdr.startid < :bkhdr.endid THEN info_message('Start ID must be GREATER THAN OR EQUAL TO End ID'); RAISE eDummy; END IF; SELECT COUNT(*) INTO piTemp FROM rm_oledocs WHERE rmoid <= :bkhdr.startid AND rmoid >= :bkhdr.endid AND (rmocorrdir = 'OUTGOING' OR rmocorrdir = 'INTERNAL') AND RMODOCUMENTTYPE <> 'ACTIVATION CODE' AND (rmooledocument IS NULL OR fnGetRmOleDocBlobLength(rmoid) <= 2000) AND rmoid NOT IN(SELECT RMOID_FK FROM rm_oledocs_files WHERE rmoid_fk = rmoid); IF piTemp > 0 THEN info_message('There are unrecoverable documents ('||piTemp||') in the specified ID range - BLOB Length is less than 2000.'); END IF; SELECT COUNT(*) INTO piTemp FROM rm_oledocs WHERE rmoid <= :bkhdr.startid AND rmoid >= :bkhdr.endid AND (rmocorrdir = 'OUTGOING' OR rmocorrdir = 'INTERNAL') AND RMODOCUMENTTYPE <> 'ACTIVATION CODE' AND NOT(rmooledocument IS NULL) AND fnGetRmOleDocBlobLength(rmoid) > 2000 AND rmoid NOT IN(SELECT RMOID_FK FROM rm_oledocs_files WHERE rmoid_fk = rmoid); IF piTemp = 0 THEN info_message('There are no documents in the specified ID range that require recovering.'); RAISE eDummy; END IF; SET_BLOCK_PROPERTY('RM_OLEDOCS',default_where, 'rmoid <= :bkhdr.startid '|| 'AND rmoid >= :bkhdr.endid '|| 'AND (rmocorrdir = ''OUTGOING'' OR rmocorrdir = ''INTERNAL'') '|| 'AND RMODOCUMENTTYPE <> ''ACTIVATION CODE'' '|| 'AND NOT(rmooledocument IS NULL) '|| 'AND LENGTH(rmooledocument) > 2000 '|| 'AND rmoid NOT IN(SELECT RMOID_FK FROM rm_oledocs_files WHERE rmoid_fk = rmoid)'); getfiles; EXCEPTION WHEN eDummy THEN NULL; END;  END;%WHEN-BUTTON-PRESSED (BKHDR.PB_BACKUP) 1Gͫͫͫͫͫͫͫ w SYSSTANDARD /NSPC5/INFO_MESSAGExj* OPS$CASE33 RM_OLEDOCSFNGETRMOLEDOCBLOBLENGTH xj 7 OPS$CASE33FNGETRMOLEDOCBLOBLENGTHxj   OPS$CASE33RM_OLEDOCS_FILESFORMS4C FORMS40 /NSPC5/GETFILES$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08M]"PKG INIT""PITEMP""""" %'-068>ACEGIK        (\  ͫͫͫͫͫͫͫ0D @g , 56'$i56#'$iq{t$(w(0(5(6t(0,088  02 (/ H;8HD;DP@'@$q{tX\w\d\5\6t\d,dll  0# 'h$i&';;;;|;|x;xt&'(GILt $' $  k! l``|<DX|px"Start and End IDs must be supplied0Start ID must be GREATER THAN OR EQUAL TO End ID#There are unrecoverable documents (<) in the specified ID range - BLOB Length is less than 2000.IThere are no documents in the specified ID range that require recovering.rmoid <= :bkhdr.startid AND rmoid >= :bkhdr.endid 9AND (rmlocorrdir = 'OUTGOING' OR rmocorrdir = 'INTERNAL') *AND RMODOCUMENTTYPE <> 'ACTIVATION CODE' AND NOT(rmooledocument IS NULL) "AND LENGTH(rmooledocument) > 2000 NAND rmoid NOT IN(SELECT RMOID_FK FROM rm_oledocs_files WHERE rmoid_fk = rmoid) RM_OLEDOCSR (08H (\(d (l$(8FK i w |%(&6';*2568SELECT COUNT(*) FROM RM_OLEDOCS WHERE RMOID <= :b1 AND RMOID >= :b2 AND (RMOCORRDIR = ''OUTGOING'' OR RMOCORRDIR = ''INTERNAL'' ) AND RMODOCUMENTTYPE != ''ACTIVATION CODE'' AND (RMOOLEDOCUMENT IS NULL OR FNGETRMOLEDOCBLOBLENGTH(RMOID) <= 2000 ) AND RMOID NOT IN (SELECT RMOID_FK FROM RM_OLEDOCS_FILES WHERE RMOID_FK = RMOID )"SELECT COUNT(*) FROM RM_OLEDOCS WHERE RMOID <= :b1 AND RMOID >= :b2 AND (RMOCORRDIR = ''OUTGOING'' OR RMOCORRDIR = ''INTERNAL'' ) AND RMODOCUMENTTYPE != ''ACTIVATION CODE'' AND NOT (RMOOLEDOCUMENT IS NULL ) AND FNGETRMOLEDOCBLOBLENGTH(RMOID) > 2000 AND RMOID NOT IN (SELECT RMOID_FK FROM RM_OLEDOCS_FILES WHERE RMOID_FK = RMOID )" "008#P <hdI94*d "N( 56"PKG INIT"""T:ͫͫͫͫͫͫͫ0D ;; 089&'&'GIT $!`$`PVA_INPUT_FIELD_HL $,: 9\0808ZDDBD1 $ 0P8_02_JUN_200512_46_38BEGIN #GO_ITEM('CC_ACTIONS.COMMENT_TEXT'); END;%KEY-NEXT-ITEM (RM_OLEDOCS.RMOSUBJECT)Vͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D ~ &'$F!LL<CC_ACTIONS.COMMENT_TEXT WW 0800 00800E @ 0800OP$00x !"black(00x " $ &white%00x "#green)00x#$ &' darkgreenp(00x " $ &gray96= = = (00x " $ &gray92zzz(00x " $ &gray88(00x " $ &gray84(((%00x !"#r0g0b0(((00x" $%& r25g0b0@(00x" $%& r50g0b0(00x" $%& r75g0b0(00x" $%& r88g0b0(00x" $%& r100g0b0(00x!"$ &r0g0b50*00x" $& (r25g0b50@*00x" $& (r50g0b50*00x" $& (r75g0b50*00x" $& (r88g0b50,00x$ &( * r100g0b50(00x!"$ &r0g0b75*00x" $& (r25g0b75@*00x" $& (r50g0b75*00x" $& (r75g0b7500 dd radiolBD781 $"}P4_21_NOV_200615_40_11BEGIN HDeclare eDummy EXCEPTION; piTemp PLS_INTEGER; BEGIN IF :bkhdr.fromdate IS NULL OR :bkhdr.todate IS NULL THEN info_message('Start and End Dates must be supplied'); RAISE eDummy; END IF; IF :bkhdr.fromdate > :bkhdr.todate THEN info_message('From-Date must be LESS THAN OR EQUAL TO To-Date'); RAISE eDummy; END IF; SELECT COUNT(*) INTO piTemp FROM rm_oledocs WHERE TRUNC(createddt) >= TRUNC(:bkhdr.fromdate) AND TRUNC(createddt) <= TRUNC(:bkhdr.todate) AND (rmocorrdir = 'OUTGOING' OR rmocorrdir = 'INTERNAL') AND RMODOCUMENTTYPE <> 'ACTIVATION CODE' AND (rmooledocument IS NULL OR fnGetRmOleDocBlobLength(rmoid) <= 2000) AND rmoid NOT IN(SELECT RMOID_FK FROM rm_oledocs_files WHERE rmoid_fk = rmoid); IF piTemp > 0 THEN info_message('There are unrecoverable documents ('||piTemp||') in the specified date range - BLOB Length is less than 2000.'); END IF; SELECT COUNT(*) INTO piTemp FROM rm_oledocs WHERE TRUNC(createddt) >= TRUNC(:bkhdr.fromdate) AND TRUNC(createddt) <= TRUNC(:bkhdr.todate) AND (rmocorrdir = 'OUTGOING' OR rmocorrdir = 'INTERNAL') AND RMODOCUMENTTYPE <> 'ACTIVATION CODE' AND NOT(rmooledocument IS NULL) AND fnGetRmOleDocBlobLength(rmoid) > 2000 AND rmoid NOT IN(SELECT RMOID_FK FROM rm_oledocs_files WHERE rmoid_fk = rmoid); IF piTemp = 0 THEN info_message('There are no documents in the specified date range that require recovering.'); RAISE eDummy; END IF; SET_BLOCK_PROPERTY('RM_OLEDOCS',default_where, 'TRUNC(createddt) >= TRUNC(:bkhdr.fromdate) '|| 'AND TRUNC(createddt) <= TRUNC(:bkhdr.todate) '|| 'AND (rmocorrdir = ''OUTGOING'' OR rmocorrdir = ''INTERNAL'') '|| 'AND RMODOCUMENTTYPE <> ''ACTIVATION CODE'' '|| 'AND NOT(rmooledocument IS NULL) '|| 'AND LENGTH(rmooledocument) > 2000 '|| 'AND rmoid NOT IN(SELECT RMOID_FK FROM rm_oledocs_files WHERE rmoid_fk = rmoid)'); getfiles; EXCEPTION WHEN eDummy THEN NULL; END;  END;-WHEN-BUTTON-PRESSED (BKHDR.PB_BACKUP_BY_DATE) Gͫͫͫͫͫͫͫ w SYSSTANDARD /NSPC5/INFO_MESSAGExj* OPS$CASE33 RM_OLEDOCSFNGETRMOLEDOCBLOBLENGTH xj 7 OPS$CASE33FNGETRMOLEDOCBLOBLENGTHxj   OPS$CASE33RM_OLEDOCS_FILESFORMS4C FORMS40 /NSPC5/GETFILES$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08M]"PKG INIT""PITEMP""""" %'-068>ACEGIK        (\  ͫͫͫͫͫͫͫ0D @ <  7 8'$i 7 8# '$iq{t$(w(0(7(8t(0,088  02 (/ H;8HD;DP@'@$q{tX\w\d\7\8t\d,dll  0# 'h$i&';;;;|;|x;xt&'(GILt $' $  k!8 $``|<DX|px$Start and End Dates must be supplied/From-Date must be LESS THAN OR EQUAL TO To-Date#There are unrecoverable documents (>) in the specified date range - BLOB Length is less than 2000.KThere are no docluments in the specified date range that require recovering.+TRUNC(createddt) >= TRUNC(:bkhdr.fromdate) -AND TRUNC(createddt) <= TRUNC(:bkhdr.todate) 9AND (rmocorrdir = 'OUTGOING' OR rmocorrdir = 'INTERNAL') *AND RMODOCUMENTTYPE <> 'ACTIVATION CODE' AND NOT(rmooledocument IS NULL) "AND LENGTH(rmooledocument) > 2000 NAND rmoid NOT IN(SELECT RMOID_FK FROM rm_oledocs_files WHERE rmoid_fk = rmoid) RM_OLEDOCSO (08Hܠ \ d(l8FK i w |%(&6';)1457SELECT COUNT(*) FROM RM_OLEDOCS WHERE TRUNC(CREATEDDT) >= TRUNC(:b1) AND TRUNC(CREATEDDT) <= TRUNC(:b2) AND (RMOCORRDIR = ''OUTGOING'' OR RMOCORRDIR = ''INTERNAL'' ) AND RMODOCUMENTTYPE != ''ACTIVATION CODE'' AND (RMOOLEDOCUMENT IS NULL OR FNGETRMOLEDOCBLOBLENGTH(RMOID) <= 2000 ) AND RMOID NOT IN (SELECT RMOID_FK FROM RM_OLEDOCS_FILES WHERE RMOID_FK = RMOID )"SELECT COUNT(*) FROM RM_OLEDOCS WHERE TRUNC(CREATEDDT) >= TRUNC(:b1) AND TRUNC(CREATEDDT) <= TRUNC(:b2) AND (RMOCORRDIR = ''OUTGOING'' OR RMOCORRDIR = ''INTERNAL'' ) AND RMODOCUMENTTYPE != ''ACTIVATION CODE'' AND NOT (RMOOLEDOCUMENT IS NULL ) AND FNGETRMOLEDOCBLOBLENGTH(RMOID) > 2000 AND RMOID NOT IN (SELECT RMOID_FK FROM RM_OLEDOCS_FILES WHERE RMOID_FK = RMOID )" $/08#P >hdK+-9X* "N(, 78.n<.|e.|eeMOQcQcQc  (9Q  &:"" %;     >:     B  A   F  E $) "%& G #+ )-2 "./H",4 26 "$58 6  <==  ?@@&  CDD*,/ "9!#,5'(*0137!'(01"d ͫͫͫͫͫͫͫ0D %(  hx.&'&'GE(% $!&'$=E&'GE#  %F;&'GE # % % hg! H0 YES_NO_CHOICE ALR_YES_NO(@D\ `d7Rk| `d  t 0;SET_QUERY_FIELDSMINGUSuA(p)*p6@:>0?SHOW_ATTACHED_LISTMINGUSWYgu9(p#$p.@2607SHOW_MESSAGEMINGUS&u9(p&'p.@2607SUPERVISOR_ROLE MINGUSu1(pp&@*.0/WINDEMOMINGUSu1(pp&@*.0/WINDEMOMINGUSuͫͫͫͫͫͫͫ0D O &'$q!00 WW(l r0g50b100NoDEFAULT$r0808BD1 $ P43_05_MAY_200513_19_28BEGIN previous_item; END;KEY-PREV-ITEM (Form)E=ͫͫͫͫͫͫͫFORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D O &'$~!00 WW,0808*BD1 $ P4_05_SEP_200511_58_30BEGIN EXIT_FORM(NO_VALIDATE); END;WHEN-WINDOW-CLOSED (Form)uSͫͫͫͫͫͫͫFORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T1ͫͫͫͫͫͫͫ0D 22k &'&'&'GE(GE $4!00 W1W8000800080008000800080008000800080008000800080008000800080008000 8000 8000 8000 8000 8000800080008000800080008000800080008000800080008000800080008000800080008000 8000!8000"8000#8000$8000%8000&8000'8000(8000)8000*8000+8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>,r 0800p 0800 0808 BD1 $ P10_19_MAY_200312_43_07BEGIN next_item; END;KEY-DOWN (RM_OLEDOCS)E=ͫͫͫͫͫͫͫFORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D O &'$q!00 WW0808 BD1 $ P11_19_MAY_200312_43_07BEGIN previous_item; END;KEY-UP (RM_OLEDOCS)E=ͫͫͫͫͫͫͫFORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D O &'$~!00 8000800080008000800080008000800080008000800080008000800080008000 8000 8000 8000 8000 8000800080008000800080008000800080008000800080008000800080008000800080008000 8000!8000"8000#8000$8000%8000&8000'8000(8000)8000*8000+8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>r0808 BD91 $"P9_09_APR_200519_03_36BEGIN Jset_item_property(:system.current_item,visual_attribute,'VA_INPUT_FIELD'); END;(POST-TEXT-ITEM (RM_OLEDOCS.RMOISSUEDATE)kͫͫͫͫͫͫͫw SYSSTANDARD FORMS4C FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T:ͫͫͫͫͫͫͫ0D ;; 049&'&'GIT $!\$\LVA_INPUT_FIELD $,: 90808 BD91 $"P10_09_APR_200519_03_36BEGIN Mset_item_property(:system.current_item,visual_attribute,'VA_INPUT_FIELD_HL'); END;'PRE-TEXT-ITEM (RM_OLEDOCS.RMOISSUEDATE)kͫͫͫͫͫͫͫw SYSSTANDARD FORMS4C FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T:ͫͫͫͫͫͫͫ0D ;; 089&'&'GIT $!`$`PVA_INPUT_FIELD_HL $,: 90008000800080008000 8000 8000 8000 8000 8000800080008000800080008000800080008000800080008000800080008000800080008000 8000!8000"8000#8000$8000%8000&8000'8000(8000)8000*8000+8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>r0808BD91 $"P7_06_MAY_200511_31_23BEGIN Jset_item_property(:system.current_item,visual_attribute,'VA_INPUT_FIELD'); END;+POST-TEXT-ITEM (RM_OLEDOCS.RMODOCUMENTTYPE)kͫͫͫͫͫͫͫw SYSSTANDARD FORMS4C FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T:ͫͫͫͫͫͫͫ0D ;; 049&'&'GIT $!\$\LVA_INPUT_FIELD $,: 90808 BD91 $"P10_09_APR_200519_03_36BEGIN Mset_item_property(:system.current_item,visual_attribute,'VA_INPUT_FIELD_HL'); END;'PRE-TEXT-ITEM (RM_OLEDOCS.RMOISSUEDATE)kͫͫͫͫͫͫͫw SYSSTANDARD FORMS4C FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T:ͫͫͫͫͫͫͫ0D ;; 089&'&'GIT $!`$`PVA_INPUT_FIELD_HL $,: 90008000800080008000 8000 8000 8000 8000 8000800080008000800080008000800080008000800080008000800080008000800080008000 8000!8000"8000#8000$8000%8000&8000'8000(8000)8000*8000+8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>r0808BD91 $"P8_06_MAY_200511_31_23BEGIN Mset_item_property(:system.current_item,visual_attribute,'VA_INPUT_FIELD_HL'); END;*PRE-TEXT-ITEM (RM_OLEDOCS.RMODOCUMENTTYPE)kͫͫͫͫͫͫͫw SYSSTANDARD FORMS4C FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T:ͫͫͫͫͫͫͫ0D ;; 089&'&'GIT $!`$`PVA_INPUT_FIELD_HL $,: 90808 BD91 $"P10_09_APR_200519_03_36BEGIN Mset_item_property(:system.current_item,visual_attribute,'VA_INPUT_FIELD_HL'); END;'PRE-TEXT-ITEM (RM_OLEDOCS.RMOISSUEDATE)kͫͫͫͫͫͫͫw SYSSTANDARD FORMS4C FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T:ͫͫͫͫͫͫͫ0D ;; 089&'&'GIT $!`$`PVA_INPUT_FIELD_HL $,: 90008000800080008000 8000 8000 8000 8000 8000800080008000800080008000800080008000800080008000800080008000800080008000 8000!8000"8000#8000$8000%8000&8000'8000(8000)8000*8000+8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>tro0808mWWBD1 $ CP7_02_JUN_200512_46_38BEGIN )GO_ITEM('CC_ACTIONS.CONTACT_PARTY_ROLE'); END;*KEY-PREV-ITEM (RM_OLEDOCS.RMODOCUMENTTYPE)Vͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D  &'$F!TTDCC_ACTIONS.CONTACT_PARTY_ROLE WW VA_INPUT_FIELD_HL $,: 90808 BD91 $"P10_09_APR_200519_03_36BEGIN Mset_item_property(:system.current_item,visual_attribute,'VA_INPUT_FIELD_HL'); END;'PRE-TEXT-ITEM (RM_OLEDOCS.RMOISSUEDATE)kͫͫͫͫͫͫͫw SYSSTANDARD FORMS4C FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T:ͫͫͫͫͫͫͫ0D ;; 089&'&'GIT $!`$`PVA_INPUT_FIELD_HL $,: 90008000800080008000 8000 8000 8000 8000 8000800080008000800080008000800080008000800080008000800080008000800080008000 8000!8000"8000#8000$8000%8000&8000'8000(8000)8000*8000+8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>r0808ࡱ> Root Entry:ͫͫͫͫͫͫͫ0D ;; 089&'&'GIT $!`$`PVA_INPUT_FIELD_HL $,: 90008000800080008000 8000 8000 8000 8000 8000800080008000800080008000800080008000800080008000800080008000800080008000 8000!8000"8000#8000$8000%8000&8000'8000(8000)8000*8000+8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000> r0808BD91 $"P11_09_APR_200519_03_36BEGIN Jset_item_property(:system.current_item,visual_attribute,'VA_INPUT_FIELD'); END;&POST-TEXT-ITEM (RM_OLEDOCS.RMOSUBJECT)kͫͫͫͫͫͫͫw SYSSTANDARD FORMS4C FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T:ͫͫͫͫͫͫͫ0D ;; 049&'&'GIT $!\$\LVA_INPUT_FIELD $,: 90808BD91 $"P12_09_APR_200519_03_36BEGIN Mset_item_property(:system.current_item,visual_attribute,'VA_INPUT_FIELD_HL'); END;%PRE-TEXT-ITEM (RM_OLEDOCS.RMOSUBJECT)kͫͫͫͫͫͫͫw SYSSTANDARD FORMS4C FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T:ͫͫͫͫͫͫͫ0D ;; 089&'&'GIT $!`$`PVA_INPUT_FIELD_HL $,: 9208x * , .0 00r75g100b100208x * , .02_ 00r88g100b100208x * , .0EN 00r100g100b100NE*:BFq(rvz|((((ͫ SQL*FormsFORM50)N:\orawin95\hsa_form\rmoledocs_backup.fmbxj  xj j ACopyright (c) Oracle Corporation 1990, 1999. All Rights Reserved.v (0"PKG INIT"""Tͫͫͫͫͫͫͫ0D ~ &'$F!LL<CC_ACTIONS.COMMENT_TEXT WW 0800 00800 E@ 0800OP8000 8000!8000"8000#8000$8000%8000&8000'8000(8000)8000*8000+8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>0ltB:1 $$  INFO_MESSAGEPROCEDURE Info_Message (piv_message IN VARCHAR2) IS ln_dummy NUMBER; BEGIN -- Display nice message and halt Set_Alert_Property ('ALR_INFO_MESSAGE',ALERT_MESSAGE_TEXT, piv_message); ln_dummy := Show_Alert ('ALR_INFO_MESSAGE'); -- Return back quitely RETURN; END;Vͫͫͫͫͫͫͫw SYSSTANDARD FORMS4W $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 , -"PKG INIT"INFO_MESSAGE"PIV_MESSAGE"LN_DUMMY""%(*   S$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 ++++LedgEfAAeAAe}"INFO_MESSAGE"PIV_MESSAGE"VARCHAR2"LN_DUMMY"NUMBER"SET_ALERT_PROPERTY"ALR_INFO_MESSAGE"ALERT_MESSAGE_TEXT"SHOW_ALERT"RETURN"" #$)*26ACGHOW[]bfglptx|hU=Wn .neOQcQc  (  ,@"     !   &% * )   # $ $'((   "d ͫͫͫͫͫͫͫ0D TT  Xp&'&'GE(% $!&'$=E!D0 INFO_MESSAGEALR_INFO_MESSAGE 8:     B  A   F  E $) "%& G #+ )-2 "./H",4 26 "$58 6  <==  ?@@&  CDD*,/ "9!#,5'(*0137!'(01"d ͫͫͫͫͫͫͫ0D %(  hx.&'&'GE(% $!&'$=E&'GE#  %F;&'GE # % % hg! H0 YES_NO_CHOICE ALR_YES_NO(@D\ `d7Rk| `d  t  00r75g88b75008x( * , . 00r88g88b75008x( * , . 00r100g88b75.08x&( * ,00r0g88b885008x( * , . 00r25g88b88@008x( * , . 00r50g88b88008x( * , . 00r75g88b88008x( * , . 00r88g88b88008x( * , . 00r100g88b88.08x'( * , 00r0g88b100008x( * , . 00r25g88b100@008x( * , . 00r50g88b100008x( * , . 00r75g88b100 -PlB:/012341 $&OGETFILES aPROCEDURE getfiles IS app OLE2.OBJ_TYPE; doc OLE2.OBJ_TYPE; docs OLE2.OBJ_TYPE; worksheets OLE2.OBJ_TYPE; worksheet OLE2.OBJ_TYPE; args OLE2.LIST_TYPE; ole_item ITEM; i number:=1; eDummy EXCEPTION; dStart DATE; BEGIN GO_ITEM('rm_oledocs.dummy'); EXECUTE_QUERY; first_record; LOOP dStart := SYSDATE; :bkhdr.timermsg := 'Saving Document '||:rm_oledocs.rmoid; SET_VIEW_PROPERTY('editdoc', VISIBLE, PROPERTY_TRUE); ole_item := FIND_ITEM('rm_oleDocs.rmoOleDocument'); INSERT INTO ops$case33.templog VALUES(:rm_oledocs.rmoid); COMMIT; SET_VIEW_PROPERTY('editdoc', VISIBLE, PROPERTY_TRUE); IF Forms_OLE.Server_Active(ole_item) = FALSE THEN Forms_OLE.Activate_Server(ole_item); END IF; IF Forms_OLE.Server_Active(ole_item) = FALSE THEN --info_message('Error saving backup copy - Contact IT'); --RAISE eDummy; :bkhdr.disperrors := :bkhdr.disperrors||CHR(10)||'Err1:'||:rm_oledocs.rmoid; ELSE --info_message('Creating Directory : n:\temp\bk'||TO_CHAR(:rm_oledocs.rmoissuedate,'YYYYMM')); --forms_ole.exec_verb(ole_item,'Edit'); HOST('MKDIR n:\temp\bk'||TO_CHAR(:rm_oledocs.createddt,'YYYYMM'),NO_SCREEN); doc := Forms_OLE.get_interface_pointer('rm_oledocs.rmooledocument'); IF doc IS NULL THEN :bkhdr.disperrors := :bkhdr.disperrors||CHR(10)||'Err2:'||:rm_oledocs.rmoid; --info_message('Error getting interface_pointer in program unit ''pcSaveCopy'' in form ''rmoledocs_edit_ole'''); --EXIT_FORM(NO_VALIDATE); ELSE app := ole2.get_obj_property(doc,'application'); --docs := OLE2.GET_OBJ_PROPERTY(app, 'Documents'); --Uncomment these to see application OLE2.INVOKE(app, 'AppShow'); OLE2.SET_PROPERTY(app,'Visible',1); args := OLE2.CREATE_ARGLIST; OLE2.ADD_ARG(args, 'n:\temp\bk'||TO_CHAR(:rm_oledocs.createddt,'YYYYMM')||'\doc'||:rm_oledocs.rmoid||'_'||TO_CHAR(:rm_oledocs.lastupdateddt,'YYYYMMDDHH24MISS')||'.doc'); OLE2.INVOKE(doc, 'SaveAs', args); OLE2.DESTROY_ARGLIST(args); OLE2.RELEASE_OBJ(doc); INSERT INTO rm_oledocs_files VALUES(seq_rm_oledocs_files.NEXTVAL, :rm_oledocs.rmoid, 'doc'||:rm_oledocs.rmoid||'_'||TO_CHAR(:rm_oledocs.lastupdateddt,'YYYYMMDDHH24MISS')||'.doc'); COMMIT; END IF; END IF; exit when :system.last_record='TRUE'; IF ((SYSDATE - dStart)*24*60*60) > 30 THEN --more than 30 seconds :bkhdr.disperrors := :bkhdr.disperrors||CHR(10)||'Err3:'||:rm_oledocs.rmoid; END IF; /*IF yes_no_choice(:rm_oledocs.rmoid||' saved. Continue?') THEN NULL; ELSE RAISE eDummy; END IF;*/ NEXT_RECORD; i:=i+1; END LOOP; ole2.invoke(app,'quit'); OLE2.RELEASE_OBJ(app); EXCEPTION WHEN eDummy THEN NULL; END;CTͫͫͫͫͫͫͫ w SYSSTANDARD OLE2 FORMS4C FORMS40 SQLFORMS FORMS4W xj  OPS$CASE33TEMPLOG FORMS_OLE xj   OPS$CASE33RM_OLEDOCS_FILESSEQ_RM_OLEDOCS_FILES xj + OPS$CASE33SEQ_RM_OLEDOCS_FILES$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08))"PKG INIT"GETFILES"APP"DOC"DOCS"WORKSHEETS"WORKSHEET"ARGS"OLE_ITEM"ID"I"DSTART"""""%(.17:@CILRSY\^dgmntv|~         (    !" #  $ % & 'h`lpx  $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08=\ZZZZCCCCCC !! A w]e:n!%:n 0 ? | 0 ? eeeeAee \ ueeeeA p A  +eeeeeee e s eeeee  $ M AAAAeeeeAAeeAeeAeeAAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAe]"GETFILES"APP"OLE2"OBJ_TYPE"DOC"DOCS"WORKSHEETS"WORKSHEET"ARGS"LIST_TYPE"OLE_ITEM"ITEM"I"NUMBER"1"EDUMMY"DSTART"DATE"GO_ITEM"rm_oledocs.dummy"EXECUTE_QUERY"FIRST_RECORD"LOOP"SYSDATE"bkhdr.timermsg""Saving Document "||"rm_oledocs.rmoid"SET_VIEW_PROPERTY"editdoc"VISIBLE"PROPERTY_TRUE"FIND_ITEM"rm_oleDocs.rmoOleDocument"OPS$CASE33"TEMPLOG"COMMIT"FORMS_OLE"SERVER_ACTIVE"FALSE"="ACTIVATE_SERVER"bkhdr.disperrors"CHR"10"Err1:"HOST"MKDIR n:\temp\bk"TO_CHAR"rm_oledocs.createddt"YYYYMM"NO_SCREEN"GET_INTERFACE_POINTER"rm_oledocs.rmooledocument"IS NULL"Err2:"GET_OBJ_PROPERTY"application"INVOKE"AppShow"SET_PROPERTY"Visible"CREATE_ARGLIST"ADD_ARG"n:\temp\bk"\doc"_"rm_oledocs.lastupdateddt"YYYYMMDDHH24MISS".doc"SaveAs"DESTROY_ARGLIST"RELEASE_OBJ"RM_OLEDOCS_FILES"SEQ_RM_OLEDOCS_FILES"NEXTVAL"doc"EXIT"system.last_record"TRUE"-"*"24"60">"30"Err3:"NEXT_RECORD"+"quit""' #$/156=EHLPTU\dgkost{!"(,-4<@BGKLQVZ[`delnrv{  $)-.36:>?CGINQUYZ^aejnotw{ #$),059:>@DKPTUZ^_dhipuyz}   %)*/349=>CGHMQRW\_`glqx}   $%*./489>EJORSZ_dinrsy~ #$',38<=AEJNOSV[^bfgkpux|  !"#$%(+347:BCFIQRSVYabcdefghilowxy|  $%(+3458;CDEHKSTUVY\dehkstwzhUkkkkkkQ*WnWWG . .|nWn .nkWWn<.|.kWk<.|.k .|.|.|.QnW.|n.n .kn<.| .|.|.|.Qn .knp!lWknWknQ .kWk.|.|.|.|.|.|n.nnn.nnWknWkWk.k.|.|.|.|nn.nnW+.|n<.|Z.|.|.|Z.|.QQQQ .|.|.|.QnW .|QWknWk OOcQcQcQQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQc   #############$$$$$$$$%%%%%%%&&&&&&&&&&&&&&&&&&))*********-------........//////11111111111111111111111111111111111111122222222333333444444555555555567777777777777777777778888;;;;;;<<<<<<<<<<<<<<<<<<<<<<<<<<<==================DDDEEEEEEEGGGGGGGHHHHHHIJJJJKL#1; ###$%&&&&*-./111111111234777778;<<<<<<====DEGH   *,"++, "+*** ,2!*** ,2?6-///38A  '=G   + A8/1115:C%)    '  niVN%'''/EPXkpppx  !    )??*?**~**G**B**/**1DIIIQk """#''' !    "),?6-///38A  ,'x **/  1'p**I** " '/ F      !! "#$&(( )*+-/ / 012 46 6 7  !9;= ;= <"#$%?BD DE&'("HIF))LMF*OPF+RF+QTURCVW,-YZR/[\./90`aR0< 1!2fgR 5hi3"4@##lRm#lpqkno$%5BD0uRvwt&6yzR7F 8!9JRQ~:*;L<'=(>O 5)?Q'@+AS 5URQB*CXD'E(F[ 5)G] ,1HI_JKbLMe,1N-Oh.P //0Qj 0QnRSq11T2Ut32445V W'X6Yw77y Z8[|~ ,1\]^_`a,1b-c.d 990  ef:g;;  h<i ==  j>k ? ?l .mn@o) pAq . r(s  t$uvwxyz{|}BB~23244CC0DD#$#2E3F"FG'G),- *+<H,H .14. 23I .7:/ 89J= >?@<KCFDELM0IJ@LM<OP7RS3N2N0D6DXY;2E3F:FG?G^ _`A]&bQQRcdE*P4QDQRiQgjkKVmnoJSqrIStuHSwxyGR{|FCTU<U<Wh,1RQM,1L-. XPX0SRYR :TZ :XF< [W[YFJ @/0,132E3P4€ÀĀŀƀǀȀɀʀˀ̀̀΀πЀрҀӀԀՀր#׀؀ـڀۀ܀݀ހ "%'),./߀14147:=7@BDF9IL; O=S?   WB 4\_C beD   hF !!knG%&&qtH*++w{}N011D4 5!"5F#8$9%&9G'=(>)*>Q+B,C-.CX/N0O12O[3U4V56V %,38>A  '.5:@CGKNQJ SX_ektx~ag]^bcdjrs{|} (06<] ' "! %&-./5;ABGHK\NWQVTUZ[efhlpsv~z}lJ]^bcd7j{|}89:; !%& " '-./5;TUQVZ[NWK\efz}v~spl<kt<]@xd @'5 .:Cͫͫͫͫͫͫͫ0D jD|  l.&'$$F&'$/&'$7&'$0((;</&'&'.T&'\G IG I $5&'t$+q{t$0t &'$&'&'.T&'\G IG I $5&'$ T! &'$&'$ Tt i10&'$/;0;  0(((; ( 010[ 2D1D@;@<&'&' <G E$B&'T$Tppl10&'hh$/;0hd; d`0((|; `|\ \010&'p T %h&'h$T %.&'h< T% &'% 2D1D;T; l0((; ;  3L1L; ; &' %&'p %&'%&'p%q{tP003t &'$4TT  &'$_.$C$ .,C ,.4C4. <<p d10&'PP$/;0PL; LH0((d; HdD D010&'$T.xAx&'h,T %&'h% k!, x*(``|<<P|hh|GETFILES &)*&)*rm_oledocs.dummySaving Document editdocrm_oleDocs.rmoOleDocument Err1:YYYYMMMKDIR n:\temp\bkrm_oledocs.rmooledocumentErr2: applicationAppShowVisible n:\temp\bk\doc_YYYYMMDDHH24MISS.docSaveAsTRUE<Err3:quit((h(p(x(((((( ( ($<(@D*HLPT(X\@`d*Thlhpt|x|** **** *0*4<*$@X*,\t*4x*<Pd*x(T/((Xp(0tx1(D|(L(T  $0< <Mm%K\# $=%F&*-.!/61234508<;Z<=D+E9?G_HtzKzLyzINSERT INTO OPS$CASE33.TEMPLOG VALUES ( :b1 )"INSERT INTO RM_OLEDOCS_FILES VALUES ( SEQ_RM_OLEDOCS_FILES.NEXTVAL,:b1,''doc'' || :b1 || ''_'' || TO_CHAR(:b3,''YYYYMMDDHH24MISS'') || ''.doc'' )"j $<T0\4t@`dp|  $<T l $0<HL PT,` /01l234KEY-DOWNKEY-DOWN0T.D.0`/ :KEY-UPKEY-UP/112 24,5`679:\;<A4CFG81|0. 1!11tiy/DUMMYDUMMYEDITDOC11.2iDy/RMOIDRMOID22.2!22tu{i+y g2hjik/~RMOVERSIONTRACKIDRMOVERSIONTRACKIDArial33.3 3!34tu5iyl44g4 hjik/Z~RMOPARENTTYPERMOPARENTTYPEblackgray8Arial44.5 5$!5,54tuEiyl5<5Hg5Thjik/Z~RMOPARENTKEY1RMOPARENTKEY1blackgray8Arial605.6D 6X!6`6htuEiyl6p6|g6hjik/Z~RMOPARENTKEY2RMOPARENTKEY2blackgray8Arial7t6.7 n7!77tu!iJy l77g7h jik/Z~CREATEDBYCREATEDBYblackgray8Arial87.8 n8!88tu/iJy l89g9 h jik/Z~CREATEDDTCREATEDDTDD-Mon-YYYYblackgray8Arial98.: n: !:(:0tu=iJy l:8:Dg:Ph jik/Z~LASTUPDATEDBYLASTUPDATEDBYblackgray8Arial;<9.;P n;d!;x;tuJiJy l;;g;h jik/Z~LASTUPDATEDDTLASTUPDATEDDTDD-Mon-YYYYblackgray8Arial<:.< <!<<tu{i!y l<<g<hjik/Z~RMOVERSIONNORMOVERSIONNOblackgray8Arial=;.> V>n>!>>tuiJy l>>g>hjik>/Z~RMOCORRDIRRMOCORRDIR<#>8="<>hG>OKInfom}G3GGGGttGGt|tGtG3 t3|GGGG lGGGGG|G3GGGGGGGGG3G 3GGGGGGGG3|G|GGGG3~VVVVVVVV""""V>>>""""VVVVVVVVVV""N""""VVVVVVVVVNV""""V""""VVVVVVV"""""""""""""""""V""""VVVV"USRMOLEDOCS_BACKUPEdit DocumentPOPUPOLEsafestandard E8`88(88888 D/x:WHEN-NEW-FORM-INSTANCEWHEN-NEW-FORM-INSTANCE D/ v:ON-ERRORON-ERROR` Dp/:ON-MESSAGEON-MESSAGE D/S:KEY-OTHERSKEY-OTHERSD$/:KEY-NEXT-ITEMKEY-NEXT-ITEMpD/:KEY-PREV-ITEMKEY-PREV-ITEMD/:WHEN-WINDOW-CLOSEDWHEN-WINDOW-CLOSEDX4l ( !"0 3  $,n#! /ALR_YES_NOALR_YES_NOMessageYes or NoYesNo3 n/ALR_INFO_MESSAGEALR_INFO_MESSAGEMessage, < LT H\-,/WARN_ALERTWARN_ALERTOKDEFAULT    H ZYX/MESSAGE_ALER0lTMESSAGE_ALERTYesNoDEFAULT   3    H n/INFO_ALERTINFO_ALERTInfoOKDEFAULT!T !d3!t ! !nWVU/NOTE_ALERTNOTE_ALERTNote! " "" H" fe/ERR_ALERTERR_ALERTOKDEFAULT" " "" H"dc/MESS_ALERTMESS_ALERTOKDEFAULT "#(#4#@/ WCSLIBWCSLIBWCSLIB.pll#x.##%#/BKHDRBKHDR$0%T&p')L*x+,$#x%!%t!u=i yH%(l%8g%Hhjik/ZO~TIMERMSGTIMERMSGEDITDOCVA_CANVASdarkblueArial& #x&$  !&4tu(i5yl&D&Pg&dh jik/Z~STARTIDSTARTIDEDITDOCblackr100g100b100Tahoma'8!#x'D  !'Ptu(i5yl'`'lg'h jik/Z~ENDIDENDIDEDITDOCblackr100g100b100Tahoma(L"#x(\(l!(tuUiTyl((g(h jik:( /Z~PB_BACKUPPB_BACKUPBackUp by IDEDITDOCblackr100g100b100Tahoma#E8()$D')0/:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED*%#x*, !*<t!uSiyH*Ll*\g*lhjik/ZO~DISPERRORSDISPERRORSEDITDOCVA_CANVASdarkblueArial+H&#x+X  n+h!+|tui5yl++g+h jik/Z~FROMDATEFROMDATEDD-Mon-YYYYEDITDOCblackr100g100b100Tahoma,'#x,  n,!,tui5yl,,g,h jik/Z~TODATETODATEdd-Mon-yyyyEDITDOCblackr100g100b100Tahoma-(#x--!-tuiTyl. .g.,h jik:.8/Z~PB_BACKUP_BY_DATEPB_BACKUP_BY_DATEBackUp by DateEDITDOCblackr100g100b100Tahoma)E8.X.*D,./ :WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED/@+ /P /`g/p/| /%:/0l/RM_OLEDOCSRM_OLEDOCSrm_oledocs1=2rmoid DESCrm_oledocs,E8/80/-D@l.0 / :KEY-DOWNKEY-DOWN0T.D.0`/ :KEY-UPKEY-UP/112 24,5`679:\;<A4CFG81|0. 1!11tiy/DUMMYDUMMYEDITDOC11.2iDy/RMOIDRMOID22.2!22tu{i+y g2hjik/~RMOVERSIONTRACKIDRMOVERSIONTRACKIDArial33.3 3!34tu5iyl44g4 hjik/Z~RMOPARENTTYPERMOPARENTTYPEblackgray8Arial44.5 5$!5,54tuEiyl5<5Hg5Thjik/Z~RMOPARENTKEY1RMOPARENTKEY1blackgray8Arial605.6D 6X!6`6htuEiyl6p6|g6hjik/Z~RMOPARENTKEY2RMOPARENTKEY2blackgray8Arial7t6.7 n7!77tu!iJy l77g7h jik/Z~CREATEDBYCREATEDBYblackgray8Arial87.8 n8!88tu/iJy l89g9 h jik/Z~CREATEDDTCREATEDDTDD-Mon-YYYYblackgray8Arial98.: n: !:(:0tu=iJy l:8:Dg:Ph jik/Z~LASTUPDATEDBYLASTUPDATEDBYblackgray8Arial;<9.;P n;d!;x;tuJiJy l;;g;h jik/Z~LASTUPDATEDDTLASTUPDATEDDTDD-Mon-YYYYblackgray8Arial<:.< <!<<tu{i!y l<<g<hjik/Z~RMOVERSIONNORMOVERSIONNOblackgray8Arial=;.> V>n>!>>tuiJy l>>g>hjik>/Z~RMOCORRDIRRMOCORRDIR<#>8="<>hG>