Routine: VASITE0

Information

VASITE0 ;ALB/AAS - ENTER/EDIT TIME SENSITIVE STATION NUMBER FILE ;11-FEB-92

Source file <VASITE0.m>

Package	Total	Call Graph
VA FileMan	5	^DIC FILE^DICN ^DIE D^DIQ ^DIR

Name	Comments	DBIA/ICR reference
ADD	; -entry to add new time sensitive entries
DIV
ADDQ
END
FILE	; -add new entry
FILEQ
EDIT	; -Edit entry ; input variable DA
HELP	;
HELP1	;
DATE(Y)	; convert date to external format

Name	Line Occurrences
Function Call: WRITE	Prompt: " ",$$DATE(VADT) Line Location: ADD+3
Function Call: WRITE	Prompt: !,"Filing New Entry!",! Line Location: DIV+5
Function Call: WRITE	Prompt: !,"Another user Editing, Try Again later" Line Location: FILE+1
Function Call: WRITE	Prompt: ! Line Location: EDIT+3
Function Call: WRITE	Prompt: !!,"You may enter a new EFFECTIVE DATE or select from one of the following:" Line Location: HELP+1
Function Call: WRITE	Prompt: !?4,$$DATE(VAI),?20,$E($P($G(^DG(40.8,+$P($G(^VA(389.9,VAJ,0)),"^",3),0)),"^"),1,25),?48,$P($G(^VA(389.9,VAJ,0)),"^",4) Line Location: HELP+2
Function Call: WRITE	Prompt: !!,"Select from the following Divisions" Line Location: HELP1+1
Function Call: WRITE	Prompt: !?4,VAI Line Location: HELP1+2
Routine Call	DIC Line Location: DIV+4
Routine Call	DIE Line Location: FILE+5 EDIT+2
Routine Call	DIR Line Location: ADD+3 DIV+2

FileNo	Call Tags
^VA(389.9 - [#389.9]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	DIV+1, EDIT+2, HELP+2
^DIC(4 - [#4]	EDIT+2
^VA(389.9 - [#389.9]	DIV+4, FILE+1, FILE+2, FILE+4, FILE+6, HELP+2, HELP1+2

Name	Field # of Occurrence
DA	DIV+4, DIV+5, FILE+5, EDIT+3!
DD	FILE+3!, FILEQ!
DIC	DIV+4!, FILE+3!, FILEQ!, EDIT+3!
DIC("S"	DIV+4*
DIC(0	DIV+4, FILE+3
DIE	FILE+5, FILEQ!, EDIT+2, EDIT+3!
DINUM	FILE+4*, FILEQ!
DIR	ADD+3!, DIV+2!, END!
DIR("??"	ADD+1, DIV
DIR("A"	ADD+1, DIV
DIR("B"	DIV+1*
DIR(0	ADD+1, DIV
>> DLAYGO	FILE+3*
DO	FILE+3!, FILEQ!
DR	FILE+3!, FILE+5, FILEQ!, EDIT+2, EDIT+3!
U	%*
VADIV	DIV+1, DIV+2*, DIV+4, ADDQ!, END!, FILE+5, EDIT+2
VADT	ADD+3*, DIV+4, ADDQ!, END!, FILE+5
VAI	HELP+2, HELP+3!, HELP1+2, HELP1+3!
>> VAJ	HELP+2*
>> VAN	FILE+5*, FILE+6
X	DIV+4, END!, FILE+2, FILE+4*, FILEQ!, EDIT+3!
Y	ADD+3, DIV+2, DIV+4, END!, FILE+4, FILE+5, FILEQ!, EDIT+3!, DATE~, DATE+2