Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SROKEY

Package: Surgery

Routine: SROKEY


Information

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

Source Information

Source file <SROKEY.m>

Entry Points

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

Interaction Calls

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
  • Variable: SRYN
  • Timeout: DTIME
  • 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
  • Variable: X
  • Timeout: DTIME
  • Line Location: RET+0
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRP - [#131] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call