Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GETS^DIQ
63.04 EXTERNAL^DILFD,  GET1^DID
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call