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

Package: Surgery

Routine: SROINQ


Information

SROINQ ;B'HAM ISC/MAM - OPERATION INQUIRY ; [ 07/20/04 12:44 PM ]

Source Information

Source file <SROINQ.m>

Entry Points

Name Comments DBIA/ICR reference
ANES
TIME
OPS
ICD9
PRINT ; print inquiry
END
OTHER ; other operations
LOOP ; break procedure if greater than 75 characters
AGT
AGENT ; anesthesia agents

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"OPERATION NOT SELECTED !",!
  • Line Location: SROINQ+5
Function Call: WRITE
  • Prompt: @IOF,!,SRLINE,!,"Patient: "_SRTNM,?50,"Operation Date: "_$P(SRSDATE,"@"),!,"Primary Surgeon: "_SRSUR
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,"Attending Surgeon: "_SRATT,?50,"Operation Time: "_SRTIME
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: " Minutes",!,"Attending/Res Sup Code: "_SRATCD,!,SRLINE
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"Operation(s): ",!,SROPS(1)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,SROPS(2)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,SROPS(2)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,SROPS(2)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,SROPS(2)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?4,SRICD(I)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,SRLINE,!,"Anesthesia Technique: ",?47,"Anesthetist: ",SRANE
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: Y
  • Condition for execution: Y]""
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,SRLINE,!,"Wound Classification: ",SRTCC,!,"Intraoperative Blood Loss: ",SRTBL,$S(SRTBL]"":" CC'S",1:""),!,SRLINE
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !!!,"Press RETURN to continue "
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !,?6,SRANE(I,T)
  • Line Location: AGT+0
Info |  Source |  Entry Points |  Interaction Calls