SDEC1 ;ALB/ANU,TAW,LAB - VISTA SCHEDULING RPCS ;APR 1, 2022
;;5.3;Scheduling;**774,781,784,785,797,800,803,807,814**;Aug 13, 1993;Build 11
;;Per VHA Directive 6402, this routine should not be modified
;
ARGETIEN(RET,IEN) ;RPC: SDEC GET PAT APPT REQ BY IEN
D ARGETIEN^SDECAR4(.RET,IEN) Q
ARGETPAT(RET,DFN) ;RPC: SDEC PATIENT APPT REQ GET
D ARGETPAT^SDECAR4(.RET,DFN) Q
ARGETPATJSON(RET,DFN) ;RPC: SDEC APPT REQ GET PATIENT JSON
D ARGETPATJSON^SDECAR4(.RET,DFN) Q
CONSLIST(SDECY,DFN) ;EP SDEC GET PATIENT CONSULTS
D CONSLIST^SDEC51B(.SDECY,DFN) Q ;Return a list of ACTIVE or PENDING CONSULTS for patient
CONSULT1(SDECY,IEN) ; This RPC returns the patient Consult associated with a given IEN - SDEC GET PAT CONSULT BY IEN
D CONSULT1^SDEC51B(.SDECY,IEN) Q
CLGRPLK(SDECY,SRCHAR) ;EP SDEC CLINIC GROUP LOOKUP
D CLGRPLK^SDEC63(.SDECY,SRCHAR) Q
DISMULT(RTT,CIEN) ; RPC: SDEC CONTACT MULTI-DISPLAY
D DISMULT^SDECCON(.RTT,CIEN) Q
DELETEVVSID(RETURN,DFN,RESOURCE,APPTDATETIME) ;This RPC deletes Video Visit ID from SDEC APPOINTMENT(#409.84) file
D DELETEVVSID^SDECVVS(.RETURN,DFN,RESOURCE,APPTDATETIME) Q
DISPLAY(RTU,DFN,CLN,PDT,REQT,SER) ; RPC: SDEC CONTACT DISPLAY
D DISPLAY^SDECCON(.RTU,DFN,CLN,PDT,REQT,SER) Q
DISPLAY1(RTU,REQT,RIEN) ; RPC: SDEC CONTACT DISPLAY SINGLE
D DISPLAY1^SDECCON(.RTU,REQT,RIEN) Q ; RPC: SDEC CONTACT DISPLAY SINGLE
DUZSTATIONID(SDECY) ; SDEC GET STATION ID
D DUZSTATIONID^SDECDUZ(.SDECY) Q
GETPATDEMOG(SDECY,SDECP,SDECC,LASTSUB) ;EP Patient Lookup "LITE"; VSE-664
D GETPATDEMOG^SDEC28L(.SDECY,$G(SDECP),$G(SDECC),$G(LASTSUB)) Q
GETPATIENTICN(RETURN,PATIENTIEN) ;GET PATIENT ICN FROM PATIENT IEN (DFN)
D GETPATIENTICN^SDECVVS(.RETURN,PATIENTIEN) Q
GETSTC(RET,CLIEN) ; RPC: SDEC CONTACT STOP CODE
D GETSTC^SDECCON(.RET,CLIEN) Q
GETSPACEBARPRO(VVSPRORETURN) ;SPACEBAR RETURN LAST PROVIDER
D GETSPACEBARPRO^SDECVVS(.VVSPRORETURN) Q
GETVVSMAKEINFO(VVSMAKEINFO,PATIENTIEN,CLINICIEN) ;GET INFO TO MAKE A VIDEO VISIT WEB SERVICE (VVS) CALL
D GETVVSMAKEINFO^SDECVVS(.VVSMAKEINFO,PATIENTIEN,CLINICIEN) Q
GETWLIEN(RET,APPTIEN) ;
D GETWLIEN^SDEC63(.RET,APPTIEN) Q
GETVVSID(RETURN,DFN,RESOURCE,APPTDATETIME) ;This RPC returns the Video Visit Service (VVS) ID.
D GETVVSID^SDECVVS(.RETURN,DFN,RESOURCE,APPTDATETIME) Q
JSONCONSLIST(SDEC,DFN) ;EP RPC: SDEC GET PATIENT CONSULTS JSON
D JSONCONSLIST^SDECCONSJSON(.SDEC,DFN) Q
JSONCONSLIST1(SDEC,IEN) ;EP RPC: SDEC GET PATIENT CONSULT JSON
D JSONCONSLIST1^SDECCONSJSON(.SDEC,IEN) Q
NEW(RET,DFN,CLI,DTP,REQT,SRV,DTCON,CONT,COM,DTENT,RIEN) ; RPC: SDEC CONTACT NEW
D NEW^SDECCON(.RET,DFN,CLI,DTP,REQT,SRV,DTCON,CONT,COM,DTENT,RIEN) Q
PREREG(SDECY,DFN,PRESTAT) ;
D PREREG^SDECUPDPATPREREG(.SDECY,DFN,PRESTAT) ;UPDATE PATIENT PRE-REGISTRATION
RECGET(SDECY,DFN) ;This RPC returns all open recall requests associated with a patient in a delimited string
D RECGET^SDEC52C(.SDECY,DFN) Q
RECGETJSON(SDECY,DFN) ; This RPC returns all open recall requests associated with a patient in JSON format
D RECGETJSON^SDEC52CJSON(.SDECY,DFN) Q
RECGETONE(SDECY,IEN) ; This RPC returns the open recall associated with a given IEN
D RECGETONE^SDEC52C(.SDECY,IEN) Q
RECGETONEJSON(SDECY,IEN) ; This RPC returns the open recall associated with a given IEN in JSON format
D RECGETONEJSON^SDEC52CJSON(.SDECY,IEN) Q
RESGRP(SDECY,SDECDUZ,GRPIEN) ;EP SDEC CLINIC GROUP RETURN
D RESGRP^SDEC63(.SDECY,SDECDUZ,GRPIEN) Q
SAVEVVSID(RETURN,DFN,RESOURCE,APPT,VVSID) ;This RPC saves the VVS appointment ID in the SDEC APPOINTMENT file
D SAVEVVSID^SDECVVS(.RETURN,DFN,RESOURCE,APPT,VVSID) Q
SEQ(RE1,DF1,CL1,PDATE,RTYPE,SRR) ; RPC: SDEC CONTACT SEQUENCE
D SEQ^SDECCON(.RE1,DF1,CL1,PDATE,RTYPE,SRR) Q
SEQ1(RTU,REQT,RIEN) ; RPC: SDEC CONTACT SEQUENCE SINGLE
D SEQ1^SDECCON(.RTU,REQT,RIEN) Q
UPDATE(RTT,IEN,CONDT,CTYPE,COMM,DTEN) ; RPC: SDEC CONTACT UPDATE
D UPDATE^SDECCON(.RTT,IEN,CONDT,CTYPE,COMM,DTEN) Q
VVSPROSEARCH(VVSPROVIDERS,SEARCHSTRING) ;SEARCH PROVIDERS & GET DATA TO MAKE VIDEO VISIT SERVICE (VVS) APPT
D VVSPROSEARCH^SDECVVS(.VVSPROVIDERS,SEARCHSTRING) Q
JSONVVSMAKEINFO(VVSMAKEINFO,PATIENTIEN,CLINICIEN,APPTDTTM) ;GET INFO TO MAKE A VIDEO VISIT WEB SERVICE (VVS) CALL
D GETVVSMAKEINFO^SDECVVSJSON(.VVSMAKEINFO,PATIENTIEN,CLINICIEN,APPTDTTM) Q
JSONVVSPRVSRCH(SDEC,SRCHSTR) ;EP RPC: SDEC SEARCH VVS PROVIDERS JSON
D JSONPRVLIST^SDECPRVSRCHJSON(.SDEC,SRCHSTR) Q
GETINST(SDECY) ;EP RPC: SDEC GET INSTITUTION
D GETINST^SDEC46(.SDECY)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDEC1 4472 printed Oct 16, 2024@18:50:39 Page 2
SDEC1 ;ALB/ANU,TAW,LAB - VISTA SCHEDULING RPCS ;APR 1, 2022
+1 ;;5.3;Scheduling;**774,781,784,785,797,800,803,807,814**;Aug 13, 1993;Build 11
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 ;
ARGETIEN(RET,IEN) ;RPC: SDEC GET PAT APPT REQ BY IEN
+1 DO ARGETIEN^SDECAR4(.RET,IEN)
QUIT
ARGETPAT(RET,DFN) ;RPC: SDEC PATIENT APPT REQ GET
+1 DO ARGETPAT^SDECAR4(.RET,DFN)
QUIT
ARGETPATJSON(RET,DFN) ;RPC: SDEC APPT REQ GET PATIENT JSON
+1 DO ARGETPATJSON^SDECAR4(.RET,DFN)
QUIT
CONSLIST(SDECY,DFN) ;EP SDEC GET PATIENT CONSULTS
+1 ;Return a list of ACTIVE or PENDING CONSULTS for patient
DO CONSLIST^SDEC51B(.SDECY,DFN)
QUIT
CONSULT1(SDECY,IEN) ; This RPC returns the patient Consult associated with a given IEN - SDEC GET PAT CONSULT BY IEN
+1 DO CONSULT1^SDEC51B(.SDECY,IEN)
QUIT
CLGRPLK(SDECY,SRCHAR) ;EP SDEC CLINIC GROUP LOOKUP
+1 DO CLGRPLK^SDEC63(.SDECY,SRCHAR)
QUIT
DISMULT(RTT,CIEN) ; RPC: SDEC CONTACT MULTI-DISPLAY
+1 DO DISMULT^SDECCON(.RTT,CIEN)
QUIT
DELETEVVSID(RETURN,DFN,RESOURCE,APPTDATETIME) ;This RPC deletes Video Visit ID from SDEC APPOINTMENT(#409.84) file
+1 DO DELETEVVSID^SDECVVS(.RETURN,DFN,RESOURCE,APPTDATETIME)
QUIT
DISPLAY(RTU,DFN,CLN,PDT,REQT,SER) ; RPC: SDEC CONTACT DISPLAY
+1 DO DISPLAY^SDECCON(.RTU,DFN,CLN,PDT,REQT,SER)
QUIT
DISPLAY1(RTU,REQT,RIEN) ; RPC: SDEC CONTACT DISPLAY SINGLE
+1 ; RPC: SDEC CONTACT DISPLAY SINGLE
DO DISPLAY1^SDECCON(.RTU,REQT,RIEN)
QUIT
DUZSTATIONID(SDECY) ; SDEC GET STATION ID
+1 DO DUZSTATIONID^SDECDUZ(.SDECY)
QUIT
GETPATDEMOG(SDECY,SDECP,SDECC,LASTSUB) ;EP Patient Lookup "LITE"; VSE-664
+1 DO GETPATDEMOG^SDEC28L(.SDECY,$GET(SDECP),$GET(SDECC),$GET(LASTSUB))
QUIT
GETPATIENTICN(RETURN,PATIENTIEN) ;GET PATIENT ICN FROM PATIENT IEN (DFN)
+1 DO GETPATIENTICN^SDECVVS(.RETURN,PATIENTIEN)
QUIT
GETSTC(RET,CLIEN) ; RPC: SDEC CONTACT STOP CODE
+1 DO GETSTC^SDECCON(.RET,CLIEN)
QUIT
GETSPACEBARPRO(VVSPRORETURN) ;SPACEBAR RETURN LAST PROVIDER
+1 DO GETSPACEBARPRO^SDECVVS(.VVSPRORETURN)
QUIT
GETVVSMAKEINFO(VVSMAKEINFO,PATIENTIEN,CLINICIEN) ;GET INFO TO MAKE A VIDEO VISIT WEB SERVICE (VVS) CALL
+1 DO GETVVSMAKEINFO^SDECVVS(.VVSMAKEINFO,PATIENTIEN,CLINICIEN)
QUIT
GETWLIEN(RET,APPTIEN) ;
+1 DO GETWLIEN^SDEC63(.RET,APPTIEN)
QUIT
GETVVSID(RETURN,DFN,RESOURCE,APPTDATETIME) ;This RPC returns the Video Visit Service (VVS) ID.
+1 DO GETVVSID^SDECVVS(.RETURN,DFN,RESOURCE,APPTDATETIME)
QUIT
JSONCONSLIST(SDEC,DFN) ;EP RPC: SDEC GET PATIENT CONSULTS JSON
+1 DO JSONCONSLIST^SDECCONSJSON(.SDEC,DFN)
QUIT
JSONCONSLIST1(SDEC,IEN) ;EP RPC: SDEC GET PATIENT CONSULT JSON
+1 DO JSONCONSLIST1^SDECCONSJSON(.SDEC,IEN)
QUIT
NEW(RET,DFN,CLI,DTP,REQT,SRV,DTCON,CONT,COM,DTENT,RIEN) ; RPC: SDEC CONTACT NEW
+1 DO NEW^SDECCON(.RET,DFN,CLI,DTP,REQT,SRV,DTCON,CONT,COM,DTENT,RIEN)
QUIT
PREREG(SDECY,DFN,PRESTAT) ;
+1 ;UPDATE PATIENT PRE-REGISTRATION
DO PREREG^SDECUPDPATPREREG(.SDECY,DFN,PRESTAT)
RECGET(SDECY,DFN) ;This RPC returns all open recall requests associated with a patient in a delimited string
+1 DO RECGET^SDEC52C(.SDECY,DFN)
QUIT
RECGETJSON(SDECY,DFN) ; This RPC returns all open recall requests associated with a patient in JSON format
+1 DO RECGETJSON^SDEC52CJSON(.SDECY,DFN)
QUIT
RECGETONE(SDECY,IEN) ; This RPC returns the open recall associated with a given IEN
+1 DO RECGETONE^SDEC52C(.SDECY,IEN)
QUIT
RECGETONEJSON(SDECY,IEN) ; This RPC returns the open recall associated with a given IEN in JSON format
+1 DO RECGETONEJSON^SDEC52CJSON(.SDECY,IEN)
QUIT
RESGRP(SDECY,SDECDUZ,GRPIEN) ;EP SDEC CLINIC GROUP RETURN
+1 DO RESGRP^SDEC63(.SDECY,SDECDUZ,GRPIEN)
QUIT
SAVEVVSID(RETURN,DFN,RESOURCE,APPT,VVSID) ;This RPC saves the VVS appointment ID in the SDEC APPOINTMENT file
+1 DO SAVEVVSID^SDECVVS(.RETURN,DFN,RESOURCE,APPT,VVSID)
QUIT
SEQ(RE1,DF1,CL1,PDATE,RTYPE,SRR) ; RPC: SDEC CONTACT SEQUENCE
+1 DO SEQ^SDECCON(.RE1,DF1,CL1,PDATE,RTYPE,SRR)
QUIT
SEQ1(RTU,REQT,RIEN) ; RPC: SDEC CONTACT SEQUENCE SINGLE
+1 DO SEQ1^SDECCON(.RTU,REQT,RIEN)
QUIT
UPDATE(RTT,IEN,CONDT,CTYPE,COMM,DTEN) ; RPC: SDEC CONTACT UPDATE
+1 DO UPDATE^SDECCON(.RTT,IEN,CONDT,CTYPE,COMM,DTEN)
QUIT
VVSPROSEARCH(VVSPROVIDERS,SEARCHSTRING) ;SEARCH PROVIDERS & GET DATA TO MAKE VIDEO VISIT SERVICE (VVS) APPT
+1 DO VVSPROSEARCH^SDECVVS(.VVSPROVIDERS,SEARCHSTRING)
QUIT
JSONVVSMAKEINFO(VVSMAKEINFO,PATIENTIEN,CLINICIEN,APPTDTTM) ;GET INFO TO MAKE A VIDEO VISIT WEB SERVICE (VVS) CALL
+1 DO GETVVSMAKEINFO^SDECVVSJSON(.VVSMAKEINFO,PATIENTIEN,CLINICIEN,APPTDTTM)
QUIT
JSONVVSPRVSRCH(SDEC,SRCHSTR) ;EP RPC: SDEC SEARCH VVS PROVIDERS JSON
+1 DO JSONPRVLIST^SDECPRVSRCHJSON(.SDEC,SRCHSTR)
QUIT
GETINST(SDECY) ;EP RPC: SDEC GET INSTITUTION
+1 DO GETINST^SDEC46(.SDECY)
+2 QUIT
