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

Package: Surgery

Routine: SRSCDW1


Information

SRSCDW1 ;B'HAM ISC/MAM - SCHEDULED OPERATIONS BY WARD ; [ 07/27/98 2:33 PM ]

Source Information

Source file <SRSCDW1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Surgery 3 ^SROSTOP  ($$NODATA,$$ORDIV)^SROUTL0  ^SRSKILL  
Registration 1 DEM^VADPT  
VA FileMan 1 D^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SRSCDW  

Entry Points

Name Comments DBIA/ICR reference
END
HDR ; print heading
UTL ; set ^TMP("SR",$J)
PAGE
SRW ; entry when queued
PRINT ; loop through ^TMP and print cases
WARD ; check for scheduled admission
OUT ; output data
OR
LOOP ; break procedure if greater than 65 characters
ZTSAVE

External References

Name Field # of Occurrence
^%ZIS SRSCDW1+2
^%ZISC END+2
^%ZTLOAD SRSCDW1+3
D^DIQ SRW+1, UTL+4
^SROSTOP HDR+1
$$NODATA^SROUTL0 OR+2
$$ORDIV^SROUTL0 OR
^SRSKILL END+2
DEM^VADPT UTL+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SRSCDW1+2
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: OR+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
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 "_SRWARD_" *",!,?30,SRDATE,!!,"Start Time",?12,"Patient",?45,"Operating Room",!,?12,"ID #",?45,"Speciality",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,$P(SR,"^",4),?12,$P(SR,"^"),?45,SROR,!,?12,$P(SR,"^",5),?45,$P(SR,"^",3),!,?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
  • %ZIS
  • Line Location:
    • SRSCDW1+2

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
END SRSCDW1+2, SRSCDW1+3
HDR OR+2, PRINT+2, OUT+1
LOOP OUT+2
OUT PRINT+2
PAGE PRINT+2, OUT+1
PRINT OR+1
UTL OR
WARD UTL+1

Naked Globals

Name Field # of Occurrence
^( UTL+1
^(31 OR

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS SRSCDW1+2!*
%ZIS("A" SRSCDW1+2*
>> DFN UTL+1*, WARD+1
DT ZTSAVE, WARD+1
DTIME END, PAGE
IO SRW+1
IO("Q" SRSCDW1+2!, SRSCDW1+3!
IOF END+1, END+2, HDR+2
IOP SRSCDW1+2!
IOSL 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 SRSCDW1+2!
>> SR OUT+2*, OUT+3
>> SRDATE SRW+1*, HDR+2
>> SRFIND UTL+4*
>> SRHALT HDR+1
>> SRNM UTL+1*, 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 SRW+1*, OR*, UTL+2, PRINT+1*, PRINT+2*, OUT+2, OUT+3
>> SROR("N" UTL+2*, UTL+6
>> SRQ SRW+1*, OR, END, HDR+1*, PRINT+2, OUT+1, PAGE*
>> SRS ZTSAVE
>> SRSDATE SRW+1, OR
>> SRSITE("DIV" OR
>> SRSOP UTL+1*, UTL+6
>> SRSS UTL+1*, UTL+3*, UTL+5*, UTL+6
>> SRSSN UTL+1*, UTL+6
>> SRST OR*, UTL+4, UTL+6, PRINT+1*, PRINT+2*, OUT+2
>> SRTIME UTL+4*, UTL+6
SRTN SRW+1*, OR*, END+2!, UTL+1
>> SRW SRW+1*
>> SRW("N" ZTSAVE
>> SRWARD HDR+2, UTL+1*, UTL+6, PRINT+1*, PRINT+2*, OUT+2, WARD+1*, WARD+2*
>> SRZ HDR+2*, PRINT+1*, PRINT+2
>> VA("PID" UTL+1
>> VADM(1 UTL+1
>> X END*, PAGE*, WARD+1*, WARD+2
>> Y SRW+1*, UTL+4*
>> ZTDESC SRSCDW1+3*
>> ZTQUEUED END+1, HDR+1
>> ZTREQ END+1*
>> ZTRTN SRSCDW1+3*
>> ZTSAVE("DT" ZTSAVE*
>> ZTSAVE("SRSDATE" SRSCDW1+3*
>> ZTSAVE("SRSITE*" SRSCDW1+3*, ZTSAVE*
>> ZTSAVE("SRW" ZTSAVE*
>> ZTSAVE("SRW(""N"")" ZTSAVE*
>> ZTSTOP END+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All