ECOBPC.m

ECOBPC ;BP/CMF - Properties object

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

 ;@author  - Chris Flegel

 ;@date    - 17 May 2009

 ;@version - 1.0

 ;;

 Q

 ;;private methods

ADD(RESULT,HANDLE,VALUE) ; add Property object to list

 N NAME,CHILD,ITEM,PROP

 D METHOD(.NAME,HANDLE_".Get_namespace")

 S CHILD=$$CREATE^ECOBP(NAME)

 D COLLECT^ECOBL(.ITEM,HANDLE,CHILD)

 S PROP("Name")=$P(VALUE,".")

    D METHOD^ECOBP(.RESULT,CHILD_".SetName."_PROP("Name"))

 ;D METHOD^ECOBP(.RESULT,CHILD_".SetName."_VALUE)

 D METHOD(.X,HANDLE_".Criteria.Index."_ITEM)

 ;support for property types

 S PROP("Type")=$P(VALUE,".",2)

 D:PROP("Type")'=""

 .S PROP("Build")=$$GET^XPAR("PKG","ECOB PROPERTY TYPE",PROP("Type"),"E")

 .Q:PROP("Build")=""

 .S PROP("Tag")=$P(PROP("Build"),".")

 .S PROP("Routine")=$P(PROP("Build"),".",2)

 .S PROP("Execute")=PROP("Tag")_U_PROP("Routine")

 .Q:$T(@$P(PROP("Execute"),"("))=""

 .Q:$P(PROP("Execute"),"(",2)'="HANDLE,CHILD)"

 .D @PROP("Execute")

 .Q

 S RESULT=CHILD

 Q

 ;;

INFO(RESULT,HANDLE,PARAMS) ; view property details

 N PROPERTY,JUSTIFY,OFFSET

 D PARSE("Offset",PARAMS)

 D METHOD(.PROPERTY,HANDLE_".First")

 F  Q:PROPERTY="-1^End of list"  D

 .D METHOD^ECOBP(.RESULT,PROPERTY_".ShowName."_JUSTIFY)

 .D METHOD^ECOBP(.RESULT,PROPERTY_".ShowValue."_OFFSET)

 .D METHOD^ECOBP(.RESULT,PROPERTY_".ShowDefaultValue."_OFFSET)

 .D METHOD(.PROPERTY,HANDLE_".Next")

 .Q

 Q

 ;;

PARSE(PARSE,VALUE)  ;

 D PARSE^ECOBL(PARSE,VALUE) ; parent method

 Q

 ;;

PROPERTY(HANDLE,SCOPE,PROPERTY,VALUE) ; parent method

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

 Q

 ;;

 ;; public methods

CREATE(NAME)  ;

 ; call parent first

 N HANDLE,X

 S HANDLE=$$CREATE^ECOBL(NAME)

 ;;

 D SELF^ECOB(.X,HANDLE,"Properties","Properties","METHOD^ECOBMC(.RESULT,ARGUMENT)","ECOBL")

 ;;

 D METHOD(.X,HANDLE_".Criteria.SetArgument.GetName")

 D METHOD(.X,HANDLE_".Criteria.SetOnReturn.handle")

 Q HANDLE

 ;;

DESTROY(HANDLE)  ;

 ; call parent last

 N CHILD

 D METHOD(.CHILD,HANDLE_".First")

 F  Q:+CHILD=-1  D

 .D DESTROY^ECOBP(CHILD)

 .D METHOD(.CHILD,HANDLE_".Next")

 .Q

 Q $$DESTROY^ECOBL(HANDLE)

 ;;

METHOD(RESULT,ARGUMENT)  ;

 ; argument= handle.method.(additional.params...)

 N HANDLE,METHOD,PARAMS

 D PARSE("Handle",ARGUMENT)

 D PARSE("Method",ARGUMENT)

 D PARSE("Params",ARGUMENT)

 I METHOD="Add" D ADD(.RESULT,HANDLE,PARAMS) Q

 I METHOD="Info" D INFO(.RESULT,HANDLE,PARAMS) Q

 D METHOD^ECOBL(.RESULT,ARGUMENT)

 Q

 ;;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECOBPC   2486     printed  Feb 18, 2025@23:24:31                                                                                                                                                                                                      Page 2

ECOBPC    ;BP/CMF - Properties 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

