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

Package: Surgery

Routine: SRSCAN


Information

SRSCAN ;B'HAM ISC/MAM - CANCEL SCHEDULED OPERATION ; [ 01/30/01 2:16 PM ]

Source Information

Source file <SRSCAN.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Surgery 5 ^SROP1  $$LOCK^SROUTL  ^SRSCAN0  ^SRSCAN1  ^SRSKILL  
Registration 1 DEM^VADPT  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SRSCAN  

Entry Points

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

External References

Name Field # of Occurrence
^DIC SRSCAN+2
^SROP1 OPS+1
$$LOCK^SROUTL OK+3
^SRSCAN0 OK+3
^SRSCAN1 ASK+6
^SRSKILL END
DEM^VADPT SRSCAN+3, LOOK+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SRSCAN+2
Function Call: WRITE
  • Prompt: @IOF,!,SRNAME,!
  • Line Location: SRSCAN+3
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 procedures scheduled for "_VADM(1)_".",!!
  • 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 cancel."
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"You have entered an invalid number, please select again. "
  • Line Location: ASK+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,$C(7),"This operation already has a start time and cannot be cancelled.",!!,"Press RETURN to continue "
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,"This operation is not scheduled."
  • Line Location: ASK+5
Function Call: READ
  • Prompt: "Is this the correct operation ? YES// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: SRYN
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if this is the scheduled procedure that you want",!,"to cancel, or 'NO' to quit this option."
  • Line Location: OK+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
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
Routine Call
  • DIC
  • Line Location:
    • SRSCAN+2

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
ASK ASK+1, ASK+2
END SRSCAN+2, LOOK+1, ASK, ASK+4, ASK+5, OK, OK+2
LIST LOOK
LOOP OPS+3
OK OK+1
OTHER OPS

Naked Globals

Name Field # of Occurrence
^( ASK+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT LOOK*, OPS+2*, OPS+4
>> DFN SRSCAN+3*, LOOK
DIC SRSCAN+2!*
DIC("A" SRSCAN+2*
DIC(0 SRSCAN+2*
DTIME LOOK+1, ASK, ASK+4, OK
>> I LOOK*, OPS*
IOF SRSCAN+3, END
>> LOOP LOOP+1*
>> M LOOP+1, OPS+3*
MM LOOP+1*, OPS+3!
MMM LOOP+1*, OPS+3!
>> OPER OTHER+1*, OTHER+2, OPS*
>> SRLONG OTHER+1*, OTHER+2
>> SRNAME SRSCAN+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*, LOOP+1*, OPS*, OPS+2, OPS+3*
>> 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
>> SRSOUT SRSCAN+2*
SRTN LOOK*, ASK+3*, ASK+4, ASK+5, OK+3, END!, OTHER+1, OTHER+2, LIST+1, OPS
, OPS+1
>> SRTOLD ASK+3*
>> SRYN OK*, OK+1*, OK+2
>> VA("PID" SRSCAN+3
>> VADM(1 SRSCAN+3, LOOK+1
>> X LOOK+1*, ASK+4*
>> Y SRSCAN+2, SRSCAN+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All