Routine: SROINQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"OPERATION NOT SELECTED !",! Line Location: SROINQ+5
Function Call: WRITE	Prompt: @IOF,!,SRLINE,!,"Patient: "_SRTNM,?50,"Operation Date: "_$P(SRSDATE,"@"),!,"Surgeon: "_SRSUR,?50,"Major/Minor: "_SRTMAJ Line Location: PRINT+1
Function Call: WRITE	Prompt: !,"Attending Surgeon: "_SRATT,?50,"Operation Time: "_SRTIME Line Location: PRINT+2
Function Call: WRITE	Prompt: " Minutes",!,"Attending Code: "_SRATCD,!,SRLINE Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"Operation(s): ",!,SROPS(1) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,SROPS(2) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,SROPS(2) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,SROPS(2) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,SROPS(2) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?4,SRICD(I) Line Location: PRINT+4
Function Call: WRITE	Prompt: !,SRLINE,!,"Anesthesia Technique: ",?47,"Anesthetist: ",SRANE Line Location: PRINT+5
Function Call: WRITE	Prompt: Y Condition for execution: Y]"" Line Location: PRINT+5
Function Call: WRITE	Prompt: !,SRLINE,!,"Wound Classification: ",SRTCC,!,"Intraoperative Blood Loss: ",SRTBL,$S(SRTBL]"":" CC'S",1:""),!,SRLINE Line Location: PRINT+6
Function Call: WRITE	Prompt: !!!,"Press RETURN to continue " Line Location: PRINT+7
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: !,?6,SRANE(I,T) Line Location: AGT+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(130	SROINQ+10, SROINQ+12
^DD(130.06	PRINT+5
^SRF - [#130]	SROINQ+6, SROINQ+8, SROINQ+10, SROINQ+12, SROINQ+16, SROINQ+17, ANES, TIME, OPS, ICD9+1 , OTHER+1, OTHER+2, AGENT+1
^SRO(137.45 - [#137.45]	SROINQ+9
^TMP($J	AGENT+2!
^VA(200 - [#200]	SROINQ+10, SROINQ+11

Name	Line Occurrences
AGENT	ANES
AGT	PRINT+5
LOOP	OPS+1
OTHER	OPS

Name	Field # of Occurrence
^(	SROINQ+8, ANES, AGENT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ANS	PRINT+7*
>> C	SROINQ+10, SROINQ+12, PRINT+5*
>> DFN	SROINQ+6*
DTIME	PRINT+7
>> I	SROINQ+7, ANES, OPS, ICD9+1, PRINT+4, PRINT+5, AGT, AGENT+1, AGENT+2
IOF	PRINT+1, END
>> J	ANES*
>> LOOP	LOOP+1*
>> M	OPS+1*, LOOP+1
MM	OPS+1!, LOOP+1*
MMM	OPS+1!, LOOP+1*
>> OPER	OPS, OTHER+1, OTHER+2
>> Q	AGENT+1*, AGENT+2
>> S(	SROINQ+8, SROINQ+10, TIME
>> S(0	SROINQ+6*, SROINQ+8, SROINQ+9
>> SRANE	SROINQ+10, SROINQ+11, SROINQ+15*, PRINT+5
>> SRANE(	ANES, PRINT+5, AGT, AGENT+2
>> SRATCD	SROINQ+12, SROINQ+13, PRINT+2
>> SRATT	SROINQ+10*, PRINT+2
>> SRICD	ICD9+1*
>> SRICD(	ICD9+1*, PRINT+4
>> SRICD("*"	SROINQ+18, ICD9+1, PRINT+4
>> SRLINE	SROINQ+7*, PRINT+1, PRINT+2, PRINT+4, PRINT+5, PRINT+6
>> 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*, PRINT+3
SROPS(2	PRINT+3
SROPS(3	PRINT+3
SROPS(4	PRINT+3
SROPS(5	PRINT+3
>> SRSDATE	SROINQ+17*, PRINT+1
>> SRSUR	SROINQ+10*, PRINT+1
>> SRTBL	TIME, TIME+1, PRINT+6
>> SRTCC	SROINQ+8, SROINQ+10, PRINT+6
>> SRTCMP	SROINQ+16*, PRINT+4
>> SRTCMP1	SROINQ+16*, PRINT+4
>> SRTDG	TIME, ICD9, ICD9+1
>> SRTDG("*"	ICD9+2*
>> SRTDG1	ICD9*
>> SRTDG2	ICD9*, ICD9+1, PRINT+4
>> SRTIME	TIME, TIME+1, PRINT+2
>> SRTMAJ	SROINQ+8*, PRINT+1
>> SRTN	SROINQ+5, SROINQ+6, SROINQ+8, SROINQ+10, SROINQ+12, SROINQ+16, SROINQ+17, ANES, TIME, OPS , ICD9+1, OTHER+1, OTHER+2, AGENT+1
>> SRTNM	SROINQ+6*, PRINT+1
>> SRTSP	SROINQ+9*
>> SSN	SROINQ+6*
>> T	AGT, AGENT+1
U	ANES, AGENT+1
>> VA("PID"	SROINQ+6
>> VADM(1	SROINQ+6
>> X	TIME*
>> X1	TIME*
>> Y	SROINQ+10, SROINQ+12, SROINQ+17, PRINT+5
>> Z	AGENT+1*, AGENT+2

Customize PDF page

Package: Surgery

Routine: SROINQ

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
END
OPS
AGENT	; anesthesia agents
ANES
OTHER	; other operations
TIME
PRINT	; print inquiry
ICD9
AGT
LOOP	; break procedure if greater than 75 characters