- ECOBP ;BP/CMF - Property 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,X
- S HANDLE=$$CREATE^ECOBA(NAME)
- D METHOD(.X,HANDLE_".Set_class.EC PROPERTY")
- D METHOD(.X,HANDLE_".Set_name.Property")
- D METHOD(.X,HANDLE_".Set_routine.METHOD^ECOBP(.RESULT,ARGUMENT)")
- ;
- D PROPERTY(HANDLE,"Pu","FMiens","")
- D PROPERTY(HANDLE,"Pu","FMfile","")
- D PROPERTY(HANDLE,"Pu","FMfield","")
- D PROPERTY(HANDLE,"Pu","FMload","")
- ; 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[HECOBP 958 printed Feb 18, 2025@23:24:30 Page 2
- ECOBP ;BP/CMF - Property 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,X
- +3 SET HANDLE=$$CREATE^ECOBA(NAME)
- +4 DO METHOD(.X,HANDLE_".Set_class.EC PROPERTY")
- +5 DO METHOD(.X,HANDLE_".Set_name.Property")
- +6 DO METHOD(.X,HANDLE_".Set_routine.METHOD^ECOBP(.RESULT,ARGUMENT)")
- +7 ;
- +8 DO PROPERTY(HANDLE,"Pu","FMiens","")
- +9 DO PROPERTY(HANDLE,"Pu","FMfile","")
- +10 DO PROPERTY(HANDLE,"Pu","FMfield","")
- +11 DO PROPERTY(HANDLE,"Pu","FMload","")
- +12 ; complex properties last
- +13 QUIT HANDLE
- +14 ;;
- 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 ;;
