Routine: SRORHRS0

Package	Total	Call Graph
Surgery	2	HDR^SRORHRS $$ORDIV^SROUTL0
VA Fileman	2	^%DTC D^DIQ

Package

Total

Call Graph

HDR^SRORHRS $$ORDIV^SROUTL0

^%DTC D^DIQ

Package	Total	Caller Graph
Surgery	1	SRORHRS

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
SET	; set ^TMP("SR",$J)
MIN	; minutes between two times
TIMES	; put hrs and mins in readable format
DATE
PRINT	;
OR

Name	Line Occurrences
Function Call: WRITE	Prompt: $S(SROR="ALL":SRNM,1:SRDT) Line Location: PRINT+4
Function Call: WRITE	Prompt: ?33," INACTIVE ",! Line Location: PRINT+4
Function Call: WRITE	Prompt: ?22,SRST,?37,SRET,?59,TIME,! Line Location: PRINT+5
Function Call: WRITE	Prompt: !,?31," "_SRDT_" ",!! Line Location: DATE+1

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	SET+1
^SRS - [#131.7]	SET+1
^SRU - [#131.8]	SRORHRS0+3, OR, OR+1, SET+2, SET+3, SET+4
^TMP("SR"	SRORHRS0+2!, SRORHRS0+4, SET+6*, PRINT+2

Name	Field # of Occurrence
>> HOUR	PRINT+3*, TIMES+1, TIMES+2
IO	SRORHRS0+2
IOSL	PRINT+1, DATE
>> MIN	PRINT+3*, TIMES+1, TIMES+2, TIMES+3
>> SRACT	SET+4, SET+6, PRINT+2, PRINT+4, PRINT+5
>> SRDT	SRORHRS0+4*, PRINT+4, DATE+1
>> SRED	SRORHRS0+3
>> SRET	SET+3, SET+6, PRINT+2, PRINT+5
>> SRFIND	SET+2, SET+3
>> SRHDR	SRORHRS0+2*
>> SRINST	SRORHRS0+2*
>> SRNM	SET+1, SET+6, PRINT+2, PRINT+4
>> SROOM	SRORHRS0+4, OR, OR+1*, SET+1, SET+2, SET+3, SET+4, SET+6, PRINT+2
>> SROR	SRORHRS0+4, OR, OR+1, PRINT+4
>> SRPAGE	SRORHRS0+2*
>> SRSD	SRORHRS0+2
>> SRSD1	SRORHRS0+2, SRORHRS0+3, SRORHRS0+4*, OR, OR+1, SET+2, SET+3, SET+4, SET+6, PRINT+2
>> SRSITE("DIV"	OR
>> SRSITE("SITE"	SRORHRS0+2
>> SRSOUT	SRORHRS0+2*, SRORHRS0+3, SRORHRS0+4, OR, PRINT+1
>> SRST	SET+2, SET+6, PRINT+2, PRINT+5
>> SRT	SET+2, SET+4, SET+5
>> SRT1	SET+3, SET+4, SET+5
>> SRTIME	SET+5, SET+6, PRINT+2, PRINT+3
>> SRUTL	PRINT+2*
>> TIME	PRINT+5, TIMES+1, TIMES+2, TIMES+3, TIMES+4
U	OR
>> X	SET+5, MIN+1
>> X1	SET+5*, MIN+1
>> X2	MIN+1*
>> Y	SRORHRS0+4, SET+2, SET+3, MIN+1

Information