ECOBU.m

ECOBU ;BP/CMF - Utility Object ;8/21/2015

 ;;2.0;EVENT CAPTURE;**100,129**;8 May 96;Build 7

 ;@author  - Chris Flegel

 ;@date    - 17 May 2009

 ;@version - 1.0

 ;;

 Q

 ;; private methods

HANDLERS(RESULT,HANDLE,METHOD,PARAMS) ;;

 ; find & execute handlers

 N PROPERTY,HANDLES,FOUND,HANDLER,EXECUTER

 S RESULT="-1^Invalid method"

 I $E(METHOD,1,3)="Get" D 

 .D PARSE("Get",METHOD)

 .S PARAMS=PROPERTY_"."_PARAMS

 .S METHOD="Get"

 .Q

 I $E(METHOD,1,3)="Set" D 

 .D PARSE("Set",METHOD)

 .S PARAMS=PROPERTY_"."_PARAMS

 .S METHOD="Set"

 .Q

 I $E(METHOD,1,4)="Show" D 

 .D PARSE("Show",METHOD)

 .S PARAMS=PROPERTY_"."_PARAMS

 .S METHOD="Show"

 .Q

 D METHOD(.HANDLER,HANDLE_".Methods.Find1."_METHOD)

 D METHOD^ECOBM(.EXECUTER,HANDLER_".GetHandler")

 I $G(EXECUTER)="" Q  ;EC*129

 I ($P(EXECUTER,"^")=0)!($P(EXECUTER,"^")=-1) Q  ;EC*129

 D @EXECUTER

 Q

 ;;

OBM(RESULT,ARGUMENT) ;shortcut to method class

 D METHOD^ECOBM(.RESULT,ARGUMENT) Q

 ;;

OBP(RESULT,ARGUMENT) ;shortcut to property class

 D METHOD^ECOBP(.RESULT,ARGUMENT) Q

 ;;

OB2(RESULT,ARGUMENT) ;shortcut to utility class

 D METHOD^ECOB2(.RESULT,ARGUMENT) Q

 ;;

ECOB30(RESULT,HANDLE,PARAMS) ;handler for collect object

 N CHILD

 D GET^ECOB(.CHILD,HANDLE,"Pu","Collect")

 D METHOD^ECOB30(.RESULT,CHILD_"."_PARAMS)

 Q

 ;;

ECOBL(RESULT,HANDLE,METHOD,PARAMS) ;handler for simple list

 N CHILD

 D GET^ECOB(.CHILD,HANDLE,"Pu",METHOD)

 D METHOD^ECOBL(.RESULT,CHILD_"."_PARAMS)

 Q

 ;;

ECOBMC(RESULT,HANDLE,PARAMS) ;handler for method collection

 N CHILD

 D GET^ECOB(.CHILD,HANDLE,"Pu","Methods")

 D METHOD^ECOBMC(.RESULT,CHILD_"."_PARAMS)

 Q

 ;;

ECOBPC(RESULT,HANDLE,PARAMS) ;handler for property collection

 N CHILD

 D GET^ECOB(.CHILD,HANDLE,"Pu","Properties")

 D METHOD^ECOBPC(.RESULT,CHILD_"."_PARAMS)

 Q 

 ;;

ECOBM(RESULT,HANDLE,PARAMS) ;; pass-through

 D OBM(.RESULT,HANDLE_"."_PARAMS) Q

 ;;

ECOB2(RESULT,HANDLE,PARAMS) ;; pass-through

 D OB2(.RESULT,HANDLE_"."_PARAMS) Q

 ;;

ECOBP(RESULT,HANDLE,PARAMS) ; pass-through

 D OBP(.RESULT,HANDLE_"."_PARAMS) Q

 ;;

DIAGHDR(VALUE,WIDTH) ;;

 N I,J

 S J=WIDTH-$L(VALUE)-1

 W !," "_VALUE_" "

 F J=1:1:J W "-"

 W "+"

 Q

DIAGSGMT(VALUE,WIDTH) ;;

 N I,J,OUT,FILL

 S J=WIDTH-$L(VALUE)

 S OUT=" + "_VALUE_" "

 S FILL=""

 F J=1:1:J S FILL=FILL_"-"

 S OUT=$E(OUT_FILL,1,WIDTH)_" |"

 W !,OUT

 Q

