Routine: SRSCHD1

Information

SRSCHD1 ;B'HAM ISC/MAM - SCHEDULE REQUESTED OPERATIONS (CONT) ; [ 01/31/01 7:52 AM ]

Package	Total	Call Graph
Surgery	5	($$LOCK,UNLOCK)^SROUTL ^SRSCHD2 ^SRSCHK ^SRSKILL ASK^SRSUPRQ
Registration	1	DEM^VADPT
VA Fileman	1	D^DIQ

Package	Total	Caller Graph
Surgery	1	SRSCHD1

Name	Comments	DBIA/ICR reference
SEL
REQ	; select request
END	;
LOOP	; break procedure if greater than 75 characters
UN

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: REQ+2
Function Call: WRITE	Prompt: !!,"The records show that "_SRNM_" died on "_Y_".",!!,"Press RETURN to continue " Line Location: REQ+2
Function Call: WRITE	Prompt: !!!,"Case Information: ",!,SROPS(1) Line Location: UN+3
Function Call: WRITE	Prompt: !,SROPS(2) Line Location: UN+3
Function Call: WRITE	Prompt: !,SROPS(2) Line Location: UN+3
Function Call: WRITE	Prompt: !,"By " Line Location: UN+4
Function Call: WRITE	Prompt: USER Line Location: UN+4
Function Call: WRITE	Prompt: USER Line Location: UN+4
Function Call: WRITE	Prompt: ?40,"For "_HOURS_" Hours" Line Location: UN+5
Function Call: WRITE	Prompt: !,$S($D(SRSTYP):SRSTYP,1:""),?40,$P(^SRF(SRTN,0),"^",11) Line Location: UN+7
Function Call: WRITE	Prompt: !,^SRF(SRTN,5,COMMENT,0) Line Location: UN+8
Function Call: WRITE	Prompt: !!," * Concurrent Case # "_SRCON_" "_$P(^SRF(SRCON,"OP"),"^") Line Location: UN+9
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: SEL+0
Function Call: WRITE	Prompt: !!,"Enter 'NO' if you have selected the wrong request, or RETURN to continue",!,"scheduling this request. ",! Line Location: SEL+1
Function Call: WRITE	Prompt: @IOF Line Location: END+1

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	REQ+2
^SRF - [#130]	UN, UN+1, UN+5, UN+6, UN+7, UN+8, UN+9
^VA(200 - [#200]	UN+4

Name	Field # of Occurrence
^(	REQ+2
^("CON"	UN+9

Name	Field # of Occurrence
>> COMMENT	UN+8*
>> DFN	UN*
DTIME	REQ+2, SEL
>> HOURS	UN+5*
IOF	END+1
>> LOOP	LOOP+1*
>> M	UN+2*, LOOP+1
MM	UN+2!, LOOP+1*
MMM	UN+2!, LOOP+1*
NOWAY	SEL+3!
SRCASE	REQ+1!
>> SRCON	UN+9*
>> SRDFN	REQ+2, UN
>> SRNM	REQ+2
>> SROPER	UN+2, LOOP+1
SROPS	UN+2!
SROPS(	LOOP+1*
SROPS(1	UN+2*, UN+3
SROPS(2	UN+3
SROPS(3	UN+3
>> SRSCHED	REQ+1*
>> SRSDOC	UN+1*, UN+4
>> SRSOP	UN*, UN+2
>> SRSTYP	UN+6*, UN+7
SRTN	REQ+1!, UN, UN+1, UN+4, UN+5, UN+6, UN+7, UN+8, UN+9, SEL+4 , END+1!
>> SRYN	SEL*, SEL+1, SEL+2
>> USER	UN+4*
>> VADM(1	UN+4
>> X	REQ+2*
>> Y	REQ+2*
>> Z	UN+6*