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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Surgery 5 HDR^SRODIS  TECH^SROPRIN  ($$DIV,$$NODATA)^SROUTL0  ^SRSKILL  MINS^SRSUTL2  
Kernel 1 ^%ZISC  
Registration 1 DEM^VADPT  
VA Fileman 1 Y^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SRODIS  

Entry Points

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

External References

Name Field # of Occurrence
^%ZISC END+2
Y^DIQ CASE+3
HDR^SRODIS SRODIS0+7, SRODIS0+8, SPEC, SPEC+2, NONE, ALL+1, CASE+1
TECH^SROPRIN OPS+3
$$DIV^SROUTL0 SRODIS0+4
$$NODATA^SROUTL0 SRODIS0+8
^SRSKILL END+2
MINS^SRSUTL2 OPS+2
DEM^VADPT CASE+2

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SRODIS0+3
^DD(130 CASE+3
^SRF - [#130] SRODIS0+4, UTIL+1, UTIL+2, UTIL+3, CASE+2, CASE+5, OPS, OPS+2, OPS+4, OTHER+1
, OTHER+2
^SRF("AC" SRODIS0+4
^SRO(131.6 - [#131.6] ALL+2
^SRO(137.45 - [#137.45] SPEC, NONE, CASE+4
^TMP("SRLIST" SRODIS0+2!, SRODIS0+5, SRODIS0+7, SRODIS0+8, END+1!, UTIL+4*, UTIL+5*, SPEC+1, ALL
^TMP("SRSS" SRODIS0+2!, SRODIS0+6, UTIL+4*
^VA(200 - [#200] CASE+5, CASE+6

Label References

Name Line Occurrences
ALL SRODIS0+7
CASE SPEC+1, ALL
LOOP OPS+1
NONE SRODIS0+6
OTHER OPS
SPEC SRODIS0+5
UTIL SRODIS0+4

Naked Globals

Name Field # of Occurrence
^( OPS+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C CASE+3*
>> DFN CASE+2*
DT SRODIS0+3
DTIME END
IO SRODIS0+2
IOF END+1, END+2
IOSL SPEC+2, ALL+1, CASE+1
IOST END, END+1
>> LOOP LOOP+1*
>> M OPS+1*, LOOP+1
MM OPS+1!, LOOP+1*
MMM OPS+1!, LOOP+1*
>> OPER OPS*, OTHER+1*, OTHER+2
>> PAGE SRODIS0+2*
>> S( CASE+5*
>> S(0 UTIL+3*, CASE+2*, CASE+3, CASE+4
>> SRABORT OPS+4*, PRINT+2
>> SRANES OPS+4*, PRINT+2
>> SRD SRODIS0+4*, UTIL+4, UTIL+5, SPEC+1*, ALL*
>> SRDISP SRODIS0+8, UTIL+2
>> SRED SRODIS0+3, SRODIS0+4
>> SRED1 SRODIS0+4*
SRFRTO SRODIS0+3~*
>> SRFST CASE+2*, CASE+5*, CASE+6*, PRINT+2
>> SRHDR SRODIS0+2*
>> SRINST SRODIS0+2*
SRIO END+2!, CASE+3*, PRINT+2
>> SRLONG OTHER+1*, OTHER+2
>> SRNM CASE+2*, PRINT+1
>> SROD CASE+2*, PRINT+1
>> SROPER OPS*, OPS+1*, LOOP+1*, OTHER+1, OTHER+3*
SROPERS OPS!, OTHER+1*, OTHER+2*, OTHER+3
SROPS OPS+1!
SROPS( LOOP+1*
SROPS(1 OPS+1*, PRINT+1
SROPS(2 PRINT+2
SROPS(3 PRINT+3
SROPS(4 PRINT+4
SROPS(5 PRINT+4
SROPS(6 PRINT+4
>> SRORD SRODIS0+5, SRODIS0+6, SRODIS0+7, UTIL+4, CASE+4, PRINT+3
>> SROT OPS+2*, PRINT+3
>> SRP SRODIS0+5*, SRODIS0+7*, SRODIS0+8*, UTIL+2*, UTIL+4, UTIL+5, SPEC+1, ALL, ALL+2
>> SRPRINT SRODIS0+3*
>> SRQ SRODIS0+2*, SRODIS0+5, SRODIS0+6, SRODIS0+7, END, SPEC, SPEC+1, SPEC+2, NONE, ALL
, ALL+1, CASE+1
>> SRSD SRODIS0+3, SRODIS0+4
>> SRSITE("SITE" SRODIS0+2
>> SRSOUT SRODIS0+4*
>> SRSP SRODIS0+6, SRODIS0+8, UTIL+3
>> SRSP( SRODIS0+6, UTIL+3
>> SRSPEC SPEC*, SPEC+3, NONE*, NONE+1
>> SRSS SRODIS0+5*, SRODIS0+6*, UTIL+3*, UTIL+4, SPEC, SPEC+1, NONE, CASE+4*, PRINT+3
>> SRSSN CASE+2*
>> SRSUR CASE+2*, CASE+5*, PRINT+2
>> SRTECH OPS+4
SRTN SRODIS0+4*, END+2!, UTIL+1, UTIL+2, UTIL+3, UTIL+4, UTIL+5, SPEC+1*, ALL*, CASE+2
, CASE+5, OPS, OPS+2, OPS+4, PRINT+2, OTHER+1, OTHER+2
>> SRTWO CASE+2*, CASE+5*, CASE+6*, PRINT+3
>> TOTAL SPEC+1*, SPEC+3, ALL*, ALL+2
>> VA("PID" CASE+2, PRINT+2
>> VADM(1 CASE+2
>> X END*, OPS+2*
>> X1 OPS+2*
>> Y SRODIS0+3*, CASE+3*
>> ZTQUEUED END+1
>> ZTREQ END+1*
>> ZTSTOP END+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All