Routine: SRTPRLU

Package	Total	Call Graph
Surgery	5	COMM^SRTPLIV1 $$OUT^SRTPLUN1 (END,PAGE)^SRTPPAS ^SRTPRLU1 HW^SRTPUTL
VA Fileman	1	EN^DIQ1

Entry Points

Name	Comments	DBIA/ICR reference
TRANS	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Condition for execution: $E(IOST)="P" Line Location: TRANS+2
Function Call: WRITE	Prompt: !,?28,"LUNG TRANSPLANT INFORMATION",! Line Location: TRANS+2
Function Call: WRITE	Prompt: !,"LAS Score at Listing: ",?25,$P(SRAO(1),"^") Line Location: TRANS+6
Function Call: WRITE	Prompt: !,"LAS Score at Transplant: ",?25,$P(SRAO(2),"^"),?44,"Recipient HLA-A: ",$P(SRAO(7),"^") Line Location: TRANS+7
Function Call: WRITE	Prompt: !,"Ischemia Time for Organ (minutes)",?44,"Recipient HLA-B: ",$P(SRAO(8),"^") Line Location: TRANS+8
Function Call: WRITE	Prompt: !," - Warm Ischemia time:",?25,$P(SRAO(3),"^"),?44,"Recipient HLA-C: ",$P(SRAO(9),"^") Line Location: TRANS+9
Function Call: WRITE	Prompt: !," - Cold Ischemia time:",?25,$P(SRAO(4),"^"),?44,"Recipient HLA-DR: ",$P(SRAO(10),"^") Line Location: TRANS+10
Function Call: WRITE	Prompt: !," - Total Ischemia time:",?25,$P(SRAO(5),"^"),?44,"Recipient HLA-BW: ",$P(SRAO(11),"^") Line Location: TRANS+11
Function Call: WRITE	Prompt: !,"Crossmatch D/R:",?25,$P(SRAO(6),"^"),?44,"Recipient HLA-DQ: ",$P(SRAO(12),"^") Line Location: TRANS+12

FileNo	Call Tags
^SRT - [#139.5]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^SRT - [#139.5]	SRTPRLU+10, SRTPRLU+12

Name	Field # of Occurrence
DA	SRTPRLU+5!, TRANS+4!
DIC	SRTPRLU+5!, TRANS+4!
DIQ	SRTPRLU+5!, TRANS+4!
DIQ(0	SRTPRLU+5, TRANS+4
DR	SRTPRLU+2!, SRTPRLU+5!, TRANS+1!, TRANS+3, TRANS+4*!
>> I	SRTPRLU+6, TRANS+5
IOSL	SRTPRLU+30, TRANS+14
IOST	SRTPRLU+29, SRTPRLU+30, TRANS+2, TRANS+13, TRANS+14
SRAO	SRTPRLU+2!, TRANS+1!
SRAO(	SRTPRLU+6, TRANS+5
SRAO(1	SRTPRLU+21, TRANS+6
SRAO(10	SRTPRLU+11, SRTPRLU+24, TRANS+10
SRAO(11	SRTPRLU+13, SRTPRLU+25, TRANS+11
SRAO(12	SRTPRLU+14, SRTPRLU+27, TRANS+12
SRAO(13	SRTPRLU+15, SRTPRLU+28
SRAO(14	SRTPRLU+16, SRTPRLU+26
SRAO(15	SRTPRLU+18
SRAO(16	SRTPRLU+19
SRAO(17	SRTPRLU+17
SRAO(2	SRTPRLU+9, SRTPRLU+22, TRANS+7
SRAO(3	SRTPRLU+10*, SRTPRLU+11, SRTPRLU+23, TRANS+9
SRAO(4	SRTPRLU+12*, SRTPRLU+13, SRTPRLU+24, TRANS+10
SRAO(5	SRTPRLU+14, SRTPRLU+25, TRANS+11
SRAO(6	SRTPRLU+15, SRTPRLU+26, TRANS+12
SRAO(7	SRTPRLU+16, SRTPRLU+21, TRANS+7
SRAO(8	SRTPRLU+17, SRTPRLU+22, TRANS+8
SRAO(9	SRTPRLU+9, SRTPRLU+23, TRANS+9
>> SRDR	SRTPRLU+3, SRTPRLU+4, SRTPRLU+5, SRTPRLU+6, TRANS+3*, TRANS+4, TRANS+5
>> SREXT	SRTPRLU+19, SRTPRLU+28
>> SRNOVA	SRTPRLU+3, SRTPRLU+4, SRTPRLU+7, SRTPRLU+20
>> SRSOUT	SRTPRLU+29, SRTPRLU+30, TRANS+13, TRANS+14
>> SRTPP	SRTPRLU+5, SRTPRLU+6, SRTPRLU+10, SRTPRLU+12, TRANS+4, TRANS+5
SRX	SRTPRLU+2!, SRTPRLU+5!, SRTPRLU+6, TRANS+1!, TRANS+4!, TRANS+5
SRY	SRTPRLU+5!, TRANS+4!
SRY(	SRTPRLU+6, TRANS+5
SRZ	SRTPRLU+6, TRANS+4!, TRANS+5
Y	SRTPRLU+2!, TRANS+1!