Routine: DIE2

Information

DIE2 ;SFISC/GFT,XAK-DELETE AN ENTRY ;12:37 PM 20 Feb 2003

Source file <DIE2.m>

Name	Comments	DBIA/ICR reference
F
Z
DL	;
DAR
X
DD
CC	;CONSISTENCY CHECK WOULD GO HERE
S
A
D
N
MD
R
DDA
UDA
QS	;
QQ	;
DEL
V	;
FIREREC(DIFILE)	;Fire record-level xrefs accumulated in ^TMP for file
FIRERECZ	;Come here from FIREREC above, for compiled templates

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!?3,"SURE YOU WANT TO DELETE" Line Location: D+1
Function Call: WRITE	Prompt: $P(X,U,1) Line Location: D+2