Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Surgery 5 ^SROSCH  ^SROSCH2  ^SROSTOP  ^SROVAR  ^SRSKILL  
VA FileMan 4 (,DD)^%DT  NOW^%DTC  D^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Surgery 2 SROSCH  SROSCH2  

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

External References

Name Field # of Occurrence
^%DT EN+1
DD^%DT HDR+4
NOW^%DTC HDR+4
^%ZIS EN+4
^%ZISC END
^%ZTLOAD EN+5
D^DIQ EN+1, DIQ+1, DIQ+2, TIME+1, TIME+2
^DIR FORM+1
^SROSCH EN+6
^SROSCH2 EN+3
^SROSTOP HDR+1
^SROVAR EN
^SRSKILL END

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
Routine Call
  • DIR
  • Line Location:
    • FORM+1
Routine Call
  • %ZIS
  • Line Location:
    • EN+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] CON+1, TIME+1, OUT+1, OUT+2
^SRO(133 - [#133] ALL+1

Label References

Name Line Occurrences
ALL EN+2, ALL+5
END EN+2, EN+3, EN+4, EN+5
FORM EN+3
HDR ASK+1
LOOP CON+1

Naked Globals

Name Field # of Occurrence
^( OUT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % HDR+4
%DT EN+1*!
%DT("A" EN+1*
%ZIS EN+4!*
%ZIS("A" EN+4*
DIR FORM+1!
DIR("A" FORM+1*
DIR("B" FORM+1*
DIR(0 FORM+1*
DTIME EN+3, ASK, ALL+2, ALL+5
>> DTOUT FORM+1
>> DUOUT FORM+1
IO("Q" EN+4!, EN+5!
IOF EN, EN+1, END, HDR+2, ALL+2
IOP EN+4!
IOST ASK
>> LINE HDR+6*
>> LOOP LOOP+1*
>> M LOOP+1, CON+1*
MM LOOP+1*, CON+1!
MMM LOOP+1*, CON+1!
POP EN+4!
>> S(31 TIME+1*, TIME+2
>> SRCHF HDR+3
>> SRCON CON+1, CON+2
>> SRDT EN+1*
>> SRDT1 EN+1*, HDR+4
>> SRET DIQ+2*
>> SRFIND DIQ+1*, DIQ+2*, TIME+1*, TIME+2*
>> SRFORM EN+3, FORM+1*, FORM+2*
>> SRHALT HDR+1
>> SRINST HDR+2
>> SROOM ASK+1
>> SROPER LOOP+1*, CON+1*
SROPS CON+1!
SROPS( LOOP+1*
SROPS(1 CON+1*, CON+2
SROPS(2 CON+2
SROPS(3 CON+2
>> SRPAGE HDR+2, HDR+7*
>> SRQ ASK*, HDR+1*
>> SRSET TIME+2*
>> SRSITE EN, ALL+1
>> SRSLOC OUT+1*, OUT+2*
>> SRSST TIME+1*
>> SRST DIQ+1*
>> SRTN TIME+1, OUT+1, OUT+2
>> SRYN EN+2, EN+3, ALL+1*, ALL+2*, ALL+3*, ALL+4, ALL+5
>> SX ASK+1
>> X EN+3*, ALL+5*
>> Y EN+1, HDR+4*, DIQ+1*, DIQ+2*, TIME+1*, TIME+2*, FORM+2
>> Z ASK*
>> ZTDESC EN+5*
>> ZTQUEUED HDR+1
>> ZTRTN EN+5*
>> ZTSAVE("SRDT" EN+5*
>> ZTSAVE("SRDT1" EN+5*
>> ZTSAVE("SRFORM" EN+5*
>> ZTSAVE("SRSITE*" EN+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All