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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: SRSCHCA

Package: Surgery

Routine: SRSCHCA


Information

SRSCHCA ;B'HAM ISC/ADM - ADD CONCURRENT CASE TO ALREADY SCHEDULED CASE ; 26 MAY 1992 4:20 PM

Source Information

Source file <SRSCHCA.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Surgery 5 ($$LOCK,UNLOCK)^SROUTL  CON^SRSCHUN  (,SS)^SRSCHUN1  ^SRSKILL  ^SRSTCH  
VA FileMan 2 D^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SRSUP1  

Entry Points

Name Comments DBIA/ICR reference
DISP
REQ
END
LIST ; list stub info
LOOP ; break procedure if greater than 60 characters

External References

Name Field # of Occurrence
D^DIQ SRSCHCA+4
^DIR REQ+1, END
$$LOCK^SROUTL SRSCHCA+7, REQ+2
UNLOCK^SROUTL SRSCHCA+7, REQ+2
CON^SRSCHUN SRSCHCA+6
^SRSCHUN1 SRSCHCA+7
SS^SRSCHUN1 REQ+2
^SRSKILL END+1
^SRSTCH SRSCHCA+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No concurrent case has been added.",!
  • Line Location: SRSCHCA+2
Function Call: WRITE
  • Prompt: !!,"No concurrent case has been added.",!
  • Line Location: SRSCHCA+6
Function Call: WRITE
  • Prompt: @IOF,!,"The following cases have been entered."
  • Line Location: DISP+0
Function Call: WRITE
  • Prompt: !!!!,"1. Enter Information for Case #"_SRSCON(1),!,"2. Enter Information for Case #"_SRSCON(2),!
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,CON_". ",?4,"Case # "_SRSCON(CON),?40,SRSDT,!,?4,"Surgeon: "_SRSCON(CON,"DOC"),?40,SRSCON(CON,"SS"),!,?4,"Procedure: ",?16,SROPS(1)
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !,?16,SROPS(2)
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !,?16,SROPS(2)
  • Line Location: LIST+2
Routine Call
  • DIR
  • Line Location:
    • REQ+1
    • END

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] SRSCHCA+3, SRSCHCA+5, LIST+1
^SRO(137.45 - [#137.45] SRSCHCA+5
^VA(200 - [#200] SRSCHCA+5

Label References

Name Line Occurrences
DISP REQ+3
END SRSCHCA+2, SRSCHCA+6, REQ+1
LIST DISP+1
LOOP LIST+1

Naked Globals

Name Field # of Occurrence
^(31 SRSCHCA+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CON DISP+1*, LIST+1, LIST+2
>> DA REQ+2*
DIR REQ!, END!
DIR("?" REQ*
DIR("A" REQ+1*, END*
DIR(0 REQ+1*, END*
>> DUOUT REQ+1
IOF DISP, END+1
>> LOOP LOOP+1*
>> M LIST+1*, LOOP+1
MM LIST+1!, LOOP+1*
MMM LIST+1!, LOOP+1*
>> SRCC SRSCHCA+3*
>> SREQDT SRSCHCA+4*
>> SROPER LIST+1*, LOOP+1*
SROPS LIST+1!
SROPS( LOOP+1*
SROPS(1 LIST+1*, LIST+2
SROPS(2 LIST+2
SROPS(3 LIST+2
>> SRSCON SRSCHCA+3*, REQ+2*
>> SRSCON( DISP+1, REQ+2, LIST+1, LIST+2
>> SRSCON(1 SRSCHCA+5*, DISP+2
>> SRSCON(2 DISP+2
>> SRSDATE SRSCHCA+3*, SRSCHCA+4
>> SRSDT SRSCHCA+4*, LIST+2
>> SRSDT1 SRSCHCA+3*
>> SRSDT2 SRSCHCA+3*
>> SRSOR SRSCHCA+3*
>> SRSOUT SRSCHCA+2*, SRSCHCA+6*, REQ+1*, END
SRTN SRSCHCA+3, SRSCHCA+5, SRSCHCA+7, REQ+2*, END+1!
>> Y SRSCHCA+4*, REQ+1, REQ+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All