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

Package: Surgery

Routine: SRTPNEW


Information

SRTPNEW ;BIR/SJA - CREATE NEW RISK ASSESSMENT ;02/14/08

Source Information

Source file <SRTPNEW.m>

Entry Points

Name Comments DBIA/ICR reference
START
OPT
ASK
LIST ; list assessments
DISP
CASE
OTHER ; other operations
LOOP ; break procedures
SEL ; select case
END
NEW
T1
VA
DATE ; Date of Transplant
VACO ; VACO ID
ADD
CHK ; VACO ID check

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID")
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !!!
  • Line Location: START+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: START+2
Function Call: WRITE
  • Prompt: "No operations exist for this patient. Assessment cannot be entered.",!!,"Press RETURN to continue... "
  • Line Location: START+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: OPT+0
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to create an assessment for this surgical case, or 'NO' to quit",!,"this option."
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID"),!
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: CNT_". "
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: $E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3),?14,SROPS(1)
  • Line Location: CASE+0
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: CASE+0
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: CASE+0
Function Call: WRITE
  • Prompt: !,?14,SROPS(4)
  • Line Location: CASE+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: CASE+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID"),!!
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !!,"Please enter the number corresponding to the Surgical Case you want to edit.",!,"If the case desired does not appear, enter <RET> to continue listing",!,"additional cases."
  • Line Location: SEL+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,"Creating a New "_$P(SRL(1),";")_" Transplant Assessment..."
  • Line Location: NEW+4
Function Call: WRITE
  • Prompt: !,II,". ",$P(SRL(II),";")
  • Line Location: NEW+5
Function Call: WRITE
  • Prompt: !
  • Line Location: NEW+6
Function Call: WRITE
  • Prompt: !
  • Line Location: VA+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: VACO+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