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

Package: Surgery

Routine: SROTRPT0


Information

SROTRPT0 ;B'HAM ISC/MAM - TISSUE EXAM (CONT.) ; 16 JULY 1990 1:30 PM

Source Information

Source file <SROTRPT0.m>

Entry Points

Name Comments DBIA/ICR reference
OPS
OTHER ; other operations
HDR ; print heading
LOOP ; break procedure if greater than 70 characters

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "SURGERY CASE # "_SRTN,!
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: !,?3,SRSPEC
  • Line Location: OPS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: OPS+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OPS+4
Function Call: WRITE
  • Prompt: !
  • Line Location: OPS+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OPS+6
Function Call: WRITE
  • Prompt: !,"Operative Procedure(s):",!,?3,SROP(1)
  • Line Location: OPS+8
Function Call: WRITE
  • Prompt: !,?3,SROP(2)
  • Line Location: OPS+8
Function Call: WRITE
  • Prompt: !,?3,SROP(2)
  • Line Location: OPS+8
Function Call: WRITE
  • Prompt: !,?3,SROP(2)
  • Line Location: OPS+8
Function Call: WRITE
  • Prompt: !
  • Line Location: OPS+9
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OPS+9
Function Call: WRITE
  • Prompt: !,"Preoperative Diagnosis: ",!,?3,SRPRE,!
  • Line Location: OPS+11
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OPS+11
Function Call: WRITE
  • Prompt: !
  • Line Location: OPS+13
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OPS+13
Function Call: WRITE
  • Prompt: !,"Postoperative Diagnosis:",?50,"Signature and Title",!,?3,SRPOST,?50,SRSURG,!
  • Line Location: OPS+14
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OPS+14
Function Call: WRITE
  • Prompt: !,"Attending "_$S(SRNONOR:"Provider",1:"Surgeon")_": ",SRATT,!
  • Line Location: OPS+15
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OPS+15
Function Call: WRITE
  • Prompt: !,?30,"PATHOLOGY REPORT",!
  • Line Location: OPS+17
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OPS+17
Function Call: WRITE
  • Prompt: !,"Name of Laboratory",?50,"Accession Number(s)",!!
  • Line Location: OPS+18
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OPS+18
Function Call: WRITE
  • Prompt: !,"Gross Description, Histologic Examination and Diagnosis"
  • Line Location: OPS+20
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?5,"MEDICAL RECORD |",?43,"TISSUE EXAMINATION",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+4
Info |  Source |  Entry Points |  Interaction Calls