DIAGATTR(VALUE,WIDTH) ;;

 N I,J,OUT,FILL

 S J=WIDTH-$L(VALUE)

 S OUT=" | * "_VALUE

 D:$L(VALUE)<WIDTH

 .S FILL=""

 .F J=1:1:J S FILL=FILL_" "

 .S OUT=$E(OUT_FILL,1,WIDTH)_" |"

 .Q

 W !,OUT

 Q

DIAGFTR(WIDTH) ;;

 N I,J,OUT,FILL

 S J=WIDTH

 S OUT=" + "

 S FILL=""

 F J=1:1:J S FILL=FILL_"-"

 S OUT=$E(OUT_FILL,1,J)_" +"

 W !,OUT

 Q

 ;;

    ;;protected methods

CLASS(RESULT,HANDLE,PARAMS) ;handler for class info display

 N JUSTIFY,OFFSET,X,METH,PROP,ITEM

 D PARSE("Offset",PARAMS)

 D SHOW^ECOB(.X,HANDLE,"Pu","_class",JUSTIFY)

 ;;

 D SHOW^ECOB(.X,HANDLE,"Pu","Methods",JUSTIFY)

 D METHOD(.X,HANDLE_".Methods.Info."_OFFSET)

 D SHOW^ECOB(.X,HANDLE,"Pu","Methods",JUSTIFY_"/")

 ;;

 D SHOW^ECOB(.X,HANDLE,"Pu","Properties",JUSTIFY)

 D METHOD(.X,HANDLE_".Properties.Info."_OFFSET)

 D SHOW^ECOB(.X,HANDLE,"Pu","Properties",JUSTIFY_"/")

 ;;

 D SHOW^ECOB(.X,HANDLE,"Pu","Root",JUSTIFY)

 D METHOD(.X,HANDLE_".Root.Info."_OFFSET)

 D SHOW^ECOB(.X,HANDLE,"Pu","Root",JUSTIFY_"/")

 ;;

 D SHOW^ECOB(.X,HANDLE,"Pu","_class",JUSTIFY_"/")

 S RESULT=1

 Q

 ;;

CLEAR(RESULT,HANDLE,PARAMS) ; restore object to default state

 N PROPERTY,DEFAULT,X

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

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

 .D OBP(.DEFAULT,PROPERTY_".GetDefaultValue")

 .D OBP(.X,PROPERTY_".SetValue."_DEFAULT)

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

 S RESULT=1

 Q

 ;

DIAGRAM(RESULT,HANDLE,PARAMS) ; draw class diagram

 N CLASS,X,WIDTH,METHOD,PROPERTY,EXTEND,COLLECT,NAME

 D GET^ECOB(.CLASS,HANDLE,"Pu","_class")

 S X=$L(CLASS)+2

 S WIDTH=$S(X<20:20,X<40:40,X<60:60,1:70)

 D DIAGHDR(CLASS,WIDTH)

 ;;

 D DIAGSGMT("Methods",WIDTH)

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

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

 .D OBM(.NAME,METHOD_".GetName")

 .D DIAGATTR(NAME,WIDTH)

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

 .Q

 ;;

 D DIAGSGMT("Properties",WIDTH)

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

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

 .D OBP(.NAME,PROPERTY_".GetName")

 .D DIAGATTR(NAME,WIDTH)

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

 .Q

 ;;

 D DIAGSGMT("Extends",WIDTH)

 D METHOD(.EXTEND,HANDLE_".Root.First")

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

 .D:EXTEND'=CLASS DIAGATTR(EXTEND,WIDTH)

 .D METHOD(.EXTEND,HANDLE_".Root.Next")

 .Q

 D DIAGFTR(WIDTH)

 S RESULT=1

 Q

 ;

GET(RESULT,HANDLE,METHOD,PARAMS)  ;

 N PROPERTY,PROP

 S RESULT="-1^Invalid property"

 S PROPERTY=$P(PARAMS,".")

 D METHOD(.PROP,HANDLE_".Properties.Find1."_PROPERTY)

 D:PROP'="" OBP(.RESULT,PROP_".GetValue")

 Q

 ;;

INFO(RESULT,HANDLE,PARAMS) ;handler for business info display

 N JUSTIFY,OFFSET,PROPERTY

 D PARSE("Offset",PARAMS)

 W !,$J("Name : ",JUSTIFY),"Value"

 W !,$J("-----|-",JUSTIFY),"-----"

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

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

 .D OBP(.NAME,PROPERTY_".GetName")

 .D METHOD(.RESULT,HANDLE_".Show"_NAME_"."_JUSTIFY)

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

 .Q

 S RESULT=1

 ;;

