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

Package: Surgery

Routine: SRTPVAN


Information

SRTPVAN ;BIR/SJA - CHANGE ASSESSMENT TYPE ;02/29/08

Source Information

Source file <SRTPVAN.m>

Entry Points

Name Comments DBIA/ICR reference
CHG
DEL ; delete assessment
ST
CLEAN ; clean up the database after changing the transplant type
RET

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This assessment has already been verified and transmitted. It cannot be",!,"changed. If the assessment was transmitted in error, use the option 'Update",!,"an Assessment Transmitted in Error'."
  • Line Location: SRTPVAN+5
Function Call: WRITE
  • Prompt: !!,"This assessment has already been verified. It cannot be changed. If the",!,"assessment was verified in error, use the option 'Update an Assessment Verified",!,"in Error'."
  • Line Location: SRTPVAN+6
Function Call: WRITE
  • Prompt: !!,"This assessment has a current status of "_$S(SRSTAT="I":"'Incomplete'",1:"'Complete/Unverified'")
  • Line Location: CHG+0
Function Call: WRITE
  • Prompt: !,"The Transplant Assessment Indicator is a "_$S(SRATYPE="V":"VA",SRATYPE="N":"Non-VA",1:"")_" type"
  • Line Location: CHG+1
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: CHG+2
Function Call: WRITE
  • Prompt: !!,"No action has been taken."
  • Line Location: CHG+3
Function Call: WRITE
  • Prompt: !!,"Enter <RET> if this assessment was selected in error and the status should not ",!,"be changed. If you want to change this assessment type, enter 'YES'."
  • Line Location: CHG+4
Function Call: WRITE
  • Prompt: !!,"No action has been taken."
  • Line Location: CHG+5
Function Call: WRITE
  • Prompt: !!,"Changing Assessment type..."
  • Line Location: CHG+9
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: ST+0
Function Call: WRITE
  • Prompt: !!,"No action has been taken."
  • Line Location: ST+1
Function Call: WRITE
  • Prompt: !!,"Enter <RET> if this assessment was selected in error and should not be changed.",!,"If you want to delete this assessment, enter 'YES'."
  • Line Location: ST+2
Function Call: WRITE
  • Prompt: !!,"This case has been completed/Transmitted and must remain in the file for your records."
  • Line Location: ST+3
Function Call: WRITE
  • Prompt: !!,"Deleting Transplant Assessment..."
  • Line Location: ST+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RET+0
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: RET+0

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