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

Package: Surgery

Routine: SROASSE


Information

SROASSE ;B'HAM ISC/MAM - SELECT ASSESSMENT ; 27 FEB 1992 11:00 am

Source Information

Source file <SROASSE.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: SROASSE+2
Function Call: WRITE
  • Prompt: @IOF,!,?1,SRANM
  • Line Location: START+1
Function Call: WRITE
  • Prompt: " * DIED "_$E(SRDT,4,5)_"/"_$E(SRDT,6,7)_"/"_$E(SRDT,2,3)_" *"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !!,"There are no Surgery Risk Assessments entered for "_VADM(1)_"."
  • Line Location: START+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: OPT+0
Function Call: WRITE
  • Prompt: !!,"Enter the number of the desired assessment."
  • Line Location: OPT+1
Function Call: WRITE
  • Prompt: " Select '"_CNT_"' to create a",!,"new risk assessment entry."
  • Condition for execution: $D(SRNEW)
  • Line Location: OPT+1
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID"),!
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: CNT_". "
  • Line Location: DISP+5
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
Info |  Source |  Entry Points |  Interaction Calls