PARSE(PARSE,VALUE)  ;

 I PARSE="Get" D  Q

 .S PROPERTY=$P(VALUE,".",1)

 .S PROPERTY=$P(PROPERTY,"Get",2)

 .Q

 I PARSE="Handle" D  Q

 .S HANDLE=$P(VALUE,".")

 .Q

 I PARSE="Handle1" D  Q

 .S NAME=$P(VALUE,".",1)

 .S COUNT=$P(VALUE,".",2)

 .Q

 I PARSE="Justify" D  Q

 .S JUSTIFY=$S(+VALUE:+VALUE,1:0)

 .Q

 I PARSE="Method" D  Q

 .S METHOD=$P(VALUE,".",2)

 .Q

 I PARSE="Offset" D  Q

 .S JUSTIFY=$S(+VALUE:+VALUE,1:0)

 .S OFFSET=JUSTIFY+5

 .Q

 I PARSE="Params" D  Q

 .S PARAMS=$P(VALUE,".",3,99)

 .Q

 I PARSE="Set" D  Q

 .S PROPERTY=$P(VALUE,".",1)

 .S PROPERTY=$P(PROPERTY,"Set",2)

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

 .Q

 I PARSE="Show" D  Q

 .S PROPERTY=$P(VALUE,".",1)

 .S PROPERTY=$P(PROPERTY,"Show",2)

 .Q

 Q

 ;

SET(RESULT,HANDLE,METHOD,PARAMS)  ;

 N PROPERTY,PROP

 S RESULT="-1^Invalid property"

 S PROPERTY=$P(PARAMS,".")

 S PARAMS=$P(PARAMS,".",2,99)

 D METHOD(.PROP,HANDLE_".Properties.Find1."_PROPERTY)

 D:PROP'="" OBP(.RESULT,PROP_".SetValue."_PARAMS)

 Q

 ;

SHOW(RESULT,HANDLE,METHOD,PARAMS) ; show a property

 N JUSTIFY,PROPERTY

 S PROPERTY=$P(PARAMS,".")

 S PARAMS=$P(PARAMS,".",2,99)

 D METHOD(.RESULT,HANDLE_".Get"_PROPERTY)

 Q:RESULT="-1^Invalid property"

 S JUSTIFY=$S(+PARAMS:+PARAMS,1:0)

 W !,$J("<"_PROPERTY_"> : ",JUSTIFY),RESULT

 Q

 ;;

 ;; public methods

