LR7OR1 ;DALIO/JMC - Get Lab results ; 3/29/19 8:11am
Source file <LR7OR1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
RR(DFN,ORD,SDATE,EDATE,SUB,TEST,FLAG,COUNT,SPEC,UNVER) | ;Get LAB results for patient
|
|
CV | ;Check variables to see if called by OR; build array of tests (LR519)
|
|
AGAIN | ;First: get a CH entry; process; then check for another test (LR519)
|
|
MI(SDATE,EDATE,COUNT,SPEC) | ;Get MI Subscript data
|
|
BB(SDATE,EDATE,COUNT,SPEC) | ;Get BB Subscript data
|
|
AP(SDATE,EDATE,COUNT) | ;Get AP Subscript data (EM,CY,AU,SP)
|
|
TEST | ;Test the RR entry point
|
|
O1 | ||
T1 | ||
T2 | ||
DTRNG | ; Date range setup
|
|
SN | ; Get the subs
|
|
LRDFN(IFN,FILEROOT) |
|
Name | Line Occurrences |
---|---|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^LAB(60 - [#60] | RR+35, RR+36, RR+37, CV+24 |
^LR - [#63] | CV+3, CV+4, MI+3, BB+4, AP+4, LRDFN+6 |
^LRO(68 - [#68] | CV+8, CV+10, CV+12, CV+14, CV+15, SN+18 |
^LRO(69 - [#69] | CV+17, CV+18, CV+28, O1+1, O1+2 |
^TMP( | RR+39!, SN+27! |
^TMP("LRAPI" | RR+39!, TEST+2! |
^TMP("LRORID" | CV+5*, CV+6, CV+7, CV+9!, CV+11!, CV+13!, CV+19!, CV+20, CV+21*!, CV+22* , AGAIN+1!, AGAIN+6! |
^TMP("LRRR" | RR+39!, MI+3*, BB+4*, AP+3*, AP+4*, TEST+2!, T2+1, SN+23, SN+24*, SN+25* |
^TMP("LRX" | MI+2!, MI+3, MI+4!, BB+3!, BB+4, BB+5!, AP+1!, AP+3, AP+4, AP+5! , SN+7, SN+17, SN+18, SN+20, SN+21, SN+24, SN+25 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%DT | TEST+1~, O1+3*, O1+4* |
%DT("A" | O1+3*, O1+4* |
AGE | RR+17~, RR+26* |
COUNT | RR~, RR+41*, AGAIN+2, AGAIN+3, AGAIN+5, MI~, MI+1, MI+3, BB~, BB+2 , BB+4, AP~, AP+2, AP+4 |
CT1 | RR+17~, RR+41*, MI+1, MI+3*, BB+2, BB+4*, AP+2, AP+4* |
CTR | MI+3*, BB+4*, AP+3*, AP+4*, SN+11~, SN+12* |
DFN | RR~, RR+21, RR+22, RR+25, RR+26, MI+3, BB+4, AP+3, AP+4, TEST+3 , T2, SN+23, SN+24, SN+25 |
DIC | TEST+1~, O1+2*, O1+5* |
DIC("A" | O1+2*, O1+5* |
DIC(0 | O1+2*, O1+5* |
DOB | RR+17~, RR+26* |
DRAW | RR+17~, SN+18*, SN+23, SN+24, SN+25 |
DT | RR+26 |
DTIME | O1, T1 |
EDATE | RR~, CV+2, AGAIN+1*, AGAIN+2, AGAIN+3, AGAIN+5, MI~, MI+1, MI+3, BB~ , BB+2, BB+4, AP~, AP+2, AP+4, DTRNG+1*, DTRNG+2*, DTRNG+4*, DTRNG+5* |
FILEROOT | LRDFN~, LRDFN+4*, LRDFN+5 |
FLAG | RR~, RR+28*, RR+35, RR+36 |
I | SN+2~, SN+22*, SN+23*, SN+24, SN+27* |
>> ID | RR+31, RR+33 |
IFN | LRDFN~, LRDFN+3, LRDFN+5 |
II | RR+17~, SN+2~, SN+16*, SN+17*, SN+18, SN+20, SN+21, SN+24, SN+25 |
III | RR+17~, SN+2~, SN+19*, SN+20*, SN+21, SN+22, SN+24 |
IVDT | MI+3*, BB+4*, AP+4*, SN+11~, SN+12*, SN+13* |
LRAA | RR+19~, CV+8*, CV+9, CV+10, CV+12, CV+14, CV+15, AGAIN+7! |
LRAD | CV+10*, CV+11, CV+12, CV+14, CV+15, AGAIN+7! |
LRAN | RR+18~, CV+7*, CV+14, AGAIN+7! |
LRD1 | RR+18~, CV+2*, CV+3*, CV+4, CV+6*, CV+7, CV+9, CV+11, CV+13, CV+19 , CV+20*, CV+21, AGAIN+7! |
LRD2 | RR+18~, CV+2*, CV+3, AGAIN+7! |
LRDFN | RR+17~, RR+22*, RR+23, CV+3, CV+4, MI+3, BB+4, AP+4 |
LRDPF | RR+17~, RR+22*, RR+25, RR+26 |
LRDTST | RR+19~, CV+4*, CV+5, AGAIN+7! |
LRI | RR+18~, RR+39*, CV+18*, AGAIN+7! |
LRID | RR+18~, RR+33* |
LRORID | RR+18~, RR+30*, RR+31*, RR+32*, CV+1, CV+18, AGAIN+1, AGAIN+7! |
LRORIDF | RR+18~, CV+6*, CV+18*, CV+19, AGAIN+7! |
LRORIDX | RR+18~, RR+30*, CV+1*, AGAIN+1*, AGAIN+7! |
LRORNST | RR+19~, CV+17*, CV+18, AGAIN+7! |
LRORU | RR+19~, CV+4*, CV+5 |
LRPLSAVE | SN+2~, SN+5* |
LRPLSAVE("CH" | SN+13 |
LRPLSAVE(0 | SN+10, SN+12 |
LRSA | RR+19~, CV+12*, CV+13, CV+14, CV+15, AGAIN+7! |
LRSD | RR+19~, CV+15*, CV+17, CV+18, AGAIN+7! |
LRSN | RR+19~, CV+15*, CV+17, CV+18 |
LRSS | AP+1~, AP+4* |
LRUID | RR+18~, CV+7*, CV+8, CV+10, CV+12, AGAIN+7! |
LRX | MI+3!, BB+4!, AP+4! |
ORD | RR~, CV+23, CV+27, CV+28, CV+29 |
ORDT | RR+17~, CV+23*, CV+27*, CV+28*, CV+29*, SN+7 |
>> ORID | RR+30 |
ORSN | RR+17~, CV+27*, CV+28*, CV+29*, SN+7 |
SDATE | RR~, CV+2, AGAIN+1*, AGAIN+2, AGAIN+3, AGAIN+5, MI~, MI+1, MI+3, BB~ , BB+2, BB+4, AP~, AP+2, AP+4, DTRNG+1*, DTRNG+4*, DTRNG+5* |
SEX | RR+17~, RR+25* |
SPEC | RR~, AGAIN+2, AGAIN+3, AGAIN+5, MI~, MI+3, BB~, BB+4 |
SS | RR+17~, SN+18*, SN+23, SN+24, SN+25 |
SUB | RR~, RR+28*, RR+30, RR+37*, CV+1, AGAIN+1, AGAIN+2, AGAIN+3, AGAIN+5, AGAIN+7 |
TEST | RR~, RR+35, RR+36*, RR+37, CV+24, CV+25, CV+26, AGAIN+2 |
TSTY | RR+17~, SN+20 |
TSTY( | CV+25*, SN+20 |
U | CV+5, CV+7, CV+14, CV+15, CV+17, CV+18, SN+21 |
UNVER | RR~, AGAIN+2 |
X | CV+24*, CV+25, CV+26, TEST+1~, O1*, O1+1, O1+2, O1+3, O1+4, O1+5 , T1*, T1+1, T1+2, DTRNG+1*, DTRNG+5*, LRDFN+5*, LRDFN+6*, LRDFN+7 |
X1 | TEST+1~, TEST+2*, O1+3*, T2 |
X2 | TEST+1~, TEST+2*, O1+4*, T2 |
X3 | TEST+1~, TEST+2*, O1+2*, O1+5*, O1+6, T2 |
X4 | TEST+1~, TEST+2*, T1+2*, T2 |
X5 | TEST+1~, TEST+2*, O1+2*, T2 |
Y | TEST+1~, O1+2, O1+3, O1+4, O1+5 |