Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^DIC  ^DIK  DI^DIU  
Surgery 1 ^SRSKILL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROKEY REMOVE  

Entry Points

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

External References

Name Field # of Occurrence
^DIC SROKEY1+2
^DIK DIK
DI^DIU SROKEY1+3
^SRSKILL END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Remove 'PERSON' field restrictions: ",!
  • Line Location: SROKEY1+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: SRYN
  • 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
  • Timeout: DTIME
  • Variable: NUMBER
  • 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
  • Timeout: DTIME
  • Variable: X
  • Line Location: RET+0
Function Call: READ
  • Timeout: DTIME
  • Variable: SRYN
  • 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
Routine Call
  • DIC
  • Line Location:
    • SROKEY1+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRP - [#131] SROKEY1+7, SROKEY1+9
^SRP("B" SROKEY1+5, SROKEY1+6

Label References

Name Line Occurrences
DIK TAKEY+3, ONE+4
END SROKEY1+2, SROKEY1+3, SROKEY1+5, SROKEY1+7, SROKEY1+10, REMOVE+2, REMOVE+3
ONE SROKEY1+10, ONE+3
REMOVE REMOVE+2
RET REMOVE+2
TAKEY REMOVE+3, TAKEY+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT SROKEY1+9*
DA SROKEY1+2!, DIK*!
DA(1 DIK*
>> DI SROKEY1+3*, SROKEY1+4
DIC SROKEY1+2!*
DIC("A" SROKEY1+2*
DIC(0 SROKEY1+2*
DIK DIK*!
DO SROKEY1+2!
DTIME SROKEY1+5, SROKEY1+7, REMOVE, TAKEY+1, RET, ONE+1
>> FLAG REMOVE+3*
IOF SROKEY1+2, SROKEY1+8, END
>> KEY SROKEY1+9*
>> N SROKEY1+3*
>> NUMBER SROKEY1+10*, TAKEY+1*, TAKEY+2, TAKEY+3*, DIK, ONE+4*
>> SRENTRY SROKEY1+4*, SROKEY1+5, SROKEY1+6
>> SRFIELD SROKEY1+4*
>> SRFILE SROKEY1+3*, SROKEY1+4*
>> SRKEY( SROKEY1+9*, TAKEY+2, TAKEY+3, DIK!
>> SRKEY(0 TAKEY+4
>> SRKEY(1 ONE+1
>> SRKEY(2 SROKEY1+10
>> SRP SROKEY1+6*, SROKEY1+7, SROKEY1+9, DIK
>> SRSOUT SROKEY1+2*, SROKEY1+3*, REMOVE+2, REMOVE+3, TAKEY+1*, RET*
>> SRYN REMOVE*, REMOVE+1*, REMOVE+2, REMOVE+3, ONE+1*, ONE+2*, ONE+3, ONE+4
>> X SROKEY1+5*, SROKEY1+7*, RET*
>> Y SROKEY1+2, SROKEY1+3, SROKEY1+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All