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

Package: Surgery

Routine: SRSRBS1


Information

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

Source Information

Source file <SRSRBS1.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 ^%DT  D^DIQ  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SRSRBS  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SRSRBS1+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(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 "_SRS,!!,"Date",?14,"Patient",?45,"Ward Location",!,"Case Number",?14,"ID #",!,?14,"Operative Procedure",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: PAGE+1
Routine Call
  • %ZIS
  • Line Location:
    • SRSRBS1+2

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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