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

Package: Surgery

Routine: SRTPNEW


Information

SRTPNEW ;BIR/SJA - CREATE NEW RISK ASSESSMENT ;02/14/08

Source Information

Source file <SRTPNEW.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 EN^DDIOL  FILE^DICN  ^DIE  ^DIR  
Surgery 2 ^SROP1  ^SRSKILL  

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

Package Total Caller Graph
Surgery 2 SRTPSS  SRTPVAN  

Entry Points

Name Comments DBIA/ICR reference
START
OPT
ASK
LIST ; list assessments
DISP
CASE
OTHER ; other operations
LOOP ; break procedures
SEL ; select case
END
NEW
T1
VA
DATE ; Date of Transplant
VACO ; VACO ID
ADD
CHK ; VACO ID check

External References

Name Field # of Occurrence
EN^DDIOL CHK+8
FILE^DICN ADD
^DIE ADD+4
^DIR NEW+6, VADATE+2, VACO+1
^SROP1 DISP+1
^SRSKILL END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID")
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !!!
  • Line Location: START+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: START+2
Function Call: WRITE
  • Prompt: "No operations exist for this patient. Assessment cannot be entered.",!!,"Press RETURN to continue... "
  • Line Location: START+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: OPT+0
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to create an assessment for this surgical case, or 'NO' to quit",!,"this option."
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID"),!
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: CNT_". "
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: $E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3),?14,SROPS(1)
  • Line Location: CASE+0
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: CASE+0
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: CASE+0
Function Call: WRITE
  • Prompt: !,?14,SROPS(4)
  • Line Location: CASE+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: CASE+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID"),!!
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !!,"Please enter the number corresponding to the Surgical Case you want to edit.",!,"If the case desired does not appear, enter <RET> to continue listing",!,"additional cases."
  • Line Location: SEL+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,"Creating a New "_$P(SRL(1),";")_" Transplant Assessment..."
  • Line Location: NEW+4
Function Call: WRITE
  • Prompt: !,II,". ",$P(SRL(II),";")
  • Line Location: NEW+5
Function Call: WRITE
  • Prompt: !
  • Line Location: NEW+6
Function Call: WRITE
  • Prompt: !
  • Line Location: VA+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: VACO+1
Routine Call
  • DIE
  • Line Location:
    • ADD+4
Routine Call
  • DIR
  • Line Location:
    • NEW+6
    • VA
    • DATE+2
    • VACO+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRT - [#139.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] ASK+3, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, LIST+6, LIST+8, DISPOTHER+1
OTHER+2, ADD+5
^SRF("ADT" START+1
^SRO(133 - [#133] NEW+1
^SRT - [#139.5] ADD+5*, CHK+2
^SRT("AE" CHK+1, CHK+4

Label References

Name Line Occurrences
ADD SRTPNEW+2, ASK+4
ASK START+1, ASK+1
END SRTPNEW+2, START+2, OPT
LIST START+1
LOOP DISP+2
NEW SRTPNEW+2
OPT OPT+1
OTHER DISP
SEL LIST+7
T1 NEW+4
VACO ASK+4

Naked Globals

Name Field # of Occurrence
^( LIST+2
^(37 LIST+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT START+1*, START+2, OPT+1, LIST+7*, LIST+8*, DISP+3, CASE+3
DA ADD!, ADD+1!*, ADD+4!, CHK+2
DD ADD!
>> DFN START+1, ADDCHK+3
DIC ADD!*
DIC(0 ADD*
DIE ADD+1!*, ADD+4!
DIR NEW+6!, VA!, DATE+2!, VACO+1!
DIR("A" NEW+6*, VA*, DATE+2*, VACO+1*
DIR(0 NEW+6*, VA*, DATE+2*, VACO+1*
DLAYGO ADD*!
DO ADD!
DR ADD+1!*, ADD+3*, ADD+4!
DTIME START+2, OPTASKSEL+1, SEL+4
>> DTOUT NEW+6, VADATE+2, VACO+1
>> DUOUT NEW+6, DATE+2
>> I START+1*, DISP*, NEW+2*, NEW+3
>> II NEW+5*, ADD+3*
IOF STARTLIST+7, SEL+2, END
IOSL LIST+7
>> LOOP LOOP+1*
>> M DISP+2*, LOOP+1
MM DISP+2!, LOOP+1*
MMM DISP+2!, LOOP+1*
>> SRASS START+1*, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, LIST+6, LIST+7*, LIST+8, DISP
DISP+1, CASE+3, OTHER+1, OTHER+2
>> SRBACK LIST+7*, SEL+4*
SRC CHK+1~, CHK+8
SRC(1 CHK+5*
SRC(2 CHK+6*
SRC(3 CHK+7*
>> SRCASE( OPT+1, OPT+2, CASE+3*, SEL+3, SEL+4, SEL+5
>> SRCASE(1 LIST+7
>> SRCHG ASKASK+4
SRCNT NEW!, NEW+1*, NEW+2*, NEW+3, NEW+4, NEW+6
SRDFN CHK+1~, CHK+4*
SRDFN1 CHK+1~, CHK+3*, CHK+4
>> SRDT START+1*, LIST+7*, CASE+3
SRL NEW!
SRL( NEW+3*, NEW+5, T1
SRL(1 NEW+4
>> SRLONG OTHER+1*, OTHER+2
>> SRNEWOP OPT+1
SRNODE0 CHK+1~, CHK+2*, CHK+3
>> SROP DISP+1*
>> SROPER DISP*, DISP+2*, OTHER+1, OTHER+3*, LOOP+1*
>> SROPERS OTHER+1*, OTHER+2*, OTHER+3
SROPS DISP+2!
SROPS( LOOP+1*
SROPS(1 DISP+2*, CASE
SROPS(2 CASE
SROPS(3 CASE
SROPS(4 CASE+1
>> SROTHER DISP*, OTHER+1*, OTHER+2
SRPAN ADD+3~*
SRSCAN LIST+2*!, LIST+3, LIST+4
>> SRSDATE LIST+8*, CASE
>> SRSITE NEW+1
>> SRSITE("DIV" ADD+5
>> SRSOUT SRTPNEW+2, START+1, OPT*, ASK*, ASK+2*, ASK+4, LIST+7, SEL+1*, SEL+4*, NEW+6*
, VA*, DATE+2*, VACO+1*
SRTN START+1, OPT+2*, ASK!, ASK+2!, ASK+3, LIST+7, DISP+3, CASE+2, SEL+5*, NEW+6!
, VA!, ADD+1, ADD+5
>> SRTPDT ASK+3*, DATE+3*, ADD+1
SRTPP NEW+6!, VA!, ADD*, ADD+1, ADD+5
>> SRTTYPE T1*, ADD+1, ADD+3
>> SRVA SRTPNEW+2, ASK+3, VA+1*, DATE+1, ADD+1, ADD+5
SRVACO VACO+1!, VACO+2*, ADD+1
>> SRYN ASK*, ASK+1*, ASK+2
>> VA("PID" STARTLIST+7, SEL+2
>> VADM(1 STARTLIST+7, SEL+2
X START+2*, OPT*, OPT+1, OPT+2, SEL+1*, SEL+2, SEL+3, SEL+4*, SEL+5, VA
VACO+1, ADD*, CHK+1, CHK+4!
>> XX T1*
>> Y NEW+4*, T1VA+1, DATE+3, VACO+2, ADD
>> YY NEW+1*, NEW+2
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 |  Naked Globals |  Local Variables  | All