CREATE(NAME)  ;

 ; call parent first

 N HANDLE,CHILD,METHOD,PROPERTY,X

 S HANDLE=$$CREATE^ECOB(NAME)

 D SELF^ECOB(.RESULT,HANDLE,"EC OBU UTILITY","Utility","METHOD^ECOBU(.RESULT,ARGUMENT)","ECOB")

 ;;

 S CHILD=$$CREATE^ECOB30(NAME)

 D COLLECT^ECOB(HANDLE,CHILD,"Pu","Collect")

 D METHOD^ECOB30(.X,CHILD_".SetCollector."_HANDLE)

 ;;

 S CHILD=$$CREATE^ECOBMC(NAME)

 D COLLECT^ECOB(HANDLE,CHILD,"Pu","Methods")

 ;; default ClassDiagram method

 D METHOD(.METHOD,HANDLE_".Methods.Add.ClassDiagram")

 D OBM(.X,METHOD_".SetAddedByClass.Utility")

 D OBM(.X,METHOD_".SetDescription.Displays diagram of the class.")

 D OBM(.X,METHOD_".SetHandler.DIAGRAM^ECOBU(.RESULT,HANDLE,PARAMS)")

 D OBM(.X,METHOD_".SetParams.")

 D OBM(.X,METHOD_".SetReturns.1")

 ;;

 ;; default ClassInfo method

 D METHOD(.METHOD,HANDLE_".Methods.Add.ClassInfo")

 D OBM(.X,METHOD_".SetAddedByClass.Utility")

 D OBM(.X,METHOD_".SetDescription.Displays information about the class.")

 D OBM(.X,METHOD_".SetHandler.CLASS^ECOBU(.RESULT,HANDLE,PARAMS)")

 D OBM(.X,METHOD_".SetParams.[Justify]")

 D OBM(.X,METHOD_".SetReturns.1")

 ;; default Clear method

 D METHOD(.METHOD,HANDLE_".Methods.Add.Clear")

 D OBM(.X,METHOD_".SetAddedByClass.Utility")

 D OBM(.X,METHOD_".SetDescription.Restores public attributes to default state.")

 D OBM(.X,METHOD_".SetHandler.CLEAR^ECOBU(.RESULT,HANDLE,PARAMS)")

 D OBM(.X,METHOD_".SetParams.")

 D OBM(.X,METHOD_".SetReturns.1")

 ;; default Get method

 D METHOD(.METHOD,HANDLE_".Methods.Add.Get")

 D OBM(.X,METHOD_".SetAddedByClass.Utility")

 D OBM(.X,METHOD_".SetDescription.Gets a property value.")

 D OBM(.X,METHOD_".SetHandler.GET^ECOBU(.RESULT,HANDLE,METHOD,PARAMS)")

 D OBM(.X,METHOD_".SetParams.Get[propertyName]")

 D OBM(.X,METHOD_".SetReturns.Property.Value")

 ;; default Set method

 D METHOD(.METHOD,HANDLE_".Methods.Add.Set")

 D OBM(.X,METHOD_".SetAddedByClass.Utility")

 D OBM(.X,METHOD_".SetDescription.Sets a property value.")

 D OBM(.X,METHOD_".SetHandler.SET^ECOBU(.RESULT,HANDLE,METHOD,PARAMS)")

 D OBM(.X,METHOD_".SetParams.Set[propertyName].[Value]")

 D OBM(.X,METHOD_".SetReturns.1 if successful, -1 otherwise")

 ;;

 D METHOD(.METHOD,HANDLE_".Methods.Add.Show")

 D OBM(.X,METHOD_".SetAddedByClass.Utility")

 D OBM(.X,METHOD_".SetDescription.Displays a property value.")

 D OBM(.X,METHOD_".SetHandler.SHOW^ECOBU(.RESULT,HANDLE,METHOD,PARAMS)")

 D OBM(.X,METHOD_".SetParams.[Justify]")

 D OBM(.X,METHOD_".SetReturns.[Property.Name] : [Property.Value]")

 ;;

 D METHOD(.METHOD,HANDLE_".Methods.Add.Info")

 D OBM(.X,METHOD_".SetAddedByClass.Utility")

 D OBM(.X,METHOD_".SetDescription.Displays business information.")

 D OBM(.X,METHOD_".SetHandler.INFO^ECOBU(.RESULT,HANDLE,PARAMS)")

 D OBM(.X,METHOD_".SetParams.[Justify]")

 D OBM(.X,METHOD_".SetReturns.1")

 ;;

 S CHILD=$$CREATE^ECOBPC(NAME)

 D COLLECT^ECOB(HANDLE,CHILD,"Pu","Properties")

 ;;

 D METHOD(.PROPERTY,HANDLE_".Properties.Add._this")

 D OBP(.X,PROPERTY_".SetAddedByClass.Utility")

 D OBP(.X,PROPERTY_".SetValue."_HANDLE)

 D OBP(.X,PROPERTY_".SetDefaultValue."_HANDLE)

 ;;

 S CHILD=$$CREATE^ECOBL(NAME)

 D COLLECT^ECOB(HANDLE,CHILD,"Pu","Root")

 ;;

 D METHOD(.X,HANDLE_".Root.Add.EC BASE")

 D METHOD(.X,HANDLE_".Root.Add.EC OBU UTILITY")

 ; complex properties last

 Q HANDLE

 ;;

DESTROY(HANDLE)  ;

 ; call parent last

 N CHILD

 D GET^ECOB(.CHILD,HANDLE,"Pu","Collect")

 D DESTROY^ECOB30(CHILD)

 D GET^ECOB(.CHILD,HANDLE,"Pu","Methods")

 D DESTROY^ECOBMC(CHILD)

 D GET^ECOB(.CHILD,HANDLE,"Pu","Properties")

 D DESTROY^ECOBPC(CHILD)

 D GET^ECOB(.CHILD,HANDLE,"Pu","Root")

 D DESTROY^ECOBL(CHILD)

 Q $$DESTROY^ECOB(HANDLE)

 ;;

FUNCTION(HANDLE,ARGUMENT)  ;

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

 N RESULT

 D METHOD(.RESULT,HANDLE_"."_ARGUMENT)

 Q RESULT

 ;

OUT(HANDLE,ARGUMENT)  ;

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

 N RESULT

 D METHOD(.RESULT,HANDLE_"."_ARGUMENT)

 Q RESULT

 ;

