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

Package: Surgery

Routine: SRTPLIV7


Information

SRTPLIV7 ;BIR/SJA - LIVER-DONOR INFORMATION ;03/04/08

Source Information

Source file <SRTPLIV7.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SRTPLIV7+2
Function Call: WRITE
  • Prompt: !!,"A Transplant Assessment must be selected prior to using this option.",!!,"Press <RET> to continue "
  • Line Location: SRTPLIV7+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • 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: HELP+3
Function Call: WRITE
  • Prompt: !,"2. Donor Gender:",?21,$P(SRAO(2),"^")
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: !,"3. Donor Height:",?21,$P(SRAO(3),"^"),?42,"HLA Typing (#,#,#,#)"
  • Line Location: DISP+14
Function Call: WRITE
  • Prompt: !,"4. Donor Weight:",?21,$P(SRAO(4),"^"),?42,"===================="
  • Line Location: DISP+15
Function Call: WRITE
  • Prompt: !,"5. Donor DOB:",?21,$P(SRAO(5),"^"),?42,"13. Donor HLA-A: ",$P(SRAO(13),"^")
  • Line Location: DISP+16
Function Call: WRITE
  • Prompt: !,"6. Donor Age:",?21,$P(SRAO(6),"^"),?42,"14. Donor HLA-B: ",$P(SRAO(14),"^")
  • Line Location: DISP+17
Function Call: WRITE
  • Prompt: !,"7. ABO Blood Type:",?21,$P(SRAO(7),"^"),?42,"15. Donor HLA-C: ",$P(SRAO(15),"^")
  • Line Location: DISP+18
Function Call: WRITE
  • Prompt: !,"8. Donor CMV:",?21,$P(SRAO(8),"^"),?42,"16. Donor HLA-DR: ",$P(SRAO(16),"^")
  • Line Location: DISP+19
Function Call: WRITE
  • Prompt: !,"9. Substance Abuse:",?21,$P(SRAO(9),"^"),?42,"17. Donor HLA-BW: ",$P(SRAO(17),"^")
  • Line Location: DISP+20
Function Call: WRITE
  • Prompt: !,"10. Deceased Donor:",?21,$P($P(SRAO(10),"^"),"("),?42,"18. Donor HLA-DQ: ",$P(SRAO(18),"^")
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: !,"11. Living Donor:",?21,$P(SRAO(11),"^")
  • Line Location: DISP+22
Function Call: WRITE
  • Prompt: !,"12. With Malignancy:",?21,$P(SRAO(12),"^")
  • Line Location: DISP+23
Function Call: WRITE
  • Prompt: !!,SRLINE
  • Line Location: DISP+24

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRT - [#139.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call