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

Package: Surgery

Routine: SRTPDONR


Information

SRTPDONR ;BIR/SJA - DONOR INFORMATION ;03/04/08

Source Information

Source file <SRTPDONR.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Surgery 3 ^SRTPKID6  ^SRTPRACE  HDR^SRTPUTL  
VA Fileman 3 ^DIE  EN^DIQ1  ^DIR  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Surgery 5 SRTPKID3  SRTPKID4  SRTPRH2  SRTPRK2  SRTPRLU2  

Entry Points

Name Comments DBIA/ICR reference
DISP ; display fields
WRAP ;Wrap multiple race entries so that wrapped line
END
HELP
ONE ; edit one item
START
RANGE ; range of numbers
RACE ;Find all race entries and place into a string with commas inbetween
PRESS

External References

Name Field # of Occurrence
^DIE ONE+2
EN^DIQ1 DISP+5, DISP+11
^DIR PRESS
^SRTPKID6 START+2
^SRTPRACE ONE+1
HDR^SRTPUTL START+6, DISP+3

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SRTPDONR+2
Function Call: WRITE
  • Prompt: !!,"A Transplant Assessment must be selected prior to using this option.",!!,"Press <RET> to continue "
  • Line Location: SRTPDONR+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: START+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF,!!!!,"Enter the number or range of numbers you want to edit. Examples of proper",!,"responses are listed below."
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !!,"1. Enter 'A' to update all items.",!!,"2. Enter a number (1-"_SRX_") to update the information in that field. (For example,",!," enter '1' to update Donor Race)"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"3. Enter a range of numbers (1-"_SRX_") separated by a ':' to enter a range",!," of items. (For example, enter '1:4' to update items 1, 2, 3 and 4.)",!
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRESS+0
Function Call: WRITE
  • Prompt: !,"2. Donor Gender:",?27,$P(SRAO(2),"^")
  • Line Location: DISP+15
Function Call: WRITE
  • Prompt: !,"3. Donor Height:",?27,$P(SRAO(3),"^"),?45,"HLA Typing (#,#,#)"
  • Line Location: DISP+16
Function Call: WRITE
  • Prompt: !,"4. Donor Weight:",?27,$P(SRAO(4),"^"),?45,"=================="
  • Line Location: DISP+17
Function Call: WRITE
  • Prompt: !,"5. Donor DOB:",?27,$P(SRAO(5),"^"),?45,"13. Donor HLA-A: ",$P(SRAO(13),"^")
  • Line Location: DISP+18
Function Call: WRITE
  • Prompt: !,"6. Donor Age:",?27,$P(SRAO(6),"^"),?45,"14. Donor HLA-B: ",$P(SRAO(14),"^")
  • Line Location: DISP+19
Function Call: WRITE
  • Prompt: !,"7. Donor ABO Blood Type:",?27,$P(SRAO(7),"^"),?45,"15. Donor HLA-C: ",$P(SRAO(15),"^")
  • Line Location: DISP+20
Function Call: WRITE
  • Prompt: !,"8. Donor CMV:",?27,$P(SRAO(8),"^"),?45,"16. Donor HLA-DR: ",$P(SRAO(16),"^")
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: !,"9. Donor Substance Abuse:",?27,$P(SRAO(9),"^"),?45,"17. Donor HLA-BW: ",$P(SRAO(17),"^")
  • Line Location: DISP+22
Function Call: WRITE
  • Prompt: !,"10. Deceased Donor:",?27,$P($P(SRAO(10),"^"),"("),?45,"18. Donor HLA-DQ: ",$P(SRAO(18),"^")
  • Line Location: DISP+23
Function Call: WRITE
  • Prompt: !,"11. Living Donor:",?27,$P(SRAO(11),"^")
  • Line Location: DISP+24
Function Call: WRITE
  • Prompt: !,"12. Donor with Malignancy:",?27,$P(SRAO(12),"^")
  • Line Location: DISP+25
Function Call: WRITE
  • Prompt: !!,SRLINE
  • Line Location: DISP+26
Routine Call
  • DIE
  • Line Location:
    • ONE+2
