Routine: SRTPLUN1

Information

SRTPLUN1 ;BIR/SJA - LUNG-RECIPIENT INFORMATION ;03/04/08

Package	Total	Call Graph
Surgery	3	COMM^SRTPLIV1 ^SRTPLUN2 (HDR,HW,SRHDR)^SRTPUTL
VA Fileman	3	^DIE Y^DIQ EN^DIQ1

Package	Total	Caller Graph
Surgery	7	SRTPHRT1 SRTPKID1 SRTPLIV1 SRTPRH SRTPRK SRTPRLI SRTPRLU

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: SRTPLUN1+2
Function Call: WRITE	Prompt: !!,"A Transplant Assessment must be selected prior to using this option.",!!,"Press <RET> to continue " Line Location: SRTPLUN1+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: START+1
Function Call: WRITE	Prompt: !! Line Location: START+8
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: @IOF,!!!!,"Enter the number or range of numbers you want to edit. Examples of proper",!,"responses are listed below." Line Location: HELP+0
Function Call: WRITE	Prompt: !!,"1. Enter 'A' to update all information.",!!,"2. Enter a number (1-"_SRX_") to update the information in that field. (For",!," example, enter '1' to update VACO ID.)" Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"3. Enter a range of numbers (1-"_SRX_") separated by a ':' to enter a range",!," of items. (For example, enter '1:4' to update items 1, 2, 3 and 4.)",! Line Location: HELP+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: HELP+3
Function Call: WRITE	Prompt: !! Line Location: RANGE+1
Function Call: WRITE	Prompt: !,"2. Date of Transplant:",?37,Y,?55,"16. Lung Cancer:",?72,$P(SRAO(16),"^") Line Location: DISP+8
Function Call: WRITE	Prompt: !,SRLINE Line Location: DISP+39
Routine Call	DIE Line Location: ONE+1

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DISP+8
^DD(139.5	OUT+2
^SRT - [#139.5]	DISP+10, DISP+12

Name	Line Occurrences
$$OUT	DISP+10, DISP+12
DISP	START
END	SRTPLUN1+2, START+1, START+2, START+3, START+4
HELP	START+3, START+4
ONE	START+8, RANGE+1
RANGE	START+7
START	START+3, START+4, START+7, START+8

Name	Field # of Occurrence
C	OUT+1~, OUT+2*
DA	ONE+1, DISP+4!
DIC	DISP+4!*
DIE	ONE+1!*
DIQ	DISP+4!*
DIQ(0	DISP+4*
DR	ONE+1!, DISP+2!, DISP+4!
DTIME	SRTPLUN1+2, START+1, HELP+3
>> I	DISP+5*
IOF	END, HELP
SRAO	DISP+2!
SRAO(	START+3, START+8, ONE+1, ONE+2, DISP+5*
SRAO(1	DISP+7, DISP+24
SRAO(10	DISP+18, DISP+33
SRAO(11	DISP+19, DISP+34
SRAO(12	DISP+20, DISP+35
SRAO(13	DISP+21, DISP+36
SRAO(14	DISP+22, DISP+37
SRAO(15	DISP+7, DISP+38
SRAO(16	DISP+8
SRAO(17	DISP+9
SRAO(18	DISP+11
SRAO(2	DISP+8, DISP+25
SRAO(3	DISP+9, DISP+26
SRAO(4	DISP+10*, DISP+11, DISP+27
SRAO(5	DISP+12*, DISP+13, DISP+28
SRAO(6	DISP+14, DISP+29
SRAO(7	DISP+15, DISP+30
SRAO(8	DISP+16, DISP+31
SRAO(9	DISP+17, DISP+32
SRCT	DISP+1!
>> SRCURL	RANGE+1*
>> SRDR	DISP+2, DISP+3, DISP+4, DISP+5
>> SREMIL	START+8, RANGE+1, ONE+1, ONE+2
>> SREXT	DISP+22, DISP+38
SRFLD	OUT~, OUT+2, OUT+4
>> SRHPG	DISP+1*
>> SRLINE	SRTPLUN1+3*, DISP+39
>> SRNOMORE	RANGE+1, ONE+1
>> SRNOVA	DISP+1, DISP+2, DISP+3, DISP+6, DISP+23
>> SRNXT	SRTPLUN1+3*, START
>> SRPAGE	DISP+1*
>> SRSHEMP	RANGE+1*
>> SRSOUT	SRTPLUN1+3, START, START+1, START+3, START+4, HELP+3*
>> SRTPP	SRTPLUN1+2, ONE+1, DISP+4, DISP+5, DISP+10, DISP+12
SRX	START+4, START+5, HELP+1, HELP+2, DISP+4!, DISP+5*
SRY	DISP+4!, OUT~, OUT+2
SRY(	DISP+5
>> SRZ	DISP+5*
>> X	SRTPLUN1+2, START+1, START+2, START+3, START+4, START+5, START+7, START+8, HELP+3*, RANGE+1
Y	START+4, ONE+1, DISP+8, OUT+1~, OUT+2, OUT+3, OUT+4*, OUT+5
Z	START+4*, OUT+1~