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

Package: Surgery

Routine: SRSUPC


Information

SRSUPC ;B'HAM ISC/MAM - UPDATE CANCEL REASON & DATE;[JAN 31,2001@08:59]

Source Information

Source file <SRSUPC.m>

Entry Points

Name Comments DBIA/ICR reference
PAT ;
OPT
END
LOOP ; break operation name if longer than 65 characters
OTHER ; other operations
LIST ;
CASE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no cancelled cases for "_SRNAME_"."
  • Line Location: PAT+4
Function Call: READ
  • Formatting: !!!
  • Prompt: "Select Operation: "
  • Variable: OPT
  • Timeout: DTIME
  • Line Location: OPT+0
Function Call: WRITE
  • Prompt: !!,"Enter the number of the desired operation"
  • Line Location: OPT+1
Function Call: WRITE
  • Prompt: @IOF,!,VADM(1),?32,VA("PID"),?50,"Case # ",SROP,!!,SRSDATE
  • Line Location: OPT+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: OPT+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_". "_$E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3)
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: ?14,SROPS(1)
  • Line Location: CASE+2
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: CASE+2
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: CASE+2
Function Call: WRITE
  • Prompt: !,?14,SROPS(4)
  • Condition for execution: $D(SROPS(4))
  • Line Location: CASE+2
Function Call: WRITE
  • Prompt: !,?14,SROPS(5)
  • Condition for execution: $D(SROPS(5))
  • Line Location: CASE+2
Info |  Source |  Entry Points |  Interaction Calls