Routine: SROKEY

Information

SROKEY ;B'HAM ISC/MAM - UPDATE KEYS RESTRICTING ENTRIES ; 9 JAN 1992

Package	Total	Call Graph
VA Fileman	4	^DIC FILE^DICN ^DIE DI^DIU
Surgery	1	^SRSKILL

Package	Total	Caller Graph
Surgery	1	SROKEY ENTER

Name	Comments	DBIA/ICR reference
END
ADD	; add entry in PERSON FIELD RESTRICTION file
EXIST	; edit existing entry
RET
ANOTHER

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Add 'PERSON' Field Restrictions: ",! Line Location: SROKEY+2
Function Call: WRITE	Prompt: !!,"Keys Currently used to Restrict Entries: " Line Location: EXIST+2
Function Call: WRITE	Prompt: !!,"There are no keys restricting entries in this field." Line Location: EXIST+3
Function Call: WRITE	Prompt: ! Condition for execution: CNT=1 Line Location: EXIST+4
Function Call: WRITE	Prompt: !,?2,CNT_".",?5,$P(SRKEY(CNT),"^") Line Location: EXIST+4
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ANOTHER+0
Function Call: WRITE	Prompt: !!,"Enter 'YES' or RETURN to enter a key which will be used to restrict",!,"access to this field, or 'NO' if no additional keys are required." Line Location: ANOTHER+2
Function Call: WRITE	Prompt: ! Line Location: ANOTHER+3
Function Call: WRITE	Prompt: !!,"Entering Keys..." Line Location: ANOTHER+4
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: RET+0
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ADD+1
Function Call: WRITE	Prompt: !!,"Enter RETURN or 'YES' to add this entry to the file so that restrictions may",!,"be applied, or 'NO' to quit this option." Line Location: ADD+2
Function Call: WRITE	Prompt: ! Line Location: ADD+5
Routine Call	DIE Line Location: ADD+5
Routine Call	DIC Line Location: SROKEY+2 ANOTHER+3

FileNo	Call Tags
^SRP - [#131]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^SRP - [#131]	EXIST+1*, EXIST+2, EXIST+3, EXIST+4
^SRP("B"	SROKEY+5, SROKEY+6

Name	Line Occurrences
ADD	SROKEY+5, ADD+2
ANOTHER	ANOTHER+2
END	SROKEY+2, SROKEY+3, SROKEY+5, ANOTHER

Name	Field # of Occurrence
>> ADDKEY(	ANOTHER+3*, ANOTHER+5
>> ADDKEY(1	ANOTHER+4
>> CNT	EXIST+4, ANOTHER+3, ANOTHER+5*
DA	SROKEY+2!, ANOTHER+5!, ADD+4!, ADD+5!*
DA(1	ANOTHER+5*
DD	ANOTHER+5!, ADD+4!
>> DI	SROKEY+3*, SROKEY+4
DIC	SROKEY+2!, ANOTHER+3!, ANOTHER+5!, ADD+4!
DIC("A"	SROKEY+2, ANOTHER+3
DIC(0	SROKEY+2, ANOTHER+3, ANOTHER+5, ADD+4
DIE	ADD+5!*
DINUM	ADD+4!
DLAYGO	ANOTHER+5!, ADD+4
DO	SROKEY+2!, ANOTHER+5!, ADD+4!
DR	ADD+5!*
DTIME	ANOTHER, RET, ADD+1
IOF	SROKEY+2, END
>> KEY	EXIST+4*
>> N	SROKEY+3*
>> SRENTRY	SROKEY+4*, SROKEY+5, SROKEY+6, ADD+4
>> SRFIELD	SROKEY+4*
>> SRFILE	SROKEY+3, SROKEY+4
>> SRKEY(	EXIST+4*
>> SRP	SROKEY+6, EXIST+1, EXIST+2, EXIST+3, EXIST+4, ANOTHER+5, ADD+4, ADD+5
>> SRSOUT	SROKEY+2, SROKEY+3, ANOTHER, RET, ADD+1, ADD+3
>> SRYN	ANOTHER, ANOTHER+1, ANOTHER+2, ANOTHER+3, ADD+1, ADD+2, ADD+3
>> X	ANOTHER+5, RET, ADD+4*
>> Y	SROKEY+2, SROKEY+3, SROKEY+4, ANOTHER+3*, ADD+4