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

Package: Surgery

Routine: SRODIS


Information

SRODIS ;BIR/ADM - LIST OF OPERATIONS BY DISPOSITION ; [ 09/22/98 11:33 AM ]

Source Information

Source file <SRODIS.m>

Entry Points

Name Comments DBIA/ICR reference
BEG
DATE
DISP
TYPE
SORT
SER
DEVICE
SP
MORE ; more specialties?
END
RET
HDR ; print heading

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"List of Operations by Postoperative Disposition:",!!
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: @IOF,!,"Print the List of Operations for which of the following ?",!!,?10,"1. All Dispositions",!,?10,"2. A Specific Disposition",!,?10,"3. No Disposition Entered",!
  • Line Location: DISP+0
Function Call: WRITE
  • Prompt: !
  • Line Location: TYPE+0
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: SORT+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN to sort the report by surgical specialty, or 'N' to not sort",!,"by surgical specialty."
  • Line Location: SORT+2
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: SER+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN to print the report for all surgical specialties, or 'N' to print",!,"the report for a specific specialty."
  • Line Location: SER+2
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format.",!
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SP+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
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 continue with the List of Surgical Cases sorted by Postop",!,"Disposition, or '^' if you do not want to review any additional information."
  • Line Location: RET+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,?126,"PAGE",!,?58,"SURGICAL SERVICE",?127,$J(PAGE,3)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?46,"LIST OF OPERATIONS BY POSTOP DISPOSITION",?100,SRPRINT
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,"REVIEWED BY:"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,?(132-$L(SRTP)\2),SRTP,?100,"DATE REVIEWED:"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,?100,"DATE REVIEWED:"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!,"DATE",?13,"PATIENT",?38,"OPERATION(S)",?90,"PRIMARY SURGEON",?114,"ANESTHESIA TECH",!,"CASE #",?15,"ID#",?90,"1ST ASST",?114,"IN/OUT-PAT STATUS",!,?90,"2ND ASST",?114,"OP TIME"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,?(132-$L(">> "_SRSPEC_" <<")\2),">> "_SRSPEC_" <<",!
  • Line Location: HDR+10
Info |  Source |  Entry Points |  Interaction Calls