Routine: PRCFALCK

Information

PRCFALCK ;WISC@ALTOONA/CTB-CHECK FISCAL LOCK FILE ; 03/21/94 10:30 AM

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;;Oct 20, 2000
LOCK
OUT
FAIL
CLEAR	;Clear a lock
NA
UNLOCK	;INTERNAL ENTRY TO CLEAR LOCK. REQUIRES VARIABLE X EQUAL TO LOCK NAME

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,X," lock was set by ",X3 Line Location: LOCK+7
Function Call: WRITE	Prompt: " on ",Y,"." Condition for execution: Y]"" Line Location: LOCK+7
Function Call: WRITE	Prompt: !,"No further action taken. Contact your supervisor to clear the lock." Line Location: LOCK+8
Function Call: WRITE	Prompt: !!!,"Corruption exists in the FISCAL LOCK file.",!,"PLEASE CONTACT YOUR SITE MANAGER.",!!!!! Line Location: FAIL+0
Function Call: WRITE	Prompt: !!,$P(Y(0),"^")," Lock is not in use. No action taken." Line Location: CLEAR+2
Function Call: WRITE	Prompt: ! Line Location: CLEAR+5
Function Call: WRITE	Prompt: !!,"OK, I will now clear the ",X(1)," lock." Line Location: CLEAR+8