Print Page as PDF
DBIA490 ICR (490)

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
ID vsitoe
COMPONENT/ENTRY POINT
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