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
Print Page as PDF
Routine: SROAT2T

Package: Surgery

Routine: SROAT2T


Information

SROAT2T ;B'HAM ISC/MAM - ATTENDING SURGEON CUMULATIVE ; [ 05/11/04 2:33 PM ]

Source Information

Source file <SROAT2T.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT
HDR ; print heading
BREAK
SPEC ; SPECIALTIES

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?1,"TOTAL CASES",?16,"ATTENDING CODE",!,?1,"-----------",?16,"--------------"
  • Line Location: SROAT2T+3
Function Call: WRITE
  • Prompt: !!,?1,$J(^TMP("SRTOT",$J),6),?16,"TOTAL CASES FROM "_$E(SRSD,4,5)_"/"_$E(SRSD,6,7)_"/"_$E(SRSD,2,3)_" TO "_$E(SRED,4,5)_"/"_$E(SRED,6,7)_"/"_$E(SRED,2,3)
  • Line Location: SROAT2T+5
Function Call: WRITE
  • Prompt: !,?1,$J($S(PRINT=1:^TMP("SRTC",$J,CODE),1:^TMP("SRTOT",$J,SRSS,CODE)),6),?16,SRCODE
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?(80-$L(SRINST)\2),SRINST,?76,"PAGE",!,?32,"SURGICAL SERVICE",?78,SRPAGE,!,?22,"ATTENDING SURGEON CUMULATIVE REPORT"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(80-$L(SRFRTO)\2),SRFRTO
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?30,"DATE PRINTED: ",SRPRINT,!!,?8,"REVIEWED BY: ",?53,"DATE REVIEWED: "
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: BREAK+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you want to display the totals for each specialty, or '^' to",!,"exit from this report."
  • Line Location: BREAK+1
Function Call: WRITE
  • Prompt: !!,?(80-$L(SRSSN)\2),SRSSN,!!,?1,"TOTAL CASES",?16,"ATTENDING/RES SUP CODE",!,?1,"-----------",?16,"--------------"
  • Line Location: SPEC+3
Function Call: WRITE
  • Prompt: !!,?1,$J(^TMP("SRTOT",$J,SRSS),6),?16,"TOTAL CASES FOR THIS SPECIALTY"
  • Line Location: SPEC+5
Info |  Source |  Entry Points |  Interaction Calls