ROS.60050 @ r !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 ! 8000 " 8000 # 8000 $ 8000 % 8000 & r 4p p! 2 DE_ATTACHED_LIBS DE Attached Libs .hh ,ROSATTRIBS class attributes +hh ) ROSLFDESC ros lf descrip )hh ' ROSOBJMAP ros name->id +hh )ROSSTRINGS tk2 uiStrings *hh ( ROSSTRUCTS struct types 0 *hh ( ROSTK2RESV tk2 reserved ,pp *TOOL_MODULE Tools Modules )pp ' TOOL_PLSQL Tools PLSQL 0 1p#p$ *,-. /DE_ATTACHED_LIBS MODID ( 1p#p$ *,-. /DE_ATTACHED_LIBS OWNER p 0 3p#p$ ,./0 1DE_ATTACHED_LIBS LIBNAME p 3p#p$ ,./0 1DE_ATTACHED_LIBS ITEMID ( 5p#p$ .012 3DE_ATTACHED_LIBS LOCATION (p /pp (*+, -TOOL_MODULE PRODUCT e /pp (*+, -TOOL_MODULE MODTYPE e -pp &()* +TOOL_MODULE OWNER E /pp (*+, -TOOL_MODULE MODNAME -pp &()* +TOOL_MODULE MODID E( 0 /pp (*+, -TOOL_MODULE TCS_VER (( 3pp ,./0 1TOOL_MODULE NEXT_ITEMID ( /pp (*+, -TOOL_MODULE CREATOR M 3pp ,./0 1TOOL_MODULE CREATE_DATE 1pp *,-. /TOOL_MODULE CREATE_VER ( /pp (*+, -TOOL_MODULE MODIFIER /pp (*+, -TOOL_MODULE MOD_DATE /pp (*+, -TOOL_MODULE MOD_VER ( 1pp *,-. /TOOL_MODULE COPYRIGHT ( /pp (*+, -TOOL_MODULE REQ_ROLE /pp (*+, -TOOL_MODULE VGS_VER ( -pp &()* +TOOL_MODULE DE_VER ( /pp (*+, -TOOL_MODULE ROS_VER (( +pp $&'( )TOOL_PLSQL MODID ( +pp $&'( )TOOL_PLSQL NAME p +pp $&'( )TOOL_PLSQL TYPE +pp $&'( )TOOL_PLSQL OWNER p -pp &()* +TOOL_PLSQL ITEMID p@ 0 1pp *,-. /TOOL_PLSQL PLSLFID_EP 1pp *,-. /TOOL_PLSQL PLSLFID_ST @ $0@00 " 0 0 *:JR(^bcffmnnuvvv(z~ PL PL/SQL DE PL/SQL Library MINGUS EKUOREP9 9`xi xj 6 5 9(p$p%@.206 7 GWZ$_SET_HTML MINGUS p u 8000 M 8000 N 8000 O 8000 P 8000 Q 8000 R 8000 S 8000 T 8000 U 8000 V 8000 W 8000 X 8000 Y 8000 Z 8000 [ 8000 \ 8000 ] 8000 ^ 8000 _ 8000 ` 8000 a 8000 b 8000 c 8000 d 8000 e 8000 f 8000 g 8000 h 8000 i 8000 j 8000 k 8000 l 8000 m 8000 n 8000 o 8000 p 8000 q 8000 r 8000 s 8000 t 8000 u 8000 v 8000 w 8000 x 8000 y 8000 z 8000 { 8000 | 8000 } 8000 ~ x 0 l 1 $$ GWZ$_SET_HTML ,FUNCTION GWZ$_SET_HTML (RPT_NAME IN VARCHAR2, GEN_TYPE IN NUMBER, RPT_FORMAT IN VARCHAR2, IN_DELIM IN VARCHAR2, J_FIELD_NAME IN VARCHAR2, J_PDF_TEXT IN VARCHAR2, J_XCL_TEXT IN VARCHAR2, J_RTF_TEXT IN VARCHAR2, BAN_ROLE IN VARCHAR2, BAN_ROLE_PWD IN VARCHAR2, BAN_CONNECT IN VARCHAR2, img_type IN VARCHAR2, FILL2 IN VARCHAR2, FILL3 IN VARCHAR2) return VARCHAR2 IS vc_parameter_form varchar2(4000); vc_hidden_runtime_values varchar2(1000); hold_cmd VARCHAR2(240); rpt_server_url varchar2(200); rpt_server_name varchar2(50); CURSOR GURUPRF_C IS SELECT GURUPRF_VALUE FROM GURUPRF WHERE GURUPRF_USER_ID = 'BASELINE' AND GURUPRF_GROUP = 'REPORT' AND GURUPRF_KEY = 'WEB' AND GURUPRF_STRING = 'DIRECTORY'; CURSOR GURUPRF_W IS SELECT GURUPRF_VALUE FROM GURUPRF WHERE GURUPRF_USER_ID = 'BASELINE' AND GURUPRF_GROUP = 'REPORT' AND GURUPRF_KEY = 'WEB' AND GURUPRF_STRING = 'SERVICE'; BEGIN OPEN GURUPRF_C; FETCH GURUPRF_C INTO rpt_server_url; CLOSE GURUPRF_C; OPEN GURUPRF_w; FETCH GURUPRF_w INTO rpt_server_name; CLOSE GURUPRF_w; -- -- GEN_TYPE 0 is for reports that do not use parameter forms and do not need html generated -- IF GEN_TYPE = 0 THEN vc_parameter_form := NULL; ELSIF -- All other GEN_TYPES assume a parameter form is being used. -- -- GEN_TYPE 1 is for output generated in PDF format -- GEN_TYPE = 1 THEN vc_hidden_runtime_values:='report='||rtrim(RPT_NAME)||'.rep' ||'&destype=Cache'||'&userid='||'&server=' ||rpt_server_name||'&desformat=pdf'; if img_type = 'GIF' THEN vc_hidden_runtime_values := vc_hidden_runtime_values || '&outputimageformat=gif'; END IF; vc_parameter_form:='