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

Package: Surgery

Routine: SROAT1P


Information

SROAT1P ;B'HAM ISC/MAM - ATTENDING SURGEON REPORT (CONT.) ; [ 05/11/04 11:29 AM ]

Source Information

Source file <SROAT1P.m>

Entry Points

Name Comments DBIA/ICR reference
MORE
CASE
SET ; print case
OPS
OTHER ; other operations
LOOP ; break procedure if greater than 55 characters
PAGE
HDR ; print heading
AT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: SROAT1P+7
Function Call: WRITE
  • Prompt: !!,SRDT,?12,VADM(1),?52,SRDIAG,?112,SRSUR,!,SRTN,?12,VA("PID"),?52,SROP(1),?112,SRFST,!
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: "ABORTED"
  • Condition for execution: $P($G(^SRF(SRTN,30)),"^")
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: ?12,SRCODE(1)
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: ?52,SROP(2)
  • Condition for execution: $D(SROP(2))
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: ?112,SRTWO
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: OPS+3
Function Call: WRITE
  • Prompt: ?13,SRCODE(2)
  • Condition for execution: $D(SRCODE(2))
  • Line Location: OPS+3
Function Call: WRITE
  • Prompt: ?50,SROP(3)
  • Condition for execution: $D(SROP(3))
  • Line Location: OPS+3
Function Call: WRITE
  • Prompt: !,?50,SROP(4)
  • Line Location: OPS+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: !!,"There are more cases for the date range listed. If you want to continue",!,"listing them, enter RETURN. Enter '^' to exit from this option."
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE: ",SRPAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?54,"ATTENDING SURGEON 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: !!,?3,"DATE",?12,"PATIENT",?52,"PRINCIPAL DIAGNOSIS",?112,"PRIMARY SURGEON",!,?2,"CASE #",?14,"ID#",?52,"PRINCIPAL OPERATIVE PROCEDURE",?112,"1ST ASST",!,?12,"ATTENDING/RES SUP CODE",?112,"2ND ASST",!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,?SRSSL,SRSS,!,?SRSSL,SRSS1
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,?X,SRATT1,!,?X,SRATT2
  • Line Location: AT+2
Info |  Source |  Entry Points |  Interaction Calls