Routine: SCCVDEL1

Information

SCCVDEL1 ;ALB/TMP - OLD SCHED VISITS FILE DELETE; [ 03/04/98 09:39 AM ]

Name	Comments	DBIA/ICR reference
DELDATA	; -- kill global
DELDATAQ	;
KILL(FNO)	; -- kill data global
KILLQ
PROT(SDGLB)	; -- ask if ok to kill and protection is off
PROTQ
ERR	; -- error trap routine

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DELDATA+3
Function Call: WRITE	Prompt: !!,"Invalid file number '",$G(FNO),"' specified." Line Location: KILL+3
Function Call: WRITE	Prompt: !!,"Invalid file number '",$G(FNO),"' specified." Line Location: KILL+5
Function Call: WRITE	Prompt: !!,"Data global '",SCGLB,"' cannot be KILLed. ^DIC(",FNO,") still exists." Line Location: KILL+8
Function Call: WRITE	Prompt: !!,"Data global '",SCGLB,"' cannot be KILLed. ^DD(",FNO,") still exists." Line Location: KILL+10
Function Call: WRITE	Prompt: !!,"Data global '",SCGLB,"' does not exist. Global does not need to be KILLed." Line Location: KILL+12
Function Call: WRITE	Prompt: !!,"Cannot kill data global!" Line Location: KILL+18
Function Call: WRITE	Prompt: !,$P(Y,U,2) Line Location: KILL+19
Function Call: WRITE	Prompt: !!,"Data global '",SCGLB,"' successfully KILLed." Line Location: KILL+22
Function Call: WRITE	Prompt: !!,"Data gloabl '",SCGLB,"' was not KILLed." Line Location: KILL+24
Function Call: WRITE	Prompt: ! Line Location: PROT+2
Function Call: WRITE	Prompt: ! Line Location: PROT+11
Function Call: WRITE	Prompt: !!,">>> Protection error has occurred. Global has not been KILLed." Line Location: ERR+5
Function Call: WRITE	Prompt: !," You must removed root-level protection on global." Line Location: ERR+6