METHOD(RESULT,ARGUMENT)  ;

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

 N HANDLE,METHOD,PARAMS

 D PARSE("Handle",ARGUMENT)

 I $G(HANDLE)'="",'$D(@HANDLE) S RESULT="-1^No data at handle: "_HANDLE_"." Q  ;EC*129 - JAM

 D PARSE("Method",ARGUMENT)

 D PARSE("Params",ARGUMENT)

 I METHOD="Collect" D ECOB30(.RESULT,HANDLE,PARAMS) Q

 I METHOD="Methods" D ECOBMC(.RESULT,HANDLE,PARAMS) Q

 I METHOD="Properties" D ECOBPC(.RESULT,HANDLE,PARAMS) Q

 I METHOD="Root" D ECOBL(.RESULT,HANDLE,METHOD,PARAMS) Q

 I METHOD="mf" D ECOBM(.RESULT,HANDLE,PARAMS) Q

 I METHOD="of" D ECOB2(.RESULT,HANDLE,PARAMS) Q

 I METHOD="pf" D ECOBP(.RESULT,HANDLE,PARAMS) Q

 D HANDLERS(.RESULT,HANDLE,METHOD,PARAMS) Q

 ;;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECOBU   11353     printed  Feb 18, 2025@23:24:32                                                                                                                                                                                                      Page 2

ECOBU     ;BP/CMF - Utility Object ;8/21/2015

 +1       ;;2.0;EVENT CAPTURE;**100,129**;8 May 96;Build 7

 +2       ;@author  - Chris Flegel

 +3       ;@date    - 17 May 2009

 +4       ;@version - 1.0

 +5       ;;

 +6        QUIT 

 +7       ;; private methods

HANDLERS(RESULT,HANDLE,METHOD,PARAMS) ;;

 +1       ; find & execute handlers

 +2        NEW PROPERTY,HANDLES,FOUND,HANDLER,EXECUTER

 +3        SET RESULT="-1^Invalid method"

 +4        IF $EXTRACT(METHOD,1,3)="Get"

               Begin DoDot:1

 +5                DO PARSE("Get",METHOD)

 +6                SET PARAMS=PROPERTY_"."_PARAMS

 +7                SET METHOD="Get"

 +8                QUIT 

               End DoDot:1

 +9        IF $EXTRACT(METHOD,1,3)="Set"

               Begin DoDot:1

 +10               DO PARSE("Set",METHOD)

 +11               SET PARAMS=PROPERTY_"."_PARAMS

 +12               SET METHOD="Set"

 +13               QUIT 

               End DoDot:1

 +14       IF $EXTRACT(METHOD,1,4)="Show"

               Begin DoDot:1

 +15               DO PARSE("Show",METHOD)

 +16               SET PARAMS=PROPERTY_"."_PARAMS

 +17               SET METHOD="Show"

 +18               QUIT 

               End DoDot:1

 +19       DO METHOD(.HANDLER,HANDLE_".Methods.Find1."_METHOD)

 +20       DO METHOD^ECOBM(.EXECUTER,HANDLER_".GetHandler")

 +21      ;EC*129

           IF $GET(EXECUTER)=""

               QUIT 

 +22      ;EC*129

           IF ($PIECE(EXECUTER,"^")=0)!($PIECE(EXECUTER,"^")=-1)

               QUIT 

 +23       DO @EXECUTER

 +24       QUIT 

 +25      ;;

OBM(RESULT,ARGUMENT) ;shortcut to method class

 +1        DO METHOD^ECOBM(.RESULT,ARGUMENT)

           QUIT 

 +2       ;;

OBP(RESULT,ARGUMENT) ;shortcut to property class

 +1        DO METHOD^ECOBP(.RESULT,ARGUMENT)

           QUIT 

 +2       ;;

OB2(RESULT,ARGUMENT) ;shortcut to utility class

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

           QUIT 

 +2       ;;

ECOB30(RESULT,HANDLE,PARAMS) ;handler for collect object

 +1        NEW CHILD

 +2        DO GET^ECOB(.CHILD,HANDLE,"Pu","Collect")

 +3        DO METHOD^ECOB30(.RESULT,CHILD_"."_PARAMS)

 +4        QUIT 

 +5       ;;

ECOBL(RESULT,HANDLE,METHOD,PARAMS) ;handler for simple list

 +1        NEW CHILD

 +2        DO GET^ECOB(.CHILD,HANDLE,"Pu",METHOD)

 +3        DO METHOD^ECOBL(.RESULT,CHILD_"."_PARAMS)

 +4        QUIT 

 +5       ;;

