Routine: SRTPRLI1

Information

SRTPRLI1 ;BIR/SJA - PRINT LIVER-DIAGNOSIS/RISK INFORMATION ;07/12/2011

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Condition for execution: $E(IOST)="P" Line Location: DIAG+0
Function Call: WRITE	Prompt: !,?28,"TRANSPLANT INFORMATION",! Line Location: DIAG+0
Function Call: WRITE	Prompt: !,"Warm Ischemia time:",?21,$P(SRAO(1),"^") Line Location: DIAG+4
Function Call: WRITE	Prompt: !,"Cold Ischemia time:",?21,$P(SRAO(2),"^") Line Location: DIAG+5
Function Call: WRITE	Prompt: !,"Total Ischemia time:",?21,$P(SRAO(3),"^") Line Location: DIAG+6
Function Call: WRITE	Prompt: !,"Crossmatch D/R:",?21,$P(SRAO(4),"^") Line Location: DIAG+7
Function Call: WRITE	Prompt: !!,"HLA Typing (#,#,#,#)",!,"====================" Line Location: DIAG+8
Function Call: WRITE	Prompt: !,"Recipient HLA-A:",?21,$P(SRAO(5),"^") Line Location: DIAG+9
Function Call: WRITE	Prompt: !,"Recipient HLA-B:",?21,$P(SRAO(6),"^") Line Location: DIAG+10
Function Call: WRITE	Prompt: !,"Recipient HLA-C:",?21,$P(SRAO(7),"^") Line Location: DIAG+11
Function Call: WRITE	Prompt: !,"Recipient HLA-DR:",?21,$P(SRAO(8),"^") Line Location: DIAG+12
Function Call: WRITE	Prompt: !,"Recipient HLA-BW:",?21,$P(SRAO(9),"^") Line Location: DIAG+13
Function Call: WRITE	Prompt: !,"Recipient HLA-DQ:",?21,$P(SRAO(10),"^") Line Location: DIAG+14
Function Call: WRITE	Prompt: !,?28,"RISK ASSESSMENT INFORMATION",! Line Location: RISK+1

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