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: SROCD3

Package: Surgery

Routine: SROCD3


Information

SROCD3 ;BIR/ADM - ASK SC/EI QUESTIONS FOR CODING ;07/24/07

Source Information

Source file <SROCD3.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 ^DIE  EN^DIQ1  ^DIR  
Registration 2 DIS^DGRPDB  (DEM,ELIG,SVC)^VADPT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Surgery 2 SROCD0  SROCD2  

Entry Points

Name Comments DBIA/ICR reference
HNC
MST
END
UPDX
IR
SCEI ; output of SC/EI conditions
AO
PRJ
SC
PRESS
EC
SUP
ASK
BLDDR(DXPIECE,NEWSC) ;Build the DR string for updating DX/Service Indicators associations
CV
UPDSC ;Update existing DX to Service Connected/Environmental Indicators associations.

External References

Name Field # of Occurrence
DIS^DGRPDB SCEI+12
^DIE SUP+10, UPDSC+11
EN^DIQ1 SCEI+6
^DIR ASK, UPDX+2, SC, CV+1, AO, IR, EC, PRJ, MST, HNC
, PRESS
DEM^VADPT SCEI+2
ELIG^VADPT SCEI+2
SVC^VADPT SCEI+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,VADM(1)_" ("_VA("PID")_") ",$P(VAEL(6),"^",2),!!," * * * Eligibility Information and Service Connected Conditions * * *"
  • Line Location: SCEI+8
Function Call: WRITE
  • Prompt: !!,?5,"Primary Eligibility: "_SRELIG,!,?5,"Combat Vet: "_SRCV,?22,"A/O Exp.: "_SRAO,?39,"M/S Trauma: "_SRMST
  • Line Location: SCEI+9
Function Call: WRITE
  • Prompt: !,?5,"ION Rad.: "_SRIR,?22,"SWAC: "_SREC,?39,"H/N Cancer: "_SRHNC
  • Line Location: SCEI+10
Function Call: WRITE
  • Prompt: !,?5,"PROJ 112/SHAD: "_SRPRJ
  • Line Location: SCEI+11
Function Call: WRITE
  • Prompt: !
  • Line Location: SCEI+13
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SCEI+13
Function Call: WRITE
  • Prompt: !,$C(7),?15,"Enter YES or NO."
  • Line Location: SC+1
Function Call: WRITE
  • Prompt: !,$C(7),?15,"Enter YES or NO."
  • Line Location: CV+2
Function Call: WRITE
  • Prompt: !,$C(7),?15,"Enter YES or NO."
  • Line Location: AO+1
Function Call: WRITE
  • Prompt: !,$C(7),?15,"Enter YES or NO."
  • Line Location: IR+1
Function Call: WRITE
  • Prompt: !,$C(7),?15,"Enter YES or NO."
  • Line Location: EC+1
Function Call: WRITE
  • Prompt: !,$C(7),?15,"Enter YES or NO."
  • Line Location: PRJ+1
Function Call: WRITE
  • Prompt: !,$C(7),?15,"Enter YES or NO."
  • Line Location: MST+1
Function Call: WRITE
  • Prompt: !,$C(7),?15,"Enter YES or NO."
  • Line Location: HNC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRESS+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRESS+0
Routine Call
  • DIE
  • Line Location:
    • SUP+10
    • UPDSC+11
