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) ;02/12/07

Source Information

Source file <SROAWL1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Surgery 3 $$XL^SROAX  $$MANDIV^SROUTL0  $$SITE^SROVAR  
VA FileMan 2 $$GET1^DIQ  ^DIR  
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 TMIT+4, SITE
^DIR PRESS
$$XL^SROAX CASE+4
$$MANDIV^SROUTL0 BEG+9, BEG+10
$$SITE^SROVAR TMIT+2
^XMD TMIT+11

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,"ASSESSED CASES PER DAY",?54,"=",$J(SRTOTAL(7),9,2)
  • Condition for execution: SRSEL=1
  • Line Location: OUT+14
Function Call: WRITE
  • Prompt: !,?15
  • Line Location: OUT+14
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OUT+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OUT+15
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
^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+17
^TMP("SRM" END!, OPDATE+3*, INC+1, INC+3, MOS+3!*
^XMB("NETNAME" TMIT+1

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+15
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+2
>> I BEG+2*, BEG+3*, OUT+1*, OUT+14*, TMIT+2*, TMIT+3*, MOS+3*
IO SROAWL1+14
IOF OUT+1, OUT+15
IOST OUT+15, PRESS
>> ISC TMIT+1*, TMIT+9, TMIT+10
>> J MOS+2*, MOS+3*
>> K BEG+10*, OPDATE+1, OPDATE+2, OPDATE+3
>> 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+16*, SROAWL1+17*, SROAWL1+18
>> SRCT INC*, INC+3*, INC+5
>> SRD TMIT+1*
>> SRDFN BEG+10*, OPDATE+1, OPDATE+2
SRDIV SROAWL1+15~*, END*, TMIT+2, TMIT+4, SITE
SRDIV( SROAWL1+17*, ENDSITE
>> SRDT BEGBEG+6, BEG+8, TMIT+2, 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+3
SREXCL("A" BEG+4*, OUT+9, TMIT+5
SREXCL(0 OUT+5, TMIT+6
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+4, SITE*
SRINSTP BEG+5*, BEG+9, BEG+10, END!, TMIT+4, SITE*
>> SRM BEG+6*, BEG+8*, OUT+1, TMIT+8
>> 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+2!
SRMSG(1 TMIT+2*, TMIT+3*, TMIT+4*, TMIT+5*
SRMSG(2 TMIT+6*
SRMSG(3 TMIT+7*
SRMULT SROAWL1+15~*, SROAWL1+18*, END
>> SRN INC+3*, INC+4
>> SRNOACK TMIT+7
>> SRP SROAWL1+14, BEG+11, END*, INCINC+2, INC+4, INC+5
>> SRSDATE BEG*, BEG+9*
>> SRSEL BEGBEG+1, BEG+6, BEG+7, BEG+11, BEG+12, OPDATE+3, OUT+14, OUT+15
>> SRSOUT SROAWL1+15*, BEG+11, OUT+15, PRESS*
>> SRSST INC+1*, INC+3*, TMIT+6
>> SRSTATN TMIT+2*, TMIT+6, TMIT+7
>> SRT SROAWL1+16, 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, OPDATE+1, OPDATE+2, OPDATE+3
>> SRTO INC+3*, INC+4
SRTOTAL BEG+2!, END!
SRTOTAL( BEG+2*, TMIT+2
SRTOTAL(1 CASE+3*, OUT+2
SRTOTAL(10 CASE+4*, OUT+2, TMIT+7
SRTOTAL(11 CASE+6*, OUT+12, TMIT+7
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+14
SRTOTAL(8 CASE+3*
SRTOTAL(9 CASE+3*
>> SRTYPE CASE+5*, CASE+6, CASE+10, OPDATE+2*
>> SRYR MOS+1*, MOS+2*
>> X SROAWL1+16*, SROAWL1+17*, BEG*, BEG+1*, CASE+8*
XMDUZ TMIT+8*, TMIT+11!
XMSUB TMIT+8*, TMIT+11!
XMTEXT TMIT+11*!
XMY TMIT+11!
XMY("G.RISK A SSESSMENT" , TMIT+9*
XMY("G.SRCOSERV@FO-HINES.DOMAIN.EXT" TMIT+10*
XMY("S.SRAWSERV@FO-HINES.DOMAIN.EXT" TMIT+10*
>> 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