Routine: SROALET

Package	Total	Call Graph
Registration	1	(ADD,DEM,INP)^VADPT
Surgery	1	$$SITE^SROUTL0
VA Fileman	1	D^DIQ

Package	Total	Caller Graph
Surgery	1	SROA30

Entry Points

Name	Comments	DBIA/ICR reference
MM	;
CCADD	; Get Confidential Correspondence Address if one is active ; and has the category "all other".
DFLT

External References

Name	Field # of Occurrence
D^DIQ	SROALET+16
$$SITE^SROUTL0	MM+1
ADD^VADPT	SROALET+7
DEM^VADPT	SROALET+7
INP^VADPT	SROALET+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: SROALET+19
Function Call: WRITE	Prompt: !!!!!!!!!!,?4,SRNM,?60,SRDT Line Location: SROALET+19
Function Call: WRITE	Prompt: !,?4,VAPA(2),?48,SRSP Line Location: SROALET+25
Function Call: WRITE	Prompt: !,?4,VAPA(3) Line Location: SROALET+26
Function Call: WRITE	Prompt: ?48,SRSP Line Location: SROALET+26
Function Call: WRITE	Prompt: !,?4,VAPA(4)_", "_STATE_" "_VAPA(6) Line Location: SROALET+27
Function Call: WRITE	Prompt: ?48,SRSP Line Location: SROALET+27
Function Call: WRITE	Prompt: !,?48,SRSP Line Location: SROALET+28
Function Call: WRITE	Prompt: !!!,?4,"Dear "_SRANAME_"," Line Location: SROALET+29
Function Call: WRITE	Prompt: !,?4,^SRO(133,SRDIV,5,SRLINE,0) Line Location: MM+3
Function Call: WRITE	Prompt: !!,?4,"One month ago, you had an operation at the VA Medical Center. We are",!,?4,"interested in how you feel. Have you had any health problems since your",!,?4,"operation ? We would like to hear from you. Please take a few minutes" Line Location: DFLT+0
Function Call: WRITE	Prompt: !,?4,"to answer these questions and return this letter in the self-addressed",!,?4,"stamped envelope." Line Location: DFLT+1
Function Call: WRITE	Prompt: !!,?4,"Have you been to a hospital or seen a doctor for any reason since your",!,?4,"operation ? ___ Yes ___ No" Line Location: DFLT+2
Function Call: WRITE	Prompt: !!,?4,"If you answered NO, you do not need to answer any more questions. Please",!,?4,"return this sheet in the self-addressed stamped envelope." Line Location: DFLT+3
Function Call: WRITE	Prompt: !!,?4,"If you have answered YES, please answer the following questions.",!!,?7,"1) Have you been seen in an outpatient clinic or doctor's office ? " Line Location: DFLT+4
Function Call: WRITE	Prompt: !,?10,"___ Yes ___ No",!!,?10,"Why did you go to the clinic or doctor's office ? ________________" Line Location: DFLT+5
Function Call: WRITE	Prompt: !!,?10,"Where ? (name and location) _____________________ Date ? ________" Line Location: DFLT+6
Function Call: WRITE	Prompt: !!,?10,"Who was your doctor ? ____________________________________________" Line Location: DFLT+7
Function Call: WRITE	Prompt: !!!,?7,"2) Were you admitted to a hospital ? ___ Yes ___ No",!!,?10,"Why did you go to the hospital ? _________________________________" Line Location: DFLT+8
Function Call: WRITE	Prompt: !!,?10,"Where ? (name and location) _____________________ Date ? ________" Line Location: DFLT+9
Function Call: WRITE	Prompt: !!,?10,"Who was your doctor ? ____________________________________________" Line Location: DFLT+10
Function Call: WRITE	Prompt: !!!,?4,"Please return this letter whether or not you have had any medical problems.",!,?4,"Your health and opinion are important to us. Thank You.",!!,?4,"Sincerely,",!!!,?4,"Surgical Clinical Nurse Reviewer" Line Location: DFLT+11

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	SROALET+22, CCADD+10
^DPT - [#2]	SROALET+5
^SRF - [#130]	SROALET+2, SROALET+3, SROALET+5, SROALET+9, SROALET+21
^SRO(133 - [#133]	MM+2, MM+3
^SRO(137.45 - [#137.45]	SROALET+9

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	SROALET+5*
DT	SROALET+16
IOF	SROALET+19
J	SROALET+10~, SROALET+11, SROALET+12
NSTATE	CCADD+3~, CCADD+10, CCADD+11
>> SEX	SROALET+17*
>> SR("RA"	SROALET+3*, SROALET+4
>> SRADATE	SROALET+15*
SRADO	SROALET+20~, SROALET+21*, SROALET+24
>> SRANAME	SROALET+8, SROALET+14, SROALET+29
SRCCADD	SROALET+20~, SROALET+22, SROALET+23, CCADD+9
SRDIV	MM+1~*, MM+2, MM+3
>> SRDT	SROALET+16*, SROALET+19
>> SRLINE	MM+3*
SRNM	SROALET+10~, SROALET+18*, SROALET+19
SRNM(	SROALET+11*, SROALET+12
SRNM(1	SROALET+12
>> SRSDATE	SROALET+15
>> SRSP	SROALET+9*, SROALET+25, SROALET+26, SROALET+27, SROALET+28
SRSPF	SROALET+20~, SROALET+25, SROALET+26, SROALET+27, SROALET+28*
>> SRTN	SROALET+2, SROALET+3, SROALET+5, SROALET+9, SROALET+21, MM+1
>> STATE	SROALET+22*, SROALET+27
>> TITLE	SROALET+14*
VADM	SROALET+2!
VADM(1	SROALET+8, SROALET+18
VADM(5	SROALET+14, SROALET+17
>> VAIN(1	SROALET+6
>> VAINDT	SROALET+6*
VAPA	SROALET+2!
VAPA(1	SROALET+24
VAPA(12	CCADD+5
VAPA(13	CCADD+11
VAPA(14	CCADD+11
VAPA(15	CCADD+11
VAPA(16	CCADD+11
VAPA(17	CCADD+10
VAPA(18	CCADD+11
VAPA(2	SROALET+25
VAPA(22	CCADD+7
VAPA(3	SROALET+26
VAPA(4	SROALET+27
VAPA(5	SROALET+22
VAPA(6	SROALET+27
>> X	SROALET+5, SROALET+8, SROALET+10, SROALET+11, SROALET+13
>> Y	SROALET+12, SROALET+13, SROALET+14, SROALET+16, SROALET+21
Z	SROALET+10~, SROALET+11*

Customize PDF page

Package: Surgery

Routine: SROALET

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: