Routine: SRORHRS

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Surgery	3	^SRORHRS0 ^SROSTOP ^SRSKILL
VA Fileman	2	^%DT ^DIC

Package	Total	Caller Graph
Surgery	2	SR OR HOURS SRORHRS0

Entry Points

Name	Comments	DBIA/ICR reference
EN	; entry when queued
END
HDR	; print heading
ROOMS	; all operating rooms ?
DATE
ZIS

External References

Name	Field # of Occurrence
^%DT	DATE, DATE+2
^%ZIS	ZIS
^%ZISC	END+2
^%ZTLOAD	ZIS+1
^DIC	ROOMS+5
^SRORHRS0	EN+2
^SROSTOP	HDR+1
^SRSKILL	END+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Operating Room Normal Working Hours Report",! Line Location: SRORHRS+2
Function Call: WRITE	Prompt: ! Line Location: DATE+0
Function Call: WRITE	Prompt: ! Line Location: DATE+2
Function Call: WRITE	Prompt: !!,"The ending date must be more recent than the starting date." Line Location: DATE+3
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ROOMS+1
Function Call: WRITE	Prompt: @IOF,!,"Do you want to print the Operating Room Normal Working Hours Report for all",!,"operating rooms ? YES// " Line Location: ROOMS+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: ROOMS+3
Function Call: WRITE	Prompt: !!,"Enter RETURN if you want to print the normal working hours for every operating",!,"room, or 'NO' to print the report for one particular room.",!!,"Press RETURN to continue " Line Location: ROOMS+3
Function Call: WRITE	Prompt: ! Line Location: ROOMS+5
Function Call: WRITE	Prompt: ! Line Location: ZIS+0
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: HDR+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+3
Function Call: WRITE	Prompt: ?(80-$L(SRINST)\2),SRINST,?76,"PAGE",!,?31,"SURGICAL SERVICE",?78,SRPAGE,! Condition for execution: $E(IOST)="P" Line Location: HDR+3
Function Call: WRITE	Prompt: ?22,"OPERATING ROOM NORMAL WORKING HOURS" Line Location: HDR+3
Function Call: WRITE	Prompt: !,?(80-$L(SRFRTO)\2),SRFRTO Line Location: HDR+4
Function Call: WRITE	Prompt: !!,$S(SROR="ALL":"OPERATING ROOM",1:"DATE"),?20,"START TIME",?35,"END TIME",?62,"TOTAL TIME",! Line Location: HDR+5
Function Call: WRITE	Prompt: "-" Line Location: HDR+5
Function Call: WRITE	Prompt: !,?31," "_SRDT_" ",!! Line Location: HDR+6
Function Call: WRITE	Prompt: !,?(80-$L(" OPERATING ROOM: "_$P(^SC($P(^SRS(SROR,0),"^"),0),"^")_" ")\2)," OPERATING ROOM: "_$P(^SC($P(^SRS(SROR,0),"^"),0),"^")_" ",!! Line Location: HDR+7
Routine Call	DIC Line Location: ROOMS+5
Routine Call	%ZIS Line Location: ZIS

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+1
^SC - [#44]	HDR+7
^SRS - [#131.7]	HDR+7
^TMP("SR"	END+1!

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE!, DATE+2!
%DT("A"	DATE, DATE+2
%ZIS	ZIS!*
%ZIS("A"	ZIS*
DIC	ROOMS+5!*
DIC("A"	ROOMS+5*
DIC("S"	ROOMS+5*
DIC(0	ROOMS+5*
DTIME	ROOMS+1, ROOMS+3, END, HDR+2
IO("Q"	ZIS!, ZIS+1!
IOF	SRORHRS+2, ROOMS+1, END+1, END+2, HDR+3
IOP	ZIS!
IOST	END, END+1, HDR+2, HDR+3
>> LINE	HDR+5*
POP	ZIS!
>> SRDT	HDR+6
>> SRED	DATE+4*, EN+1
SRFRTO	EN+1~*, HDR+4
>> SRHALT	HDR+1
>> SRHDR	HDR+2, HDR+6, HDR+8*
>> SRINST	HDR+3
>> SROR	ROOMS+1, ROOMS+6, HDR+5, HDR+6, HDR+7
>> SRPAGE	HDR+3, HDR+8*
>> SRSD	DATE+1*, DATE+3, EN+1
>> SRSOUT	SRORHRS+2, DATE, DATE+2, ROOMS+1, ROOMS+5, END, HDR+1, HDR+2*
>> SRYN	ROOMS+1, ROOMS+2, ROOMS+3, ROOMS+4
>> X	ROOMS+3, END, HDR+2*
>> Y	DATE, DATE+1, DATE+2, DATE+3, DATE+4, ROOMS+5, ROOMS+6, EN+1*
>> ZTDESC	ZIS+1*
>> ZTQUEUED	END+1, HDR+1
>> ZTREQ	END+1*
>> ZTRTN	ZIS+1*
>> ZTSAVE("SRED"	ZIS+1*
>> ZTSAVE("SROR"	ZIS+1*
>> ZTSAVE("SRSD"	ZIS+1*
>> ZTSAVE("SRSITE*"	ZIS+1*
>> ZTSTOP	END+1

Customize PDF page

Package: Surgery

Routine: SRORHRS

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
DATE	DATE+3
END	DATE, DATE+2, ROOMS+1, ROOMS+5, ZIS, ZIS+1
ROOMS	ROOMS+3
ZIS	ROOMS+4