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 ---[H[J[2J[HECOB3 1490 printed Dec 13, 2024@01:57:56 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 ;;