Routine Call
  • DIR
  • Line Location:
    • ASK
    • UPDX+2
    • SC
    • CV+1
    • AO
    • IR
    • EC
    • PRJ
    • MST
    • HNC
    • PRESS

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] SUP
^SRO(136 - [#136] UPDX, CV, UPDSC+11

Label References

Name Line Occurrences
AO SUP+4, AO+1
BLDDR UPDSC+3, UPDSC+4, UPDSC+5, UPDSC+6, UPDSC+7, UPDSC+8, UPDSC+9, UPDSC+10
CV SUP+3, CV+2
EC SUP+6, EC+1
END SUP+1
HNC SUP+9, HNC+1
IR SUP+5, IR+1
MST SUP+8, MST+1
PRJ SUP+7, PRJ+1
SC SUP+2, SC+1
UPDSC UPDX+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA SCEI+6*!, SUP+1*, SUP+10!*, END!, CV, UPDSC+1!, UPDSC+2*, UPDSC+11*
DA(1 UPDSC+2*
>> DFN SCEI+6, SCEI+7
DIC SCEI+6*!
DIE SUP+10!*, END!, UPDSC+1!, UPDSC+2*
DIQ SCEI+6*!
DIQ(0 SCEI+6*
DIR ASK!, SUP+1!, UPDX+1!, UPDX+2!, SC!, CV+1!, AO!, IR!, EC!, PRJ!
, MST!, HNC!, PRESS!
DIR("A" ASK*, UPDX+1*, SC*, CV+1*, AO*, IR*, EC*, PRJ*, MST*, HNC*
, PRESS*
DIR("B" ASK*, UPDX+2*, CV*
DIR(0 ASK*, UPDX+2*, SC*, CV+1*, AO*, IR*, EC*, PRJ*, MST*, HNC*
, PRESS*
DR SCEI+6*!, SUP+10!*, END!, UPDSC+1!, BLDDR+1*, BLDDR+2*, BLDDR+3*
>> DTOUT ASK, UPDX+2, SC, CV+1, AO, IR, EC, PRJ, MST, HNC
>> DUOUT ASK, UPDX+2, SC, CV+1, AO, IR, EC, PRJ, MST, HNC
DXPIECE BLDDR~, BLDDR+3, BLDDR+4!
>> I SCEI+13*, UPDSC+2*, UPDSC+11*
IOF SCEI+8, PRESS
NEWSC BLDDR~, BLDDR+3, BLDDR+4!
SRAO SCEI+1~, SCEI+4*, SCEI+9
>> SRCL(1 SUP+4, AO+2*, AO+3*, UPDSC+3
>> SRCL(2 SUP+5, IR+2*, IR+3*, UPDSC+4
>> SRCL(3 SUP+2, SC+2*, SC+3*, UPDSC+5
>> SRCL(4 SUP+6, EC+2*, EC+3*, UPDSC+6
>> SRCL(5 SCEI+5, SUP+8, MST+2*, MST+3*, UPDSC+7
>> SRCL(6 SCEI+5, SUP+9, HNC+2*, HNC+3*, UPDSC+8
>> SRCL(7 SUP+3, CV+3*, CV+4*, UPDSC+9
>> SRCL(8 SUP+7, PRJ+2*, PRJ+3*, UPDSC+10
SRCV SCEI+1~, SCEI+4*, SCEI+9
SRCVD CV~*
SRDR SCEI+1~, SUP+1*, SUP+10, SC+2*, CV+3*, AO+2*, IR+2*, EC+2*, PRJ+2*, MST+2*
, HNC+2*
SREC SCEI+1~, SCEI+7*, SCEI+10
SREEQ SCEI+1~
SRELIG SCEI+1~, SCEI+3*, SCEI+9
SRHNC SCEI+1~, SCEI+5*, SCEI+10
SRIR SCEI+1~, SCEI+4*, SCEI+10
SRMST SCEI+1~, SCEI+5*, SCEI+9
SRPERC SCEI+1~, SCEI+3*
SRPRJ SCEI+1~, SCEI+4*, SCEI+11
SRQ SCEI+1~, SUP+1*, SUP+2, SUP+3, SUP+4, SUP+5, SUP+6, SUP+7, SUP+8, SC*
, CV+1*, AO*, IR*, EC*, PRJ*, MST*, HNC*
SRSC SCEI+1~, SCEI+3*
>> SRTN SUP, SUP+1, SUP+10, UPDX, UPDSC+2, UPDSC+11
SRY SCEI+1~, SUP*, SUP+1
SRY(2 SCEI+7
SRZ END!
>> VA("PID" SCEI+8
VADM SCEI+1~
VADM(1 SCEI+8
VAEL SCEI+1~
VAEL(1 SCEI+3
VAEL(3 SCEI+3
VAEL(6 SCEI+8
VASV SCEI+1~
VASV(10 SCEI+4
VASV(11 SCEI+4
VASV(2 SCEI+4
VASV(3 SCEI+4
X END!, SC+1, CV+2, AO+1, IR+1, EC+1, PRJ+1, MST+1, HNC+1
Y ASK, UPDX+3, END!, SC+2, CV+3, AO+2, IR+2, EC+2, PRJ+2, MST+2
, HNC+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All