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

Package: Surgery

Routine: SROMORT


Information

SROMORT ;B'HAM ISC/MAM - MORTALITY REPORT ; [ 10/01/98 12:55 PM ]

Source Information

Source file <SROMORT.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Surgery 3 ^SROSTOP  $$MANDIV^SROUTL0  ^SRSKILL  
VA Fileman 2 C^%DTC  D^DIQ  
Kernel 1 ^%ZISC  
Registration 1 (DEM,INP)^VADPT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Surgery 2 SROCMP  SROMOR  

Entry Points

Name Comments DBIA/ICR reference
SEARCH ; search for procedures
END ;
HDR ; print heading
OPS
BEG ; entry when queued
UTIL ; set ^TMP
OTHER ; other operations
PRINT ; print mortality information
PAGE
LOOP ; break procedure if greater than 55 characters
MORE

External References

Name Field # of Occurrence
C^%DTC SEARCH+1
^%ZISC END+3
D^DIQ PRINT+2
^SROSTOP HDR+1
$$MANDIV^SROUTL0 SEARCH+2
^SRSKILL END+3
DEM^VADPT PRINT+3
INP^VADPT OPS+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No mortalities for the selected date range.",!
  • Line Location: BEG+5
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE ",PAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?58,"MORTALITY REPORT",?100,"DATE REVIEWED: "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!!,"OPERATION DATE",?17,"PATIENT",?50,"PRINCIPAL OPERATIVE PROCEDURE",?112,"DATE OF DEATH",!,?17,"ID#",?112,"AUTOPSY (Y/N)",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?(132-$L(SRSS)\2),SRSS,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,SRSDT,?17,SRNAME,?50,SROPS(1),?112,SRSDEAD,!,?17,VA("PID"),?50,SROPS(2),?112,SRAUT
  • Line Location: OPS+5
Function Call: WRITE
  • Prompt: !,?50,SROPS(3)
  • Line Location: OPS+5
Function Call: WRITE
  • Prompt: !,?50,SROPS(3)
  • Line Location: OPS+5
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: PAGE+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" BEG+2
^DGPT - [#45] OPS+3
^DPT("AEXP1" BEG+3
^SRF - [#130] SEARCH+2, UTIL+1, UTIL+2, UTIL+3, OTHER+1, OTHER+2, OPS
^SRF("B" SEARCH+2
^SRO(137.45 - [#137.45] UTIL+3
^TMP("SR" BEG+1!, BEG+4, BEG+5, END+1!, MORE, UTIL+4*

Label References

Name Line Occurrences
HDR BEG+5, PAGE+1
LOOP OPS+1
MORE BEG+4
OTHER OPS
PAGE BEG+4, PRINT+1
PRINT MORE
SEARCH BEG+3
UTIL SEARCH+2

Naked Globals

Name Field # of Occurrence
^( MORE

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN BEG+3*, MORE*, SEARCH+2, UTIL+4
DT BEG+2
DTIME END+2, PAGE
>> I OPS*
IO BEG+1
IOF END+1, END+3, HDR+2
IOM HDR+4
IOSL PRINT+1
IOST END+1, END+2, PAGE
>> LINE HDR+4*, HDR+5*
>> LOOP LOOP+1*
>> M OPS+1*, LOOP+1
MM OPS+1!, LOOP+1*
MMM OPS+1!, LOOP+1*
>> OPER OTHER+1*, OTHER+2, OPS*
>> PAGE BEG+1*, HDR+2, HDR+6*
>> SRAD PRINT+2*, OPS+3
>> SRAUT OPS+2*, OPS+3*, OPS+4*, OPS+5
>> SRCUTDT SEARCH+1*, SEARCH+2
>> SRDEAD MORE*, PRINT+2
>> SRED BEG+2, BEG+3
SRFRTO BEG+1~, BEG+2*, HDR+3
>> SRHALT HDR+1
>> SRHDR BEG+1*, HDR+6*, PAGE
>> SRINST HDR+2
>> SRINSTP SEARCH+2
>> SRLONG OTHER+1*, OTHER+2
>> SRNAME PRINT+3*, OPS+5
>> SROPER OTHER+1, OTHER+3*, OPS*, OPS+1*, LOOP+1*
>> SROPERS OTHER+1*, OTHER+2*, OTHER+3
SROPS OPS+1!
SROPS( LOOP+1*
SROPS(1 OPS+1*, OPS+5
SROPS(2 OPS+1*, OPS+5
SROPS(3 OPS+5
SROPS(4 OPS+5
>> SRPRINT BEG+2*, HDR+3
>> SRPTF OPS+2*, OPS+3*
>> SRSD BEG+2, BEG+3
>> SRSD1 BEG+3*, SEARCH+1, UTIL+4
>> SRSDATE BEG+4*, MORE, SEARCH+2*, UTIL+4, PRINT+2
>> SRSDEAD PRINT+2*, OPS+5
>> SRSDT PRINT+2*, OPS+5
>> SRSEDT BEG+3*, SEARCH+2
>> SRSOUT BEG+1*, BEG+4, END+2, MORE, HDR+1*, PRINT+1, PAGE*
SRSS BEG+4*, BEG+5!, MORE, UTIL+3*, UTIL+4, HDR+5
SRTN END+3!, MORE*, SEARCH+2*, UTIL+1, UTIL+2, UTIL+3, UTIL+4, OTHER+1, OTHER+2, OPS
>> SSN PRINT+3*
>> VA("PID" PRINT+3, OPS+5
>> VADM(1 PRINT+3
>> VAIN(10 OPS+3
>> VAINDT OPS+3*
>> X END+2*, MORE*, SEARCH+1, PAGE*
>> X1 SEARCH+1*
>> X2 SEARCH+1*
>> Y BEG+2*, UTIL+3*, PRINT+2*
>> ZTQUEUED END+1, HDR+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