ECOBMC(RESULT,HANDLE,PARAMS) ;handler for method collection

 +1        NEW CHILD

 +2        DO GET^ECOB(.CHILD,HANDLE,"Pu","Methods")

 +3        DO METHOD^ECOBMC(.RESULT,CHILD_"."_PARAMS)

 +4        QUIT 

 +5       ;;

ECOBPC(RESULT,HANDLE,PARAMS) ;handler for property collection

 +1        NEW CHILD

 +2        DO GET^ECOB(.CHILD,HANDLE,"Pu","Properties")

 +3        DO METHOD^ECOBPC(.RESULT,CHILD_"."_PARAMS)

 +4        QUIT 

 +5       ;;

ECOBM(RESULT,HANDLE,PARAMS) ;; pass-through

 +1        DO OBM(.RESULT,HANDLE_"."_PARAMS)

           QUIT 

 +2       ;;

ECOB2(RESULT,HANDLE,PARAMS) ;; pass-through

 +1        DO OB2(.RESULT,HANDLE_"."_PARAMS)

           QUIT 

 +2       ;;

ECOBP(RESULT,HANDLE,PARAMS) ; pass-through

 +1        DO OBP(.RESULT,HANDLE_"."_PARAMS)

           QUIT 

 +2       ;;

DIAGHDR(VALUE,WIDTH) ;;

 +1        NEW I,J

 +2        SET J=WIDTH-$LENGTH(VALUE)-1

 +3        WRITE !," "_VALUE_" "

 +4        FOR J=1:1:J

               WRITE "-"

 +5        WRITE "+"

 +6        QUIT 

DIAGSGMT(VALUE,WIDTH) ;;

 +1        NEW I,J,OUT,FILL

 +2        SET J=WIDTH-$LENGTH(VALUE)

 +3        SET OUT=" + "_VALUE_" "

 +4        SET FILL=""

 +5        FOR J=1:1:J

               SET FILL=FILL_"-"

 +6        SET OUT=$EXTRACT(OUT_FILL,1,WIDTH)_" |"

 +7        WRITE !,OUT

 +8        QUIT 

DIAGATTR(VALUE,WIDTH) ;;

 +1        NEW I,J,OUT,FILL

 +2        SET J=WIDTH-$LENGTH(VALUE)

 +3        SET OUT=" | * "_VALUE

 +4        if $LENGTH(VALUE)<WIDTH

               Begin DoDot:1

 +5                SET FILL=""

 +6                FOR J=1:1:J

                       SET FILL=FILL_" "

 +7                SET OUT=$EXTRACT(OUT_FILL,1,WIDTH)_" |"

 +8                QUIT 

               End DoDot:1

 +9        WRITE !,OUT

 +10       QUIT 

DIAGFTR(WIDTH) ;;

 +1        NEW I,J,OUT,FILL

 +2        SET J=WIDTH

 +3        SET OUT=" + "

 +4        SET FILL=""

 +5        FOR J=1:1:J

               SET FILL=FILL_"-"

 +6        SET OUT=$EXTRACT(OUT_FILL,1,J)_" +"

 +7        WRITE !,OUT

 +8        QUIT 

 +9       ;;

 +10      ;;protected methods

CLASS(RESULT,HANDLE,PARAMS) ;handler for class info display

 +1        NEW JUSTIFY,OFFSET,X,METH,PROP,ITEM

 +2        DO PARSE("Offset",PARAMS)

 +3        DO SHOW^ECOB(.X,HANDLE,"Pu","_class",JUSTIFY)

 +4       ;;

 +5        DO SHOW^ECOB(.X,HANDLE,"Pu","Methods",JUSTIFY)

 +6        DO METHOD(.X,HANDLE_".Methods.Info."_OFFSET)

 +7        DO SHOW^ECOB(.X,HANDLE,"Pu","Methods",JUSTIFY_"/")

 +8       ;;

 +9        DO SHOW^ECOB(.X,HANDLE,"Pu","Properties",JUSTIFY)

 +10       DO METHOD(.X,HANDLE_".Properties.Info."_OFFSET)

 +11       DO SHOW^ECOB(.X,HANDLE,"Pu","Properties",JUSTIFY_"/")

 +12      ;;

 +13       DO SHOW^ECOB(.X,HANDLE,"Pu","Root",JUSTIFY)

 +14       DO METHOD(.X,HANDLE_".Root.Info."_OFFSET)

 +15       DO SHOW^ECOB(.X,HANDLE,"Pu","Root",JUSTIFY_"/")

 +16      ;;

 +17       DO SHOW^ECOB(.X,HANDLE,"Pu","_class",JUSTIFY_"/")

 +18       SET RESULT=1

 +19       QUIT 

 +20      ;;

