Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call