Print Page as PDF
DBIA1900-G ICR (1906)

DBIA1900-G    ICR (1906)

Name Value
NUMBER 1906
IA # 1906
DATE CREATED 1997/01/23
CUSTODIAL PACKAGE PCE PATIENT CARE ENCOUNTER
CUSTODIAL ISC Albany
USAGE Controlled Subscription
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE VSIT
NAME DBIA1900-G
ORIGINAL NUMBER 1900
GENERAL DESCRIPTION
$$LOOKUP^VSIT(IEN,FMT,WITHIEN)

Look up a visit and return all of its information.

Parameter Description:

IEN       Visit IEN OR the Visit's ID
FORMAT    Is the format that you want the output in, where:
I ::= internal format
E ::= external format
B ::= both internal and external format
B is the default if anything other than "I" or "E"
WITHIEN   0 if you do not want the ien of the vsit as the first
subscript
1 if you do.
1 is the default.

Returned Value:

>0       Pointer to the Visit file (#9000010)
-1       if IEN was not a valid IEN or Visit ID


Returned Array:

The array of all the fields in the visit file. If both internal and external
format are returned the format is:  internal^external

VSIT(<ien>,<xxx>) or VSIT(<xxx>) depending on the value of WITHIEN

Field #   Variable        Description
.01     VSIT("VDT")  VISIT/ADMIT DATE&TIME (date)
.02     VSIT("CDT")  DATE VISIT CREATED (date)
.03     VSIT("TYP")  TYPE (set)
.05     VSIT("PAT")  PATIENT NAME (pointer PATIENT file #9000001) (IHS
file DINUMed to PATIENT file #2)
.06     VSIT("INS")  LOC. OF ENCOUNTER (pointer LOCATION file
#9999999.06) (IHS file DINUMed to INSTITUTION
file #4)
.07     VSIT("SVC")  SERVICE CATEGORY (set)
.08     VSIT("DSS")  DSS ID (pointer to CLINIC STOP file)
.09     VSIT("CTR")  DEPENDENT ENTRY COUNTER (number)
.11     VSIT("DEL")  DELETE FLAG (set)
.12     VSIT("LNK")  PARENT VISIT LINK (pointer VISIT file #9000010)
.13     VSIT("MDT")  DATE LAST MODIFIED (date)
.18     VSIT("COD")  CHECK OUT DATE&TIME (date)
.21     VSIT("ELG")  ELIGIBILITY (pointer ELIGIBILITY CODE file #8)
.22     VSIT("LOC")  HOSPITAL LOCATION (pointer HOSPITAL LOCATION
file #44)
.23     VSIT("USR")  CREATED BY USER (pointer NEW PERSON file #200)
.24     VSIT("OPT")  OPTION USED TO CREATE (pointer OPTION file #19)
.25     VSIT("PRO")  PROTOCOL (pointer PROTOCOL file #101)
2101    VSIT("OUT")  OUTSIDE LOCATION (free text)
80001   VSIT("SC")   SERVICE CONNECTED (set)
80002   VSIT("AO")   AGENT ORANGE EXPOSURE (set)
80003   VSIT("IR")   IONIZING RADIATION EXPOSURE (set)
80004   VSIT("EC")   PERSIAN GULF EXPOSURE (set)
80005   VSIT("MST")   MILITARY SEXUAL TRAUMA (set)
80006   VSIT("HNC")   HEAD AND NECK CANCER (set)
80007   VSIT("CV")    COMBAT VETERAN (set)
80008   VSIT("SHAD")  PROJECT 112/SHAD (set)
80009   VSIT("CLV")   CAMP LEJEUNE EXPOSURE (set)
15001   VSIT("VID")  VISIT ID (free text)
15002   VSIT("IO")   PATIENT STATUS IN/OUT (set)
15003   VSIT("PRI")  ENCOUNTER TYPE (set)
81101   VSIT("COM")  COMMENTS
81202   VSIT("PKG")  PACKAGE (pointer PACKAGE file #9.4)
81203   VSIT("SOR")  DATA SOURCE (pointer PCE DATA SOURCE file
(#839.7)

STATUS Active
DURATION Next Version
ID VSIT
COMPONENT/ENTRY POINT LOOKUP
SUBSCRIBING PACKAGE
DATE ACTIVATED 2017/01/10
MAIL MESSAGE 23353699
GOOD ONLY FOR VERSION 2.0