ECOBA.m

ECOBA ;BP/CMF - Attribute Object

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

 ;@author  - Chris Flegel

 ;@date    - 17 May 2009

 ;@version - 1.0

 ;;

 Q

 ;; private methods

 ;;

PROPERTY(HANDLE,SCOPE,PROPERTY,VALUE)  ;

 D PROPERTY^ECOB(HANDLE,SCOPE,PROPERTY,VALUE)

 Q

 ;;

 ;; public methods

CREATE(NAME)  ;

 ; call parent first

 N HANDLE,CHILD

 S HANDLE=$$CREATE^ECOB2(NAME)

 D SELF^ECOB(.RESULT,HANDLE,"Attribute","Attribute","METHOD^ECOBA(.RESULT,ARGUMENT)","ECOB2")

 ;;

 D PROPERTY(HANDLE,"Pu","AddedByClass","")

 D PROPERTY(HANDLE,"Pu","Cleared","false")

 D PROPERTY(HANDLE,"Pu","DefaultValue","")

 D PROPERTY(HANDLE,"Pu","Description","")

 D PROPERTY(HANDLE,"Pu","Edited","false")

 D PROPERTY(HANDLE,"Pu","Name","")

 D PROPERTY(HANDLE,"Pu","Obtained","false")

 D PROPERTY(HANDLE,"Pu","Persisted","false")

 D PROPERTY(HANDLE,"Pu","Scope","")

 D PROPERTY(HANDLE,"Pu","Value","")

 ; complex properties last

 Q HANDLE

 ;;

DESTROY(HANDLE)  ;

 ; call parent last

 Q $$DESTROY^ECOB2(HANDLE)

 ;;

METHOD(RESULT,ARGUMENT)  ;

 ; argument=(name.count[handle]).method.(additional.params...)

 D METHOD^ECOB2(.RESULT,ARGUMENT)

 Q

 ;;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECOBA   1167     printed  Apr 09, 2024@21:03:27                                                                                                                                                                                                       Page 2

ECOBA     ;BP/CMF - Attribute 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

 +8       ;;

PROPERTY(HANDLE,SCOPE,PROPERTY,VALUE) ;

 +1        DO PROPERTY^ECOB(HANDLE,SCOPE,PROPERTY,VALUE)

 +2        QUIT 

 +3       ;;

 +4       ;; public methods

CREATE(NAME) ;

 +1       ; call parent first

 +2        NEW HANDLE,CHILD

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

 +4        DO SELF^ECOB(.RESULT,HANDLE,"Attribute","Attribute","METHOD^ECOBA(.RESULT,ARGUMENT)","ECOB2")

 +5       ;;

 +6        DO PROPERTY(HANDLE,"Pu","AddedByClass","")

 +7        DO PROPERTY(HANDLE,"Pu","Cleared","false")

 +8        DO PROPERTY(HANDLE,"Pu","DefaultValue","")

 +9        DO PROPERTY(HANDLE,"Pu","Description","")

 +10       DO PROPERTY(HANDLE,"Pu","Edited","false")

 +11       DO PROPERTY(HANDLE,"Pu","Name","")

 +12       DO PROPERTY(HANDLE,"Pu","Obtained","false")

 +13       DO PROPERTY(HANDLE,"Pu","Persisted","false")

 +14       DO PROPERTY(HANDLE,"Pu","Scope","")

 +15       DO PROPERTY(HANDLE,"Pu","Value","")

 +16      ; complex properties last

 +17       QUIT HANDLE

 +18      ;;

DESTROY(HANDLE) ;

 +1       ; call parent last

 +2        QUIT $$DESTROY^ECOB2(HANDLE)

 +3       ;;

METHOD(RESULT,ARGUMENT) ;

 +1       ; argument=(name.count[handle]).method.(additional.params...)

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

 +3        QUIT 

 +4       ;;