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

Package: Surgery

Routine: SRSRBW1


Information

SRSRBW1 ;B'HAM ISC/MAM - REQUESTS BY WARD (ALL) ; [ 07/27/98 2:33 PM ]

Source Information

Source file <SRSRBW1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Surgery 3 ^SROSTOP  $$DIV^SROUTL0  ^SRSKILL  
VA FileMan 2 ^%DT  D^DIQ  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SRSRBW  

Entry Points

Name Comments DBIA/ICR reference
WARD ; entry when queued
WLIST ; get waiting list patients
UTL ; loop through ^TMP("SR",$J) and print data
END
LOOP ; break procedure if greater than 65 characters
MOREWL ; continue getting patients on waiting list
SETUTL ; set ^TMP("SR",$J)
SETUTL1 ; set ^TMP("SR",$J) with waiting list info
PRINT ; print information
HDR ; print heading
PAGE ; end of screen
NOWARD ; check for scheduled admission

External References

Name Field # of Occurrence
^%DT WARD+1
^%ZIS SRSRBW1+2
^%ZISC END+1
^%ZTLOAD SRSRBW1+2
D^DIQ SETUTL+2
^SROSTOP HDR+1
$$DIV^SROUTL0 WARD+2
^SRSKILL END+1
DEM^VADPT SETUTL+1, SETUTL1+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SRSRBW1+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: UTL+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,$P(STBY,"^"),?14,$P(STBY,"^",2),?45,$P($P(STBY,"^",3),"("),!,SRTN,?14,$P(STBY,"^",5),!,?14,SROPS(1)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?5,"Operative Requests for "_SRW,!!,"Date",?14,"Patient",?45,"Surgical Specialty",!,"Case Number",?14,"ID #",!,?14,"Operative Procedure",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+1
Routine Call
  • %ZIS
  • Line Location:
    • SRSRBW1+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGS(41.1 - [#41.1] NOWARD+1
^DPT - [#2] SETUTL+2, SETUTL1+2
^SRF - [#130] WARD+2, SETUTL+2
^SRF("AR" WARD+2
^SRO(133.8 - [#133.8] WLIST+2, MOREWL+1, SETUTL1+1
^SRO(137.45 - [#137.45] SETUTL+1, SETUTL1+3
^TMP("SR" WARD+1!, UTL+2, END!, SETUTL+4*, SETUTL1+4*, PRINT+2

Label References

Name Line Occurrences
END SRSRBW1+2
HDR UTL+2, PRINT+1
LOOP PRINT+2
MOREWL WLIST+2
NOWARD SETUTL+3, SETUTL1+2
PAGE UTL+2, PRINT+1
PRINT UTL+2
SETUTL WARD+2
SETUTL1 MOREWL+1

Naked Globals

Name Field # of Occurrence
^( SETUTL+2, SETUTL1+2
^(0 WARD+2, SETUTL1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS SRSRBW1+2!*
%ZIS("A" SRSRBW1+2*
>> COUNT WLIST+1*, SETUTL1+3*, SETUTL1+4
>> DFN WARD+1*, WARD+2*, SETUTL+2, SETUTL1+1*, SETUTL1+2, NOWARD+1
DT NOWARD+1
DTIME UTL+3, PAGE+1
IO UTL+1
IO("Q" SRSRBW1+2!
IOF END, END+1, HDR+2
IOP SRSRBW1+2!
IOSL PRINT+1
IOST UTL+3, END, PAGE+1
>> LINE PRINT+4*, HDR+2*
>> LOOP LOOP+1*
>> M LOOP+1, PRINT+2*
MM LOOP+1*, PRINT+2!
MMM LOOP+1*, PRINT+2!
>> PDATE NOWARD+1*
>> PEND NOWARD+1*
POP SRSRBW1+2!
>> SRDATE SETUTL+2*, SETUTL+4
>> SRHALT HDR+1
>> SRNM SETUTL+2*, SETUTL+4, SETUTL1+3*, SETUTL1+4
>> SROPER LOOP+1*, PRINT+2*
SROPS PRINT+2!
SROPS( LOOP+1*
SROPS(1 PRINT+2*, PRINT+3
SROPS(2 PRINT+3
SROPS(3 PRINT+3
>> SRQ WARD+1*, UTL+2, UTL+3, PRINT+1, HDR+1*, PAGE+1*
>> SRS WARD+2*, WLIST+2*, SETUTL+1, SETUTL1+3*, SETUTL1+4
>> SRS("N" SETUTL+1*, SETUTL+4
>> SRSDATE WARD+1*, WARD+2*, WLIST+2*, UTL+1*, UTL+2*, MOREWL+1, SETUTL+2, SETUTL+4, PRINT+2
>> SRSOP SETUTL+2*, SETUTL+4, SETUTL1+1*, SETUTL1+4
>> SRSS WLIST+1*, WLIST+2*, MOREWL+1, SETUTL1+1, SETUTL1+3
>> SRSSN SETUTL+2*, SETUTL+4, SETUTL1+3*, SETUTL1+4
SRTN WARD+1*, WARD+2*, UTL+1*, UTL+2*, END+1!, SETUTL+2, SETUTL+4, PRINT+2, PRINT+3
>> SRW UTL+1*, UTL+2*, PRINT+2, HDR+2
>> SRWARD SETUTL+2*, SETUTL+3, SETUTL+4, SETUTL1+2*, SETUTL1+4, NOWARD+1*, NOWARD+2*
>> SRWL MOREWL+1*, SETUTL1+1
>> SRZ UTL+1*, PRINT+2*, PAGE+1
>> STBY PRINT+2*, PRINT+3
>> VA("PID" SETUTL+2, SETUTL1+3
>> VADM(1 SETUTL+2, SETUTL1+3
>> X WARD+1*, UTL+3*, PAGE+1*, NOWARD+1*, NOWARD+2
>> Y WARD+1, SETUTL+2*
>> ZTDESC SRSRBW1+2*
>> ZTQUEUED END, HDR+1
>> ZTREQ END*
>> ZTRTN SRSRBW1+2*
>> ZTSAVE("DT" SRSRBW1+2*
>> ZTSAVE("SRSITE*" SRSRBW1+2*
>> 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