Routine: SROERR2

Package	Total	Call Graph
Registration	1	DEM^VADPT
VA Fileman	1	D^DIQ

Package	Total	Caller Graph
Surgery	1	SROERR

Entry Points

Name	Comments	DBIA/ICR reference
PRINT	;
OPTM	; find begin and end times
LOOP	; break procedure if greater than J characters

Name	Field # of Occurrence
D^DIQ	SROERR2+5, OPTM+1, OPTM+2
DEM^VADPT	SROERR2+2

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Patient: "_SRNAME,?40,"ID#: "_VA("PID"),?65,"Age: "_SRAGE,!,"Ward: "_SRWARD,?40,"Case #"_SRTN_SRSTAT,! Line Location: PRINT+1
Function Call: WRITE	Prompt: "-" Line Location: PRINT+1
Function Call: WRITE	Prompt: !,"Ward: "_SRWARD,?40,"Case #"_SRTN_SRSTAT Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"Date of Procedure: "_SRSDATE Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"Time Procedure Began: "_SRSTART,?40,"Time Procedure Ended: "_SREND Line Location: PRINT+4
Function Call: WRITE	Prompt: !,"Non-O.R. Location: "_$P(^SC(SROR,0),"^") Line Location: PRINT+5
Function Call: WRITE	Prompt: !!,"Medical Specialty: "_SRSNM,!,"Provider: "_SROSUR,?40,"Attending: "_SROATT,!,"Preoperative Diagnosis: "_SRDIAG Line Location: PRINT+6
Function Call: WRITE	Prompt: !!,"Principal Procedure:",?22,SROPS(1) Line Location: PRINT+7
Function Call: WRITE	Prompt: !,?22,SROPS(2) Line Location: PRINT+7
Function Call: WRITE	Prompt: !,?22,SROPS(2) Line Location: PRINT+7
Function Call: WRITE	Prompt: !,?22,SROPS(2) Line Location: PRINT+7
Function Call: WRITE	Prompt: !,?22,SROPS(2) Line Location: PRINT+7
Function Call: WRITE	Prompt: !,?22,SROP(CNT) Line Location: PRINT+8
Function Call: WRITE	Prompt: !,^SRF(SRTN,5,X,0) Line Location: PRINT+9

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	SROERR2+2
^ECC(723	SROERR2+3
^SC - [#44]	PRINT+5
^SRF - [#130]	SROERR2+3, SROERR2+4, SROERR2+5, SROERR2+6, SROERR2+9, SROERR2+10, SROERR2+11, PRINT+4, PRINT+9, OPTM+1 , OPTM+2
^VA(200 - [#200]	SROERR2+8

Name	Line Occurrences
LOOP	SROERR2+7
OPTM	SROERR2+11

Name	Field # of Occurrence
>> CNT	SROERR2+6, PRINT+8
>> DFN	SROERR2+2*
>> I	PRINT+8, PRINT+9
IOF	PRINT+1
IOST	PRINT+1, PRINT+2
>> J	SROERR2+7*, LOOP+1
>> LINE	PRINT+1*
>> LOOP	LOOP+1*
>> M	SROERR2+7*, LOOP+1
MM	SROERR2+7!, LOOP+1*
MMM	SROERR2+7!, LOOP+1*
>> ORAGE	SROERR2+2
>> ORVP	SROERR2+2
>> SRAGE	SROERR2+2*, PRINT+1
>> SRDIAG	SROERR2+9*, PRINT+6
>> SREND	PRINT+4, OPTM+2*
>> SRFIND	OPTM+1, OPTM+2
>> SRNAME	SROERR2+2*, PRINT+1
>> SROATT	SROERR2+4, SROERR2+8, PRINT+6
SROP	SROERR2+6!
SROP(	SROERR2+6*, PRINT+8
SROP(0	PRINT+8
SROP(1	PRINT+8
>> SROPER	SROERR2+6, SROERR2+7, LOOP+1*
SROPS	SROERR2+7!
SROPS(	LOOP+1*
SROPS(1	SROERR2+7*, PRINT+7
SROPS(2	PRINT+7
SROPS(3	PRINT+7
SROPS(4	PRINT+7
SROPS(5	PRINT+7
>> SROR	SROERR2+5*, PRINT+5
>> SROSUR	SROERR2+4, SROERR2+8, PRINT+6
>> SRSDATE	SROERR2+5*, PRINT+3
>> SRSNM	SROERR2+3*, PRINT+6
>> SRSS	SROERR2+3*
>> SRSSN	SROERR2+2*
>> SRSTART	PRINT+4, OPTM+1*
>> SRSTAT	SROERR2+10*, PRINT+1, PRINT+2
>> SRTN	SROERR2+3, SROERR2+4, SROERR2+5, SROERR2+6, SROERR2+9, SROERR2+10, SROERR2+11, PRINT+1, PRINT+2, PRINT+4 , PRINT+9, OPTM+1, OPTM+2
>> SRWARD	SROERR2+2*, PRINT+1, PRINT+2
>> VA("PID"	SROERR2+2, PRINT+1
>> VADM(1	SROERR2+2
>> X	SROERR2+6, PRINT+9
>> Y	SROERR2+5, OPTM+1, OPTM+2*