Routine: SRTPTRAN

Information

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

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

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