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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls