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

Package: Surgery

Routine: SROREQ1


Information

SROREQ1 ;BIR/MAM - REQUESTS FOR A DAY (LONG FORM) ; [ 12/09/99 11:54 AM ]

Source Information

Source file <SROREQ1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Surgery 3 HDR^SROREQ  $$DIV^SROUTL0  ^SRSKILL  
Kernel 1 ^%ZISC  
Registration 1 DEM^VADPT  
VA Fileman 1 (D,Y)^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROREQ  

Entry Points

Name Comments DBIA/ICR reference
SET ; set ^TMP(
END
BEG ; entry when queued
ANES
PRINT ; print requests
PAGE
LOOP ; break procedure if greater than 55 characters
MORE

External References

Name Field # of Occurrence
^%ZISC END+2
D^DIQ BEG+1, PRINT+8
Y^DIQ ANES
HDR^SROREQ PAGE+1
$$DIV^SROUTL0 BEG+2
^SRSKILL END+2
DEM^VADPT PRINT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEG+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ANES+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: ANES+5
Function Call: WRITE
  • Prompt: !!,"Patient: "_SRNAME,?40,"ID #: "_VA("PID"),!,"Age: "_AGE,?40,"Ward: "_SRWARD,!!,"Surgeon: "_SROSUR,?40,"Attending: "_SROATT,!,"Preoperative Diagnosis: "_SRDIAG
  • Line Location: ANES+6
Function Call: WRITE
  • Prompt: !!,"Principal Procedure:",?22,SROPS(1)
  • Line Location: ANES+7
Function Call: WRITE
  • Prompt: !,?22,SROPS(2)
  • Line Location: ANES+7
Function Call: WRITE
  • Prompt: !,?22,SROPS(2)
  • Line Location: ANES+7
Function Call: WRITE
  • Prompt: !,?22,SROPS(2)
  • Line Location: ANES+7
Function Call: WRITE
  • Prompt: !,?22,SROPS(2)
  • Line Location: ANES+7
Function Call: WRITE
  • Prompt: !,?22,SROP(CNT)
  • Line Location: ANES+8
Function Call: WRITE
  • Prompt: !,"Estimated Case Length: "_SRLENGTH
  • Line Location: ANES+9
Function Call: WRITE
  • Prompt: ?40,"Position: ",SRPOS(1)
  • Line Location: ANES+9
Function Call: WRITE
  • Prompt: ?40,"Position: ",SRPOS(1)
  • Line Location: ANES+9
Function Call: WRITE
  • Prompt: ?40,"Position: ",SRPOS(1)
  • Line Location: ANES+9
Function Call: WRITE
  • Prompt: ?40,"Position: ",SRPOS(1)
  • Line Location: ANES+9
Function Call: WRITE
  • Prompt: !,"Case Schedule Order: "_SRORDER
  • Line Location: ANES+10
Function Call: WRITE
  • Prompt: !,"Requested Anesthesia Technique: "_SRANES
  • Line Location: ANES+11
Function Call: WRITE
  • Prompt: !!,"Blood Requested: ",?18,BLOOD(1)
  • Line Location: ANES+12
Function Call: WRITE
  • Prompt: !,?18,BLOOD(2)
  • Line Location: ANES+12
Function Call: WRITE
  • Prompt: !,?18,BLOOD(2)
  • Line Location: ANES+12
Function Call: WRITE
  • Prompt: !,^SRF(SRTN,5,X,0)
  • Line Location: ANES+14
Function Call: WRITE
  • Prompt: !
  • Line Location: ANES+15
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: PAGE+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue, or '^' to quit: "
  • Line Location: PAGE+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(130 ANES
^DPT - [#2] PRINT+2
^SRF - [#130] BEG+2, SET+1, SET+2, PRINT+3, PRINT+4, PRINT+7, PRINT+8, ANES+1, ANES+2, ANES+3
, ANES+4, ANES+14
^SRF("AR" BEG+2
^SRO(132 - [#132] ANES+2
^SRO(137.45 - [#137.45] SET+1
^TMP("SR" BEG+1!, BEG+3, END!, MORE, SET+2*, PRINT+2
^VA(200 - [#200] PRINT+6, PRINT+9

Label References

Name Line Occurrences
LOOP PRINT+5
MORE BEG+3
PAGE BEG+3, PRINT+1
PRINT MORE
SET BEG+2

Naked Globals

Name Field # of Occurrence
^( PRINT+2, PRINT+3
^(0 ANES+1
^(33 PRINT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AGE PRINT+2*, ANES+6
BLOOD ANES+1!
BLOOD( ANES+1*
BLOOD(0 ANES+12
BLOOD(1 ANES+12
BLOOD(2 ANES+12
BLOOD(3 ANES+12
>> C ANES*
>> CNT PRINT+4*, ANES+1*, ANES+2*, ANES+8*
>> DFN BEG+2*, SET+2, PRINT+2*
DTIME END+1, PAGE
IO BEG+1
IOF BEG+2, END, END+2
IOSL PRINT+1
IOST END, END+1, PAGE
>> LINE ANES+5*
>> LOOP LOOP+1*
>> M PRINT+5*, LOOP+1
MM PRINT+5!, ANES+1*, LOOP+1*
MMM PRINT+5!, LOOP+1*
>> SR( PRINT+3*, PRINT+4
>> SR("1.0" PRINT+8*, PRINT+9, ANES
>> SRANES ANES*, ANES+11
>> SRDIAG PRINT+7*, ANES+6
>> SREQDAY PRINT+8*, ANES+13
>> SREQDT BEG+3*, MORE, SET+2*, PRINT+2, PRINT+8
>> SRHDR BEG+3*, PAGE
>> SRLENGTH ANES+3*, ANES+9
>> SRNAME PRINT+2*, ANES+6
>> SROATT PRINT+4*, PRINT+6*, ANES+6
SROP PRINT+4!
SROP( PRINT+4*, ANES+8
SROP(0 ANES+8
SROP(1 ANES+8
>> SROPER PRINT+4*, PRINT+5*, LOOP+1*
SROPS PRINT+5!
SROPS( LOOP+1*
SROPS(1 PRINT+5*, ANES+7
SROPS(2 ANES+7
SROPS(3 ANES+7
SROPS(4 ANES+7
SROPS(5 ANES+7
>> SRORDER ANES+4*, ANES+10
>> SROSUR PRINT+4*, PRINT+6*, ANES+6
SRPOS ANES+2!
SRPOS( ANES+2*
SRPOS(0 ANES+9
SRPOS(1 ANES+9
SRPOS(2 ANES+9
SRPOS(3 ANES+9
SRPOS(4 ANES+9
>> SRSDATE BEG+1, BEG+2
>> SRSDT BEG+1*
>> SRSNM BEG+3*, MORE, SET+1*, SET+2, PRINT+2
>> SRSOUT BEG+2*, BEG+3, END+1, MORE, PRINT+1, PAGE*
>> SRSPER PRINT+9*, ANES+13
>> SRSS SET+1*
>> SRSSN PRINT+2*
SRTN BEG+2*, END+2!, MORE*, SET+1, SET+2, PRINT+2, PRINT+3, PRINT+4, PRINT+7, PRINT+8
, ANES+1, ANES+2, ANES+3, ANES+4, ANES+14
>> SRWARD PRINT+2*, ANES+6
>> VA("PID" PRINT+2, ANES+6
>> VADM(1 PRINT+2
>> VADM(4 PRINT+2
>> X END+1*, PRINT+4*, ANES+1*, ANES+2*, ANES+14*, PAGE*
>> Y BEG+1*, PRINT+8*, ANES*, ANES+1*, ANES+2*
>> ZTQUEUED END
>> ZTREQ END*
>> ZTSTOP END
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All