Routine: SRTPDONR

Package	Total	Call Graph
Surgery	3	^SRTPKID6 ^SRTPRACE HDR^SRTPUTL
VA Fileman	3	^DIE EN^DIQ1 ^DIR

Package	Total	Caller Graph
Surgery	5	SRTPKID3 SRTPKID4 SRTPRH2 SRTPRK2 SRTPRLU2

Entry Points

Name	Comments	DBIA/ICR reference
DISP	; display fields
WRAP	;Wrap multiple race entries so that wrapped line
END
HELP
ONE	; edit one item
START
RANGE	; range of numbers
RACE	;Find all race entries and place into a string with commas inbetween
PRESS

External References

Name	Field # of Occurrence
^DIE	ONE+2
EN^DIQ1	DISP+5, DISP+11
^DIR	PRESS
^SRTPKID6	START+2
^SRTPRACE	ONE+1
HDR^SRTPUTL	START+6, DISP+3

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: SRTPDONR+2
Function Call: WRITE	Prompt: !!,"A Transplant Assessment must be selected prior to using this option.",!!,"Press <RET> to continue " Line Location: SRTPDONR+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: START+1
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 items.",!!,"2. Enter a number (1-"_SRX_") to update the information in that field. (For example,",!," enter '1' to update Donor Race)" 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: WRITE	Prompt: ! Line Location: PRESS+0
Function Call: WRITE	Prompt: !,"2. Donor Gender:",?27,$P(SRAO(2),"^") Line Location: DISP+15
Function Call: WRITE	Prompt: !,"3. Donor Height:",?27,$P(SRAO(3),"^"),?45,"HLA Typing (#,#,#)" Line Location: DISP+16
Function Call: WRITE	Prompt: !,"4. Donor Weight:",?27,$P(SRAO(4),"^"),?45,"==================" Line Location: DISP+17
Function Call: WRITE	Prompt: !,"5. Donor DOB:",?27,$P(SRAO(5),"^"),?45,"13. Donor HLA-A: ",$P(SRAO(13),"^") Line Location: DISP+18
Function Call: WRITE	Prompt: !,"6. Donor Age:",?27,$P(SRAO(6),"^"),?45,"14. Donor HLA-B: ",$P(SRAO(14),"^") Line Location: DISP+19
Function Call: WRITE	Prompt: !,"7. Donor ABO Blood Type:",?27,$P(SRAO(7),"^"),?45,"15. Donor HLA-C: ",$P(SRAO(15),"^") Line Location: DISP+20
Function Call: WRITE	Prompt: !,"8. Donor CMV:",?27,$P(SRAO(8),"^"),?45,"16. Donor HLA-DR: ",$P(SRAO(16),"^") Line Location: DISP+21
Function Call: WRITE	Prompt: !,"9. Donor Substance Abuse:",?27,$P(SRAO(9),"^"),?45,"17. Donor HLA-BW: ",$P(SRAO(17),"^") Line Location: DISP+22
Function Call: WRITE	Prompt: !,"10. Deceased Donor:",?27,$P($P(SRAO(10),"^"),"("),?45,"18. Donor HLA-DQ: ",$P(SRAO(18),"^") Line Location: DISP+23
Function Call: WRITE	Prompt: !,"11. Living Donor:",?27,$P(SRAO(11),"^") Line Location: DISP+24
Function Call: WRITE	Prompt: !,"12. Donor with Malignancy:",?27,$P(SRAO(12),"^") Line Location: DISP+25
Function Call: WRITE	Prompt: !!,SRLINE Line Location: DISP+26
Routine Call	DIE Line Location: ONE+2
Routine Call	DIR Line Location: PRESS

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
DISP	START
END	SRTPDONR+2, START+1, START+2, START+3, START+4
HELP	START+3, START+4
ONE	START+8, RANGE+1
RACE	DISP+13
RANGE	START+7
START	START+3, START+4, START+7, START+8
WRAP	RACE+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> C	RACE+1, RACE+2, RACE+3, RACE+4, RACE+5, RACE+6
>> D	DISP+14*
DA	ONE+2, DISP+5!, DISP+9*
DA(	DISP+11*
DIC	DISP+5!, DISP+9
DIE	ONE+2!*
DIQ	DISP+5!, DISP+11
DIQ(0	DISP+5, DISP+11
DIR	PRESS!
DIR("A"	PRESS*
DIR(0	PRESS*
DR	ONE+2!, DISP+4!, DISP+5!, DISP+9
DR(	DISP+9*
DTIME	SRTPDONR+2, START+1
>> DTOUT	PRESS
>> DUOUT	PRESS
>> E	WRAP+3, WRAP+4, WRAP+7, WRAP+8
>> I	DISP+6, WRAP+4, WRAP+5, WRAP+6, WRAP+7, WRAP+10, WRAP+11, WRAP+12
>> II	DISP+10*, DISP+11, DISP+12
IOF	END, HELP
>> JJ	DISP+10, DISP+12
>> K	WRAP+5*, WRAP+6, WRAP+7
>> N	RACE+1*, RACE+8
>> SR("RA"	START+2, DISP+2
>> SRACE	DISP+10*, DISP+12
SRAO	DISP+4!
SRAO(	START+3, START+8, ONE+2, DISP+6*
SRAO(1	DISP+4, DISP+14
SRAO(10	DISP+23
SRAO(11	DISP+24
SRAO(12	DISP+25
SRAO(13	DISP+18
SRAO(14	DISP+19
SRAO(15	DISP+20
SRAO(16	DISP+21
SRAO(17	DISP+22
SRAO(18	DISP+23
SRAO(2	DISP+15
SRAO(3	DISP+16
SRAO(4	DISP+17
SRAO(5	DISP+18
SRAO(6	DISP+19
SRAO(7	DISP+20
SRAO(8	DISP+21
SRAO(9	DISP+22
>> SRCURL	RANGE+1*
>> SRDR	DISP+4*, DISP+5, DISP+6
>> SREMIL	START+8, RANGE+1, ONE+1, ONE+2, ONE+3, ONE+4
>> SRHPG	DISP+1*
>> SRLINE	DISP+26
>> SRNOMORE	RANGE+1, ONE+2
>> SRNOVA	DISP+1, DISP+2
>> SRNUM	WRAP+15, WRAP+16, WRAP+17
>> SRNUM1	DISP+14, RACE+8, WRAP+15, WRAP+17, WRAP+18*
SROL	RACE+1!, WRAP+3
SROL(	DISP+14, RACE+8, WRAP+17
SROLINE	RACE+1, RACE+4, RACE+5*, RACE+8, RACE+9, RACE+10!, WRAP+3, WRAP+4
SROLN	RACE+10!, WRAP+3*
SROLN(	WRAP+4*, WRAP+5, WRAP+6, WRAP+7, WRAP+10
SROLN1	RACE+10!, WRAP+3*
SROLN1(	WRAP+6, WRAP+10, WRAP+11, WRAP+12, WRAP+16, WRAP+17
>> SROLNGTH	WRAP+3*, WRAP+4
SRORACE	RACE+1*, RACE+10!
SRORACE(	RACE+3*, RACE+4, RACE+5
SRORC	RACE+1, RACE+2, RACE+3, RACE+10!
SROWRAP	RACE+10!, WRAP+3, WRAP+4, WRAP+7, WRAP+10*, WRAP+11, WRAP+12
>> SRPAGE	DISP+1, DISP+2
>> SRSHEMP	RANGE+1*
>> SRSOUT	START, START+1, START+3, START+4, PRESS
>> SRTPP	SRTPDONR+2, ONE+2, ONE+3, ONE+4, DISP+5, DISP+6, DISP+9, DISP+10
SRX	SRTPDONR+3~, START+4, START+5, HELP+1, HELP+2, DISP+5!, DISP+6, DISP+7
SRY	SRTPDONR+3~, DISP+5!, DISP+9!, DISP+10!
SRY(	DISP+6, DISP+12
SRZ	SRTPDONR+3~, DISP+5!, DISP+6*, DISP+9!
SRZ(	DISP+12*, DISP+14, RACE+2, RACE+3
>> X	SRTPDONR+2, START+1, START+2, START+3, START+4, START+5, START+7, START+8, RANGE+1
>> Y	START+4*, ONE+2
>> Z	START+4*

Customize PDF page

Package: Surgery

Routine: SRTPDONR

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: