LRVR4 ;DALOI/CJS/DALOI/FHS - LAB ROUTINE DATA VERIFICATION ;JUL 06, 2010 3:14 PM
Source file <LRVR4.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
WT | ||
V20 | ||
V36 | ;
|
|
V25 | ;
|
|
V37 | ||
EDIT | ;
|
|
LRSBCOM1 | ; Store instrument comments in file #63
; Check for duplicate comments in ^LAH and ^LR globals |
|
LRSBCOM | ;Display/store comments from the instrument
|
|
RQ | ||
CKPLNR | ; Check performing lab normal ranges and set abnormal flag
; based on HL7 messages/interface. |
|
RANGE | ;
; If results from another system, use flags returned with results ; and set LRNG,LRNGS with normals from message. ; Check for LRDUZ(2) set for performing lab or performing lab set (piece 9) in LRSB(LRSB) array. |
|
V3 | ;
|
|
LRCFL | ;
|
|
SUBS | ||
PLNR | ; Performing lab normal ranges, use instead of current local ranges
; Retrieve from results when "NPC" node = 2 or greater ; and set LRNG and LRNGS with normals from HL7 message/interface. |
|
FILECOM(LRDFN,LRIDT,LRCMT) | ; File comment in field #99
; Call with LRDFN = ien of patient in file #63 ; LRIDT = ien of specimen date/time ; LRCMT = comment to store |
|
NR | ||
COM | ;from LRVR5
|
|
LOOP | ; EP
|
|
V35 | ;
|
Name | Field # of Occurrence |
---|---|
$$GET1^DID | V20+8, V20+17 |
^DIE | COM+4 |
UPDATE^DIE | FILECOM+7 |
$$EXTERNAL^DILFD | V20+9, V20+18 |
GETS^DIQ | LOOP+11 |
^DIR | V3+12 |
PRAC^LR7OMERG | LOOP+21 |
EN^LRCAPV | V3+19 |
STD^LRCAPV | V3+19 |
^LREXEC | LRCFL+1 |
$$CALCAGE^LRRPU | LOOP+9 |
$$TMPSB^LRVER1 | NR+7 |
RONLT^LRVER3 | NR+10 |
DISPFLG^LRVER4 | CKPLNR+3 |
RANGE^LRVER4 | RANGE+7 |
SUBS^LRVER4 | SUBS |
WT^LRVER4 | WT |
DCOM^LRVERA | V3+1, COM+2 |
^LRVR5 | EDIT+1 |
V25^LRVR5 | V20+3 |
$$FMTE^XLFDT | LOOP+9 |
$$UP^XLFSTR | LRSBCOM1+12, LRSBCOM1+15 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GETS^DIQ |
63.04 | EXTERNAL^DILFD, GET1^DID |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^LAB(60 - [#60] | V20+4 |
^LAB(62.05 - [#62.05] | LOOP+34 |
^LAH( | LRVR4+5*, LRSBCOM+3, LRSBCOM+4, LRSBCOM+7* |
^LR - [#63] | LOOP+5, V25+2, V20+1, V20+6, PLNR+4, LRSBCOM1+13, LRSBCOM1+14 |
^LRO(68 - [#68] | LOOP+4, LOOP+10, V36+1, V3+19, V3+23 |
^LRO(68.2 - [#68.2] | LRSBCOM1+11 |
^VA(200 - [#200] | LOOP+24 |
Name | Line Occurrences |
---|---|
CKPLNR | RANGE+4, RANGE+5 |
COM | V3+16 |
EDIT | LOOP+38, LOOP+40, V3+24 |
FILECOM | LRSBCOM1+18 |
LOOP | LRVR4+7, V3+16, V3+18, EDIT+3 |
LRCFL | V35+1, EDIT+3 |
LRSBCOM | LOOP+38, V3+1 |
LRSBCOM1 | LRSBCOM+6 |
PLNR | RANGE+4, RANGE+5 |
RANGE | V20+28 |
RQ | RANGE+4, RANGE+5, RANGE+7 |
SUBS | V20 |
V20 | LOOP+37, LOOP+40, V20, V20+1, V20+2, V20+30 |
V25 | V20+1 |
V35 | V20 |
V37 | V3+13 |
WT | V20+30, LRCFL+2, LRSBCOM+10, LRSBCOM1+21 |
Name | Field # of Occurrence |
---|---|
^( | V20+1, V20+7 |
^(0 | LOOP+4, LOOP+24 |
^(2 | V36+1, V3+23* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | LRVR4+6! |
DA | COM+3!, COM+4* |
DA(1 | COM+4* |
DIE | COM+3!, COM+4* |
DIR | V3+4! |
DIR("A" | V3+8*, V3+11* |
DIR(0 | V3+7*, V3+10* |
>> DIRUT | V3+13 |
DR | COM+3!, COM+4* |
DUZ | NR+5 |
DUZ(2 | V3+6, RANGE+4, RANGE+5, NR+6 |
>> HRCN | LOOP+3 |
I | NR+1~, NR+8*, NR+12*, PLNR+3~, PLNR+7*, PLNR+9, PLNR+10 |
IOST | LOOP+33, LOOP+35 |
>> LRAA | LOOP+4, LOOP+10, LOOP+21, V36+1, V3+19, V3+23 |
>> LRACC | LOOP+28*, LOOP+29 |
>> LRAD | LOOP+4, LOOP+10, LOOP+21, V36+1, V3+23 |
>> LRALERT | LOOP+32, LOOP+34 |
>> LRAN | LOOP+4, LOOP+10, LOOP+21 |
>> LRCDT | LOOP+9, LOOP+26 |
>> LRCFL | V35+1, LRCFL+1 |
LRCMT | FILECOM~, FILECOM+6 |
>> LRDAT | LOOP+30 |
>> LRDAT(2 | LOOP+30 |
>> LRDEL | V20+27 |
LRDFN | LOOP+5, V25+2, V20+1, V20+6, PLNR+4, COM+4, LRSBCOM1+13, LRSBCOM1+14, LRSBCOM1+18, FILECOM~ , FILECOM+6 |
>> LRDL | V20+7*, V20+16* |
>> LRDPF | LOOP+4 |
LRDUP | LRSBCOM1+2~, LRSBCOM1+10*, LRSBCOM1+13, LRSBCOM1+16*, LRSBCOM1+17 |
>> LRDUZ | NR+5 |
>> LRDUZ(2 | V3+6, RANGE+4, NR+6 |
>> LREDIT | LOOP+40, V36+1*, V3+15*, V3+24, V20+26*, V20+29*, EDIT+2* |
>> LREND | V3+19* |
LRERR | LRSBCOM1+2~, FILECOM+5~ |
>> LREXEC | LRCFL+1* |
LRFDA | FILECOM+5~ |
LRFDA(2 | FILECOM+6* |
>> LRFLG | V20+12*, V20+25, V20+29, NR+4, CKPLNR+2*, CKPLNR+3 |
>> LRFP | V20+11, V20+20 |
>> LRGVP | LOOP+37, COM+1 |
LRI | LRSBCOM+1~, LRSBCOM+2*, LRSBCOM+3*, LRSBCOM+4, LRSBCOM+7, LRSBCOM1+2~, LRSBCOM1+12*, LRSBCOM1+13*, LRSBCOM1+14 |
LRIDT | V25+2, V20+1, PLNR+4, COM+4, LRSBCOM1+13, LRSBCOM1+14, LRSBCOM1+18, FILECOM~, FILECOM+6 |
>> LRLABKY | COM+1 |
>> LRLCT | LOOP+1*, LOOP+13*, LOOP+18*, LOOP+24*, LOOP+26*, LOOP+27*, LOOP+31*, LOOP+36*, V3+5*, V20+30* , LRCFL+2, LRSBCOM+10*, LRSBCOM1+21* |
>> LRLDT | V20+6 |
>> LRLL | LRVR4+5, LRSBCOM+3, LRSBCOM+4, LRSBCOM+7, LRSBCOM1+11 |
>> LRM( | V25+1! |
>> LRNG | V20+25, V20+29, PLNR+10*, PLNR+11* |
>> LRNGS | NR+11, PLNR+6*, PLNR+10*, PLNR+11* |
LRNOECHO | LRSBCOM1+2~, LRSBCOM1+6* |
LRNOEXPD | LRSBCOM1+2~, LRSBCOM1+6* |
>> LRNOVER( | V20+15! |
LRNUF | LOOP+38, LOOP+39!, V20+30, V35+2! |
>> LRNX | LOOP+26*, V20* |
>> LRORD( | V20 |
>> LROUT | EDIT+1*, EDIT+3 |
>> LRPANEL | LOOP+30 |
>> LRPARAM | LOOP+32, V3+19 |
>> LRPER | LOOP+38, LOOP+40, EDIT+3 |
>> LRPRAC | LOOP+10*, LOOP+11, LOOP+14, LOOP+15, LOOP+16, LOOP+17 |
>> LRPRAC( | LOOP+14, LOOP+15, LOOP+16, LOOP+17 |
>> LRPROF | LRSBCOM1+11 |
LRQ | V20+22!, V20+27*!, CKPLNR+3 |
>> LRQUIET | LRSBCOM+8, LRSBCOM1+19 |
>> LRSB | V25+1, V25+2, V20+1, V20+6, V20+7, V20+8, V20+9, V20+13, V20+15, V20+16 , V20+17, V20+18, RANGE+5, NR, NR+2, NR+3, NR+4, NR+5, NR+6, NR+7 , NR+9, NR+10, NR+11, NR+13, PLNR+5, CKPLNR+2 |
>> LRSB( | V25+1!, V25+2*, V20+13, V20+16, RANGE+5, NR, NR+2*, NR+3*, NR+4*, NR+5* , NR+6*, NR+7, NR+9*, NR+10, NR+11, NR+13*, PLNR+5, CKPLNR+2 |
>> LRSB(0 | LOOP+38 |
>> LRSB(1 | LOOP+40 |
LRSBCOM | LRVR4+2, LRVR4+6!, LRSBCOM+1~, LRSBCOM+4*, LRSBCOM+5, LRSBCOM1+12, LRSBCOM1+18, LRSBCOM1+20 |
LRSBCOM( | LRVR4+5 |
>> LRSQ | LRVR4+5, LRSBCOM+3, LRSBCOM+4, LRSBCOM+7 |
>> LRSS | V25+2, V20+1, V20+2, V20+6, PLNR+4 |
>> LRTEC | V36+1*, V3+22* |
>> LRTS | V20, V20+4 |
>> LRUSI | V36+1 |
>> LRVF | V25+1, V20+1 |
>> LRVIDO | LOOP+33 |
>> LRVIDOF | LOOP+35 |
>> LRVRM | LOOP+26*, V20+27*, EDIT+2* |
>> LRWRD | LOOP+4 |
LRX | LRVR4+3~, LRVR4+4*, LRVR4+5*, V20+14~, V20+16*, V20+18, V20+19, V20+21, NR+1~, NR+7* , NR+8, NR+11*, NR+12, LRSBCOM1+2~, LRSBCOM1+14*, LRSBCOM1+15*, LRSBCOM1+16 |
LRY | NR+1~, NR+7*, NR+8*, NR+9, NR+11*, NR+12*, NR+13, PLNR+3~, PLNR+5*, PLNR+6 , PLNR+9*, PLNR+10, PLNR+11, LRSBCOM1+2~, LRSBCOM1+12*, LRSBCOM1+16 |
>> PNM | LOOP+3 |
PR | LOOP+20~, LOOP+23*, LOOP+24* |
PRAC | LOOP+20~, LOOP+21 |
PRAC( | LOOP+24 |
PRAC(0 | LOOP+22 |
>> SEX | LOOP+7 |
U | LOOP+4, LOOP+5, LOOP+10, LOOP+27, LOOP+28, LOOP+29, LOOP+32, LOOP+34, V36+1, V3+19 , V3+23, V20+4, V20+7, V20+13, V20+16, V20+25, V20+29, NR+2, NR+3, NR+4 , NR+5, NR+6, NR+7, NR+9, NR+10, NR+11, NR+12, NR+13, LRSBCOM+7, LRSBCOM1+11 , LRSBCOM1+14 |
>> VADM(3 | LOOP+9 |
>> X | V3+13*, V3+14*, V3+15*, V3+16, V3+18, V3+22*, V3+23, V20+7*, V20+9*, V20+10* , V20+11, V20+12*, V20+16*, V20+18*, V20+19*, V20+21*, V20+23, V20+24, V20+29, RANGE+4 , RANGE+5, RQ*, NR+2, NR+3 |
>> X1 | V20+5*, V20+7*, V20+9, V20+10 |
>> Y | V3+14, V20+21*, V20+30, RANGE+4*, RANGE+5*, RQ |
>> Z | LOOP+26* |
>> Z1 | LOOP+27, LOOP+28 |
>> Z2 | LOOP+29 |