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: LRVER4

Package: Lab Service

Routine: LRVER4


Information

LRVER4 ;DALOI/STAFF - LAB ROUTINE DATA VERIFICATION ;07/06/10 14:08

Source Information

Source file <LRVER4.m>

Entry Points

Name Comments DBIA/ICR reference
LOOP ;
V
V36 ;
V37
V20 ;
V35 ;
LRCFL ;
EDIT ;
RANGE ;
RQ
RANGECHK ; Check result against reference ranges and set flag
  • ICR #5577
    • Status: Withdrawn
    • Usage: Private
    DISPFLG ; Display critical flags
    SUBS ;
    ND ;
    WT
    COM ;from LRVER5
    VOL ;
    COM1 ;
    PG
    V21 ;

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,PNM," SSN: ",SSN," "
    • Line Location: LOOP+4
    Function Call: WRITE
    • Prompt: !,"Pat Info: ",$P($G(^LR(LRDFN,.091)),U)
    • Line Location: LOOP+7
    Function Call: WRITE
    • Prompt: ?34," Sex: ",$S(SEX="M":"MALE",SEX="F":"FEMALE",1:SEX)
    • Line Location: LOOP+8
    Function Call: WRITE
    • Prompt: ?48," Age: ",$$CALCAGE^LRRPU(DOB,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+25
    Function Call: WRITE
    • Prompt: !,"VOLUME: ",$P(^(0),U,7)
    • Line Location: LOOP+28
    Function Call: WRITE
    • Prompt: !,"ACCESSION:",?30,$P(Z2,U,6),?44," ",LRACC_" ["_LRUID,"]"
    • Line Location: LOOP+31
    Function Call: WRITE
    • Prompt: !,?30,LRDAT(2)
    • Line Location: LOOP+32
    Function Call: WRITE
    • Prompt: ?44," ",LRDAT
    • Line Location: LOOP+32
    Function Call: WRITE
    • Prompt: !?15
    • Line Location: LOOP+35
    Function Call: WRITE
    • Prompt: @LRVIDO
    • Condition for execution: $E(IOST,1,2)="C-"
    • Line Location: LOOP+35
    Function Call: WRITE
    • Prompt: "Test ordered "_$P($G(^LAB(62.05,+LRALERT,0)),U)
    • Line Location: LOOP+36
    Function Call: WRITE
    • Prompt: !!?7,$C(7),"This is not a verifiable test/accession ",!
    • Line Location: LOOP+40
    Function Call: WRITE
    • Prompt: !?10," Workload is not activated."
    • Line Location: V36+13
    Function Call: WRITE
    • Prompt: !,$P(^LAB(60,+LRTS,0),U)
    • Line Location: V20+9
    Function Call: WRITE
    • Prompt: ?44," ",@LRFP," ",LRFLG,?56," ",$P($P(LRSB(LRSB),U,5),"!",7)
    • Line Location: V20+26
    Function Call: WRITE
    • Prompt: " "
    • Line Location: V20+31
    Function Call: WRITE
    • Prompt: " "
    • Line Location: RANGE+4
    Function Call: WRITE
    • Prompt: $C(7),@LRVIDO
    • Line Location: DISPFLG+2
    Function Call: WRITE
    • Prompt: "CRITICAL ",$S($E(LRFLG,1)="L":"LOW",$E(LRFLG,1)="H":"HIGH",1:""),"!!"
    • Line Location: DISPFLG+3
    Function Call: WRITE
    • Prompt: @LRVIDOF,$C(7),$C(7)
    • Line Location: DISPFLG+4
    Function Call: WRITE
    • Prompt: !,"You're not authorized to edit verified data."
    • Line Location: ND+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: ND+12
    Function Call: READ
    • Variable: Y
    • Timeout: DTIME
    • Line Location: WT+1
    Function Call: WRITE
    • Prompt: !,"VOLUME: ",$P(^LR(LRDFN,LRSS,LRIDT,0),U,7),"//"
    • Line Location: VOL+1
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: PG+1
    Function Call: WRITE
    • Prompt: !,$P(^LAB(60,LRTS,0),U)
    • Line Location: V21+7
    Function Call: WRITE
    • Prompt: ?44," ",@LRFP," ",LRFLG,?56," ",$P(LRNG,U,7)
    • Line Location: V21+19
    Function Call: WRITE
    • Prompt: " "
    • Line Location: V21+24

    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