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

Package: Surgery

Routine: SRSCD


Information

SRSCD ;B'HAM ISC/MAM - SCHEDULE OF OPERATIONS (SCREEN FORMAT) ; [ 10/13/98 10:19 AM ]

Source Information

Source file <SRSCD.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Surgery 5 ^SROSTOP  ($$DIV,$$NODATA,$$ORDIV)^SROUTL0  ^SRSCDS  ^SRSCDW  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 ^%DT  ^DIC  D^DIQ  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SRSCD  

Entry Points

Name Comments DBIA/ICR reference
ALL ; entry when queued
END
ROOM ; sort by operating room
BEG
UTL ; set ^TMP("SR",$J)
ONE ; list scheduled cases for a specific room
WARD ; check for scheduled admission
ZTSAVE
PAGE
PRINT ; loop through ^TMP and print cases
DT
OUT ; output data
OR
LOOP ; break procedure if greater than 65 characters
HDR ; print heading

External References

Name Field # of Occurrence
^%DT DT
^%ZIS ROOM+4
^%ZISC END+2
^%ZTLOAD ROOM+4
^DIC ROOM+3
D^DIQ BEG+2, UTL+4
^SROSTOP HDR+1
$$DIV^SROUTL0 OR
$$NODATA^SROUTL0 ALL+2, ONE+1
$$ORDIV^SROUTL0 ALL+1
^SRSCDS BEG+2
^SRSCDW BEG+2
^SRSKILL END+2
DEM^VADPT UTL+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"List of Scheduled Operations:",!
  • Line Location: SRSCD+2
Function Call: READ
  • Timeout: DTIME
  • Variable: Z
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !!,"Enter 'O' to sort the schedule by operating room, 'S' to sort by specialty",!,"or 'W' to sort by ward."
  • Line Location: BEG+1
Function Call: READ
  • Timeout: DTIME
  • Variable: Z
  • Line Location: ROOM+1
Function Call: WRITE
  • Prompt: !!,"Enter 'NO' to list the scheduled operations for a specific operating room,",!,"or RETURN to list the scheduled cases for all rooms."
  • Line Location: ROOM+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: ROOM+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ROOM+4
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: ALL+2
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: ONE+1
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?20,"* Scheduled Operations for "_SROR_" *",!,?30,SRDATE,!!,"Start Time",?13,"Patient",?43,"Surgical Specialty",?67,"Ward Location",!,?13,"ID #",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,$P(SR,"^",5),?12,$P(SR,"^"),?43,$P(SR,"^",4),?67,$P(SR,"^",3),!,?12,$P(SR,"^",6),!,?12,SROPS(1)
  • Line Location: OUT+3
Function Call: WRITE
  • Prompt: !,?12,SROPS(2)
  • Line Location: OUT+3
Function Call: WRITE
  • Prompt: !,?12,SROPS(2)
  • Line Location: OUT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OUT+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: PAGE+0
Routine Call
  • DIC
  • Line Location:
    • ROOM+3
Routine Call
  • %ZIS
  • Line Location:
    • ROOM+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGS(41.1 - [#41.1] WARD+1
^DPT - [#2] UTL+2
^SC - [#44] ROOM+3, ALL+1
^SRF - [#130] OR, UTL+2
^SRF("AOR" ALL+1, OR
^SRO(137.45 - [#137.45] UTL+3
^SRS - [#131.7] ALL+1
^TMP("SR" ROOM+1!, ALL+2, ONE+1, END!, UTL+6*, PRINT+1, OUT+2

Label References

Name Line Occurrences
BEG BEG+1
END DT, BEG, ROOM+1, ROOM+3, ROOM+4, ALL+3
HDR ALL+2, ONE+1, UTL+1, PRINT+1, OUT+1
LOOP OUT+2
ONE ALL+1
OR ALL+1, ONE+1
OUT PRINT+1
PAGE UTL+1, PRINT+1, OUT+1
PRINT ALL+2, ONE+1
ROOM ROOM+2
UTL OR
WARD UTL+2
ZTSAVE ROOM+4

Naked Globals

Name Field # of Occurrence
^( UTL+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DT*
>> %DT("A" DT*
%ZIS ROOM+4!*
%ZIS("A" ROOM+4*
>> DFN UTL+2*, WARD+1
>> DIC ROOM+3*
>> DIC("S" ROOM+3*
>> DIC(0 ROOM+3*
DT WARD+1
DTIME BEG, ROOM+1, END+1, PAGE
IO ALL+1
IO("Q" ROOM+4!
IOF SRSCD+2, END, END+2, HDR+2
IOP ROOM+4!
IOSL UTL+1, OUT+1
IOST END, END+1, PAGE
>> LINE HDR+2*, OUT+4*
>> LOOP LOOP+1*
>> M LOOP+1, OUT+2*
MM LOOP+1*, OUT+2!
MMM LOOP+1*, OUT+2!
>> PDATE WARD+1*
>> PEND WARD+1*
POP ROOM+4!
>> SR OUT+2*, OUT+3
>> SRDATE BEG+2*, HDR+2
>> SRFIND UTL+4*
>> SRHALT HDR+1
>> SRNM UTL+2*, UTL+6
>> SROPER LOOP+1*, OUT+2*
SROPS OUT+2!
SROPS( LOOP+1*
SROPS(1 OUT+2*, OUT+3
SROPS(2 OUT+3
SROPS(3 OUT+3
>> SROR ROOM+1*, ROOM+3*, ALL+1*, HDR+2, OR, PRINT+1*, OUT+2
>> SROR("N" ROOM+1*, ROOM+3*, ALL+1*, UTL+6
>> SRQ DT*, ALL+1*, END+1, HDR+1*, OR, UTL+1, PRINT+1, OUT+1, PAGE*
>> SRSDATE DT*, BEG+2, OR
>> SRSITE("DIV" ALL+1
>> SRSOP UTL+2*, UTL+6
>> SRSS UTL+2*, UTL+3*, UTL+5*, UTL+6
>> SRSSN UTL+2*, UTL+6
>> SRST OR*, UTL+4, UTL+6, PRINT+1*, OUT+2
>> SRTIME UTL+4*, UTL+6
SRTN END+2!, OR*, UTL+2
>> SRWARD UTL+2*, UTL+6, WARD+1*, WARD+2*
>> SRZ ALL+1*, HDR+2*, UTL+1, PRINT+1*
>> VA("PID" UTL+2
>> VADM(1 UTL+2
>> X END+1*, PAGE*, WARD+1*, WARD+2
>> Y DT, BEG+2*, ROOM+3, UTL+4*
>> Z BEG*, BEG+1, BEG+2, ROOM+1*, ROOM+2*, ROOM+3, ALL+1
>> ZTDESC ROOM+4*
>> ZTQUEUED END, HDR+1
>> ZTREQ END*
>> ZTRTN ROOM+4*
>> ZTSAVE("SRDATE" ZTSAVE*
>> ZTSAVE("SROR" ZTSAVE*
>> ZTSAVE("SROR(""N"")" ZTSAVE*
>> ZTSAVE("SRQ" ZTSAVE*
>> ZTSAVE("SRSDATE" ZTSAVE*
>> ZTSAVE("SRSITE*" ZTSAVE*
>> ZTSAVE("Z" ZTSAVE*
>> ZTSTOP END
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All