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  | All
Print Page as PDF
Routine: SROACOP

Package: Surgery

Routine: SROACOP


Information

SROACOP ;BIR/MAM - CARDIAC OPERATIVE RISK SUMMARY ;05/05/10

Source Information

Source file <SROACOP.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Surgery 5 (,HDR)^SROAUTL  (CPTS,DISP)^SROAUTL0  ^SROERR0  ($$LOCK,UNLOCK)^SROUTL  ^SRSKILL  
VA FileMan 3 NOW^%DTC  ^DIE  ($$GET1,Y)^DIQ  

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

Package Total Caller Graph
Surgery 2 SROA CARDIAC OPERATIVE RISK  SROAUTL3  

Entry Points

Name Comments DBIA/ICR reference
START
ASK
END
DT
HELP
RANGE ; range of numbers
ONE ; edit one item
RET
NOW ; update date/time of estimate of mortality
KNOW ; delete date/time of estimate of mortality
YN ; store answer
CHCK ;compare dates

External References

Name Field # of Occurrence
NOW^%DTC NOW+1
^DIE ONE+3
$$GET1^DIQ START+14
Y^DIQ START+2, START+4, START+12
^SROAUTL SROACOP+3
HDR^SROAUTL START+7, ASK+4
CPTS^SROAUTL0 START+10
DISP^SROAUTL0 ONE+1
^SROERR0 ASK+5, ASK+6
$$LOCK^SROUTL ASK+7, RANGE+1
UNLOCK^SROUTL ASK+7, RANGE+1
^SRSKILL END

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SROACOP+2
Function Call: WRITE
  • Prompt: !!,"A Surgery Risk Assessment must be selected prior to using this option.",!!,"Press <RET> to continue "
  • Line Location: SROACOP+2
Function Call: WRITE
  • Prompt: !," 1. ASA Classification:",?31,$P(SRAO(1),"^"),!," 2. Surgical Priority:",?31,$P(SRAO(2),"^")
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !,?3," A. Date/Time Collected: "_X
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !," 3. CPT Codes (view only):"
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !," 4. Wound Classification: ",?31,$P(SRAO(4),"^")
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !," 5. Robotic Assistance (Y/N): ",?31,$P(SRAO(5),"^")
  • Line Location: START+15
Function Call: WRITE
  • Prompt: !
  • Line Location: START+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+17
Function Call: WRITE
  • Prompt: "-"
  • Line Location: START+17
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+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 information.",!!,"2. Enter the corresponding number to update the information in a particular",!," field. (For example, enter '2' to update Surgical Priority)"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"3. Enter two numbers separated by a ':' to enter a range of information.",!," (For example, enter '1:2' to update ASA Classification",!," Surgical Priority.)"
  • Line Location: HELP+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HELP+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RET+0
Function Call: WRITE
  • Prompt: !!,"*** NOTE: D/Time of Surgical Priority should be < the D/Time Patient in OR.***"
  • Line Location: CHCK+3
Routine Call
  • DIE
  • Line Location:
    • ONE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DT+1
^DD(130 START+2, START+4, START+12
^SRF - [#130] START+1, START+2, START+12, NOW+1*, KNOW+1*, CHCK+2
^SRO(136 - [#136] START+6

Label References

Name Line Occurrences
CHCK START+16
DT START+5
END SROACOP+2, START, ASK, ASK+1, ASK+3
HELP ASK+1, ASK+3
ONE ASK+7, RANGE+2
RANGE ASK+5
RET START
START ASK+1, ASK+3, ASK+5, ASK+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % NOW+1
>> C START+2*, START+4*, START+12*
>> CURLEY RANGE+2*
>> DA ONE+2*, NOW+1, KNOW+1
DIE ONE+2!*, ONE+3*
DR ONE+2!*, ONE+3*!
DTIME SROACOP+2, ASK, HELP+3, RET
>> EMILY ASK+6*, RANGE+2*, ONE+1, ONE+2, ONE+3
>> I START+1*, START+11*
IOF END, HELP
>> MOE START+17*
>> NYUK YN+1
>> SHEMP RANGE+2*, YN+1*
SRA START!
SRA( START+1*
SRA(208 START+3, START+5
>> SRACLR SROACOP+3*, START*
SRAO START!
SRAO( ASK+1, ASK+6, ONE+2
SRAO("2A" START+5*, START+9
SRAO(1 START+2*, START+8
SRAO(2 START+3*, START+4*, START+8
SRAO(3 START+7*
SRAO(4 START+12*, START+13
SRAO(5 START+14*, START+15
SRCSTAT SROACOP+3~, START+6*
>> SREQST END
SRINO CHCK+1~, CHCK+2*, CHCK+3
SRL START+10~*
>> SROERR ASK+5*, ASK+6*
>> SRPAGE START+7*
SRPROC START+10~
SRPROC( START+11
>> SRSOUT SROACOP+3*, START, ASK+1, ASK+3, HELP+3*, RANGE+2, ONE+3*, RET*
SRSP CHCK+1~, CHCK+2*, CHCK+3
>> SRSUPCPT SROACOP+3*
>> SRTN SROACOP+2, START+1, START+2, START+6, START+12, START+14, ASK+5, ASK+6, ASK+7, RANGE+1
, ONE+2, CHCK+2
X SROACOP+2*, START+5, START+9*, ASK*, ASK+1*, ASK+2*, ASK+3, ASK+4, ASK+5, ASK+6
, DT*, DT+1*, HELP+3*, RANGE+2, RET*, NOW+1~
>> Y START+2*, START+4*, START+5*, START+12*, START+14*, ASK+3*, DT, DT+1, ONE+3
>> Z ASK+3*
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  | All