Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ECOBA

ECOBA.m

Go to the documentation of this file.
  1. ECOBA ;BP/CMF - Attribute Object
  1. ;;2.0;EVENT CAPTURE;**100**;8 May 96;Build 21
  1. ;@author - Chris Flegel
  1. ;@date - 17 May 2009
  1. ;@version - 1.0
  1. ;;
  1. Q
  1. ;; private methods
  1. ;;
  1. PROPERTY(HANDLE,SCOPE,PROPERTY,VALUE) ;
  1. D PROPERTY^ECOB(HANDLE,SCOPE,PROPERTY,VALUE)
  1. Q
  1. ;;
  1. ;; public methods
  1. CREATE(NAME) ;
  1. ; call parent first
  1. N HANDLE,CHILD
  1. S HANDLE=$$CREATE^ECOB2(NAME)
  1. D SELF^ECOB(.RESULT,HANDLE,"Attribute","Attribute","METHOD^ECOBA(.RESULT,ARGUMENT)","ECOB2")
  1. ;;
  1. D PROPERTY(HANDLE,"Pu","AddedByClass","")
  1. D PROPERTY(HANDLE,"Pu","Cleared","false")
  1. D PROPERTY(HANDLE,"Pu","DefaultValue","")
  1. D PROPERTY(HANDLE,"Pu","Description","")
  1. D PROPERTY(HANDLE,"Pu","Edited","false")
  1. D PROPERTY(HANDLE,"Pu","Name","")
  1. D PROPERTY(HANDLE,"Pu","Obtained","false")
  1. D PROPERTY(HANDLE,"Pu","Persisted","false")
  1. D PROPERTY(HANDLE,"Pu","Scope","")
  1. D PROPERTY(HANDLE,"Pu","Value","")
  1. ; complex properties last
  1. Q HANDLE
  1. ;;
  1. DESTROY(HANDLE) ;
  1. ; call parent last
  1. Q $$DESTROY^ECOB2(HANDLE)
  1. ;;
  1. METHOD(RESULT,ARGUMENT) ;
  1. ; argument=(name.count[handle]).method.(additional.params...)
  1. D METHOD^ECOB2(.RESULT,ARGUMENT)
  1. Q
  1. ;;