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

Package: Surgery

Routine: SROREQ3


Information

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

Source Information

Source file <SROREQ3.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Surgery 3 ^SROSTOP  $$DIV^SROUTL0  ^SRSKILL  
VA Fileman 2 ^DIC  (D,Y)^DIQ  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROPREQ  

Entry Points

Name Comments DBIA/ICR reference
SET ; set ^TMP(
END
HDR ; print heading
BEG ; entry when queued
PRINT ; print request info
PAGE
LOOP ; break procedure if greater than 63 characters

External References

Name Field # of Occurrence
^%ZIS SROREQ3+4
^%ZISC END+2
^%ZTLOAD SROREQ3+5
^DIC SROREQ3+2
D^DIQ BEG+1
Y^DIQ PRINT+6
^SROSTOP HDR+1
$$DIV^SROUTL0 BEG+2
^SRSKILL END+2
DEM^VADPT PRINT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SROREQ3+4
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: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"OPERATION REQUESTS FOR "_SRSNM,?70,SRDT,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,CNT_".",?5,"Case Number: "_SRTN,?40,"Operation Date: "_SRSDT,!,?5,"Patient: ",?16,SRNAME,?40,"Ward: ",SRWARD,!,?5,"ID#: ",?16,VA("PID"),?40,"Surgeon: "_SRSUR,!,?5,"Procedure: "_SROPS(1)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,?16,SROPS(2)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,?16,SROPS(3)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,?16,SROPS(3)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,?5,"Estimated Case Length: "_SRHRS
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !,?5,"Requested Anesthesia: "_SRANES
  • Condition for execution: SRSORD'="" !,?5,"Case Schedule Order: "_SRSORD W:SRANES'=""
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !,"Concurrent Case # "_SRSCON,!,SROPS(1)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,SROPS(2)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,SROPS(2)
  • Line Location: PRINT+13
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
Routine Call
  • DIC
  • Line Location:
    • SROREQ3+2
Routine Call
  • %ZIS
  • Line Location:
    • SROREQ3+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(130 PRINT+6
^DPT - [#2] PRINT+7
^SRF - [#130] BEG+2, SET+1, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+12
^SRF("AR" BEG+2
^TMP("SR" BEG+1!, BEG+3, END!, SET+1*
^VA(200 - [#200] PRINT+4

Label References

Name Line Occurrences
END SROREQ3+2, SROREQ3+4, SROREQ3+5
HDR BEG+1, PAGE+1
LOOP PRINT+8, PRINT+12
PAGE PRINT+1
PRINT BEG+3
SET BEG+2

Naked Globals

Name Field # of Occurrence
^( PRINT+7
^("CON" PRINT+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS SROREQ3+4!*
%ZIS("A" SROREQ3+4*
A PRINT+12!
>> C PRINT+6*
>> CNT BEG+1*, PRINT+2*, PRINT+9
>> DFN BEG+1*, BEG+2*, PRINT+2*, PRINT+7
DIC SROREQ3+2!*
DIC("A" SROREQ3+2*
DIC("S" SROREQ3+2*
DIC(0 SROREQ3+2*
DTIME END+1, PAGE
IO BEG+1
IO("Q" SROREQ3+4!, SROREQ3+5!
IOF END, END+2, HDR+2
IOP SROREQ3+4!
IOSL PRINT+1
IOST END, END+1, PAGE
>> LINE HDR+2*
>> LOOP LOOP+1*
>> M PRINT+8*, PRINT+12*, LOOP+1
MM PRINT+8!, PRINT+12, LOOP+1*
MMM PRINT+8!, LOOP+1*
POP SROREQ3+4!
>> SR(0 PRINT+2*, PRINT+6, PRINT+7
>> SRANES PRINT+6*, PRINT+11
>> SRDT BEG+1*, HDR+2
>> SREQDT BEG+3*, SET+1*
>> SRHALT HDR+1
>> SRHRS PRINT+5*, PRINT+6*, PRINT+11
>> SRNAME PRINT+3*, PRINT+9
>> SROPER PRINT+3*, PRINT+8*, PRINT+12*, LOOP+1*
SROPS PRINT+8!
SROPS( LOOP+1*
SROPS(1 PRINT+8*, PRINT+9, PRINT+12*, PRINT+13
SROPS(2 PRINT+10, PRINT+13
SROPS(3 PRINT+10, PRINT+13
SROPS(4 PRINT+10
SRSCON PRINT+12!*, PRINT+13
>> SRSDATE BEG+1, BEG+2, PRINT+5
>> SRSDT BEG+1*, PRINT+5*, PRINT+9
>> SRSNM SROREQ3+3*, HDR+2
>> SRSORD PRINT+7*, PRINT+11
>> SRSOUT SROREQ3+2*, SROREQ3+4*, SROREQ3+5*, BEG+1*, BEG+3, END+1*, HDR+1*, PRINT+1, PAGE*
>> SRSS SROREQ3+3*, BEG+2
>> SRSUR PRINT+4*, PRINT+9
SRTN BEG+2*, BEG+3*, END+2!, SET+1, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+9
, PRINT+12
>> SRTYPE PRINT+6*, PRINT+7*, PRINT+8
>> SRWARD PRINT+7*, PRINT+9
>> SSN PRINT+7*
>> VA("PID" PRINT+7, PRINT+9
>> VADM(1 PRINT+3
>> X END+1*, PAGE*
>> Y SROREQ3+2, SROREQ3+3, BEG+1*, PRINT+6*
>> Y(0 SROREQ3+3
>> ZTDESC SROREQ3+5*
>> ZTQUEUED END, HDR+1
>> ZTREQ END*
>> ZTRTN SROREQ3+5*
>> ZTSAVE("SRSDATE" SROREQ3+5*
>> ZTSAVE("SRSITE*" SROREQ3+5*
>> ZTSAVE("SRSNM" SROREQ3+5*
>> ZTSAVE("SRSS" SROREQ3+5*
>> 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