Routine: LRTT5R1

Information

LRTT5R1 ;DALISC/FHS - LAB URGENCY TURNAROUND TIMES REPORT GENERATOR ; 12/3/1997

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Kernel	1	$$FMTE^XLFDT
Lab Service	1	(DHDR,LNCHECK)^LRTT5
VA FileMan	1	^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRTT5

Entry Points

Name	Comments	DBIA/ICR reference
ONE	; from LRTT5 ; input LRPQ(, ^TMP("LR",$J processed from LRTT5P1
CHK
SHEAD	;S LRPDHEAD="Test Number of Tests Total TAT Ave TAT",LRPPAGE=0 D DHDR^LRTT5
TYPE
CLEANUP	;
STOP

External References

Name	Field # of Occurrence
^DIR	ONE+12, TYPE+7
DHDR^LRTT5	SHEAD+5
LNCHECK^LRTT5	TYPE+1, TYPE+4
$$FMTE^XLFDT	TYPE+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10," Institution included in report:" Line Location: ONE+3
Function Call: WRITE	Prompt: !?20,$P(LRLLOC(I),U,2) Line Location: ONE+4
Function Call: WRITE	Prompt: ! Line Location: ONE+5
Function Call: WRITE	Prompt: ?57,+$P(^TMP("LR",$J,LRPTYPE),U,2)\+^TMP("LR",$J,LRPTYPE)," min" Line Location: ONE+9
Function Call: WRITE	Prompt: "Urgencies:" Line Location: ONE+10
Function Call: WRITE	Prompt: !?5,LRPQ("URGENCY",LRX) Line Location: ONE+10
Function Call: WRITE	Prompt: !!,"Tests:" Line Location: ONE+11
Function Call: WRITE	Prompt: !?5,^(LRX) Line Location: ONE+11
Function Call: WRITE	Prompt: !,$S(LRPTYPE="REGT":"Regular",1:"Irregular")," hours" Line Location: SHEAD+2
Function Call: WRITE	Prompt: !,LRTEST,?25,$J(+LRX,9,0),?37,$J(+$P(LRX,U,2),9,0) Line Location: SHEAD+3
Function Call: WRITE	Prompt: ?50,$J($P(LRX,U,2)/+LRX,9,1) Line Location: SHEAD+3
Function Call: WRITE	Prompt: !!,$S(LRPDTYPE="BAD":"Tests not counted:",LRPDTYPE="REG":"Regular hours:",1:"Irregular hours:"),! Line Location: TYPE+1
Function Call: WRITE	Prompt: ! Line Location: TYPE+5
Function Call: WRITE	Prompt: LRPDIFF Condition for execution: $L($P(LRPLINE,U,4)) Line Location: TYPE+5
Function Call: WRITE	Prompt: ?6,$P(LRPLINE,U),?21,$E($P(LRPLINE,U,2),1,15),?37,$$FMTE^XLFDT($E($P(LRPLINE,U,3),1,12)) Line Location: TYPE+5
Function Call: WRITE	Prompt: ?6,$P(LRPLINE,U),?21,$E($P(LRPLINE,U,2),1,15),?37,$$FMTE^XLFDT($E($P(LRPLINE,U,3),1,12)) Line Location: TYPE+5
Function Call: WRITE	Prompt: !,"none found",! Line Location: TYPE+6
Routine Call	DIR Line Location: ONE+12 TYPE+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("LR"	ONE+9, TYPE+2, TYPE+3, STOP!
^TMP("LRTT5"	ONE+11

Label References

Name	Line Occurrences
CLEANUP	CHK, TYPE+8

Naked Globals

Name	Field # of Occurrence
^(	ONE+11, TYPE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	ONE+12!, TYPE+7!
DIR(0	ONE+12, TYPE+7
>> DIRUT	ONE+12, TYPE+7
>> I	ONE+4*
IOST	ONE+12, TYPE+7
>> LREND	ONE+2, ONE+12, SHEAD+5, TYPE, TYPE+1, TYPE+4, TYPE+7*
>> LRLLOC(	ONE+4
>> LRLLOC(0	ONE+3
LRPCNT	TYPE+2, TYPE+3, TYPE+6, STOP!
LRPDET	CHK, STOP!
LRPDHEAD	SHEAD+5*, STOP!
LRPDIFF	TYPE+2*, TYPE+3, TYPE+5, STOP!
LRPDTYPE	TYPE*, TYPE+1, TYPE+2, TYPE+3, STOP!
LRPLINE	TYPE+3*, TYPE+5, STOP!
LRPN	TYPE+3*, STOP!
LRPPAGE	STOP!
LRPQ	STOP!
LRPQ("URGENCY"	ONE+10
LRPTYPE	ONE+5*, ONE+6, ONE+9, STOP!
LRTEST	STOP!
LRX	ONE+10, ONE+11, STOP!
U	ONE+4, ONE+9, TYPE+5

Customize PDF page

Package: Lab Service