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 30, 2024@13:42

Source Information

Source file <LRVR4.m>

Call Graph

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,XDELTACK)^LRVERA  
(,V25)^LRVR5  
VA FileMan 5 $$GET1^DID  (,UPDATE)^DIE  $$EXTERNAL^DILFD  GETS^DIQ  ^DIR  
Kernel 2 $$FMTE^XLFDT  $$UP^XLFSTR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Lab Service 10 LRDIDLE0  LREGFR  LREGFR2  LRGV2  LRVER3  LRVER5  LRVR3  LRVR5  
LRVRAR  LRVRPOC  

Entry Points

Name Comments DBIA/ICR reference
LOOP ;
V36 ;
V3 ;
V37
V25 ;
V20
V35 ;
LRCFL ;
EDIT ;
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.
RQ
NR
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.
CKPLNR ; Check performing lab normal ranges and set abnormal flag
; based on HL7 messages/interface.
SUBS
WT
COM ;from LRVR5
LRSBCOM ;Display/store comments from the instrument
LRSBCOM1 ; Store instrument comments in file #63
; Check for duplicate comments in ^LAH and ^LR globals
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

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+8
^DIR V3+12
PRAC^LR7OMERG LOOP+18
EN^LRCAPV V3+19
STD^LRCAPV V3+19
^LREXEC LRCFL+1
$$CALCAGE^LRRPU LOOP+6
$$TMPSB^LRVER1 NR+8
RONLT^LRVER3 NR+11
DISPFLG^LRVER4 CKPLNR+3
RANGE^LRVER4 RANGE+7
SUBS^LRVER4 SUBS
WT^LRVER4 WT
DCOM^LRVERA V3+1, COM+2
XDELTACK^LRVERA V20+28
^LRVR5 EDIT+1
V25^LRVR5 V20+3
$$FMTE^XLFDT LOOP+6
$$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: !,"Pat Info: ",$P($G(^LR(LRDFN,.091)),U)
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: ?34," Sex: ",$S(SEX="M":"MALE",SEX="F":"FEMALE",1:SEX)
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: ?48," Age: ",$$CALCAGE^LRRPU(DOB,LRCDT)," as of ",$$FMTE^XLFDT(LRCDT,"1D")
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: !,"Provider: "
  • Line Location: LOOP+9
Function Call: WRITE
  • Prompt: LRPRAC
  • Line Location: LOOP+11
Function Call: WRITE
  • Prompt: LRPRAC(LRPRAC,200,LRPRAC_",",.01,"E"),?40," Voice pager: ",LRPRAC(LRPRAC,200,LRPRAC_",",.137,"E")
  • Line Location: LOOP+13
Function Call: WRITE
  • Prompt: !," Phone: ",LRPRAC(LRPRAC,200,LRPRAC_",",.132,"E"),?38," Digital pager: ",LRPRAC(LRPRAC,200,LRPRAC_",",.138,"E")
  • Line Location: LOOP+14
Function Call: WRITE
  • Prompt: !?14,$P(^(0),"^")
  • Line Location: LOOP+21
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+23
Function Call: WRITE
  • Prompt: !,"VOLUME: ",$P(Z1,U,7)
  • Line Location: LOOP+24
Function Call: WRITE
  • Prompt: !,"ACCESSION:",?30,$P(Z2,U,6),?44," ",LRACC_" ["_LRUID,"]"
  • Line Location: LOOP+26
Function Call: WRITE
  • Prompt: !,LRPANEL,?30,LRDAT(2),?44," ",LRDAT
  • Line Location: LOOP+27
Function Call: WRITE
  • Prompt: !?15
  • Line Location: LOOP+30
Function Call: WRITE
  • Prompt: @LRVIDO
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: LOOP+30
Function Call: WRITE
  • Prompt: "Test ordered "_$P($G(^LAB(62.05,+LRALERT,0)),U)
  • Line Location: LOOP+31
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+26
Function Call: WRITE
  • Prompt: !
  • Line Location: LRSBCOM+9
Function Call: WRITE
  • Prompt: !,"Inst Comments: "_LRSBCOM
  • Line Location: LRSBCOM1+20
Routine Call
  • DIE
  • Line Location:
    • COM+4
