- SDES ;ALB/KML,RRM,RRM,BWF,BLB,ANU,LAB,MGD,LAB - VISTA SCHEDULING RPCS ;FEB 13,2023
- ;;5.3;Scheduling;**788,790,792,794,797,799,800,801,803,804,805,807,809,813,814,815,818,819,824,825,826,836**;Aug 13, 1993;Build 20
- ;;Per VHA Directive 6402, this routine should not be modified
- Q
- ; This routine documents the entry points for the new VS GUI version 3.0.
- ;
- GETFLAGS(JSON,DFN,EAS) ; RPC: SDES GET PATIENT FLAGS
- D GETFLAGS^SDESPATFLAGS(.JSON,$G(DFN),$G(EAS)) Q
- DISPOSITION(RET,ARIEN,DISP,DISPBY,DISPDT,EAS,PCMT) ;RPC: SDES ARCLOSE
- D DISPOSITION^SDESARCLOSE(.RET,$G(ARIEN),$G(DISP),$G(DISPBY),$G(DISPDT),$G(EAS),$G(PCMT)) Q
- APPTBLOCKMOVE(RETURN,APPTIEN,SDRES,APPTDTTM,EAS) ; RPC: SDES CREATE APPT BLK AND MOVE
- D APPTBLOCKMOVE^SDESBLKANDMOVE(.RETURN,$G(APPTIEN),$G(SDRES),$G(APPTDTTM),$G(EAS)) Q
- APPTBYCLINIC(JSON,CLINICIEN,SDBEG,SDEND,EAS) ;SDES GET APPT BY CLINIC
- D GETAPPTSBYCLINIC^SDESAPPT(.JSON,$G(CLINICIEN),$G(SDBEG),$G(SDEND),$G(EAS)) Q
- APPTBYCLINICLIST(APPTLISTJSON,CLINICIENS) ;SDES GET APPTS BY CLINIC LIST
- D APPTBYCLINICLIST^SDESAPPT(.APPTLISTJSON,.CLINICIENS) Q
- APPTBYRESOURCE(JSON,RESIEN,SDBEG,SDEND,EAS) ;SDES GET APPT BY RESOURCE
- D APPTBYRESOURCE^SDESAPPT(.JSON,$G(RESIEN),$G(SDBEG),$G(SDEND),$G(EAS)) Q
- APPGETJSON(JSON,DFN,SDBEG,SDEND,EAS) ;
- D APPGETJSON^SDESAPPT(.JSON,$G(DFN),$G(SDBEG),$G(SDEND),$G(EAS)) Q
- APPGETONEJSON(JSON,APPTIEN,EAS) ;
- D APPGETONEJSON^SDESAPPT(.JSON,$G(APPTIEN),$G(EAS)) Q
- APPTBYRIENAPTYP(JSON,APTREQIEN,APTREQTYPE,SDEAS) ;
- D APPTBYRIENAPTYP^SDESAPPT(.JSON,$G(APTREQIEN),$G(APTREQTYPE),$G(SDEAS)) Q
- ; Parameter list for APTREQCREATE and APTREQUPDATE *MUST* be kept in sync.
- APTREQCREATE(JSON,ARIEN,DFN,EDT,INST,TYPE,CLIN,USER,REQBY,PROV,DAPTDT,COMM,ENPRI,MAR,MAI,AMRAN,PATCONT,SVCCON,SVCCOP,MRTCDT,STOP,APTYP,PATSTAT,MULTAPTMDE,PARENT,NLT,PRER,ORDN,VAOSGUID,EAS,PCMT,INSTIEN,PATDATEPREFS,ARSTOPSEC,MODALITY) ;
- S ARIEN="" ;There will never be an IEN when calling this RPC
- D ARSET Q
- APTREQUPDATE(JSON,ARIEN,DFN,EDT,INST,TYPE,CLIN,USER,REQBY,PROV,DAPTDT,COMM,ENPRI,MAR,MAI,AMRAN,PATCONT,SVCCON,SVCCOP,MRTCDT,STOP,APTYP,PATSTAT,MULTAPTMDE,PARENT,NLT,PRER,ORDN,VAOSGUID,EAS,PCMT,INSTIEN,PATDATEPREFS,ARSTOPSEC,MODALITY) ;
- S ARIEN=$G(ARIEN,"")
- S:ARIEN="" ARIEN=-1 ;Flag missing ARIEN when calling the update RPC
- D ARSET Q
- ARSET ;Called from APTREQCREATE and APTREQUPDATE tags
- S DFN=$G(DFN),EDT=$G(EDT),INST=$G(INST),TYPE=$G(TYPE),CLIN=$G(CLIN),USER=$G(USER),REQBY=$G(REQBY),PROV=$G(PROV),DAPTDT=$G(DAPTDT),COMM=$G(COMM),ENPRI=$G(ENPRI)
- S MAR=$G(MAR),MAI=$G(MAI),AMRAN=$G(AMRAN),PATCONT=$G(PATCONT),SVCCON=$G(SVCCON),SVCCOP=$G(SVCCOP),MRTCDT=$G(MRTCDT),STOP=$G(STOP),APTYP=$G(APTYP),PATSTAT=$G(PATSTAT)
- S MULTAPTMDE=$G(MULTAPTMDE),PARENT=$G(PARENT),NLT=$G(NLT),PRER=$G(PRER),ORDN=$G(ORDN),VAOSGUID=$G(VAOSGUID)
- S EAS=$G(EAS),PCMT=$G(PCMT),INSTIEN=$G(INSTIEN),ARSTOPSEC=$G(ARSTOPSEC),MODALITY=$G(MODALITY)
- I '$D(PATDATEPREFS) S PATDATEPREFS=""
- ; Because of an SAC limitation on the number of chars per line, addition of more parameters will require
- ; this to be changed over to passing an array.
- D ARSET^SDESAPTREQSET(.JSON,ARIEN,DFN,EDT,INST,TYPE,CLIN,USER,REQBY,PROV,DAPTDT,COMM,ENPRI,MAR,MAI,AMRAN,PATCONT,SVCCON,SVCCOP,MRTCDT,STOP,APTYP,PATSTAT,MULTAPTMDE,PARENT,NLT,PRER,ORDN,VAOSGUID,EAS,PCMT,INSTIEN,.PATDATEPREFS,ARSTOPSEC,MODALITY)
- Q
- ; Appointment Request Create/Edit
- ; SD*5.3*806
- APTREQ44CRT(JSON,ARIEN,DFN,ARDAPTDT,ARLEN,ARRSN,ARUSER,ARODT,PATELG,AROVB) ; Create Appointment in #44
- N ARUPD
- S ARUPD=0
- D ARSET44
- Q
- APTREQ44EDIT(JSON,ARIEN,DFN,ARDAPTDT,ARLEN,ARRSN,ARUSER,ARODT,PATELG,AROVB) ; Edit Appointment in #44
- N ARUPD
- S ARUPD=1
- D ARSET44
- Q
- APTREQ40984CRT(JSON,SDAPTSTDTTM,SDAPTEDTTM,SDPATDFN,SDRESOURCE,SDATYPID,SDDDTTM,SDEXTID,SDAPTREQTYP,SDPROVIEN,SDCLNID,SDNOTE,SDAPTYP,SDEESTAT,SDAPTLEN,SDEAS) ; Create Appointment in #409.84
- D ARSET^SDESAPPTREQ40984(.JSON,$G(SDAPTSTDTTM),$G(SDAPTEDTTM),$G(SDPATDFN),$G(SDRESOURCE),$G(SDATYPID),$G(SDDDTTM),$G(SDEXTID),$G(SDAPTREQTYP),$G(SDPROVIEN),$G(SDCLNID),$G(SDNOTE),$G(SDAPTYP),$G(SDEESTAT),$G(SDAPTLEN),$G(SDEAS))
- Q
- APTREQ40984EDIT(JSON,SDECAPTID,SDECNOTE,SDECLEN) ;Edit Appointment in SDEC APPOINTMENT File #409.84 - RPC: SDES EDIT APPT #409.84
- D EDITAPPT^SDESAPPTEDIT(.JSON,$G(SDECAPTID),$G(SDECNOTE),$G(SDECLEN))
- Q
- ARSET44 ; Create/Edit Appointment in #44
- D ARSET^SDESAPTREQ44(.JSON,$G(ARUPD),$G(ARIEN),$G(DFN),$G(ARDAPTDT),$G(ARLEN),$G(ARRSN),$G(ARUSER),$G(ARODT),$G(PATELG),$G(AROVB))
- Q
- ARCANCEL44(RETURN,SDDFN,SDCLNIEN,SDARDTTM) ; RPC: SDES CANCEL APPT #44
- D ARCANCEL44^SDESCANCELAPPT44(.RETURN,$G(SDDFN),$G(SDCLNIEN),$G(SDARDTTM)) Q
- APTREQ2CRT(JSON,SDPATIENTDFN,SDCLNIEN,SDAPPTDTTM,SDLABDTTM,SDXRAYDTTM,SDEKGDTTM,SDVSTPURP,SDAPPTTYPE,SDCOLLATERAL,SDSCHREQTYPE,SDNXTAVAAPPT,SDFOLLOWUP) ; Create Appointment in #2
- N SDAPPTUPD
- S SDAPPTUPD=0
- D ARSET2
- Q
- APTREQ2EDIT(JSON,SDPATIENTDFN,SDCLNIEN,SDAPPTDTTM,SDLABDTTM,SDXRAYDTTM,SDEKGDTTM,SDVSTPURP,SDAPPTTYPE,SDCOLLATERAL,SDSCHREQTYPE,SDNXTAVAAPPT,SDFOLLOWUP) ; Edit Appointment in #2
- N SDAPPTUPD
- S SDAPPTUPD=1
- D ARSET2
- Q
- ARSET2 ; Create/Edit Appointment in #2
- D ARSET^SDESAPPTREQ2(.JSON,$G(SDAPPTUPD),$G(SDPATIENTDFN),$G(SDCLNIEN),$G(SDAPPTDTTM),$G(SDLABDTTM),$G(SDXRAYDTTM),$G(SDEKGDTTM),$G(SDVSTPURP),$G(SDAPPTTYPE),$G(SDCOLLATERAL),$G(SDSCHREQTYPE),$G(SDNXTAVAAPPT),$G(SDFOLLOWUP))
- Q
- ARCANCEL2(RETURN,SDPATIENTDFN,SDCLNIEN,SDCANCELTYP,SDAPPTDTTM,SDCANCELDTTM,SDUSR,SDCANCELREASON,SDCANCELRMKS) ; RPC: SDES CANCEL APPT #2
- D ARCANCEL2^SDESCANCELAPPT2(.RETURN,$G(SDPATIENTDFN),$G(SDCLNIEN),$G(SDCANCELTYP),$G(SDAPPTDTTM),$G(SDCANCELDTTM),$G(SDUSR),$G(SDCANCELREASON),$G(SDCANCELRMKS)) Q
- ;
- CANCELAPPT(SDECY,APPTIEN,STATUS,CANREAS,USER,EAS) ;SDES CANCEL APPT - cancel appointment
- D CANCELAPPT^SDESCANCELAPPT(.SDECY,$G(APPTIEN),$G(STATUS),$G(CANREAS),$G(USER),$G(EAS)) Q
- ;
- CHECKIN(JSON,SDECAPTID,SDECCDT,SDECCC,SDECPRV) ;SDES APPT CHECKIN JSON
- D CHECKIN^SDES25(.JSON,$G(SDECAPTID),$G(SDECCDT),$G(SDECCC),$G(SDECPRV)) Q
- ;
- ;The parameter list for the clinic create and set use generic parameter names to ensure we stay in SAC compliance
- ;with the length of a single line.
- CLINICCREATE(RET,P1,P2,P3,P4,P5,P6,P7,P8,P9,P10,P11,P12,P13,P14,P15,P16,P17,P18,P19,P20,P21,P22,P23,P24,P25,P26,P27,P28,P29,P30,P31,P32,P33,P34,P35,P36,P37,P38,P39,P40,P41,P42,P43,P44) ;
- ;CLINICCREATE(RET,CLINIEN,R1,P2,P3,P4,P5,P6,P7,P8,P9,P10,P11,P12,P13,P14,P15,P16,P17,P18,P19,P20,P21,P22,P23,P24,P25,P26,P27,P28,P29) ;
- S CLINIEN="" ;There will never be an IEN when calling this RPC
- D CLINICSET Q
- CLINICSET ;Called from CLINICCREATE and CLINICUPDATE tags
- S P1=$G(P1),P2=$G(P2),P3=$G(P3),P4=$G(P4),P5=$G(P5),P6=$G(P6),P7=$G(P7),P8=$G(P8),P9=$G(P9),P10=$G(P10),P11=$G(P11),P12=$G(P12),P13=$G(P13),P14=$G(P14),P15=$G(P15),P16=$G(P16),P17=$G(P17)
- S P18=$G(P18),P19=$G(P19),P20=$G(P20),P21=$G(P21),P22=$G(P22),P23=$G(P23)
- S P24=$G(P24),P25=$G(P25),P26=$G(P26),P27=$G(P27),P28=$G(P28),P29=$G(P29),P30=$G(P30),P31=$G(P31),P32=$G(P32),P33=$G(P33),P34=$G(P34),P35=$G(P35),P36=$G(P36),P37=$G(P37),P38=$G(P38),P39=$G(P39),P40=$G(P40)
- S P41=$G(P41),P42=$G(P42),P43=$G(P43),P44=$G(P44)
- D CLINICSET^SDESCLINICSET(.RET,CLINIEN,P1,P2,P3,P4,P5,P6,P7,P8,P9,P10,P11,P12,P13,P14,P15,P16,P17,P18,P19,P20,P21,P22,P23,P24,P25,P26,P27,P28,P29,P30,P31,P32,P33,P34,P35,P36,P37,P38,P39,P40,P41,P42,P43,P44)
- Q
- ;
- CLINICSEARCH(SDECY,SEARCHSTRING) ;Given a search string return a clinic list that matches.
- D CLINICSEARCH^SDESSEARCH(.SDECY,$G(SEARCHSTRING)) Q
- CLINICRSCSEARCH(SDECY,SEARCHSTRING) ;Given a search string return a clinic list that matches.
- D CLINICRSC^SDES01C(.SDECY,$G(SEARCHSTRING)) Q
- CREATEAPPTWRAPPR(JSONRETURN,APPTARRAY) ; SDES CREATE APPOINTMENTS ;Create appts in Files #409.84, #44, and #2.
- D CREATEAPPTS^SDESCRTAPPTWRAP(.JSONRETURN,.APPTARRAY) Q
- GETREGA(SDECY,DFN,EAS) ;SDES GET REGISTRATION INFO
- D GETREGA^SDESGETREGA(.SDECY,$G(DFN),$G(EAS)) Q
- INSURVERIFYREQ(JSON,DFN,EAS) ;SDES GET INSRUANCE VERIFY REQ
- D INSURVERIFYREQ^SDESPATRPC(.JSON,$G(DFN),$G(EAS)) Q
- INSURINDICATORS(RETURN,DFNS) ;SDES GET INSURANCE VERIFY LIST
- D INSURINDICATORS^SDESPATRPC(.RETURN,.DFNS) Q
- SPACEBAR(SDECY,SDECDIC,SDECVAL) ;EP Update ^DISV with most recent lookup value SDECVAL from file SDECDIC
- D SPACEBAR^SDES30(.SDECY,$G(SDECDIC),$G(SDECVAL)) Q
- JSONINACTCLN(SDEC,CLINICIEN,EAS) ;EP RPC: SDES INACTIVATE CLINIC
- D JSONINACTCLN^SDESINACTCLINIC(.SDEC,$G(CLINICIEN),$G(EAS)) Q
- JSONCLNINFO(SDEC,CLINICIEN,EAS) ;EP RPC: SDES GET CLINIC INFO
- D JSONCLNINFO^SDESRTVCLN(.SDEC,$G(CLINICIEN),$G(EAS)) Q
- SETCLINAVAIL(RETURN,SDCLINIC,DATES,TIMES,SLOTS,SDEAS) ; RPC: SDES SET CLINIC AVAILABILITY
- D SETCLINAVAIL^SDESCLNSETAVAIL(.RETURN,$G(SDCLINIC),$G(DATES),$G(TIMES),$G(SLOTS),$G(SDEAS)) Q
- GETCLNAVAILABLTY(RET,CLINICIEN,SDESSTART,SDESENDDATE,EAS) ;EP RPC: SDES GET CLINIC AVAILABILITY-retrieve clinic availablity in a given timeframe
- D GETCLAVAILABLTY^SDESCLINICAVAIL(.RET,$G(CLINICIEN),$G(SDESSTART),$G(SDESENDDATE),$G(EAS)) Q
- CANCLNAVAILABLTY(RET,SDCLNIEN,SDESCANDATE,SDESSTRTIM,SDESENDTIM,SDCANREM,SDEAS) ;Called from RPC: SDES CANCEL CLINIC AVAILABILITY
- D CANCLAVAIL^SDESCCAVAIL(.RET,$G(SDCLNIEN),$G(SDESCANDATE),$G(SDESSTRTIM),$G(SDESENDTIM),$G(SDCANREM),$G(SDEAS)) Q
- GETALLAPPTS(SDECY,DFN) ; SDES GET PATIENT APPTS BY DFN #2
- D GETALLAPPTS^SDESGETPATAPPT(.SDECY,$G(DFN)) Q
- GETSINGLEAPPT(SDECY,DFN,DATETIME,CLINIC) ; SDES GET PATIENT APPT BY IEN #2
- D GETSINGLEAPPT^SDESGETPATAPPT(.SDECY,$G(DFN),$G(DATETIME),$G(CLINIC)) Q
- GETUSRDTL(RET,SDSECID,EAS) ;Called from RPC: SDES GET USER PROFILE
- D GETUSRDTL^SDESGETUD(.RET,$G(SDSECID),$G(EAS)) Q
- GETUSRDTLDUZ(RET,SDUSRIEN,EAS) ;Called from RPC: SDES GET USER PROFILE BY DUZ
- D GETUSRDTLDUZ^SDESGETUD(.RET,$G(SDUSRIEN),$G(EAS)) Q
- UPDRECALLREQ(RETN,RECALLIEN,DFN,ACCNO,SDCMT,FASTING,APPTP,RRPROVIEN,CLINIEN,APPTLEN,DATE,RECPPDT,DAPTDT,USERIEN,SECPDT,EAS) ;update recall request
- D UPDRECALLREQ^SDESUPDRECREQ(.RETN,$G(RECALLIEN),$G(DFN),$G(ACCNO),$G(SDCMT),$G(FASTING),$G(APPTP),$G(RRPROVIEN),$G(CLINIEN),$G(APPTLEN),$G(DATE),$G(RECPPDT),$G(DAPTDT),$G(USERIEN),$G(SECPDT),$G(EAS)) Q
- CREATERECREQ(RETN,DFN,ACCNO,SDCMT,FASTING,APPTP,RRPROVIEN,CLINIEN,APPTLEN,DATE,RECPPDT,DAPTDT,USERIEN,SECPDT,SDENTDT,EAS) ;update recall request
- D CREATERECREQ^SDESUPDRECREQ(.RETN,$G(DFN),$G(ACCNO),$G(SDCMT),$G(FASTING),$G(APPTP),$G(RRPROVIEN),$G(CLINIEN),$G(APPTLEN),$G(DATE),$G(RECPPDT),$G(DAPTDT),$G(USERIEN),$G(SECPDT),$G(SDENTDT),$G(EAS)) Q
- DISPRECALL(SDECY,RECALLIEN,REASON,COMMENT,EAS) ; for a PtCSch request, set disposition reason and DELETE an entry from the RECALL REMINDERS file 403.5
- D DISPRECALL^SDESDISPRECALL(.SDECY,$G(RECALLIEN),$G(REASON),$G(COMMENT),$G(EAS)) Q
- GETAPPOINTMENTS(SDECY,SDCLIN,SDSTDTTM,SDENDDTTM) ;get appointments for clinic out of file 44
- D GETAPPOINTMENTS^SDESGETCLINAPPT(.SDECY,$G(SDCLIN),$G(SDSTDTTM),$G(SDENDDTTM)) Q
- GETSTOPCODE(SDECY,SDSTCD) ;get stop code details out of file 40.7
- D GETSTCDDTL^SDESGETSTOPCODE(.SDECY,$G(SDSTCD)) Q
- GETPATCHNUM(SDECY) ; get latest SD patch number installed on system
- D GETPATCHNUM^SDESPATCHINFO(.SDECY) Q
- GETMISSIONELG(SDECY,APPTREQIEN,PID,APPTREQTYP,SDEAS,APPTDATE,CLINIEN) ;
- D GETMISSIONELG^SDESMISSIONELG(.SDECY,$G(APPTREQIEN),$G(PID),$G(APPTREQTYP),$G(SDEAS),$G(APPTDATE),$G(CLINIEN)) Q
- PRINTPATAPPTS(SDECY,SDDFN,SDBEGIN,SDEND,EAS) ;print patient friend appointments
- S:$G(SDBEGIN)'="" SDBEGIN=$$ISOTFM^SDAMUTDT(SDBEGIN)
- S:$G(SDEND)'="" SDEND=$$ISOTFM^SDAMUTDT(SDEND)
- S:$G(SDBEGIN)="" SDBEGIN=$$NOW^XLFDT
- S:$G(SDEND)="" SDEND=$$FMADD^XLFDT(SDBEGIN,90)
- D PRINTPATAPPTS^SDESPRINTPATAPPT(.SDECY,$G(SDDFN),$G(SDBEGIN),$G(SDEND),$G(EAS)) Q
- Q
- ;Based on Patient DFN, retrieve and return all appointments associated with a Patient IEN from SDEC APPOINTMENT File #409.84,
- ;HOSPITAL LOCATION File #44, and the Appointment Multiple Patient File #2
- GETAPPTWRAPDFN(SDECY,SDDFN,SDBEGIN,SDEND) ;Called from RPC: SDES GET APPTS BY PATIENT DFN
- N SDVIEWAPPTBY
- S SDVIEWAPPTBY=0
- D GETAPPTS^SDESGETAPPTWRAP(.SDECY,$G(SDDFN),$G(SDBEGIN),$G(SDEND))
- Q
- ;Based on CLINIC IEN, retrieve and return all appointments associated with a Clinic IEN from SDEC APPOINTMENT File #409.84,
- ;HOSPITAL LOCATION File #44, and the Appointment Multiple Patient File #2
- GETAPPTWRAPCLIN(SDECY,SDCLINIEN,SDBEGIN,SDEND) ;Called from RPC: SDES GET APPTS BY CLIN IEN
- N SDVIEWAPPTBY
- S SDVIEWAPPTBY=1
- D GETAPPTS^SDESGETAPPTWRAP(.SDECY,$G(SDCLINIEN),$G(SDBEGIN),$G(SDEND))
- Q
- ;Based on APPOINTMENT IEN, retrieve and return all appointments associated with Appointment IEN from SDEC APPOINTMENT File #409.84,
- ;HOSPITAL LOCATION File #44, and the Appointment Multiple Patient File #2
- GETAPPTWRAPIEN(SDECY,SDAPPTIEN,SDEAS) ;;Called from RPC: SDES GET APPTS BY IEN
- D GETAPPTBYIEN^SDESGETAPPTWRAP2(.SDECY,$G(SDAPPTIEN),$G(SDEAS))
- Q
- ;Based on Patient DFN, retrieve and return all appointments associated with a Patient IEN from SDEC APPOINTMENT File #409.84,
- ;HOSPITAL LOCATION File #44, and the Appointment Multiple Patient File #2
- ;This is a clone from SDES GET APPTS BY PATIENT DFN
- GETAPPTWRAPDFN2(SDECY,SDDFN,SDBEGIN,SDEND,SDEAS) ;Called from RPC: SDES GET APPTS BY PATIENT DFN2
- D GETAPPTBYPATDFN^SDESGETAPPTWRAP2(.SDECY,$G(SDDFN),$G(SDBEGIN),$G(SDEND),$G(SDEAS))
- Q
- ;Based on CLINIC IEN, retrieve and return all appointments associated with a Clinic IEN from SDEC APPOINTMENT File #409.84,
- ;HOSPITAL LOCATION File #44, and the Appointment Multiple Patient File #2
- ;This is a clone from SDES GET APPTS BY CLIN IEN
- GETAPPTWRAPCLIN2(SDECY,SDCLINIEN,SDBEGIN,SDEND,SDEAS) ;;Called from RPC: SDES GET APPTS BY CLIN IEN 2
- D GETAPPTBYCLNIEN^SDESGETAPPTWRAP2(.SDECY,$G(SDCLINIEN),$G(SDBEGIN),$G(SDEND),$G(SDEAS))
- Q
- ; get appointment request wrapper
- GETREQLISTBYDFN(JSONRETURN,DFN,EAS) ; SDES GET APPT REQ LIST BY DFN
- D GETREQLISTBYDFN^SDESGETREQWRAPPR(.JSONRETURN,$G(DFN),$G(EAS)) Q
- GETREQBYREQIEN(JSONRETURN,REQUESTIEN,EAS) ;SDES GET APPT REQ BY IEN
- D GETREQBYREQIEN^SDESGETAPPTREQ(.JSONRETURN,$G(REQUESTIEN),$G(EAS)) Q
- GETREQSBYDFN(JSONRETURN,DFN,EAS) ;SDES PATIENT APPT REQ BY DFN
- D GETREQSBYDFN^SDESGETAPPTREQ(.JSONRETURN,$G(DFN),$G(EAS)) Q
- GETCONSULTBYIEN(JSONRETURN,CONSULTIEN,EAS) ;SDES GET CONSULTS BY IEN
- D GETCONSULTBYIEN^SDESGETCONSULTS(.JSONRETURN,$G(CONSULTIEN),$G(EAS)) Q
- GETCONSULTSBYDFN(JSONRETURN,DFN,EAS) ;SDES GET CONSULTS BY DFN
- D GETCONSULTSBYDFN^SDESGETCONSULTS(.JSONRETURN,$G(DFN),$G(EAS)) Q
- GETRECALLBYIEN(JSONRETURN,RECALLIEN,EAS) ;SDES GET RECALLS BY IEN
- D GETRECALLBYIEN^SDESGETRECALL(.JSONRETURN,$G(RECALLIEN),$G(EAS)) Q
- GETRECALLSBYDFN(JSONRETURN,DFN,EAS) ; SDES GET RECALLS BY DFN
- D GETRECALLSBYDFN^SDESGETRECALL(.JSONRETURN,$G(DFN),$G(EAS)) Q
- ;GETREQBYAPPTIEN(JSONRETURN,APPTIEN,EAS) ;SDES GET APPT REQ BY APPT IEN
- ;D GETREQBYAPPTIEN^SDESGETAPPTREQ(.JSONRETURN,$G(APPTIEN),$G(EAS)) Q ;
- ;
- CANCELAPPTS(JSONRETURN,APPTIEN,CLINICIEN,DFN,CANBYCLINORPAT,CANCELREASONIEN,NOTE,CANCELHASH,EAS) ;
- D CANCELAPPTS^SDESCANCELAPPTS(.JSONRETURN,$G(APPTIEN),$G(CLINICIEN),$G(DFN),$G(CANBYCLINORPAT),$G(CANCELREASONIEN),$G(NOTE),$G(CANCELHASH),$G(EAS)) ;
- Q
- ;
- ADDUSR(JSONRETURN,LOCIEN,USRIEN) ;ADD PRIV USER
- D UPDPRIV^SDESLOC(.JSONRETURN,1,$G(LOCIEN),$G(USRIEN)) Q
- RMVUSR(JSONRETURN,LOCIEN,USRIEN) ; DELETE PRIV USER
- D UPDPRIV^SDESLOC(.JSONRETURN,0,$G(LOCIEN),$G(USRIEN)) Q
- RMVAUSR(JSONRETURN,LOCIEN) ; DELETE ALL USERS FROM #44
- D RMVALLUSR^SDESLOC(.JSONRETURN,$G(LOCIEN)) Q
- RTNAUSR(JSONRETURN,LOCIEN) ; READ ALL USERS FROM #44
- D RTNALLUSR^SDESLOC(.JSONRETURN,$G(LOCIEN)) Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDES 15566 printed Jan 18, 2025@03:54:17 Page 2
- SDES ;ALB/KML,RRM,RRM,BWF,BLB,ANU,LAB,MGD,LAB - VISTA SCHEDULING RPCS ;FEB 13,2023
- +1 ;;5.3;Scheduling;**788,790,792,794,797,799,800,801,803,804,805,807,809,813,814,815,818,819,824,825,826,836**;Aug 13, 1993;Build 20
- +2 ;;Per VHA Directive 6402, this routine should not be modified
- +3 QUIT
- +4 ; This routine documents the entry points for the new VS GUI version 3.0.
- +5 ;
- GETFLAGS(JSON,DFN,EAS) ; RPC: SDES GET PATIENT FLAGS
- +1 DO GETFLAGS^SDESPATFLAGS(.JSON,$GET(DFN),$GET(EAS))
- QUIT
- DISPOSITION(RET,ARIEN,DISP,DISPBY,DISPDT,EAS,PCMT) ;RPC: SDES ARCLOSE
- +1 DO DISPOSITION^SDESARCLOSE(.RET,$GET(ARIEN),$GET(DISP),$GET(DISPBY),$GET(DISPDT),$GET(EAS),$GET(PCMT))
- QUIT
- APPTBLOCKMOVE(RETURN,APPTIEN,SDRES,APPTDTTM,EAS) ; RPC: SDES CREATE APPT BLK AND MOVE
- +1 DO APPTBLOCKMOVE^SDESBLKANDMOVE(.RETURN,$GET(APPTIEN),$GET(SDRES),$GET(APPTDTTM),$GET(EAS))
- QUIT
- APPTBYCLINIC(JSON,CLINICIEN,SDBEG,SDEND,EAS) ;SDES GET APPT BY CLINIC
- +1 DO GETAPPTSBYCLINIC^SDESAPPT(.JSON,$GET(CLINICIEN),$GET(SDBEG),$GET(SDEND),$GET(EAS))
- QUIT
- APPTBYCLINICLIST(APPTLISTJSON,CLINICIENS) ;SDES GET APPTS BY CLINIC LIST
- +1 DO APPTBYCLINICLIST^SDESAPPT(.APPTLISTJSON,.CLINICIENS)
- QUIT
- APPTBYRESOURCE(JSON,RESIEN,SDBEG,SDEND,EAS) ;SDES GET APPT BY RESOURCE
- +1 DO APPTBYRESOURCE^SDESAPPT(.JSON,$GET(RESIEN),$GET(SDBEG),$GET(SDEND),$GET(EAS))
- QUIT
- APPGETJSON(JSON,DFN,SDBEG,SDEND,EAS) ;
- +1 DO APPGETJSON^SDESAPPT(.JSON,$GET(DFN),$GET(SDBEG),$GET(SDEND),$GET(EAS))
- QUIT
- APPGETONEJSON(JSON,APPTIEN,EAS) ;
- +1 DO APPGETONEJSON^SDESAPPT(.JSON,$GET(APPTIEN),$GET(EAS))
- QUIT
- APPTBYRIENAPTYP(JSON,APTREQIEN,APTREQTYPE,SDEAS) ;
- +1 DO APPTBYRIENAPTYP^SDESAPPT(.JSON,$GET(APTREQIEN),$GET(APTREQTYPE),$GET(SDEAS))
- QUIT
- +2 ; Parameter list for APTREQCREATE and APTREQUPDATE *MUST* be kept in sync.
- APTREQCREATE(JSON,ARIEN,DFN,EDT,INST,TYPE,CLIN,USER,REQBY,PROV,DAPTDT,COMM,ENPRI,MAR,MAI,AMRAN,PATCONT,SVCCON,SVCCOP,MRTCDT,STOP,APTYP,PATSTAT,MULTAPTMDE,PARENT,NLT,PRER,ORDN,VAOSGUID,EAS,PCMT,INSTIEN,PATDATEPREFS,ARSTOPSEC,MODALITY) ;
- +1 ;There will never be an IEN when calling this RPC
- SET ARIEN=""
- +2 DO ARSET
- QUIT
- APTREQUPDATE(JSON,ARIEN,DFN,EDT,INST,TYPE,CLIN,USER,REQBY,PROV,DAPTDT,COMM,ENPRI,MAR,MAI,AMRAN,PATCONT,SVCCON,SVCCOP,MRTCDT,STOP,APTYP,PATSTAT,MULTAPTMDE,PARENT,NLT,PRER,ORDN,VAOSGUID,EAS,PCMT,INSTIEN,PATDATEPREFS,ARSTOPSEC,MODALITY) ;
- +1 SET ARIEN=$GET(ARIEN,"")
- +2 ;Flag missing ARIEN when calling the update RPC
- if ARIEN=""
- SET ARIEN=-1
- +3 DO ARSET
- QUIT
- ARSET ;Called from APTREQCREATE and APTREQUPDATE tags
- +1 SET DFN=$GET(DFN)
- SET EDT=$GET(EDT)
- SET INST=$GET(INST)
- SET TYPE=$GET(TYPE)
- SET CLIN=$GET(CLIN)
- SET USER=$GET(USER)
- SET REQBY=$GET(REQBY)
- SET PROV=$GET(PROV)
- SET DAPTDT=$GET(DAPTDT)
- SET COMM=$GET(COMM)
- SET ENPRI=$GET(ENPRI)
- +2 SET MAR=$GET(MAR)
- SET MAI=$GET(MAI)
- SET AMRAN=$GET(AMRAN)
- SET PATCONT=$GET(PATCONT)
- SET SVCCON=$GET(SVCCON)
- SET SVCCOP=$GET(SVCCOP)
- SET MRTCDT=$GET(MRTCDT)
- SET STOP=$GET(STOP)
- SET APTYP=$GET(APTYP)
- SET PATSTAT=$GET(PATSTAT)
- +3 SET MULTAPTMDE=$GET(MULTAPTMDE)
- SET PARENT=$GET(PARENT)
- SET NLT=$GET(NLT)
- SET PRER=$GET(PRER)
- SET ORDN=$GET(ORDN)
- SET VAOSGUID=$GET(VAOSGUID)
- +4 SET EAS=$GET(EAS)
- SET PCMT=$GET(PCMT)
- SET INSTIEN=$GET(INSTIEN)
- SET ARSTOPSEC=$GET(ARSTOPSEC)
- SET MODALITY=$GET(MODALITY)
- +5 IF '$DATA(PATDATEPREFS)
- SET PATDATEPREFS=""
- +6 ; Because of an SAC limitation on the number of chars per line, addition of more parameters will require
- +7 ; this to be changed over to passing an array.
- +8 DO ARSET^SDESAPTREQSET(.JSON,ARIEN,DFN,EDT,INST,TYPE,CLIN,USER,REQBY,PROV,DAPTDT,COMM,ENPRI,MAR,MAI,AMRAN,PATCONT,SVCCON,SVCCOP,MRTCDT,STOP,APTYP,PATSTAT,MULTAPTMDE,PARENT,NLT,PRER,ORDN,VAOSGUID,EAS,PCMT,INSTIEN,.PATDATEPREFS,ARSTOPSEC,MODALITY
- )
- +9 QUIT
- +10 ; Appointment Request Create/Edit
- +11 ; SD*5.3*806
- APTREQ44CRT(JSON,ARIEN,DFN,ARDAPTDT,ARLEN,ARRSN,ARUSER,ARODT,PATELG,AROVB) ; Create Appointment in #44
- +1 NEW ARUPD
- +2 SET ARUPD=0
- +3 DO ARSET44
- +4 QUIT
- APTREQ44EDIT(JSON,ARIEN,DFN,ARDAPTDT,ARLEN,ARRSN,ARUSER,ARODT,PATELG,AROVB) ; Edit Appointment in #44
- +1 NEW ARUPD
- +2 SET ARUPD=1
- +3 DO ARSET44
- +4 QUIT
- APTREQ40984CRT(JSON,SDAPTSTDTTM,SDAPTEDTTM,SDPATDFN,SDRESOURCE,SDATYPID,SDDDTTM,SDEXTID,SDAPTREQTYP,SDPROVIEN,SDCLNID,SDNOTE,SDAPTYP,SDEESTAT,SDAPTLEN,SDEAS) ; Create Appointment in #409.84
- +1 DO ARSET^SDESAPPTREQ40984(.JSON,$GET(SDAPTSTDTTM),$GET(SDAPTEDTTM),$GET(SDPATDFN),$GET(SDRESOURCE),$GET(SDATYPID),$GET(SDDDTTM),$GET(SDEXTID),$GET(SDAPTREQTYP),$GET(SDPROVIEN),$GET(SDCLNID),...
- ... $GET(SDNOTE),$GET(SDAPTYP),$GET(SDEESTAT),$GET(SDAPTLEN),$GET(SDEAS))
- +2 QUIT
- APTREQ40984EDIT(JSON,SDECAPTID,SDECNOTE,SDECLEN) ;Edit Appointment in SDEC APPOINTMENT File #409.84 - RPC: SDES EDIT APPT #409.84
- +1 DO EDITAPPT^SDESAPPTEDIT(.JSON,$GET(SDECAPTID),$GET(SDECNOTE),$GET(SDECLEN))
- +2 QUIT
- ARSET44 ; Create/Edit Appointment in #44
- +1 DO ARSET^SDESAPTREQ44(.JSON,$GET(ARUPD),$GET(ARIEN),$GET(DFN),$GET(ARDAPTDT),$GET(ARLEN),$GET(ARRSN),$GET(ARUSER),$GET(ARODT),$GET(PATELG),$GET(AROVB))
- +2 QUIT
- ARCANCEL44(RETURN,SDDFN,SDCLNIEN,SDARDTTM) ; RPC: SDES CANCEL APPT #44
- +1 DO ARCANCEL44^SDESCANCELAPPT44(.RETURN,$GET(SDDFN),$GET(SDCLNIEN),$GET(SDARDTTM))
- QUIT
- APTREQ2CRT(JSON,SDPATIENTDFN,SDCLNIEN,SDAPPTDTTM,SDLABDTTM,SDXRAYDTTM,SDEKGDTTM,SDVSTPURP,SDAPPTTYPE,SDCOLLATERAL,SDSCHREQTYPE,SDNXTAVAAPPT,SDFOLLOWUP) ; Create Appointment in #2
- +1 NEW SDAPPTUPD
- +2 SET SDAPPTUPD=0
- +3 DO ARSET2
- +4 QUIT
- APTREQ2EDIT(JSON,SDPATIENTDFN,SDCLNIEN,SDAPPTDTTM,SDLABDTTM,SDXRAYDTTM,SDEKGDTTM,SDVSTPURP,SDAPPTTYPE,SDCOLLATERAL,SDSCHREQTYPE,SDNXTAVAAPPT,SDFOLLOWUP) ; Edit Appointment in #2
- +1 NEW SDAPPTUPD
- +2 SET SDAPPTUPD=1
- +3 DO ARSET2
- +4 QUIT
- ARSET2 ; Create/Edit Appointment in #2
- +1 DO ARSET^SDESAPPTREQ2(.JSON,$GET(SDAPPTUPD),$GET(SDPATIENTDFN),$GET(SDCLNIEN),$GET(SDAPPTDTTM),$GET(SDLABDTTM),$GET(SDXRAYDTTM),$GET(SDEKGDTTM),$GET(SDVSTPURP),$GET(SDAPPTTYPE),$GET(SDCOLLATERAL),$GET(SDSCHREQTYPE),$GET(SDNXTAVAAPPT),...
- ... $GET(SDFOLLOWUP))
- +2 QUIT
- ARCANCEL2(RETURN,SDPATIENTDFN,SDCLNIEN,SDCANCELTYP,SDAPPTDTTM,SDCANCELDTTM,SDUSR,SDCANCELREASON,SDCANCELRMKS) ; RPC: SDES CANCEL APPT #2
- +1 DO ARCANCEL2^SDESCANCELAPPT2(.RETURN,$GET(SDPATIENTDFN),$GET(SDCLNIEN),$GET(SDCANCELTYP),$GET(SDAPPTDTTM),$GET(SDCANCELDTTM),$GET(SDUSR),$GET(SDCANCELREASON),$GET(SDCANCELRMKS))
- QUIT
- +2 ;
- CANCELAPPT(SDECY,APPTIEN,STATUS,CANREAS,USER,EAS) ;SDES CANCEL APPT - cancel appointment
- +1 DO CANCELAPPT^SDESCANCELAPPT(.SDECY,$GET(APPTIEN),$GET(STATUS),$GET(CANREAS),$GET(USER),$GET(EAS))
- QUIT
- +2 ;
- CHECKIN(JSON,SDECAPTID,SDECCDT,SDECCC,SDECPRV) ;SDES APPT CHECKIN JSON
- +1 DO CHECKIN^SDES25(.JSON,$GET(SDECAPTID),$GET(SDECCDT),$GET(SDECCC),$GET(SDECPRV))
- QUIT
- +2 ;
- +3 ;The parameter list for the clinic create and set use generic parameter names to ensure we stay in SAC compliance
- +4 ;with the length of a single line.
- CLINICCREATE(RET,P1,P2,P3,P4,P5,P6,P7,P8,P9,P10,P11,P12,P13,P14,P15,P16,P17,P18,P19,P20,P21,P22,P23,P24,P25,P26,P27,P28,P29,P30,P31,P32,P33,P34,P35,P36,P37,P38,P39,P40,P41,P42,P43,P44) ;
- +1 ;CLINICCREATE(RET,CLINIEN,R1,P2,P3,P4,P5,P6,P7,P8,P9,P10,P11,P12,P13,P14,P15,P16,P17,P18,P19,P20,P21,P22,P23,P24,P25,P26,P27,P28,P29) ;
- +2 ;There will never be an IEN when calling this RPC
- SET CLINIEN=""
- +3 DO CLINICSET
- QUIT
- CLINICSET ;Called from CLINICCREATE and CLINICUPDATE tags
- +1 SET P1=$GET(P1)
- SET P2=$GET(P2)
- SET P3=$GET(P3)
- SET P4=$GET(P4)
- SET P5=$GET(P5)
- SET P6=$GET(P6)
- SET P7=$GET(P7)
- SET P8=$GET(P8)
- SET P9=$GET(P9)
- SET P10=$GET(P10)
- SET P11=$GET(P11)
- SET P12=$GET(P12)
- SET P13=$GET(P13)
- SET P14=$GET(P14)
- SET P15=$GET(P15)
- SET P16=$GET(P16)
- SET P17=$GET(P17)
- +2 SET P18=$GET(P18)
- SET P19=$GET(P19)
- SET P20=$GET(P20)
- SET P21=$GET(P21)
- SET P22=$GET(P22)
- SET P23=$GET(P23)
- +3 SET P24=$GET(P24)
- SET P25=$GET(P25)
- SET P26=$GET(P26)
- SET P27=$GET(P27)
- SET P28=$GET(P28)
- SET P29=$GET(P29)
- SET P30=$GET(P30)
- SET P31=$GET(P31)
- SET P32=$GET(P32)
- SET P33=$GET(P33)
- SET P34=$GET(P34)
- SET P35=$GET(P35)
- SET P36=$GET(P36)
- SET P37=$GET(P37)
- SET P38=$GET(P38)
- SET P39=$GET(P39)
- SET P40=$GET(P40)
- +4 SET P41=$GET(P41)
- SET P42=$GET(P42)
- SET P43=$GET(P43)
- SET P44=$GET(P44)
- +5 DO CLINICSET^SDESCLINICSET(.RET,CLINIEN,P1,P2,P3,P4,P5,P6,P7,P8,P9,P10,P11,P12,P13,P14,P15,P16,P17,P18,P19,P20,P21,P22,P23,P24,P25,P26,P27,P28,P29,P30,P31,P32,P33,P34,P35,P36,P37,P38,P39,P40,P41,P42,P43,P44)
- +6 QUIT
- +7 ;
- CLINICSEARCH(SDECY,SEARCHSTRING) ;Given a search string return a clinic list that matches.
- +1 DO CLINICSEARCH^SDESSEARCH(.SDECY,$GET(SEARCHSTRING))
- QUIT
- CLINICRSCSEARCH(SDECY,SEARCHSTRING) ;Given a search string return a clinic list that matches.
- +1 DO CLINICRSC^SDES01C(.SDECY,$GET(SEARCHSTRING))
- QUIT
- CREATEAPPTWRAPPR(JSONRETURN,APPTARRAY) ; SDES CREATE APPOINTMENTS ;Create appts in Files #409.84, #44, and #2.
- +1 DO CREATEAPPTS^SDESCRTAPPTWRAP(.JSONRETURN,.APPTARRAY)
- QUIT
- GETREGA(SDECY,DFN,EAS) ;SDES GET REGISTRATION INFO
- +1 DO GETREGA^SDESGETREGA(.SDECY,$GET(DFN),$GET(EAS))
- QUIT
- INSURVERIFYREQ(JSON,DFN,EAS) ;SDES GET INSRUANCE VERIFY REQ
- +1 DO INSURVERIFYREQ^SDESPATRPC(.JSON,$GET(DFN),$GET(EAS))
- QUIT
- INSURINDICATORS(RETURN,DFNS) ;SDES GET INSURANCE VERIFY LIST
- +1 DO INSURINDICATORS^SDESPATRPC(.RETURN,.DFNS)
- QUIT
- SPACEBAR(SDECY,SDECDIC,SDECVAL) ;EP Update ^DISV with most recent lookup value SDECVAL from file SDECDIC
- +1 DO SPACEBAR^SDES30(.SDECY,$GET(SDECDIC),$GET(SDECVAL))
- QUIT
- JSONINACTCLN(SDEC,CLINICIEN,EAS) ;EP RPC: SDES INACTIVATE CLINIC
- +1 DO JSONINACTCLN^SDESINACTCLINIC(.SDEC,$GET(CLINICIEN),$GET(EAS))
- QUIT
- JSONCLNINFO(SDEC,CLINICIEN,EAS) ;EP RPC: SDES GET CLINIC INFO
- +1 DO JSONCLNINFO^SDESRTVCLN(.SDEC,$GET(CLINICIEN),$GET(EAS))
- QUIT
- SETCLINAVAIL(RETURN,SDCLINIC,DATES,TIMES,SLOTS,SDEAS) ; RPC: SDES SET CLINIC AVAILABILITY
- +1 DO SETCLINAVAIL^SDESCLNSETAVAIL(.RETURN,$GET(SDCLINIC),$GET(DATES),$GET(TIMES),$GET(SLOTS),$GET(SDEAS))
- QUIT
- GETCLNAVAILABLTY(RET,CLINICIEN,SDESSTART,SDESENDDATE,EAS) ;EP RPC: SDES GET CLINIC AVAILABILITY-retrieve clinic availablity in a given timeframe
- +1 DO GETCLAVAILABLTY^SDESCLINICAVAIL(.RET,$GET(CLINICIEN),$GET(SDESSTART),$GET(SDESENDDATE),$GET(EAS))
- QUIT
- CANCLNAVAILABLTY(RET,SDCLNIEN,SDESCANDATE,SDESSTRTIM,SDESENDTIM,SDCANREM,SDEAS) ;Called from RPC: SDES CANCEL CLINIC AVAILABILITY
- +1 DO CANCLAVAIL^SDESCCAVAIL(.RET,$GET(SDCLNIEN),$GET(SDESCANDATE),$GET(SDESSTRTIM),$GET(SDESENDTIM),$GET(SDCANREM),$GET(SDEAS))
- QUIT
- GETALLAPPTS(SDECY,DFN) ; SDES GET PATIENT APPTS BY DFN #2
- +1 DO GETALLAPPTS^SDESGETPATAPPT(.SDECY,$GET(DFN))
- QUIT
- GETSINGLEAPPT(SDECY,DFN,DATETIME,CLINIC) ; SDES GET PATIENT APPT BY IEN #2
- +1 DO GETSINGLEAPPT^SDESGETPATAPPT(.SDECY,$GET(DFN),$GET(DATETIME),$GET(CLINIC))
- QUIT
- GETUSRDTL(RET,SDSECID,EAS) ;Called from RPC: SDES GET USER PROFILE
- +1 DO GETUSRDTL^SDESGETUD(.RET,$GET(SDSECID),$GET(EAS))
- QUIT
- GETUSRDTLDUZ(RET,SDUSRIEN,EAS) ;Called from RPC: SDES GET USER PROFILE BY DUZ
- +1 DO GETUSRDTLDUZ^SDESGETUD(.RET,$GET(SDUSRIEN),$GET(EAS))
- QUIT
- UPDRECALLREQ(RETN,RECALLIEN,DFN,ACCNO,SDCMT,FASTING,APPTP,RRPROVIEN,CLINIEN,APPTLEN,DATE,RECPPDT,DAPTDT,USERIEN,SECPDT,EAS) ;update recall request
- +1 DO UPDRECALLREQ^SDESUPDRECREQ(.RETN,$GET(RECALLIEN),$GET(DFN),$GET(ACCNO),$GET(SDCMT),$GET(FASTING),$GET(APPTP),$GET(RRPROVIEN),$GET(CLINIEN),$GET(APPTLEN),$GET(DATE),$GET(RECPPDT),$GET(DAPTDT),$GET(USERIEN),$GET(SECPDT),$GET(EAS))
- QUIT
- CREATERECREQ(RETN,DFN,ACCNO,SDCMT,FASTING,APPTP,RRPROVIEN,CLINIEN,APPTLEN,DATE,RECPPDT,DAPTDT,USERIEN,SECPDT,SDENTDT,EAS) ;update recall request
- +1 DO CREATERECREQ^SDESUPDRECREQ(.RETN,$GET(DFN),$GET(ACCNO),$GET(SDCMT),$GET(FASTING),$GET(APPTP),$GET(RRPROVIEN),$GET(CLINIEN),$GET(APPTLEN),$GET(DATE),$GET(RECPPDT),$GET(DAPTDT),$GET(USERIEN),$GET(SECPDT),$GET(SDENTDT),$GET(EAS))
- QUIT
- DISPRECALL(SDECY,RECALLIEN,REASON,COMMENT,EAS) ; for a PtCSch request, set disposition reason and DELETE an entry from the RECALL REMINDERS file 403.5
- +1 DO DISPRECALL^SDESDISPRECALL(.SDECY,$GET(RECALLIEN),$GET(REASON),$GET(COMMENT),$GET(EAS))
- QUIT
- GETAPPOINTMENTS(SDECY,SDCLIN,SDSTDTTM,SDENDDTTM) ;get appointments for clinic out of file 44
- +1 DO GETAPPOINTMENTS^SDESGETCLINAPPT(.SDECY,$GET(SDCLIN),$GET(SDSTDTTM),$GET(SDENDDTTM))
- QUIT
- GETSTOPCODE(SDECY,SDSTCD) ;get stop code details out of file 40.7
- +1 DO GETSTCDDTL^SDESGETSTOPCODE(.SDECY,$GET(SDSTCD))
- QUIT
- GETPATCHNUM(SDECY) ; get latest SD patch number installed on system
- +1 DO GETPATCHNUM^SDESPATCHINFO(.SDECY)
- QUIT
- GETMISSIONELG(SDECY,APPTREQIEN,PID,APPTREQTYP,SDEAS,APPTDATE,CLINIEN) ;
- +1 DO GETMISSIONELG^SDESMISSIONELG(.SDECY,$GET(APPTREQIEN),$GET(PID),$GET(APPTREQTYP),$GET(SDEAS),$GET(APPTDATE),$GET(CLINIEN))
- QUIT
- PRINTPATAPPTS(SDECY,SDDFN,SDBEGIN,SDEND,EAS) ;print patient friend appointments
- +1 if $GET(SDBEGIN)'=""
- SET SDBEGIN=$$ISOTFM^SDAMUTDT(SDBEGIN)
- +2 if $GET(SDEND)'=""
- SET SDEND=$$ISOTFM^SDAMUTDT(SDEND)
- +3 if $GET(SDBEGIN)=""
- SET SDBEGIN=$$NOW^XLFDT
- +4 if $GET(SDEND)=""
- SET SDEND=$$FMADD^XLFDT(SDBEGIN,90)
- +5 DO PRINTPATAPPTS^SDESPRINTPATAPPT(.SDECY,$GET(SDDFN),$GET(SDBEGIN),$GET(SDEND),$GET(EAS))
- QUIT
- +6 QUIT
- +7 ;Based on Patient DFN, retrieve and return all appointments associated with a Patient IEN from SDEC APPOINTMENT File #409.84,
- +8 ;HOSPITAL LOCATION File #44, and the Appointment Multiple Patient File #2
- GETAPPTWRAPDFN(SDECY,SDDFN,SDBEGIN,SDEND) ;Called from RPC: SDES GET APPTS BY PATIENT DFN
- +1 NEW SDVIEWAPPTBY
- +2 SET SDVIEWAPPTBY=0
- +3 DO GETAPPTS^SDESGETAPPTWRAP(.SDECY,$GET(SDDFN),$GET(SDBEGIN),$GET(SDEND))
- +4 QUIT
- +5 ;Based on CLINIC IEN, retrieve and return all appointments associated with a Clinic IEN from SDEC APPOINTMENT File #409.84,
- +6 ;HOSPITAL LOCATION File #44, and the Appointment Multiple Patient File #2
- GETAPPTWRAPCLIN(SDECY,SDCLINIEN,SDBEGIN,SDEND) ;Called from RPC: SDES GET APPTS BY CLIN IEN
- +1 NEW SDVIEWAPPTBY
- +2 SET SDVIEWAPPTBY=1
- +3 DO GETAPPTS^SDESGETAPPTWRAP(.SDECY,$GET(SDCLINIEN),$GET(SDBEGIN),$GET(SDEND))
- +4 QUIT
- +5 ;Based on APPOINTMENT IEN, retrieve and return all appointments associated with Appointment IEN from SDEC APPOINTMENT File #409.84,
- +6 ;HOSPITAL LOCATION File #44, and the Appointment Multiple Patient File #2
- GETAPPTWRAPIEN(SDECY,SDAPPTIEN,SDEAS) ;;Called from RPC: SDES GET APPTS BY IEN
- +1 DO GETAPPTBYIEN^SDESGETAPPTWRAP2(.SDECY,$GET(SDAPPTIEN),$GET(SDEAS))
- +2 QUIT
- +3 ;Based on Patient DFN, retrieve and return all appointments associated with a Patient IEN from SDEC APPOINTMENT File #409.84,
- +4 ;HOSPITAL LOCATION File #44, and the Appointment Multiple Patient File #2
- +5 ;This is a clone from SDES GET APPTS BY PATIENT DFN
- GETAPPTWRAPDFN2(SDECY,SDDFN,SDBEGIN,SDEND,SDEAS) ;Called from RPC: SDES GET APPTS BY PATIENT DFN2
- +1 DO GETAPPTBYPATDFN^SDESGETAPPTWRAP2(.SDECY,$GET(SDDFN),$GET(SDBEGIN),$GET(SDEND),$GET(SDEAS))
- +2 QUIT
- +3 ;Based on CLINIC IEN, retrieve and return all appointments associated with a Clinic IEN from SDEC APPOINTMENT File #409.84,
- +4 ;HOSPITAL LOCATION File #44, and the Appointment Multiple Patient File #2
- +5 ;This is a clone from SDES GET APPTS BY CLIN IEN
- GETAPPTWRAPCLIN2(SDECY,SDCLINIEN,SDBEGIN,SDEND,SDEAS) ;;Called from RPC: SDES GET APPTS BY CLIN IEN 2
- +1 DO GETAPPTBYCLNIEN^SDESGETAPPTWRAP2(.SDECY,$GET(SDCLINIEN),$GET(SDBEGIN),$GET(SDEND),$GET(SDEAS))
- +2 QUIT
- +3 ; get appointment request wrapper
- GETREQLISTBYDFN(JSONRETURN,DFN,EAS) ; SDES GET APPT REQ LIST BY DFN
- +1 DO GETREQLISTBYDFN^SDESGETREQWRAPPR(.JSONRETURN,$GET(DFN),$GET(EAS))
- QUIT
- GETREQBYREQIEN(JSONRETURN,REQUESTIEN,EAS) ;SDES GET APPT REQ BY IEN
- +1 DO GETREQBYREQIEN^SDESGETAPPTREQ(.JSONRETURN,$GET(REQUESTIEN),$GET(EAS))
- QUIT
- GETREQSBYDFN(JSONRETURN,DFN,EAS) ;SDES PATIENT APPT REQ BY DFN
- +1 DO GETREQSBYDFN^SDESGETAPPTREQ(.JSONRETURN,$GET(DFN),$GET(EAS))
- QUIT
- GETCONSULTBYIEN(JSONRETURN,CONSULTIEN,EAS) ;SDES GET CONSULTS BY IEN
- +1 DO GETCONSULTBYIEN^SDESGETCONSULTS(.JSONRETURN,$GET(CONSULTIEN),$GET(EAS))
- QUIT
- GETCONSULTSBYDFN(JSONRETURN,DFN,EAS) ;SDES GET CONSULTS BY DFN
- +1 DO GETCONSULTSBYDFN^SDESGETCONSULTS(.JSONRETURN,$GET(DFN),$GET(EAS))
- QUIT
- GETRECALLBYIEN(JSONRETURN,RECALLIEN,EAS) ;SDES GET RECALLS BY IEN
- +1 DO GETRECALLBYIEN^SDESGETRECALL(.JSONRETURN,$GET(RECALLIEN),$GET(EAS))
- QUIT
- GETRECALLSBYDFN(JSONRETURN,DFN,EAS) ; SDES GET RECALLS BY DFN
- +1 DO GETRECALLSBYDFN^SDESGETRECALL(.JSONRETURN,$GET(DFN),$GET(EAS))
- QUIT
- +2 ;GETREQBYAPPTIEN(JSONRETURN,APPTIEN,EAS) ;SDES GET APPT REQ BY APPT IEN
- +3 ;D GETREQBYAPPTIEN^SDESGETAPPTREQ(.JSONRETURN,$G(APPTIEN),$G(EAS)) Q ;
- +4 ;
- CANCELAPPTS(JSONRETURN,APPTIEN,CLINICIEN,DFN,CANBYCLINORPAT,CANCELREASONIEN,NOTE,CANCELHASH,EAS) ;
- +1 ;
- DO CANCELAPPTS^SDESCANCELAPPTS(.JSONRETURN,$GET(APPTIEN),$GET(CLINICIEN),$GET(DFN),$GET(CANBYCLINORPAT),$GET(CANCELREASONIEN),$GET(NOTE),$GET(CANCELHASH),$GET(EAS))
- +2 QUIT
- +3 ;
- ADDUSR(JSONRETURN,LOCIEN,USRIEN) ;ADD PRIV USER
- +1 DO UPDPRIV^SDESLOC(.JSONRETURN,1,$GET(LOCIEN),$GET(USRIEN))
- QUIT
- RMVUSR(JSONRETURN,LOCIEN,USRIEN) ; DELETE PRIV USER
- +1 DO UPDPRIV^SDESLOC(.JSONRETURN,0,$GET(LOCIEN),$GET(USRIEN))
- QUIT
- RMVAUSR(JSONRETURN,LOCIEN) ; DELETE ALL USERS FROM #44
- +1 DO RMVALLUSR^SDESLOC(.JSONRETURN,$GET(LOCIEN))
- QUIT
- RTNAUSR(JSONRETURN,LOCIEN) ; READ ALL USERS FROM #44
- +1 DO RTNALLUSR^SDESLOC(.JSONRETURN,$GET(LOCIEN))
- QUIT
- +2 ;