ECOB3.m

ECOB3 ;BP/CMF - Name Object

 ;;2.0;EVENT CAPTURE;**100**;8 May 96;Build 21

 ;@author  - Chris Flegel

 ;@date    - 17 May 2009

 ;@version - 1.0

 ;;

 Q

 ;; private methods

OB2(RESULT,ARGUMENT) ; shortcut to primitive utility

 D METHOD^ECOB2(.RESULT,ARGUMENT)

 Q

 ;;

OBP(RESULT,ARGUMENT) ; shortcut to property object

 D METHOD^ECOBP(.RESULT,ARGUMENT)

 Q

 ;;

 ;; public methods

CREATE(NAME)  ;

 ; call parent first

 N HANDLE,X,CHILD

 S HANDLE=$$CREATE^ECOBU(NAME)

 D METHOD(.X,HANDLE_".of.Set_class.EC OBU NAME")

 D METHOD(.X,HANDLE_".of.Set_name.Name")

 D METHOD(.X,HANDLE_".of.Set_routine.METHOD^ECOB3(.RESULT,ARGUMENT)")

 ;;

 D METHOD(.CHILD,HANDLE_".Properties.Add.Name")

 D METHOD(.X,CHILD_".pf.SetAddedByClass.EC OBU NAME")

 D METHOD(.X,CHILD_".pf.SetValue.")

 D METHOD(.X,CHILD_".pf.SetDefaultValue.")

 ;

 D METHOD(.CHILD,HANDLE_".Properties.Add.Ien")

 D METHOD(.X,CHILD_".pf.SetAddedByClass.EC OBU NAME")

 D METHOD(.X,CHILD_".pf.SetValue.")

 D METHOD(.X,CHILD_".pf.SetDefaultValue.")

 ;

 D METHOD(.CHILD,HANDLE_".Properties.Add.Vuid")

 D METHOD(.X,CHILD_".pf.SetAddedByClass.EC OBU NAME")

 D METHOD(.X,CHILD_".pf.SetValue.")

 D METHOD(.X,CHILD_".pf.SetDefaultValue.")

 ;

 ; complex properties last

 D METHOD(.X,HANDLE_".Root.Add.EC OBU NAME")

 Q HANDLE

 ;;

DESTROY(HANDLE)  ;

 ; call parent last

 Q $$DESTROY^ECOBU(HANDLE)

 ;;

METHOD(RESULT,ARGUMENT)  ;

 ; call parent last

 D METHOD^ECOBU(.RESULT,ARGUMENT)  ; parent method

 Q

 ;;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECOB3   1490     printed  Apr 09, 2024@21:03:54                                                                                                                                                                                                       Page 2

ECOB3     ;BP/CMF - Name Object

 +1       ;;2.0;EVENT CAPTURE;**100**;8 May 96;Build 21

 +2       ;@author  - Chris Flegel

 +3       ;@date    - 17 May 2009

 +4       ;@version - 1.0

 +5       ;;

 +6        QUIT 

 +7       ;; private methods

OB2(RESULT,ARGUMENT) ; shortcut to primitive utility

 +1        DO METHOD^ECOB2(.RESULT,ARGUMENT)

 +2        QUIT 

 +3       ;;

OBP(RESULT,ARGUMENT) ; shortcut to property object

 +1        DO METHOD^ECOBP(.RESULT,ARGUMENT)

 +2        QUIT 

 +3       ;;

 +4       ;; public methods

CREATE(NAME) ;

 +1       ; call parent first

 +2        NEW HANDLE,X,CHILD

 +3        SET HANDLE=$$CREATE^ECOBU(NAME)

 +4        DO METHOD(.X,HANDLE_".of.Set_class.EC OBU NAME")

 +5        DO METHOD(.X,HANDLE_".of.Set_name.Name")

 +6        DO METHOD(.X,HANDLE_".of.Set_routine.METHOD^ECOB3(.RESULT,ARGUMENT)")

 +7       ;;

 +8        DO METHOD(.CHILD,HANDLE_".Properties.Add.Name")

 +9        DO METHOD(.X,CHILD_".pf.SetAddedByClass.EC OBU NAME")

 +10       DO METHOD(.X,CHILD_".pf.SetValue.")

 +11       DO METHOD(.X,CHILD_".pf.SetDefaultValue.")

 +12      ;

 +13       DO METHOD(.CHILD,HANDLE_".Properties.Add.Ien")

 +14       DO METHOD(.X,CHILD_".pf.SetAddedByClass.EC OBU NAME")

 +15       DO METHOD(.X,CHILD_".pf.SetValue.")

 +16       DO METHOD(.X,CHILD_".pf.SetDefaultValue.")

 +17      ;

 +18       DO METHOD(.CHILD,HANDLE_".Properties.Add.Vuid")

 +19       DO METHOD(.X,CHILD_".pf.SetAddedByClass.EC OBU NAME")

 +20       DO METHOD(.X,CHILD_".pf.SetValue.")

 +21       DO METHOD(.X,CHILD_".pf.SetDefaultValue.")

 +22      ;

 +23      ; complex properties last

 +24       DO METHOD(.X,HANDLE_".Root.Add.EC OBU NAME")

 +25       QUIT HANDLE

 +26      ;;

DESTROY(HANDLE) ;

 +1       ; call parent last

 +2        QUIT $$DESTROY^ECOBU(HANDLE)

 +3       ;;

METHOD(RESULT,ARGUMENT) ;

 +1       ; call parent last

 +2       ; parent method

           DO METHOD^ECOBU(.RESULT,ARGUMENT)

 +3        QUIT 

 +4       ;;