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

Package: Surgery

Routine: SRSCDW1


Information

SRSCDW1 ;B'HAM ISC/MAM - SCHEDULED OPERATIONS BY WARD ; [ 07/27/98 2:33 PM ]

Source Information

Source file <SRSCDW1.m>

Entry Points

Name Comments DBIA/ICR reference
SRW ; entry when queued
OR
END
LOOP ; break procedure if greater than 65 characters
ZTSAVE
HDR ; print heading
UTL ; set ^TMP("SR",$J)
PRINT ; loop through ^TMP and print cases
OUT ; output data
PAGE
WARD ; check for scheduled admission

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SRSCDW1+2
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: OR+2
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: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?20,"* Scheduled Operations for "_SRWARD_" *",!,?30,SRDATE,!!,"Start Time",?12,"Patient",?45,"Operating Room",!,?12,"ID #",?45,"Speciality",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,$P(SR,"^",4),?12,$P(SR,"^"),?45,SROR,!,?12,$P(SR,"^",5),?45,$P(SR,"^",3),!,?12,SROPS(1)
  • Line Location: OUT+3
Function Call: WRITE
  • Prompt: !,?12,SROPS(2)
  • Line Location: OUT+3
Function Call: WRITE
  • Prompt: !,?12,SROPS(2)
  • Line Location: OUT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OUT+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+0
Info |  Source |  Entry Points |  Interaction Calls