Routine: VSITGET

Package	Total	Call Graph
PCE Patient Care Encounter	2	$$IP^VSITCK1 FLD^VSITFLD
VA Fileman	1	C^%DTC

Package

Total

Call Graph

$$IP^VSITCK1 FLD^VSITFLD

C^%DTC

Package	Total	Caller Graph
PCE Patient Care Encounter	1	VSIT

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
QUIT	; - exit
RANGE	; - date range
MATCH(IEN)	; - screen matches using visit array
LST(VDT,DFN,PRAM,VSIT,VSITGET)	; - search for matches ; - called by ^VSIT and Supported Direct Call
CKIP(DATE,PAT)	; - check to see if inpatient over date range but admitted earlier

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	MATCH+6
^AUPNVSIT("AA"	LST+28, LST+31
^DGPM - [#405]	CKIP+5
^DIC(150.9 - [#150.9]	CKIP+4
^TMP("VSITDD"	LST+21, MATCH+12

Name	Field # of Occurrence
DATE	CKIP~, CKIP+3
DFN	LST~, LST+17
IEN	LST+22~, LST+30, LST+31, LST+32, LST+33, LST+34, LST+37*, LST+38, LST+39, MATCH~ , MATCH+5, MATCH+6
IPM	CKIP+2~, CKIP+3*, CKIP+4, CKIP+5
IPV	CKIP+2~, CKIP+5*, CKIP+6
NOD	LST+22~, LST+32, LST+33, LST+38, LST+39, LST+43, LST+44, LST+47, LST+49, MATCH+6* , MATCH+7, MATCH+10, MATCH+12, MATCH+13*, MATCH+14
PAT	CKIP~, CKIP+3
PRAM	LST~, LST+18
VDT	LST~, LST+16
VSIT	LST~
VSIT(	MATCH+10, MATCH+12
VSIT("PAT"	LST+17*, LST+19, LST+24, LST+28, LST+29, LST+31
VSIT("SVC"	LST+24, LST+29
VSIT("VDT"	LST+16*, LST+19, LST+24, RANGE+8, RANGE+13, RANGE+14
VSIT(0	LST+18*, MATCH+8, RANGE+9, RANGE+10, RANGE+13, RANGE+14
VSITBEG	LST+22~, LST+27, RANGE+13*
VSITDAT	LST+22~, LST+27, LST+28, LST+29, LST+31
VSITEND	LST+22~, LST+28, RANGE+14*
VSITGET	LST~, LST+13!, LST+14, LST+42, LST+46, LST+47, LST+49
VSITGET(	LST+47, LST+49
VSITI	MATCH+9~, MATCH+12*
VSITIPV	LST+22~, LST+36*, LST+37
VSITIPV(	LST+34!, LST+36, CKIP+6*
VSITM	MATCH+9~, MATCH+11, MATCH+12, MATCH+13
VSITSORT	LST+22~
VSITSORT(	LST+33, LST+39
VSITSORT(0	LST+43
X	MATCH+9~, MATCH+10*, MATCH+12, RANGE+7~, RANGE+14
X1	RANGE+7~, RANGE+8*
X2	RANGE+7~, RANGE+9, RANGE+10, RANGE+11*

Information