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

Package: Surgery

Routine: SROLOCK


Information

SROLOCK ;B'HAM ISC/MAM - USED TO LOCK A CASE ;11/10/04

Source Information

Source file <SROLOCK.m>

Entry Points

Name Comments DBIA/ICR reference
CHECK ; check to determine if a case is locked
UNLOCK ; unlock a case for editing
END
LOCK ; queued to run nightly, locks cases that are passed the specified
; number of days for editing
SRTN
SEL ; select patient and case
LIST
ASK
LOOP ; break procedure if greater than 55 characters
ALL ; lock all eligible cases in entire file

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This case has been verified and locked. It cannot be updated unless",!,"unlocked by your chief, or someone appointed by your chief.",!!,"Press RETURN to continue "
  • Line Location: CHECK+2
Function Call: WRITE
  • Prompt: !!,"This case is not locked."
  • Line Location: UNLOCK+2
Function Call: WRITE
  • Prompt: !!,"Case #"_SRTN_" is now unlocked."
  • Line Location: UNLOCK+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,"No cases have been scheduled for the patient chosen.",!!
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: !!,"There are no locked cases for this patient."
  • Line Location: SEL+4
Function Call: WRITE
  • Prompt: !,?5,SRCNT_". "_$E(DATE,4,5)_"-"_$E(DATE,6,7)_"-"_$E(DATE,2,3)
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: ?22,SROPS(1)
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !,?22,SROPS(2)
  • Condition for execution: $D(SROPS(2))
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !,?22,SROPS(3)
  • Condition for execution: $D(SROPS(3))
  • Line Location: LIST+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Select Number: "
  • Variable: Z
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter the number of the desired procedure, or '^' to quit."
  • Line Location: ASK+1
Info |  Source |  Entry Points |  Interaction Calls