Routine: LRTT5P1

Information

LRTT5P1 ;DALOI/FHS - LAB URGENCY TURNAROUND TIMES PROCESSOR ;02/28/12 19:45

Call Graph

Call Graph Total: 1

Package	Total	Call Graph
VA FileMan	1	(,H)^%DTC

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 ; return for reg & irreg: # tests, total time, bad turnaround time ; input: ; ^TMP("LRTT5",$J,"TESTS",tests)=test names ; LRPQ("URGENCY",urgencies)=urgency names ; LRSDT, LREDT, LRPDET ; output: ; ^TMP("LR",$J,"REG")=#tests^total time ; ^TMP("LR",$J,"REG",TAT,#)=acc^test^in^out ; ^TMP("LR",$J,"REGT",test)=#tests^total time ; ^TMP("LR",$J,"IRREG")=#tests^total time ; ^TMP("LR",$J,"IRREG",TAT,#)=acc^test^in^out ; ^TMP("LR",$J,"IRREGT",test)=#tests^total time ; ^TMP("LR",$J,"BAD",TAT,#)=acc^test^in^out
START	; go thru tests
CLEAN
SAVE(LRPUTYPE)	; collect reg, irreg, and bad
DIFF(LRPUT1,LRPUT2)	; $$(time1,time2) -> difference in min

External References

Name	Field # of Occurrence
^%DTC	DIFF+3
H^%DTC	START+31

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HOLIDAY("B"	START+33
^LAB(60 - [#60]	START+6, SAVE+3
^LRO(68 - [#68]	START+6, START+8, START+12, START+14, START+17, START+18, START+20, START+21, SAVE+2, SAVE+4 , SAVE+6
^TMP("LR"	START+39, START+41, START+43, SAVE+4, SAVE+5, SAVE+6*, SAVE+7
^TMP("LRTT5"	START+4, START+20

Label References

Name	Line Occurrences
$$DIFF	SAVE+3
SAVE	START+25, START+27, START+29, START+31, START+33, START+35

Naked Globals

Name	Field # of Occurrence
^(	START+6, START+14, START+18, SAVE+7*
^(0	START+6, START+8, START+20
^(3	START+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%Y	START+31, CLEAN!
LRAA	START+6, START+8, START+12, START+14, START+17, START+18, START+20, START+21, CLEAN!, SAVE+2 , SAVE+4, SAVE+6
LRAA(	START+6*, START+8
LRAAT	START+8*, START+11, CLEAN!
LRAD	START+11, START+12, START+14, START+17, START+18, START+20, START+21, CLEAN!, SAVE+2, SAVE+4 , SAVE+6
LRAN	START+14*, START+17, START+18, START+20, START+21, CLEAN!, SAVE+2, SAVE+4, SAVE+6
>> LRDPF	START+14*, START+15
>> LREDT	START+1, START+2, START+3, START+10*, START+12, START+17
>> LRLLOC(	START+18
>> LRLLOC(0	START+18
LRPDIFF	START+39, START+41, CLEAN!, SAVE+3, SAVE+4, SAVE+5, SAVE+6, SAVE+7
>> LRPEDT	START+3*, START+10
LRPLRRX1	START+17*, START+25, START+27, START+29, START+31, CLEAN!, SAVE+3, SAVE+4, SAVE+6
LRPLRRX2	START+20, START+25, START+27, CLEAN!, SAVE+3, SAVE+4, SAVE+6
LRPN	START+6, START+8, START+23, START+41, CLEAN!, SAVE+4
LRPNN	START+39, START+41, START+43, CLEAN!
LRPNT	START+39, START+41, START+43, CLEAN!
>> LRPQ("URGENCY"	START+20
LRPRX1D	START+31*, START+33, CLEAN!
LRPRX1T	START+29*, CLEAN!
>> LRPSDT	START+3*, START+10
LRPTYPE	START+37*, START+39, START+41, START+43, CLEAN!
LRPUDIFF	DIFF+1~, DIFF+3*, DIFF+4
LRPUT1	DIFF~, DIFF+2
LRPUT2	DIFF~, DIFF+2
LRPUTYPE	SAVE~, SAVE+4, SAVE+5, SAVE+6, SAVE+7
LRPUX1H	DIFF+1~, DIFF+2*, DIFF+3
LRPUX1M	DIFF+1~, DIFF+2*, DIFF+3
LRPUX1TH	DIFF+1~, DIFF+2*, DIFF+3
LRPUX1TM	DIFF+1~, DIFF+2*, DIFF+3
LRPUX2H	DIFF+1~, DIFF+2*, DIFF+3
LRPUX2M	DIFF+1~, DIFF+2*, DIFF+3
LRPUX2TH	DIFF+1~, DIFF+2*, DIFF+3
LRPUX2TM	DIFF+1~, DIFF+2*, DIFF+3
LRPUXMI	DIFF+1~, DIFF+3*
>> LRSDT	START+1, START+2, START+3, START+10*, START+11, START+17
LRTEST	START+4, START+6, START+20, START+21, CLEAN!, SAVE+3
LRTESTN	CLEAN!, SAVE+3*, SAVE+4, SAVE+5, SAVE+6, SAVE+7
LRUID	SAVE+1~, SAVE+2*, SAVE+4, SAVE+5, SAVE+6
U	START+6, START+8, START+14, START+17, START+20, START+21, START+43, SAVE+3, SAVE+4, SAVE+6 , SAVE+7
X	START+2, START+31, CLEAN!, DIFF+3
X1	DIFF+1~, DIFF+2*
X2	DIFF+1~, DIFF+2*

Customize PDF page

Package: Lab Service