©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
LRTT5P1 ;VA/DALOI/FHS-LAB URGENCY TURNAROUND TIMES PROCESSOR ;JUL 06, 2010 3:14 PM
Source file <LRTT5P1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ; go thru tests
|
|
| DIFF(LRPUT1,LRPUT2) | ; $$(time1,time2) -> difference in min
|
|
| SAVE(LRPUTYPE) | ; collect reg, irreg, and bad
|
|
| CLEAN | ||
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^HOLIDAY("B" | START+36 |
| ^LAB(60 - [#60] | START+6, SAVE+3 |
| ^LRO(68 - [#68] | START+6, START+8, START+12, START+14, START+17, START+18, START+22, START+24, SAVE+2, SAVE+4 , SAVE+6 |
| ^TMP("LR" | START+42, START+44, START+46*, SAVE+4*, SAVE+5, SAVE+6*, SAVE+7 |
| ^TMP("LRTT5" | START+4, START+22 |
| Name | Line Occurrences |
|---|---|
| $$DIFF | SAVE+3 |
| SAVE | START+28, START+30, START+32, START+34, START+36, START+38 |
| Name | Field # of Occurrence |
|---|---|
| ^( | START+6, START+14, START+18, SAVE+7* |
| ^(0 | START+6, START+8, START+22 |
| ^(3 | START+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %Y | START+34, CLEAN! |
| LRAA | START+6*, START+8*, START+12, START+14, START+17, START+18, START+22, START+24, 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+22, START+24, CLEAN!, SAVE+2, SAVE+4 , SAVE+6 |
| LRAN | START+14*, START+17, START+18, START+22, START+24, 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+42*, START+44, CLEAN!, SAVE+3*, SAVE+4, SAVE+5, SAVE+6, SAVE+7 |
| >> LRPEDT | START+3*, START+10 |
| LRPLRRX1 | START+17*, START+28, START+30, START+32, START+34, CLEAN!, SAVE+3, SAVE+4, SAVE+6 |
| LRPLRRX2 | START+22*, START+28*, START+30, CLEAN!, SAVE+3, SAVE+4, SAVE+6 |
| LRPN | START+6*, START+8*, START+26*, START+44*, CLEAN!, SAVE+4 |
| LRPNN | START+42*, START+44*, START+46, CLEAN! |
| LRPNT | START+42*, START+44*, START+46, CLEAN! |
| >> LRPQ("URGENCY" | START+22 |
| LRPRX1D | START+34*, START+36, CLEAN! |
| LRPRX1T | START+32*, CLEAN! |
| >> LRPSDT | START+3*, START+10 |
| LRPTYPE | START+40*, START+42, START+44, START+46, 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+22*, START+24, 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+22, START+24, START+46, SAVE+3, SAVE+4, SAVE+6 , SAVE+7 |
| X | START+2*, START+34*, CLEAN!, DIFF+3 |
| X1 | DIFF+1~, DIFF+2* |
| X2 | DIFF+1~, DIFF+2* |