Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRVR4

Package: Lab Service

Routine: LRVR4


Information

LRVR4 ;DALOI/CJS/DALOI/FHS - LAB ROUTINE DATA VERIFICATION ;JUL 06, 2010 3:14 PM

Source Information

Source file <LRVR4.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Lab Service 9 PRAC^LR7OMERG  (EN,STD)^LRCAPV  ^LREXEC  $$CALCAGE^LRRPU  $$TMPSB^LRVER1  RONLT^LRVER3  (DISPFLG,RANGE,SUBS,WT)^LRVER4  DCOM^LRVERA  
(,V25)^LRVR5  
VA Fileman 5 $$GET1^DID  (,UPDATE)^DIE  $$EXTERNAL^DILFD  GETS^DIQ  ^DIR  
Kernel 2 $$FMTE^XLFDT  $$UP^XLFSTR  

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Lab Service 9 LRDIDLE0  LREGFR  LREGFR2  LRGV2  LRVER3  LRVER5  LRVR3  LRVR5  
LRVRPOC  
IHS Laboratory Point of Care 1 BLRPOC2  

Entry Points

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 ;

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,PNM," SSN: ",SSN," "
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !!,PNM," HRCN: ",HRCN," "
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !,"Pat Info: ",$P($G(^LR(LRDFN,.091)),U)
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: ?34," Sex: ",$S(SEX="M":"MALE",SEX="F":"FEMALE",1:SEX)
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: ?34," Sex: "
  • Line Location: LOOP+7
Function Call: WRITE
  • Prompt: $S(SEX="M":"MALE",SEX="F":"FEMALE",1:SEX)
  • Condition for execution: $L($G(SEX))
  • Line Location: LOOP+7
Function Call: WRITE
  • Prompt: ?48," Age: ",$$CALCAGE^LRRPU(DOB,LRCDT)," as of ",$$FMTE^XLFDT(LRCDT,"1D")
  • Line Location: LOOP+8
Function Call: WRITE
  • Prompt: ?48," Age: ",$$CALCAGE^LRRPU(+$G(VADM(3)),LRCDT)," as of ",$$FMTE^XLFDT(LRCDT,"1D")
  • Line Location: LOOP+9
Function Call: WRITE
  • Prompt: !,"Provider: "
  • Line Location: LOOP+12
Function Call: WRITE
  • Prompt: LRPRAC
  • Line Location: LOOP+14
Function Call: WRITE
  • Prompt: LRPRAC(LRPRAC,200,LRPRAC_",",.01,"E"),?40," Voice pager: ",LRPRAC(LRPRAC,200,LRPRAC_",",.137,"E")
  • Line Location: LOOP+16
Function Call: WRITE
  • Prompt: !," Phone: ",LRPRAC(LRPRAC,200,LRPRAC_",",.132,"E"),?38," Digital pager: ",LRPRAC(LRPRAC,200,LRPRAC_",",.138,"E")
  • Line Location: LOOP+17
Function Call: WRITE
  • Prompt: !?14,$P(^(0),"^")
  • Line Location: LOOP+24
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+26
Function Call: WRITE
  • Prompt: !,"VOLUME: ",$P(Z1,U,7)
  • Line Location: LOOP+27
Function Call: WRITE
  • Prompt: !,"ACCESSION:",?30,$P(Z2,U,6),?44," ",LRACC
  • Line Location: LOOP+29
Function Call: WRITE
  • Prompt: !,LRPANEL,?30,LRDAT(2),?44," ",LRDAT
  • Line Location: LOOP+30
Function Call: WRITE
  • Prompt: !?15
  • Line Location: LOOP+33
Function Call: WRITE
  • Prompt: @LRVIDO
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: LOOP+33
Function Call: WRITE
  • Prompt: "Test ordered "_$P($G(^LAB(62.05,+LRALERT,0)),U)
  • Line Location: LOOP+34
Function Call: WRITE
  • Prompt: !?10,"Workload is not activated. "
  • Line Location: V3+20
Function Call: WRITE
  • Prompt: !,$P(^LAB(60,+LRTS,0),U)
  • Line Location: V20+4
Function Call: WRITE
  • Prompt: ?44," ",@LRFP," "
  • Line Location: V20+20
Function Call: WRITE
  • Prompt: LRFLG,?56," ",$P(LRNG,U,7)
  • Line Location: V20+25
Function Call: WRITE
  • Prompt: !
  • Line Location: LRSBCOM+9
Function Call: WRITE
  • Prompt: !,"Inst Comments: "_LRSBCOM
  • Line Location: LRSBCOM1+20
Routine Call
  • DIE
  • Line Location:
    • FILECOM+7
Routine Call
  • DIE
  • Line Location:
    • COM+4
Routine Call
  • DIR
  • Line Location:
    • V3+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GETS^DIQ
63.04 EXTERNAL^DILFD,  GET1^DID

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name Field # of Occurrence
^( V20+1, V20+7
^(0 LOOP+4, LOOP+24
^(2 V36+1, V3+23*

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All