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.
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