Routine: SROWL0

Information

SROWL0 ;B'HAM ISC/MAM - EDIT OR DELETE WAITING LIST ; 16 OCT 1989 08:00

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA FileMan	5	NOW^%DTC ^DIC ^DIE ^DIK D^DIQ
Surgery	2	WL^SROPCE1 ^SRSKILL

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Surgery	2	SROW-DELETE SROW-EDIT

Entry Points

Name	Comments	DBIA/ICR reference
DEL
EDIT
LIST
DIE
DIK	; delete entry
END
ARRAY	; set array containing waiting list info
LOOP	; break procedure if greater than 36 characters

External References

Name	Field # of Occurrence
NOW^%DTC	DIE+1
^DIC	EDIT+1
^DIE	DIE+2
^DIK	DIK+4
D^DIQ	ARRAY+2
WL^SROPCE1	DIE+2
^SRSKILL	END+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,! Line Location: EDIT+1
Function Call: WRITE	Prompt: @IOF,!,"Procedures entered on the Waiting List for "_SRSDPT,!! Line Location: LIST+0
Function Call: WRITE	Prompt: !!,"There are no entries on the Waiting List for "_SRSDPT_".",!! Line Location: LIST+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: LIST+4
Function Call: WRITE	Prompt: !!!,"Select Number: " Line Location: LIST+4
Function Call: READ	Variable: X Timeout: DTIME Line Location: LIST+5
Function Call: WRITE	Prompt: !!,"Select the number corresponding to the entry you want to "_$S(SRDEL:"delete",1:"edit")_". Enter '^'",!,"to quit this option.",!!,"Press RETURN to continue " Line Location: LIST+5
Function Call: READ	Variable: SRYN Timeout: DTIME Line Location: DIK+1
Function Call: WRITE	Prompt: !!,"Enter 'NO' if you have made a mistake and do not want to remove this",!,"procedure from the list, or 'YES' to delete the entry." Line Location: DIK+2
Function Call: WRITE	Prompt: !!,"No action taken." Line Location: DIK+3
Function Call: WRITE	Prompt: !!,SRSDPT_" has been removed from the Waiting List." Line Location: DIK+5
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: !,CNT_". "_SRSNM,?40,"Date Entered on List:",?66,SRDT,!,?3,SROP(1),?40,"Tentative Operation Date: ",?66,SROPDT Line Location: ARRAY+5
Function Call: WRITE	Prompt: !,?3,SROP(2) Line Location: ARRAY+6
Function Call: WRITE	Prompt: ! Line Location: ARRAY+7
Routine Call	DIC Line Location: EDIT+1
Routine Call	DIE Line Location: DIE+2

Name	Line Occurrences (* Changed, ! Killed)
^SRO(133.8 - [#133.8]	LIST+1, ARRAY+1, ARRAY+2
^SRO(137.45 - [#137.45]	ARRAY+1

Label References

Name	Line Occurrences
ARRAY	LIST+1
DIE	LIST+3, DIK+2
DIK	DIE
END	EDIT+1, LIST+2, LIST+4, DIE+3, DIK+1, DIK+3
LIST	LIST+5
LOOP	ARRAY+3

Naked Globals

Name	Field # of Occurrence
^(0	ARRAY+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DIE+1
>> CNT	LIST+1, ARRAY+1, ARRAY+4, ARRAY+5
DA	DIE+2!, DIK+4
DA(1	DIE+2, DIK+4
>> DFN	EDIT+1*, LIST+1
DIC	EDIT+1!*
DIC("A"	EDIT+1*
DIC(0	EDIT+1*
DIE	DIE+2!*
>> DIK	DIK+4*
DR	DIE+2!*
DR(2	DIE+2*
DTIME	LIST+4, LIST+5, DIK+1, END
>> I	LIST+1*
IOF	EDIT+1, LIST, END+1
>> LOOP	LOOP+1*
>> M	ARRAY+3*, LOOP+1
MM	ARRAY+3!, LOOP+1*
MMM	ARRAY+3!, LOOP+1*
>> SRDEL	DEL, EDIT, EDIT+1, LIST+5, DIE
>> SRDT	ARRAY+2*, ARRAY+4, ARRAY+5
>> SRNOW	DIE+1*
>> SROFN	LIST+1, DIE+1, DIE+2, ARRAY+2, ARRAY+4
SROP	ARRAY+3!
SROP(	LOOP+1*
SROP(1	ARRAY+3*, ARRAY+5
SROP(2	ARRAY+6
>> SROPDT	ARRAY+2*, ARRAY+4, ARRAY+5
>> SROPER	ARRAY+2, ARRAY+3, ARRAY+4, LOOP+1*
>> SRSDPT	EDIT+1*, LIST, LIST+2, DIK+5
>> SRSNM	ARRAY+1*, ARRAY+4, ARRAY+5
>> SRSOUT	EDIT+1, LIST+4, DIK+1*, END
>> SRSS	LIST+1, DIE+1, DIE+2, ARRAY+1, ARRAY+2, ARRAY+4
SRW	LIST+1!, LIST+3, LIST+6, DIE+1, DIK+4
SRW(	LIST+5, DIE+1, DIK+4, ARRAY+4*
SRW(1	LIST+2
SRW(2	LIST+3
>> SRYN	DIK+1, DIK+2, DIK+3
>> X	LIST+4, LIST+5, LIST+6, END*
>> Y	EDIT+1, ARRAY+2*
>> Y(0	EDIT+1

Customize PDF page

Package: Surgery