Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls