Routine: DIEKMSG

Information

DIEKMSG ;SFISC/MKO-PRINT MESSAGE ABOUT BAD KEYS ;12:47 PM 18 Feb 1998

Package	Total	Call Graph
VA Fileman	4	(FILENAME,RECNAME)^DIKCU1 WRAP^DIKCU2 $$EXTERNAL^DILFD ^DIR

Package	Total	Caller Graph
VA Fileman	1	DIE1

Name	Comments	DBIA/ICR reference
L(X,A,LM)	;Add X to the DIEMSG array
FILELN(TXT,LEV)	;
PROMPT(DIEREST,ANS)	;Ask user whether to print report
MSG(DIEBADK,DIEREST)	;Print message
PRINT	;Print lines stored in ^TMP("DIEMSG",$J)
RECLN(TXT,LEV)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MSG+8
Function Call: WRITE	Prompt: ^TMP("DIEMSG",$J,I),! Line Location: PRINT+5
Function Call: WRITE	Prompt: !! Line Location: PRINT+8
Function Call: WRITE	Prompt: !!,$C(7)_"*** NOTE ***" Line Location: PROMPT+2
Function Call: WRITE	Prompt: !!,"Some of the previous edits are not valid because they create one or more" Line Location: PROMPT+3
Function Call: WRITE	Prompt: !,"duplicate keys." Line Location: PROMPT+4
Function Call: WRITE	Prompt: " Some fields have been restored to their pre-edited" Line Location: PROMPT+6
Function Call: WRITE	Prompt: !,"values." Line Location: PROMPT+7
Function Call: WRITE	Prompt: ! Line Location: PROMPT+8
Function Call: WRITE	Prompt: ! Line Location: PROMPT+12
Routine Call	DIR Line Location: PRINT+8 PROMPT+12

Name	Line Occurrences (* Changed, ! Killed)
^DD(	MSG+39
^DD("KEY" - [#.31]	MSG+21
^TMP("DIEMSG"	MSG+4!, MSG+44, MSG+45!, L+2, L+5, L+6, L+12, L+13, PRINT+3, PRINT+5

Name	Line Occurrences
FILELN	MSG+17
L	MSG+10, MSG+11, MSG+12, MSG+21, MSG+38, MSG+39, MSG+40, MSG+41, MSG+42, FILELN+6 , RECLN+6
PRINT	MSG+44
PROMPT	MSG+6
RECLN	MSG+29

Name	Field # of Occurrence
^(	L+6, L+12

Name	Field # of Occurrence
A	L~, L+5, L+12
ANS	MSG+3~, MSG+6, PROMPT~, PROMPT+13*
DIEBADK	MSG~, MSG+1
DIEBADK(	MSG+15, MSG+20, MSG+24, MSG+27, MSG+32, MSG+33, MSG+34
DIEREST	MSG~, MSG+6, MSG+9, MSG+41, PROMPT~, PROMPT+5
DIERR	MSG+3~, MSG+37!
DIR	PRINT+7~, PROMPT+1~
DIR("A"	PROMPT+11*
DIR("B"	PROMPT+10*
DIR(0	PRINT+8, PROMPT+10
DIROUT	PRINT+7~, PROMPT+1~
DIRUT	PRINT+7~, PROMPT+1~
DTOUT	PRINT+7~, PROMPT+1~
DUOUT	PRINT+7~, PROMPT+1~
FIL	MSG+3~, MSG+24*, MSG+27, MSG+32, MSG+33, MSG+34, MSG+35, MSG+36, MSG+39
FINFO	MSG+3~, MSG+16, MSG+17, MSG+28, MSG+29
FLD	MSG+3~, MSG+32*, MSG+33, MSG+34, MSG+35, MSG+36, MSG+39
I	FILELN+1~, FILELN+6, RECLN+1~, RECLN+6, L+8~, L+10, L+12, PRINT+1~, PRINT+3, PRINT+5
IOM	FILELN+2, RECLN+2, L+9
IOSL	PRINT+2
KEY	MSG+3~, MSG+20*, MSG+21, MSG+24, MSG+27, MSG+32, MSG+33, MSG+34
LC	L+1~, L+2, L+5, L+6, L+12, L+13, PRINT+1~, PRINT+3, PRINT+4, PRINT+6 , PRINT+9*
LEV	MSG+3~, FILELN~, FILELN+4, RECLN~
LM	L~, L+4, L+9*, L+11, L+13
M	L+8~, L+9*, L+11
MAR	FILELN+1~, FILELN+2, FILELN+5, RECLN+1~, RECLN+2, RECLN+5
MSG	MSG+3~, MSG+37!
NEW	MSG+3~, MSG+34, MSG+36, MSG+40
OLD	MSG+3~, MSG+33, MSG+35, MSG+41
REC	MSG+3~, MSG+27*, MSG+28, MSG+32, MSG+33, MSG+34
RFIL	MSG+3~, MSG+15*, MSG+16, MSG+20, MSG+24, MSG+27, MSG+32, MSG+33, MSG+34
SL	PRINT+1~, PRINT+2*, PRINT+6
T	L+8~, L+11*, L+12, L+13
TXT	MSG+3~, MSG+16, MSG+17, MSG+28, MSG+29, FILELN~, FILELN+4, FILELN+5, FILELN+6, RECLN~ , RECLN+4, RECLN+5, RECLN+6
TXT(	FILELN+6, RECLN+6
U	MSG+21, MSG+39
X	L~, L+5, L+6, L+10, L+11*, PRINT+7~, PROMPT+1~
Y	PRINT+7~, PROMPT+1~, PROMPT+13