ECGTP.m

ECGTP ;ALB/CMF-driver for generic table printer;9 Aug 2009

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

EN ; entry point - NOT FOR INTERACTIVE

 Q

 ;

START ; entry when queued

 U IO

 D PRINT

 D END

 Q

 ;

PRINT  ; print the object

 N X

 D METHOD^ECOB40(.X,ECOBHNDL_".Execute")

 Q

 ;

END   ; cleanup

 D DESTROY^ECOB40(ECOBHNDL)

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECGTP   355     printed  Dec 13, 2024@01:57:27                                                                                                                                                                                                        Page 2

ECGTP     ;ALB/CMF-driver for generic table printer;9 Aug 2009

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

EN        ; entry point - NOT FOR INTERACTIVE

 +1        QUIT 

 +2       ;

START     ; entry when queued

 +1        USE IO

 +2        DO PRINT

 +3        DO END

 +4        QUIT 

 +5       ;

PRINT     ; print the object

 +1        NEW X

 +2        DO METHOD^ECOB40(.X,ECOBHNDL_".Execute")

 +3        QUIT 

 +4       ;

END       ; cleanup

 +1        DO DESTROY^ECOB40(ECOBHNDL)

 +2        QUIT 

 +3       ;