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

Package: Surgery

Routine: SRSWL3


Information

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

Source Information

Source file <SRSWL3.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Surgery 3 ^SROSTOP  ^SRSKILL  ^SRSWL5  
VA FileMan 3 NOW^%DTC  D^DIQ  ^DIWP  
Registration 1 (ADD,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: 7

Package Total Caller Graph
Surgery 7 SRSWL11  SRSWL13  SRSWL15  SRSWL4  SRSWL7  SRSWL9  SRSWLST  

Entry Points

Name Comments DBIA/ICR reference
BEG ; entry when queued
END
HDR ; print heading
MORE ; continue looping on 'WL' x-ref
PRINT ; print information
OUT
LOOP ; break operation if greater than 59 characters
PAGE ; end of page

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SRSWL3+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: WRITE
  • Prompt: !,"Patient:",?14,SRSDPT,!,"Date Entered: ",?12,SRDT,!,"Procedure: ",?14,SROPS(1)
  • Line Location: OUT+6
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: OUT+6
Function Call: WRITE
  • Prompt: !!,"Tentative Admission Date: "_$S(SRADT="":"None Specified",1:SRADT)
  • Line Location: OUT+7
Function Call: WRITE
  • Prompt: !,"Tentative Date of Operation: "_$S(TEMPDT="":"None Specified",1:TEMPDT)
  • Line Location: OUT+8
Function Call: WRITE
  • Prompt: !,?3,^UTILITY($J,"W",3,X,0)
  • Line Location: OUT+11
Function Call: WRITE
  • Prompt: !!," Home Phone: "_SRSPH1,?40,"Work Phone: "_SRSPH2
  • Line Location: OUT+12
Function Call: WRITE
  • Prompt: !," Address: ",?14,VAPA(1)
  • Line Location: OUT+15
Function Call: WRITE
  • Prompt: !,?14,VAPA(3)
  • Condition for execution: VAPA(2)'="" !,?14,VAPA(2) W:VAPA(3)'=""
  • Line Location: OUT+15
Function Call: WRITE
  • Prompt: ", "_$P(VAPA(5),U,2)_" "_VAPA(6)
  • Condition for execution: VAPA(4)'="" !,?14,VAPA(4) W:$P(VAPA(5),U,2)'=""
  • Line Location: OUT+15
Function Call: WRITE
  • Prompt: !!,"Referring Physician/Institution: "
  • Line Location: OUT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+21
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OUT+21
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+2
Routine Call
  • %ZIS
  • Line Location:
    • SRSWL3+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] OUT+19
^DPT - [#2] OUT+4
^SRO(133.8 - [#133.8] BEG+2, MORE+1, PRINT+2, OUT+10, OUT+16, OUT+17, OUT+18
^SRO(137.45 - [#137.45] BEG+2
^TMP("SR" END+1!
^UTILITY($J OUT+10!, OUT+11

Label References

Name Line Occurrences
END SRSWL3+3
HDR PAGE+1, PAGE+3
LOOP OUT+5
MORE BEG+2
PAGE BEG+2, PRINT+1
PRINT MORE+1

Naked Globals

Name Field # of Occurrence
^( OUT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % BEG+1
%ZIS SRSWL3+2!*
%ZIS("A" SRSWL3+2*
>> DFN PRINT+2*, OUT+4
>> DIWL OUT+10*
>> DIWR OUT+10*
DTIME END+2, PAGE+2
>> I OUT+10*
IO BEG+1
IO("Q" SRSWL3+2!, SRSWL3+3!
IOF END, END+2, HDR+2
IOP SRSWL3+2!
IOSL PRINT+1
IOST END, PAGE+2
>> LINE HDR+2*, OUT+21*
>> LOOP LOOP+1*
>> M OUT+5*, LOOP+1
MM OUT+5!, LOOP+1*
MMM OUT+5!, LOOP+1*
POP SRSWL3+2!
>> SRADT OUT*, OUT+7
>> SRCOM OUT+10*
>> SRDT PRINT+2*, OUT+6
>> SREFER OUT+17*, OUT+18
>> SRHALT HDR+1
>> SRHDR BEG+1*, HDR+2*, PAGE+1*
>> SROFN MORE+1*, PRINT+2, OUT+10, OUT+16, OUT+17, OUT+18
>> SROPER PRINT+2*, OUT+5*, LOOP+1*
SROPS OUT+5!
SROPS( LOOP+1*
SROPS(1 OUT+5*, OUT+6
SROPS(2 OUT+6
SRPHY OUT+17!
SRPHY("ADD" OUT+18*, OUT+20
SRPHY("CITY" OUT+18*, OUT+20
SRPHY("NAME" OUT+18*, OUT+20
SRPHY("PH" OUT+19*, OUT+20
SRPHY("STATE" OUT+19*, OUT+20
SRPHY("ZIP" OUT+19*, OUT+20
>> SRSDPT PRINT+2*, OUT+6
>> SRSDPT( OUT+4*
>> SRSDT BEG+2*, MORE+1, PRINT+2
>> SRSNM BEG+2*, HDR+2
>> SRSOUT BEG+1*, BEG+2, END*, END+2, HDR+1*, MORE+1, PRINT+1, PAGE+2*
>> SRSPH1 OUT+3*, OUT+4*, OUT+12
>> SRSPH2 OUT+4*, OUT+12
>> SRSS BEG+2*, MORE+1, PRINT+2, OUT+10, OUT+16, OUT+17, OUT+18
>> SRTIME BEG+1*, HDR+2
SRTN END+3!
>> SRW PRINT+2*, OUT, OUT+1
>> TEMPDT OUT+1*, OUT+8
U OUT+15
>> VA("PID" PRINT+2
>> VADM(1 PRINT+2
>> VAPA(1 OUT+15
>> VAPA(2 OUT+15
>> VAPA(3 OUT+15
>> VAPA(4 OUT+15
>> VAPA(5 OUT+15
>> VAPA(6 OUT+15
>> VAPA(8 OUT+3
>> X END+2*, OUT+10*, OUT+11*, OUT+18*, OUT+19, PAGE+2*
>> Y BEG+1*, PRINT+2*, OUT*, OUT+1*, OUT+19*
>> ZTDESC SRSWL3+3*
>> ZTQUEUED END+1, HDR+1
>> ZTREQ END+1*
>> ZTRTN SRSWL3+3*
>> ZTSTOP END+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All