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

Package: Surgery

Routine: SROAWL1


Information

SROAWL1 ;BIR/ADM - REPORT OF CASE WORKLOAD TOTALS (CONTINUED) ; February 12,2007

Source Information

Source file <SROAWL1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Surgery 3 $$XL^SROAX  $$MANDIV^SROUTL0  $$SITE^SROVAR  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Kernel 1 $$PROD^XUPROD  
MailMan 1 ^XMD  

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

Package Total Caller Graph
Surgery 3 SROALESS  SROATMIT  SROAWL  

Entry Points

Name Comments DBIA/ICR reference
BEG
END
CASE ; examine case
OPDATE ; get date of operation
OUT ; print report
INC
TMIT ; transmit report to national database
MOS ; set up array for past 12 months
PRESS
SITE

External References

Name Field # of Occurrence
$$GET1^DIQ CASE+11, TMIT+5, SITE
^DIR PRESS
$$XL^SROAX CASE+4
$$MANDIV^SROUTL0 BEG+9, BEG+10
$$SITE^SROVAR TMIT+3
^XMD TMIT+12
$$PROD^XUPROD TMIT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: OUT+1
Function Call: WRITE
  • Prompt: !,?(80-$L(SRINST)\2),SRINST,!,?(80-$L(SRTITLE)\2),SRTITLE,!,?(80-$L(SRM)\2),SRM,!,?15
  • Line Location: OUT+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OUT+1
Function Call: WRITE
  • Prompt: !,?20,"TOTAL CASES PERFORMED",?54,"=",$J(SRTOTAL(1),6),!,?24,"TOTAL ELIGIBLE CASES",?54,"=",$J(SRTOTAL(10),6)
  • Line Location: OUT+2
Function Call: WRITE
  • Prompt: !,?20,"CASES MEETING EXCLUSION CRITERIA",?54,"=",$J(SRTOTAL(2),6)
  • Line Location: OUT+4
Function Call: WRITE
  • Prompt: !,?24,"NON-SURGEON CASE",?54,"=",$J(SREXCL(0),6)
  • Line Location: OUT+5
Function Call: WRITE
  • Prompt: !,?24,"EXCEEDS MAX. ASSESSMENTS",?54,"=",$J(SREXCL(2),6),!,?24,"EXCEEDS MAXIMUM TURPS",?54,"=",$J(SREXCL(3),6)
  • Line Location: OUT+6
Function Call: WRITE
  • Prompt: !,?24,"INCLUSION CRTA NOT MET",?54,"=",$J(SREXCL(4),6),!,?24,"10% RULE",?54,"=",$J(SREXCL(6),6)
  • Line Location: OUT+7
Function Call: WRITE
  • Prompt: !,?24,"CONCURRENT CASE",?54,"=",$J(SREXCL(8),6),!,?24,"EXCEEDS MAXIMUM HERNIAS",?54,"=",$J(SREXCL(9),6)
  • Line Location: OUT+8
Function Call: WRITE
  • Prompt: !,?24,"ABORTED",?54,"=",$J(SREXCL("A"),6)
  • Line Location: OUT+9
Function Call: WRITE
  • Prompt: !,?20,"ASSESSED CASES",?54,"=",$J(SRTOTAL(3),6)
  • Line Location: OUT+10
Function Call: WRITE
  • Prompt: !,?20,"NOT LOGGED ELIGIBLE CASES",?54,"=",$J(SRTOTAL(11),6)
  • Line Location: OUT+12
Function Call: WRITE
  • Prompt: !,?20,"CARDIAC CASES",?54,"=",$J(SRTOTAL(5),6),!,?20,"NON-CARDIAC CASES",?54,"=",$J(SRTOTAL(6),6)
  • Line Location: OUT+13
Function Call: WRITE
  • Prompt: !,?20,"CASES WITH ROBOTIC ASSISTANCE",?54,"=",$J(SRTOTAL(12),6)
  • Line Location: OUT+14
Function Call: WRITE
  • Prompt: !,?20,"ASSESSED CASES PER DAY",?54,"=",$J(SRTOTAL(7),9,2)
  • Condition for execution: SRSEL=1
  • Line Location: OUT+15
Function Call: WRITE
  • Prompt: !,?15
  • Line Location: OUT+15
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OUT+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OUT+16
Function Call: WRITE
  • Prompt: !,?19,Y
  • Line Location: INC+2
