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

Package: Surgery

Routine: SRODELA


Information

SRODELA ;B'HAM ISC/MAM - REPORT OF DELAYED OPERATIONS; 5 Apr 1989 3:44 PM

Source Information

Source file <SRODELA.m>

Entry Points

Name Comments DBIA/ICR reference
SET ; set up variables and print
OPS
PRINT ;
HDR ; print heading
END
OTHER ; other operations
LOOP ; break procedure if greater than 50 characters
TIME ; set delay time
ASK
EN ;
1 ; entry when queued

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$E(DATE,4,5)_"/"_$E(DATE,6,7)_"/"_$E(DATE,2,3),?12,$E(PAT,1,18),?30,SROPS(1),?82,$P(SRDEL(1),"^",2),?99,$P(SRDEL(1),"^"),!,SRTN,?12,SERVICE,?30
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: SROPS(2)
  • Condition for execution: $D(SROPS(2))
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: ?82,$P(SRDEL(2),"^",2),?99,$P(SRDEL(2),"^")
  • Condition for execution: $D(SRDEL(2))
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,?30,SROPS(3)
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,?30,SROPS(4)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?30,SROPS(5)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?30,SROPS(5)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,!,?58,"SURGICAL SERVICE",?99,"REVIEWED BY: ",!,?52,"REPORT OF DELAYED OPERATIONS",?99,"DATE REVIEWED: "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?53,"FROM "_$E(SRSD,4,5)_"/"_$E(SRSD,6,7)_"/"_$E(SRSD,2,3)_" TO "_$E(SRED,4,5)_"/"_$E(SRED,6,7)_"/"_$E(SRED,2,3)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,?1,"DATE",?12,"PATIENT",?30,"OPERATION(S)",?82,"DELAY TIME",?99,"DELAY CAUSE",!,?1,"CASE #",?12,"SURGICAL SPECIALTY",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST)="P"
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format.",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: 1+5
Info |  Source |  Entry Points |  Interaction Calls