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

Package: Surgery

Routine: SROPCE1


Information

SROPCE1 ;BIR/ADM - ASK SC/EI QUESTIONS FOR PCE AND CROSS REFERENCE LOGIC ;07/24/07

Source Information

Source file <SROPCE1.m>

Call Graph

Call Graph Total: 6

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

Caller Graph

Caller Graph Total: 15

Package Total Caller Graph
Surgery 15 SROARPT  SROMENU  SRONEW  SRONIN  SRONOP  SRONOP1  SROP  SROVER1  
SROVER3  SROWL  SROWL0  SRSCHUN1  SRSRQST1  SRSUP1  SRSUPRQ  

Entry Points

Name Comments DBIA/ICR reference
SC
HNC
ELIG ; output of eligibility and service connected conditions
END
REQ ; entry from new request entry
UPDX
IR
MST
AO
CV
WL ; entry from waiting list
EN1
PRESS
EC
SUP
ASK
BLDDR(DXPIECE,NEWSC) ;Build the DR string for updating DX/Service Indicators associations
PRJ
CLASS ; build classification array
UPDSC ;Update existing DX to Service Connected/Environmental Indicators associations.

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No classification information is required for this patient.",!
  • Line Location: CLASS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: @IOF,!,VADM(1)_" ("_VA("PID")_") ",$P(VAEL(6),"^",2),!!," * * * Eligibility Information and Service Connected Conditions * * *"
  • Line Location: ELIG+7
Function Call: WRITE
  • Prompt: !!,?5,"Primary Eligibility: "_SRELIG,!,?5,"Combat Vet: "_SRCV,?22,"A/O Exp.: "_SRAO,?39,"M/S Trauma: "_SRMST
  • Line Location: ELIG+8
Function Call: WRITE
  • Prompt: !,?5,"ION Rad.: "_SRIR,?22,"SWAC: "_SREC,?39,"H/N Cancer: "_SRHNC
  • Line Location: ELIG+9
Function Call: WRITE
  • Prompt: !,?5,"PROJ 112/SHAD: "_SRPRJ
  • Line Location: ELIG+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ELIG+12
Function Call: WRITE
  • Prompt: "-"
  • Line Location: ELIG+12
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:
    • CLASS+2
    • SUP+11
    • UPDSC+12
Routine Call
  • DIR
  • Line Location:
    • ASK
    • SC
    • CV+1
    • AO
    • IR
    • EC
    • PRJ
    • MST
    • HNC
    • PRESS

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] EN1+1, CLASS+1, CLASS+3, SUP, UPDX, CV, UPDSC+12
^SRO(133 - [#133] EN1, EN1+1
^SRO(133.8 - [#133.8] EN1+1, CLASS+4, CV

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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