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

Package: Surgery

Routine: SRSRBS


Information

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

Source Information

Source file <SRSRBS.m>

Entry Points

Name Comments DBIA/ICR reference
A
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
SETUTL ; set ^TMP("SR",$J)
SETUTL1 ; set ^TMP("SR",$J) with waiting list info
PRINT ; print information
HDR ; print heading
PAGE ; end of screen
WARD ; check for scheduled admission

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you would like to sort requests by SURGICAL SPECIALTY, or ",!,"'WARD' to sort by the WARD location."
  • Line Location: A+1
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 surgical specialties,",!,"or 'NO' to list the requests for a specific specialty.",!
  • 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(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 "_SRS("N"),!!,"Date",?14,"Patient",?45,"Ward Location",!,"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