trigger/wrtntcal.p

   1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12
   2 &ANALYZE-RESUME
   3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure
   4 TRIGGER PROCEDURE FOR WRITE OF TenantCall.
   5 /*--------------------------------------------------------------------------
   6     File        :
   7     Purpose     :
   8
   9     Syntax      :
  10
  11     Description :
  12
  13     Author(s)   :
  14     Created     :
  15     Notes       :
  16   ------------------------------------------------------------------------*/
  17
  18 /* _UIB-CODE-BLOCK-END */
  19 &ANALYZE-RESUME
  20
  21
  22 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  23
  24 /* ********************  Preprocessor Definitions  ******************** */
  25
  26 &Scoped-define PROCEDURE-TYPE Procedure
  27
  28
  29
  30 /* _UIB-PREPROCESSOR-BLOCK-END */
  31 &ANALYZE-RESUME
  32
  33
  34
  35 /* *********************** Procedure Settings ************************ */
  36
  37 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
  38 /* Settings for THIS-PROCEDURE
  39    Type: Procedure
  40    Allow:
  41    Frames: 0
  42    Add Fields to: Neither
  43    Other Settings: CODE-ONLY COMPILE
  44  */
  45 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
  46
  47 /* *************************  Create Window  ************************** */
  48
  49 &ANALYZE-SUSPEND _CREATE-WINDOW
  50 /* DESIGN Window definition (used by the UIB)
  51   CREATE WINDOW Procedure ASSIGN
  52          HEIGHT             = .2
  53          WIDTH              = 39.72.
  54 /* END WINDOW DEFINITION */
  55                                                                         */
  56 &ANALYZE-RESUME
  57
  58
  59
  60
  61 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure
  62
  63
  64 /* ***************************  Main Block  *************************** */
  65
  66 /* _UIB-CODE-BLOCK-END */
  67 &ANALYZE-RESUME
  68
  69