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

Package: Surgery

Routine: SROERR1


Information

SROERR1 ;B'HAM/ADM - ORDER ENTRY ROUTINE ; 25 JUNE 1992 10:00 AM

Source Information

Source file <SROERR1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;
CON
LOOP ; break procedure if greater than J characters
SCHED ; find scheduling times
OPTM ; find begin and end times

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Patient: "_SRNAME,?40,"ID#: "_VA("PID"),?65,"Age: "_SRAGE,!,"Ward: "_SRWARD,?40,"Surgical Case #"_SRTN_SRSTAT,!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,"Ward: "_SRWARD,?40,"Surgical Case #"_SRTN_SRSTAT
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"Date of Operation: "_SRSDATE,?40,"Estimated Case Length: "_SRLENGTH
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"Scheduled Start Time: "_SRST,?40,"Scheduled End Time: "_SRET
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,"Cancel Date: "_SRCAN,?34,"Cancel Reason: "_SREAS
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,"Time Operation Began: "_SRSTART,?40,"Time Operation Ended: "_SREND
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,"Operating Room: "_$P(^SC($P(^SRS(SROR,0),"^"),0),"^")
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!,"Surgical Specialty: "_SRSNM,!,"Surgeon: "_SROSUR,?40,"Attending: "_SROATT,!,"Preoperative Diagnosis: "_SRDIAG
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !!,"Principal Procedure:",?22,SROPS(1)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,?22,SROPS(2)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,?22,SROPS(2)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,?22,SROPS(2)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,?22,SROPS(2)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,?22,SROP(CNT)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,"Case Schedule Order: "_SRORDER
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !,"Requested Anesthesia Technique: "_SRANES
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !!,"Blood Requested: ",?18,BLOOD(1)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,?18,BLOOD(2)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,?18,BLOOD(2)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,"Restraints: ",?18,SREST(1)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: ", "_SREST(2)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: ", "_SREST(2)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: ", "_SREST(2)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,^SRF(SRTN,5,X,0)
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !!,"Concurrent Case #"_SRSCON,!,SROPS(1)
  • Line Location: CON+1
Function Call: WRITE
  • Prompt: !,SROPS(2)
  • Line Location: CON+1
Function Call: WRITE
  • Prompt: !,SROPS(2)
  • Line Location: CON+1
Info |  Source |  Entry Points |  Interaction Calls