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

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

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
Info |  Source |  Entry Points |  Interaction Calls