Routine: SRORACE

Package	Total	Call Graph
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	1	SROAPCA3

Entry Points

Name	Comments	DBIA/ICR reference
WRAP	;Wrap multiple race entries so that wrapped line
ENTH
EXT

Name	Field # of Occurrence
DEM^VADPT	ENTH

Name	Line Occurrences
Function Call: WRITE	Prompt: !," Ethnicity:" Line Location: ENTH+2
Function Call: WRITE	Prompt: ?40,$P(VADM(11,1),U,2) Line Location: ENTH+3
Function Call: WRITE	Prompt: ?40,"UNANSWERED" Line Location: ENTH+4
Function Call: WRITE	Prompt: !," Race Category(ies):" Line Location: ENTH+18
Function Call: WRITE	Prompt: ?40,"UNANSWERED" Line Location: ENTH+23
Function Call: WRITE	Prompt: ?40,SREXT Line Location: EXT+0
Function Call: WRITE	Prompt: $S(SREXT="":"",SREXT=1:" Day",SREXT=0:" Days",SREXT>1:" Days",1:"") Condition for execution: SRFLD=247 Line Location: EXT+0
Function Call: WRITE	Prompt: ?40,X Line Location: EXT+1
Function Call: WRITE	Prompt: ?40,$E(X,1,J-1) Line Location: EXT+2

Name	Line Occurrences
WRAP	ENTH+16

Name	Field # of Occurrence
>> C	ENTH+7, ENTH+8, ENTH+9, ENTH+10, ENTH+11, ENTH+12
>> D	ENTH+19*, ENTH+20, ENTH+21
>> E	WRAP+3, WRAP+4, WRAP+7, WRAP+8
I	WRAP+4, WRAP+5, WRAP+6, WRAP+7, WRAP+10, WRAP+11, WRAP+12, EXT+1~, EXT+2
J	EXT+1~, EXT+2*
>> K	WRAP+5*, WRAP+6, WRAP+7
>> N	ENTH+7*, ENTH+15
>> SREXT	EXT, EXT+1
>> SRFLD	EXT
>> SRNUM	WRAP+15, WRAP+16, WRAP+17
SRNUM1	ENTH+15, ENTH+19, ENTH+25!, WRAP+15, WRAP+17, WRAP+18*
SROL	ENTH+7, ENTH+25!, WRAP+3
SROL(	ENTH+15, ENTH+20, ENTH+21, WRAP+17
SROLINE	ENTH+7, ENTH+10, ENTH+11*, ENTH+15, ENTH+16, ENTH+25!, WRAP+3, WRAP+4
SROLN	ENTH+25!, WRAP+3*
SROLN(	WRAP+4*, WRAP+5, WRAP+6, WRAP+7, WRAP+10
SROLN1	ENTH+25!, WRAP+3*
SROLN1(	WRAP+6, WRAP+10, WRAP+11, WRAP+12, WRAP+16, WRAP+17
>> SROLNGTH	WRAP+3*, WRAP+4
SRORACE	ENTH+7*, ENTH+25!
SRORACE(	ENTH+9*, ENTH+10, ENTH+11
SRORC	ENTH+7, ENTH+8, ENTH+9, ENTH+25!
SROWRAP	ENTH+25!, WRAP+3, WRAP+4, WRAP+7, WRAP+10*, WRAP+11, WRAP+12
U	ENTH+3, ENTH+9
>> VADM(11	ENTH+3, ENTH+4
>> VADM(12	ENTH+8, ENTH+9, ENTH+19, ENTH+23
X	EXT+1~, EXT+2
Y	EXT+1~, EXT+2*