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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SRTPSS

Package: Surgery

Routine: SRTPSS


Information

SRTPSS ;BIR/SJA - SELECT ASSESSMENT ;02/14/08

Source Information

Source file <SRTPSS.m>

Entry Points

Name Comments DBIA/ICR reference
START ; start display
OPT
END
HDR ; print heading
SITE ; determine if transplant assessment is defined for the site
TRS() ; extrinsic call to determine if site is can run the transplant assessment module
PARAM ; enter/edit site parameters
PAR
SET ; set site parameters

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: SRTPSS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SRTPSS+4
Function Call: WRITE
  • Prompt: CNT,". ---- CREATE NEW TRANSPLANT ASSESSMENT"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,"There are no Surgery Risk Assessments entered for "_VADM(1)_".",!!
  • Line Location: START+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: OPT+0
Function Call: WRITE
  • Prompt: !!,"Enter the number of the desired assessment."
  • Line Location: OPT+1
Function Call: WRITE
  • Prompt: " Select '"_CNT_"' to create a new",!,"transplant assessment."
  • Condition for execution: $D(SRNEW)
  • Line Location: OPT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OPT+2
Function Call: WRITE
  • Prompt: @IOF,!,?1,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: !
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: @IOF,!,"The SURGERY SITE PARAMETERS file indicates no transplant types defined for this",!,"site/division. Therefore, this option is not available for use.",!
  • Line Location: SITE+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SITE+3
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: SITE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SITE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PARAM+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PARAM+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAR+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call