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

Package: Surgery

Routine: SROTRPT


Information

SROTRPT ;B'HAM ISC/MAM - TISSUE EXAM REPORT ; 16 JULY 1990 10:00

Source Information

Source file <SROTRPT.m>

Entry Points

Name Comments DBIA/ICR reference
RPT ; entry when queued
END
FOOT ; print footer
WRAP ;Wrap multiple race entries so that wrapped line

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+19
Function Call: WRITE
  • Prompt: !,?30,"(Continue on reverse side)",!
  • Line Location: FOOT+20
Function Call: WRITE
  • Prompt: "-"
  • Line Location: FOOT+20
Function Call: WRITE
  • Prompt: !,"PATHOLOGIST'S SIGNATURE",?58,"DATE: ",!
  • Line Location: FOOT+21
Function Call: WRITE
  • Prompt: "-"
  • Line Location: FOOT+21
Function Call: WRITE
  • Prompt: !,VADM(1),?30,"AGE: "_VADM(4),?40,"SEX: "_$P(VADM(5),"^",2),?58,"ID # "_VA("PID"),!,"ETHNICITY: "_SROETH
  • Line Location: FOOT+22
Function Call: WRITE
  • Prompt: ?58,"REGISTER NO. "
  • Line Location: FOOT+23
Function Call: WRITE
  • Prompt: !,"RACE: "
  • Line Location: FOOT+24
Function Call: WRITE
  • Prompt: ?7,"UNANSWERED"
  • Line Location: FOOT+28
Function Call: WRITE
  • Prompt: !,"WARD: "_SRWARD,?30,"ROOM-BED: "_SROOM
  • Line Location: FOOT+32
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+33
Function Call: WRITE
  • Prompt: "-"
  • Line Location: FOOT+33
Function Call: WRITE
  • Prompt: !,SRINST,?58,"REPLACEMENT FORM 515"
  • Line Location: FOOT+34
Info |  Source |  Entry Points |  Interaction Calls