Routine: SROSUR

Information

SROSUR ;B'HAM ISC/MAM - SURGEON STAFFING REPORT ; [ 07/27/98 2:33 PM ]

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Surgery	4	^SROSTOP OTHER^SROSUR1 ($$DIV,$$NODATA)^SROUTL0 ^SRSKILL
Kernel	1	^%ZISC
Registration	1	DEM^VADPT
VA FileMan	1	D^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Surgery	2	SROSUR1 SROSUR2

Entry Points

Name	Comments	DBIA/ICR reference
SET	; set variables and print from ^SRF(
OPS
SETUP	; set up ^TMP(
ASK
END
OTHER	; other operations
LOOP	; break procedure if greater than 50 characters
ASSTS	;
NAME
ROLE
HDR	; print heading
EN1	;
PRINT	; print from ^TMP(
PRIN2

Name	Field # of Occurrence
^%ZISC	END
D^DIQ	SET+1
^SROSTOP	HDR+1
OTHER^SROSUR1	SETUP+4
$$DIV^SROUTL0	EN1+3
$$NODATA^SROUTL0	PRINT+2
^SRSKILL	END
DEM^VADPT	SET+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,DATE,?23,PAT,?43,SROPS(1),?95,$E(ICD("*"),1,35) Line Location: OPS+6
Function Call: WRITE	Prompt: !,SRTN,?23,SSN Line Location: OPS+7
Function Call: WRITE	Prompt: ?43,SROPS(2) Condition for execution: $D(SROPS(2)) Line Location: OPS+7
Function Call: WRITE	Prompt: ?95,$E(ICD(ICD),1,35) Condition for execution: ICD Line Location: OPS+7
Function Call: WRITE	Prompt: !,?43,SROPS(3) Line Location: OPS+7
Function Call: WRITE	Prompt: !,?43,SROPS(3) Line Location: OPS+7
Function Call: WRITE	Prompt: !,?43,SROPS(4) Condition for execution: $D(SROPS(4)) Line Location: OPS+9
Function Call: WRITE	Prompt: !,?43,SROPS(5) Condition for execution: $D(SROPS(5)) Line Location: OPS+9
Function Call: WRITE	Prompt: !,?43,SROPS(6) Condition for execution: $D(SROPS(6)) Line Location: OPS+9
Function Call: WRITE	Prompt: ! Line Location: OPS+9
Function Call: READ	Variable: X Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: ! Line Location: NAME+0
Function Call: WRITE	Prompt: "-" Line Location: NAME+0
Function Call: WRITE	Prompt: !!,?50," "_J_" " Line Location: NAME+1
Function Call: WRITE	Prompt: !!,?50,"ROLE: " Line Location: ROLE+1
Function Call: WRITE	Prompt: $S(K="1ST":"FIRST ASSISTANT",K="2ND":"SECOND ASSISTANT",K="ATT":"ATTENDING SURGEON",K="OTH":"OTHER ASSISTANT",1:"SURGEON"),! Line Location: ROLE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE: "_PAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?54,"SURGEON STAFFING REPORT",?100,"DATE REVIEWED: " Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT Line Location: HDR+3
Function Call: WRITE	Prompt: !!,?1,"DATE/TIME",?23,"PATIENT",?43,"OPERATION(S)",?95,"DIAGNOSIS",!,?1,"CASE #",?23,"ID #",! Line Location: HDR+4
Function Call: WRITE	Prompt: "=" Line Location: HDR+4
Function Call: WRITE	Prompt: $$NODATA^SROUTL0() Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: PRINT+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN1+1
^SRF - [#130]	SET+1, OPS, OPS+2, OPS+4, SETUP+1, SETUP+2, SETUP+3, SETUP+4, OTHER+1, OTHER+2 , ASSTS+1, EN1+3
^SRF("AC"	EN1+3
^TMP("SRO"	SETUP+3, SETUP+5, ASSTS+1*, EN1+2!, PRINT+1, PRINT+2, PRINT+3!, PRIN2
^VA(200 - [#200]	SETUP+3, SETUP+5, ASSTS+1

Label References

Name	Line Occurrences
ASK	OPS+5, ROLE
END	PRINT+5
HDR	ASK+1, EN1+2
LOOP	OPS+1
NAME	HDR+5, PRINT+1
OTHER	OPS
PRIN2	PRINT+1
ROLE	HDR+5, PRINT+1
SET	PRIN2
SETUP	EN1+3

Naked Globals

Name	Field # of Occurrence
^(	OPS+2, SETUP+2, SETUP+3
^(31	SETUP+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ATT	SETUP+3*, SETUP+5
>> CNT	OPS+4*
CPT	SET+1!, OPS+6*, OPS+8
>> DATE	SET+1, OPS+6, SETUP+3, SETUP+5, ASSTS+1
>> DFN	SET+1*
DT	EN1+1
DTIME	ASK, PRINT+4
>> FRST	SETUP+3*, SETUP+5
>> I	OPS+4*
ICD	SET+1!, OPS+4, OPS+6, OPS+7*, OPS+8
ICD(	OPS+4*, OPS+7, OPS+8
ICD("*"	OPS+4*, OPS+6
IO	EN1+1
IOF	END, HDR+2, PRINT+3
IOM	NAME
IOSL	OPS+5, ROLE
IOST	ASK, PRINT+3, PRINT+4
J	NAME+1, HDR+5, EN1+2!, EN1+3, PRINT+1*, PRIN2
>> K	ROLE+1, PRINT+1*, PRIN2
>> L	SET+1, SETUP+3, SETUP+5, EN1+3, PRINT+1, PRIN2
>> LINE	NAME, HDR+4
>> LOOP	LOOP+1*
>> M	SET+1, PRIN2*
>> MAM	OPS+1*, LOOP+1
MM	OPS+1!, LOOP+1*
MMM	OPS+1!, LOOP+1*
>> OPER	OPS, OTHER+1, OTHER+2
>> PAGE	HDR+2, HDR+5, EN1+2
>> PAT	SET+1, SET+2, OPS+6
>> S(	SETUP+3*
>> S(0	SET+1*
>> SCND	SETUP+3*, SETUP+5
>> SRDG	OPS+2, OPS+3, OPS+4
>> SRDG1	OPS+2, OPS+3, OPS+4
>> SRED	EN1+1, EN1+3
>> SRF	OPS+6, ASK, ROLE+1, HDR+1, EN1+2*, PRINT+1, PRINT+4, PRIN2
SRFRTO	HDR+3, EN1+1~*
>> SRHALT	HDR+1
>> SRINST	HDR+2
>> SRLONG	OTHER+1*, OTHER+2
>> SROPER	OPS, OPS+1, OTHER+1, OTHER+3, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	OPS+1!
SROPS(	LOOP+1*
SROPS(1	OPS+1*, OPS+6
SROPS(2	OPS+7
SROPS(3	OPS+7
SROPS(4	OPS+9
SROPS(5	OPS+9
SROPS(6	OPS+9
>> SROSUR	ASSTS+1
>> SROTH	ASSTS+1*
>> SROTHER	ASSTS+1*
>> SRPRINT	HDR+3, EN1+1*
>> SRSD	EN1+1, EN1+2
SRTN	SET+1, OPS, OPS+2, OPS+4, OPS+7, SETUP+1, SETUP+2, SETUP+3, SETUP+4, END! , OTHER+1, OTHER+2, ASSTS+1, EN1+3, PRIN2*
>> SRUL	ASK, NAME, NAME+1, EN1+2*
>> SSN	SET+1*, OPS+7
>> SUR	SETUP+3*
>> VA("PID"	SET+1
>> VADM(1	SET+1
>> X	ASK, PRINT+4
>> Y	SET+1, EN1+1
>> ZTQUEUED	HDR+1, PRINT+3
>> ZTREQ	PRINT+3*
>> ZTSTOP	PRINT+3

Customize PDF page

Package: Surgery