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 |  Local Variables  | All
Print Page as PDF
Routine: SRSWL4

Package: Surgery

Routine: SRSWL4


Information

SRSWL4 ;B'HAM ISC/MAM - WAITING LIST, EXTENDED-ONE SPECIALTY ; 17 OCT 1989 7:35 AM [ 09/12/94 1:00 PM ]

Source Information

Source file <SRSWL4.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Surgery 3 ^SROSTOP  ^SRSKILL  OUT^SRSWL3  
VA FileMan 2 NOW^%DTC  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 SRSWLST  

Entry Points

Name Comments DBIA/ICR reference
BEG ; entry when queued
END
HDR ; print heading
PRINT ; print information
LOOP ; break operation if greater than 59 characters
PAGE ; end of page

External References

Name Field # of Occurrence
NOW^%DTC BEG+1
^%ZIS SRSWL4+2
^%ZISC END+3
^%ZTLOAD SRSWL4+3
D^DIQ BEG+1, PRINT+2
^SROSTOP HDR+1
^SRSKILL END+3
OUT^SRSWL3 PRINT+3
DEM^VADPT PRINT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SRSWL4+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+2
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: !,"Surgery Waiting List for "_SRSNM,!,"Printed "_SRTIME,!
  • 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:
    • SRSWL4+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRO(133.8 - [#133.8] BEG+2, PRINT+2
^TMP("SR" END+1!

Label References

Name Line Occurrences
END SRSWL4+3
HDR BEG+1, PAGE+2
PAGE PRINT+1
PRINT BEG+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % BEG+1
%ZIS SRSWL4+2!*
%ZIS("A" SRSWL4+2*
>> DFN PRINT+2*
DTIME END+2, PAGE+1
IO BEG+1
IO("Q" SRSWL4+2!, SRSWL4+3!
IOF END, END+2, HDR+2
IOP SRSWL4+2!
IOSL PRINT+1
IOST END, PAGE+1
>> LINE HDR+2*
>> LOOP LOOP+1*
>> M LOOP+1
>> MM LOOP+1*
>> MMM LOOP+1*
POP SRSWL4+2!
>> SRDT PRINT+2*
>> SRHALT HDR+1
>> SROFN BEG+2*, PRINT+2
>> SROPER PRINT+2*, LOOP+1*
>> SROPS( LOOP+1*
>> SRSDPT PRINT+2*
>> SRSDT BEG+2*, PRINT+2
>> SRSNM HDR+2
>> SRSOUT BEG+1*, BEG+2, END*, END+2, HDR+1*, PRINT+1, PAGE+1*
>> SRSS BEG+2, PRINT+2
>> SRTIME BEG+1*, HDR+2
SRTN END+3!
>> SRW PRINT+2*
>> VA("PID" PRINT+2
>> VADM(1 PRINT+2
>> X END+2*, PAGE+1*
>> Y BEG+1*, PRINT+2*
>> ZTDESC SRSWL4+3*
>> ZTQUEUED END+1, HDR+1
>> ZTREQ END+1*
>> ZTRTN SRSWL4+3*
>> ZTSAVE("SRSNM" SRSWL4+3*
>> ZTSAVE("SRSS" SRSWL4+3*
>> ZTSTOP END+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All