Routine Call
  • DIE
  • Line Location:
    • FILECOM+7
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+31
^LAH( LRVR4+6*, LRSBCOM+3, LRSBCOM+4, LRSBCOM+7*
^LR - [#63] LOOP+4, V25+2, V20+1, V20+6, PLNR+4, LRSBCOM1+13, LRSBCOM1+14
^LRO(68 - [#68] LOOP+3, LOOP+7, V36+1, V3+19, V3+23
^LRO(68.2 - [#68.2] LRSBCOM1+11
^VA(200 - [#200] LOOP+21

Label References

Name Line Occurrences
CKPLNR RANGE+4, RANGE+5
COM V3+16
EDIT LOOP+35, LOOP+37, V3+24
FILECOM LRSBCOM1+18
LOOP LRVR4+8, V3+16, V3+18, EDIT+3
LRCFL V35+1, EDIT+3
LRSBCOM LOOP+35, V3+1
LRSBCOM1 LRSBCOM+6
NR V20+25
PLNR RANGE+4, RANGE+5
RANGE V20+29
RQ RANGE+4, RANGE+5, RANGE+7
SUBS V20
V20 LOOP+34, LOOP+37, V20, V20+1, V20+2, V20+31
V25 V20+1
V35 V20
V37 V3+13
WT V20+31, LRCFL+2, LRSBCOM+10, LRSBCOM1+21

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LRVR4+7!
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
>> DOB LOOP+6
DR COM+3!, COM+4*
DUZ NR+5
DUZ(2 V3+6, RANGE+4, RANGE+5, NR+7
I NR+1~, NR+9*, NR+13*, PLNR+3~, PLNR+7*, PLNR+9, PLNR+10
IOST LOOP+30, LOOP+32
>> LRAA LOOP+3, LOOP+7, LOOP+18, V36+1, V3+19, V3+23
>> LRACC LOOP+25*, LOOP+26
>> LRAD LOOP+3, LOOP+7, LOOP+18, V36+1, V3+23
>> LRALERT LOOP+29, LOOP+31
>> LRAN LOOP+3, LOOP+7, LOOP+18
>> LRCDT LOOP+6, LOOP+23
>> LRCFL V35+1, LRCFL+1
LRCMT FILECOM~, FILECOM+6
>> LRDAT LOOP+27
>> LRDAT(2 LOOP+27
>> LRDEL V20+28
LRDFN LOOP+4, 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+3
LRDUP LRSBCOM1+2~, LRSBCOM1+10*, LRSBCOM1+13, LRSBCOM1+16*, LRSBCOM1+17
>> LRDUZ NR+5
>> LRDUZ(2 V3+6, RANGE+4, NR+7
>> LREDIT LOOP+37, V36+1*, V3+15*, V3+24, V20+27*, V20+30*, EDIT+2*
>> LREND V3+19*
LRERR LRSBCOM1+2~, FILECOM+5~
>> LREXEC LRCFL+1*
LRFDA FILECOM+5~
LRFDA(2 FILECOM+6*
>> LRFLG V20+12*, V20+26, V20+30, NR+4, CKPLNR+2*, CKPLNR+3
>> LRFP V20+11, V20+20
>> LRGVP LOOP+34, 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+10*, LOOP+15*, LOOP+21*, LOOP+23*, LOOP+24*, LOOP+28*, LOOP+33*, V3+5*, V20+31*
, LRCFL+2, LRSBCOM+10*, LRSBCOM1+21*
>> LRLDT V20+6
>> LRLK NR+7
>> LRLL LRVR4+6, LRSBCOM+3, LRSBCOM+4, LRSBCOM+7, LRSBCOM1+11
>> LRM( V25+1!
>> LRNG V20+26, V20+30, PLNR+10*, PLNR+11*
>> LRNGS NR+12, PLNR+6*, PLNR+10*, PLNR+11*
LRNOECHO LRSBCOM1+2~, LRSBCOM1+6*
LRNOEXPD LRSBCOM1+2~, LRSBCOM1+6*
>> LRNOVER( V20+15!
LRNUF LOOP+35, LOOP+36!, V20+31, V35+2!
>> LRNX LOOP+23*, V20*
>> LRORD( V20
>> LROUT EDIT+1*, EDIT+3
>> LRPANEL LOOP+27
>> LRPARAM LOOP+29, V3+19
>> LRPER LOOP+35, LOOP+37, EDIT+3
>> LRPRAC LOOP+7*, LOOP+8, LOOP+11, LOOP+12, LOOP+13, LOOP+14
>> LRPRAC( LOOP+11, LOOP+12, LOOP+13, LOOP+14
>> LRPROF LRSBCOM1+11
LRQ V20+22!, V20+28*!, 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+7, NR+8
, NR+10, NR+11, NR+12, NR+14, 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+7*, NR+8, NR+10*, NR+11, NR+12, NR+14*, PLNR+5, CKPLNR+2
>> LRSB(0 LOOP+35
>> LRSB(1 LOOP+37
LRSBCOM LRVR4+3, LRVR4+7!, LRSBCOM+1~, LRSBCOM+4*, LRSBCOM+5, LRSBCOM1+12, LRSBCOM1+18, LRSBCOM1+20
LRSBCOM( LRVR4+6
>> LRSQ LRVR4+6, 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
>> LRUID LOOP+26
>> LRUSI V36+1
>> LRVF V25+1, V20+1
>> LRVIDO LOOP+30
>> LRVIDOF LOOP+32
>> LRVRM LOOP+23*, V20+28*, EDIT+2*
>> LRWRD LOOP+3
LRX LRVR4+4~, LRVR4+5*, LRVR4+6*, V20+14~, V20+16*, V20+18, V20+19, V20+21, NR+1~, NR+8*
, NR+9, NR+12*, NR+13, LRSBCOM1+2~, LRSBCOM1+14*, LRSBCOM1+15*, LRSBCOM1+16
LRY NR+1~, NR+8*, NR+9*, NR+10, NR+12*, NR+13*, NR+14, PLNR+3~, PLNR+5*, PLNR+6
, PLNR+9*, PLNR+10, PLNR+11, LRSBCOM1+2~, LRSBCOM1+12*, LRSBCOM1+16
>> PNM LOOP+2
PR LOOP+17~, LOOP+20*, LOOP+21*
PRAC LOOP+17~, LOOP+18
PRAC( LOOP+21
PRAC(0 LOOP+19
>> SEX LOOP+5
>> SSN LOOP+2
U LOOP+3, LOOP+4, LOOP+7, LOOP+24, LOOP+25, LOOP+26, LOOP+29, LOOP+31, V36+1, V3+19
, V3+23, V20+4, V20+7, V20+13, V20+16, V20+26, V20+30, NR+2, NR+3, NR+4
, NR+5, NR+7, NR+8, NR+10, NR+11, NR+12, NR+13, NR+14, LRSBCOM+7, LRSBCOM1+11
, LRSBCOM1+14
>> 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+30, RANGE+4
, RANGE+5, RQ*, NR+2, NR+3
>> X1 V20+5*, V20+7*, V20+9, V20+10
>> Y V3+14, V20+21*, V20+31, RANGE+4*, RANGE+5*, RQ
>> Z LOOP+23*
>> Z1 LOOP+24, LOOP+25
>> Z2 LOOP+26
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