Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SROWC

Package: Surgery

Routine: SROWC


Information

SROWC ;B'HAM ISC/ADM - WOUND CLASSIFICATION REPORT ; [ 09/22/98 11:36 AM ]

Source Information

Source file <SROWC.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Surgery 4 DATE^SROUTL  $$INST^SROUTL0  ^SROWC1  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 ^DIC  HELP^DIE  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROWC  

Entry Points

Name Comments DBIA/ICR reference
DATE
RPT
SPEC
DEVICE
SP
MORE ; ask for more surgical specialties
END
HELP
CLASS
CLIST ; get list of wound classifications

External References

Name Field # of Occurrence
^%ZIS DEVICE
^%ZISC END+1
^%ZTLOAD DEVICE+1
^DIC SP, MORE+1
HELP^DIE CLIST+1
^DIR CLASS+5
DATE^SROUTL DATE
$$INST^SROUTL0 DATE+1
^SROWC1 DEVICE+2
^SRSKILL END+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Wound Classification Report",!
  • Line Location: SROWC+3
Function Call: WRITE
  • Prompt: @IOF,!,"Print which of the following ?",!!,"1. Wound Classification Report (Summary)",!,"2. List of Operations by Wound Classification",!,"3. Clean Wound Infection Summary"
  • Line Location: RPT+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RPT+1
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: SPEC+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN to print this report for all surgical specialties, or 'NO' to",!,"select a specific specialty."
  • Line Location: SPEC+2
Function Call: WRITE
  • Prompt: !
  • 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: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"Enter '1' or press RETURN to print the Wound Classification Report",!,"which summarizes wound classifications entered for surgical cases performed"
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,"during the selected date range. Enter '2' to print the list of operations",!,"sorted by wound classification and by surgical specialty performed during",!,"the selected date range. "
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: "Enter '3' to print the summary of clean wound",!,"infections."
  • Line Location: HELP+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HELP+3
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: CLASS+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN to print this report for all wound classifications, or",!,"enter 'NO' to select a specific wound classification."
  • Line Location: CLASS+2
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE
Routine Call
  • DIC
  • Line Location:
    • SP
    • MORE+1
Routine Call
  • DIE
  • Line Location:
    • CLIST+1
Routine Call
  • DIR
  • Line Location:
    • CLASS+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] HELP^DIE

Label References

Name Line Occurrences
CLASS RPT+3, CLASS+2
CLIST CLASS+4
END DATE, DATE+1, RPT+1, RPT+2, SPEC, SPEC+3, DEVICE, DEVICE+1, CLASS, CLASS+5
HELP RPT+2
MORE MORE+1
RPT RPT+2
SP SPEC+3
SPEC SPEC+2, CLASS+3, CLASS+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE!*
%ZIS("A" DEVICE*
DIC SP!*, MORE+1!*
DIC("A" SP*, MORE+1*
DIC("S" SP*, MORE+1*
DIC(0 SP*, MORE+1*
DIR CLASS+4!, CLASS+5!
DIR("?" CLASS+5*
DIR("A" CLASS+4*, CLASS+5*
DIR(0 CLASS+5*
DTIME RPT+1, SPEC, END, HELP+3, CLASS
>> DTOUT CLASS+5
>> DUOUT CLASS+5
>> I CLIST+2*, CLIST+3
IO("Q" DEVICE!, DEVICE+1!
IOF SROWC+3, RPT, END+1
IOP DEVICE!
J CLIST+1~, CLIST+4*
POP DEVICE!
SRC CLIST+1~, CLIST+3*
>> SRCLASS CLASS+3*, CLASS+6*
>> SRCNT CLASS+4*, CLASS+5
>> SRCODE( CLASS+6, CLIST+3*, CLIST+5*
>> SRCT SP+1*, MORE+1*
>> SRED DATE
>> SRFLG RPT+3*
>> SRINST DATE+1*
SRINSTP DATE+1~*
SRLIST CLIST+1~
SRLIST("DIHELP" CLIST+2, CLIST+3
SRP CLIST+1~, CLIST+4*
>> SRSD DATE
>> SRSOUT SROWC+2*, DATE, RPT+2, SPEC*, SPEC+3, DEVICE*, SP*, END, HELP+3*, CLASS*
, CLASS+5*
>> SRSP SROWC+2*, SP*
>> SRSP( SP+1*, MORE+1*
>> SRWC( CLASS+4, CLIST+4*, CLIST+5*
>> SRYN SPEC*, SPEC+1*, SPEC+2, SPEC+3, CLASS*, CLASS+1*, CLASS+2, CLASS+3
U DATE+1
X RPT+1*, RPT+2*, RPT+3, END*, HELP+3*, CLIST+1~, CLIST+3*, CLIST+4
Y SP, SP+1, MORE+1, CLASS+5, CLASS+6, CLIST+1~, CLIST+3*, CLIST+4
Z CLASS+4*, CLASS+5*, CLIST+1~, CLIST+2*, CLIST+3, CLIST+4, CLIST+5
>> ZTDESC DEVICE+1*
>> ZTRTN DEVICE+1*
>> ZTSAVE("SRCLASS" DEVICE+1*
>> ZTSAVE("SRED" DEVICE+1*
>> ZTSAVE("SRFLG" DEVICE+1*
>> ZTSAVE("SRINST" DEVICE+1*
>> ZTSAVE("SRINSTP" DEVICE+1*
>> ZTSAVE("SRSD" DEVICE+1*
>> ZTSAVE("SRSP*" DEVICE+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All