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

Package: Surgery

Routine: SRSRBS


Information

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

Source Information

Source file <SRSRBS.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Surgery 5 ^SROSTOP  $$DIV^SROUTL0  ^SRSKILL  ^SRSRBS1  ^SRSRBW  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 ^%DT  ^DIC  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
A
END
SER ; entry when queued
SETUTL ; set ^TMP("SR",$J)
BEG
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
PRINT ; print information
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 BEG+4
^%ZISC END+1
^%ZTLOAD BEG+5
^DIC BEG+3
D^DIQ SETUTL+1
^SROSTOP HDR+1
$$DIV^SROUTL0 SER+2
^SRSKILL END+1
^SRSRBS1 BEG+2
^SRSRBW A+2
DEM^VADPT SETUTL+1, SETUTL1+2

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you would like to sort requests by SURGICAL SPECIALTY, or ",!,"'WARD' to sort by the WARD location."
  • Line Location: A+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you would like a list of requests for all surgical specialties,",!,"or 'NO' to list the requests for a specific specialty.",!
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+3
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+4
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: UTL+2
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("N"),!!,"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
  • DIC
  • Line Location:
    • BEG+3
Routine Call
  • %ZIS
  • Line Location:
    • BEG+4

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
A A+1
BEG BEG+1
END BEG, BEG+3, BEG+4, BEG+5
HDR UTL+1, PRINT+1
LOOP PRINT+2
PAGE PRINT+1
PRINT UTL+1
SETUTL SER+2
SETUTL1 WLIST+2
WARD SETUTL+2, SETUTL1+3

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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