Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDEC1

SDEC1.m

Go to the documentation of this file.
  1. 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
  1. ;;Per VHA Directive 6402, this routine should not be modified
  1. ;
  1. ARGETIEN(RET,IEN) ;RPC: SDEC GET PAT APPT REQ BY IEN
  1. D ARGETIEN^SDECAR4(.RET,IEN) Q
  1. ARGETPAT(RET,DFN) ;RPC: SDEC PATIENT APPT REQ GET
  1. D ARGETPAT^SDECAR4(.RET,DFN) Q
  1. ARGETPATJSON(RET,DFN) ;RPC: SDEC APPT REQ GET PATIENT JSON
  1. D ARGETPATJSON^SDECAR4(.RET,DFN) Q
  1. CONSLIST(SDECY,DFN) ;EP SDEC GET PATIENT CONSULTS
  1. D CONSLIST^SDEC51B(.SDECY,DFN) Q ;Return a list of ACTIVE or PENDING CONSULTS for patient
  1. CONSULT1(SDECY,IEN) ; This RPC returns the patient Consult associated with a given IEN - SDEC GET PAT CONSULT BY IEN
  1. D CONSULT1^SDEC51B(.SDECY,IEN) Q
  1. CLGRPLK(SDECY,SRCHAR) ;EP SDEC CLINIC GROUP LOOKUP
  1. D CLGRPLK^SDEC63(.SDECY,SRCHAR) Q
  1. DISMULT(RTT,CIEN) ; RPC: SDEC CONTACT MULTI-DISPLAY
  1. D DISMULT^SDECCON(.RTT,CIEN) Q
  1. DELETEVVSID(RETURN,DFN,RESOURCE,APPTDATETIME) ;This RPC deletes Video Visit ID from SDEC APPOINTMENT(#409.84) file
  1. D DELETEVVSID^SDECVVS(.RETURN,DFN,RESOURCE,APPTDATETIME) Q
  1. DISPLAY(RTU,DFN,CLN,PDT,REQT,SER) ; RPC: SDEC CONTACT DISPLAY
  1. D DISPLAY^SDECCON(.RTU,DFN,CLN,PDT,REQT,SER) Q
  1. DISPLAY1(RTU,REQT,RIEN) ; RPC: SDEC CONTACT DISPLAY SINGLE
  1. D DISPLAY1^SDECCON(.RTU,REQT,RIEN) Q ; RPC: SDEC CONTACT DISPLAY SINGLE
  1. DUZSTATIONID(SDECY) ; SDEC GET STATION ID
  1. D DUZSTATIONID^SDECDUZ(.SDECY) Q
  1. GETPATDEMOG(SDECY,SDECP,SDECC,LASTSUB) ;EP Patient Lookup "LITE"; VSE-664
  1. D GETPATDEMOG^SDEC28L(.SDECY,$G(SDECP),$G(SDECC),$G(LASTSUB)) Q
  1. GETPATIENTICN(RETURN,PATIENTIEN) ;GET PATIENT ICN FROM PATIENT IEN (DFN)
  1. D GETPATIENTICN^SDECVVS(.RETURN,PATIENTIEN) Q
  1. GETSTC(RET,CLIEN) ; RPC: SDEC CONTACT STOP CODE
  1. D GETSTC^SDECCON(.RET,CLIEN) Q
  1. GETSPACEBARPRO(VVSPRORETURN) ;SPACEBAR RETURN LAST PROVIDER
  1. D GETSPACEBARPRO^SDECVVS(.VVSPRORETURN) Q
  1. GETVVSMAKEINFO(VVSMAKEINFO,PATIENTIEN,CLINICIEN) ;GET INFO TO MAKE A VIDEO VISIT WEB SERVICE (VVS) CALL
  1. D GETVVSMAKEINFO^SDECVVS(.VVSMAKEINFO,PATIENTIEN,CLINICIEN) Q
  1. GETWLIEN(RET,APPTIEN) ;
  1. D GETWLIEN^SDEC63(.RET,APPTIEN) Q
  1. GETVVSID(RETURN,DFN,RESOURCE,APPTDATETIME) ;This RPC returns the Video Visit Service (VVS) ID.
  1. D GETVVSID^SDECVVS(.RETURN,DFN,RESOURCE,APPTDATETIME) Q
  1. JSONCONSLIST(SDEC,DFN) ;EP RPC: SDEC GET PATIENT CONSULTS JSON
  1. D JSONCONSLIST^SDECCONSJSON(.SDEC,DFN) Q
  1. JSONCONSLIST1(SDEC,IEN) ;EP RPC: SDEC GET PATIENT CONSULT JSON
  1. D JSONCONSLIST1^SDECCONSJSON(.SDEC,IEN) Q
  1. NEW(RET,DFN,CLI,DTP,REQT,SRV,DTCON,CONT,COM,DTENT,RIEN) ; RPC: SDEC CONTACT NEW
  1. D NEW^SDECCON(.RET,DFN,CLI,DTP,REQT,SRV,DTCON,CONT,COM,DTENT,RIEN) Q
  1. PREREG(SDECY,DFN,PRESTAT) ;
  1. D PREREG^SDECUPDPATPREREG(.SDECY,DFN,PRESTAT) ;UPDATE PATIENT PRE-REGISTRATION
  1. RECGET(SDECY,DFN) ;This RPC returns all open recall requests associated with a patient in a delimited string
  1. D RECGET^SDEC52C(.SDECY,DFN) Q
  1. RECGETJSON(SDECY,DFN) ; This RPC returns all open recall requests associated with a patient in JSON format
  1. D RECGETJSON^SDEC52CJSON(.SDECY,DFN) Q
  1. RECGETONE(SDECY,IEN) ; This RPC returns the open recall associated with a given IEN
  1. D RECGETONE^SDEC52C(.SDECY,IEN) Q
  1. RECGETONEJSON(SDECY,IEN) ; This RPC returns the open recall associated with a given IEN in JSON format
  1. D RECGETONEJSON^SDEC52CJSON(.SDECY,IEN) Q
  1. RESGRP(SDECY,SDECDUZ,GRPIEN) ;EP SDEC CLINIC GROUP RETURN
  1. D RESGRP^SDEC63(.SDECY,SDECDUZ,GRPIEN) Q
  1. SAVEVVSID(RETURN,DFN,RESOURCE,APPT,VVSID) ;This RPC saves the VVS appointment ID in the SDEC APPOINTMENT file
  1. D SAVEVVSID^SDECVVS(.RETURN,DFN,RESOURCE,APPT,VVSID) Q
  1. SEQ(RE1,DF1,CL1,PDATE,RTYPE,SRR) ; RPC: SDEC CONTACT SEQUENCE
  1. D SEQ^SDECCON(.RE1,DF1,CL1,PDATE,RTYPE,SRR) Q
  1. SEQ1(RTU,REQT,RIEN) ; RPC: SDEC CONTACT SEQUENCE SINGLE
  1. D SEQ1^SDECCON(.RTU,REQT,RIEN) Q
  1. UPDATE(RTT,IEN,CONDT,CTYPE,COMM,DTEN) ; RPC: SDEC CONTACT UPDATE
  1. D UPDATE^SDECCON(.RTT,IEN,CONDT,CTYPE,COMM,DTEN) Q
  1. VVSPROSEARCH(VVSPROVIDERS,SEARCHSTRING) ;SEARCH PROVIDERS & GET DATA TO MAKE VIDEO VISIT SERVICE (VVS) APPT
  1. D VVSPROSEARCH^SDECVVS(.VVSPROVIDERS,SEARCHSTRING) Q
  1. JSONVVSMAKEINFO(VVSMAKEINFO,PATIENTIEN,CLINICIEN,APPTDTTM) ;GET INFO TO MAKE A VIDEO VISIT WEB SERVICE (VVS) CALL
  1. D GETVVSMAKEINFO^SDECVVSJSON(.VVSMAKEINFO,PATIENTIEN,CLINICIEN,APPTDTTM) Q
  1. JSONVVSPRVSRCH(SDEC,SRCHSTR) ;EP RPC: SDEC SEARCH VVS PROVIDERS JSON
  1. D JSONPRVLIST^SDECPRVSRCHJSON(.SDEC,SRCHSTR) Q
  1. GETINST(SDECY) ;EP RPC: SDEC GET INSTITUTION
  1. D GETINST^SDEC46(.SDECY)
  1. Q