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

Package: Surgery

Routine: SRTPHRT4


Information

SRTPHRT4 ;BIR/SJA - HEART-RISK ASSESSMENT INFO ;03/04/08

Source Information

Source file <SRTPHRT4.m>

Entry Points

Name Comments DBIA/ICR reference
START
END
HELP
RANGE ; range of numbers
ONE ; edit one item
DISP ; display fields

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SRTPHRT4+2
Function Call: WRITE
  • Prompt: !!,"A Transplant Assessment must be selected prior to using this option.",!!,"Press <RET> to continue "
  • Line Location: SRTPHRT4+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+8
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 information.",!!,"2. Enter a number (1-"_SRX_") to update the information in that field. (For",!," example, enter '1' to update Liver Disease)"
  • 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: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: RANGE+1
Function Call: WRITE
  • Prompt: !,"1. Liver Disease:",?36,$P(SRAO(1),"^")
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !,"2. Creatinine on Day of Transplant:",?36,$P(SRAO(2),"^")
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !,"3. HIV+ (positive):",?36,$P(SRAO(3),"^")
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !,"4. Active Infection Pre-Transplant:",?36,$P(SRAO(4),"^")
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !,"5. Pre-Transplant Skin Malignancy:",?36,$P(SRAO(5),"^")
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !,"6. Pre-Transplant Other Malignancy:",?36,$P(SRAO(6),"^")
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !,"7. Non-Compliance (Med and Diet):",?36,$P(SRAO(7),"^")
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !,"8. Recipient Substance Abuse:",?36,$P(SRAO(8),"^")
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: !,"9. Prior Blood Transfusion:",?36,$P(SRAO(9),"^")
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: !!,SRLINE
  • Line Location: DISP+14

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