&ANALYZE-SUSPEND _VERSION-NUMBER AB_v9r12
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _XFTR "Check Version Notes Wizard" Procedure _INLINE
/* Actions: af/cod/aftemwizcw.w ? ? ? ? */
/* MIP Update Version Notes Wizard
Check object version notes.
af/cod/aftemwizpw.w
*/
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _XFTR "Update-Object-Version" Procedure _INLINE
/* Actions: ? ? ? ? af/sup/afverxftrp.p */
/* This has to go above the definitions sections, as that is what it modifies.
   If its not, then the definitions section will have been saved before the
   XFTR code kicks in and changes it */
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _XFTR "CreateWizard" Procedure _INLINE
/* Actions: af/cod/aftemwizcw.w ? ? ? af/sup/afwizdeltp.p */
/* New Program Wizard
Destroy on next read */
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _XFTR "Definition Comments Wizard" Procedure _INLINE
/* Actions: ? af/cod/aftemwizcw.w ? ? ? */
/* Program Definition Comment Block Wizard
Welcome to the Program Definition Comment Block Wizard. Press Next to proceed.
af/cod/aftemwizpw.w
*/
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure 
/*---------------------------------------------------------------------------------
  File: afprosetpdatp.p

  Description:  afsetpdatp AppServer Proxy

  Purpose:      Set user profile data
                Procedure to update user profile data to database for logged
                in user.
                This procedure supports the setting of multiple profile data to
                a single value / deleting multiple profile data, simply by leaving
                certain of the input parameters blank indicating all.
                If a rowid is passed in then the record to set will be found using the
                rowid rather than the individual profile fields. Obviously the record
                must already exist in this case to be set in this way. The rowid will
                be the rowid of the database record. Also note that
                passing in a rowid will take precendence over any other input paramaters.
                If save flag is set to session, then store session id in context id
                field, otherwise leave the field blank to indicate permanent value.
                If delete flag is set to YES, then the data value will be deleted from
                the database.

  Parameters:   input profile type code
                input profile code (blank = all)
                input profile data key (blank = all)
                input rowid of profile data (if known)
                input profile data value
                input delete flag (YES = delete profile data)
                input save flag (SES = Session only, PER = Permanent)

  History:
  --------
  (v:010000)    Task:           0   UserRef:    
                Date:   07/24/2003  Author:     Bruce S Gruenbaum

  Update Notes: Created from Template rytemprocp.p

---------------------------------------------------------------------------------*/
/*                   This .W file was created with the Progress UIB.             */
/*-------------------------------------------------------------------------------*/

/* ***************************  Definitions  ************************** */
  DEFINE INPUT PARAMETER  pcProfileTypeCode             AS CHARACTER  NO-UNDO.
  DEFINE INPUT PARAMETER  pcProfileCode                 AS CHARACTER  NO-UNDO.
  DEFINE INPUT PARAMETER  pcProfileDataKey              AS CHARACTER  NO-UNDO.
  DEFINE INPUT PARAMETER  prRowid                       AS ROWID      NO-UNDO.
  DEFINE INPUT PARAMETER  pcProfileDataValue            AS CHARACTER  NO-UNDO.
  DEFINE INPUT PARAMETER  plDeleteFlag                  AS LOGICAL    NO-UNDO.
  DEFINE INPUT PARAMETER  pcSaveFlag                    AS CHARACTER  NO-UNDO.

/* MIP-GET-OBJECT-VERSION pre-processors
   The following pre-processors are maintained automatically when the object is
   saved. They pull the object and version from Roundtable if possible so that it
   can be displayed in the about window of the container */

&scop object-name       afprosetpdatp.p
DEFINE VARIABLE lv_this_object_name AS CHARACTER INITIAL "{&object-name}":U NO-UNDO.
&scop object-version    000000


/* object identifying preprocessor */
&glob   AstraProcedure    yes

{src/adm2/globals.i}

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

/* ********************  Preprocessor Definitions  ******************** */

&Scoped-define PROCEDURE-TYPE Procedure
&Scoped-define DB-AWARE no



/* _UIB-PREPROCESSOR-BLOCK-END */
&ANALYZE-RESUME



/* *********************** Procedure Settings ************************ */

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: Procedure
   Allow: 
   Frames: 0
   Add Fields to: Neither
   Other Settings: CODE-ONLY COMPILE
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

/* *************************  Create Window  ************************** */

&ANALYZE-SUSPEND _CREATE-WINDOW
/* DESIGN Window definition (used by the UIB) 
  CREATE WINDOW Procedure ASSIGN
         HEIGHT             = 16.38
         WIDTH              = 40.
/* END WINDOW DEFINITION */
                                                                        */
&ANALYZE-RESUME

 


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure 


/* ***************************  Main Block  *************************** */

  RUN afsetpdatp IN gshProfileManager
    (INPUT pcProfileTypeCode, 
     INPUT pcProfileCode,     
     INPUT pcProfileDataKey,  
     INPUT prRowid,           
     INPUT pcProfileDataValue,
     INPUT plDeleteFlag,      
     INPUT pcSaveFlag) NO-ERROR.
  IF ERROR-STATUS:ERROR OR RETURN-VALUE <> "":U THEN 
      RETURN ERROR (IF RETURN-VALUE = "" OR RETURN-VALUE = ? AND ERROR-STATUS:NUM-MESSAGES > 0 THEN 
                      ERROR-STATUS:GET-MESSAGE(1) ELSE RETURN-VALUE).

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME