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
Print Page as PDF
Routine: SROKEY1

Package: Surgery

Routine: SROKEY1


Information

SROKEY1 ;B'HAM ISC/MAM - REMOVE KEY RESTRICTIONS ; 9 JAN 1992

Source Information

Source file <SROKEY1.m>

Entry Points

Name Comments DBIA/ICR reference
REMOVE
END
TAKEY ; remove security keys
DIK
RET
ONE ; only one key

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Remove 'PERSON' field restrictions: ",!
  • Line Location: SROKEY1+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SROKEY1+5
Function Call: WRITE
  • Prompt: !!,"There are no restrictions currently applied to this field.",!!,"Press RETURN to continue "
  • Line Location: SROKEY1+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SROKEY1+7
Function Call: WRITE
  • Prompt: !!,"There are no keys restricting entries in this field.",!!,"Press RETURN to continue "
  • Line Location: SROKEY1+7
Function Call: WRITE
  • Prompt: @IOF,!,"Current Restrictions for this Field: ",!
  • Line Location: SROKEY1+8
Function Call: WRITE
  • Prompt: !,?2,CNT_".",?5,$P(SRKEY(CNT),"^")
  • Line Location: SROKEY1+9
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: REMOVE+0
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' if you want to remove one of the keys currently used to restrict",!,"entries in this field. Enter 'NO' if you do not want to remove any existing",!,"keys."
  • Line Location: REMOVE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: READ
  • Variable: NUMBER
  • Timeout: DTIME
  • Line Location: TAKEY+1
Function Call: WRITE
  • Prompt: !!,"Select the number corresponding to the key you want to remove, or enter 'ALL'",!,"to remove all keys."
  • Line Location: TAKEY+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RET+0
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: ONE+1
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to remove this key, eliminating all restrictions on this field, or",!,"'NO' to leave the restriction in place."
  • Line Location: ONE+3
Info |  Source |  Entry Points |  Interaction Calls