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

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Lab Service 11 PRAC^LR7OMERG  (EN,STD)^LRCAPV  ^LREXEC  PG^LRGVP  $$CALCAGE^LRRPU  $$TMPSB^LRVER1  RONLT^LRVER3  XREF^LRVER3A  
DISPFLG^LRVER4  (,V25)^LRVER5  (DCOM,XDELTACK)^LRVERA  
VA FileMan 5 $$GET1^DID  ^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: 5

Package Total Caller Graph
Lab Service 5 LRGV2  LRVER3  LRVER4  LRVER5  LRVR4  

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 ;

    External References

    Name Field # of Occurrence
    $$GET1^DID V20+13, V20+23, V21+10, V21+16
    ^DIE COM+4
    $$EXTERNAL^DILFD V20+14, V20+24, V21+11, V21+17
    GETS^DIQ LOOP+11
    ^DIR V36+5, ND+9
    PRAC^LR7OMERG LOOP+21
    EN^LRCAPV V36+12
    STD^LRCAPV V36+12
    ^LREXEC LRCFL+1
    PG^LRGVP PG+2
    $$CALCAGE^LRRPU LOOP+9
    $$TMPSB^LRVER1 V20+38
    RONLT^LRVER3 V20+41
    XREF^LRVER3A COM1+2
    DISPFLG^LRVER4 V20+32, RANGE+13, V21+25
    ^LRVER5 EDIT+2
    V25^LRVER5 V20+5, V21+6
    DCOM^LRVERA V20+1, V35+2
    XDELTACK^LRVERA V20+30, V21+23
    $$FMTE^XLFDT LOOP+9
    $$UP^XLFSTR ND+11

    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
    Routine Call
    • DIE
    • Line Location:
      • COM+4
    Routine Call
    • DIR
    • Line Location:
      • V36+5
      • ND+9

    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+9, V21+5, V21+7
    ^LAB(62.05 - [#62.05] LOOP+36
    ^LR - [#63] LOOP+7, LOOP+27, V+1, V20+4, V20+11, ND+14, COM+5, COM+6!, COM+7, VOL+1
    , COM1+1, COM1+4, V21+8
    ^LRO(68 - [#68] LOOP+5, LOOP+10, V+4, V36+12, V36+15, COM1+3*
    ^TMP("LR" SUBS+1, COM1+3
    ^VA(200 - [#200] LOOP+24

    Label References

    Name Line Occurrences
    COM V36+10, VOL+3
    COM1 COM+4
    EDIT V+1, V+3, V36+16
    LOOP V36+11, EDIT+2, EDIT+3
    LRCFL V20+1, V35+1, EDIT+2
    ND V+3
    PG V20+7
    RANGECHK RANGE+12
    SUBS V20+2
    V20 V, V+3, V20+3, V20+4, V20+48
    V21 V20+1
    V35 V20+2
    V36 V36+10
    V37 V+3, V36+6
    VOL VOL+2
    WT V20+48, LRCFL+2, V21+26

    Naked Globals

    Name Field # of Occurrence
    ^( V20+12, SUBS+1, ND+14, V21+9
    ^(0 LOOP+5, LOOP+24, LOOP+28, VOL+2*, COM1+4*
    ^(2 V+4, V36+15*

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> DA COM+3*
    >> DA(1 COM+3*
    >> DIE COM+3*
    DIR V36+2!, ND+1!, ND+10!
    DIR("?" ND+8*
    DIR("A" V36+4*, ND+7*
    DIR(0 V36+3*, ND+6*
    >> DIRUT V36+6
    >> DOB LOOP+9
    DR COM+2!, COM+3*
    DTIME WT+1, VOL+1
    >> DTOUT V20+7
    >> DUOUT V20+7
    DUZ V20+44, V20+46
    DUZ(2 V20+44, V20+46
    I V20+36~, V20+39*
    IOF PG+1
    IOSL PG
    IOST LOOP+35, LOOP+37, DISPFLG+2, DISPFLG+4, PG+1
    >> LRAA LOOP+5, LOOP+10, LOOP+21, V+4, V36+12, V36+15
    >> LRACC LOOP+30*, LOOP+31
    >> LRAD LOOP+5, LOOP+10, LOOP+21, V+4, V36+15
    >> LRALERT LOOP+34, LOOP+36
    LRAMEND LRVER4+3~
    >> LRAN LOOP+5, LOOP+10, LOOP+21
    >> LRCDT LOOP+9
    >> LRCFL V35+1, LRCFL+1
    >> LRCHG V20+1, EDIT+2, ND+12*
    >> LRDAT LOOP+32
    >> LRDAT(2 LOOP+32
    >> LRDEL V20+30, V21+23
    >> LRDFN LOOP+7, LOOP+27, V+1, V20+4, V20+11, ND+14, COM+3, COM+5, COM+6, COM+7
    , VOL+1, COM1+1, COM1+3, COM1+4, V21+8
    >> LRDL V20+21*, V21+9*, V21+14*
    >> LRDPF LOOP+5
    >> LRDUZ V20+44, V20+46
    >> LRDUZ(2 V20+44, V20+46
    >> LREDIT V+3, V+4*, V36+8*, V36+16, V20+22*, ND+5*, ND+11*, V21+15*
    LREND V36+12*, V21+1~, V21+3, V21+26*
    >> LREXEC LRCFL+1*
    LRFIND RANGE+1~, RANGE+5*
    >> LRFLG V20+17*, V20+22*, V20+26, V20+32, V20+37, RANGE+10*, RANGE+13, RANGECHK+5*, RANGECHK+6*, RANGECHK+7*
    , RANGECHK+8*, RANGECHK+17*, RANGECHK+18*, RANGECHK+19*, RANGECHK+20*, RANGECHK+22*, RANGECHK+23*, RANGECHK+24*, RANGECHK+25*, RANGECHK+30*
    , RANGECHK+31*, RANGECHK+32*, RANGECHK+33*, DISPFLG+3, V21+15*, V21+19, V21+25
    >> LRFP V20+16, V20+26, V21+13, V21+19
    >> LRGVP LOOP+2, V, V36+1, V20+7, WT, COM+1
    LRI RANGE+1~, RANGE+5*, RANGE+6
    >> LRIDT LOOP+27, V+1, V20+4, ND+14, COM+3, COM+5, COM+6, COM+7, VOL+1, COM1+1
    , COM1+3, COM1+4
    >> LRLABKY ND+3
    >> LRLCT LOOP+1*, LOOP+4*, LOOP+13*, LOOP+18*, LOOP+24*, LOOP+25*, LOOP+29*, LOOP+33*, LOOP+38*, V20+48*
    , LRCFL+2, WT*, V21+2*, V21+26*
    >> LRLDT V20+11, V21+8
    LRNC V36+9!, V36+10*!, COM+4
    >> LRNG V21+19
    >> LRNG2 RANGECHK+7, RANGECHK+19, RANGECHK+20, RANGECHK+32
    >> LRNG3 RANGECHK+8, RANGECHK+24, RANGECHK+25, RANGECHK+33
    >> LRNG4 RANGECHK+5, RANGECHK+17, RANGECHK+18, RANGECHK+30
    >> LRNG5 RANGECHK+6, RANGECHK+22, RANGECHK+23, RANGECHK+31
    >> LRNGS V20+47
    >> LRNOVER( V20+20!
    LRNUF V+1, V+2!, V20+48, V35+2!, V21+26
    >> LRNX LOOP+26*, V20+2*, SUBS+1
    >> LRORD( V20+2, SUBS+1
    >> LRORD(0 LOOP+40
    LROUT EDIT+1!, EDIT+2
    >> LRPARAM LOOP+34, V36+12
    >> LRPER V+1, EDIT+2
    >> LRPRAC LOOP+10*, LOOP+11, LOOP+14, LOOP+15, LOOP+16, LOOP+17
    >> LRPRAC( LOOP+14, LOOP+15, LOOP+16, LOOP+17
    LRQ V20+30*!, V20+32, RANGE+13, V21+23*!, V21+25
    LRRFLAG LRVER4+3~
    LRRFLAG( RANGE+10
    LRSA ND+13!*, ND+14*
    LRSA( V20+44, V20+45*, ND+14*
    >> LRSB V20+4, V20+11, V20+12, V20+13, V20+14, V20+18, V20+20, V20+21, V20+22, V20+23
    , V20+24, V20+26, V20+34, V20+37, V20+38, V20+40, V20+41, V20+43, V20+44, V20+45
    , V20+46, V20+47, RANGE+10, SUBS+1*, V21+2*, V21+3*, V21+5, V21+8, V21+9, V21+10
    , V21+11, V21+14, V21+15, V21+16, V21+17
    >> LRSB( V20+4, V20+18, V20+21, V20+22, V20+26, V20+34*, V20+37*, V20+38, V20+40*, V20+41
    , V20+43, V20+44*, V20+45*, V20+46*, V20+47*, V21+3, V21+14, V21+15
    >> LRSS LOOP+27, V+1, V20+4, V20+11, COM+5, COM+7, VOL+1, COM1+1, COM1+4, V21+8
    >> LRTEC V+4*, V36+14*
    >> LRTS V20+3, V20+9, SUBS+1*, V21+5*, V21+7
    >> LRUID LOOP+31
    >> LRUSI V+4, ND+11
    >> LRVF V+1, V+3, ND+2
    >> LRVIDO LOOP+35, DISPFLG+2
    >> LRVIDOF LOOP+37, DISPFLG+4
    >> LRVRM LOOP+26*, EDIT+2*
    >> LRWRD LOOP+3*, LOOP+5
    >> LRWRDS LOOP+3
    LRX V20+19~, V20+21*, V20+24, V20+25, V20+27, V20+36~, V20+38*, V20+39, RANGECHK+14~, RANGECHK+15*
    , RANGECHK+17, RANGECHK+18, RANGECHK+19, RANGECHK+20, RANGECHK+22, RANGECHK+23, RANGECHK+24, RANGECHK+25, COM1+1~, COM1+3*
    , V21+4~, V21+14*, V21+17, V21+18, V21+20
    LRY V20+36~, V20+38*, V20+39*, V20+40
    >> PNM LOOP+4
    PR LOOP+20~, LOOP+23*, LOOP+24*
    PRAC LOOP+20~, LOOP+21
    PRAC( LOOP+24
    PRAC(0 LOOP+22
    >> SEX LOOP+8
    >> SSN LOOP+4
    >> T LOOP+26*
    U LOOP+5, LOOP+7, LOOP+10, LOOP+27, LOOP+28, LOOP+30, LOOP+31, LOOP+34, LOOP+36, V+4
    , V36+12, V36+15, V20+9, V20+12, V20+21, V20+22, V20+26, V20+34, V20+35, V20+37
    , V20+38, V20+40, V20+41, V20+43, V20+44, V20+45, V20+46, V20+47, ND+3, VOL+1
    , VOL+2, COM1+1, COM1+4, V21+7, V21+9, V21+14, V21+15, V21+19
    X V+3, V36+6*, V36+7*, V36+8*, V36+10, V36+11, V36+14*, V36+15, V20+12*, V20+14*
    , V20+15*, V20+16, V20+17*, V20+21*, V20+24*, V20+25*, V20+27*, V20+28, V20+34, V20+35
    , V20+37, RANGE+2, RANGE+3, RANGE+5, RANGE+6*, RQ*, RANGECHK+4, RANGECHK+5, RANGECHK+6, RANGECHK+7
    , RANGECHK+8, RANGECHK+13, RANGECHK+15, RANGECHK+16, RANGECHK+21, RANGECHK+29, RANGECHK+30, RANGECHK+31, RANGECHK+32, RANGECHK+33
    , ND+1!, ND+10*, ND+11!, ND+12, VOL+1*, VOL+2, V21+9*, V21+11*, V21+12*, V21+13
    , V21+14*, V21+17*, V21+18*, V21+20*, V21+21
    >> X1 V20+10*, V20+12*, V20+14, V20+15, V21+7*, V21+9*, V21+11, V21+12
    Y V36+7, V20+29*, V20+48, RANGE+2*, RQ, ND+10, WT+1*, V21+1~, V21+22*, V21+26
    >> Z1 LOOP+30
    >> Z2 LOOP+31
    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