ECOBVST ;BP/CMF - Visit object
;;2.0;EVENT CAPTURE;**100,107**;8 May 96;Build 14
;@author - Chris Flegel
;@date - 17 May 2009
;@version - 1.0
;;
Q
;; private methods
;;
;; protected methods
LOAD(RESULT,HANDLE,PARAMS) ;;
N X,P1,P2,P3,P4,P5,P6
D METHOD(.RESULT,HANDLE_".GetVisitIEN")
S P1=$P(PARAMS,U,1)
D METHOD(.RESULT,HANDLE_".SetFMDateTime."_P1)
D METHOD(.RESULT,HANDLE_".SetDateTime."_$$FMTE^XLFDT(P1,9))
S P2=$P(PARAMS,U,2)
D METHOD(.RESULT,HANDLE_".SetLocationIEN."_$P(P2,";",1))
D METHOD(.RESULT,HANDLE_".SetLocation."_$P(P2,";",2))
S P3=$P(PARAMS,U,3)
D METHOD(.RESULT,HANDLE_".SetServiceCategory."_P3)
S P4=$P(PARAMS,U,4)
D METHOD(.RESULT,HANDLE_".SetServiceConnected."_P4)
S P5=$P(PARAMS,U,5)
D METHOD(.RESULT,HANDLE_".SetPatientStatus."_P5)
S P6=$P(PARAMS,U,6)
D METHOD(.RESULT,HANDLE_".SetClinicStopIEN."_$P(P6,";",1))
D METHOD(.RESULT,HANDLE_".SetClinicStop."_$P(P6,";",2))
D STUB(.RESULT,HANDLE,PARAMS)
Q
;;
STUB(RESULT,HANDLE,PARAMS) ;;
N R1,R2,R3
D METHOD(.RESULT,HANDLE_".GetVisitIEN")
S RESULT=RESULT_U
D METHOD(.R1,HANDLE_".GetDateTime")
S RESULT=RESULT_$$LJ^XLFSTR(R1,20)
D METHOD(.R2,HANDLE_".GetLocation")
S RESULT=RESULT_$$LJ^XLFSTR(R2,30) ;llh 107, chngD lgth frm 25 to 30
D METHOD(.R3,HANDLE_".GetClinicStop")
;;S RESULT=RESULT_R3_U_R1_U_R2 llh 107 rmv ClinicStop frm display
S RESULT=RESULT_U_R1_U_R2_U_R3
Q
;; public methods
CREATE(NAME) ;
; call parent first
N HANDLE,X,CHILD
S HANDLE=$$CREATE^ECOB3(NAME)
D METHOD(.X,HANDLE_".of.Set_class.EC VISIT")
D METHOD(.X,HANDLE_".of.Set_name.Visit")
D METHOD(.X,HANDLE_".of.Set_routine.METHOD^ECOBVST(.RESULT,ARGUMENT)")
;;
D METHOD(.CHILD,HANDLE_".Properties.Add.VisitIEN")
D METHOD(.X,CHILD_".pf.AddedByClass.EC VISIT")
;;
D METHOD(.CHILD,HANDLE_".Properties.Add.FMDateTime")
D METHOD(.X,CHILD_".pf.AddedByClass.EC VISIT")
D METHOD(.CHILD,HANDLE_".Properties.Add.DateTime")
D METHOD(.X,CHILD_".pf.AddedByClass.EC VISIT")
;;
D METHOD(.CHILD,HANDLE_".Properties.Add.LocationIEN")
D METHOD(.X,CHILD_".pf.AddedByClass.EC VISIT")
D METHOD(.CHILD,HANDLE_".Properties.Add.Location")
D METHOD(.X,CHILD_".pf.AddedByClass.EC VISIT")
;;
D METHOD(.CHILD,HANDLE_".Properties.Add.ServiceCategory")
D METHOD(.X,CHILD_".pf.AddedByClass.EC VISIT")
;;
D METHOD(.CHILD,HANDLE_".Properties.Add.ServiceConnected")
D METHOD(.X,CHILD_".pf.AddedByClass.EC VISIT")
;;
D METHOD(.CHILD,HANDLE_".Properties.Add.PatientStatus")
D METHOD(.X,CHILD_".pf.AddedByClass.EC VISIT")
;;
D METHOD(.CHILD,HANDLE_".Properties.Add.ClinicStopIEN")
D METHOD(.X,CHILD_".pf.AddedByClass.EC VISIT")
D METHOD(.CHILD,HANDLE_".Properties.Add.ClinicStop")
D METHOD(.X,CHILD_".pf.AddedByClass.EC VISIT")
;;
D METHOD(.CHILD,HANDLE_".Methods.Add.VisitStub")
D METHOD(.X,CHILD_".mf.AddedByClass.EC VISIT")
D METHOD(.X,CHILD_".mf.SetDescription.Build Visit stub for EC VISITS.Execute.")
D METHOD(.X,CHILD_".mf.SetHandler.STUB^ECOBVST(.RESULT,HANDLE,PARAMS)")
D METHOD(.X,CHILD_".mf.SetParams.")
D METHOD(.X,CHILD_".mf.SetReturns.[VisitIen]^[string for pick list]")
;;
D METHOD(.CHILD,HANDLE_".Methods.Add.Load")
D METHOD(.X,CHILD_".mf.AddedByClass.EC VISIT")
D METHOD(.X,CHILD_".mf.SetDescription.Populate object from API string.")
D METHOD(.X,CHILD_".mf.SetHandler.LOAD^ECOBVST(.RESULT,HANDLE,PARAMS)")
D METHOD(.X,CHILD_".mf.SetParams.string from API to be loaded")
D METHOD(.X,CHILD_".mf.SetReturns.Result of Stub method")
;;
D METHOD(.X,HANDLE_".Root.Add.EC VISIT")
;
Q HANDLE
;;
DESTROY(HANDLE) ;
; call parent last
Q $$DESTROY^ECOB3(HANDLE)
;;
METHOD(RESULT,ARGUMENT) ;
; call parent last
D METHOD^ECOB3(.RESULT,ARGUMENT) ; parent method
Q
;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECOBVST 3875 printed Dec 13, 2024@01:58:11 Page 2
ECOBVST ;BP/CMF - Visit object
+1 ;;2.0;EVENT CAPTURE;**100,107**;8 May 96;Build 14
+2 ;@author - Chris Flegel
+3 ;@date - 17 May 2009
+4 ;@version - 1.0
+5 ;;
+6 QUIT
+7 ;; private methods
+8 ;;
+9 ;; protected methods
LOAD(RESULT,HANDLE,PARAMS) ;;
+1 NEW X,P1,P2,P3,P4,P5,P6
+2 DO METHOD(.RESULT,HANDLE_".GetVisitIEN")
+3 SET P1=$PIECE(PARAMS,U,1)
+4 DO METHOD(.RESULT,HANDLE_".SetFMDateTime."_P1)
+5 DO METHOD(.RESULT,HANDLE_".SetDateTime."_$$FMTE^XLFDT(P1,9))
+6 SET P2=$PIECE(PARAMS,U,2)
+7 DO METHOD(.RESULT,HANDLE_".SetLocationIEN."_$PIECE(P2,";",1))
+8 DO METHOD(.RESULT,HANDLE_".SetLocation."_$PIECE(P2,";",2))
+9 SET P3=$PIECE(PARAMS,U,3)
+10 DO METHOD(.RESULT,HANDLE_".SetServiceCategory."_P3)
+11 SET P4=$PIECE(PARAMS,U,4)
+12 DO METHOD(.RESULT,HANDLE_".SetServiceConnected."_P4)
+13 SET P5=$PIECE(PARAMS,U,5)
+14 DO METHOD(.RESULT,HANDLE_".SetPatientStatus."_P5)
+15 SET P6=$PIECE(PARAMS,U,6)
+16 DO METHOD(.RESULT,HANDLE_".SetClinicStopIEN."_$PIECE(P6,";",1))
+17 DO METHOD(.RESULT,HANDLE_".SetClinicStop."_$PIECE(P6,";",2))
+18 DO STUB(.RESULT,HANDLE,PARAMS)
+19 QUIT
+20 ;;
STUB(RESULT,HANDLE,PARAMS) ;;
+1 NEW R1,R2,R3
+2 DO METHOD(.RESULT,HANDLE_".GetVisitIEN")
+3 SET RESULT=RESULT_U
+4 DO METHOD(.R1,HANDLE_".GetDateTime")
+5 SET RESULT=RESULT_$$LJ^XLFSTR(R1,20)
+6 DO METHOD(.R2,HANDLE_".GetLocation")
+7 ;llh 107, chngD lgth frm 25 to 30
SET RESULT=RESULT_$$LJ^XLFSTR(R2,30)
+8 DO METHOD(.R3,HANDLE_".GetClinicStop")
+9 ;;S RESULT=RESULT_R3_U_R1_U_R2 llh 107 rmv ClinicStop frm display
+10 SET RESULT=RESULT_U_R1_U_R2_U_R3
+11 QUIT
+12 ;; public methods
CREATE(NAME) ;
+1 ; call parent first
+2 NEW HANDLE,X,CHILD
+3 SET HANDLE=$$CREATE^ECOB3(NAME)
+4 DO METHOD(.X,HANDLE_".of.Set_class.EC VISIT")
+5 DO METHOD(.X,HANDLE_".of.Set_name.Visit")
+6 DO METHOD(.X,HANDLE_".of.Set_routine.METHOD^ECOBVST(.RESULT,ARGUMENT)")
+7 ;;
+8 DO METHOD(.CHILD,HANDLE_".Properties.Add.VisitIEN")
+9 DO METHOD(.X,CHILD_".pf.AddedByClass.EC VISIT")
+10 ;;
+11 DO METHOD(.CHILD,HANDLE_".Properties.Add.FMDateTime")
+12 DO METHOD(.X,CHILD_".pf.AddedByClass.EC VISIT")
+13 DO METHOD(.CHILD,HANDLE_".Properties.Add.DateTime")
+14 DO METHOD(.X,CHILD_".pf.AddedByClass.EC VISIT")
+15 ;;
+16 DO METHOD(.CHILD,HANDLE_".Properties.Add.LocationIEN")
+17 DO METHOD(.X,CHILD_".pf.AddedByClass.EC VISIT")
+18 DO METHOD(.CHILD,HANDLE_".Properties.Add.Location")
+19 DO METHOD(.X,CHILD_".pf.AddedByClass.EC VISIT")
+20 ;;
+21 DO METHOD(.CHILD,HANDLE_".Properties.Add.ServiceCategory")
+22 DO METHOD(.X,CHILD_".pf.AddedByClass.EC VISIT")
+23 ;;
+24 DO METHOD(.CHILD,HANDLE_".Properties.Add.ServiceConnected")
+25 DO METHOD(.X,CHILD_".pf.AddedByClass.EC VISIT")
+26 ;;
+27 DO METHOD(.CHILD,HANDLE_".Properties.Add.PatientStatus")
+28 DO METHOD(.X,CHILD_".pf.AddedByClass.EC VISIT")
+29 ;;
+30 DO METHOD(.CHILD,HANDLE_".Properties.Add.ClinicStopIEN")
+31 DO METHOD(.X,CHILD_".pf.AddedByClass.EC VISIT")
+32 DO METHOD(.CHILD,HANDLE_".Properties.Add.ClinicStop")
+33 DO METHOD(.X,CHILD_".pf.AddedByClass.EC VISIT")
+34 ;;
+35 DO METHOD(.CHILD,HANDLE_".Methods.Add.VisitStub")
+36 DO METHOD(.X,CHILD_".mf.AddedByClass.EC VISIT")
+37 DO METHOD(.X,CHILD_".mf.SetDescription.Build Visit stub for EC VISITS.Execute.")
+38 DO METHOD(.X,CHILD_".mf.SetHandler.STUB^ECOBVST(.RESULT,HANDLE,PARAMS)")
+39 DO METHOD(.X,CHILD_".mf.SetParams.")
+40 DO METHOD(.X,CHILD_".mf.SetReturns.[VisitIen]^[string for pick list]")
+41 ;;
+42 DO METHOD(.CHILD,HANDLE_".Methods.Add.Load")
+43 DO METHOD(.X,CHILD_".mf.AddedByClass.EC VISIT")
+44 DO METHOD(.X,CHILD_".mf.SetDescription.Populate object from API string.")
+45 DO METHOD(.X,CHILD_".mf.SetHandler.LOAD^ECOBVST(.RESULT,HANDLE,PARAMS)")
+46 DO METHOD(.X,CHILD_".mf.SetParams.string from API to be loaded")
+47 DO METHOD(.X,CHILD_".mf.SetReturns.Result of Stub method")
+48 ;;
+49 DO METHOD(.X,HANDLE_".Root.Add.EC VISIT")
+50 ;
+51 QUIT HANDLE
+52 ;;
DESTROY(HANDLE) ;
+1 ; call parent last
+2 QUIT $$DESTROY^ECOB3(HANDLE)
+3 ;;
METHOD(RESULT,ARGUMENT) ;
+1 ; call parent last
+2 ; parent method
DO METHOD^ECOB3(.RESULT,ARGUMENT)
+3 QUIT
+4 ;;
