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

Package: Surgery

Routine: SRSCHUP


Information

SRSCHUP ;B'HAM ISC/MAM - UPDATE SCHEDULED OPERATION ; 6 Jan 1989 10:56 AM

Source Information

Source file <SRSCHUP.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Surgery 3 ^SROP1  ^SRSKILL  ^SRSUP1  
VA FileMan 2 ^DIC  ^DIE  
Registration 1 DEM^VADPT  

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

Package Total Caller Graph
Surgery 3 SROP  SRSCHUP  SRSUPRQ  

Entry Points

Name Comments DBIA/ICR reference
LOOK
ASK
END
OTHER ; other operations
LIST ; list cases
OPS
LOOP ; break procedure if greater than 60 characters
SS ; enter missing specialty

External References

Name Field # of Occurrence
^DIC SRSCHUP+2
^DIE SS+1
^SROP1 OPS+1
^SRSKILL END
^SRSUP1 ASK+4
DEM^VADPT SRSCHUP+3, LOOK+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SRSCHUP+2
Function Call: WRITE
  • Prompt: @IOF,!,SRNAME,!!
  • Line Location: LOOK+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: !!,"There are no procedures scheduled for "_VADM(1)_".",!!
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: LOOK+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Select Number: "
  • Variable: SRNUM
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter the number which corresponds to the case that you want to update."
  • 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: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,CNT_". "_SRSDATE,?15,SROPS(1)
  • Line Location: OPS+4
Function Call: WRITE
  • Prompt: !,?15,SROPS(2)
  • Line Location: OPS+4
Function Call: WRITE
  • Prompt: !,?15,SROPS(2)
  • Line Location: OPS+4
Function Call: WRITE
  • Prompt: !,?15,SROPS(2)
  • Line Location: OPS+4
Function Call: WRITE
  • Prompt: !,?15,SROPS(2)
  • Line Location: OPS+4
Function Call: WRITE
  • Prompt: !!,"To continue, a Surgical Specialty MUST be defined for this case.",!
  • Line Location: SS+1
Routine Call
  • DIC
  • Line Location:
    • SRSCHUP+2
Routine Call
  • DIE
  • Line Location:
    • SS+1

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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