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

Package: Surgery

Routine: SROPLSTS


Information

SROPLSTS ;B'HAM ISC/MAM - LIST OF OPERATIONS BY SERVICE ;09/30/04

Source Information

Source file <SROPLSTS.m>

Entry Points

Name Comments DBIA/ICR reference
S1
SET ; set variables
OPS
PRINT ;
HDR ; print heading
ASK
END
OTHER ; other operations
LOOP ; break procedure if greater than 50 characters
1 ; entry when queued
2 ; entry when queued
STOT ; print specialty total
HDDT ; set up variables common to both reports

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: S1+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: S1+0
Function Call: WRITE
  • Prompt: !,?1,"*",SRTS,"*"
  • Line Location: S1+1
Function Call: WRITE
  • Prompt: !!,?1,$E(SROD,4,5)_"/"_$E(SROD,6,7)_"/"_$E(SROD,2,3),?13,$E(SRNM,1,26),?38,SROPS(1)
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: ?90,$E(SRSUR,1,23),?114,$E(SRANES,1,14),!,?1,SRTN,?13,VA("PID")
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?38,SROPS(2)
  • Condition for execution: $D(SROPS(2))
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?90,$E(SRFST,1,23),?114,"OP TIME: ",SROT," MIN.",!,SRABORT,?13,SRTYPE
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?38,SROPS(3)
  • Condition for execution: $D(SROPS(3))
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?90,$E(SRTWO,1,23)
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,?38,SROPS(4)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?38,SROPS(5)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?38,SROPS(5)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE ",PAGE,!,?58,"SURGICAL SERVICE",?100,"DATE REVIEWED:",!,?52,"LIST OF OPERATIONS BY SERVICE"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?100,"REVIEWED BY:",!,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,?1,"DATE",?13,"PATIENT",?38,"OPERATION(S)",?90,"PRIMARY SURGEON",?116,"ANESTHESIA",!,"CASE #",?15,"ID#",?90,"FIRST ASSISTANT",?116,"TECHNIQUE",!,?13,"PRIORITY",?90,"SECOND ASSISTANT"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!!,"TOTAL OPERATIONS FOR ALL SERVICES: ",TC
  • Line Location: 1+4
Function Call: WRITE
  • Prompt: !!,?30,"*",SRTS,"*"
  • Line Location: 2+2
Function Call: WRITE
  • Prompt: !!,?1,"TOTAL ",SRTS,": ",C
  • Line Location: STOT+1
Info |  Source |  Entry Points |  Interaction Calls