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 Total: 11

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Surgery 2 SROSCH  SROSCH2  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"Schedule will be queued to print at all locations defined in the SURGERY",!,"SITE PARAMETERS file...."
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: READ
  • Timeout: DTIME
  • Variable: Z
  • 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,"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
  • Timeout: DTIME
  • Variable: SRYN
  • 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
  • Timeout: DTIME
  • Variable: X
  • Line Location: ALL+5
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: ALL+5
Routine Call
  • %ZIS
  • Line Location:
    • EN+3

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
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+3!*
%ZIS("A" EN+3*
DTIME EN+2, ASK, ALL+2, ALL+5
IO("Q" EN+3!, EN+4!
IOF EN, EN+1, END, HDR+2, ALL+2
IOP EN+3!
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+3!
>> 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*
>> 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, ALL+1*, ALL+2*, ALL+3*, ALL+4, ALL+5
>> SX ASK+1
>> X EN+2*, ALL+5*
>> Y EN+1, HDR+4*, DIQ+1*, DIQ+2*, TIME+1*, TIME+2*
>> Z ASK*
>> ZTDESC EN+4*
>> ZTQUEUED HDR+1
>> ZTRTN EN+4*
>> ZTSAVE("SRDT" EN+4*
>> ZTSAVE("SRDT1" EN+4*
>> ZTSAVE("SRSITE*" EN+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All