workflow/v-flow-task-type.w

   1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 GUI
   2 &ANALYZE-RESUME
   3 /* Connected Databases
   4           ttpl             PROGRESS
   5 */
   6 &Scoped-define WINDOW-NAME CURRENT-WINDOW
   7 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS V-table-Win
   8 /*------------------------------------------------------------------------
   9
  10   File:
  11
  12   Description: from VIEWER.W - Template for SmartViewer Objects
  13
  14   Input Parameters:
  15       <none>
  16
  17   Output Parameters:
  18       <none>
  19
  20 ------------------------------------------------------------------------*/
  21
  22 CREATE WIDGET-POOL.
  23
  24 /* ***************************  Definitions  ************************** */
  25
  26 DEF VAR mode AS CHAR NO-UNDO.
  27
  28 /* _UIB-CODE-BLOCK-END */
  29 &ANALYZE-RESUME
  30
  31
  32 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  33
  34 /* ********************  Preprocessor Definitions  ******************** */
  35
  36 &Scoped-define PROCEDURE-TYPE SmartViewer
  37
  38 &Scoped-define ADM-SUPPORTED-LINKS Record-Source,Record-Target,TableIO-Target
  39
  40 /* Name of first Frame and/or Browse and/or first Query                 */
  41 &Scoped-define FRAME-NAME F-Main
  42
  43 /* External Tables                                                      */
  44 &Scoped-define EXTERNAL-TABLES FlowTaskType
  45 &Scoped-define FIRST-EXTERNAL-TABLE FlowTaskType
  46
  47
  48 /* Need to scope the external tables to this procedure                  */
  49 DEFINE QUERY external_tables FOR FlowTaskType.
  50 /* Standard List Definitions                                            */
  51 &Scoped-Define ENABLED-FIELDS FlowTaskType.FlowTaskType ~
  52 FlowTaskType.Description FlowTaskType.InitialStep
  53 &Scoped-define FIELD-PAIRS~
  54  ~{&FP1}FlowTaskType ~{&FP2}FlowTaskType ~{&FP3}~
  55  ~{&FP1}Description ~{&FP2}Description ~{&FP3}~
  56  ~{&FP1}InitialStep ~{&FP2}InitialStep ~{&FP3}
  57 &Scoped-define ENABLED-TABLES FlowTaskType
  58 &Scoped-define FIRST-ENABLED-TABLE FlowTaskType
  59 &Scoped-Define ENABLED-OBJECTS RECT-29
  60 &Scoped-Define DISPLAYED-FIELDS FlowTaskType.FlowTaskType ~
  61 FlowTaskType.Description FlowTaskType.InitialStep
  62
  63 /* Custom List Definitions                                              */
  64 /* ADM-CREATE-FIELDS,ADM-ASSIGN-FIELDS,List-3,List-4,List-5,List-6      */
  65
  66 /* _UIB-PREPROCESSOR-BLOCK-END */
  67 &ANALYZE-RESUME
  68
  69
  70 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _XFTR "Foreign Keys" V-table-Win _INLINE
  71 /* Actions: ? adm/support/keyedit.w ? ? ? */
  72 /* STRUCTURED-DATA
  73 <KEY-OBJECT>
  74 THIS-PROCEDURE
  75 </KEY-OBJECT>
  76 <FOREIGN-KEYS>
  77 FlowTaskType|y|y|TTPL.FlowTaskType.FlowTaskType
  78 </FOREIGN-KEYS>
  79 <EXECUTING-CODE>
  80 **************************
  81 * Set attributes related to FOREIGN KEYS
  82 */
  83 RUN set-attribute-list (
  84     'Keys-Accepted = "FlowTaskType",
  85      Keys-Supplied = "FlowTaskType"':U).
  86 /**************************
  87 </EXECUTING-CODE> */
  88 /* _UIB-CODE-BLOCK-END */
  89 &ANALYZE-RESUME
  90
  91
  92 /* ***********************  Control Definitions  ********************** */
  93
  94
  95 /* Definitions of the field level widgets                               */
  96 DEFINE RECTANGLE RECT-29
  97      EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL
  98      SIZE 60.57 BY 4.4.
  99
 100
 101 /* ************************  Frame Definitions  *********************** */
 102
 103 DEFINE FRAME F-Main
 104      FlowTaskType.FlowTaskType AT ROW 1.2 COL 4.72 COLON-ALIGNED
 105           LABEL "Task"
 106           VIEW-AS FILL-IN
 107           SIZE 6.86 BY 1.05
 108      FlowTaskType.Description AT ROW 3 COL 9.86 COLON-ALIGNED
 109           VIEW-AS FILL-IN
 110           SIZE 49.14 BY 1.05
 111      FlowTaskType.InitialStep AT ROW 4.2 COL 9.86 COLON-ALIGNED
 112           VIEW-AS FILL-IN
 113           SIZE 9.86 BY 1.05
 114      RECT-29 AT ROW 1 COL 1
 115     WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
 116          SIDE-LABELS NO-UNDERLINE THREE-D
 117          AT COL 1 ROW 1 SCROLLABLE
 118          FONT 10.
 119
 120
 121 /* *********************** Procedure Settings ************************ */
 122
 123 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
 124 /* Settings for THIS-PROCEDURE
 125    Type: SmartViewer
 126    External Tables: TTPL.FlowTaskType
 127    Allow: Basic,DB-Fields
 128    Frames: 1
 129    Add Fields to: EXTERNAL-TABLES
 130    Other Settings: PERSISTENT-ONLY COMPILE
 131  */
 132
 133 /* This procedure should always be RUN PERSISTENT.  Report the error,  */
 134 /* then cleanup and return.                                            */
 135 IF NOT THIS-PROCEDURE:PERSISTENT THEN DO:
 136   MESSAGE "{&FILE-NAME} should only be RUN PERSISTENT."
 137           VIEW-AS ALERT-BOX ERROR BUTTONS OK.
 138   RETURN.
 139 END.
 140
 141 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
 142
 143 /* *************************  Create Window  ************************** */
 144
 145 &ANALYZE-SUSPEND _CREATE-WINDOW
 146 /* DESIGN Window definition (used by the UIB)
 147   CREATE WINDOW V-table-Win ASSIGN
 148          HEIGHT             = 8.5
 149          WIDTH              = 76.14.
 150 /* END WINDOW DEFINITION */
 151                                                                         */
 152 &ANALYZE-RESUME
 153
 154
 155 /* ***************  Runtime Attributes and UIB Settings  ************** */
 156
 157 &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
 158 /* SETTINGS FOR WINDOW V-table-Win
 159   VISIBLE,,RUN-PERSISTENT                                               */
 160 /* SETTINGS FOR FRAME F-Main
 161    NOT-VISIBLE Size-to-Fit                                              */
 162 ASSIGN
 163        FRAME F-Main:SCROLLABLE       = FALSE
 164        FRAME F-Main:HIDDEN           = TRUE.
 165
 166 /* SETTINGS FOR FILL-IN FlowTaskType.FlowTaskType IN FRAME F-Main
 167    EXP-LABEL                                                            */
 168 /* _RUN-TIME-ATTRIBUTES-END */
 169 &ANALYZE-RESUME
 170
 171
 172 /* Setting information for Queries and Browse Widgets fields            */
 173
 174 &ANALYZE-SUSPEND _QUERY-BLOCK FRAME F-Main
 175 /* Query rebuild information for FRAME F-Main
 176      _Options          = "NO-LOCK"
 177      _Query            is NOT OPENED
 178 */  /* FRAME F-Main */
 179 &ANALYZE-RESUME
 180
 181
 182
 183
 184 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB V-table-Win
 185 /* ************************* Included-Libraries *********************** */
 186
 187 {src/adm/method/viewer.i}
 188 {inc/method/m-mntvwr.i}
 189
 190 /* _UIB-CODE-BLOCK-END */
 191 &ANALYZE-RESUME
 192
 193
 194
 195 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK V-table-Win
 196
 197
 198 /* ***************************  Main Block  *************************** */
 199
 200 /* _UIB-CODE-BLOCK-END */
 201 &ANALYZE-RESUME
 202
 203
 204 /* **********************  Internal Procedures  *********************** */
 205
 206 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-find-using-key V-table-Win adm/support/_key-fnd.p
 207 PROCEDURE adm-find-using-key :
 208 /*------------------------------------------------------------------------------
 209   Purpose:     Finds the current record using the contents of
 210                the 'Key-Name' and 'Key-Value' attributes.
 211   Parameters:  <none>
 212 ------------------------------------------------------------------------------*/
 213   DEF VAR key-value AS CHAR NO-UNDO.
 214   DEF VAR row-avail-enabled AS LOGICAL NO-UNDO.
 215
 216   /* LOCK status on the find depends on FIELDS-ENABLED. */
 217   RUN get-attribute ('FIELDS-ENABLED':U).
 218   row-avail-enabled = (RETURN-VALUE eq 'yes':U).
 219   /* Look up the current key-value. */
 220   RUN get-attribute ('Key-Value':U).
 221   key-value = RETURN-VALUE.
 222
 223   /* Find the current record using the current Key-Name. */
 224   RUN get-attribute ('Key-Name':U).
 225   CASE RETURN-VALUE:
 226     WHEN 'FlowTaskType':U THEN
 227        {src/adm/template/find-tbl.i
 228            &TABLE = FlowTaskType
 229            &WHERE = "WHERE FlowTaskType.FlowTaskType eq key-value"
 230        }
 231   END CASE.
 232
 233 END PROCEDURE.
 234
 235 /* _UIB-CODE-BLOCK-END */
 236 &ANALYZE-RESUME
 237
 238
 239 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-row-available V-table-Win _ADM-ROW-AVAILABLE
 240 PROCEDURE adm-row-available :
 241 /*------------------------------------------------------------------------------
 242   Purpose:     Dispatched to this procedure when the Record-
 243                Source has a new row available.  This procedure
 244                tries to get the new row (or foriegn keys) from
 245                the Record-Source and process it.
 246   Parameters:  <none>
 247 ------------------------------------------------------------------------------*/
 248
 249   /* Define variables needed by this internal procedure.             */
 250   {src/adm/template/row-head.i}
 251
 252   /* Create a list of all the tables that we need to get.            */
 253   {src/adm/template/row-list.i "FlowTaskType"}
 254
 255   /* Get the record ROWID's from the RECORD-SOURCE.                  */
 256   {src/adm/template/row-get.i}
 257
 258   /* FIND each record specified by the RECORD-SOURCE.                */
 259   {src/adm/template/row-find.i "FlowTaskType"}
 260
 261   /* Process the newly available records (i.e. display fields,
 262      open queries, and/or pass records on to any RECORD-TARGETS).    */
 263   {src/adm/template/row-end.i}
 264
 265 END PROCEDURE.
 266
 267 /* _UIB-CODE-BLOCK-END */
 268 &ANALYZE-RESUME
 269
 270
 271 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE cancel-changes V-table-Win
 272 PROCEDURE cancel-changes :
 273 /*------------------------------------------------------------------------------
 274   Purpose:  Quit without applying any changes
 275 ------------------------------------------------------------------------------*/
 276   IF mode = "Add" THEN DO TRANSACTION:
 277     FIND CURRENT FlowTaskType NO-ERROR.
 278     IF AVAILABLE(FlowTaskType) THEN DO:
 279       FOR EACH FlowStepType OF FlowTaskType:
 280         FOR EACH FlowRule OF FlowStepType:
 281           DELETE FlowRule.
 282         END.
 283         DELETE FlowStepType.
 284       END.
 285       DELETE FlowTaskType.
 286     END.
 287   END.
 288
 289   RUN check-modified( 'clear':U ).
 290
 291   RUN dispatch( 'exit':U ).
 292
 293 END PROCEDURE.
 294
 295 /* _UIB-CODE-BLOCK-END */
 296 &ANALYZE-RESUME
 297
 298
 299 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE confirm-changes V-table-Win
 300 PROCEDURE confirm-changes :
 301 /*------------------------------------------------------------------------------
 302   Purpose:
 303 ------------------------------------------------------------------------------*/
 304   RUN verify-flow-task.
 305   IF RETURN-VALUE <> "" THEN RETURN.
 306
 307   RUN dispatch( 'update-record':U ).
 308   DO TRANSACTION:
 309     FIND CURRENT FlowTaskType EXCLUSIVE-LOCK.
 310     RUN create-default-step( FlowTaskType.FlowTaskType,
 311                              INPUT-OUTPUT FlowTaskType.InitialStep ).
 312     FIND CURRENT FlowTaskType NO-LOCK.
 313   END.
 314   IF mode = "add" THEN RUN notify( 'open-query,record-source':U ).
 315   RUN dispatch( 'exit':U ).
 316
 317 END PROCEDURE.
 318
 319 /* _UIB-CODE-BLOCK-END */
 320 &ANALYZE-RESUME
 321
 322
 323 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE create-default-step V-table-Win
 324 PROCEDURE create-default-step :
 325 /*------------------------------------------------------------------------------
 326   Purpose:
 327 ------------------------------------------------------------------------------*/
 328 DEF INPUT PARAMETER task-type AS CHAR NO-UNDO.
 329 DEF INPUT-OUTPUT PARAMETER step-type AS CHAR NO-UNDO.
 330
 331   FIND FIRST FlowStepType WHERE FlowStepType.FlowTaskType = task-type NO-LOCK NO-ERROR.
 332   IF AVAILABLE(FlowStepType) THEN DO:
 333     step-type = FlowStepType.FlowStepType.
 334     RETURN.
 335   END.
 336
 337   FIND FlowStepType WHERE FlowStepType.FlowTaskType = task-type
 338                       AND FlowStepType.FlowStepType = step-type NO-LOCK NO-ERROR.
 339   IF NOT AVAILABLE(FlowStepType) THEN DO:
 340     CREATE FlowStepType.
 341     ASSIGN FlowStepType.FlowTaskType = task-type
 342            FlowStepType.FlowStepType = step-type
 343            FlowStepType.Description  = "Perform Task"
 344            FlowStepType.InitialStatus = "TODO".
 345   END.
 346
 347   FIND FIRST FlowRule OF FlowStepType NO-LOCK NO-ERROR.
 348   IF AVAILABLE(FlowRule) THEN RETURN.
 349
 350   CREATE FlowRule.
 351   ASSIGN FlowRule.FlowTaskType = task-type
 352          FlowRule.FlowStepType = step-type
 353          FlowRule.FlowRuleCode = "FINISH"
 354          FlowRule.Description  = "Mark task as completed"
 355          FlowRule.Priority     = 9
 356          FlowRule.FlowRuleType = "MANUAL"
 357          FlowRule.ConditionProgram      = "workflow/rules/always.p"
 358          FlowRule.ConditionProgramParam = "test"
 359          FlowRule.ActionProgram         = "workflow/rules/always.p"
 360          FlowRule.ActionProgramParam    = "action" .
 361
 362 END PROCEDURE.
 363
 364 /* _UIB-CODE-BLOCK-END */
 365 &ANALYZE-RESUME
 366
 367
 368 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI V-table-Win _DEFAULT-DISABLE
 369 PROCEDURE disable_UI :
 370 /*------------------------------------------------------------------------------
 371   Purpose:     DISABLE the User Interface
 372   Parameters:  <none>
 373   Notes:       Here we clean-up the user-interface by deleting
 374                dynamic widgets we have created and/or hide
 375                frames.  This procedure is usually called when
 376                we are ready to "clean-up" after running.
 377 ------------------------------------------------------------------------------*/
 378   /* Hide all frames. */
 379   HIDE FRAME F-Main.
 380   IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
 381 END PROCEDURE.
 382
 383 /* _UIB-CODE-BLOCK-END */
 384 &ANALYZE-RESUME
 385
 386
 387 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE inst-initialize V-table-Win
 388 PROCEDURE inst-initialize :
 389 /*------------------------------------------------------------------------------
 390   Purpose:
 391 ------------------------------------------------------------------------------*/
 392
 393   IF mode = 'Add' THEN DO:
 394     have-records = Yes.
 395     CURRENT-WINDOW:TITLE = "Adding a New Workflow Task".
 396     RUN dispatch( 'add-record':U ).
 397   END.
 398   ELSE IF mode = "Maintain" THEN
 399     RUN dispatch( 'enable-fields':U ).
 400   ELSE
 401     RUN dispatch( 'disable-fields':U ).
 402
 403 END PROCEDURE.
 404
 405 /* _UIB-CODE-BLOCK-END */
 406 &ANALYZE-RESUME
 407
 408
 409 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE override-add-record V-table-Win
 410 PROCEDURE override-add-record :
 411 /*------------------------------------------------------------------------------
 412   Purpose:
 413 ------------------------------------------------------------------------------*/
 414 DO WITH FRAME {&FRAME-NAME}:
 415
 416   FIND FlowTaskType WHERE FlowTaskType.FlowTaskType = ? NO-LOCK NO-ERROR.
 417   IF NOT AVAILABLE(FlowTaskType) THEN CREATE FlowTaskType.
 418
 419   ASSIGN FlowTaskType.FlowTaskType = ?
 420          FlowTaskType.InitialStep  = "TASK" .
 421
 422   CURRENT-WINDOW:TITLE = "Adding a New Workflow Task".
 423   RUN dispatch( 'display-fields':U ).
 424   RUN dispatch( 'enable-fields':U ).
 425
 426 END.
 427
 428 END PROCEDURE.
 429
 430 /* _UIB-CODE-BLOCK-END */
 431 &ANALYZE-RESUME
 432
 433
 434 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE pre-destroy V-table-Win
 435 PROCEDURE pre-destroy :
 436 /*------------------------------------------------------------------------------
 437   Purpose:
 438 ------------------------------------------------------------------------------*/
 439   IF LAST-EVENT:FUNCTION = "WINDOW-CLOSE" THEN RUN cancel-changes.
 440 END PROCEDURE.
 441
 442 /* _UIB-CODE-BLOCK-END */
 443 &ANALYZE-RESUME
 444
 445
 446 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-key V-table-Win adm/support/_key-snd.p
 447 PROCEDURE send-key :
 448 /*------------------------------------------------------------------------------
 449   Purpose:     Sends a requested KEY value back to the calling
 450                SmartObject.
 451   Parameters:  <see adm/template/sndkytop.i>
 452 ------------------------------------------------------------------------------*/
 453
 454   /* Define variables needed by this internal procedure.             */
 455   {src/adm/template/sndkytop.i}
 456
 457   /* Return the key value associated with each key case.             */
 458   {src/adm/template/sndkycas.i "FlowTaskType" "FlowTaskType" "FlowTaskType"}
 459
 460   /* Close the CASE statement and end the procedure.                 */
 461   {src/adm/template/sndkyend.i}
 462
 463 END PROCEDURE.
 464
 465 /* _UIB-CODE-BLOCK-END */
 466 &ANALYZE-RESUME
 467
 468
 469 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-records V-table-Win _ADM-SEND-RECORDS
 470 PROCEDURE send-records :
 471 /*------------------------------------------------------------------------------
 472   Purpose:     Send record ROWID's for all tables used by
 473                this file.
 474   Parameters:  see template/snd-head.i
 475 ------------------------------------------------------------------------------*/
 476
 477   /* Define variables needed by this internal procedure.               */
 478   {src/adm/template/snd-head.i}
 479
 480   /* For each requested table, put it's ROWID in the output list.      */
 481   {src/adm/template/snd-list.i "FlowTaskType"}
 482
 483   /* Deal with any unexpected table requests before closing.           */
 484   {src/adm/template/snd-end.i}
 485
 486 END PROCEDURE.
 487
 488 /* _UIB-CODE-BLOCK-END */
 489 &ANALYZE-RESUME
 490
 491
 492 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE state-changed V-table-Win
 493 PROCEDURE state-changed :
 494 /* -----------------------------------------------------------
 495   Purpose:
 496   Parameters:  <none>
 497   Notes:
 498 -------------------------------------------------------------*/
 499   DEFINE INPUT PARAMETER p-issuer-hdl AS HANDLE    NO-UNDO.
 500   DEFINE INPUT PARAMETER p-state      AS CHARACTER NO-UNDO.
 501
 502   CASE p-state:
 503       /* Object instance CASEs can go here to replace standard behavior
 504          or add new cases. */
 505       {src/adm/template/vstates.i}
 506   END CASE.
 507 END PROCEDURE.
 508
 509 /* _UIB-CODE-BLOCK-END */
 510 &ANALYZE-RESUME
 511
 512
 513 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE use-Mode V-table-Win
 514 PROCEDURE use-Mode :
 515 /*------------------------------------------------------------------------------
 516   Purpose:
 517 ------------------------------------------------------------------------------*/
 518 DEF INPUT PARAMETER new-mode AS CHAR NO-UNDO.
 519   mode = new-mode.
 520 END PROCEDURE.
 521
 522 /* _UIB-CODE-BLOCK-END */
 523 &ANALYZE-RESUME
 524
 525
 526 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE verify-flow-task V-table-Win
 527 PROCEDURE verify-flow-task :
 528 /*------------------------------------------------------------------------------
 529   Purpose:
 530 ------------------------------------------------------------------------------*/
 531
 532 DO WITH FRAME {&FRAME-NAME}:
 533
 534   IF INPUT FlowTaskType.FlowTaskType = ? OR TRIM(INPUT FlowTaskType.FlowTaskType) = "" THEN DO:
 535     MESSAGE "You must choose a unique Flow Task code."
 536             VIEW-AS ALERT-BOX ERROR TITLE "Unassigned Flow Task Code".
 537     APPLY 'ENTRY':U TO FlowTaskType.FlowTaskType.
 538     RETURN "FAIL".
 539   END.
 540
 541   IF INPUT FlowTaskType.FlowTaskType <> FlowTaskType.FlowTaskType AND
 542           CAN-FIND( FlowTaskType WHERE FlowTaskType.FlowTaskType = INPUT FlowTaskType.FlowTaskType ) THEN DO:
 543     MESSAGE "A Flow Task already exists with the code" INPUT FlowTaskType.FlowTaskType "!" SKIP
 544             "You must choose a unique FlowTaskType code."
 545             VIEW-AS ALERT-BOX ERROR TITLE "Duplicate Flow Task Code".
 546     APPLY 'ENTRY':U TO FlowTaskType.FlowTaskType.
 547     RETURN "FAIL".
 548   END.
 549
 550   IF TRIM(INPUT FlowTaskType.Description) = "" THEN DO:
 551     MESSAGE "You must supply a description for the Flow Task!"
 552             VIEW-AS ALERT-BOX ERROR TITLE "Incomplete Name".
 553     APPLY 'ENTRY':U TO FlowTaskType.Description.
 554     RETURN "FAIL".
 555   END.
 556
 557 END.
 558
 559 END PROCEDURE.
 560
 561 /* _UIB-CODE-BLOCK-END */
 562 &ANALYZE-RESUME
 563
 564