ADD(RESULT,HANDLE,VALUE) ; add Property object to list

 +1        NEW NAME,CHILD,ITEM,PROP

 +2        DO METHOD(.NAME,HANDLE_".Get_namespace")

 +3        SET CHILD=$$CREATE^ECOBP(NAME)

 +4        DO COLLECT^ECOBL(.ITEM,HANDLE,CHILD)

 +5        SET PROP("Name")=$PIECE(VALUE,".")

 +6        DO METHOD^ECOBP(.RESULT,CHILD_".SetName."_PROP("Name"))

 +7       ;D METHOD^ECOBP(.RESULT,CHILD_".SetName."_VALUE)

 +8        DO METHOD(.X,HANDLE_".Criteria.Index."_ITEM)

 +9       ;support for property types

 +10       SET PROP("Type")=$PIECE(VALUE,".",2)

 +11       if PROP("Type")'=""

               Begin DoDot:1

 +12               SET PROP("Build")=$$GET^XPAR("PKG","ECOB PROPERTY TYPE",PROP("Type"),"E")

 +13               if PROP("Build")=""

                       QUIT 

 +14               SET PROP("Tag")=$PIECE(PROP("Build"),".")

 +15               SET PROP("Routine")=$PIECE(PROP("Build"),".",2)

 +16               SET PROP("Execute")=PROP("Tag")_U_PROP("Routine")

 +17               if $TEXT(@$PIECE(PROP("Execute"),"("))=""

                       QUIT 

 +18               if $PIECE(PROP("Execute"),"(",2)'="HANDLE,CHILD)"

                       QUIT 

 +19               DO @PROP("Execute")

 +20               QUIT 

               End DoDot:1

 +21       SET RESULT=CHILD

 +22       QUIT 

 +23      ;;

INFO(RESULT,HANDLE,PARAMS) ; view property details

 +1        NEW PROPERTY,JUSTIFY,OFFSET

 +2        DO PARSE("Offset",PARAMS)

 +3        DO METHOD(.PROPERTY,HANDLE_".First")

 +4        FOR 

               if PROPERTY="-1^End of list"

                   QUIT 

               Begin DoDot:1

 +5                DO METHOD^ECOBP(.RESULT,PROPERTY_".ShowName."_JUSTIFY)

 +6                DO METHOD^ECOBP(.RESULT,PROPERTY_".ShowValue."_OFFSET)

 +7                DO METHOD^ECOBP(.RESULT,PROPERTY_".ShowDefaultValue."_OFFSET)

 +8                DO METHOD(.PROPERTY,HANDLE_".Next")

 +9                QUIT 

               End DoDot:1

 +10       QUIT 

 +11      ;;

PARSE(PARSE,VALUE) ;

 +1       ; parent method

           DO PARSE^ECOBL(PARSE,VALUE)

 +2        QUIT 

 +3       ;;

PROPERTY(HANDLE,SCOPE,PROPERTY,VALUE) ; parent method

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

 +2        QUIT 

 +3       ;;

 +4       ;; public methods

CREATE(NAME) ;

 +1       ; call parent first

 +2        NEW HANDLE,X

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

 +4       ;;

 +5        DO SELF^ECOB(.X,HANDLE,"Properties","Properties","METHOD^ECOBMC(.RESULT,ARGUMENT)","ECOBL")

 +6       ;;

 +7        DO METHOD(.X,HANDLE_".Criteria.SetArgument.GetName")

 +8        DO METHOD(.X,HANDLE_".Criteria.SetOnReturn.handle")

 +9        QUIT HANDLE

 +10      ;;

DESTROY(HANDLE) ;

 +1       ; call parent last

 +2        NEW CHILD

 +3        DO METHOD(.CHILD,HANDLE_".First")

 +4        FOR 

               if +CHILD=-1

                   QUIT 

               Begin DoDot:1

 +5                DO DESTROY^ECOBP(CHILD)

 +6                DO METHOD(.CHILD,HANDLE_".Next")

 +7                QUIT 

               End DoDot:1

 +8        QUIT $$DESTROY^ECOBL(HANDLE)

 +9       ;;

METHOD(RESULT,ARGUMENT) ;

 +1       ; argument= handle.method.(additional.params...)

 +2        NEW HANDLE,METHOD,PARAMS

 +3        DO PARSE("Handle",ARGUMENT)

 +4        DO PARSE("Method",ARGUMENT)

 +5        DO PARSE("Params",ARGUMENT)

 +6        IF METHOD="Add"

               DO ADD(.RESULT,HANDLE,PARAMS)

               QUIT 

 +7        IF METHOD="Info"

               DO INFO(.RESULT,HANDLE,PARAMS)

               QUIT 

 +8        DO METHOD^ECOBL(.RESULT,ARGUMENT)

 +9        QUIT 

 +10      ;;