Routine: SRTPLSTP

Information

SRTPLSTP ;BIR/SJA - LIST ASSESSMENTS ;04/11/08

Name	Comments	DBIA/ICR reference
PRT	; print assessments)
HDR	; print heading
MANDIV(SRINST,CASE)	;a boolean divisional call for managerial reports

Name	Line Occurrences
Function Call: WRITE	Prompt: !,SRVACO,?16,SRANM_" ("_VA("PID")_")",?52,SRDT,?70,$S(Y="T":"TRANSMITTED",Y="C":"COMPLETE",Y="I":"INCOMPLETE",1:""),?87,$S($P(SRA(0),"^",3):$P(SRA(0),"^",3),1:"N/A") Line Location: PRT+9
Function Call: WRITE	Prompt: ?107,$S(Y="LI":"LIVER",Y="LU":"LUNG",Y="K":"KIDNEY",Y="H":"HEART",1:"") Line Location: PRT+10
Function Call: WRITE	Prompt: !,LINE1 Line Location: PRT+11
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?53,"LIST OF TRANSPLANT ASSESSMENTS" Line Location: HDR+2
Function Call: WRITE	Prompt: ?120,"PAGE "_SRPAGE,!,?(132-$L(SRINST)\2),SRINST,!,?58,"SURGERY SERVICE",?100,"DATE REVIEWED:" Line Location: HDR+3
Function Call: WRITE	Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,"REVIEWED BY:" Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"VACO ID",?16,"PATIENT",?52,"TRANSPLANT DATE",?70,"STATUS",?87,"SURGERY CASE #",?107,"ORGAN TYPE" Line Location: HDR+5
Function Call: WRITE	Prompt: !,LINE Line Location: HDR+6