CLEAR(RESULT,HANDLE,PARAMS) ; restore object to default state

 +1        NEW PROPERTY,DEFAULT,X

 +2        DO METHOD(.PROPERTY,HANDLE_".Properties.First")

 +3        FOR 

               if PROPERTY="-1^End of list"

                   QUIT 

               Begin DoDot:1

 +4                DO OBP(.DEFAULT,PROPERTY_".GetDefaultValue")

 +5                DO OBP(.X,PROPERTY_".SetValue."_DEFAULT)

 +6                DO METHOD(.PROPERTY,HANDLE_".Properties.Next")

               End DoDot:1

 +7        SET RESULT=1

 +8        QUIT 

 +9       ;

DIAGRAM(RESULT,HANDLE,PARAMS) ; draw class diagram

 +1        NEW CLASS,X,WIDTH,METHOD,PROPERTY,EXTEND,COLLECT,NAME

 +2        DO GET^ECOB(.CLASS,HANDLE,"Pu","_class")

 +3        SET X=$LENGTH(CLASS)+2

 +4        SET WIDTH=$SELECT(X<20:20,X<40:40,X<60:60,1:70)

 +5        DO DIAGHDR(CLASS,WIDTH)

 +6       ;;

 +7        DO DIAGSGMT("Methods",WIDTH)

 +8        DO METHOD(.METHOD,HANDLE_".Methods.First")

 +9        FOR 

               if METHOD="-1^End of list"

                   QUIT 

               Begin DoDot:1

 +10               DO OBM(.NAME,METHOD_".GetName")

 +11               DO DIAGATTR(NAME,WIDTH)

 +12               DO METHOD(.METHOD,HANDLE_".Methods.Next")

 +13               QUIT 

               End DoDot:1

 +14      ;;

 +15       DO DIAGSGMT("Properties",WIDTH)

 +16       DO METHOD(.PROPERTY,HANDLE_".Properties.First")

 +17       FOR 

               if PROPERTY="-1^End of list"

                   QUIT 

               Begin DoDot:1

 +18               DO OBP(.NAME,PROPERTY_".GetName")

 +19               DO DIAGATTR(NAME,WIDTH)

 +20               DO METHOD(.PROPERTY,HANDLE_".Properties.Next")

 +21               QUIT 

               End DoDot:1

 +22      ;;

 +23       DO DIAGSGMT("Extends",WIDTH)

 +24       DO METHOD(.EXTEND,HANDLE_".Root.First")

 +25       FOR 

               if EXTEND="-1^End of list"

                   QUIT 

               Begin DoDot:1

 +26               if EXTEND'=CLASS

                       DO DIAGATTR(EXTEND,WIDTH)

 +27               DO METHOD(.EXTEND,HANDLE_".Root.Next")

 +28               QUIT 

               End DoDot:1

 +29       DO DIAGFTR(WIDTH)

 +30       SET RESULT=1

 +31       QUIT 

 +32      ;

GET(RESULT,HANDLE,METHOD,PARAMS) ;

 +1        NEW PROPERTY,PROP

 +2        SET RESULT="-1^Invalid property"

 +3        SET PROPERTY=$PIECE(PARAMS,".")

 +4        DO METHOD(.PROP,HANDLE_".Properties.Find1."_PROPERTY)

 +5        if PROP'=""

               DO OBP(.RESULT,PROP_".GetValue")

 +6        QUIT 

 +7       ;;

INFO(RESULT,HANDLE,PARAMS) ;handler for business info display

 +1        NEW JUSTIFY,OFFSET,PROPERTY

 +2        DO PARSE("Offset",PARAMS)

 +3        WRITE !,$JUSTIFY("Name : ",JUSTIFY),"Value"

 +4        WRITE !,$JUSTIFY("-----|-",JUSTIFY),"-----"

 +5        DO METHOD(.PROPERTY,HANDLE_".Properties.First")

 +6        FOR 

               if PROPERTY="-1^End of list"

                   QUIT 

               Begin DoDot:1

 +7                DO OBP(.NAME,PROPERTY_".GetName")

 +8                DO METHOD(.RESULT,HANDLE_".Show"_NAME_"."_JUSTIFY)

 +9                DO METHOD(.PROPERTY,HANDLE_".Properties.Next")

 +10               QUIT 

               End DoDot:1

 +11       SET RESULT=1

 +12      ;;

