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
Print Page as PDF
Routine: SRTPTRAN

Package: Surgery

Routine: SRTPTRAN


Information

SRTPTRAN ;BIR/SJA - TRANSPLANT DATA ENTRY ;02/27/08

Source Information

Source file <SRTPTRAN.m>

Entry Points

Name Comments DBIA/ICR reference
ENTER ; edit, delete, complete, or change indicator
END
HELP ;
TRANS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?1,SRANM,!!
  • Line Location: ENTER+4
Function Call: WRITE
  • Prompt: !!,"1. Enter Transplant Assessment Information",!,"2. Delete Transplant Assessment Entry",!,"3. Update Transplant Assessment Status to 'COMPLETE'"
  • Line Location: ENTER+5
Function Call: WRITE
  • Prompt: !,"4. Change VA/Non-VA Transplant Indicator"
  • Line Location: ENTER+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENTER+7
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENTER+9
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: ENTER+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENTER+9
Function Call: WRITE
  • Prompt: !!,"Enter <RET> or '1' to enter or edit information related to this ",!,"Assessment entry. If you want to delete the Assessment, enter '2'."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"Enter '3' to update the status of this Assessment to 'COMPLETE'.",!,"Enter '4' to change the Assessment type from VA to Non-VA or vice versa"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !!,"This assessment has a status of "_$S($P(SR("RA"),"^")="T":"TRANSMITTED.",1:"COMPLETED."),!
  • Line Location: TRANS+0
Function Call: WRITE
  • Prompt: !!,"The Assessment Status has been changed to 'INCOMPLETE'."
  • Line Location: TRANS+4
Info |  Source |  Entry Points |  Interaction Calls