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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: SROACTH1

Package: Surgery

Routine: SROACTH1


Information

SROACTH1 ;B'HAM ISC/SJA - CARDIAC CATH INFO (PAGE 2) ; [ 08/05/04 9:50 AM ]

Source Information

Source file <SROACTH1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Surgery 3 (,HDR)^SROAUTL  ($$LOCK,UNLOCK)^SROUTL  ^SRSKILL  
VA FileMan 3 ^DIE  EN^DIQ1  ^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 SROACAT  

Entry Points

Name Comments DBIA/ICR reference
START
EDIT
SEL
HELP
PRESS
RANGE ; range of numbers
ONE ; edit one item
TR
GET
REDO
END
CFA ;;361^Left main stenosis
CFBPA ;;362.1^LAD Stenosis
CFBPB ;;362.2^Right coronary stenosis
CFBPC ;;362.3^Circumflex Stenosis
DGH ;;478^LAD
DGI ;;479^Right coronary
DHJ ;;480^Circumflex

External References

Name Field # of Occurrence
^DIE ONE+1, REDO+1
EN^DIQ1 EDIT+4
^DIR PRESS
^SROAUTL SROACTH1+3
HDR^SROAUTL EDIT
$$LOCK^SROUTL SEL+6, RANGE+1
UNLOCK^SROUTL SEL+6, RANGE+1
^SRSKILL END

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SROACTH1+2
Function Call: WRITE
  • Prompt: !!,"A Surgery Risk Assessment must be selected prior to using this option.",!!,"Press <RET> to continue "
  • Line Location: SROACTH1+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDIT+11
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EDIT+11
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: @IOF,!!!!,"Enter the number or range of numbers you want to edit. Examples of proper",!,"responses are listed below."
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !!,"1. Enter 'A' to update all items.",!!,"2. Enter a number (1-"_SRZ_") to update an individual item. (For example,",!," enter '1' to update "_$P(SRZ(1),"^")_".)"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"3. Enter a range of numbers (1-"_SRZ_") separated by a ':' to enter a range",!," of items. (For example, enter '1:3' to update items Left main stenosis, ",!," LAD Stenosis and Right coronary stenosis.)",!
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !,"4. Enter '@' to delete information from all items.",!
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRESS+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Routine Call
  • DIE
  • Line Location:
    • ONE+1
    • REDO+1
Routine Call
  • DIR
  • Line Location:
    • PRESS

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] REDO

Label References

Name Line Occurrences
EDIT EDIT+12
END SROACTH1+2, START, EDIT+13
GET EDIT+6
HELP SEL+1, SEL+2
ONE SEL+6, RANGE+2
RANGE SEL+4
REDO EDIT+1
SEL EDIT+12
TR EDIT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CURLEY RANGE+2*
DA EDIT+1!, EDIT+4*!, ONE+1!*, REDO+1!*
DIC EDIT+1!, EDIT+4*!
DIE ONE+1!*, REDO+1!*
DIQ EDIT+1!, EDIT+4*!
DIQ(0 EDIT+4*
DIR PRESS!
DIR("A" PRESS*
DIR(0 PRESS*
DR EDIT+1!, EDIT+2*, EDIT+3*, EDIT+4*!, ONE+1!*, REDO+1!*
DTIME SROACTH1+2, SEL
>> DTOUT PRESS
>> DUOUT PRESS
>> EMILY SEL+5*, RANGE+2*, ONE+1
I EDIT~, EDIT+5*, TR
IOF HELP, END
>> J TR*
>> K EDIT+11*
M EDIT~, EDIT+5*
>> SHEMP RANGE+2*
>> SRDR EDIT+2*, EDIT+3*, EDIT+4, EDIT+5
>> SRDT ONE+1*
>> SREXT EDIT+7*, EDIT+10
>> SRFLD EDIT+7*
>> SRFLG SEL+1, HELP+3
SROFL EDIT~, EDIT+1*, EDIT+2, EDIT+3, REDO+2*
>> SRPAGE EDIT*
>> SRQ EDIT+1*
>> SRR EDIT*, EDIT+12, SEL+1*, SEL+2*, SEL+4*, SEL+5*
>> SRSOUT SROACTH1+3*, START, EDIT+13*, SEL*, PRESS*, RANGE+2, ONE+1*
>> SRTN SROACTH1+2, EDIT+4, EDIT+7, SEL+6, RANGE+1, ONE+1, REDO, REDO+1
SRY EDIT+1!
SRY(130 EDIT+7
SRZ EDIT~, EDIT+5*, EDIT+7*, EDIT+8, EDIT+9, EDIT+10, SEL+2, SEL+3, HELP+1, HELP+2
SRZ( EDIT+7*, SEL+1, SEL+5, ONE+1
SRZ(1 HELP+1
>> X SROACTH1+2*, EDIT+7, SEL*, SEL+1*, SEL+2, SEL+3*, SEL+4, SEL+5, RANGE+2, GET*
>> Y EDIT+7*, SEL+2*, ONE+1
>> Z EDIT+7*, EDIT+10, SEL+2*

Marked Items

Name Field # of Occurrence
$T(@J GET
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All