Routine: SRSUPC

Information

SRSUPC ;B'HAM ISC/MAM - UPDATE CANCEL REASON & DATE; [ 01/31/01 8:59 AM ]

Package	Total	Call Graph
Surgery	3	^SROP1 ($$LOCK,UNLOCK)^SROUTL ^SRSKILL
VA Fileman	2	^DIC ^DIE
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	1	SRSUPC

Name	Comments	DBIA/ICR reference
OPT
CASE
END
LIST	;
OTHER	; other operations
PAT	;
LOOP	; break operation name if longer than 65 characters

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no cancelled cases for "_SRNAME_"." Line Location: PAT+4
Function Call: READ	Prompt: "Select Operation: " Formatting: !!! Timeout: DTIME Variable: OPT Line Location: OPT+0
Function Call: WRITE	Prompt: !!,"Enter the number of the desired operation" Line Location: OPT+1
Function Call: WRITE	Prompt: @IOF,!,VADM(1),?32,VA("PID"),?50,"Case # ",SROP,!!,SRSDATE Line Location: OPT+3
Function Call: WRITE	Prompt: !! Line Location: OPT+3
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_". "_$E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3) Line Location: LIST+6
Function Call: WRITE	Prompt: ?14,SROPS(1) Line Location: CASE+2
Function Call: WRITE	Prompt: !,?14,SROPS(2) Line Location: CASE+2
Function Call: WRITE	Prompt: !,?14,SROPS(2) Line Location: CASE+2
Function Call: WRITE	Prompt: !,?14,SROPS(4) Condition for execution: $D(SROPS(4)) Line Location: CASE+2
Function Call: WRITE	Prompt: !,?14,SROPS(5) Condition for execution: $D(SROPS(5)) Line Location: CASE+2
Routine Call	DIE Line Location: OPT+4
Routine Call	DIC Line Location: PAT+1

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	PAT+3, OPT+2, OTHER+1, OTHER+2, LIST+2, LIST+3, CASE
^SRF("B"	PAT+3

Name	Field # of Occurrence
^(30	LIST+2
^(31	LIST+3

Name	Field # of Occurrence
>> CNT	PAT+3, LIST+5, LIST+6
>> DA	OPT+4*
>> DFN	PAT+1*, PAT+3
DIC	PAT+1*!
DIC("A"	PAT+1*
DIC(0	PAT+1*
>> DIE	OPT+4*
>> DR	OPT+4*
DTIME	OPT, END
>> I	CASE*
IOF	PAT+1, OPT+3, END+1
>> LOOP	LOOP+1*
>> M	LOOP+1, CASE+1*
MM	LOOP+1*, CASE+1!
MMM	LOOP+1*, CASE+1!
>> OPT	OPT*, OPT+1, OPT+2, OPT+4
>> SRCAN	LIST+1, LIST+2, LIST+3*, LIST+4
>> SRCASE(	OPT+1, OPT+2, OPT+4, LIST+5*
>> SRCASE(1	PAT+4
>> SRLONG	OTHER+1*, OTHER+2
>> SRNAME	PAT+2*, PAT+4
SROP	PAT+3, OPT+2, OPT+3, OPT+4, END+1!, OTHER+1, OTHER+2, LIST+2, LIST+3, LIST+5 , CASE
>> SROPER	LOOP+1, OTHER+1, OTHER+3, CASE, CASE+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	CASE+1!
SROPS(	LOOP+1*
SROPS(1	CASE+1*, CASE+2
SROPS(2	CASE+2
SROPS(3	CASE+2
SROPS(4	CASE+2
SROPS(5	CASE+2
>> SROTHER	OTHER+1, OTHER+2, CASE
>> SRSDATE	PAT+3, OPT+2, OPT+3, LIST+6
SRTN	OPT!
>> VA("PID"	OPT+3
>> VADM(1	PAT+2, OPT+3
>> X	END*
>> Y	PAT+1