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

Package: Surgery

Routine: SRO1L


Information

SRO1L ;BIR/ADM - Update 1-Liner Cases ; [ 07/7/03 9:05 AM ]

Source Information

Source file <SRO1L.m>

Entry Points

Name Comments DBIA/ICR reference
ST
EN2
END
SROPS ; select patient and case
ADT
OPT
LIST ; list cases
CASE
SEL ; select case
OTHER ; other operations
LOOP ; break procedure
HDR ; print heading

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SROPS+2
Function Call: WRITE
  • Prompt: !!,"Case #"_SROP_" is not a valid 1-liner case.",!!,"Press RETURN to continue "
  • Line Location: SROPS+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ADT+2
Function Call: WRITE
  • Prompt: !!,"There are no cases entered for "_VADM(1)_".",!!,"Press RETURN to continue "
  • Line Location: ADT+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: OPT+0
Function Call: WRITE
  • Prompt: !!,"Enter the number of the operation you want to edit."
  • Line Location: OPT+1
Function Call: WRITE
  • Prompt: !,CNT_". "
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: $E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3)
  • Line Location: CASE+0
Function Call: WRITE
  • Prompt: ?14,SROPS(1)
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !,?14,SROPS(4)
  • Condition for execution: $D(SROPS(4))
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CASE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID")
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: " * DIED "_$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)_" *"
  • Condition for execution: X
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+1
Info |  Source |  Entry Points |  Interaction Calls