Routine: SRODTH

Package

Total

Call Graph

(,C)^%DTC ^DIC ^DIE ^DIR

($$LOCK,UNLOCK)^SROUTL ^SRSKILL

DEM^VADPT

Package	Total	Caller Graph
Surgery	1	SRO DEATH RELATED

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
SET	; set up array of cases in 90 days prior to death
PAT
HDR	; print heading
LIST	; display list of operations
RELATED	; update UNRELATED/RELATED status
NODIE
END
SEL	; select operation to update
LOOP	; break procedures
OUT

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,?15,"Update Operations as Unrelated or Related to Death",!! Line Location: PAT+0
Function Call: WRITE	Prompt: !!,"This patient had no operations in 90 days prior to death.",!! Line Location: OUT+0
Function Call: WRITE	Prompt: !!,"Operations in 90 Days Prior to Death:",! Line Location: OUT+1
Function Call: WRITE	Prompt: ! Line Location: OUT+2
Function Call: WRITE	Prompt: ! Line Location: RELATED+2
Function Call: WRITE	Prompt: ! Line Location: RELATED+2
Function Call: WRITE	Prompt: !,NUM_".",?3,DATE,?15,SROPS(1) Line Location: LIST+7
Function Call: WRITE	Prompt: !,?15,SROPS(2) Line Location: LIST+7
Function Call: WRITE	Prompt: !,?15,SROPS(2) Line Location: LIST+7
Function Call: WRITE	Prompt: !,?15," >>> Died "_SRLENGTH_" day"_$S(SRLENGTH>1:"s",1:"")_" postop. <<<" Line Location: LIST+8
Function Call: WRITE	Prompt: @IOF,!,?15,"Update Operations as Unrelated or Related to Death",!!,VADM(1)_" "_VA("PID") Line Location: HDR+1
Function Call: WRITE	Prompt: " * DIED "_$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)_" *" Condition for execution: X Line Location: HDR+1
Function Call: WRITE	Prompt: !!!,"No death is recorded for this patient.",!!! Line Location: NODIE+0
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Routine Call	DIE Line Location: RELATED+2
Routine Call	DIC Line Location: PAT+1
Routine Call	DIR Line Location: OUT SEL+2 NODIE END

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SET+1, SET+2, LIST+1*, LIST+3, LIST+5
^SRF("ADT"	PAT+4

Name	Field # of Occurrence
>> CNT	PAT+3, OUT, SEL+1, SET+3
DA	RELATED+2!*
>> DATE	LIST+5*, LIST+7
>> DFN	PAT+2*, PAT+4
DIC	PAT+1!*
DIC("A"	PAT+1*
DIC(0	PAT+1*
DIE	RELATED+2!*
DIR	OUT!, SEL+1!, SEL+2!, NODIE!, END!
DIR("?"	SEL+1*
DIR("A"	SEL+2*
DIR(0	OUT, SEL+1, NODIE, END
DR	RELATED+2!*
>> DTOUT	OUT, SEL+2, NODIE
>> DUOUT	OUT, SEL+2, NODIE
IOF	PAT, HDR+1, END+1
>> LOOP	LOOP+1*
>> M	LIST+6*, LOOP+1
MM	LIST+6!, LOOP+1*
MMM	LIST+6!, LOOP+1*
>> NUM	OUT+2, SEL+3, RELATED+1, LIST+7
SRCASE	PAT+4!, OUT+2, RELATED+1*, RELATED+2, SET+1, SET+2, SET+3, LIST+1, LIST+3, LIST+5
SRCASE(	OUT+2, RELATED+1, SET+3*
>> SRDAY	PAT+3*, SET+1
>> SRDEATH	PAT+2*, PAT+3, SET+1, LIST+5
>> SRDT	PAT+3, PAT+4
>> SRELATE	LIST+2*, LIST+4
>> SRLENGTH	LIST+5*, LIST+8
>> SROPER	LIST+3, LIST+4, LIST+6, LOOP+1
SROPS	LIST+6!
SROPS(	LOOP+1*
SROPS(1	LIST+6*, LIST+7
SROPS(2	LIST+7
SROPS(3	LIST+7
>> SRSDATE	SET+1*
>> SRSOUT	PAT+1*, END
>> VA("PID"	HDR+1
>> VADM(1	HDR+1
>> VADM(6	PAT+2, HDR+1
>> X	PAT+3, LIST+1, LIST+2, LIST+5, HDR+1
>> X1	PAT+3, LIST+5
>> X2	PAT+3, LIST+5
>> Y	PAT+1, PAT+2, SEL+3

Information