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

Package: Surgery

Routine: SROSCH1


Information

SROSCH1 ;B'HAM ISC/MAM - OR SCHEDULE ; [ 09/22/98 11:49 AM ]

Source Information

Source file <SROSCH1.m>

Entry Points

Name Comments DBIA/ICR reference
EN
END
ASK
LOOP ; break procedure if greater than 70 characters
HDR ; print heading
CON ; print concurrent procedure
DIQ ; extract time from date
TIME ; start and finish times
ALL ; print to all locations ?
OUT ; outpatient ?
FORM ; short/long report

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"Schedule will be queued to print at all locations defined in the SURGERY",!,"SITE PARAMETERS file...."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format.",!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: READ
  • Variable: Z
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,?1,"OPERATING ROOM: "_SROOM,!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,?123,$J("PAGE "_SRPAGE,8)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?58,"SURGICAL SERVICE",!,?55,"SCHEDULE OF OPERATIONS",?90,"SIGNATURE OF CHIEF: ",SRCHF,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "PRINTED: ",$P(Y,"@")_" "_$E($P(Y,"@",2),1,5),?58,"FOR: ",SRDT1,?110,"____________________"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!!,"PATIENT",?23,"DISPOSITION",?40,"PREOPERATIVE DIAGNOSIS",?92,"REQ ANESTHESIA"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?116,"PRIMARY SURGEON",!,"ID#",?15,"AGE",?23,"START TIME",?40,"OPERATION(S)",?92,"ANESTHESIOLOGIST",?115,"FIRST ASST.",!,"WARD",?24,"END TIME",?92,"PRIN. ANESTHETIST",?115,"ATT SURGEON",!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?26,"** Concurrent Case #"_SRCON,?53,SROPS(1)
  • Line Location: CON+2
Function Call: WRITE
  • Prompt: !,?53,SROPS(2)
  • Line Location: CON+2
Function Call: WRITE
  • Prompt: !,?53,SROPS(2)
  • Line Location: CON+2
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: ALL+2
Function Call: WRITE
  • Prompt: !!,"Enter RETURN to select a specific printer, or 'YES' to print the Schedule of",!,"Operations on all of the printers specified in your SURGERY SITE",!,"PARAMETERS file."
  • Line Location: ALL+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ALL+5
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: ALL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: FORM+1
Info |  Source |  Entry Points |  Interaction Calls