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

Caller Graph Total: 3

Package Total Caller Graph
Surgery 3 SROALESS  SROATMIT  SROAWL  

Entry Points

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

External References

Name Field # of Occurrence
$$GET1^DIQ TMIT+4, SITE
^DIR PRESS
$$XL^SROAX CASE+4
$$MANDIV^SROUTL0 BEG+8, BEG+9
$$SITE^SROVAR TMIT+2
^XMD TMIT+10

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,"STUDY CRITERIA",?54,"=",$J(SREXCL(4),6),!,?24,"SCNR WAS ON A/L",?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: !,?20,"ASSESSED CASES",?54,"=",$J(SRTOTAL(3),6)
  • Line Location: OUT+9
Function Call: WRITE
  • Prompt: !,?20,"NOT LOGGED ELIGIBLE CASES",?54,"=",$J(SRTOTAL(11),6)
  • Line Location: OUT+11
Function Call: WRITE
  • Prompt: !,?20,"CARDIAC CASES",?54,"=",$J(SRTOTAL(5),6),!,?20,"NON-CARDIAC CASES",?54,"=",$J(SRTOTAL(6),6)
  • Line Location: OUT+12
Function Call: WRITE
  • Prompt: !,?20,"ASSESSED CASES PER DAY",?54,"=",$J(SRTOTAL(7),9,2)
  • Condition for execution: SRSEL=1
  • Line Location: OUT+13
Function Call: WRITE
  • Prompt: !,?15
  • Line Location: OUT+13
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OUT+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OUT+14
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+5, BEG+7, INC+2
^SRF - [#130] BEG+8, BEG+9, CASE+1, CASE+3, CASE+5, OPDATE+1, OPDATE+3
^SRF("AC" BEG+8
^SRF("ARS" BEG+9, 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+8
END BEG+10
INC BEG+10
MOS BEG+5
OPDATE BEG+9
OUT BEG+10, BEG+11
PRESS OUT+14
SITE END
TMIT BEG+10

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+13*, TMIT+2*, TMIT+3*, MOS+3*
IO SROAWL1+14
IOF OUT+1, OUT+14
IOST OUT+14, PRESS
>> ISC TMIT+1*, TMIT+8, TMIT+9
>> J MOS+2*, MOS+3*
>> K BEG+9*, 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+9*, OPDATE+1, OPDATE+2
SRDIV SROAWL1+15~*, END*, TMIT+2, TMIT+4, SITE
SRDIV( SROAWL1+17*, END, SITE
>> SRDT BEG, BEG+5, BEG+7, TMIT+2, MOS+1
>> SRED BEG*, BEG+1*, BEG+8
>> SREDT BEG+1, BEG+7
SRELIG CASE+2~*, CASE+4*, CASE+6
SREXCL BEG+3~
SREXCL( BEG+3*, CASE+8*, TMIT+3
SREXCL(0 OUT+5, TMIT+5
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+4*, BEG+8, BEG+9, END!, TMIT+4, SITE*
>> SRM BEG+5*, BEG+7*, OUT+1, TMIT+7
>> 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*
SRMSG(2 TMIT+5*
SRMSG(3 TMIT+6*
SRMULT SROAWL1+15~*, SROAWL1+18*, END
>> SRN INC+3*, INC+4
>> SRNOACK TMIT+6
>> SRP SROAWL1+14, BEG+10, END*, INC, INC+2, INC+4, INC+5
>> SRSDATE BEG*, BEG+8*
>> SRSEL BEG, BEG+1, BEG+5, BEG+6, BEG+10, BEG+11, OPDATE+3, OUT+13, OUT+14
>> SRSOUT SROAWL1+15*, BEG+10, OUT+14, PRESS*
>> SRSST INC+1*, INC+3*, TMIT+5
>> SRSTATN TMIT+2*, TMIT+5, TMIT+6
>> SRT SROAWL1+16, BEG+10, END
>> SRT1 INC*, INC+3*, INC+5
>> SRTC INC*, INC+3*, INC+5
>> SRTITLE BEG+5*, BEG+6*, OUT+1
>> SRTN BEG+8*, BEG+9*, 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+6
SRTOTAL(11 CASE+6*, OUT+11, TMIT+6
SRTOTAL(2 CASE+8*, OUT+4
SRTOTAL(3 BEG+10, CASE+9*, OUT+9
SRTOTAL(4 CASE+5*
SRTOTAL(5 CASE+5*, OUT+12
SRTOTAL(6 CASE+10*, OUT+12
SRTOTAL(7 BEG+10*, OUT+13
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+7*, TMIT+10!
XMSUB TMIT+7*, TMIT+10!
XMTEXT TMIT+10*!
XMY TMIT+10!
XMY("G.RISK A SSESSMENT" , TMIT+8*
XMY("G.SRCOSERV@FO-HINES.MED.VA.GOV" TMIT+9*
XMY("S.SRAWSERV@FO-HINES.MED.VA.GOV" TMIT+9*
>> Y BEG*, BEG+5*, BEG+7*, 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