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

Package: Surgery

Routine: SROCOMP


Information

SROCOMP ;BIR/MAM - VIEW OCCURRENCES ; [ 05/11/04 7:54 AM ]

Source Information

Source file <SROCOMP.m>

Entry Points

Name Comments DBIA/ICR reference
END
LOOP ; break procedure if greater than 55 characters
RET
HDR
INTRA ; intraop occurrences
POST ; postop occurrences
RELATE ; print related returns

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Date of Operation: ",?21,SRSDATE,!,"Principal Operation: ",?21,SROPS(1)
  • Line Location: SROCOMP+17
Function Call: WRITE
  • Prompt: !,?21,SROPS(2)
  • Line Location: SROCOMP+17
Function Call: WRITE
  • Prompt: !,?21,SROPS(2)
  • Line Location: SROCOMP+17
Function Call: WRITE
  • Prompt: !!,"Surgeon: ",?19,SRSUR,!,"Attending Surgeon: "_SRATT,!,"Attending Code: ",?16,SRATC
  • Line Location: SROCOMP+18
Function Call: WRITE
  • Prompt: !!,"Principal "_$S(DIAG="POST":"Postop",1:"Preop")_" Diagnosis: ",?30,SRDIAG
  • Line Location: SROCOMP+19
Function Call: WRITE
  • Prompt: "NONE ENTERED"
  • Line Location: SROCOMP+20
Function Call: WRITE
  • Prompt: "NONE ENTERED"
  • Line Location: SROCOMP+22
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RET+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to list more information, or '^' to leave this option."
  • Line Location: RET+1
Function Call: WRITE
  • Prompt: @IOF,!,SRNAME,?50,"OCCURRENCES",!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: CMP>1
  • Line Location: INTRA+2
Function Call: WRITE
  • Prompt: ?30,$P(INTRA(CMP),"^")
  • Line Location: INTRA+2
Function Call: WRITE
  • Prompt: !,?30,"Outcome: "_OUT
  • Line Location: INTRA+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: CMP>1
  • Line Location: POST+2
Function Call: WRITE
  • Prompt: ?30,$P(POST(CMP),"^")
  • Line Location: POST+2
Function Call: WRITE
  • Prompt: D
  • Line Location: POST+2
Function Call: WRITE
  • Prompt: !,?30,"Outcome: "_OUT
  • Line Location: POST+3
Function Call: WRITE
  • Prompt: !,SRSDATE,?10,SROPS(1)
  • Line Location: RELATE+4
Function Call: WRITE
  • Prompt: !,?10,SROPS(2)
  • Line Location: RELATE+4
Function Call: WRITE
  • Prompt: !,?10,SROPS(2)
  • Line Location: RELATE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: RELATE+5
Info |  Source |  Entry Points |  Interaction Calls