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

Package: Surgery

Routine: SRSWL3


Information

SRSWL3 ;B'HAM ISC/MAM - WAITING LIST, EXTENDED-ALL ; 17 OCT 1989 7:35 AM

Source Information

Source file <SRSWL3.m>

Entry Points

Name Comments DBIA/ICR reference
BEG ; entry when queued
END
HDR ; print heading
MORE ; continue looping on 'WL' x-ref
PRINT ; print information
OUT
LOOP ; break operation if greater than 59 characters
PAGE ; end of page

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SRSWL3+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+2
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: !,"Surgery Waiting List for "_SRSNM,!,"Printed "_SRTIME,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"Patient:",?14,SRSDPT,!,"Date Entered: ",?12,SRDT,!,"Procedure: ",?14,SROPS(1)
  • Line Location: OUT+6
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: OUT+6
Function Call: WRITE
  • Prompt: !!,"Tentative Admission Date: "_$S(SRADT="":"None Specified",1:SRADT)
  • Line Location: OUT+7
Function Call: WRITE
  • Prompt: !,"Tentative Date of Operation: "_$S(TEMPDT="":"None Specified",1:TEMPDT)
  • Line Location: OUT+8
Function Call: WRITE
  • Prompt: !,?3,^UTILITY($J,"W",3,X,0)
  • Line Location: OUT+11
Function Call: WRITE
  • Prompt: !!," Home Phone: "_SRSPH1,?40,"Work Phone: "_SRSPH2
  • Line Location: OUT+12
Function Call: WRITE
  • Prompt: !," Address: ",?14,VAPA(1)
  • Line Location: OUT+15
Function Call: WRITE
  • Prompt: !,?14,VAPA(3)
  • Condition for execution: VAPA(2)'="" !,?14,VAPA(2) W:VAPA(3)'=""
  • Line Location: OUT+15
Function Call: WRITE
  • Prompt: ", "_$P(VAPA(5),U,2)_" "_VAPA(6)
  • Condition for execution: VAPA(4)'="" !,?14,VAPA(4) W:$P(VAPA(5),U,2)'=""
  • Line Location: OUT+15
Function Call: WRITE
  • Prompt: !!,"Referring Physician/Institution: "
  • Line Location: OUT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+21
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OUT+21
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+2
Info |  Source |  Entry Points |  Interaction Calls