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

Package: Surgery

Routine: SRSWL


Information

SRSWL ;B'HAM ISC/MAM - PRINT WAITING LIST; 3 Feb 1989 1:38 PM

Source Information

Source file <SRSWL.m>

Entry Points

Name Comments DBIA/ICR reference
END
LOOP ; break procedure if greater than 50 characters
MORE
HDR
SET ;
PAGE ;
NUM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Date Entered",?14,"Patient",?29,"Procedure",!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,Z_".",?3,$E(SRSWDT,4,5)_"/"_$E(SRSWDT,6,7)_"/"_$E(SRSWDT,2,3),?12,SRSDFN,?29,SROPS(1)
  • Line Location: SET+5
Function Call: WRITE
  • Prompt: !,?29,SROPS(2)
  • Line Location: SET+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SET+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SET+6
Function Call: READ
  • Variable: ZZ
  • Timeout: DTIME
  • Line Location: PAGE+1
Function Call: READ
  • Variable: ZZ
  • Timeout: DTIME
  • Line Location: NUM+0
Function Call: WRITE
  • Prompt: !!,"Enter the number corresponding to the patient that you want to "_$S(SRSDEL:"delete",1:"edit")_", or",!,"press RETURN to continue. Entering a '^' will exit you from this option."
  • Line Location: NUM+2
Info |  Source |  Entry Points |  Interaction Calls