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

Package: Surgery

Routine: SRSWL2

Information

SRSWL2 ;B'HAM ISC/MAM - WAITING LIST, BRIEF-ONE SPECIALTY ; 17 OCT 1989 7:35 AM

Source Information

Source file <SRSWL2.m>

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

Caller Graph Total: 1

Package	Total	Caller Graph
Surgery	1	SRSWLST

Entry Points

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

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SRSWL2+2
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: READ	Timeout: DTIME Variable: X 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,!!,"Date Entered",?15,"Patient",?40,"Operative Procedure",! Line Location: HDR+2
Function Call: WRITE	Prompt: "=" Line Location: HDR+2
Function Call: WRITE	Prompt: !,SRDT,?15,SRSDPT,?40,SROP(1),!,"Tentative Admission: "_SRADT Line Location: PRINT+7
Function Call: WRITE	Prompt: ?40,SROP(2) Line Location: PRINT+7
Function Call: WRITE	Prompt: !,"Tentative Date of Operation: "_SROPDT Line Location: PRINT+8
Function Call: WRITE	Prompt: !,"* Procedure performed since entry on the list ("_SROLD("DATE")_")" Line Location: PRINT+9
Function Call: WRITE	Prompt: ! Line Location: PRINT+10
Function Call: WRITE	Prompt: "-" Line Location: PRINT+10
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAGE+1
Routine Call	%ZIS Line Location: SRSWL2+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	SRSWL2+3
HDR	BEG+1, PAGE+2
LOOP	PRINT+6
PAGE	PRINT+1
PRINT	BEG+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BEG+1
%ZIS	SRSWL2+2!*
%ZIS("A"	SRSWL2+2*
>> DFN	PRINT+2*
DTIME	END+2, PAGE+1
IO	BEG+1
IO("Q"	SRSWL2+2!, SRSWL2+3!
IOF	END, END+2, HDR+2
IOP	SRSWL2+2!
IOSL	PRINT+1
IOST	END, PAGE+1
>> LINE	HDR+2, PRINT+10
>> LOOP	LOOP+1*
>> M	PRINT+6*, LOOP+1
MM	PRINT+6!, LOOP+1*
MMM	PRINT+6!, LOOP+1*
POP	SRSWL2+2!
>> SRADT	PRINT+3*, PRINT+7
>> SRDT	PRINT+2*, PRINT+7
>> SRHALT	HDR+1
>> SROFN	BEG+2*, PRINT+2
>> SROLD	PRINT+9*
>> SROLD("DATE"	PRINT+9
SROP	PRINT+6!
SROP(	LOOP+1*
SROP(1	PRINT+6*, PRINT+7
SROP(2	PRINT+7
>> SROPDT	PRINT+4*, PRINT+8
>> SROPER	PRINT+2, PRINT+6, LOOP+1*
>> SRSDPT	PRINT+2, PRINT+5, PRINT+7
>> 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*, PRINT+3, PRINT+4
>> VADM(1	PRINT+2
>> X	END+2, PAGE+1
>> Y	BEG+1, PRINT+2, PRINT+3, PRINT+4
>> ZTDESC	SRSWL2+3*
>> ZTQUEUED	END+1, HDR+1
>> ZTREQ	END+1*
>> ZTRTN	SRSWL2+3*
>> ZTSAVE("SRSNM"	SRSWL2+3*
>> ZTSAVE("SRSS"	SRSWL2+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