` Printed Icetips Article
Icetips Article

Par2: EIP Flowchart
2000-04-11 -- Harley Jones
Run
  Init
    IF NOT DELETE
      InitControls
        FOR EACH COLUMN
          Init
            CreateControl
            SetAlerts
          END Init
        END FOR EACH COLUMN
      END InitControls
      ResetColumn
        GetEdit
      END ResetColumn
    END IF
  END Init
  IF NOT DELETE
    Ask
      IF INSERT
        Open
      END IF
      TakeSelected
      TakeFieldEvent
        FOR ACTIVE COLUMN
          TakeEvent
        END FOR ACTIVE COLUMN
        TakeAction
      END TakeFieldEvent
      LOOP
        TakeFieldEvent
          FOR ACTIVE COLUMN
            TakeEvent
          END FOR ACTIVE COLUMN
          TakeAction
        END TakeFieldEvent
        TakeFieldEvent
          FOR ACTIVE COLUMN
            TakeEvent
          END FOR ACTIVE COLUMN
          TakeAction
            ClearColumn
            GetEdit
            IF THERE IS ANOTHER FIELD
              ResetColumn
                GetEdit
              END ResetColumn
            ELSE
              TakeCompleted(BYTE)
                ClearColumn
              END TakeCompleted(BYTE)
              BREAK LOOP
            END IF
          END TakeAction
        END TakeFieldEvent
        IF INSERT
          TakeAccepted
          TakeFieldEvent
            FOR ACTIVE COLUMN
              TakeEvent
            END FOR ACTIVE COLUMN
            TakeAction
          END TakeFieldEvent
        END IF
        TakeSelected
        TakeFieldEvent
          FOR NEW COLUMN
            TakeEvent
          END FOR NEW COLUMN
          TakeAction
        END TakeFieldEvent
        PROGRAM WAITING LOOP HERE
      END LOOP
    END Ask
  END IF
  Kill
    FOR EACH COLUMN
      Kill
    END FOR EACH COLUMN
  END Kill
END Run
Printed November 21, 2024, 12:44 pm
This article has been viewed/printed 35212 times.