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 |  Local Variables |  All
Print Page as PDF
Routine: SRODTH

Package: Surgery

Routine: SRODTH


Information

SRODTH ;BIR/ADM - UPDATE CASE AS UNRELATED OR RELATED TO DEATH ;01/30/01 10:06 AM

Source Information

Source file <SRODTH.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 (,C)^%DTC  ^DIC  ^DIE  ^DIR  
Surgery 2 ($$LOCK,UNLOCK)^SROUTL  ^SRSKILL  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SRO DEATH RELATED  

Entry Points

Name Comments DBIA/ICR reference
SET ; set up array of cases in 90 days prior to death
PAT
HDR ; print heading
LIST ; display list of operations
RELATED ; update UNRELATED/RELATED status
NODIE
END
SEL ; select operation to update
LOOP ; break procedures
OUT

External References

Name Field # of Occurrence
^%DTC LIST+5
C^%DTC PAT+3
^DIC PAT+1
^DIE RELATED+2
^DIR OUT, SEL+2, NODIE, END
$$LOCK^SROUTL RELATED+1
UNLOCK^SROUTL RELATED+1
^SRSKILL END+1
DEM^VADPT PAT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?15,"Update Operations as Unrelated or Related to Death",!!
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: !!,"This patient had no operations in 90 days prior to death.",!!
  • Line Location: OUT+0
Function Call: WRITE
  • Prompt: !!,"Operations in 90 Days Prior to Death:",!
  • Line Location: OUT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RELATED+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RELATED+2
Function Call: WRITE
  • Prompt: !,NUM_".",?3,DATE,?15,SROPS(1)
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: !,?15,SROPS(2)
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: !,?15,SROPS(2)
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: !,?15," >>> Died "_SRLENGTH_" day"_$S(SRLENGTH>1:"s",1:"")_" postop. <<<"
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: @IOF,!,?15,"Update Operations as Unrelated or Related to Death",!!,VADM(1)_" "_VA("PID")
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: " * DIED "_$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)_" *"
  • Condition for execution: X
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!!,"No death is recorded for this patient.",!!!
  • Line Location: NODIE+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Routine Call
  • DIE
  • Line Location:
    • RELATED+2
Routine Call
  • DIC
  • Line Location:
    • PAT+1
Routine Call
  • DIR
  • Line Location:
    • OUT
    • SEL+2
    • NODIE
    • END

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] SET+1, SET+2, LIST+1*, LIST+3, LIST+5
^SRF("ADT" PAT+4

Label References

Name Line Occurrences
END PAT+1, OUT, SEL+2, NODIE
HDR OUT, RELATED+2, NODIE
LIST OUT+2, RELATED+2
LOOP LIST+6
NODIE PAT+2
OUT SEL+3
PAT OUT, SEL+4, NODIE+1
RELATED SEL+3
SET PAT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT PAT+3*, OUT, SEL+1, SET+3*
DA RELATED+2!*
>> DATE LIST+5*, LIST+7
>> DFN PAT+2*, PAT+4
DIC PAT+1!*
DIC("A" PAT+1*
DIC(0 PAT+1*
DIE RELATED+2!*
DIR OUT!, SEL+1!, SEL+2!, NODIE!, END!
DIR("?" SEL+1*
DIR("A" SEL+2*
DIR(0 OUT*, SEL+1*, NODIE*, END*
DR RELATED+2!*
>> DTOUT OUT, SEL+2, NODIE
>> DUOUT OUT, SEL+2, NODIE
IOF PAT, HDR+1, END+1
>> LOOP LOOP+1*
>> M LIST+6*, LOOP+1
MM LIST+6!, LOOP+1*
MMM LIST+6!, LOOP+1*
>> NUM OUT+2*, SEL+3*, RELATED+1, LIST+7
SRCASE PAT+4!*, OUT+2*, RELATED+1*, RELATED+2, SET+1, SET+2, SET+3, LIST+1, LIST+3, LIST+5
SRCASE( OUT+2, RELATED+1, SET+3*
>> SRDAY PAT+3*, SET+1
>> SRDEATH PAT+2*, PAT+3, SET+1, LIST+5
>> SRDT PAT+3*, PAT+4*
>> SRELATE LIST+2*, LIST+4
>> SRLENGTH LIST+5*, LIST+8
>> SROPER LIST+3*, LIST+4*, LIST+6*, LOOP+1*
SROPS LIST+6!
SROPS( LOOP+1*
SROPS(1 LIST+6*, LIST+7
SROPS(2 LIST+7
SROPS(3 LIST+7
>> SRSDATE SET+1*
>> SRSOUT PAT+1*, END
>> VA("PID" HDR+1
>> VADM(1 HDR+1
>> VADM(6 PAT+2, HDR+1
>> X PAT+3, LIST+1*, LIST+2, LIST+5, HDR+1*
>> X1 PAT+3*, LIST+5*
>> X2 PAT+3*, LIST+5*
>> Y PAT+1, PAT+2, SEL+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All