- ECOBM ;BP/CMF - Method 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^ECOBA(NAME)
- D SELF^ECOB(.RESULT,HANDLE,"Method","Method","METHOD^ECOBM(.RESULT,ARGUMENT)","ECOB2")
- ;;
- D PROPERTY(HANDLE,"Pu","Handler","")
- D PROPERTY(HANDLE,"Pu","Params","")
- D PROPERTY(HANDLE,"Pu","Returns","")
- ; complex properties last
- Q HANDLE
- ;;
- DESTROY(HANDLE) ;
- ; call parent last
- Q $$DESTROY^ECOBA(HANDLE)
- ;;
- METHOD(RESULT,ARGUMENT) ;
- ; argument=(name.count[handle]).method.(additional.params...)
- D METHOD^ECOBA(.RESULT,ARGUMENT)
- Q
- ;;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECOBM 855 printed Mar 13, 2025@21:02:55 Page 2
- ECOBM ;BP/CMF - Method 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^ECOBA(NAME)
- +4 DO SELF^ECOB(.RESULT,HANDLE,"Method","Method","METHOD^ECOBM(.RESULT,ARGUMENT)","ECOB2")
- +5 ;;
- +6 DO PROPERTY(HANDLE,"Pu","Handler","")
- +7 DO PROPERTY(HANDLE,"Pu","Params","")
- +8 DO PROPERTY(HANDLE,"Pu","Returns","")
- +9 ; complex properties last
- +10 QUIT HANDLE
- +11 ;;
- DESTROY(HANDLE) ;
- +1 ; call parent last
- +2 QUIT $$DESTROY^ECOBA(HANDLE)
- +3 ;;
- METHOD(RESULT,ARGUMENT) ;
- +1 ; argument=(name.count[handle]).method.(additional.params...)
- +2 DO METHOD^ECOBA(.RESULT,ARGUMENT)
- +3 QUIT
- +4 ;;
