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 |  Local Variables |  All
Print Page as PDF
Routine: SROREST

Package: Surgery

Routine: SROREST


Information

SROREST ;B'HAM ISC/MAM - STUFF RESTRAINTS; [ 01/30/01 1:13 AM ]

Source Information

Source file <SROREST.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Surgery 4 ^SROIRR  ^SROLOCK  ($$LOCK,UNLOCK)^SROUTL  ^SRSKILL  
VA Fileman 2 ^DIE  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROMEN-REST  

Entry Points

Name Comments DBIA/ICR reference
END
LIST ;
RET
STUFF ; stuff restraints in Surgery file
ASK
SEL
PAGE

External References

Name Field # of Occurrence
^DIE STUFF+1
^DIR SEL+1, RET
^SROIRR ASK+4
^SROLOCK SROREST+3
$$LOCK^SROUTL ASK+3
UNLOCK^SROUTL END
^SRSKILL END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"A surgical case has not been entered. "
  • Line Location: SROREST+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"Type '1' to enter irrigation solutions, or '2' to enter restraints",!,"or positioning aids.",!!,"Press RETURN to continue "
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF,!,?20,"Restraints and Positioning Aids",?(79-$L(SRNUM)),SRNUM,!
  • Line Location: PAGE+0
Function Call: WRITE
  • Prompt: "="
  • Line Location: PAGE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,SRI_" is an invalid entry. Please try again."
  • Line Location: SEL+4
Function Call: WRITE
  • Prompt: !!,"Entering "_SREST1_" ..."
  • Line Location: STUFF+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RET+0
Routine Call
  • DIE
  • Line Location:
    • STUFF+1
Routine Call
  • DIR
  • Line Location:
    • SEL+1
    • RET

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] SEL+3*
^SRO(132.05 - [#132.05] LIST+1

Label References

Name Line Occurrences
ASK ASK+2, ASK+3
END SROREST+2, SROREST+3, ASK
PAGE LIST+3, SEL+5
RET SEL+5, SEL+7
STUFF SEL+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT LIST+1*, LIST+2, LIST+3*, PAGE+1*
>> DA STUFF+1*
>> DIE STUFF+1*
DIR SEL!, SEL+1!, RET!
DIR("?" SEL*
DIR("A" SEL+1*, RET*
DIR(0 SEL+1*, RET*
DR STUFF+1!*
DR(2 STUFF+1*
DTIME ASK, ASK+2
>> DTOUT SEL+1, SEL+5, SEL+7
>> DUOUT SEL+1, SEL+5, SEL+7
>> I PAGE*
>> INACT LIST+1*
IOF ASK, END, PAGE
>> LINE PAGE+2*
>> S PAGE+1*
>> SRCNT SEL+4*, SEL+6*
SRD LIST+2~*, LIST+3
SREST LIST+1!*, STUFF+1*
SREST( LIST+1*, PAGE+1, SEL+4, STUFF+1
>> SREST1 STUFF+1*
SRFIRST LIST+2~, LIST+3*, PAGE+1
SRI LIST+2~, SEL+4*, SEL+6*, STUFF+1
SRJ LIST+2~
SRLAST LIST+2~, LIST+3*, PAGE+1
SRLCK SROREST+2~, ASK+3*, END
>> SRNUM LIST+3*, PAGE
>> SROLOCK SROREST+3
SRP LIST+2~*, LIST+3
SRP1 LIST+2~*
>> SRPAGE LIST+3*
SRQ LIST+2~, SEL+4*, SEL+5
>> SRSOUT SROREST+2*, SROREST+3*, ASK*, LIST+3, PAGE, SEL+1*, SEL+5*, SEL+7*
>> SRTN SROREST+2, ASK+3, END, SEL+3, STUFF+1
SRTOT LIST+2~*, LIST+3
>> SRX SEL+2*, SEL+4, SEL+6
>> X ASK*, ASK+1*, ASK+2*, ASK+4
>> Y SEL+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All