Routine: SRTPTRAN

Information

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

Package	Total	Call Graph
Surgery	5	^SRSKILL DISP^SRTPASS ^SRTPCOM (,HDR)^SRTPSS (,DEL)^SRTPVAN
VA Fileman	2	^DIE ^DIR
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	1	SR TRANSPLANT ENTER/EDIT

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

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	Timeout: DTIME Variable: X Line Location: ENTER+7
Function Call: READ	Timeout: DTIME Variable: X 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
Routine Call	DIE Line Location: TRANS+3
Routine Call	DIR Line Location: TRANS+1

Name	Line Occurrences (* Changed, ! Killed)
^SRT - [#139.5]	SRTPTRAN+4, ENTER+3, ENTER+4

Name	Line Occurrences
@(	ENTER+12
END	ENTER+2, ENTER+7, ENTER+9, ENTER+10, ENTER+11
ENTER	ENTER+8
HELP	ENTER+8
TRANS	ENTER+2

Name	Field # of Occurrence
DA	TRANS+3!*
>> DFN	ENTER+3*
DIE	TRANS+3!*
DIR	TRANS+1!
DIR("A"	TRANS+1*
DIR("B"	TRANS+1*
DIR(0	TRANS+1*
DR	TRANS+3!*
DTIME	ENTER+7, ENTER+9, HELP+3
>> DTOUT	TRANS+1
>> DUOUT	TRANS+1
IOF	ENTER+4, ENTER+9, END
SR	SRTPTRAN+2~
SR("RA"	SRTPTRAN+4*, ENTER+2, TRANS
>> SRANM	ENTER+3*, ENTER+4
SRASS	ENTER+2!, ENTER+4*, ENTER+7!
>> SRNEW	ENTER+1
SRNOVA	SRTPTRAN+2~, SRTPTRAN+4*
>> SRPRINT	ENTER+1
>> SRSDATE	ENTER+4*
>> SRSOUT	SRTPTRAN+3, ENTER+2, ENTER+7, END, TRANS+1
SRTN	ENTER+7!, ENTER+9!
SRTPP	SRTPTRAN+2!, SRTPTRAN+3, SRTPTRAN+4, ENTER+2!, ENTER+3, ENTER+4, ENTER+9!, END!, TRANS+3
>> SRTTYPE	SRTPTRAN+4*, ENTER+12
SRVA	SRTPTRAN+2~, SRTPTRAN+4*
>> SRYN	ENTER+2, TRANS+1, TRANS+2
>> VA("PID"	ENTER+3
>> VADM(1	ENTER+3
>> X	ENTER+7, ENTER+8, ENTER+9, ENTER+10, ENTER+11, ENTER+12, HELP+3
>> Y	TRANS+2