VEJDWPB GET VISITS/APPOINTMENT

TITLEVALUE
NAMEVEJDWPB GET VISITS/APPOINTMENT
DESCRIPTIONThis will call the VEJDWPB GET SCHED APPTS rpc to get the scheduled
appointments for the user inputted date range.

It then loops throughs the Visit file (#9000010) "AA" cross reference to
find all visits.

It then uses the uses the IN5^VADPT to get the current admission.
It then uses the uses the IN5^VADPT to get the current admission.
TAGVSIT
ROUTINEVEJDVST2
INPUT PARAMETERSSEQUENCE NUMBER1
INPUT PARAMETERDATA
DESCRIPTION DATA - required - DFN ^ BEG ^ END ^ ZLOC ^ FLG ^ MODS ^ CAT
DFN - required - pointer to file 2
BEG - optional - starting Fileman date/time
END - optional - ending fileman date/time - default = DT+.5
ALOC - optional - clinic, either name or file 44 ien retained for
backwards compatibility
FLG - optional - type of appts to return
0 - active/kept appts (past) - default
1 - future appts only
2 - both past and future appts
MODS - optional - string of codes determine which encounters to return
default value = ASV
MODS["A" - return current admission regardless of date
MODS["S" - return schedule appts
MODS["V" - return visit file entries (#9000010)
CAT - optional - default value is 0 screen visits by service category
1 - return all visits
0 or - do not return historical type visits
I $G(CAT) then do not screen visit entries by service category
I '$G(CAT) then screen out historical visits (E,D,X,N,C)
PARAMETER TYPELITERAL
REQUIREDYES
MAXIMUM DATA LENGTH

INPUT PARAMETERSSEQUENCE NUMBER2
INPUT PARAMETERVECLIN
DESCRIPTION VECLIN is a local array which contains a list of clinics to be used to
screen appointment list. Only those appointments in these clinics will
be returned.
VECLIN - optional - passed by reference
VECLIN(#) = clinic name or ien
PARAMETER TYPELIST
REQUIREDNO
MAXIMUM DATA LENGTH

INPUT PARAMETERSSEQUENCE NUMBER3
INPUT PARAMETERSCODE
DESCRIPTION This is a list of 3-digit stop codes used to screen appointments
returned. Only those clinic locations whose stop code is in this list
will be returned.

SCODE - optional - passed by reference
SCODE(#) = 3-digit stop code (lookup on C xref)
PARAMETER TYPELIST
REQUIREDNO
MAXIMUM DATA LENGTH

INPUT PARAMETERSSEQUENCE NUMBER4
INPUT PARAMETERVEDIV
DESCRIPTION This is a list of divisions to be used to screen appointments. Only
appointments in clinics for divisions in this list will be returned.

VEDIV - optional - passed by reference
VEDIV(#) = division name or ien
PARAMETER TYPELIST
REQUIREDNO
MAXIMUM DATA LENGTH

RETURN VALUE TYPEGLOBAL ARRAY
RETURN PARAMETER DESCRIPTIONIt returns to the broker, via the global array ^TMP("VEJD",$J,"VSIT",#)
1. All visits and current admission
2. Any scheduled visit for which there is no corresponding visit file
entry for the same date/time and clinic.
3. Format of data returned p1^p2^p3^p4^p5^p6 where
p1 := A (if admission) V (if visit) S (if scheduled appt)
p2 := visit file ien
p3 := date/time in external format
p4 := location name (from file 44)
p5 := date/time in internal fileman format
p6 := location file (#44) ien
4. If no matching data was found then return
-1^Invalid patient DFN
-1^No visits or appointments found
hospital location value (file 44) from the visit ien. If it cannot, then
the data returned by VSITAPI^VSITOE will be used. In this case, p4 will
be the location from file 9999999.06 and p6="".

This rpc will
1. Call the VEJDWPB GET SCHED APPTS rpc to get appointments
2. Return only those kept appts which do not have a corresponding Visit
file entry (matching criteria: no visit with same date/time and file
44 pointer as appointment)
3. The VSITAPI^VSITOE calls will exclude all those visits whose code is
contained in "EDXNC" (i.e., exclude non-count/historical visits)
AVAILABILITYAGREEMENT
INACTIVE
CLIENT MANAGER
WORD WRAP ONTRUE
VERSION
SUPPRESS RDV USER SETUP
APP PROXY ALLOWED