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

Package: Surgery

Routine: SRSCHD1


Information

SRSCHD1 ;B'HAM ISC/MAM - SCHEDULE REQUESTED OPERATIONS (CONT);[JAN 31,2001@7:52]

Source Information

Source file <SRSCHD1.m>

Entry Points

Name Comments DBIA/ICR reference
REQ ; select request
UN
SEL
END ;
LOOP ; break procedure if greater than 75 characters
ALRDY ;Is the operation already scheduled?
LOCK(SRCASE) ;
E1
E2
SINED
XTMP
UNLOCK(SRCASE) ; apply decremental lock

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: REQ+2
Function Call: WRITE
  • Prompt: !!,"The records show that "_SRNM_" died on "_Y_".",!!,"Press RETURN to continue "
  • Line Location: REQ+2
Function Call: WRITE
  • Prompt: !!!,"Case Information: ",!,SROPS(1)
  • Line Location: UN+3
Function Call: WRITE
  • Prompt: !,SROPS(2)
  • Line Location: UN+3
Function Call: WRITE
  • Prompt: !,SROPS(2)
  • Line Location: UN+3
Function Call: WRITE
  • Prompt: !,"By "
  • Line Location: UN+4
Function Call: WRITE
  • Prompt: USER
  • Line Location: UN+4
Function Call: WRITE
  • Prompt: USER
  • Line Location: UN+4
Function Call: WRITE
  • Prompt: ?40,"For "_HOURS_" Hours"
  • Line Location: UN+5
Function Call: WRITE
  • Prompt: !,$S($D(SRSTYP):SRSTYP,1:""),?40,$P(^SRF(SRTN,0),"^",11)
  • Line Location: UN+7
Function Call: WRITE
  • Prompt: !,^SRF(SRTN,5,COMMENT,0)
  • Line Location: UN+8
Function Call: WRITE
  • Prompt: !!," * Concurrent Case # "_SRCON_" "_$P(^SRF(SRCON,"OP"),"^")
  • Line Location: UN+9
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"Enter 'NO' if you have selected the wrong request, or RETURN to continue",!,"scheduling this request. ",!
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"This case is already scheduled.",!!,"Press RETURN to continue "
  • Line Location: ALRDY+3
Info |  Source |  Entry Points |  Interaction Calls