DBIA490 ICR (490)

Name

Value

NUMBER

490

IA #

490

DATE CREATED

1995/09/19

CUSTODIAL PACKAGE

PCE PATIENT CARE ENCOUNTER

CUSTODIAL ISC

Salt Lake City

USAGE

Controlled Subscription

TYPE

Routine

ROUTINE

vsitoe

NAME

DBIA490

ORIGINAL NUMBER

490

GENERAL DESCRIPTION

This is an entry point for getting a list of visits
that match defined criteria.

STATUS

Retired

DURATION

Till Otherwise Agreed

vsitoe

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

VARIABLES

LST

VARIABLES	TYPE	VARIABLES DESCRIPTION
VDT	Input	Visit Date/Time in FM format.
DFN	Input	Patient File Pointer.
PRAM	Input	The routine ^VSIT uses extrinsic functions. VSIT(0) will be passed to the parameter PRAM. $$GET(VDT,DFN,PRAM,.VSIT) VSIT(0) A string of characters which defines how the visit processor will function. F - Force adding a new entry I - Interactive mode E - Use pt's primary eligibility if not passed on call w/VSIT("ELG") N - Allow creation of a new visit D - Look back "n" number of days for a match, default is one. e.g. VSIT(0)="D5" (look back 5 days) M - Impose criteria on matching or creation of visits. Used the VSIT("XXX") array: - If trying to match with existing visit, matching elements must equal their corresponding field. - If creating a new visit, will use array elements as defaults or stuff values depending if in interactive mode or not and the exact field.
VSIT	Input	Array w/mnemonic subscript.
VSIT(IEN)	Input	NUMBER (internal entry number)
VSIT(VDT)	Input	VISIT/ADMID DATE&TIME (date)
VSIT(CDT)	Input	DATE VISIT CREATED (date)
VSIT(TYP)	Input	TYPE (set)
VSIT(BIL)	Input	THIRD PARTY BILLED (set)
VSIT(PAT)	Input	PATIENT (pointer to PATIENT file #2) (IHS file DINUM'ed to PATIENT file #2)
VSIT(INS)	Input	LOC.OF ENCOUNTER (pointer to LOCATION file #9999999.06) (IHS file DINUM'ed to INSTITUTION file #4)
VSIT(SVC)	Input	SERVICE CATEGORY (set)
VSIT(CLN)	Input	CLINIC (pointer to CLINIC STOP file #40.7)
VSIT(CTR)	Input	DEPENDENT ENTRY COUNTER (number)
VSIT(DEL)	Input	DELETE FLAG (set)
VSIT(LNK)	Input	PARENT VISIT LINK (pointer to VISIT file)
VSIT(MDT)	Input	DATE LAST MODIFIED (date)
VSIT(XDT)	Input	DATE VISIT EXPORTED (date)
VSIT(MFI)	Input	MFI STATUS (set)
VSIT(LOS)	Input	LEVEL OF SERVICE (pointer to CPT CODE file)
VSIT(COD)	Input	CHECK OUT DATE & TIME (date)
VSIT(ELG)	Input	ELIGIBILITY (pointer to ELIGIBILITY CODE file #8)
VSIT(LOC)	Input	HOSPITAL LOCATION (pointer to HOSPITAL LOCATION file #44)
VSIT(USR)	Input	CREATED BY USER (pointer to USER file #200)
VSIT(OPT)	Input	OPTION USED TO CREATE (pointer to OPTION file #19)
VSIT(AMT)	Input	AMOUNT BILLED (number)
VSIT(OUT)	Input	OUTSIDE LOCATION (free text)
VSIT(SC)	Input	SERVICE CONNECTED (set)
VSIT(AO)	Input	AGENT ORANGE EXPOSURE (set)
VSIT(IR)	Input	IONIZING RADIATION EXPOSURE (set)
VSIT(EC)	Input	PERSIAN GULF EXPOSURE (set)

VSITAPI()

D VSITAPI^VSITOE( DFN, START D/T, END D/T, H.L.,Last)
If no START D/T, END D/T,HL, Last--- then all visits for patient in reverse
chron order.  If START D/T, END D/T are passed but no HL --- then all with in
the time range for the patient.  If  START D/T, END D/T, HL and not Last ---
then all for Location If all parameters are passed then last visit for clinic
is assumed.  Requested returned array in, ^TMP("VSIT",$J, Visit IEN,
numerical/chronical order) =  "Date Time of visit^location ien;location
text^Clinic ien;clinic name^service conneted flag^patient status in/out" All
fields will be reported if known, if not known reported as "".  It is
acknowledged that the visits will be in strict reverse order by date.

VARIABLES	TYPE	VARIABLES DESCRIPTION
DFN	Input	PATIENT NAME (pointer PATIENT file #9000001) (IHS file DINUMed to PATIENT file #2)
Start Date/Time	Input	Start date and or time for looking for a visit.
End Date/Time	Input	End date and or time for looking for a visit.
Hospital Location pointer	Input	HOSPITAL LOCATION (pointer HOSPITAL LOCATION file #44)
Last Only	Input	Pass "L" for last only for patient