Routine Call
  • DIR
  • Line Location:
    • PRESS

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)
^SRT - [#139.5] ONE+3*, ONE+4*, DISP+10

Label References

Name Line Occurrences
DISP START
END SRTPDONR+2, START+1, START+2, START+3, START+4
HELP START+3, START+4
ONE START+8, RANGE+1
RACE DISP+13
RANGE START+7
START START+3, START+4, START+7, START+8
WRAP RACE+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C RACE+1*, RACE+2, RACE+3, RACE+4, RACE+5, RACE+6*
>> D DISP+14*
DA ONE+2*, DISP+5!*, DISP+9*
DA( DISP+11*
DIC DISP+5!*, DISP+9*
DIE ONE+2!*
DIQ DISP+5!*, DISP+11*
DIQ(0 DISP+5*, DISP+11*
DIR PRESS!
DIR("A" PRESS*
DIR(0 PRESS*
DR ONE+2!*, DISP+4!*, DISP+5*!, DISP+9*
DR( DISP+9*
DTIME SRTPDONR+2, START+1
>> DTOUT PRESS
>> DUOUT PRESS
>> E WRAP+3*, WRAP+4, WRAP+7, WRAP+8*
>> I DISP+6*, WRAP+4*, WRAP+5, WRAP+6, WRAP+7, WRAP+10, WRAP+11, WRAP+12
>> II DISP+10*, DISP+11, DISP+12
IOF END, HELP
>> JJ DISP+10*, DISP+12*
>> K WRAP+5*, WRAP+6, WRAP+7
>> N RACE+1*, RACE+8
>> SR("RA" START+2, DISP+2
>> SRACE DISP+10*, DISP+12
SRAO DISP+4!
SRAO( START+3, START+8, ONE+2, DISP+6*
SRAO(1 DISP+4*, DISP+14*
SRAO(10 DISP+23
SRAO(11 DISP+24
SRAO(12 DISP+25
SRAO(13 DISP+18
SRAO(14 DISP+19
SRAO(15 DISP+20
SRAO(16 DISP+21
SRAO(17 DISP+22
SRAO(18 DISP+23
SRAO(2 DISP+15
SRAO(3 DISP+16
SRAO(4 DISP+17
SRAO(5 DISP+18
SRAO(6 DISP+19
SRAO(7 DISP+20
SRAO(8 DISP+21
SRAO(9 DISP+22
>> SRCURL RANGE+1*
>> SRDR DISP+4*, DISP+5, DISP+6
>> SREMIL START+8*, RANGE+1*, ONE+1, ONE+2, ONE+3, ONE+4
>> SRHPG DISP+1*
>> SRLINE DISP+26
>> SRNOMORE RANGE+1*, ONE+2*
>> SRNOVA DISP+1, DISP+2
>> SRNUM WRAP+15*, WRAP+16*, WRAP+17
>> SRNUM1 DISP+14, RACE+8*, WRAP+15*, WRAP+17, WRAP+18*
SROL RACE+1!*, WRAP+3*
SROL( DISP+14, RACE+8*, WRAP+17*
SROLINE RACE+1*, RACE+4*, RACE+5*, RACE+8, RACE+9, RACE+10!, WRAP+3, WRAP+4
SROLN RACE+10!, WRAP+3*
SROLN( WRAP+4*, WRAP+5, WRAP+6, WRAP+7, WRAP+10
SROLN1 RACE+10!, WRAP+3*
SROLN1( WRAP+6*, WRAP+10*, WRAP+11*, WRAP+12*, WRAP+16, WRAP+17
>> SROLNGTH WRAP+3*, WRAP+4
SRORACE RACE+1*, RACE+10!
SRORACE( RACE+3*, RACE+4, RACE+5
SRORC RACE+1*, RACE+2*, RACE+3, RACE+10!
SROWRAP RACE+10!, WRAP+3*, WRAP+4, WRAP+7*, WRAP+10*, WRAP+11, WRAP+12
>> SRPAGE DISP+1*, DISP+2*
>> SRSHEMP RANGE+1*
>> SRSOUT START, START+1*, START+3, START+4, PRESS*
>> SRTPP SRTPDONR+2, ONE+2, ONE+3, ONE+4, DISP+5, DISP+6, DISP+9, DISP+10
SRX SRTPDONR+3~, START+4, START+5, HELP+1, HELP+2, DISP+5!, DISP+6*, DISP+7*
SRY SRTPDONR+3~, DISP+5!, DISP+9!, DISP+10!
SRY( DISP+6, DISP+12
SRZ SRTPDONR+3~, DISP+5!, DISP+6*, DISP+9!
SRZ( DISP+12*, DISP+14, RACE+2, RACE+3
>> X SRTPDONR+2*, START+1*, START+2, START+3*, START+4, START+5*, START+7, START+8, RANGE+1
>> Y START+4*, ONE+2
>> Z START+4*
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