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

Package: Surgery

Routine: SRSWL8


Information

SRSWL8 ;B'HAM ISC/MAM - WAITING LIST, BRIEF-ALL ; 17 OCT 1989 7:35 AM

Source Information

Source file <SRSWL8.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Surgery 3 ^SROSTOP  ^SRSKILL  OLD^SRSWLST  
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
PRINT ; print information
LOOP ; break operation if greater than 39 characters
PAGE ; end of page
MORE
HDR ; print heading

External References

Name Field # of Occurrence
NOW^%DTC BEG+2
^%ZIS SRSWL8+4
^%ZISC END+3
^%ZTLOAD SRSWL8+6
D^DIQ BEG+2, PRINT+5, PRINT+7, PRINT+9
^SROSTOP HDR+1
^SRSKILL END+3
OLD^SRSWLST PRINT+23
DEM^VADPT MORE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SRSWL8+4
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: !,SRDT,?15,SRSDPT,?40,SROP(1),!,"Tentative Admission: "_SRADT
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: ?40,SROP(2)
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,"Tentative Date of Operation: "_SROPDT
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !,"Surgical Specialty: ",SRSNM
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !,"* Procedure performed since entry on list ("_SROLD("DATE")_")"
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+25
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"Surgery Waiting List sorted by Patient ",!,"Printed "_SRTIME,!!,"Date Entered",?15,"Patient",?40,"Operative Procedure",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+2
Routine Call
  • %ZIS
  • Line Location:
    • SRSWL8+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRO(133.8 - [#133.8] BEG+8, PRINT+5, PRINT+20
^SRO(137.45 - [#137.45] PRINT+20
^TMP("SR" BEG+1!, BEG+10, END+1!, MORE*

Label References

Name Line Occurrences
END SRSWL8+6
HDR BEG+4, PAGE+1, PAGE+5
LOOP PRINT+13
MORE BEG+8
PAGE PRINT+1
PRINT BEG+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % BEG+2
%ZIS SRSWL8+4!*
%ZIS("A" SRSWL8+4*
>> DFN BEG+6*, PRINT+5*, MORE*
DTIME END+2, PAGE+3
IO BEG+2
IO("Q" SRSWL8+4!, SRSWL8+6!
IOF END, END+2, HDR+2
IOP SRSWL8+4!
IOSL PRINT+1
IOST END, PAGE+3
>> LINE PRINT+25*, HDR+2*
>> LOOP LOOP+1*
>> M PRINT+13*, LOOP+1
MM PRINT+13!, LOOP+1*
MMM PRINT+13!, LOOP+1*
POP SRSWL8+4!
>> SR SRSWL8+2*, BEG+6*, BEG+10*, PRINT+3
>> SRADT PRINT+7*, PRINT+15
>> SRDT PRINT+5*, PRINT+15
>> SRHALT HDR+1
>> SRHDR BEG+2*, PAGE+1*, HDR+2*
>> SRNAME BEG+6*
>> SROFN PRINT+3*, PRINT+5
>> SROLD PRINT+23*
>> SROLD("DATE" PRINT+23
SROP PRINT+13!
SROP( LOOP+1*
SROP(1 PRINT+13*, PRINT+15
SROP(2 PRINT+15
>> SROPDT PRINT+9*, PRINT+17*, PRINT+18
>> SROPER PRINT+5*, PRINT+13*, LOOP+1*
>> SRRECNO BEG+6*, BEG+8*, MORE
>> SRSDPT BEG+6*, PRINT+3*, PRINT+11*, PRINT+15, MORE*
>> SRSNM BEG+6*, PRINT+20*, PRINT+21
>> SRSOUT BEG+2*, BEG+10, END*, END+2, PRINT+1, PAGE+3*, HDR+1*
>> SRSS PRINT+3*, PRINT+5, PRINT+20
>> SRSUB BEG+6*, BEG+8*, MORE
>> SRTIME BEG+2*, HDR+2
SRTN END+3!
>> SRW BEG+6*, BEG+8*, PRINT+5*, PRINT+7, PRINT+9, MORE
>> SS SRSWL8+2*, BEG+6*, BEG+10*, PRINT+3
>> ST SRSWL8+2*, BEG+6*, BEG+10*, PRINT+3
>> VADM(1 MORE
>> X END+2*, PAGE+3*
>> Y BEG+2*, PRINT+5*, PRINT+7*, PRINT+9*
>> ZTDESC SRSWL8+6*
>> ZTQUEUED END+1, HDR+1
>> ZTREQ END+1*
>> ZTRTN SRSWL8+6*
>> ZTSTOP END+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All