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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: SROASS

Package: Surgery

Routine: SROASS


Information

SROASS ;BIR/MAM - SELECT ASSESSMENT ;01/18/07

Source Information

Source file <SROASS.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Surgery 9 ^SROADEL  ^SROANEW  (,DISP)^SROASS1  ^SROASSN  CPTS^SROAUTL0  $$XL^SROAX  ^SROPSEL  ($$LOCK,UNLOCK)^SROUTL  
^SRSKILL  
VA FileMan 2 ^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: 7

Package Total Caller Graph
Surgery 6 SROA CARDIAC ENTER/EDIT  SROA ENTER/EDIT  SROA30  SROAERR  SROANEW  SROASSP  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
PST
START ; start display
OPT
ENTER ; edit, complete, or delete
EXCL
END
HELP ;
TRANS

External References

Name Field # of Occurrence
^DIE TRANS+3
^DIR START+7, ENTER+3, ENTER+4, TRANS+1
^SROADEL ENTER+10
^SROANEW OPT+2
^SROASS1 START+4
DISP^SROASS1 ENTER+5
^SROASSN START+3
CPTS^SROAUTL0 EXCL+2
$$XL^SROAX EXCL
^SROPSEL PST+1
$$LOCK^SROUTL TRANS+3
UNLOCK^SROUTL TRANS+3
^SRSKILL END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: PST+0
Function Call: WRITE
  • Prompt: " * DIED "_$E(SRDT,4,5)_"/"_$E(SRDT,6,7)_"/"_$E(SRDT,2,3)_" *"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: CNT,". ---- CREATE NEW ASSESSMENT"
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !!,"There are no Surgery Risk Assessments entered for "_VADM(1)_".",!!
  • Line Location: START+7
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: OPT+0
Function Call: WRITE
  • Prompt: !!,"Enter the number of the desired assessment."
  • Line Location: OPT+1
Function Call: WRITE
  • Prompt: " Select '"_CNT_"' to create an",!,"assessment for another surgical case."
  • Condition for execution: $D(SRNEW)
  • Line Location: OPT+1
Function Call: WRITE
  • Prompt: @IOF,!,?1,SRANM,!!
  • Line Location: ENTER+5
Function Call: WRITE
  • Prompt: !!,"1. Enter Risk Assessment Information",!,"2. Delete Risk Assessment Entry",!,"3. Update Assessment Status to 'COMPLETE'"
  • Line Location: ENTER+7
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENTER+8
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENTER+10
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: ENTER+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENTER+10
Function Call: WRITE
  • Prompt: !!,"Enter <RET> or '1' to enter or edit information related to this Risk ",!,"Assessment entry. If you want to delete the Assessment, enter '2'."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"Enter '3' to update the status of this Assessment to 'COMPLETE'."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: @IOF,!,"This assessment has already been transmitted. The information contained",!,"in it cannot be altered unless you first change the status to 'INCOMPLETE'."
  • Line Location: TRANS+0
Routine Call
  • DIE
  • Line Location:
    • TRANS+3
Routine Call
  • DIR
  • Line Location:
    • START+7
    • ENTER+3
    • ENTER+4
    • TRANS+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] START+2
^SRF - [#130] ENTER+2, ENTER+5
^SRO(136 - [#136] EXCL

Label References

Name Line Occurrences
@( ENTER+11
END PST+1, START+1, START+4, OPT, OPT+2, ENTER+3, ENTER+4, ENTER+8, ENTER+10, ENTER+11
ENTER START+3, START+5, ENTER+9
EXCL ENTER+6
HELP ENTER+9
OPT OPT+1
PST START+3
START ENTER+2
TRANS ENTER+2

Naked Globals

Name Field # of Occurrence
^( START+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT START+3*, START+6*, OPT+1, OPT+2
DA TRANS+3!*
>> DFN PST+1, START+2
DIE TRANS+3!*
DIR START+7!, ENTER+3!, ENTER+4!, TRANS+1!
DIR("A" START+7*, ENTER+3*, ENTER+4*, TRANS+1*
DIR("B" ENTER+3*, ENTER+4*, TRANS+1*
DIR(0 START+7*, ENTER+3*, ENTER+4*, TRANS+1*
DR TRANS+3!*
DTIME OPT, ENTER+8, ENTER+10, HELP+3
>> DTOUT TRANS+1
>> DUOUT TRANS+1
DUZ("SAV" PST
IOF START+1, ENTER+5, ENTER+10, END, TRANS
>> SR("RA" ENTER+2*, ENTER+3, ENTER+4, ENTER+11
>> SRANM PST+1*, START+1, ENTER+5
SRASS ENTER+2!, ENTER+5*, ENTER+8!
>> SRATYPE ENTER+3, ENTER+4, ENTER+6
>> SRCASE( START+6*, OPT+1, OPT+3
>> SRCASE(1 START+7
>> SRDT START+2*
SRL EXCL+2~*
SRNEW PST!, START+6, OPT+1, OPT+2, ENTER+1
>> SRPRINT ENTER+1
SRPROC EXCL+2~
SRPROC(1 EXCL+2
>> SRSDATE ENTER+5*
SRSEL PST+1~, START+1, START+3, ENTER+2
>> SRSOUT PST*, START+1, START+4, OPT*, ENTER+2*, ENTER+3*, ENTER+4*, ENTER+8*, END*, TRANS+1*
SRTN PST!, START+3, START+5, OPT+3*, ENTER+2!, ENTER+3!, ENTER+4!, ENTER+5, ENTER+8!, ENTER+10!
, ENTER+11!, EXCL, TRANS+3
>> SRYN ENTER+2, TRANS+1*, TRANS+2*
>> VA("PID" PST+1
>> VADM(1 PST+1, START+7
>> X OPT*, OPT+1, OPT+2, OPT+3, ENTER+3*, ENTER+4*, ENTER+8*, ENTER+9*, ENTER+10*, ENTER+11
, HELP+3*
>> Y TRANS+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All