- SDEC ;ALB/SAT,PC,LAB - VISTA SCHEDULING RPCS ;Jul 15, 2021@10:40
- ;;5.3;Scheduling;**627,643,642,651,658,665,672,679,686,694,745,756,790,799,805**;Aug 13, 1993;Build 9
- ;;Per VHA Directive 6402, this routine should not be modified
- Q
- ;
- ACCGROUP(SDECY) ;EP return active entries from the SDEC ACCESS GROUP file 409.822
- D ACCGROUP^SDEC45(.SDECY) Q
- ACCGPTYG(SDECY) ;EP Get access group types
- D ACCGPTYG^SDEC15(.SDECY) Q
- ACCTYPE(SDECY) ;EP return active entries from the SDEC ACCESS TYPE file 409.823
- D ACCTYPE^SDEC45(.SDECY) Q
- ADDACCG(SDECY,SDECVAL) ;EP ADD/EDIT ACCESS GROUP
- D ADDACCG^SDEC21(.SDECY,$G(SDECVAL)) Q
- ADDACCTY(SDECY,SDECVAL) ;EP ADD/EDIT ACCESS TYPE
- D ADDACCTY^SDEC14(.SDECY,$G(SDECVAL)) Q
- ADDAGI(SDECY,SDECIEN,SDECIEN1) ;EP Add access group item - Adds ACCESS GROUP TYPE file entry
- D ADDAGI^SDEC22(.SDECY,$G(SDECIEN),$G(SDECIEN1)) Q
- ADDRES(SDECY,SDECVAL) ;EP ADD/EDIT RESOURCE
- D ADDRES^SDEC16(.SDECY,$G(SDECVAL)) Q
- ADDRESU(SDECY,SDECVAL) ;EP ADD/EDIT RESOURCE USER
- D ADDRESU^SDEC18(.SDECY,$G(SDECVAL)) Q
- ADDRG(SDECY,SDECVAL) ;EP ADD/EDIT RESOURCE GROUP
- D ADDRG^SDEC19(.SDECY,$G(SDECVAL)) Q
- ADDRGI(SDECY,SDECIEN,SDECIEN1) ;EP Adds RESOURCEID SDECIEN1 to RESOURCE GROUP entry SDECIEN
- D ADDRGI^SDEC20(.SDECY,$G(SDECIEN),$G(SDECIEN1)) Q
- ;Remove APBLKALL *745
- APBLKOV(SDECY,SDECSTART,SDECEND,SDECRES,SDECWI) ;EP APPT BLOCKS OVERLAP
- D APBLKOV^SDEC05(.SDECY,$G(SDECSTART),$G(SDECEND),$G(SDECRES),$G(SDECWI)) Q
- APPADD ;EP ADD NEW APPOINTMENT
- Q ;calls directly to APPADD^SDEC07
- APPDEL(SDECY,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11) ;EP Cancels appointment *745,756
- D APPDEL^SDEC08(.SDECY,$G(S1),$G(S2),$G(S3),$G(S4),$G(S5),$G(S6),$G(S7),$G(S8),$G(S9),$G(S10),$G(S11)) Q
- APPIDGET(SDECY,SDID) ;GET SDEC APPOINTMENT ien for given External ID
- D APPIDGET^SDEC55(.SDECY,$G(SDID)) Q
- APPSDGET(SDECY,MAXREC,LASTSUB,SDBEG,SDEND,NOTEFLG,SDRES,DFN,SDID,SDIEN) ;GET appointment data from SDEC APPOINTMENT file 409.84
- D APPSDGET^SDEC55A(.SDECY,$G(MAXREC),$G(LASTSUB),$G(SDBEG),$G(SDEND),$G(NOTEFLG),$G(SDRES),$G(DFN),$G(SDID),$G(SDIEN)) Q
- APPSLOTS(SDECY,SDCL,SDBEG,SDEND) ;return array of appt slots and availability - RPC
- D APPSLOTS^SDEC57(.SDECY,$G(SDCL),$G(SDBEG),$G(SDEND)) Q
- APPTLETR(SDECY,SDECAPID,LT) ;EP Print Appointment Letter
- D APPTLETR^SDEC40(.SDECY,$G(SDECAPID),$G(LT)) Q
- ;Remove APPTEVLG *745
- APPTYPES(RET,DFN) ; EP for SDEC APPTYPES - Return all active Appointment types from the APPOINTMENT TYPE file 409.1
- D APPTYPES^SDECWL(.RET,$G(DFN)) Q
- ARCLOSE(RET,S1,S2,S3,S4,S5) ;Appt Request close
- D BLDARR(.INP,"ARCLOSE+0") ;*745
- D ARCLOSE^SDECAR(.RET,.INP) Q
- ARCLOSE1(RET,INP) ; Appt Request CLOSE (without ... for VistA calls) ;
- D ARCLOSE^SDECAR(.RET,.INP) Q
- ARDGET(SDECY) ;get values for disposition field of SDEC APPT REQUEST file
- D ARDGET^SDECAR(.SDECY) Q
- ARGET(RET,ARIEN1,MAXREC,SDBEG,SDEND,DFN,LASTSUB,SDTOP,SVCL,DESDT,PRL,SVCR,SCVISIT,CLINIC,ORIGDT) ;EP Appt Request GET
- D ARGET^SDECAR1(.RET,$G(ARIEN1),$G(MAXREC),$G(SDBEG),$G(SDEND),$G(DFN),$G(LASTSUB),$G(SDTOP),$G(SVCL),$G(DESDT),$G(PRL),$G(SVCR),$G(SCVISIT),$G(CLINIC),$G(ORIGDT)) Q
- ARMRTGET(SDECY,ARIEN) ;GET number of entries and values in MRTC CALC PREF DATES
- D ARMRTGET^SDECAR(.SDECY,$G(ARIEN)) Q
- ARMRTSET(SDECY,ARIEN,MRTC) ;SET MRTC CALC PREF DATES dates - clears the multiple and sets the new ones that are passed in
- D ARMRTSET^SDECAR(.SDECY,$G(ARIEN),$G(MRTC)) Q
- AROPEN(RET,ARAPP,ARIEN,ARDDT) ;Appt Request Open/re-open
- D AROPEN^SDECAR(.RET,$G(ARAPP),$G(ARIEN),$G(ARDDT)) Q
- ARPCSET(SDECY,INP,ARIEN) ;SET update patient contacts in SDEC APPT REQUEST file
- D ARPCSET^SDECAR(.SDECY,$G(INP),$G(ARIEN)) Q
- ARSET(RET,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12,S13,S14,S15,S16,S17,S18,S19,S20,S21,S22,S23,S24,S25,S26,S27,S28,S29) ;EP Appt Request Set ;
- D BLDARR(.INP,"ARSET+0") ;*745
- D ARSET^SDECAR2(.RET,.INP) Q
- ARSET1(RET,INP) ;EP Appt Request Set (without ... for VistA calls)
- D ARSET^SDECAR2(.RET,.INP) Q
- AVADD(SDECY,SDECSTART,SDECEND,SDECTYPID,SDECRES,SDECSLOTS,SDECNOTE) ;EP SET Create entry in SDEC ACCESS BLOCK
- D AVADD^SDEC12(.SDECY,$G(SDECSTART),$G(SDECEND),$G(SDECTYPID),$G(SDECRES),$G(SDECSLOTS),$G(SDECNOTE)) Q
- AVDEL(SDECY,SDECAVID) ;EP Cancel Availability - Deletes Access Block
- D AVDEL^SDEC13(.SDECY,$G(SDECAVID)) Q
- AVDELDT(SDECY,SDECRESD,SDECSTART,SDECEND) ;EP Cancel availability in a date range
- D AVDELDT^SDEC13(.SDECY,$G(SDECRESD),$G(SDECSTART),$G(SDECEND)) Q
- BOOKHLDY(SDECY,SDECCL) ; Returns can book on holiday flag for a clinic. 12/1/17 wtc 679
- D BOOKHLDY^SDEC32(.SDECY,SDECCL) Q ;
- CANCKOUT(SDECY,SDECAPTID) ;EP Cancel Check Out appointment
- D CANCKOUT^SDEC25(.SDECY,$G(SDECAPTID)) Q
- CANREAS(SDECY,SDECIN) ;EP return active/inactive entries from the CANCELLATION REASONS table 409.2
- D CANREAS^SDEC45(.SDECY,$G(SDECIN)) Q
- CAP(SDECY,DFN,SDAMEVT,SDT,DVBADA,SDAUTORB,SDCANVET) ;
- D CAP^SDEC58(.SDECY,$G(DFN),$G(SDAMEVT),$G(SDT),$G(DVBADA),$G(SDAUTORB),$G(SDCANVET)) Q
- CGET(SDECY) ;GET active Countries from the COUNTRY CODE file 779.004
- D CGET^SDEC55(.SDECY) Q
- CHECKIN(SDECY,SDECAPTID,SDECCDT,SDECCC,SDECPRV,SDECROU,SDECVCL,SDECVFM,SDECOG,SDECCR,SDECPCC,SDECWHF) ;EP Check in appointment
- D CHECKIN^SDEC25(.SDECY,$G(SDECAPTID),$G(SDECCDT),$G(SDECCC),$G(SDECPRV),$G(SDECROU),$G(SDECVCL),$G(SDECVFM),$G(SDECOG),$G(SDECCR),$G(SDECPCC),$G(SDECWHF)) Q
- CHECKOUT(SDECY,DFN,SDT,SDCODT,SDECAPTID,VPRV) ;EP Check Out appointment
- D CHECKOUT^SDEC25(.SDECY,$G(DFN),$G(SDT),$G(SDCODT),$G(SDECAPTID),$G(VPRV)) Q
- CLINALL(RET,MAXREC,SDECP) ; EP Return the IEN and NAME for all entries in the SD WL CLINIC LOCATION file
- D CLINALL^SDECWL(.RET,$G(MAXREC),$G(SDECP)) Q
- ;Remove CLINCAN *745
- CLINDIS(SDECY,SDECCLST,SDECBEG,SDECEND,SDECWI) ;EP Return formatted text output of the Clinic Schedules Report
- D CLINDIS^SDEC47(.SDECY,$G(SDECCLST),$G(SDECBEG),$G(SDECEND),$G(SDECWI)) Q
- CLINDISW(SDECY,SDECCLST,SDECBEG,SDECEND) ;EP Return formatted text output of the Clinic Schedules Report for Walkins
- D CLINDISW^SDEC47(.SDECY,$G(SDECCLST),$G(SDECBEG),$G(SDECEND)) Q
- CLINLET(SDECY,SDECCLST,SDECBEG,SDECEND,SDECWI) ;EP CLINIC LETTERS Appointment data
- D CLINLET^SDEC27(.SDECY,$G(SDECCLST),$G(SDECBEG),$G(SDECEND),$G(SDECWI)) Q
- CLINLETW(SDECY,SDECCLST,SDECBEG,SDECEND) ;EP CLINIC LETTERS WALK-IN Appointment data for Walk-in Appointments only
- D CLINLETW^SDEC27(.SDECY,$G(SDECCLST),$G(SDECBEG),$G(SDECEND)) Q
- CLINPROV(SDECY,SDECCL) ;EP return all providers for a given clinic from the HOSPITAL LOCATION file 44
- D CLINPROV^SDEC45(.SDECY,$G(SDECCL)) Q
- CLINSET(SDECY,SDNOSLOT,SDIENS,SDECP,SDNOLET,MAXREC) ;EP Returns CLINIC SETUP PARAMETERS for clinics that are active in the HOSPITAL LOCATION file
- D CLINSET^SDEC32(.SDECY,$G(SDNOSLOT),$G(SDIENS),$G(SDECP),$G(SDNOLET),$G(MAXREC)) Q
- CLINSTOP(SDECY,SDP) ;EP CLINIC STOP remote procedure
- D CLINSTOP^SDEC45(.SDECY,$G(SDP)) Q
- COPYAPPT(SDECY,SDECRES,SDEC44,SDECBEG,SDECEND) ;EP Copy appointments from HOSPITAL LOCATION to SDEC RESOURCE
- D COPYAPPT^SDEC29(.SDECY,$G(SDECRES),$G(SDEC44),$G(SDECBEG),$G(SDECEND)) Q
- CPCANC(SDECY,SDECTSK) ;EP Copy Appointment Cancel
- D CPCANC^SDEC29(.SDECY,$G(SDECTSK)) Q
- CPSTAT(SDECY,SDECTSK) ;EP Copy Appointment Status
- D CPSTAT^SDEC29(.SDECY,$G(SDECTSK)) Q
- CRSCHED(SDECY,SDECRES,SDECSTART,SDECEND,SDECWKIN,MAXREC,LASTSUB) ;EP Create Resource Appointment Schedule ;alb/sat 672
- D CRSCHED^SDEC02(.SDECY,$G(SDECRES),$G(SDECSTART),$G(SDECEND),$G(SDECWKIN),$G(MAXREC),$G(LASTSUB)) Q
- CSLOTSCH(SDECY,SDECRES,SDECSTART,SDECEND,SDECTYPES,SDECSRCH) ;GET Create Assigned Slot Schedule
- D CSLOTSCH^SDEC04(.SDECY,$G(SDECRES),$G(SDECSTART),$G(SDECEND),$G(SDECTYPES),$G(SDECSRCH)) Q
- CURFACG(SDECY,SDECDUZ) ;EP get current division/facility for given user
- D CURFACG^SDEC46(.SDECY,$G(SDECDUZ)) Q
- CVARAPPT(SDECY,SDCL) ;EP IS Clinic Variable Appointment Length
- D CVARAPPT^SDEC37(.SDECY,$G(SDCL)) Q
- DELAG(SDECY,SDECGRP) ;EP Deletes entry having IEN SDECGRP from SDEC ACCESS GROUP file
- D DELAG^SDEC21(.SDECY,$G(SDECGRP)) Q
- DELAGI(SDECY,SDECIEN,SDECIEN1) ;EP Deletes entry having Access Group SDECIEN and Access Type SDECIEN1 the SDEC ACCESS GROUP TYPE file
- D DELAGI^SDEC22(.SDECY,$G(SDECIEN),$G(SDECIEN1)) Q
- DELRESGP(SDECY,SDECGRP) ;EP Deletes entry name SDECGRP from SDEC RESOURCE GROUP file
- D DELRESGP^SDEC19(.SDECY,$G(SDECGRP)) Q
- DELRGI(SDECY,SDECIEN,SDECIEN1) ;EP Deletes entry SDECIEN1 from entry SDECIEN in the SDEC RESOURCE GROUP file
- D DELRGI^SDEC20(.SDECY,$G(SDECIEN),$G(SDECIEN1)) Q
- DELRU(SDECY,SDECIEN) ;EP Delete Resource User from SDEC RESOURCE USER file
- D DELRU^SDEC18(.SDECY,$G(SDECIEN)) Q
- EDITAPPT(SDECY,SDECAPTID,SDECNOTE,SDECLEN) ;EP Edit appointment (only 'note text' and appointment length can be edited)
- D EDITAPPT^SDEC26(.SDECY,$G(SDECAPTID),$G(SDECNOTE),$G(SDECLEN)) Q
- EHRPT(SDECY,SDECWID,SDECDFN) ;EP Raise patient selection event to EHR
- D EHRPT^SDEC30(.SDECY,$G(SDECWID),$G(SDECDFN)) Q
- ETHGET(SDECY) ;GET active Ethnicities from the ETHNICITY file 10.2
- D ETHGET^SDEC55(.SDECY) Q
- ETHCMGET(SDECY) ;GET values from the RACE AND ETHNICITY COLLECTION METHOD file 10.3
- D ETHCMGET^SDEC55(.SDECY) Q
- FACLIST(SDECY,DFN) ; Return list of remote facilities for patient
- D PTINQ^SDECPT(.SDECY,$G(DFN)) Q
- FAPPTGET(SDECY,DFN,SDBEG,SDEND,SDANC) ;GET Future appointments for given patient and date range
- D FAPPTGET^SDEC50(.SDECY,$G(DFN),$G(SDBEG),$G(SDEND),$G(SDANC)) Q
- GETFAC(SDECY,SDECDUZ) ;EP Gets all facilities for a user
- D GETFAC^SDEC46(.SDECY,$G(SDECDUZ)) Q
- GETONE(SDECY,SDGMR) ;EP Return data on one consult
- D GETONE^SDEC51(.SDECY,$G(SDGMR)) Q
- GETREGA(SDECRET,DFN) ;EP return basic reg info/demographics for given patient
- D GETREGA^SDEC09(.SDECRET,$G(DFN)) Q
- GETSITES(SDECY) ;return active National VA site names and station numbers
- D GETSITES^SDEC59(.SDECY) Q
- GETVPRV(BGOY,VPRV) ;EP return data from the V PROVIDER file
- D GETVPRV^SDEC44(.BGOY,$G(VPRV)) Q
- HIDE(SDECY) ;Return clinics hidden from display
- D HIDE^SDEC45(.SDECY) Q
- HOLIDAY(SDECY,SDECBD) ;EP return all entries from the HOLIDAY file 40.5
- D HOLIDAY^SDEC45(.SDECY,$G(SDECBD)) Q
- HOSPLOC(SDECY,SDECP,MAXREC,LSUB) ;EP return HOSPITAL LOCATIONs
- D HOSPLOC^SDEC32(.SDECY,$G(SDECP),$G(MAXREC),$G(LSUB)) Q
- IMHERE(SDECRES) ;
- D IMHERE^SDEC31(.SDECRES) Q
- NETLOC(SDECY,LOCATION) ;GET data from the NETWORK LOCATION file 2005.2
- D NETLOC^SDEC59(.SDECY,$G(LOCATION)) Q
- NEWPERS(SDECY,SDCLASS,SDPART,MAXREC,LSUB,INACT) ;return entries from the USR CLASS MEMBERSHIP file that have the given USR CLASS (default is PROVIDER)
- D NEWPERS^SDEC45(.SDECY,$G(SDCLASS),$G(SDPART),$G(MAXREC),$G(LSUB),$G(INACT)) Q
- NOSHOPAT(SDECY,DFN,SDCL) ;EP COLLECT NO-SHOW DATA for Patient
- D NOSHOPAT^SDEC37(.SDECY,$G(DFN),$G(SDCL)) Q
- NOSHOW(SDECY,SDECAPTID,SDECNS,USERIEN,SDECDATE) ;EP Sets appointment noshow flag in SDEC APPOINTMENT file
- D NOSHOW^SDEC31(.SDECY,$G(SDECAPTID),$G(SDECNS),$G(USERIEN),$G(SDECDATE)) Q
- OVBOOK(SDECY,SDCL,SDBEG,SDECRES) ;EP RPC - OVERBOOK - CHECK FOR OVERBOOK FOR GIVEN CLINIC, DATE, AND RESOURCE
- D OVBOOK^SDEC07A(.SDECY,$G(SDCL),$G(SDBEG),$G(SDECRES)) Q
- PATAPPTD(SDECY,DFN) ;EP Return the Patient appointment display
- D PATAPPTD^SDEC27(.SDECY,$G(DFN)) Q
- PATAPPTH(SDECY,DFN) ;EP return patient's appointment history for given patient - RPC
- D PATAPPTH^SDEC48(.SDECY,$G(DFN)) Q
- PCSGET(SDECY,SDSVSP) ;GET clinics for a service/specialty (clinic stop)
- D PCSGET^SDEC50(.SDECY,$G(SDSVSP)) Q
- PCSTGET(SDECY,DFN,SDCL,SDBEG,SDEND) ;GET patient clinic status for a clinic for a given time frame - has the patient been seen by the given Clinic in the past 24 months
- D PCSTGET^SDEC50(.SDECY,$G(DFN),$G(SDCL),$G(SDBEG),$G(SDEND)) Q
- PCST2GET(SDECY,DFN,STOP,SDBEG,SDEND) ;GET patient clinic status for a service/specialty (clinic stop) for a given time frame - has the patient been seen any clinics with the given service/specialty (clinic stop) in the past 24 months
- D PCST2GET^SDEC50(.SDECY,$G(DFN),$G(STOP),$G(SDBEG),$G(SDEND)) Q
- PREFGET(SDECY,DFN,INAC) ;EP Get values from SDEC PREFERENCES AND SPECIAL NEEDS file for given patient
- D PREFGET^SDEC49(.SDECY,$G(DFN),$G(INAC)) Q
- PREFGETV(SDECY) ;EP Get all valid PREFERENCE text from SDEC PREFERENCES AND SPECIAL NEEDS file
- D PREFGETV^SDEC49(.SDECY) Q
- PREFSET(SDECY,DFN,PREF,REMARK) ;EP Set values to SDEC PREFERENCES AND SPECIAL NEEDS file ;alb/sat 658 add REMARK
- D PREFSET^SDEC49(.SDECY,$G(DFN),$G(PREF),$G(REMARK)) Q
- PRIV(SDECY,CLINIEN,USER) ;IS this USER in the PRIVILEGED USER multiple for the clinic
- D PRIV^SDEC32(.SDECY,$G(CLINIEN),$G(USER)) Q
- PROVALL(SDECY,SDECCL) ;EP return all providers for a given clinic from the HOSPITAL LOCATION file 44
- D PROVALL^SDEC45(.SDECY,$G(SDECCL)) Q
- PROVCLIN(SDECY,SDECPRV) ;EP PROVIDER CLINICS remote procedure
- D PROVCLIN^SDEC45(.SDECY,$G(SDECPRV)) Q
- PTINQ(SDECY,DFN) ;GET output from ORWPT PTINQ in DataTable format
- D PTINQ^SDECPT(.SDECY,$G(DFN)) Q
- PTLOOKRS(SDECY,SDECP,SDECC,LASTSUB) ;EP Patient Lookup
- D PTLOOKRS^SDEC28(.SDECY,$G(SDECP),$G(SDECC),$G(LASTSUB)) Q
- PTSET(SDECY,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12,S13,S14,S15,S16,S17,S18,S19,S20,S21,S22,S23,S24,S25,S26,S27,S28,S29,S30,S31,S32) ;SET patient demographics
- D BLDARR(.INP,"PTSET+0") ;*745
- D PTSET^SDEC53(.SDECY,.INP) Q
- PTSET1(SDECY,INP) ;SET patient demographics (call from debug)
- D PTSET^SDEC53(.SDECY,.INP) Q
- RACEGET(SDECY) ;GET active Race entries from the RACE file 10
- D RACEGET^SDEC55(.SDECY) Q
- RAISEVNT(SDECY,SDECEVENT,SDECPARAM,SDECSIP,SDECSPT) ;EP RAISE EVENT
- D RAISEVNT^SDEC23(.SDECY,$G(SDECEVENT),$G(SDECPARAM),$G(SDECSIP),$G(SDECSPT)) Q
- ;Removed REBKCLIN *745
- REBKLIST(SDECY,SDECLIST) ;EP patient appointments used in listing REBOOKED appointments for a list of appointmentIDs.
- D REBKLIST^SDEC34(.SDECY,$G(SDECLIST)) Q
- REBKNEXT(SDECY,SDECDATE,SDECRES,SDECTPID) ;EP find the next ACCESS BLOCK in resource SDECRES after SDECSTART
- D REBKNEXT^SDEC33(.SDECY,$G(SDECDATE),$G(SDECRES),$G(SDECTPID)) Q
- RECIEN(SDECY,RECIEN) ;GET RECALL REMINDERS for given ID
- D RECIEN^SDEC52(.SDECY,$G(RECIEN)) Q
- RECGET(SDECY,DFN,SDBEG,SDEND,MAXREC,LASTSUB,RECIEN,SDSTOP,SDFLAGS,SDCLL) ; GET entries from the RECALL REMINDERS file 403.5 for a given Patient and Recall Date range. ;alb/sat 658 add SDCLL
- D RECGET^SDEC52(.SDECY,$G(DFN),$G(SDBEG),$G(SDEND),$G(MAXREC),$G(LASTSUB),$G(RECIEN),$G(SDSTOP),$G(SDFLAGS),$G(SDCLL)) Q
- RECSET(SDECY,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12,S13,S14,S15) ; SET/EDIT/CANCEL/DELETE an entry to the RECALL REMINDERS file 403.5
- D BLDARR(.INP,"RECSET+0") ;*745
- D RECSET^SDEC52A(.SDECY,.INP) Q
- RECSET1(SDECY,INP) ; SET/EDIT/CANCEL/DELETE an entry to the RECALL REMINDERS file 403.5
- D RECSET^SDEC52A(.SDECY,.INP) Q
- RECDSET(SDECY,RECALLIEN,SDRRFTR,SDCOMM) ; DELETE an entry to the RECALL REMINDERS file 403.5
- D RECDSET^SDEC52A(.SDECY,$G(RECALLIEN),$G(SDRRFTR),$G(SDCOMM)) Q
- RECAPGET(SDECY) ; GET entries from the RECALL REMINDERS APPT TYPE file 403.51
- D RECAPGET^SDEC52B(.SDECY) Q
- RECPRGET(SDECY,RECINACT,SDECP,MAXREC,LASTSUB) ;GET entries from the RECALL REMINDERS PROVIDERS file 403.54
- D RECPRGET^SDEC52B(.SDECY,$G(RECINACT),$G(SDECP),$G(MAXREC),$G(LASTSUB)) Q
- REGEVENT(SDECY,SDECEVENT,SDECIP,SDECPORT) ;EP Called by client to inform server of client's interest in SDECEVENT
- D REGEVENT^SDEC23(.SDECY,$G(SDECEVENT),$G(SDECIP),$G(SDECPORT)) Q
- REP1GET(SDECY,MAXREC,LASTSUB,PNAME) ;GET clinic data for report
- D REP1GET^SDEC56(.SDECY,$G(MAXREC),$G(LASTSUB),$G(PNAME)) Q
- REQGET(SDECY,SDBEG,SDEND,MAXREC,LASTSUB,SDGMR) ; GET entries with an ACTIVITY of RECEIVED, but do not have an ACTIVITY of SCHEDULED from the REQUEST/CONSULTATING file 123
- D REQGET^SDEC51(.SDECY,$G(SDBEG),$G(SDEND),$G(MAXREC),$G(LASTSUB),$G(SDGMR)) Q
- RESGPUSR(SDECY,SDECDUZ) ;EP GROUP RESOURCE
- D RESGPUSR^SDEC01(.SDECY,$G(SDECDUZ)) Q
- RESGRPUS(SDECY,SDECDUZ) ;EP return ACTIVE resource group names for the given user
- D RESGRPUS^SDEC01(.SDECY,$G(SDECDUZ)) Q
- RESLETRF(SDECY,SDECRES,SDECLT) ;EP Return formatted text output of the Resource's Letter - either "LETTER TEXT" (also used as Reminder Letter), NO SHOW LETTER, or CLINIC CANCELLATION LETTER.
- D RESLETRF^SDEC47(.SDECY,$G(SDECRES),$G(SDECLT)) Q
- RESLETRS(SDECY,SDECLIST,SDLTR,SDNOS,SDCAN) ;EP GET recordset of RESOURCES and associated LETTERS
- D RESLETRS^SDEC35(.SDECY,$G(SDECLIST),$G(SDLTR),$G(SDNOS),$G(SDCAN)) Q
- RESUSER(SDECY,SDRES) ;EP SDEC RESOURCE USER remote procedure returns all entries from the SDEC RESOURCE USER table 409.833
- D RESUSER^SDEC45(.SDECY,$G(SDRES)) Q
- RESOURCE(SDECY,SDECDUZ,SDACT,SDTYPE,MAXREC,LASTSUBI,SDIEN,SDECP) ;EP Returns ADO Recordset with ALL RESOURCE names
- D RESOURCE^SDEC01A(.SDECY,$G(SDECDUZ),$G(SDACT),$G(SDTYPE),$G(MAXREC),$G(LASTSUBI),$G(SDIEN),$G(SDECP)) Q
- SCHUSR(SDECY) ;EP Return recordset of all users in NEW PERSON having SDECZMENU key
- D SCHUSR^SDEC17(.SDECY) Q
- SEARCHAV(SDECY,SDECRES,SDECSTRT,SDECEND,SDECTYPES,SDECAMPM,SDECWKDY) ;EP Searches availability database
- D SEARCHAV^SDEC24(.SDECY,$G(SDECRES),$G(SDECSTRT),$G(SDECEND),$G(SDECTYPES),$G(SDECAMPM),$G(SDECWKDY)) Q
- SETFAC(SDECY,SDECDUZ,SDECFAC) ;EP SET FACILITY
- D SETFAC^SDEC46(.SDECY,$G(SDECDUZ),$G(SDECFAC)) Q
- SETRBOOK(SDECY,SDECAPPT,SDECDATE) ;EP Sets rebook date into appointment
- D SETRBOOK^SDEC33(.SDECY,$G(SDECAPPT),$G(SDECDATE)) Q
- SPACEBAR(SDECY,SDECDIC,SDECVAL) ;EP Update ^DISV with most recent lookup value SDECVAL from file SDECDIC
- D SPACEBAR^SDEC30(.SDECY,$G(SDECDIC),$G(SDECVAL)) Q
- ;Removed SUMMGET *745
- SUMMGET2(SDECRET,SDBEG,SDEND,USER) ;Get compiled Audit Report for a given date range
- D SUMMGET2^SDECAUD(.SDECRET,$G(SDBEG),$G(SDEND),$G(USER)) Q
- SUMMAGET(SDECY,SDBEG,SDEND,USER,LSUB,MAXREC) ;get ALL appointments with a cancel status from SDEC APPOINTMENT for given date range and user
- D SUMMAGET^SDEC54A(.SDECY,$G(SDBEG),$G(SDEND),$G(USER),$G(LSUB),$G(MAXREC)) Q
- SUSRINFO(SDECY,SDECDUZ,GUIVERS) ;EP SCHEDULING USER INFO
- ; Added GUI version to parameters to prevent users from using old versions. SD*5.3*694 wtc 8/27/2018
- D SUSRINFO^SDEC01(.SDECY,$G(SDECDUZ),$G(GUIVERS)) Q
- SVSPALL(RET) ; EP return IEN and NAME for all entries in the SD WL SERVICE/SPECIALTY file
- D SVSPALL^SDECWL(.RET) Q
- SYSSTAT(SDECY) ; EP SYSTEM STATUS
- D SYSSTAT^SDECUTL(.SDECY) Q
- TPBLKOV(SDECY,SDECSTART,SDECEND,SDECRES) ;EP TYPE BLOCKS OVERLAP
- D TPBLKOV^SDEC06(.SDECY,$G(SDECSTART),$G(SDECEND),$G(SDECRES)) Q
- ;Removed UNDOCANA
- UNREGEV(SDECY,SDECEVENT,SDECIP,SDECPORT) ;EP rpc SDE UNREGEV Called by client to Unregister client's interest in SDECEVENT
- D UNREGEV^SDEC23(.SDECY,$G(SDECEVENT),$G(SDECIP),$G(SDECPORT)) Q
- WAITLIST(SDECY,SDECRES) ;EP COLLECT WAITLIST DATA
- D WAITLIST^SDEC36(.SDECY,$G(SDECRES)) Q
- WLCLOSE(RET,SD1,SD2,SD3,SD4) ; Waitlist CLOSE
- D BLDARR(.INP,"WLCLOSE+0") ;*745
- D WLCLOSE^SDECWL(.RET,.INP) Q
- WLCLOSE1(RET,INP) ; Waitlist CLOSE (without ... for VistA calls)
- D WLCLOSE^SDECWL(.RET,.INP) Q
- WLGET(RET,WLIEN1,MAXREC,SDBEG,SDEND,DFN,LASTSUB,SDTOP,SVCL,DESDT,PRI,SVCR,SCVISIT,CLINIC,ORIGDT) ;EP Waitlist GET ;alb/sat 658 add SVCL-SCVISIT
- D WLGET^SDECWL1(.RET,$G(WLIEN1),$G(MAXREC),$G(SDBEG),$G(SDEND),$G(DFN),$G(LASTSUB),$G(SDTOP),$G(SVCL),$G(DESDT),$G(PRI),$G(SVCR),$G(SCVISIT),$G(CLINIC),$G(ORIGDT)) Q
- WLHIDE(SDECY,DFN,WLCL) ;GET wait list entries in which the associated clinic's 'HIDE FROM DISPLAY?' field is 'YES'
- D WLHIDE^SDECWL3(.SDECY,$G(DFN),$G(WLCL)) Q
- WLOPEN(RET,WLAPP,WLIEN,WLDDT) ;SET Waitlist Open/re-open
- D WLOPEN^SDECWL(.RET,$G(WLAPP),$G(WLIEN),$G(WLDDT)) Q
- WLPCSET(SDECY,INP,WLIEN) ;SET update patient contacts in SD WAIT LIST file
- D WLPCSET^SDECWL(.SDECY,$G(INP),$G(WLIEN)) Q
- WLSET(RET,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12,S13,S14,S15,S16,S17,S18,S19,S20,S21,S22,S23,S24,S25,S26,SD27) ;EP Waitlist Set
- D BLDARR(.INP,"WLSET+0") ;*745
- D WLSET^SDECWL2(.RET,.INP) Q
- WLSET1(RET,INP) ;EP Waitlist Set (without ... for VistA calls)
- D WLSET^SDECWL2(.RET,.INP) Q
- BLDARR(ARR,TAG) ;array build *745
- K ARR
- N PM,PNO,I S PM=$P($P($T(@TAG),"(",2),")") S ARR=$L(PM,",")-1
- F I=1:1:ARR S:$D(@($P(PM,",",I+1))) ARR(I)=@($P(PM,",",I+1))
- Q ARR
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDEC 19996 printed Jan 18, 2025@03:50:55 Page 2
- SDEC ;ALB/SAT,PC,LAB - VISTA SCHEDULING RPCS ;Jul 15, 2021@10:40
- +1 ;;5.3;Scheduling;**627,643,642,651,658,665,672,679,686,694,745,756,790,799,805**;Aug 13, 1993;Build 9
- +2 ;;Per VHA Directive 6402, this routine should not be modified
- +3 QUIT
- +4 ;
- ACCGROUP(SDECY) ;EP return active entries from the SDEC ACCESS GROUP file 409.822
- +1 DO ACCGROUP^SDEC45(.SDECY)
- QUIT
- ACCGPTYG(SDECY) ;EP Get access group types
- +1 DO ACCGPTYG^SDEC15(.SDECY)
- QUIT
- ACCTYPE(SDECY) ;EP return active entries from the SDEC ACCESS TYPE file 409.823
- +1 DO ACCTYPE^SDEC45(.SDECY)
- QUIT
- ADDACCG(SDECY,SDECVAL) ;EP ADD/EDIT ACCESS GROUP
- +1 DO ADDACCG^SDEC21(.SDECY,$GET(SDECVAL))
- QUIT
- ADDACCTY(SDECY,SDECVAL) ;EP ADD/EDIT ACCESS TYPE
- +1 DO ADDACCTY^SDEC14(.SDECY,$GET(SDECVAL))
- QUIT
- ADDAGI(SDECY,SDECIEN,SDECIEN1) ;EP Add access group item - Adds ACCESS GROUP TYPE file entry
- +1 DO ADDAGI^SDEC22(.SDECY,$GET(SDECIEN),$GET(SDECIEN1))
- QUIT
- ADDRES(SDECY,SDECVAL) ;EP ADD/EDIT RESOURCE
- +1 DO ADDRES^SDEC16(.SDECY,$GET(SDECVAL))
- QUIT
- ADDRESU(SDECY,SDECVAL) ;EP ADD/EDIT RESOURCE USER
- +1 DO ADDRESU^SDEC18(.SDECY,$GET(SDECVAL))
- QUIT
- ADDRG(SDECY,SDECVAL) ;EP ADD/EDIT RESOURCE GROUP
- +1 DO ADDRG^SDEC19(.SDECY,$GET(SDECVAL))
- QUIT
- ADDRGI(SDECY,SDECIEN,SDECIEN1) ;EP Adds RESOURCEID SDECIEN1 to RESOURCE GROUP entry SDECIEN
- +1 DO ADDRGI^SDEC20(.SDECY,$GET(SDECIEN),$GET(SDECIEN1))
- QUIT
- +2 ;Remove APBLKALL *745
- APBLKOV(SDECY,SDECSTART,SDECEND,SDECRES,SDECWI) ;EP APPT BLOCKS OVERLAP
- +1 DO APBLKOV^SDEC05(.SDECY,$GET(SDECSTART),$GET(SDECEND),$GET(SDECRES),$GET(SDECWI))
- QUIT
- APPADD ;EP ADD NEW APPOINTMENT
- +1 ;calls directly to APPADD^SDEC07
- QUIT
- APPDEL(SDECY,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11) ;EP Cancels appointment *745,756
- +1 DO APPDEL^SDEC08(.SDECY,$GET(S1),$GET(S2),$GET(S3),$GET(S4),$GET(S5),$GET(S6),$GET(S7),$GET(S8),$GET(S9),$GET(S10),$GET(S11))
- QUIT
- APPIDGET(SDECY,SDID) ;GET SDEC APPOINTMENT ien for given External ID
- +1 DO APPIDGET^SDEC55(.SDECY,$GET(SDID))
- QUIT
- APPSDGET(SDECY,MAXREC,LASTSUB,SDBEG,SDEND,NOTEFLG,SDRES,DFN,SDID,SDIEN) ;GET appointment data from SDEC APPOINTMENT file 409.84
- +1 DO APPSDGET^SDEC55A(.SDECY,$GET(MAXREC),$GET(LASTSUB),$GET(SDBEG),$GET(SDEND),$GET(NOTEFLG),$GET(SDRES),$GET(DFN),$GET(SDID),$GET(SDIEN))
- QUIT
- APPSLOTS(SDECY,SDCL,SDBEG,SDEND) ;return array of appt slots and availability - RPC
- +1 DO APPSLOTS^SDEC57(.SDECY,$GET(SDCL),$GET(SDBEG),$GET(SDEND))
- QUIT
- APPTLETR(SDECY,SDECAPID,LT) ;EP Print Appointment Letter
- +1 DO APPTLETR^SDEC40(.SDECY,$GET(SDECAPID),$GET(LT))
- QUIT
- +2 ;Remove APPTEVLG *745
- APPTYPES(RET,DFN) ; EP for SDEC APPTYPES - Return all active Appointment types from the APPOINTMENT TYPE file 409.1
- +1 DO APPTYPES^SDECWL(.RET,$GET(DFN))
- QUIT
- ARCLOSE(RET,S1,S2,S3,S4,S5) ;Appt Request close
- +1 ;*745
- DO BLDARR(.INP,"ARCLOSE+0")
- +2 DO ARCLOSE^SDECAR(.RET,.INP)
- QUIT
- ARCLOSE1(RET,INP) ; Appt Request CLOSE (without ... for VistA calls) ;
- +1 DO ARCLOSE^SDECAR(.RET,.INP)
- QUIT
- ARDGET(SDECY) ;get values for disposition field of SDEC APPT REQUEST file
- +1 DO ARDGET^SDECAR(.SDECY)
- QUIT
- ARGET(RET,ARIEN1,MAXREC,SDBEG,SDEND,DFN,LASTSUB,SDTOP,SVCL,DESDT,PRL,SVCR,SCVISIT,CLINIC,ORIGDT) ;EP Appt Request GET
- +1 DO ARGET^SDECAR1(.RET,$GET(ARIEN1),$GET(MAXREC),$GET(SDBEG),$GET(SDEND),$GET(DFN),$GET(LASTSUB),$GET(SDTOP),$GET(SVCL),$GET(DESDT),$GET(PRL),$GET(SVCR),$GET(SCVISIT),$GET(CLINIC),$GET(ORIGDT))
- QUIT
- ARMRTGET(SDECY,ARIEN) ;GET number of entries and values in MRTC CALC PREF DATES
- +1 DO ARMRTGET^SDECAR(.SDECY,$GET(ARIEN))
- QUIT
- ARMRTSET(SDECY,ARIEN,MRTC) ;SET MRTC CALC PREF DATES dates - clears the multiple and sets the new ones that are passed in
- +1 DO ARMRTSET^SDECAR(.SDECY,$GET(ARIEN),$GET(MRTC))
- QUIT
- AROPEN(RET,ARAPP,ARIEN,ARDDT) ;Appt Request Open/re-open
- +1 DO AROPEN^SDECAR(.RET,$GET(ARAPP),$GET(ARIEN),$GET(ARDDT))
- QUIT
- ARPCSET(SDECY,INP,ARIEN) ;SET update patient contacts in SDEC APPT REQUEST file
- +1 DO ARPCSET^SDECAR(.SDECY,$GET(INP),$GET(ARIEN))
- QUIT
- ARSET(RET,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12,S13,S14,S15,S16,S17,S18,S19,S20,S21,S22,S23,S24,S25,S26,S27,S28,S29) ;EP Appt Request Set ;
- +1 ;*745
- DO BLDARR(.INP,"ARSET+0")
- +2 DO ARSET^SDECAR2(.RET,.INP)
- QUIT
- ARSET1(RET,INP) ;EP Appt Request Set (without ... for VistA calls)
- +1 DO ARSET^SDECAR2(.RET,.INP)
- QUIT
- AVADD(SDECY,SDECSTART,SDECEND,SDECTYPID,SDECRES,SDECSLOTS,SDECNOTE) ;EP SET Create entry in SDEC ACCESS BLOCK
- +1 DO AVADD^SDEC12(.SDECY,$GET(SDECSTART),$GET(SDECEND),$GET(SDECTYPID),$GET(SDECRES),$GET(SDECSLOTS),$GET(SDECNOTE))
- QUIT
- AVDEL(SDECY,SDECAVID) ;EP Cancel Availability - Deletes Access Block
- +1 DO AVDEL^SDEC13(.SDECY,$GET(SDECAVID))
- QUIT
- AVDELDT(SDECY,SDECRESD,SDECSTART,SDECEND) ;EP Cancel availability in a date range
- +1 DO AVDELDT^SDEC13(.SDECY,$GET(SDECRESD),$GET(SDECSTART),$GET(SDECEND))
- QUIT
- BOOKHLDY(SDECY,SDECCL) ; Returns can book on holiday flag for a clinic. 12/1/17 wtc 679
- +1 ;
- DO BOOKHLDY^SDEC32(.SDECY,SDECCL)
- QUIT
- CANCKOUT(SDECY,SDECAPTID) ;EP Cancel Check Out appointment
- +1 DO CANCKOUT^SDEC25(.SDECY,$GET(SDECAPTID))
- QUIT
- CANREAS(SDECY,SDECIN) ;EP return active/inactive entries from the CANCELLATION REASONS table 409.2
- +1 DO CANREAS^SDEC45(.SDECY,$GET(SDECIN))
- QUIT
- CAP(SDECY,DFN,SDAMEVT,SDT,DVBADA,SDAUTORB,SDCANVET) ;
- +1 DO CAP^SDEC58(.SDECY,$GET(DFN),$GET(SDAMEVT),$GET(SDT),$GET(DVBADA),$GET(SDAUTORB),$GET(SDCANVET))
- QUIT
- CGET(SDECY) ;GET active Countries from the COUNTRY CODE file 779.004
- +1 DO CGET^SDEC55(.SDECY)
- QUIT
- CHECKIN(SDECY,SDECAPTID,SDECCDT,SDECCC,SDECPRV,SDECROU,SDECVCL,SDECVFM,SDECOG,SDECCR,SDECPCC,SDECWHF) ;EP Check in appointment
- +1 DO CHECKIN^SDEC25(.SDECY,$GET(SDECAPTID),$GET(SDECCDT),$GET(SDECCC),$GET(SDECPRV),$GET(SDECROU),$GET(SDECVCL),$GET(SDECVFM),$GET(SDECOG),$GET(SDECCR),$GET(SDECPCC),$GET(SDECWHF))
- QUIT
- CHECKOUT(SDECY,DFN,SDT,SDCODT,SDECAPTID,VPRV) ;EP Check Out appointment
- +1 DO CHECKOUT^SDEC25(.SDECY,$GET(DFN),$GET(SDT),$GET(SDCODT),$GET(SDECAPTID),$GET(VPRV))
- QUIT
- CLINALL(RET,MAXREC,SDECP) ; EP Return the IEN and NAME for all entries in the SD WL CLINIC LOCATION file
- +1 DO CLINALL^SDECWL(.RET,$GET(MAXREC),$GET(SDECP))
- QUIT
- +2 ;Remove CLINCAN *745
- CLINDIS(SDECY,SDECCLST,SDECBEG,SDECEND,SDECWI) ;EP Return formatted text output of the Clinic Schedules Report
- +1 DO CLINDIS^SDEC47(.SDECY,$GET(SDECCLST),$GET(SDECBEG),$GET(SDECEND),$GET(SDECWI))
- QUIT
- CLINDISW(SDECY,SDECCLST,SDECBEG,SDECEND) ;EP Return formatted text output of the Clinic Schedules Report for Walkins
- +1 DO CLINDISW^SDEC47(.SDECY,$GET(SDECCLST),$GET(SDECBEG),$GET(SDECEND))
- QUIT
- CLINLET(SDECY,SDECCLST,SDECBEG,SDECEND,SDECWI) ;EP CLINIC LETTERS Appointment data
- +1 DO CLINLET^SDEC27(.SDECY,$GET(SDECCLST),$GET(SDECBEG),$GET(SDECEND),$GET(SDECWI))
- QUIT
- CLINLETW(SDECY,SDECCLST,SDECBEG,SDECEND) ;EP CLINIC LETTERS WALK-IN Appointment data for Walk-in Appointments only
- +1 DO CLINLETW^SDEC27(.SDECY,$GET(SDECCLST),$GET(SDECBEG),$GET(SDECEND))
- QUIT
- CLINPROV(SDECY,SDECCL) ;EP return all providers for a given clinic from the HOSPITAL LOCATION file 44
- +1 DO CLINPROV^SDEC45(.SDECY,$GET(SDECCL))
- QUIT
- CLINSET(SDECY,SDNOSLOT,SDIENS,SDECP,SDNOLET,MAXREC) ;EP Returns CLINIC SETUP PARAMETERS for clinics that are active in the HOSPITAL LOCATION file
- +1 DO CLINSET^SDEC32(.SDECY,$GET(SDNOSLOT),$GET(SDIENS),$GET(SDECP),$GET(SDNOLET),$GET(MAXREC))
- QUIT
- CLINSTOP(SDECY,SDP) ;EP CLINIC STOP remote procedure
- +1 DO CLINSTOP^SDEC45(.SDECY,$GET(SDP))
- QUIT
- COPYAPPT(SDECY,SDECRES,SDEC44,SDECBEG,SDECEND) ;EP Copy appointments from HOSPITAL LOCATION to SDEC RESOURCE
- +1 DO COPYAPPT^SDEC29(.SDECY,$GET(SDECRES),$GET(SDEC44),$GET(SDECBEG),$GET(SDECEND))
- QUIT
- CPCANC(SDECY,SDECTSK) ;EP Copy Appointment Cancel
- +1 DO CPCANC^SDEC29(.SDECY,$GET(SDECTSK))
- QUIT
- CPSTAT(SDECY,SDECTSK) ;EP Copy Appointment Status
- +1 DO CPSTAT^SDEC29(.SDECY,$GET(SDECTSK))
- QUIT
- CRSCHED(SDECY,SDECRES,SDECSTART,SDECEND,SDECWKIN,MAXREC,LASTSUB) ;EP Create Resource Appointment Schedule ;alb/sat 672
- +1 DO CRSCHED^SDEC02(.SDECY,$GET(SDECRES),$GET(SDECSTART),$GET(SDECEND),$GET(SDECWKIN),$GET(MAXREC),$GET(LASTSUB))
- QUIT
- CSLOTSCH(SDECY,SDECRES,SDECSTART,SDECEND,SDECTYPES,SDECSRCH) ;GET Create Assigned Slot Schedule
- +1 DO CSLOTSCH^SDEC04(.SDECY,$GET(SDECRES),$GET(SDECSTART),$GET(SDECEND),$GET(SDECTYPES),$GET(SDECSRCH))
- QUIT
- CURFACG(SDECY,SDECDUZ) ;EP get current division/facility for given user
- +1 DO CURFACG^SDEC46(.SDECY,$GET(SDECDUZ))
- QUIT
- CVARAPPT(SDECY,SDCL) ;EP IS Clinic Variable Appointment Length
- +1 DO CVARAPPT^SDEC37(.SDECY,$GET(SDCL))
- QUIT
- DELAG(SDECY,SDECGRP) ;EP Deletes entry having IEN SDECGRP from SDEC ACCESS GROUP file
- +1 DO DELAG^SDEC21(.SDECY,$GET(SDECGRP))
- QUIT
- DELAGI(SDECY,SDECIEN,SDECIEN1) ;EP Deletes entry having Access Group SDECIEN and Access Type SDECIEN1 the SDEC ACCESS GROUP TYPE file
- +1 DO DELAGI^SDEC22(.SDECY,$GET(SDECIEN),$GET(SDECIEN1))
- QUIT
- DELRESGP(SDECY,SDECGRP) ;EP Deletes entry name SDECGRP from SDEC RESOURCE GROUP file
- +1 DO DELRESGP^SDEC19(.SDECY,$GET(SDECGRP))
- QUIT
- DELRGI(SDECY,SDECIEN,SDECIEN1) ;EP Deletes entry SDECIEN1 from entry SDECIEN in the SDEC RESOURCE GROUP file
- +1 DO DELRGI^SDEC20(.SDECY,$GET(SDECIEN),$GET(SDECIEN1))
- QUIT
- DELRU(SDECY,SDECIEN) ;EP Delete Resource User from SDEC RESOURCE USER file
- +1 DO DELRU^SDEC18(.SDECY,$GET(SDECIEN))
- QUIT
- EDITAPPT(SDECY,SDECAPTID,SDECNOTE,SDECLEN) ;EP Edit appointment (only 'note text' and appointment length can be edited)
- +1 DO EDITAPPT^SDEC26(.SDECY,$GET(SDECAPTID),$GET(SDECNOTE),$GET(SDECLEN))
- QUIT
- EHRPT(SDECY,SDECWID,SDECDFN) ;EP Raise patient selection event to EHR
- +1 DO EHRPT^SDEC30(.SDECY,$GET(SDECWID),$GET(SDECDFN))
- QUIT
- ETHGET(SDECY) ;GET active Ethnicities from the ETHNICITY file 10.2
- +1 DO ETHGET^SDEC55(.SDECY)
- QUIT
- ETHCMGET(SDECY) ;GET values from the RACE AND ETHNICITY COLLECTION METHOD file 10.3
- +1 DO ETHCMGET^SDEC55(.SDECY)
- QUIT
- FACLIST(SDECY,DFN) ; Return list of remote facilities for patient
- +1 DO PTINQ^SDECPT(.SDECY,$GET(DFN))
- QUIT
- FAPPTGET(SDECY,DFN,SDBEG,SDEND,SDANC) ;GET Future appointments for given patient and date range
- +1 DO FAPPTGET^SDEC50(.SDECY,$GET(DFN),$GET(SDBEG),$GET(SDEND),$GET(SDANC))
- QUIT
- GETFAC(SDECY,SDECDUZ) ;EP Gets all facilities for a user
- +1 DO GETFAC^SDEC46(.SDECY,$GET(SDECDUZ))
- QUIT
- GETONE(SDECY,SDGMR) ;EP Return data on one consult
- +1 DO GETONE^SDEC51(.SDECY,$GET(SDGMR))
- QUIT
- GETREGA(SDECRET,DFN) ;EP return basic reg info/demographics for given patient
- +1 DO GETREGA^SDEC09(.SDECRET,$GET(DFN))
- QUIT
- GETSITES(SDECY) ;return active National VA site names and station numbers
- +1 DO GETSITES^SDEC59(.SDECY)
- QUIT
- GETVPRV(BGOY,VPRV) ;EP return data from the V PROVIDER file
- +1 DO GETVPRV^SDEC44(.BGOY,$GET(VPRV))
- QUIT
- HIDE(SDECY) ;Return clinics hidden from display
- +1 DO HIDE^SDEC45(.SDECY)
- QUIT
- HOLIDAY(SDECY,SDECBD) ;EP return all entries from the HOLIDAY file 40.5
- +1 DO HOLIDAY^SDEC45(.SDECY,$GET(SDECBD))
- QUIT
- HOSPLOC(SDECY,SDECP,MAXREC,LSUB) ;EP return HOSPITAL LOCATIONs
- +1 DO HOSPLOC^SDEC32(.SDECY,$GET(SDECP),$GET(MAXREC),$GET(LSUB))
- QUIT
- IMHERE(SDECRES) ;
- +1 DO IMHERE^SDEC31(.SDECRES)
- QUIT
- NETLOC(SDECY,LOCATION) ;GET data from the NETWORK LOCATION file 2005.2
- +1 DO NETLOC^SDEC59(.SDECY,$GET(LOCATION))
- QUIT
- NEWPERS(SDECY,SDCLASS,SDPART,MAXREC,LSUB,INACT) ;return entries from the USR CLASS MEMBERSHIP file that have the given USR CLASS (default is PROVIDER)
- +1 DO NEWPERS^SDEC45(.SDECY,$GET(SDCLASS),$GET(SDPART),$GET(MAXREC),$GET(LSUB),$GET(INACT))
- QUIT
- NOSHOPAT(SDECY,DFN,SDCL) ;EP COLLECT NO-SHOW DATA for Patient
- +1 DO NOSHOPAT^SDEC37(.SDECY,$GET(DFN),$GET(SDCL))
- QUIT
- NOSHOW(SDECY,SDECAPTID,SDECNS,USERIEN,SDECDATE) ;EP Sets appointment noshow flag in SDEC APPOINTMENT file
- +1 DO NOSHOW^SDEC31(.SDECY,$GET(SDECAPTID),$GET(SDECNS),$GET(USERIEN),$GET(SDECDATE))
- QUIT
- OVBOOK(SDECY,SDCL,SDBEG,SDECRES) ;EP RPC - OVERBOOK - CHECK FOR OVERBOOK FOR GIVEN CLINIC, DATE, AND RESOURCE
- +1 DO OVBOOK^SDEC07A(.SDECY,$GET(SDCL),$GET(SDBEG),$GET(SDECRES))
- QUIT
- PATAPPTD(SDECY,DFN) ;EP Return the Patient appointment display
- +1 DO PATAPPTD^SDEC27(.SDECY,$GET(DFN))
- QUIT
- PATAPPTH(SDECY,DFN) ;EP return patient's appointment history for given patient - RPC
- +1 DO PATAPPTH^SDEC48(.SDECY,$GET(DFN))
- QUIT
- PCSGET(SDECY,SDSVSP) ;GET clinics for a service/specialty (clinic stop)
- +1 DO PCSGET^SDEC50(.SDECY,$GET(SDSVSP))
- QUIT
- PCSTGET(SDECY,DFN,SDCL,SDBEG,SDEND) ;GET patient clinic status for a clinic for a given time frame - has the patient been seen by the given Clinic in the past 24 months
- +1 DO PCSTGET^SDEC50(.SDECY,$GET(DFN),$GET(SDCL),$GET(SDBEG),$GET(SDEND))
- QUIT
- PCST2GET(SDECY,DFN,STOP,SDBEG,SDEND) ;GET patient clinic status for a service/specialty (clinic stop) for a given time frame - has the patient been seen any clinics with the given service/specialty (clinic stop) in the past 24 months
- +1 DO PCST2GET^SDEC50(.SDECY,$GET(DFN),$GET(STOP),$GET(SDBEG),$GET(SDEND))
- QUIT
- PREFGET(SDECY,DFN,INAC) ;EP Get values from SDEC PREFERENCES AND SPECIAL NEEDS file for given patient
- +1 DO PREFGET^SDEC49(.SDECY,$GET(DFN),$GET(INAC))
- QUIT
- PREFGETV(SDECY) ;EP Get all valid PREFERENCE text from SDEC PREFERENCES AND SPECIAL NEEDS file
- +1 DO PREFGETV^SDEC49(.SDECY)
- QUIT
- PREFSET(SDECY,DFN,PREF,REMARK) ;EP Set values to SDEC PREFERENCES AND SPECIAL NEEDS file ;alb/sat 658 add REMARK
- +1 DO PREFSET^SDEC49(.SDECY,$GET(DFN),$GET(PREF),$GET(REMARK))
- QUIT
- PRIV(SDECY,CLINIEN,USER) ;IS this USER in the PRIVILEGED USER multiple for the clinic
- +1 DO PRIV^SDEC32(.SDECY,$GET(CLINIEN),$GET(USER))
- QUIT
- PROVALL(SDECY,SDECCL) ;EP return all providers for a given clinic from the HOSPITAL LOCATION file 44
- +1 DO PROVALL^SDEC45(.SDECY,$GET(SDECCL))
- QUIT
- PROVCLIN(SDECY,SDECPRV) ;EP PROVIDER CLINICS remote procedure
- +1 DO PROVCLIN^SDEC45(.SDECY,$GET(SDECPRV))
- QUIT
- PTINQ(SDECY,DFN) ;GET output from ORWPT PTINQ in DataTable format
- +1 DO PTINQ^SDECPT(.SDECY,$GET(DFN))
- QUIT
- PTLOOKRS(SDECY,SDECP,SDECC,LASTSUB) ;EP Patient Lookup
- +1 DO PTLOOKRS^SDEC28(.SDECY,$GET(SDECP),$GET(SDECC),$GET(LASTSUB))
- QUIT
- PTSET(SDECY,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12,S13,S14,S15,S16,S17,S18,S19,S20,S21,S22,S23,S24,S25,S26,S27,S28,S29,S30,S31,S32) ;SET patient demographics
- +1 ;*745
- DO BLDARR(.INP,"PTSET+0")
- +2 DO PTSET^SDEC53(.SDECY,.INP)
- QUIT
- PTSET1(SDECY,INP) ;SET patient demographics (call from debug)
- +1 DO PTSET^SDEC53(.SDECY,.INP)
- QUIT
- RACEGET(SDECY) ;GET active Race entries from the RACE file 10
- +1 DO RACEGET^SDEC55(.SDECY)
- QUIT
- RAISEVNT(SDECY,SDECEVENT,SDECPARAM,SDECSIP,SDECSPT) ;EP RAISE EVENT
- +1 DO RAISEVNT^SDEC23(.SDECY,$GET(SDECEVENT),$GET(SDECPARAM),$GET(SDECSIP),$GET(SDECSPT))
- QUIT
- +2 ;Removed REBKCLIN *745
- REBKLIST(SDECY,SDECLIST) ;EP patient appointments used in listing REBOOKED appointments for a list of appointmentIDs.
- +1 DO REBKLIST^SDEC34(.SDECY,$GET(SDECLIST))
- QUIT
- REBKNEXT(SDECY,SDECDATE,SDECRES,SDECTPID) ;EP find the next ACCESS BLOCK in resource SDECRES after SDECSTART
- +1 DO REBKNEXT^SDEC33(.SDECY,$GET(SDECDATE),$GET(SDECRES),$GET(SDECTPID))
- QUIT
- RECIEN(SDECY,RECIEN) ;GET RECALL REMINDERS for given ID
- +1 DO RECIEN^SDEC52(.SDECY,$GET(RECIEN))
- QUIT
- RECGET(SDECY,DFN,SDBEG,SDEND,MAXREC,LASTSUB,RECIEN,SDSTOP,SDFLAGS,SDCLL) ; GET entries from the RECALL REMINDERS file 403.5 for a given Patient and Recall Date range. ;alb/sat 658 add SDCLL
- +1 DO RECGET^SDEC52(.SDECY,$GET(DFN),$GET(SDBEG),$GET(SDEND),$GET(MAXREC),$GET(LASTSUB),$GET(RECIEN),$GET(SDSTOP),$GET(SDFLAGS),$GET(SDCLL))
- QUIT
- RECSET(SDECY,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12,S13,S14,S15) ; SET/EDIT/CANCEL/DELETE an entry to the RECALL REMINDERS file 403.5
- +1 ;*745
- DO BLDARR(.INP,"RECSET+0")
- +2 DO RECSET^SDEC52A(.SDECY,.INP)
- QUIT
- RECSET1(SDECY,INP) ; SET/EDIT/CANCEL/DELETE an entry to the RECALL REMINDERS file 403.5
- +1 DO RECSET^SDEC52A(.SDECY,.INP)
- QUIT
- RECDSET(SDECY,RECALLIEN,SDRRFTR,SDCOMM) ; DELETE an entry to the RECALL REMINDERS file 403.5
- +1 DO RECDSET^SDEC52A(.SDECY,$GET(RECALLIEN),$GET(SDRRFTR),$GET(SDCOMM))
- QUIT
- RECAPGET(SDECY) ; GET entries from the RECALL REMINDERS APPT TYPE file 403.51
- +1 DO RECAPGET^SDEC52B(.SDECY)
- QUIT
- RECPRGET(SDECY,RECINACT,SDECP,MAXREC,LASTSUB) ;GET entries from the RECALL REMINDERS PROVIDERS file 403.54
- +1 DO RECPRGET^SDEC52B(.SDECY,$GET(RECINACT),$GET(SDECP),$GET(MAXREC),$GET(LASTSUB))
- QUIT
- REGEVENT(SDECY,SDECEVENT,SDECIP,SDECPORT) ;EP Called by client to inform server of client's interest in SDECEVENT
- +1 DO REGEVENT^SDEC23(.SDECY,$GET(SDECEVENT),$GET(SDECIP),$GET(SDECPORT))
- QUIT
- REP1GET(SDECY,MAXREC,LASTSUB,PNAME) ;GET clinic data for report
- +1 DO REP1GET^SDEC56(.SDECY,$GET(MAXREC),$GET(LASTSUB),$GET(PNAME))
- QUIT
- REQGET(SDECY,SDBEG,SDEND,MAXREC,LASTSUB,SDGMR) ; GET entries with an ACTIVITY of RECEIVED, but do not have an ACTIVITY of SCHEDULED from the REQUEST/CONSULTATING file 123
- +1 DO REQGET^SDEC51(.SDECY,$GET(SDBEG),$GET(SDEND),$GET(MAXREC),$GET(LASTSUB),$GET(SDGMR))
- QUIT
- RESGPUSR(SDECY,SDECDUZ) ;EP GROUP RESOURCE
- +1 DO RESGPUSR^SDEC01(.SDECY,$GET(SDECDUZ))
- QUIT
- RESGRPUS(SDECY,SDECDUZ) ;EP return ACTIVE resource group names for the given user
- +1 DO RESGRPUS^SDEC01(.SDECY,$GET(SDECDUZ))
- QUIT
- RESLETRF(SDECY,SDECRES,SDECLT) ;EP Return formatted text output of the Resource's Letter - either "LETTER TEXT" (also used as Reminder Letter), NO SHOW LETTER, or CLINIC CANCELLATION LETTER.
- +1 DO RESLETRF^SDEC47(.SDECY,$GET(SDECRES),$GET(SDECLT))
- QUIT
- RESLETRS(SDECY,SDECLIST,SDLTR,SDNOS,SDCAN) ;EP GET recordset of RESOURCES and associated LETTERS
- +1 DO RESLETRS^SDEC35(.SDECY,$GET(SDECLIST),$GET(SDLTR),$GET(SDNOS),$GET(SDCAN))
- QUIT
- RESUSER(SDECY,SDRES) ;EP SDEC RESOURCE USER remote procedure returns all entries from the SDEC RESOURCE USER table 409.833
- +1 DO RESUSER^SDEC45(.SDECY,$GET(SDRES))
- QUIT
- RESOURCE(SDECY,SDECDUZ,SDACT,SDTYPE,MAXREC,LASTSUBI,SDIEN,SDECP) ;EP Returns ADO Recordset with ALL RESOURCE names
- +1 DO RESOURCE^SDEC01A(.SDECY,$GET(SDECDUZ),$GET(SDACT),$GET(SDTYPE),$GET(MAXREC),$GET(LASTSUBI),$GET(SDIEN),$GET(SDECP))
- QUIT
- SCHUSR(SDECY) ;EP Return recordset of all users in NEW PERSON having SDECZMENU key
- +1 DO SCHUSR^SDEC17(.SDECY)
- QUIT
- SEARCHAV(SDECY,SDECRES,SDECSTRT,SDECEND,SDECTYPES,SDECAMPM,SDECWKDY) ;EP Searches availability database
- +1 DO SEARCHAV^SDEC24(.SDECY,$GET(SDECRES),$GET(SDECSTRT),$GET(SDECEND),$GET(SDECTYPES),$GET(SDECAMPM),$GET(SDECWKDY))
- QUIT
- SETFAC(SDECY,SDECDUZ,SDECFAC) ;EP SET FACILITY
- +1 DO SETFAC^SDEC46(.SDECY,$GET(SDECDUZ),$GET(SDECFAC))
- QUIT
- SETRBOOK(SDECY,SDECAPPT,SDECDATE) ;EP Sets rebook date into appointment
- +1 DO SETRBOOK^SDEC33(.SDECY,$GET(SDECAPPT),$GET(SDECDATE))
- QUIT
- SPACEBAR(SDECY,SDECDIC,SDECVAL) ;EP Update ^DISV with most recent lookup value SDECVAL from file SDECDIC
- +1 DO SPACEBAR^SDEC30(.SDECY,$GET(SDECDIC),$GET(SDECVAL))
- QUIT
- +2 ;Removed SUMMGET *745
- SUMMGET2(SDECRET,SDBEG,SDEND,USER) ;Get compiled Audit Report for a given date range
- +1 DO SUMMGET2^SDECAUD(.SDECRET,$GET(SDBEG),$GET(SDEND),$GET(USER))
- QUIT
- SUMMAGET(SDECY,SDBEG,SDEND,USER,LSUB,MAXREC) ;get ALL appointments with a cancel status from SDEC APPOINTMENT for given date range and user
- +1 DO SUMMAGET^SDEC54A(.SDECY,$GET(SDBEG),$GET(SDEND),$GET(USER),$GET(LSUB),$GET(MAXREC))
- QUIT
- SUSRINFO(SDECY,SDECDUZ,GUIVERS) ;EP SCHEDULING USER INFO
- +1 ; Added GUI version to parameters to prevent users from using old versions. SD*5.3*694 wtc 8/27/2018
- +2 DO SUSRINFO^SDEC01(.SDECY,$GET(SDECDUZ),$GET(GUIVERS))
- QUIT
- SVSPALL(RET) ; EP return IEN and NAME for all entries in the SD WL SERVICE/SPECIALTY file
- +1 DO SVSPALL^SDECWL(.RET)
- QUIT
- SYSSTAT(SDECY) ; EP SYSTEM STATUS
- +1 DO SYSSTAT^SDECUTL(.SDECY)
- QUIT
- TPBLKOV(SDECY,SDECSTART,SDECEND,SDECRES) ;EP TYPE BLOCKS OVERLAP
- +1 DO TPBLKOV^SDEC06(.SDECY,$GET(SDECSTART),$GET(SDECEND),$GET(SDECRES))
- QUIT
- +2 ;Removed UNDOCANA
- UNREGEV(SDECY,SDECEVENT,SDECIP,SDECPORT) ;EP rpc SDE UNREGEV Called by client to Unregister client's interest in SDECEVENT
- +1 DO UNREGEV^SDEC23(.SDECY,$GET(SDECEVENT),$GET(SDECIP),$GET(SDECPORT))
- QUIT
- WAITLIST(SDECY,SDECRES) ;EP COLLECT WAITLIST DATA
- +1 DO WAITLIST^SDEC36(.SDECY,$GET(SDECRES))
- QUIT
- WLCLOSE(RET,SD1,SD2,SD3,SD4) ; Waitlist CLOSE
- +1 ;*745
- DO BLDARR(.INP,"WLCLOSE+0")
- +2 DO WLCLOSE^SDECWL(.RET,.INP)
- QUIT
- WLCLOSE1(RET,INP) ; Waitlist CLOSE (without ... for VistA calls)
- +1 DO WLCLOSE^SDECWL(.RET,.INP)
- QUIT
- WLGET(RET,WLIEN1,MAXREC,SDBEG,SDEND,DFN,LASTSUB,SDTOP,SVCL,DESDT,PRI,SVCR,SCVISIT,CLINIC,ORIGDT) ;EP Waitlist GET ;alb/sat 658 add SVCL-SCVISIT
- +1 DO WLGET^SDECWL1(.RET,$GET(WLIEN1),$GET(MAXREC),$GET(SDBEG),$GET(SDEND),$GET(DFN),$GET(LASTSUB),$GET(SDTOP),$GET(SVCL),$GET(DESDT),$GET(PRI),$GET(SVCR),$GET(SCVISIT),$GET(CLINIC),$GET(ORIGDT))
- QUIT
- WLHIDE(SDECY,DFN,WLCL) ;GET wait list entries in which the associated clinic's 'HIDE FROM DISPLAY?' field is 'YES'
- +1 DO WLHIDE^SDECWL3(.SDECY,$GET(DFN),$GET(WLCL))
- QUIT
- WLOPEN(RET,WLAPP,WLIEN,WLDDT) ;SET Waitlist Open/re-open
- +1 DO WLOPEN^SDECWL(.RET,$GET(WLAPP),$GET(WLIEN),$GET(WLDDT))
- QUIT
- WLPCSET(SDECY,INP,WLIEN) ;SET update patient contacts in SD WAIT LIST file
- +1 DO WLPCSET^SDECWL(.SDECY,$GET(INP),$GET(WLIEN))
- QUIT
- WLSET(RET,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12,S13,S14,S15,S16,S17,S18,S19,S20,S21,S22,S23,S24,S25,S26,SD27) ;EP Waitlist Set
- +1 ;*745
- DO BLDARR(.INP,"WLSET+0")
- +2 DO WLSET^SDECWL2(.RET,.INP)
- QUIT
- WLSET1(RET,INP) ;EP Waitlist Set (without ... for VistA calls)
- +1 DO WLSET^SDECWL2(.RET,.INP)
- QUIT
- BLDARR(ARR,TAG) ;array build *745
- +1 KILL ARR
- +2 NEW PM,PNO,I
- SET PM=$PIECE($PIECE($TEXT(@TAG),"(",2),")")
- SET ARR=$LENGTH(PM,",")-1
- +3 FOR I=1:1:ARR
- if $DATA(@($PIECE(PM,",",I+1)))
- SET ARR(I)=@($PIECE(PM,",",I+1))
- +4 QUIT ARR