PARSE(PARSE,VALUE) ;

 +1        IF PARSE="Get"

               Begin DoDot:1

 +2                SET PROPERTY=$PIECE(VALUE,".",1)

 +3                SET PROPERTY=$PIECE(PROPERTY,"Get",2)

 +4                QUIT 

               End DoDot:1

               QUIT 

 +5        IF PARSE="Handle"

               Begin DoDot:1

 +6                SET HANDLE=$PIECE(VALUE,".")

 +7                QUIT 

               End DoDot:1

               QUIT 

 +8        IF PARSE="Handle1"

               Begin DoDot:1

 +9                SET NAME=$PIECE(VALUE,".",1)

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

 +11               QUIT 

               End DoDot:1

               QUIT 

 +12       IF PARSE="Justify"

               Begin DoDot:1

 +13               SET JUSTIFY=$SELECT(+VALUE:+VALUE,1:0)

 +14               QUIT 

               End DoDot:1

               QUIT 

 +15       IF PARSE="Method"

               Begin DoDot:1

 +16               SET METHOD=$PIECE(VALUE,".",2)

 +17               QUIT 

               End DoDot:1

               QUIT 

 +18       IF PARSE="Offset"

               Begin DoDot:1

 +19               SET JUSTIFY=$SELECT(+VALUE:+VALUE,1:0)

 +20               SET OFFSET=JUSTIFY+5

 +21               QUIT 

               End DoDot:1

               QUIT 

 +22       IF PARSE="Params"

               Begin DoDot:1

 +23               SET PARAMS=$PIECE(VALUE,".",3,99)

 +24               QUIT 

               End DoDot:1

               QUIT 

 +25       IF PARSE="Set"

               Begin DoDot:1

 +26               SET PROPERTY=$PIECE(VALUE,".",1)

 +27               SET PROPERTY=$PIECE(PROPERTY,"Set",2)

 +28               SET VALUE=$PIECE(VALUE,".",2)

 +29               QUIT 

               End DoDot:1

               QUIT 

 +30       IF PARSE="Show"

               Begin DoDot:1

 +31               SET PROPERTY=$PIECE(VALUE,".",1)

 +32               SET PROPERTY=$PIECE(PROPERTY,"Show",2)

 +33               QUIT 

               End DoDot:1

               QUIT 

 +34       QUIT 

 +35      ;

SET(RESULT,HANDLE,METHOD,PARAMS) ;

 +1        NEW PROPERTY,PROP

 +2        SET RESULT="-1^Invalid property"

 +3        SET PROPERTY=$PIECE(PARAMS,".")

 +4        SET PARAMS=$PIECE(PARAMS,".",2,99)

 +5        DO METHOD(.PROP,HANDLE_".Properties.Find1."_PROPERTY)

 +6        if PROP'=""

               DO OBP(.RESULT,PROP_".SetValue."_PARAMS)

 +7        QUIT 

 +8       ;

SHOW(RESULT,HANDLE,METHOD,PARAMS) ; show a property

 +1        NEW JUSTIFY,PROPERTY

 +2        SET PROPERTY=$PIECE(PARAMS,".")

 +3        SET PARAMS=$PIECE(PARAMS,".",2,99)

 +4        DO METHOD(.RESULT,HANDLE_".Get"_PROPERTY)

 +5        if RESULT="-1^Invalid property"

               QUIT 

 +6        SET JUSTIFY=$SELECT(+PARAMS:+PARAMS,1:0)

 +7        WRITE !,$JUSTIFY("<"_PROPERTY_"> : ",JUSTIFY),RESULT

 +8        QUIT 

 +9       ;;

 +10      ;; public methods

CREATE(NAME) ;

 +1       ; call parent first

 +2        NEW HANDLE,CHILD,METHOD,PROPERTY,X

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

 +4        DO SELF^ECOB(.RESULT,HANDLE,"EC OBU UTILITY","Utility","METHOD^ECOBU(.RESULT,ARGUMENT)","ECOB")

 +5       ;;

 +6        SET CHILD=$$CREATE^ECOB30(NAME)

 +7        DO COLLECT^ECOB(HANDLE,CHILD,"Pu","Collect")

 +8        DO METHOD^ECOB30(.X,CHILD_".SetCollector."_HANDLE)