Routine: SROSCH1

Package	Total	Call Graph
Surgery	5	^SROSCH ^SROSCH2 ^SROSTOP ^SROVAR ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	(,DD)^%DT NOW^%DTC D^DIQ

Package	Total	Caller Graph
Surgery	2	SROSCH SROSCH2

Entry Points

Name	Comments	DBIA/ICR reference
ALL	; print to all locations ?
EN
END
HDR	; print heading
TIME	; start and finish times
ASK
OUT	; outpatient ?
DIQ	; extract time from date
LOOP	; break procedure if greater than 70 characters
CON	; print concurrent procedure

External References

Name	Field # of Occurrence
^%DT	EN+1
DD^%DT	HDR+4
NOW^%DTC	HDR+4
^%ZIS	EN+3
^%ZISC	END
^%ZTLOAD	EN+4
D^DIQ	EN+1, DIQ+1, DIQ+2, TIME+1, TIME+2
^SROSCH	EN+5
^SROSCH2	EN+2
^SROSTOP	HDR+1
^SROVAR	EN
^SRSKILL	END

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: EN+2
Function Call: WRITE	Prompt: !!,"Schedule will be queued to print at all locations defined in the SURGERY",!,"SITE PARAMETERS file...." Line Location: EN+2
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: EN+2
Function Call: WRITE	Prompt: !!,"This report is designed to use a 132 column format.",! Line Location: EN+3
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: READ	Timeout: DTIME Variable: Z Line Location: ASK+0
Function Call: WRITE	Prompt: !!,?1,"OPERATING ROOM: "_SROOM,! Line Location: ASK+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(132-$L(SRINST)\2),SRINST,?123,$J("PAGE "_SRPAGE,8) Line Location: HDR+2
Function Call: WRITE	Prompt: !,?58,"SURGICAL SERVICE",!,?55,"SCHEDULE OF OPERATIONS",?90,"SIGNATURE OF CHIEF: ",SRCHF,! Line Location: HDR+3
Function Call: WRITE	Prompt: "PRINTED: ",$P(Y,"@")_" "_$E($P(Y,"@",2),1,5),?58,"FOR: ",SRDT1,?110,"____________________" Line Location: HDR+4
Function Call: WRITE	Prompt: !!!,"PATIENT",?23,"DISPOSITION",?40,"PREOPERATIVE DIAGNOSIS",?92,"REQ ANESTHESIA" Line Location: HDR+5
Function Call: WRITE	Prompt: ?116,"SURGEON",!,"ID#",?15,"AGE",?23,"START TIME",?40,"OPERATION(S)",?92,"ANESTHESIOLOGIST",?115,"FIRST ASST.",!,"WARD",?24,"END TIME",?92,"PRIN. ANESTHETIST",?115,"ATT SURGEON",! Line Location: HDR+6
Function Call: WRITE	Prompt: "=" Line Location: HDR+6
Function Call: WRITE	Prompt: !,?26,"** Concurrent Case #"_SRCON,?53,SROPS(1) Line Location: CON+2
Function Call: WRITE	Prompt: !,?53,SROPS(2) Line Location: CON+2
Function Call: WRITE	Prompt: !,?53,SROPS(2) Line Location: CON+2
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ALL+2
Function Call: WRITE	Prompt: !!,"Enter RETURN to select a specific printer, or 'YES' to print the Schedule of",!,"Operations on all of the printers specified in your SURGERY SITE",!,"PARAMETERS file." Line Location: ALL+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: ALL+5
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: ALL+5
Routine Call	%ZIS Line Location: EN+3

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	CON+1, TIME+1, OUT+1, OUT+2
^SRO(133 - [#133]	ALL+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HDR+4
%DT	EN+1*!
%DT("A"	EN+1*
%ZIS	EN+3!*
%ZIS("A"	EN+3*
DTIME	EN+2, ASK, ALL+2, ALL+5
IO("Q"	EN+3!, EN+4!
IOF	EN, EN+1, END, HDR+2, ALL+2
IOP	EN+3!
IOST	ASK
>> LINE	HDR+6*
>> LOOP	LOOP+1*
>> M	LOOP+1, CON+1*
MM	LOOP+1*, CON+1!
MMM	LOOP+1*, CON+1!
POP	EN+3!
>> S(31	TIME+1*, TIME+2
>> SRCHF	HDR+3
>> SRCON	CON+1, CON+2
>> SRDT	EN+1*
>> SRDT1	EN+1*, HDR+4
>> SRET	DIQ+2*
>> SRFIND	DIQ+1, DIQ+2, TIME+1, TIME+2
>> SRHALT	HDR+1
>> SRINST	HDR+2
>> SROOM	ASK+1
>> SROPER	LOOP+1, CON+1
SROPS	CON+1!
SROPS(	LOOP+1*
SROPS(1	CON+1*, CON+2
SROPS(2	CON+2
SROPS(3	CON+2
>> SRPAGE	HDR+2, HDR+7*
>> SRQ	ASK, HDR+1
>> SRSET	TIME+2*
>> SRSITE	EN, ALL+1
>> SRSLOC	OUT+1, OUT+2
>> SRSST	TIME+1*
>> SRST	DIQ+1*
>> SRTN	TIME+1, OUT+1, OUT+2
>> SRYN	EN+2, ALL+1, ALL+2, ALL+3*, ALL+4, ALL+5
>> SX	ASK+1
>> X	EN+2, ALL+5
>> Y	EN+1, HDR+4, DIQ+1, DIQ+2, TIME+1, TIME+2*
>> Z	ASK*
>> ZTDESC	EN+4*
>> ZTQUEUED	HDR+1
>> ZTRTN	EN+4*
>> ZTSAVE("SRDT"	EN+4*
>> ZTSAVE("SRDT1"	EN+4*
>> ZTSAVE("SRSITE*"	EN+4*

Customize PDF page

Package: Surgery

Routine: SROSCH1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: