LRTT5P1 ;DALOI/FHS - LAB URGENCY TURNAROUND TIMES PROCESSOR ;02/28/12 19:45
Source file <LRTT5P1.m>
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
|