Routine: IBDF9D

Information

IBDF9D ;ALB/CJM - ENCOUNTER FORM (create/edit/delete lines);MARCH 20, 1993

Source file <IBDF9D.m>

Package	Total	Call Graph
Automated Information Collection System	5	UNCMPBLK^IBDF19 ($$MAXX,$$MAXY)^IBDFU1B DLTLINE^IBDFU3 IDXBLOCK^IBDFU4 ($$RUSURE,PAUSE)^IBDFU5
VA Fileman	5	IX^DIC FILE^DICN ^DIE ^DIK ^DIR
Registration	2	FULL^VALM1 RE^VALM4

Name	Comments	DBIA/ICR reference
AGAIN
MAXLEN()	;returns the maximum length of the line=IBLINE that will fit in the block=IBBLK
NEWLINE	;adds a new line, expects IBBLK to be defined
NEWNAME(IBLINE)	;
DLTLINE	;expects IBBLK to be defined - deletes one of the blocks lines
TOOMANY()	;are there too many lines in the box? returns 0 or 1
LINE	;Create, Edit, or Delete a line on the block
EDITLINE	;expects IBBLK to be defined - edits an already existing line
SELECT	;select a line on the block

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"There is no line!" Line Location: SELECT+3
Routine Call	DIE Line Location: EDITLINE+7 NEWLINE+10
Routine Call	DIR Line Location: LINE+4 AGAIN+4
Routine Call	DIC Line Location: AGAIN+2

Name	Field # of Occurrence
>> D	AGAIN*
DA	EDITLINE+7!, NEWLINE+5!, NEWLINE+10!, NEWLINE+11!*
DD	NEWLINE+4!
DIC	AGAIN!, AGAIN+2!, NEWLINE+4!, NEWLINE+5!
DIC("B"	AGAIN*
DIC("S"	AGAIN+1*
DIC(0	AGAIN, NEWLINE+4
DIE	EDITLINE+7!, NEWLINE+4!, NEWLINE+5!, NEWLINE+10!
DIE("NO^"	EDITLINE+7, NEWLINE+10
DIK	NEWLINE+11*!
DINUM	NEWLINE+4!
DIR	LINE+2!, LINE+4!, AGAIN+4!
DIR("?"	LINE+2*
DIR("A"	LINE+3, AGAIN+4
DIR("B"	LINE+3, AGAIN+4
DIR(0	LINE+3, AGAIN+4
>> DIRUT	LINE+4, AGAIN+4
DLAYGO	NEWLINE+1~, NEWLINE+4*
DO	NEWLINE+4!, NEWLINE+5!
DR	EDITLINE+7!, NEWLINE+10!
>> DTOUT	AGAIN+4
>> DUOUT	AGAIN+4
>> IBBLK	EDITLINE+8, SELECT+2, SELECT+3, AGAIN, DLTLINE+6, DLTLINE+7, NEWLINE+12, TOOMANY+4
IBDFDONE	EDITLINE+1~, NEWLINE+1~, NEWLINE+11
IBLINE	EDITLINE+1~, EDITLINE+5, EDITLINE+7, SELECT+1, AGAIN+3, AGAIN+4, DLTLINE+1~, DLTLINE+4, DLTLINE+5, DLTLINE+6 , NEWLINE+1~, NEWLINE+6*, NEWLINE+7, NEWLINE+9, NEWLINE+10, NEWLINE+11, NEWNAME~, NEWNAME+1, MAXLEN+2, TOOMANY+3 , TOOMANY+5
LEN	MAXLEN+1~
NAME	NEWNAME+1~, NEWNAME+3*, NEWNAME+4
NODE	NEWLINE+1~, NEWNAME+1~, NEWNAME+2, NEWNAME+3, MAXLEN+1~, MAXLEN+2, MAXLEN+3, MAXLEN+4, TOOMANY+2~, TOOMANY+5* , TOOMANY+6
NUMBER	TOOMANY+2~, TOOMANY+6*, TOOMANY+8
POS	MAXLEN+1~, MAXLEN+4*, MAXLEN+5
SPACING	TOOMANY+2~, TOOMANY+6, TOOMANY+7, TOOMANY+8
START	TOOMANY+2~, TOOMANY+6*, TOOMANY+8
TYPE	MAXLEN+1~, MAXLEN+3*, MAXLEN+4, MAXLEN+5
>> VALMBCK	LINE+1, LINE+6
>> X	AGAIN, NEWLINE+4
>> Y	LINE+4, LINE+5, AGAIN+3, AGAIN+4, NEWLINE+6