- 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 Jan 18, 2025@03:51:12 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