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 |  Local Variables |  All
Print Page as PDF
Routine: SROAUTL0

Package: Surgery

Routine: SROAUTL0


Information

SROAUTL0 ;BIR/ADM,SLM - RISK ASSESSMENT UTILITY ;01/23/07

Source Information

Source file <SROAUTL0.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Surgery 3 HDR^SROAUTL  EN^SROCCAT  (DES,SSOTH,SSPRIN)^SROCPT0  
DRG Grouper 2 $$CPT^ICPTCOD  $$MOD^ICPTMOD  
VA Fileman 2 C^%DTC  ^DIR  

Caller Graph

Caller Graph Total: 34

Package Total Caller Graph
Surgery 34 SR54UTL  SRO1L1  SROACMP  SROACOP  SROAEX  SROALC  SROALCP  SROALCS  
SROALCSP  SROALL  SROALLP  SROALLS  SROALLSP  SROALM  SROALMN  SROALSS  
SROALSSP  SROALST  SROALSTP  SROALT  SROALTP  SROALTS  SROALTSP  SROAMAN  
SROANT  SROANTP  SROANTS  SROANTSP  SROAOP  SROAOP1  SROAPRT7  SROASS  
SROATM2  SROAUTL3  

Entry Points

Name Comments DBIA/ICR reference
OPER
OUT1 ; man preop edit scr
DISP ; display CPT code info
OTH
PREOP
CPTS ; put CPT codes in array for display
PREMD
LAB ; man lab edit scrn
LR
PRESS
OCC ; occur data
OCCEND

External References

Name Field # of Occurrence
C^%DTC OCC+8
^DIR PRESS
$$CPT^ICPTCOD CPTS+1, CPTS+5, DISP+3, OTH+1
$$MOD^ICPTMOD DISP+8, OTH+6
HDR^SROAUTL DISP+2
EN^SROCCAT OCC+1
DES^SROCPT0 DISP+3, OTH+1
SSOTH^SROCPT0 CPTS+6
SSPRIN^SROCPT0 CPTS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Principal CPT Code: "_SRW
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !,?5,SRDES(I)
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !,?3,"Modifier: "
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: $P($$MOD^ICPTMOD(SRMO,"I"),"^",2),"-",$P($$MOD^ICPTMOD(SRMO,"I"),"^",3)
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: OTH+0
Function Call: WRITE
  • Prompt: !,?5,SRDES(I)
  • Line Location: OTH+2
Function Call: WRITE
  • Prompt: !,?3,"Modifier: "
  • Line Location: OTH+3
Function Call: WRITE
  • Prompt: $P($$MOD^ICPTMOD(SRMO,"I"),"^",2),"-",$P($$MOD^ICPTMOD(SRMO,"I"),"^",3)
  • Line Location: OTH+6
Routine Call
  • DIR
  • Line Location:
    • PRESS

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD9 - [#80] OCC+18
^SRF - [#130] OCC+3, OCC+4, OCC+5, OCC+6, OCC+7, OCC+11, OCC+17, OCC+18, OCC+22
^SRO(136 - [#136] CPTS+1, CPTS+4, CPTS+5, DISP+1, DISP+3, DISP+5, DISP+6, DISP+7, OTH, OTH+1
, OTH+3, OTH+4, OTH+5
^TMP("SROCC" OCC+1!, OCC+5*, OCC+12*, OCC+13, OCC+15, OCC+17, OCC+20*, OCC+21, OCC+22, OCCEND!

Label References

Name Line Occurrences
OCCEND OCC+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR PRESS!
DIR("A" PRESS*
DIR(0 PRESS*
DR PREOP!*, PREMD!*, OPER!*, LR!*
>> I DISP+4*, OTH+2*, OCC+24*
K CPTS+1~*, CPTS+3, CPTS+7, CPTS+8*
SRCSTAT DISP+1~*
SRDA CPTS+1~, CPTS+4*, CPTS+5, OCC+17*, OCC+18, OCCEND!
SRDATE OCC+7*, OCC+9, OCC+10*, OCC+12, OCCEND!
SRDES DISP+10!, OTH!
SRDES( DISP+4, OTH+2
SRDES(1 DISP+4, OTH+2
SRFIRST DISP+1~, DISP+2*, DISP+8, DISP+9*, OTH+3*, OTH+6, OTH+7*
SRFLG OCC+3*, OCCEND!
SRICD OCC+17*, OCC+18, OCCEND!
>> SRIO OCC+3*, OCC+4, OCC+5
SRJ OCCEND!
SRK OCC+2*, OCC+21*, OCCEND!
>> SRL CPTS+7
SRMO DISP+1~, DISP+7*, DISP+8, OTH+5*, OTH+6
SRMOD DISP+1~, DISP+6*, DISP+7, OTH+4*, OTH+5
SRO OCC+1!, OCC+21*, OCC+24*, OCC+25*
SROC OCC+1!
SROC( OCC+2*, OCC+23*, OCC+24
SROCC OCC+4*, OCC+5, OCC+11*, OCC+12, OCC+15*, OCC+16, OCC+17, OCC+18, OCC+19, OCC+20
, OCC+21*, OCC+22, OCC+23, OCCEND!
SROCCDT OCC+15*, OCC+17, OCC+20, OCC+21*, OCC+22, OCC+23, OCCEND!
SROOC OCC+1!
SROOC( OCC+18*, OCC+19*
>> SROTH OTH*, OTH+1, OTH+3, OTH+4, OTH+5
>> SRPAGE DISP+1*
SRPO OCC+3*, OCC+6*, OCC+7, OCC+11, OCC+12, OCC+22*, OCCEND!
SRPOCC OCCEND!
SRPOCCD OCCEND!
SRPROC CPTS+1!
SRPROC( CPTS+3*, CPTS+7*, CPTS+8*
SRPROC(1 CPTS+9*
>> SRQ PREOP*, PREMD*, OPER*, LR*
SRSDATE OCC+8, OCCEND!
>> SRSEP OCC+22*, OCC+25*
>> SRTN CPTS+1, CPTS+4, CPTS+5, DISP+1, DISP+3, DISP+5, DISP+6, DISP+7, OTH, OTH+1
, OTH+3, OTH+4, OTH+5, OCC+3, OCC+4, OCC+5, OCC+6, OCC+7, OCC+11, OCC+17
, OCC+18, OCC+22
SRTYPE OCC+15*, OCC+17, OCC+18, OCCEND!
>> SRW DISP+2*, DISP+4, OTH+2
U OCC+4, OCC+5, OCC+7, OCC+11, OCC+17, OCC+18
X CPTS+1~, OCC+9, OCC+22*, OCC+25*
X1 OCC+8*, OCCEND!
X2 OCC+8*, OCCEND!
XX CPTS+1~
Y CPTS+1~*, CPTS+2, CPTS+3, CPTS+5*, CPTS+6, CPTS+7, CPTS+8, DISP+3*, OTH+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All