Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: SRONOP

Package: Surgery

Routine: SRONOP


Information

SRONOP ;B;HAM ISC/MAM - NON-O.R. PROCEDURES ; [ 01/30/01 1:07 PM ]

Source Information

Source file <SRONOP.m>

Entry Points

Name Comments DBIA/ICR reference
ADT
SEL
ASK
END
EDIT ; edit procedure
LIST ; list case
CASE
LOCK ; case locked?
LOOP ; break procedure if greater than 60 characters
RT ; start RT logging
CONT
FUTURE
HDR ; print heading

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: SRONOP+2
Function Call: WRITE
  • Prompt: !,CNT_".",?4,"NEW PROCEDURE"
  • Line Location: ADT+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"Enter the number corresponding to the procedure you want to edit."
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !,"Enter '"_CNT_"' or 'NEW' to create a new procedure"
  • Condition for execution: $D(SROEDIT)
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !,?1
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"Do you want to edit or delete this procedure ? "
  • Line Location: ASK+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,"Enter '1' to edit information related to this procedure, or '2' to delete",!,"this procedure from your records.",!!,"Press RETURN to continue "
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,CNT_". "
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: SRSDATE,?20,SROPS(1)
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !,?20,SROPS(2)
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !,?20,SROPS(2)
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !,?20,SROPS(2)
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CASE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: ".",!
  • Line Location: CONT+6
Function Call: WRITE
  • Prompt: !,?1
  • Line Location: FUTURE+0
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: FUTURE+0
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID")
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: " * Died "_$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)_" *"
  • Condition for execution: X
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+1
Info |  Source |  Entry Points |  Interaction Calls