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 |  Local Variables  | All
Print Page as PDF
Routine: SRONUR1

Package: Surgery

Routine: SRONUR1


Information

SRONUR1 ;B'HAM ISC/MAM - NURSE STAFF REPORT (ALL) ; [ 09/22/98 11:36 AM ]

Source Information

Source file <SRONUR1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Surgery 4 ^SROSTOP  DATE^SROUTL  $$DIV^SROUTL0  MINS^SRSUTL2  
Kernel 2 ^%ZIS  ^%ZTLOAD  
Registration 1 DEM^VADPT  
VA FileMan 1 D^DIQ  

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

Package Total Caller Graph
Surgery 1 SRONUR  

Entry Points

Name Comments DBIA/ICR reference
DATE
SET ; set variables
OPS
PRINT ; print information
OTHER ; other operations
LOOP ; break procedure if greater than 50 characters
HDR ; print heading
PAGE
BEG ; entry when queued

External References

Name Field # of Occurrence
^%ZIS DATE+1
^%ZTLOAD DATE+2
D^DIQ OPS+3, OPS+4
^SROSTOP HDR+1
DATE^SROUTL DATE
$$DIV^SROUTL0 BEG+3
MINS^SRSUTL2 OPS+2
DEM^VADPT SET+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format.",!
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !!,SROD,?9,SRNM,?35,SROPS(1),?87,$E(SCRUB(1),1,18),?106,$E(CIRC(1),1,18),?125,SRTI
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,SRTN,?9,VA("PID")
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?35,SROPS(2)
  • Condition for execution: $D(SROPS(2))
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?87,$E(SCRUB(2),1,18)
  • Condition for execution: $D(SCRUB(2))
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?106,$E(CIRC(2),1,18)
  • Condition for execution: $D(CIRC(2))
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?125,SRTO
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?35,SROPS(3)
  • Condition for execution: $D(SROPS(3))
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?87,$E(SCRUB(3),1,18)
  • Condition for execution: $D(SCRUB(3))
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?106,$E(CIRC(3),1,18)
  • Condition for execution: $D(CIRC(3))
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?125,SRET
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?35,SROPS(4)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?87,$E(SCRUB(4),1,18)
  • Condition for execution: $D(SCRUB(4))
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?106,$E(CIRC(4),1,18)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?87,$E(SCRUB(I),1,18)
  • Condition for execution: $D(SCRUB(I))
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?106,$E(CIRC(I),1,18)
  • Condition for execution: $D(CIRC(I))
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE: "_PAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?51,"SURGICAL NURSE STAFFING REPORT",?100,"DATE REVIEWED: "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"DATE",?10,"PATIENT",?35,"OPERATION(S)",?87,"SCRUB NURSE",?105,"CIRC. NURSE",?122,"TIME IN",!,"CASE #",?12,"ID#",?122,"TIME OUT",!,?118,"ELAPSED (MINS)",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+0
Routine Call
  • %ZIS
  • Line Location:
    • DATE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" BEG+2
^SRF - [#130] SET+2, SET+4, SET+5, OPSOPS+2, OTHER+1, OTHER+2, BEG+3
^SRF("AC" BEG+3
^VA(200 - [#200] SET+4, SET+5

Label References

Name Line Occurrences
BEG DATE+3
HDR PAGE+1, BEG+2
LOOP OPS+1
OTHER OPS
PAGE SET+1
SET BEG+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DATE+1!*
%ZIS("A" DATE+1*
CIRC SET+5!*
CIRC( SET+5*, PRINT+5
CIRC(1 SET+5*, PRINT+1
CIRC(2 PRINT+2
CIRC(3 PRINT+3
CIRC(4 PRINT+4
>> CNT SET+4*, SET+5*
>> DFN SET+2*
DT BEG+2
DTIME PAGE
>> I SET+4*, SET+5*, OPS*, PRINT+5*, HDR+4*
IO BEG+1
IO("Q" DATE+1!, DATE+2!
IOF HDR+2, BEG+4
IOM HDR+4
IOP DATE+1!
IOSL SET+1
IOST PAGEBEG+4
>> LOOP LOOP+1*
>> M OPS+1*, LOOP+1
MM OPS+1!, LOOP+1*
MMM OPS+1!, LOOP+1*
>> MORE PRINT+4*, PRINT+5
>> OP OPS*, OTHER+1*, OTHER+2
>> PAGE HDR+2, HDR+5*, BEG+1*
POP DATE+1!
SCRUB SET+4!*
SCRUB( SET+4*, PRINT+5
SCRUB(1 SET+4*, PRINT+1
SCRUB(2 PRINT+2
SCRUB(3 PRINT+3
SCRUB(4 PRINT+4
>> SR( OPS+2*
>> SR(0 SET+2*, SET+3
>> SRED DATEBEG+1, BEG+2
>> SREDT BEG+1*, BEG+3
>> SRET OPS+2*, OPS+5*, PRINT+3
>> SRFIND OPS+3*, OPS+4*
SRFRTO HDR+3, BEG+1~, BEG+2*
>> SRHALT HDR+1
>> SRINST HDR+2
>> SRLONG OTHER+1*, OTHER+2
>> SRNM SET+2*, PRINT+1
>> SROD SET+3*, PRINT+1
>> SROPER OPS*, OPS+1*, OTHER+1, OTHER+3*, LOOP+1*
>> SROPERS OTHER+1*, OTHER+2*, OTHER+3
SROPS OPS+1!
SROPS( LOOP+1*
SROPS(1 OPS+1*, PRINT+1
SROPS(2 PRINT+2
SROPS(3 PRINT+3
SROPS(4 PRINT+4
>> SRPRINT HDR+3, BEG+2*
>> SRSD DATEBEG+1, BEG+2
>> SRSDT BEG+1*, BEG+3*
>> SRSOUT DATEDATE+1*, SET+1, HDR+1*, PAGE*, BEG+1*, BEG+3
>> SRTI OPS+2*, OPS+3*, OPS+5*, PRINT+1
>> SRTN SET+2, SET+4, SET+5, OPSOPS+2, PRINT+2, OTHER+1, OTHER+2, BEG+3*
>> SRTO OPS+2*, OPS+4*, PRINT+2
>> SSN SET+2*
>> SX SET+5*
>> VA("PID" SET+2, PRINT+2
>> VADM(1 SET+2
>> X SET+4*, SET+5*, OPS+2*, PAGE*
>> X1 OPS+2*
>> Y OPS+3*, OPS+4*, BEG+2*
>> ZTDESC DATE+2*
>> ZTQUEUED HDR+1, BEG+4
>> ZTREQ BEG+4*
>> ZTRTN DATE+2*
>> ZTSAVE("SRED*" DATE+2*
>> ZTSAVE("SRINST" DATE+2*
>> ZTSAVE("SRSD*" DATE+2*
>> ZTSAVE("SRSITE*" DATE+2*
>> ZTSTOP BEG+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All