Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SROALET

Package: Surgery

Routine: SROALET


Information

SROALET ;BIR/MAM - PRINT 30 DAY LETTER ;01/31/07

Source Information

Source file <SROALET.m>

Call Graph

Call Graph

Call Graph Total: 3

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
CCADD SROALET+21
DFLT MM+1, MM+2

Local Variables

Legend:

>> 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All