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

Package: Surgery

Routine: SRSCD


Information

SRSCD ;B'HAM ISC/MAM - SCHEDULE OF OPERATIONS (SCREEN FORMAT) ; [ 10/13/98 10:19 AM ]

Source Information

Source file <SRSCD.m>

Entry Points

Name Comments DBIA/ICR reference
DT
BEG
ROOM ; sort by operating room
ALL ; entry when queued
ONE ; list scheduled cases for a specific room
END
LOOP ; break procedure if greater than 65 characters
HDR ; print heading
OR
UTL ; set ^TMP("SR",$J)
PRINT ; loop through ^TMP and print cases
OUT ; output data
PAGE
ZTSAVE
WARD ; check for scheduled admission

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"List of Scheduled Operations:",!
  • Line Location: SRSCD+2
Function Call: READ
  • Variable: Z
  • Timeout: DTIME
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !!,"Enter 'O' to sort the schedule by operating room, 'S' to sort by specialty",!,"or 'W' to sort by ward."
  • Line Location: BEG+1
Function Call: READ
  • Variable: Z
  • Timeout: DTIME
  • Line Location: ROOM+1
Function Call: WRITE
  • Prompt: !!,"Enter 'NO' to list the scheduled operations for a specific operating room,",!,"or RETURN to list the scheduled cases for all rooms."
  • Line Location: ROOM+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: ROOM+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ROOM+4
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: ALL+2
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: ONE+1
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: !,?20,"* Scheduled Operations for "_SROR_" *",!,?30,SRDATE,!!,"Start Time",?13,"Patient",?43,"Surgical Specialty",?67,"Ward Location",!,?13,"ID #",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,$P(SR,"^",5),?12,$P(SR,"^"),?43,$P(SR,"^",4),?67,$P(SR,"^",3),!,?12,$P(SR,"^",6),!,?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