Routine: SRSRQST1

Package	Total	Call Graph
Surgery	8	^SRCUSS RISK^SROAUTL3 ^SROBLOD ^SROCON1 ^SROERR0 REQ^SROPCE1 EN2^SROVAR $$CHKS^SRSCOR
VA Fileman	2	^DIE ^DIK
Kernel	1	T0^%ZOSV

Package

Total

Call Graph

Surgery

^SRCUSS RISK^SROAUTL3 ^SROBLOD ^SROCON1 ^SROERR0 REQ^SROPCE1 EN2^SROVAR $$CHKS^SRSCOR

VA Fileman

^DIE ^DIK

Kernel

T0^%ZOSV

Package	Total	Caller Graph
Surgery	2	SRSCONR SRSRQST

Package

Total

Caller Graph

Surgery

SRSCONR SRSRQST

Name	Field # of Occurrence
T0^%ZOSV	RT+1
^DIE	SRSRQST1+11, OTH+1
^DIK	DIK
^SRCUSS	SS+1
RISK^SROAUTL3	SS+3
^SROBLOD	BLOOD+1
^SROCON1	OTH+1, SS+3
^SROERR0	SS+4
REQ^SROPCE1	SS+3
EN2^SROVAR	SS
$$CHKS^SRSCOR	SS+1, SS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: SRSRQST1+5
Function Call: WRITE	Prompt: !,?29,$S(SRSCON=1:"FIRST",1:"SECOND")_" CONCURRENT CASE" Condition for execution: $D(SRCC) Line Location: SRSRQST1+5
Function Call: WRITE	Prompt: !,?20,"OPERATION REQUEST: PROCEDURE INFORMATION",!!,SRNM_" ("_SRSSN_")",?65,SREQDT,!,SRLINE Line Location: SRSRQST1+5
Function Call: WRITE	Prompt: !,"Principal Procedure: ",?26,SROPS(1) Line Location: SRSRQST1+7
Function Call: WRITE	Prompt: !,?26,SROPS(2) Line Location: SRSRQST1+7
Function Call: WRITE	Prompt: !,?26,SROPS(2) Line Location: SRSRQST1+7
Function Call: WRITE	Prompt: !,"Principal Procedure Code (CPT): "_$P(SREQ(27),"^",2) Line Location: SRSRQST1+8
Function Call: WRITE	Prompt: @IOF Line Location: BLOOD+0
Function Call: WRITE	Prompt: !,?29,$S(SRSCON=1:"FIRST",1:"SECOND")_" CONCURRENT CASE" Condition for execution: $D(SRCC) Line Location: BLOOD+0
Function Call: WRITE	Prompt: !,?20,"OPERATION REQUEST: BLOOD INFORMATION",!!,SRNM_" ("_SRSSN_")",?65,SREQDT,!,SRLINE,! Line Location: BLOOD+0
Function Call: WRITE	Prompt: @IOF Line Location: OTH+0
Function Call: WRITE	Prompt: !,?29,$S(SRSCON=1:"FIRST",1:"SECOND")_" CONCURRENT CASE" Condition for execution: $D(SRCC) Line Location: OTH+0
Function Call: WRITE	Prompt: !,?20,"OPERATION REQUEST: OTHER INFORMATION",!!,SRNM_" ("_SRSSN_")",?65,SREQDT,!,SRLINE,! Line Location: OTH+0
Function Call: WRITE	Prompt: !!,"A request has been made for "_SRNM_" on "_$E(SRSDATE,4,5)_"/"_$E(SRSDATE,6,7)_"/"_$E(SRSDATE,2,3)_".",! Line Location: REQ+1
Routine Call	DIE Line Location: SRSRQST1+11 OTH+1

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SRSRQST1+6, SRSRQST1+9, REF+1*
^SRO(133.8 - [#133.8]	REF
^TMP("CSLSUR1"	SS+2*

Name	Line Occurrences
LOOP	SRSRQST1+6
REF	SRSRQST1+5
REQ	SRSRQST1+11, BLOOD+1, OTH+2, SS+3
RT	SS
SS	SRSRQST1+11, BLOOD+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	SRSRQST1+11!, OTH+1, SS!, DIK!
DA(1	DIK*
DIC	SS!
DIE	SRSRQST1+11, OTH+1, SS!*
DIK	DIK!*
DR	SRSRQST1+10!, SRSRQST1+11!, OTH+1!, SS!, SS+3!
DR(2	SRSRQST1+11*
>> DTOUT	SRSRQST1+11, OTH+1
IOF	SRSRQST1+5, BLOOD, OTH
>> LOOP	LOOP+1*
>> M	SRSRQST1+6*, LOOP+1
MM	SRSRQST1+6!, LOOP+1*
MMM	SRSRQST1+6!, LOOP+1*
>> Q3("VIEW"	SS!
>> REFER	REF*, REF+1
>> SPD	SS+1*, SS+2
>> SRAVG	SRSRQST1+9*
>> SRCC	SRSRQST1+5, BLOOD, OTH, SS+3
>> SRDUOUT	BLOOD+1, OTH+1*, OTH+2
>> SREFER	REF*, DIK
>> SREQ(27	SRSRQST1+8, SRSRQST1+10
>> SREQDT	SRSRQST1+5, BLOOD, OTH
>> SRLINE	SRSRQST1+5, BLOOD, OTH
>> SRNM	SRSRQST1+5, BLOOD, OTH, REQ+1
>> SRODR	OTH+1, SS+3
>> SROERR	SS+4*
>> SROPER	SRSRQST1+6, LOOP+1
SROPS	SRSRQST1+6!
SROPS(	LOOP+1*
SROPS(1	SRSRQST1+6*, SRSRQST1+7
SROPS(2	SRSRQST1+7
SROPS(3	SRSRQST1+7
>> SRSCON	SRSRQST1+5, BLOOD, OTH
>> SRSDATE	REQ+1
>> SRSER	REF
>> SRSPEC	SRSRQST1+9*
>> SRSSN	SRSRQST1+5, BLOOD, OTH
>> SRT	BLOOD+1
>> SRTN	SRSRQST1+6, SRSRQST1+9, SRSRQST1+11, OTH+1, SS, SS+1, SS+2, SS+4, REF+1
SRTX	SS+4!
>> SRW	REF, DIK
>> SRW(	REF, DIK
>> SRWL	SRSRQST1+5
>> XRTL	RT+1
>> XRTN	RT+1*
>> Y	SRSRQST1+11

Customize PDF page

Package: Surgery

Routine: SRSRQST1

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

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
OTH
RT	; start RT logging
DIK
SS
REQ	; print request message
BLOOD
REF
LOOP	; break procedure if greater than 54 charcaters