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

Package: Surgery

Routine: SRSRBW


Information

SRSRBW ;B'HAM ISC/MAM - REQUESTS BY WARD ; [ 07/27/98 2:33 PM ]

Source Information

Source file <SRSRBW.m>

Entry Points

Name Comments DBIA/ICR reference
BEG
SER ; entry when queued
WLIST ; get waiting list patients
UTL ; loop through ^TMP("SR",$J) and print data
END
LOOP ; break procedure if greater than 65 characters
MOREWL ; continue getting patients on waiting list
SETUTL ; set ^TMP("SR",$J)
SETUTL1 ; set ^TMP("SR",$J) with waiting list info
PRINT ; print information
HDR ; print heading
PAGE ; end of screen

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you would like a list of requests for all wards, or 'NO' to",!,"list the requests for a specific ward.",!
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+3
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+4
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: UTL+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,$P(STBY,"^"),?14,$P(STBY,"^",2),?45,$P($P(STBY,"^",3),"("),!,SRTN,?14,$P(STBY,"^",5),!,?14,SROPS(1)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?5,"Operative Requests for "_SRW("N"),!!,"Date",?14,"Patient",?45,"Surgical Specialty",!,"Case Number",?14,"ID #",!,?14,"Operative Procedure",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+1
Info |  Source |  Entry Points |  Interaction Calls