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

Package: Surgery

Routine: SROREQ3


Information

SROREQ3 ;BIR/MAM - REQUESTS FOR A DAY (SHORT FORM) ; [ 12/09/99 11:54 AM ]

Source Information

Source file <SROREQ3.m>

Entry Points

Name Comments DBIA/ICR reference
BEG ; entry when queued
END
SET ; set ^TMP(
HDR ; print heading
PRINT ; print request info
LOOP ; break procedure if greater than 63 characters
PAGE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SROREQ3+4
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: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"OPERATION REQUESTS FOR "_SRSNM,?70,SRDT,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,CNT_".",?5,"Case Number: "_SRTN,?40,"Operation Date: "_SRSDT,!,?5,"Patient: ",?16,SRNAME,?40,"Ward: ",SRWARD,!,?5,"ID#: ",?16,VA("PID"),?40,"Surgeon: "_SRSUR,!,?5,"Procedure: "_SROPS(1)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,?16,SROPS(2)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,?16,SROPS(3)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,?16,SROPS(3)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,?5,"Estimated Case Length: "_SRHRS
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !,?5,"Requested Anesthesia: "_SRANES
  • Condition for execution: SRSORD'="" !,?5,"Case Schedule Order: "_SRSORD W:SRANES'=""
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !,"Concurrent Case # "_SRSCON,!,SROPS(1)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,SROPS(2)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,SROPS(2)
  • Line Location: PRINT+13
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue, or '^' to quit: "
  • Line Location: PAGE+0
Info |  Source |  Entry Points |  Interaction Calls