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

Package: Surgery

Routine: SROADOC1


Information

SROADOC1 ;B'HAM ISC/MAM - ANESTHESIA PROV REPORT (CONT); [ 09/07/00 11:24 AM ]

Source Information

Source file <SROADOC1.m>

Entry Points

Name Comments DBIA/ICR reference
SET ; set and print results
TECH
ASA
OPS
PRINT ; print results
HDR
PAGE
END
OTHER ; other operations
AGENT
PR
LOOP ; break procedure name if greater than 50 characters

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E(SRSDATE,4,5)_"/"_$E(SRSDATE,6,7)_"/"_$E(SRSDATE,2,3),?10,$P(SRDPT,",")_", "_$E($P(SRDPT,",",2)),?26,SROPS(1),?76,SRSUP,?93,SRASA,?124,SRCODE
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,SRTN,?10,VA("PID")
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?26,SROPS(2)
  • Condition for execution: $D(SROPS(2))
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?76,SRREL,?93,$E(SRTECH,1,20),?120,SRANT_$S(SRANT:" MINS.",1:"")
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: "NON-O.R."
  • Condition for execution: $P($G(^SRF(SRTN,"NON")),"^")="Y"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?26,SROPS(3)
  • Condition for execution: $D(SROPS(3))
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?76,SRASS,?93,SRAGNT,!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?26,SROPS(4),!
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?26,SROPS(5),!
  • Condition for execution: $D(SROPS(5))
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?26,SROPS(6),!
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE: "_PAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY:",!,?53,"ANESTHESIA PROVIDER REPORT",?100,"DATE REVIEWED:"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,"DATE PRINTED: "_SRPRINT
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"DATE",?10,"PATIENT",?26,"PROCEDURE(S)",?77,"SUPERVISOR",?96,"ASA CLASS",?111,"LEVEL OF SUPERVISION",!,"CASE #",?12,"ID#",?76,"RELIEF ANESTH",?92,"PRINCIPAL TECHNIQUE",?113,"ELAPSED ANES TIME",!,?76,"ASST ANESTH"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?93,"ANESTHESIA AGENT",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,?2,"***** "_PRIN_" *****",!
  • Line Location: HDR+5
Function Call: READ
  • Variable: ASK
  • Timeout: DTIME
  • Line Location: PAGE+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PR+3
Info |  Source |  Entry Points |  Interaction Calls