Routine Call
  • DIR
  • Line Location:
    • PRESS

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" BEG+6, BEG+8, INC+2
^SRF - [#130] BEG+9, BEG+10, CASE+1, CASE+3, CASE+5, OPDATE+1, OPDATE+3
^SRF("AC" BEG+9
^SRF("ARS" BEG+10, OPDATE+1!, OPDATE+2!
^SRO(133 - [#133] SROAWL1+18
^TMP("SRM" END!, OPDATE+3*, INC+1, INC+3, MOS+3!*
^XMB("NETNAME" TMIT+2

Label References

Name Line Occurrences
BEG END
CASE BEG+9
END BEG+11
INC BEG+11
MOS BEG+6
OPDATE BEG+10
OUT BEG+11, BEG+12
PRESS OUT+16
SITE END
TMIT BEG+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR PRESS!
DIR(0 PRESS*
DT TMIT+3
>> I BEG+2*, BEG+3*, OUT+1*, OUT+15*, TMIT+3*, TMIT+4*, MOS+3*
IO SROAWL1+15
IOF OUT+1, OUT+16
IOST OUT+16, PRESS
>> ISC TMIT+1*, TMIT+2*, TMIT+10, TMIT+11
>> J MOS+2*, MOS+3*
>> K BEG+10*, OPDATE+1, OPDATE+2, OPDATE+3
>> NAME TMIT+2*
>> SRA CASE+5*, CASE+7, CASE+8, OPDATE+1*, OPDATE+2
>> SRASS CASE+7*, CASE+8, CASE+9, CASE+10
>> SRC INC+3*, INC+4
>> SRCNT SROAWL1+17*, SROAWL1+18*, SROAWL1+19
>> SRCT INC*, INC+3*, INC+5
>> SRDFN BEG+10*, OPDATE+1, OPDATE+2
SRDIV SROAWL1+16~*, END*, TMIT+3, TMIT+5, SITE
SRDIV( SROAWL1+18*, END, SITE
>> SRDT BEG, BEG+6, BEG+8, TMIT+3, MOS+1
>> SRED BEG*, BEG+1*, BEG+9
>> SREDT BEG+1, BEG+8
SRELIG CASE+2~*, CASE+4*, CASE+6
SREXCL BEG+3~
SREXCL( BEG+3*, CASE+8*, TMIT+4
SREXCL("A" BEG+4*, OUT+9, TMIT+6
SREXCL(0 OUT+5, TMIT+7
SREXCL(2 OUT+6
SREXCL(3 OUT+6
SREXCL(4 OUT+7
SREXCL(6 OUT+7
SREXCL(8 OUT+8
SREXCL(9 OUT+8
>> SRINST OUT+1, TMIT+5, SITE*
SRINSTP BEG+5*, BEG+9, BEG+10, END!, TMIT+5, SITE*
>> SRM BEG+6*, BEG+8*, OUT+1, TMIT+9
>> SRMAJ CASE+3*, CASE+5
SRMONTH OPDATE+3*, INC+1*, INC+2, INC+3, MOS+1!*, MOS+2*
SRMONTH( MOS+2*, MOS+3
SRMSG TMIT+3!
SRMSG(1 TMIT+3*, TMIT+4*, TMIT+5*, TMIT+6*
SRMSG(2 TMIT+7*
SRMSG(3 TMIT+8*
SRMULT SROAWL1+16~*, SROAWL1+19*, END
>> SRN INC+3*, INC+4
>> SRNOACK TMIT+8
>> SRP SROAWL1+15, BEG+11, END*, INC, INC+2, INC+4, INC+5
>> SRSDATE BEG*, BEG+9*
>> SRSEL BEG, BEG+1, BEG+6, BEG+7, BEG+11, BEG+12, OPDATE+3, OUT+15, OUT+16
>> SRSOUT SROAWL1+16*, BEG+11, OUT+16, PRESS*
>> SRSST INC+1*, INC+3*, TMIT+7
>> SRSTATN TMIT+3*, TMIT+7, TMIT+8
>> SRT SROAWL1+17, BEG+11, END
>> SRT1 INC*, INC+3*, INC+5
>> SRTC INC*, INC+3*, INC+5
>> SRTITLE BEG+6*, BEG+7*, OUT+1
>> SRTN BEG+9*, BEG+10*, CASE+1, CASE+3, CASE+4, CASE+5, CASE+11, OPDATE+1, OPDATE+2, OPDATE+3
>> SRTO INC+3*, INC+4
SRTOTAL BEG+2!, END!
SRTOTAL( BEG+2*, TMIT+3
SRTOTAL(1 CASE+3*, OUT+2
SRTOTAL(10 CASE+4*, OUT+2, TMIT+8
SRTOTAL(11 CASE+6*, OUT+12, TMIT+8
SRTOTAL(12 CASE+11*, OUT+14, TMIT+8
SRTOTAL(2 CASE+8*, OUT+4
SRTOTAL(3 BEG+11, CASE+9*, OUT+10
SRTOTAL(4 CASE+5*
SRTOTAL(5 CASE+5*, OUT+13
SRTOTAL(6 CASE+10*, OUT+13
SRTOTAL(7 BEG+11*, OUT+15
SRTOTAL(8 CASE+3*
SRTOTAL(9 CASE+3*
>> SRTYPE CASE+5*, CASE+6, CASE+10, OPDATE+2*
>> SRYR MOS+1*, MOS+2*
>> X SROAWL1+17*, SROAWL1+18*, BEG*, BEG+1*, CASE+8*
XMDUZ TMIT+9*, TMIT+12!
XMSUB TMIT+9*, TMIT+12!
XMTEXT TMIT+12*!
XMY TMIT+12!
XMY("G.RISK A SSESSMENT" , TMIT+10*
XMY("G.SRCOSERV@SURGERYSRA.DOMAIN.EXT" TMIT+11*
XMY("S.SRAWSERV@SURGERYSRA.DOMAIN.EXT" TMIT+11*
>> Y BEG*, BEG+6*, BEG+8*, INC+2*, PRESS
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