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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SRSCHAP

Package: Surgery

Routine: SRSCHAP


Information

SRSCHAP ;B'HAM ISC/MAM - CHAPLAIN'S LIST OF SCHEDULED CASES ; [ 02/19/98 12:29 PM ]

Source Information

Source file <SRSCHAP.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Surgery 2 ^SROSTOP  ^SRSKILL  
VA Fileman 2 ^%DT  D^DIQ  
Registration 1 DEM^VADPT  

Entry Points

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

External References

Name Field # of Occurrence
^%DT DT
^%ZIS DT+1
^%ZISC END+3
^%ZTLOAD DT+1
D^DIQ OUT+7
^SROSTOP HDR+1
^SRSKILL END+3
DEM^VADPT UTIL+1, OUT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: PAGE+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?20,"* Scheduled Operations for "_SREL_" *",!,?30,SRDATE,!!,"Start Time",?13,"Patient",?43,"Surgical Specialty",?67,"Ward Location",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,SRSST,?12,SRNAME,?43,SRSS,?67,SRWARD,!,?12,SROP(1)
  • Line Location: OUT+9
Function Call: WRITE
  • Prompt: !,?12,SROP(2)
  • Line Location: OUT+9
Function Call: WRITE
  • Prompt: !,?12,SROP(2)
  • Line Location: OUT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+10
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OUT+10
Routine Call
  • %ZIS
  • Line Location:
    • DT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+1
^DGS(41.1 - [#41.1] WARD+1
^DPT - [#2] OUT+6
^SRF - [#130] EN+1, UTIL+1, OUT+3, OUT+8
^SRF("AOR" EN+1
^SRO(137.45 - [#137.45] OUT+4
^TMP("SR" EN+2!, UTIL+2*, PRINT+2

Label References

Name Line Occurrences
END DT, DT+1
HDR OUT+1
LOOP OUT+8
OUT PRINT+2
PAGE PRINT+2, OUT+2
PRINT EN+2
UTIL EN+1
WARD OUT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DT*
>> %DT("A" DT*
%ZIS DT+1!*
%ZIS("A" DT+1*
>> DFN UTIL+1*, OUT+3*, OUT+6, WARD+1
DT WARD+1
DTIME END+2, PAGE
IO EN+1
IO("Q" DT+1!
IOF EN+2, END+3, HDR+2
IOP DT+1!
IOSL OUT+2
IOST EN+2, END+1, PAGE
>> LINE HDR+2*, OUT+10*
>> LOOP LOOP+1*
>> M LOOP+1, OUT+8*
MM LOOP+1*, OUT+8!
MMM LOOP+1*, OUT+8!
>> PDATE WARD+1*
>> PEND WARD+1*
POP DT+1!
>> SRDATE HDR+2, PRINT+1*
>> SREL HDR+2, UTIL+1*, UTIL+2, PRINT+1*, PRINT+2*
>> SRF(0 OUT+3*, OUT+4
>> SRHALT HDR+1
>> SRHDR PAGE, PRINT+1*, PRINT+2, OUT+1*
>> SRNAME OUT+3*, OUT+9
SROP OUT+8!
SROP( LOOP+1*
SROP(1 OUT+8*, OUT+9
SROP(2 OUT+9
SROP(3 OUT+9
>> SROPER LOOP+1*, OUT+8*
>> SROR EN+1*
>> SRPRINT END+1*, END+2
>> SRSDATE DT*, DT+1, EN+1, PRINT+1
>> SRSOUT DT*, EN+1*, END+2, PAGE*, HDR+1*, PRINT+2, OUT+1, OUT+2
>> SRSS OUT+4*, OUT+5*, OUT+9
>> SRSST OUT+7*, OUT+9
>> SRST EN+1*, UTIL+2, PRINT+2*, OUT+7
SRTN EN+1*, END+3!, UTIL+1, UTIL+2, PRINT+2*, OUT+3, OUT+8
>> SRWARD OUT+6*, OUT+9, WARD+1*, WARD+2*
>> VADM(1 OUT+3
>> VADM(9 UTIL+1
>> X END+2*, PAGE*, WARD+1*, WARD+2
>> Y DT, PRINT+1*, OUT+7*
>> ZTDESC DT+1*
>> ZTQUEUED EN+2, HDR+1
>> ZTREQ EN+2*
>> ZTRTN DT+1*
>> ZTSAVE("SRSDATE" DT+1*
>> ZTSTOP EN+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All