Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: SROSNR1

Package: Surgery

Routine: SROSNR1


Information

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

Source Information

Source file <SROSNR1.m>

Entry Points

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

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: !,?53,"SCRUB NURSE STAFFING REPORT",?100,"DATE REVIEWED:",!,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT
  • Line Location: HDR+3
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+4
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,?(132-$L("** "_NURSE_" **")\2),"** "_NURSE_" **"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: BEG+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+0
Info |  Source |  Entry Points |  Interaction Calls