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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SRTPRACE

Package: Surgery

Routine: SRTPRACE


Information

SRTPRACE ;BIR/SJA - RACE INFORMATION ;03/27/08

Source Information

Source file <SRTPRACE.m>

Entry Points

Name Comments DBIA/ICR reference
START
OPT
END
LIST ; list existing race
SEL ; select race
HDR ; print screen header
EDIT ; edit one race
ASK
NEW

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SRTPRACE+3
Function Call: WRITE
  • Prompt: @IOF,!!,"A transplant assessment must be selected prior to using this option.",!!,"Press RETURN to continue "
  • Line Location: SRTPRACE+3
Function Call: WRITE
  • Prompt: !!,SRLINE
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !!,SRLINE
  • Line Location: START+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: OPT+0
Function Call: WRITE
  • Prompt: !!,"Select the number corresponding to the race you want to edit, or 'NEW' to",!,"enter an additional race information."
  • Line Location: OPT+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,$S(CNT<10:" ",1:"")_CNT_". "_$P(SRACE(CNT),"^",2)
  • Line Location: LIST+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !!,"Enter the number corresponding to the race you want to edit, or RETURN",!,"to continue listing."
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: !,SRHDR(I)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?(79-$L(SRHPG)),SRHPG
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+1
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to add another race, or 'NO' to return to the",!,"previous screen."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NEW+0
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: NEW+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRT - [#139.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call