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

Package: Surgery

Routine: SROPRI2


Information

SROPRI2 ;B'HAM ISC/MAM - TOTAL OPERATIONS (BY PRIORITY) ; [ 07/27/98 2:33 PM ]

Source Information

Source file <SROPRI2.m>

Entry Points

Name Comments DBIA/ICR reference
UTIL ; set UTILITY("SRLIST",$J
RET
HDR ; print heading
PRINT ; print information for specialty
TOT ; print total for the specialty
NO6 ; delete 6. PRIORITY NOT ENTERED

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?24,X,?50,$J(^(X),6)
  • Line Location: SROPRI2+7
Function Call: WRITE
  • Prompt: !!!,?24,"TOTAL SURGICAL CASES: ",?50,$J(^TMP("SRLIST",$J),6),!!!!!
  • Line Location: SROPRI2+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: SROPRI2+11
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RET+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue with the List of Surgical Cases sorted by Surgical",!,"Priority, or '^' if you do not want to review any additional information."
  • Line Location: RET+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(80-$L(SRINST)\2),SRINST,!,?32,"SURGICAL SERVICE",!,?21,"TOTAL OPERATIONS BY SURGICAL PRIORITY"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(80-$L(SRFRTO)\2),SRFRTO
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?28,SRPRINT
  • Condition for execution: $E(IOST)="P"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,SRLINE,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?(80-$L(SRSS)\2),SRSS,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?24,PRIOR,?50,$J(^TMP("SR",$J,SRSS,PRIOR),6)
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !!!,?24,"TOTAL SURGICAL CASES",?50,$J(^TMP("SR",$J,SRSS),6),!!!!!
  • Line Location: TOT+1
Info |  Source |  Entry Points |  Interaction Calls