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

Package: Surgery

Routine: SRODLAY


Information

SRODLAY ;B'HAM ISC/MAM - REPORT OF DELAYS ; [ 04/04/00 11:36 AM ]

Source Information

Source file <SRODLAY.m>

Entry Points

Name Comments DBIA/ICR reference
DATE
SPEC
EN ; entry when queued
END
SP
PAGE
HDR ; print heading

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Report of Delayed Operations",!
  • Line Location: SRODLAY+2
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: SPEC+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN to print this report for all surgical specialties, or 'NO' to",!,"select a specific specialty."
  • Line Location: SPEC+2
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format."
  • Line Location: SPEC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SPEC+5
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: SP+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: !!,"Enter RETURN to continue printing this report, or '^' to exit from this option."
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE: "_PAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY:",!,?52,"REPORT OF DELAYED OPERATIONS",?100,"DATE REVIEWED:"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?(132-$L(SPEC)\2),SPEC
  • Condition for execution: $D(SPEC)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?100,SRPRNT
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"DATE",?12,"PATIENT",?44,"ATTENDING SURGEON",?84,"DELAY COMMENTS",!,"DELAY TIME",?14,"ID #",?44,"OPERATION(S)"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+6
Info |  Source |  Entry Points |  Interaction Calls