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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SROWC2

Package: Surgery

Routine: SROWC2


Information

SROWC2 ;B'HAM ISC/ADM - WOUND CLASSIFICATION REPORT (CONT.) ; [ 07/27/98 2:33 PM ]

Source Information

Source file <SROWC2.m>

Entry Points

Name Comments DBIA/ICR reference
SPEC
UTIL ; set ^TMP
CASE ; print individual cases
OPS ; print operations
LOOP ; break procedure if greater than 59 characters
HDR ; print heading
END
CLIST ; get list of wound class codes

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No data for selected date range."
  • Line Location: SROWC2+6
Function Call: WRITE
  • Prompt: !,SRSDATE,?18,SRNM,?50,SRSUR,!,SRCASE,?18,VA("PID"),!
  • Line Location: CASE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: CASE+7
Function Call: WRITE
  • Prompt: "-"
  • Line Location: CASE+8
Function Call: WRITE
  • Prompt: ?18,SROPS(1)
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: !,?18,SROPS(2)
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: !,?18,SROPS(2)
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: !,?18,SROPS(2)
  • Line Location: OPS+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?17,"List of Surgical Cases by Wound Classification",?75,"Page:"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?(80-$L(SRFRTO)\2),SRFRTO,?77,PAGE
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?(80-$L(SRWD)\2),SRWD,!,SRPRINT
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,"Operation Date",?18,"Patient",?50,"Surgeon/Provider",!,"Case #",?18,"ID #",!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?(80-$L(">> "_SRSPEC_" <<")\2),">> "_SRSPEC_" <<",!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] HELP^DIE
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call