Routine: SRTPLSTP

Information

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

Package	Total	Caller Graph
Surgery	1	SRTPLST

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

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

Name	Line Occurrences (* Changed, ! Killed)
^SRO(133 - [#133]	MANDIV+2
^SRT - [#139.5]	SRTPLSTP+4, SRTPLSTP+5, PRT+1, PRT+2, PRT+4, MANDIV+1, MANDIV+6
^SRT("AC"	SRTPLSTP+4

Name	Field # of Occurrence
CASE	MANDIV~, MANDIV+1, MANDIV+6
>> DFN	PRT+4*
I	PRT+5~
IOF	HDR+2
IOSL	PRT+3
>> LINE	SRTPLSTP+2*, HDR+6
>> LINE1	SRTPLSTP+2*, PRT+11
>> SR("RA"	SRTPLSTP+4, SRTPLSTP+5, PRT+4, PRT+8, PRT+10
>> SRA(0	PRT+4*, PRT+7, PRT+9
>> SRANM	PRT+5, PRT+6, PRT+9
>> SRASSN	PRT+5*
>> SRAST	SRTPLSTP+5
>> SRDFN	SRTPLSTP+2*
SRDIV	MANDIV+5~, MANDIV+6*, MANDIV+7
>> SRDT	PRT+7*, PRT+9
>> SRED	SRTPLSTP+4
>> SRFRTO	HDR+4
>> SRHALT	HDR+1
SRINST	HDR+3, MANDIV~, MANDIV+3, MANDIV+4, MANDIV+7
>> SRINSTP	SRTPLSTP+5
SROR	MANDIV+5~
>> SRPAGE	SRTPLSTP+2, HDR+2, HDR+3
>> SRSD	SRTPLSTP+4*
>> SRSOUT	SRTPLSTP+2, SRTPLSTP+3, SRTPLSTP+4, PRT+3, HDR+1
>> SRTPP	SRTPLSTP+4*, SRTPLSTP+5, PRT+1, PRT+2, PRT+4
>> SRTYPE	PRT+2
>> SRVACO	PRT+4*, PRT+9
U	MANDIV+6
>> VA("PID"	PRT+5, PRT+9
VADM	PRT+5!
VADM(1	PRT+5
>> Y	PRT+7, PRT+8, PRT+9, PRT+10*
>> ZTQUEUED	HDR+1