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

Package: Surgery

Routine: SRODIS0


Information

SRODIS0 ;BIR/ADM - LIST OF OPERATIONS BY DISPOSITION ; [ 07/27/98 2:33 PM ]

Source Information

Source file <SRODIS0.m>

Entry Points

Name Comments DBIA/ICR reference
END
UTIL ; set ^TMP("SRLIST",$J
SPEC
NONE
ALL
CASE ; print individual case
OPS
PRINT ;
LOOP ; break procedure if greater than 50 characters
OTHER ; other operations

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: SRODIS0+8
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue or '^' to quit. "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!!,"TOTAL ",SRSPEC,": ",TOTAL
  • Line Location: SPEC+3
Function Call: WRITE
  • Prompt: !!,"TOTAL ",SRSPEC,": 0"
  • Line Location: NONE+1
Function Call: WRITE
  • Prompt: !!!,"TOTAL "_$S(SRP:$P(^SRO(131.6,SRP,0),"^"),1:"DISPOSITION NOT ENTERED")_": ",TOTAL
  • Line Location: ALL+2
Function Call: WRITE
  • Prompt: !!,?1,$E(SROD,4,5)_"/"_$E(SROD,6,7)_"/"_$E(SROD,2,3),?13,$E(SRNM,1,26),?38,SROPS(1)
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: ?90,$E(SRSUR,1,23),?114,$E(SRANES,1,14),!,?1,SRTN,?13,VA("PID")
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?38,SROPS(2)
  • Condition for execution: $D(SROPS(2))
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?90,$E(SRFST,1,23),?114,SRIO,!,SRABORT
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?38,SROPS(3)
  • Condition for execution: $D(SROPS(3))
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?90,$E(SRTWO,1,23),?114,SROT," MIN."
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?38,SROPS(4)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,?38,SROPS(5)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,?38,SROPS(5)
  • Line Location: PRINT+4
Info |  Source |  Entry Points |  Interaction Calls