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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Surgery 4 ^SRCUSS  ^SRSKILL  ^SRTPASS  ^SRTPNEW  
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Surgery 4 SR TRANSPLANT ENTER/EDIT  SR TRANSPLANT PARAMETERS  SRTPCOM  SRTPTRAN  
Kernel 1 ^DIC(19  

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

External References

Name Field # of Occurrence
^DIC SRTPSS+4, PARAM+4
$$GET1^DIQ PARAM+3, PARAM+5, SET+3
^DIR START+3
^SRCUSS PAR
^SRSKILL END
^SRTPASS START+1
^SRTPNEW OPT+2
DEM^VADPT SRTPSS+5

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
Routine Call
  • DIC
  • Line Location:
    • SRTPSS+4
    • PARAM+4
Routine Call
  • DIR
  • Line Location:
    • START+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRO(133 - [#133] TRS+2, PARAM+2, SET+1
^SRT - [#139.5] OPT+3

Label References

Name Line Occurrences
$$TRS SITE+1
@( OPT+4
END SRTPSS+4, START+1, OPT, OPT+2
HDR SRTPSS+5
OPT OPT+1
PAR PARAM+3
SET PAR

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT START+2*, OPT+1, OPT+2
DA PAR!*
>> DFN SRTPSS+5*
DIC SRTPSS+4!*, PARAM+4!*
DIC("A" SRTPSS+4*, PARAM+4*
DIC(0 SRTPSS+4*, PARAM+4*
DIE PAR!*
DINUM PARAM+4!
DIR START+3!
DIR("A" START+3*
DIR(0 START+3*
DR PAR!*
DTIME OPT, SITE+3
DUZ("SAV" SRTPSS+2
IOF OPT+2, END, HDR+1, SITE+2, SITE+3, PARAM+4, PAR
>> Q3(1 PARAM+3*, PARAM+5*
S SET+6!
S(0 SET+1*, SET+2, SET+3, SET+4
>> SR("RA" OPT+3*
>> SRANM SRTPSS+5*
>> SRCASE( START+2*, OPT+1, OPT+5
>> SRCASE(1 START+3
>> SRCNT PARAM+2*, PARAM+3
>> SRDFN SRTPSS+5*
SRDIV PARAM+1~, PARAM+3*, PARAM+5*, PAR
SRL PARAM+1!
SRL( PARAM+2*
SRL(1 PARAM+3
SRN PARAM+1~, PARAM+5*
SRNAME PARAM+1~, PARAM+5*
SRNEW SRTPSS+2!, START+2, OPT+1, OPT+2
>> SRNOVA OPT+3*
SRNUM PARAM+1~, PARAM+3*, PARAM+5*
>> SRSITE TRS+1, TRS+2, PAR, SET+1
>> SRSITE("AML" SET+1*
>> SRSITE("DIV" PARAM+3, SET+3*
>> SRSITE("IV" SET+2*!
>> SRSITE("NRPT" SET+4*
>> SRSITE("OPTION" SET+5*
>> SRSITE("REQ" SET+1*!
>> SRSITE("SITE" PARAM+3, SET+3*
>> SRSOUT SRTPSS+2*, SRTPSS+4*, START+1, OPT*, END*
SRTN SRTPSS+2!, OPT+2!
SRTPDT SRTPSS+3~
SRTPP START+1, OPT+2!, OPT+3, OPT+5*
SRTTYPE SRTPSS+3~, OPT+3*, OPT+4
SRVA SRTPSS+3~*, OPT+3*
ST PAR!
TRS TRS+1~*, TRS+2*, TRS+3
>> VA("PID" SRTPSS+5, HDR+1
>> VADM(1 SRTPSS+5, START+3, HDR+1
>> VADM(6 HDR+1
>> X OPT*, OPT+1, OPT+2, OPT+5, HDR+1*, SITE+3*, PARAM+2*
>> XQUIT SITE+3*
>> XQY SET+5
Y SRTPSS+4, SRTPSS+5, PARAM+4, PARAM+5, PAR!
Y(0 PARAM+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All