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

SDEC.m

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