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

Package: Surgery

Routine: SROCNR1


Information

SROCNR1 ;B'HAM ISC/MAM - CIRC NURSE REPORT (ALL) ; [ 07/27/98 2:33 PM ]

Source Information

Source file <SROCNR1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Surgery 3 ^SROSTOP  ($$DIV,$$NODATA)^SROUTL0  MINS^SRSUTL2  
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 SROCNR  

Entry Points

Name Comments DBIA/ICR reference
SET ; set variables
OPS
PRINT ; print information
HDR ; print heading
BEG ; entry when queued
NUR
SRTN ; continue looping
PAGE
LOOP ; break procedure if greater than 50 characters
OTHER ; other operations
UTL ; set ^TMP(

External References

Name Field # of Occurrence
D^DIQ OPS+3, OPS+4
^SROSTOP HDR+1
$$DIV^SROUTL0 BEG+2
$$NODATA^SROUTL0 BEG+6
MINS^SRSUTL2 OPS+2
DEM^VADPT SET+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,SRSDATE,?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: ?126,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)
  • Condition for execution: $D(CIRC(4))
  • 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:"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?49,"CIRCULATING NURSE STAFFING REPORT",?100,"DATE REVIEWED:"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"DATE",?11,"PATIENT",?40,"OPERATION(S)",?87,"SCRUB NURSE",?106,"CIRC. NURSE",?122,"TIME IN",!,"CASE #",?13,"ID#",?122,"TIME OUT",!,?118,"ELAPSED (MINS)",!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: BEG+6
Function Call: WRITE
  • Prompt: !!,?(132-$L("** "_NURSE_" **")\2),"** "_NURSE_" **"
  • Line Location: NUR+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+0

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
HDR BEG+4, PAGE+1
LOOP OPS+1
NUR HDR+6, BEG+5
OTHER OPS
PAGE SET+1, NUR
SET SRTN+1
SRTN BEG+5
UTL BEG+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
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*
DTIME PAGE
>> I SET+4*, SET+5*, OPS*, PRINT+5*, HDR+5*
IO BEG+1
IOF HDR+2
IOSL SET+1, NUR
IOST PAGE
>> LOOP LOOP+1*
>> M OPS+1*, LOOP+1
MM OPS+1!, LOOP+1*
MMM OPS+1!, LOOP+1*
>> MORE PRINT+4*, PRINT+5
NURSE HDR+6, BEG+3*, BEG+4!*, BEG+5*, NURSRTN+1, UTL+1
>> OP OPS*, OTHER+1*, OTHER+2
>> PAGE HDR+2, HDR+6*, BEG+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*
>> SRED BEG+1
>> SREDT BEG+1*, BEG+2
>> SRET OPS+2*, OPS+5*, PRINT+3
>> SRFIND OPS+3*, OPS+4*
>> SRFRTO HDR+4
>> SRHALT HDR+1
>> SRINST HDR+2, BEG+1*
>> SRLONG OTHER+1*, OTHER+2
>> SRN HDR+6*, BEG+5*, NUR*
>> SRNM SET+3*, PRINT+1
>> SRNUR UTL+1*, UTL+2
>> SROPER OPS*, OPS+1*, LOOP+1*, OTHER+1, OTHER+3*
>> 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+4
>> SRSD BEG+1
>> SRSDATE SET+2*, PRINT+1
>> SRSDT BEG+1*, BEG+2*, BEG+5*, SRTN+1, UTL+2
>> SRSITE("SITE" BEG+1
>> SRSOUT SET+1, HDR+1*, BEG+1*, BEG+5, NURSRTN+1, PAGE*
>> SRTI OPS+2*, OPS+3*, OPS+5*, PRINT+1
>> SRTN SET+2, SET+4, SET+5, OPSOPS+2, PRINT+2, BEG+2*, BEG+3, SRTN+1*, OTHER+1
OTHER+2, UTL+1, UTL+2
>> SRTO OPS+2*, OPS+4*, PRINT+2
>> SSN SET+3*
>> SX SET+5*
>> VA("PID" SET+3, PRINT+2
>> VADM(1 SET+3
>> X SET+4*, SET+5*, OPS+2*, PAGE*
>> X1 OPS+2*
>> Y OPS+3*, OPS+4*
>> ZTQUEUED HDR+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All