Routine: SROSUR2

Information

SROSUR2 ;B'HAM ISC/MAM - SURGEON'S REPORT FOR ONE ; [ 07/27/98 2:33 PM ]

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Surgery	4	^SROSTOP ASSTS^SROSUR ($$DIV,$$NODATA)^SROUTL0 ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	2	^DIC D^DIQ
Registration	1	DEM^VADPT

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: 1

Package	Total	Caller Graph
Surgery	1	SROSUR1

Entry Points

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

Name	Field # of Occurrence
^%ZIS	SROSUR2+3
^%ZISC	END
^%ZTLOAD	SROSUR2+4
^DIC	SROSUR2+2
D^DIQ	SET+1
^SROSTOP	HDR+1
ASSTS^SROSUR	SETUP+5
$$DIV^SROUTL0	BEG+3
$$NODATA^SROUTL0	PRINT+2
^SRSKILL	END
DEM^VADPT	SET+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SROSUR2+2
Function Call: WRITE	Prompt: !!,"This report is designed to use a 132 column format.",! Line Location: SROSUR2+3
Function Call: WRITE	Prompt: $$NODATA^SROUTL0() Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: PRINT+4
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: ! Line Location: NAME+0
Function Call: WRITE	Prompt: "-" Line Location: NAME+0
Function Call: WRITE	Prompt: !!," "_J_" " Line Location: NAME+1
Function Call: WRITE	Prompt: !!,?5,"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: !,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
Routine Call	%ZIS Line Location: SROSUR2+3
Routine Call	DIC Line Location: SROSUR2+2

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	SROSUR2+3!*
%ZIS("A"	SROSUR2+3*
>> ATT	SETUP+3*, SETUP+4
>> CNT	OPS+4*
CPT	SET+1!, OPS+6*, OPS+8
>> DATE	SETUP+3, SETUP+4, SET+1, OPS+6
>> DFN	SET+1*
DIC	SROSUR2+2!*
DIC("A"	SROSUR2+2*
DIC(0	SROSUR2+2*
DT	BEG+1
DTIME	PRINT+4, ASK
>> FRST	SETUP+3*, SETUP+4
>> I	OPS, 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	BEG+1
IO("Q"	SROSUR2+3!, SROSUR2+4!
IOF	PRINT+3, END, HDR+2
IOM	NAME
IOP	SROSUR2+3!
IOSL	ROLE, OPS+5
IOST	PRINT+3, PRINT+4, ASK
J	BEG+2!, BEG+3, PRINT+1*, NAME+1, HDR+5, PRIN2
>> K	PRINT+1*, ROLE+1, PRIN2
>> L	PRINT+1*, PRIN2, SET+1
>> LINE	NAME, HDR+4
>> LOOP	LOOP+1*
>> M	OPS+1*, LOOP+1
>> MM	LOOP+1*
MMM	OPS+1!, LOOP+1*
>> OPER	OTHER+1, OTHER+2, OPS
>> PAGE	BEG+2, HDR+2, HDR+5
>> PAT	SET+1, SET+2, OPS+6
POP	SROSUR2+3!
>> S(	SETUP+3*
>> S(0	SET+1*
>> SCND	SETUP+3*, SETUP+4
>> SRDG	OPS+2, OPS+3, OPS+4
>> SRDG1	OPS+2, OPS+3, OPS+4
>> SRED	BEG+1, BEG+3
>> SRF	BEG+2, PRINT+1, PRINT+4, ASK, ROLE+1, HDR+1*, PRIN2, OPS+6
SRFRTO	BEG+1~*, HDR+3
>> SRHALT	HDR+1
>> SRINST	HDR+2
>> SRLONG	OTHER+1*, OTHER+2
>> SROPER	OTHER+1, OTHER+3, OPS, OPS+1, 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	SROSUR2+2*, SETUP+3, SETUP+4
>> SRPRINT	BEG+1*, HDR+3
>> SRSD	BEG+1, BEG+2
SRTN	BEG+2, BEG+3, END!, OTHER+1, OTHER+2, SETUP+1, SETUP+2, SETUP+3, SETUP+4, SETUP+5 , PRIN2*, SET+1, OPS, OPS+2, OPS+4, OPS+7
>> SRUL	BEG+2, ASK, NAME, NAME+1*
>> SSN	SET+1*, OPS+7
>> SUR	SETUP+3*
>> VA("PID"	SET+1
>> VADM(1	SET+1
>> X	PRINT+4, ASK
>> Y	SROSUR2+2, BEG+1, SET+1
>> ZTDESC	SROSUR2+4*
>> ZTQUEUED	PRINT+3, HDR+1
>> ZTREQ	PRINT+3*
>> ZTRTN	SROSUR2+4*
>> ZTSAVE("SRED"	SROSUR2+4*
>> ZTSAVE("SRINST"	SROSUR2+4*
>> ZTSAVE("SROSUR"	SROSUR2+4*
>> ZTSAVE("SRSD"	SROSUR2+4*
>> ZTSAVE("SRSITE*"	SROSUR2+4*
>> ZTSTOP	PRINT+3

Customize PDF page

Package: Surgery