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

Package: Surgery

Routine: SROANEW


Information

SROANEW ;BIR/MAM - CREATE NEW RISK ASSESSMENT ;01/18/07

Source Information

Source file <SROANEW.m>

Entry Points

Name Comments DBIA/ICR reference
OPT
ASK
LIST ; list assessments
DISP
CASE
OTHER ; other operations
LOOP ; break procedures
SEL ; select case
TYPE
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID")
  • Line Location: SROANEW+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: SROANEW+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SROANEW+4
Function Call: WRITE
  • Prompt: "No operations exist for this patient. Assessment cannot be entered.",!!,"Press RETURN to continue... "
  • Line Location: SROANEW+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: OPT+0
Function Call: WRITE
  • Prompt: !!,"This case is currently flagged as meeting Risk Assessment exclusion criteria.",$C(7)
  • Line Location: ASK+1
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to create an assessment for this surgical case, or 'NO' to quit",!,"this option."
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID"),!
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: CNT_". "
  • Line Location: DISP+4
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
Info |  Source |  Entry Points |  Interaction Calls