- ECOBARG ;BP/CMF - Argument Object
- ;;2.0;EVENT CAPTURE;**100**;8 May 96;Build 21
- ;@author - Chris Flegel
- ;@date - 17 May 2009
- ;@version - 1.0
- ;;
- Q
- ;; private methods
- ;;
- PARSE(PARSE,VALUE) ;
- D PARSE^ECOB(PARSE,VALUE)
- Q
- ;;
- PROPERTY(HANDLE,SCOPE,PROPERTY,VALUE) ;
- D PROPERTY^ECOB(HANDLE,SCOPE,PROPERTY,VALUE)
- Q
- ;;
- SETARG(RESULT,ARGUMENT) ;
- ; argument=(name.count[handle]).method.(additional.params...)
- N HANDLE
- S ARGUMENT=$G(ARGUMENT)
- D PARSE("Handle",ARGUMENT)
- D SET^ECOB(.RESULT,HANDLE,"Pu","Argument",ARGUMENT)
- D SET^ECOB(.RESULT,HANDLE,"Pu","Count",$P(ARGUMENT,".",2))
- D SET^ECOB(.RESULT,HANDLE,"Pu","Handle",HANDLE)
- D SET^ECOB(.RESULT,HANDLE,"Pu","Name",$P(ARGUMENT,".",1))
- D SET^ECOB(.RESULT,HANDLE,"Pu","Method",$P(ARGUMENT,".",3))
- D SET^ECOB(.RESULT,HANDLE,"Pu","Params",$P(ARGUMENT,".",4,99))
- Q
- ;;
- ;; public methods
- CREATE(NAME) ;
- ; call parent first
- N HANDLE,CHILD
- S HANDLE=$$CREATE^ECOB(NAME)
- D SELF^ECOB(.RESULT,HANDLE,"Method","Method","METHOD^ECOBM(.RESULT,ARGUMENT)","ECOB2")
- ;;
- D PROPERTY(HANDLE,"Pu","Argument","")
- D PROPERTY(HANDLE,"Pu","Count","")
- D PROPERTY(HANDLE,"Pu","Handle","")
- D PROPERTY(HANDLE,"Pu","Name","")
- D PROPERTY(HANDLE,"Pu","Method","")
- D PROPERTY(HANDLE,"Pu","Params","")
- ; complex properties last
- Q HANDLE
- ;;
- DESTROY(HANDLE) ;
- ; call parent last
- Q $$DESTROY^ECOB(HANDLE)
- ;;
- METHOD(RESULT,ARGUMENT) ;
- ; argument=(name.count[handle]).method.(additional.params...)
- N CHILD,HANDLE,METHOD,PARAMS
- D PARSE("Handle",ARGUMENT)
- D PARSE("Method",ARGUMENT)
- D PARSE("Params",ARGUMENT)
- I METHOD="SetArgument" D SETARG(.RESULT,ARGUMENT) Q
- S RESULT="-1^Invalid Argument"
- Q
- ;;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECOBARG 1717 printed Mar 13, 2025@21:02:52 Page 2
- ECOBARG ;BP/CMF - Argument 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 ;;
- PARSE(PARSE,VALUE) ;
- +1 DO PARSE^ECOB(PARSE,VALUE)
- +2 QUIT
- +3 ;;
- PROPERTY(HANDLE,SCOPE,PROPERTY,VALUE) ;
- +1 DO PROPERTY^ECOB(HANDLE,SCOPE,PROPERTY,VALUE)
- +2 QUIT
- +3 ;;
- SETARG(RESULT,ARGUMENT) ;
- +1 ; argument=(name.count[handle]).method.(additional.params...)
- +2 NEW HANDLE
- +3 SET ARGUMENT=$GET(ARGUMENT)
- +4 DO PARSE("Handle",ARGUMENT)
- +5 DO SET^ECOB(.RESULT,HANDLE,"Pu","Argument",ARGUMENT)
- +6 DO SET^ECOB(.RESULT,HANDLE,"Pu","Count",$PIECE(ARGUMENT,".",2))
- +7 DO SET^ECOB(.RESULT,HANDLE,"Pu","Handle",HANDLE)
- +8 DO SET^ECOB(.RESULT,HANDLE,"Pu","Name",$PIECE(ARGUMENT,".",1))
- +9 DO SET^ECOB(.RESULT,HANDLE,"Pu","Method",$PIECE(ARGUMENT,".",3))
- +10 DO SET^ECOB(.RESULT,HANDLE,"Pu","Params",$PIECE(ARGUMENT,".",4,99))
- +11 QUIT
- +12 ;;
- +13 ;; public methods
- CREATE(NAME) ;
- +1 ; call parent first
- +2 NEW HANDLE,CHILD
- +3 SET HANDLE=$$CREATE^ECOB(NAME)
- +4 DO SELF^ECOB(.RESULT,HANDLE,"Method","Method","METHOD^ECOBM(.RESULT,ARGUMENT)","ECOB2")
- +5 ;;
- +6 DO PROPERTY(HANDLE,"Pu","Argument","")
- +7 DO PROPERTY(HANDLE,"Pu","Count","")
- +8 DO PROPERTY(HANDLE,"Pu","Handle","")
- +9 DO PROPERTY(HANDLE,"Pu","Name","")
- +10 DO PROPERTY(HANDLE,"Pu","Method","")
- +11 DO PROPERTY(HANDLE,"Pu","Params","")
- +12 ; complex properties last
- +13 QUIT HANDLE
- +14 ;;
- DESTROY(HANDLE) ;
- +1 ; call parent last
- +2 QUIT $$DESTROY^ECOB(HANDLE)
- +3 ;;
- METHOD(RESULT,ARGUMENT) ;
- +1 ; argument=(name.count[handle]).method.(additional.params...)
- +2 NEW CHILD,HANDLE,METHOD,PARAMS
- +3 DO PARSE("Handle",ARGUMENT)
- +4 DO PARSE("Method",ARGUMENT)
- +5 DO PARSE("Params",ARGUMENT)
- +6 IF METHOD="SetArgument"
- DO SETARG(.RESULT,ARGUMENT)
- QUIT
- +7 SET RESULT="-1^Invalid Argument"
- +8 QUIT
- +9 ;;
