Routine: VSITASK

Information

VSITASK ;ISD/RJP - Prompt User ;6/20/96

Source file <VSITASK.m>

Package	Total	Call Graph
VA Fileman	3	^DIC DQ^DICQ ^DIR
PCE Patient Care Encounter	1	($$GET,SLC)^VSITVAR

Package	Total	Caller Graph
PCE Patient Care Encounter	2	VSIT VSITDEF

Name	Comments	DBIA/ICR reference
FMT(IEN)	; - format display lines for a visit
VSIT(DFN,LST)	; - prompt user to select visit ; - called by VSIT
ELG(PAT)	; - prompt user to select pt. eligibility ; - called by VSITCK1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,X,!,Y,! Line Location: VSIT+10
Function Call: WRITE	Prompt: $J(VSITI,2)_" - ",?5,X1,!,?5,X2,! Line Location: VSIT+13
Function Call: WRITE	Prompt: !,X,!,Y Line Location: ELG+8
Function Call: WRITE	Prompt: " Required!" Line Location: ELG+13
Routine Call	DIC Line Location: ELG+13
Routine Call	DIR Line Location: VSIT+16

FileNo	Call Tags
^DIC(8 - [#8]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(8 - [#8]	ELG+11
^DPT - [#2]	VSIT+9, ELG+11

Name	Line Occurrences
FMT	VSIT+12

Name	Field # of Occurrence
^(	ELG+11

Name	Field # of Occurrence
D	ELG+6~, ELG+13*!
DFN	VSIT~, VSIT+8, VSIT+9
DIC	ELG+6~, ELG+9*
DIC("A"	ELG+12*
DIC("B"	ELG+11*
DIC("S"	ELG+10*
DIC(0	ELG+9*
DIR	VSIT+7~
DIR("A"	VSIT+15*
DIR("B"	VSIT+16*
DIR(0	VSIT+14*
DZ	ELG+6~, ELG+13*!
IEN	FMT~, FMT+6*, FMT+7
LST	VSIT~, VSIT+8, VSIT+11, VSIT+14, VSIT+15
LST(	VSIT+11
NOD	VSIT+7~, VSIT+11*, VSIT+12
PAT	ELG~, ELG+6*, ELG+7, ELG+11
VSIT	FMT+5~
VSIT("DSS"	FMT+14
VSIT("ELG"	FMT+12
VSIT("INS"	FMT+10
VSIT("LOC"	FMT+13
VSIT("SVC"	FMT+9
VSIT("TYP"	FMT+11
VSIT("VDT"	FMT+8
VSITI	VSIT+7~, VSIT+11*, VSIT+13, FMT+5~
X	VSIT+7~, VSIT+9, VSIT+10, FMT+5~, FMT+8, FMT+9, FMT+10, FMT+11, FMT+12, FMT+13* , FMT+14, ELG+6~, ELG+7, ELG+8
X1	VSIT+7~, VSIT+13, FMT+6, FMT+8, FMT+9, FMT+10, FMT+11*
X2	VSIT+7~, VSIT+13, FMT+6, FMT+12, FMT+13, FMT+14
Y	VSIT+7~, VSIT+10, VSIT+17, FMT+5~, ELG+6~, ELG+8, ELG+13, ELG+14