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: SROCOM

Package: Surgery

Routine: SROCOM


Information

SROCOM ;B'HAM ISC/MAM - ENTER COMMENTS ; [ 01/30/01 10:02 AM ]

Source Information

Source file <SROCOM.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Surgery 3 ^SROP1  ($$LOCK,UNLOCK)^SROUTL  ^SRSKILL  
VA Fileman 2 ^DIC  ^DIE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROMEN-COM  

Entry Points

Name Comments DBIA/ICR reference
CASE ; get case number
END
LOOK
OPS
LIST ; list cases
OTHER ; other operations
ASK
LOOP ; break procedure if greater than 60 characters

External References

Name Field # of Occurrence
^DIC CASE+1
^DIE ASK+3
^SROP1 OPS+1
$$LOCK^SROUTL ASK+3
UNLOCK^SROUTL ASK+3
^SRSKILL END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CASE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOK+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: !!,"There are no cases entered for "_SRNAME_".",!!
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: LOOK+1
Function Call: READ
  • Prompt: "Select Number: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: SRNUM
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter the number which corresponds to the case that you want to enter comments."
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"You have entered an invalid number, please select again. "
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !,CNT_". "_SRSDATE,?15,SROPS(1)
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: !,?15,SROPS(2)
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: !,?15,SROPS(2)
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: !,?15,SROPS(2)
  • Line Location: OPS+2
Routine Call
  • DIE
  • Line Location:
    • ASK+3
Routine Call
  • DIC
  • Line Location:
    • CASE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] OTHER+1, OTHER+2, LIST+1, OPS
^SRF("B" LOOK

Label References

Name Line Occurrences
ASK ASK+1, ASK+2
END LOOK+1, ASK
LIST LOOK
LOOP OPS+1
OTHER OPS

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT LOOK*, OPS+2
>> DA ASK+3*
>> DFN CASE+1*, LOOK
DIC CASE+1!*
DIC("A" CASE+1*
DIC(0 CASE+1*
>> DIE ASK+3*
DR ASK+3*!
DTIME LOOK+1, ASK
>> I LOOK*, OPS*
IOF CASE+1, END
>> LOOP LOOP+1*
>> M OPS+1*, LOOP+1
MM OPS+1!, LOOP+1*
MMM OPS+1!, LOOP+1*
>> OPER OTHER+1*, OTHER+2, OPS*
>> SRLONG OTHER+1*, OTHER+2
>> SRNAME CASE+1*, LOOK+1
>> SRNUM ASK*, ASK+1, ASK+2, ASK+3
>> SROP OPS+1*
>> SROP1( LOOK*, ASK+2, ASK+3
>> SROP1(1 LOOK+1
>> SROPER OTHER+1, OTHER+3*, OPS*, OPS+1*, LOOP+1*
>> SROPERS OTHER+1*, OTHER+2*, OTHER+3
SROPS OPS+1!
SROPS( LOOP+1*
SROPS(1 OPS+1*, OPS+2
SROPS(2 OPS+2
SROPS(3 OPS+2
SROPS(4 OPS+2
>> SRSDATE LIST+1*, OPS+2
SRTN LOOK*, ASK+3*, END!, OTHER+1, OTHER+2, LIST+1, OPS, OPS+1
>> X LOOK+1*
>> Y CASE+1
>> Y(0 CASE+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All