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

Package: Surgery

Routine: SRSUPRQ


Information

SRSUPRQ ;B'HAM ISC/MAM - UPDATE REQUESTED OPERATIONS; AUGUST 29, 2001@9:04 AM

Source Information

Source file <SRSUPRQ.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
OPT
SEL
END
OPS
LOOP ; break procedure if greater than 60 characters
MANY ; select requested case if more than one
SETUP ; set SRCASE array to list requested cases for this patient
DEL ; delete request
OPALSO ; delete from file 130
CON
CC ; check to see if concurrent case should be deleted
UPDATE ; update requested operation
RT ; start RT logging
MSG

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no requested cases for "_SRNM_"."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: @IOF,!,"The following "_GRAMMER_" requested for "_SRNM_":",!
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,$P(SRCASE(CNT),"^",2),?15,SROPS(1)
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,?15,SROPS(2)
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,?15,SROPS(2)
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,"1. Delete",!,"2. Update Request Information",!,"3. Change the Request Date"
  • Line Location: OPT+2
Function Call: READ
  • Variable: Z
  • Timeout: DTIME
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"If you want to delete this request, enter '1'. Enter '2' if you only want",!,"to update the general information about this case, or '3' to change the date",!,"that this case is requested for."
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: READ
  • Variable: SREQ
  • Timeout: DTIME
  • Line Location: MANY+1
Function Call: WRITE
  • Prompt: !!,"Select Operation Request: "
  • Line Location: MANY+1
Function Call: WRITE
  • Prompt: !!,"Enter the number corresponding to the request that will be updated or deleted. "
  • Line Location: MANY+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if this request is to be deleted, or NO to quit. "
  • Line Location: DEL+1
Function Call: READ
  • Variable: SRBOTH
  • Timeout: DTIME
  • Line Location: CC+1
Function Call: WRITE
  • Prompt: !!,"Enter 'Y' if you want to delete "_SRC_" concurrent case."
  • Line Location: CC+1
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you want these cases to remain concurrent."
  • Line Location: CC+2
Function Call: WRITE
  • Prompt: !!,"This case is currently being edited.",!,"Please try again later...",!!
  • Line Location: MSG+0
Info |  Source |  Entry Points |  Interaction Calls