Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 C^%DTC  ^DIC  
Kernel 1 $$NOW^XLFDT  
Surgery 1 ($$DIV,$$SITE)^SROUTL0  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Surgery 8 SRO-UNLOCK  SROANIN  SROARPT  SROMED  SROMENU  SRONIN  SRONOP  SROREST  

Entry Points

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

External References

Name Field # of Occurrence
C^%DTC LOCK+3, ALL+2
^DIC SEL+1
$$DIV^SROUTL0 SRTN
$$SITE^SROUTL0 ALL+4
$$NOW^XLFDT LOCK+7

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
  • Timeout: DTIME
  • Variable: X
  • 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
  • Prompt: "Select Number: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: Z
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter the number of the desired procedure, or '^' to quit."
  • Line Location: ASK+1
Routine Call
  • DIC
  • Line Location:
    • SEL+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] CHECK+1, UNLOCK+2, UNLOCK+3*, LOCK+5*, SRTN*, SEL+3, LIST+1, ALL+3, ALL+4*
^SRF("AC" LOCK+4, SRTN
^SRF("ADT" SEL+2, SEL+3
^SRF("AL" UNLOCK+3*, LOCK+5!
^SRO(133 - [#133] LOCK+2, ALL+1, ALL+2
^XTMP( LOCK+7!

Label References

Name Line Occurrences
ASK SEL+5, ASK+1
END UNLOCK+1, UNLOCK+2
LIST SEL+3
LOOP LIST+2
SEL UNLOCK+1
SRTN LOCK+4

Naked Globals

Name Field # of Occurrence
^("LOCK" CHECK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C END+1!
CASE END+1!
CNT END+1!, SEL+1*, LIST+1*, LIST+3
CPT END+1!, LIST+1*
CPT( LIST+3*, ASK+2
DATE END+1!, LOCK+4*, SRTN, SEL+3*, LIST, ALL+4*, ALL+5!
DAYS LOCK+2*, LOCK+3, ALL+2*, ALL+5!
DFN END+1!, SEL+1*, SEL+2, SEL+3
DIC SEL+1*!
DIC(0 SEL+1*
DT LOCK+3, ALL+2
DTIME CHECK+2, END, ASK
>> END LOCK+3*, LOCK+4
I END+1!
IOF END, SEL+1
>> L LOCK+5*, SEL+3*
LOOP END+1!, LOOP+1*
M END+1!, LIST+2*, LOOP+1
MM LIST+2!, LOOP+1*
MMM LIST+2!, LOOP+1*
>> MOE LOCK+3*
SITE LOCK+2*, ALL+2*, ALL+4*, ALL+5!
SR LOCK+2*, ALL+3*, ALL+4, ALL+5!
>> SRCASE LOCK+7*
>> SRCNT SEL+1*, SEL+3*, SEL+4, LIST
SRDIV ALL+5!
SRDIV( ALL+2*, ALL+4
>> SRI SEL+3*
>> SRNOW LOCK+7*
>> SRNOW1 LOCK+7*
SROLOCK CHECK+1!*, CHECK+2, CHECK+3*
SROPER END+1!, LIST+1*, LIST+2*, LOOP+1*
SROPS END+1!, LIST+2!
SROPS( LOOP+1*
SROPS(1 LIST+2*, LIST+3
SROPS(2 LIST+3
SROPS(3 LIST+3
>> SRSITE("DIV" LOCK+2*
SRTN CHECK+1, UNLOCK+1, UNLOCK+2, UNLOCK+3, END+1!, SRTN*, SEL+3*, SEL+4!, LIST+1, LIST+3
, ASK!, ASK+2*!, ALL+3*, ALL+4, ALL+5!
>> START LOCK+3*, LOCK+4
X CHECK+2*, END*, END+1!, LOCK+3, ALL+2, ALL+5!
X1 LOCK+3*, ALL+2*, ALL+5!
X2 LOCK+3*, ALL+2*, ALL+5!
Y END+1!, SEL+1
Z UNLOCK+1*, END+1!, ASK*, ASK+1, ASK+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All