ECOB41 ;BP/CMF - DSS UNIT Table Print Object
;;2.0;EVENT CAPTURE;**100**;8 May 96;Build 21
;@author - Chris Flegel
;@date - 17 May 2009
;@version - 1.0
;;
Q
;; private methods
;;
;; protected methods
;; public methods
CREATE(NAME) ;
; call parent first
N HANDLE,X,CHILD
S HANDLE=$$CREATE^ECOB40(NAME)
D METHOD(.X,HANDLE_".of.Set_class.EC DSS UNIT TABLE")
D METHOD(.X,HANDLE_".of.Set_name.DSS Unit Table Print")
D METHOD(.X,HANDLE_".of.Set_routine.METHOD^ECOB41(.RESULT,ARGUMENT)")
;;
D METHOD(.X,HANDLE_".Headers.Add.DSS Unit Name^26")
D METHOD(.X,HANDLE_".Headers.Add.Unit IEN^9")
D METHOD(.X,HANDLE_".Headers.Add.Active^9")
D METHOD(.X,HANDLE_".Headers.Add.PCE^9")
D METHOD(.X,HANDLE_".Headers.Add.DSS Dept^14")
D METHOD(.X,HANDLE_".Headers.Add.Service^22")
D METHOD(.X,HANDLE_".Headers.Add.Medical Specialty^19")
D METHOD(.X,HANDLE_".Headers.Add.Cost Center^17")
;;
D METHOD(.X,HANDLE_".SetTableName.DSS Units")
;;
D METHOD(.X,HANDLE_".Root.Add.EC DSS UNIT TABLE")
;
Q HANDLE
;;
DESTROY(HANDLE) ;
; call parent last
Q $$DESTROY^ECOB40(HANDLE)
;;
METHOD(RESULT,ARGUMENT) ;
; call parent last
D METHOD^ECOB40(.RESULT,ARGUMENT) ; parent method
Q
;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECOB41 1239 printed Nov 22, 2024@17:08:09 Page 2
ECOB41 ;BP/CMF - DSS UNIT Table Print 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 ;;
+9 ;; protected methods
+10 ;; public methods
CREATE(NAME) ;
+1 ; call parent first
+2 NEW HANDLE,X,CHILD
+3 SET HANDLE=$$CREATE^ECOB40(NAME)
+4 DO METHOD(.X,HANDLE_".of.Set_class.EC DSS UNIT TABLE")
+5 DO METHOD(.X,HANDLE_".of.Set_name.DSS Unit Table Print")
+6 DO METHOD(.X,HANDLE_".of.Set_routine.METHOD^ECOB41(.RESULT,ARGUMENT)")
+7 ;;
+8 DO METHOD(.X,HANDLE_".Headers.Add.DSS Unit Name^26")
+9 DO METHOD(.X,HANDLE_".Headers.Add.Unit IEN^9")
+10 DO METHOD(.X,HANDLE_".Headers.Add.Active^9")
+11 DO METHOD(.X,HANDLE_".Headers.Add.PCE^9")
+12 DO METHOD(.X,HANDLE_".Headers.Add.DSS Dept^14")
+13 DO METHOD(.X,HANDLE_".Headers.Add.Service^22")
+14 DO METHOD(.X,HANDLE_".Headers.Add.Medical Specialty^19")
+15 DO METHOD(.X,HANDLE_".Headers.Add.Cost Center^17")
+16 ;;
+17 DO METHOD(.X,HANDLE_".SetTableName.DSS Units")
+18 ;;
+19 DO METHOD(.X,HANDLE_".Root.Add.EC DSS UNIT TABLE")
+20 ;
+21 QUIT HANDLE
+22 ;;
DESTROY(HANDLE) ;
+1 ; call parent last
+2 QUIT $$DESTROY^ECOB40(HANDLE)
+3 ;;
METHOD(RESULT,ARGUMENT) ;
+1 ; call parent last
+2 ; parent method
DO METHOD^ECOB40(.RESULT,ARGUMENT)
+3 QUIT
+4 ;;
