LRTT5P1 ;DALOI/FHS - LAB URGENCY TURNAROUND TIMES PROCESSOR ;02/28/12 19:45
Source file <LRTT5P1.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 1 | (,H)^%DTC |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Lab Service | 1 | LRTT5 |
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
|
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 |
>> | 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* |