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

Package: Lab Service

Routine: LRVER5


Information

LRVER5 ;DALOI/STAFF - LAB ROUTINE DATA VERIFICATION ;05/12/16 09:47

Source Information

Source file <LRVER5.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Lab Service 6 $$TMPSB^LRVER1  RONLT^LRVER3  (COM,RANGE)^LRVER4  ($$PLOK,$$RFLAG,XDELTACK)^LRVERA  ZAPALL^LRVR3  (LRSBCOM,PLNR)^LRVR4  
VA FileMan 6 EN^DDIOL  MSG^DIALOG  ^DIC  CHK^DIE  ^DIM  ^DIR  
Kernel 1 OWNSKEY^XUSRB  

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

Package Total Caller Graph
Lab Service 6 LRGV2  LRSTUF2  LRVER4  LRVR5  LRVRAR  LRVRPOC  
Automated Lab Instruments 1 LA7VIN5  

Entry Points

Name Comments DBIA/ICR reference
V40
V42 ;
Q42 ;
Q42A ;
Q43
V43 ;
V44
V45 ;
V46 ;
RANGE ;
LRSUBS ; From LRVR5
LRSET ; from above and LRVR5
; Also called from Input Transform of file #60.01 field #9
COMP ; from LRVR5
TRAP ; Error trap for COMP subroutine above
CH
V25 ; From LRVER4, LRSTUF2
  • ICR #5492
    • Status: Withdrawn
    • Usage: Private
    NORM ;
    NORM2 ;
    LROUT ;
    HELP ; Display help prompt from test result entry.
    EDITUNR ; Allow user to edit units and normal reference ranges.
    AMEND ; Process amended results and prompt user
    ASKPLNR ; Ask user for performing lab normal ranges and units when entering
    ; manually and not using values from file #60.

    External References

    Name Field # of Occurrence
    EN^DDIOL LRSET+12
    MSG^DIALOG LRSET+16
    ^DIC V43+3
    CHK^DIE LRSET+10
    ^DIM COMP+7
    ^DIR EDITUNR+21, AMEND+35, ASKPLNR+12, ASKPLNR+26
    $$TMPSB^LRVER1 V46+14
    RONLT^LRVER3 V46+17
    COM^LRVER4 V44+1
    RANGE^LRVER4 V46+9, RANGE+10
    $$PLOK^LRVERA V40+5
    $$RFLAG^LRVERA ASKPLNR+31
    XDELTACK^LRVERA V46+8
    ZAPALL^LRVR3 AMEND+52
    LRSBCOM^LRVR4 AMEND+44
    PLNR^LRVR4 RANGE+8, RANGE+9, V25+21
    OWNSKEY^XUSRB V45+13, HELP+10

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"Current Ref Range: ",LRNG2,"-",LRNG3," Units: ",$P(LRNG,"^",7)
    • Line Location: Q42+14
    Function Call: WRITE
    • Prompt: !," Critical Low: ",LRNG4," Critical High: ",LRNG5
    • Line Location: Q42+16
    Function Call: WRITE
    • Prompt: $C(7)," No Control Characters allowed."
    • Line Location: Q42A+3
    Function Call: WRITE
    • Prompt: !,"Not in this group"
    • Line Location: V43+5
    Function Call: WRITE
    • Prompt: !,"Not in this group"
    • Line Location: V43+6
    Function Call: WRITE
    • Prompt: !,"Something's wrong with the syntax."
    • Line Location: COMP+8
    Function Call: WRITE
    • Prompt: !," equals ",@C
    • Line Location: COMP+10
    Function Call: WRITE
    • Prompt: !!,"Error in your mathematical formula ",!
    • Line Location: TRAP+1
    Function Call: WRITE
    • Prompt: !,"Enter for example: 5*2/4+1 and 3.5 will be returned [i.e. ((5*2)/4)+1=3.5]"
    • Line Location: CH+0
    Function Call: WRITE
    • Prompt: !," ??",$C(7)
    • Line Location: HELP+5
    Function Call: WRITE
    • Prompt: !,"Enter * to report ""canc"" for canceled."
    • Line Location: HELP+7
    Function Call: WRITE
    • Prompt: !,"Enter # to report ""comment""."
    • Line Location: HELP+8
    Function Call: WRITE
    • Prompt: !,"Enter ~ to edit units/reference ranges."
    • Line Location: HELP+11
    Function Call: WRITE
    • Prompt: !
    • Line Location: EDITUNR+15
    Function Call: WRITE
    • Prompt: !!,"The related amended result has been purged"
    • Line Location: AMEND+20
    Function Call: WRITE
    • Prompt: !,"Unable to process this result."
    • Line Location: AMEND+21
    Function Call: WRITE
    • Prompt: !!,"For test ",LRTEST
    • Line Location: ASKPLNR+9
    Routine Call
    • DIALOG
    • Line Location:
      • LRSET+16
    Routine Call
    • DIC
    • Line Location:
      • V43+3
    Routine Call
    • DIE
    • Line Location:
      • LRSET+10
    Routine Call
    • DIR
    • Line Location:
      • EDITUNR+21
      • AMEND+35
      • ASKPLNR+12
      • ASKPLNR+26

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^LAB(60 - [#60] Classic Fileman Calls
    63.04 CHK^DIE

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TRAP" COMP+4, COMP+7
    ^LAB(60 - [#60] V42+4, Q42+12, V45+17, LRSET+8, V25+6, V25+7, V25+8, V25+9, V25+13, V25+14
    , V25+21, EDITUNR+6, EDITUNR+8
    ^LAB(62.1 - [#62.1] V25+15, V25+16
    ^LAH( AMEND+19, AMEND+25, AMEND+48!, AMEND+52
    ^LAH("LA7 AMENDED RESULTS" LRVER5+16, LRVER5+18, LRVER5+20, Q42+3, AMEND+12, AMEND+22!, AMEND+49!
    ^LR - [#63] V45+6!, V46+3
    ^TMP("LR" V43+6, LRSUBS+4

    Label References

    Name Line Occurrences
    AMEND Q42+5
    ASKPLNR Q42+18, EDITUNR+27
    CH COMP+6, COMP+8, COMP+10
    COMP V45+22, COMP+10, CH+1
    EDITUNR V45+14
    HELP V45+19, V45+20
    LROUT Q43, V43+5, V43+6
    LRSET V45+21
    LRSUBS V40, V43+9
    NORM2 Q42+18, NORM+8
    Q42 V43+3
    Q42A Q42A+3, V45+11
    Q43 V46+25
    V25 V40+8, Q42+13, V43+9
    V40 Q43, V46+25
    V42 V43+9, V45+19, V45+20, V45+21, V45+22, V46+1
    V44 V40, Q43, V46+25
    V45 Q42+3, Q42A+5, Q43
    V46 V45+5

    Naked Globals

    Name Field # of Occurrence
    ^( V46+3, LRSUBS+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> AGE NORM2+5*
    >> C COMP+5*, COMP+6*, COMP+7, COMP+9, COMP+10
    DA ASKPLNR+5~
    DA(1 LRSET+8
    >> DIC V43+3*
    >> DIC(0 V43+3*
    DIERR LRSET+5~
    DIR EDITUNR+7~, AMEND+4~, ASKPLNR+5~, ASKPLNR+18!, ASKPLNR+20!
    DIR("?" AMEND+31*, AMEND+32*, AMEND+33*, AMEND+34*
    DIR("A" EDITUNR+16*, EDITUNR+17*, EDITUNR+19*, EDITUNR+20*, AMEND+27*, AMEND+28*, AMEND+29*, AMEND+30*
    DIR("B" EDITUNR+20*, AMEND+26*, ASKPLNR+11*, ASKPLNR+23*, ASKPLNR+24, ASKPLNR+25*
    DIR(0 EDITUNR+20*, AMEND+26*, ASKPLNR+10*, ASKPLNR+21*
    DIROUT ASKPLNR+5~, ASKPLNR+18!
    DIRUT EDITUNR+7~, AMEND+4~, AMEND+36, ASKPLNR+5~, ASKPLNR+18!
    DTIME Q42A+2, COMP+5
    DTOUT EDITUNR+7~, AMEND+4~, ASKPLNR+5~, ASKPLNR+13, ASKPLNR+18!, ASKPLNR+19, ASKPLNR+27
    DUOUT EDITUNR+7~, AMEND+4~, ASKPLNR+5~, ASKPLNR+13, ASKPLNR+18!, ASKPLNR+19, ASKPLNR+27
    DUZ V46+20, V46+22
    DUZ(2 V40+5, Q42+11, V46+21, V46+24, RANGE+8, RANGE+9, V25+21
    I V46+15*, LRSET+5~, COMP+9*, COMP+10
    >> LRAMEND AMEND+7*, AMEND+43*
    >> LRAMEND( Q42+3, Q42+5, V46+6, V46+9, AMEND+43*
    LRANS AMEND+4~, AMEND+37*, AMEND+40, AMEND+47
    >> LRD Q42A+5*
    >> LRDEL V46+8, V25+5*, V25+15*
    >> LRDEL(1 V25+16*
    >> LRDFN V45+6, V46+3
    >> LRDL V42+2*, Q42A+5*
    >> LRDUZ V46+20, V46+22
    >> LRDUZ(2 V40+5, Q42+11, V46+21, V46+24, RANGE+8, V25+21
    >> LRDV V42+3, Q42A+5, V25+5*, V25+18*
    >> LRDVF V42+2*, V42+3*, Q42A+4*, Q42A+5
    >> LREDIT V42+2*
    LRERR LRSET+5~
    LRESULT LRSET+5~, LRSET+10, LRSET+11, LRSET+13, LRSET+15
    LRESULT(0 LRSET+12
    >> LRFLG V46+6*, V46+13, AMEND+41*
    >> LRFP Q42+4, Q42+6, Q42A+1, V25+9*, V25+10*
    LRI AMEND+4~, AMEND+42*, ASKPLNR+5~, ASKPLNR+21*, ASKPLNR+22, ASKPLNR+23, ASKPLNR+28, ASKPLNR+35*
    >> LRIDT V45+6
    LRJ AMEND+4~, AMEND+41*, AMEND+42, ASKPLNR+5~, ASKPLNR+19*, ASKPLNR+21
    LRKEY V45+12~, V45+13, HELP+4~, HELP+10
    LRKEY(0 V45+14, HELP+11
    >> LRLDT V46+3
    LRLL AMEND+4~, AMEND+15*, AMEND+19, AMEND+22, AMEND+25, AMEND+48, AMEND+49, AMEND+52
    >> LRM( V45+7
    >> LRNDISP LRVER5+9
    >> LRNG Q42+14, V25+5*, V25+14*, V25+15, V25+16, V25+17, V25+18, NORM+6*, NORM2+7, NORM2+10
    , NORM2+14*, EDITUNR+25*, EDITUNR+31, EDITUNR+35*, AMEND+42*, AMEND+43, ASKPLNR+35*, ASKPLNR+36
    >> LRNG2 Q42+14
    >> LRNG3 Q42+14
    >> LRNG4 Q42+15, Q42+16
    >> LRNG5 Q42+15, Q42+16
    >> LRNGS Q42+19, V46+23, V25+5*, NORM2+7*, NORM2+14*, EDITUNR+25*, EDITUNR+35*, EDITUNR+37, EDITUNR+38, AMEND+43*
    , ASKPLNR+7, ASKPLNR+36*
    LRNNG EDITUNR+7~, EDITUNR+8*, EDITUNR+10, EDITUNR+14*, EDITUNR+17, EDITUNR+23, EDITUNR+24, EDITUNR+25
    LRNNG2 EDITUNR+7~, EDITUNR+17
    LRNNG3 EDITUNR+7~, EDITUNR+17
    LRNNG4 EDITUNR+7~, EDITUNR+18, EDITUNR+19
    LRNNG5 EDITUNR+7~, EDITUNR+18, EDITUNR+19
    >> LRNOVER( V42+5!
    LRNUF V44+2*, V46+25!
    >> LRNX LRVER5+10*, LRVER5+11*, LRVER5+17*, LRVER5+18*, LRVER5+19*, LRVER5+20*, LRVER5+22*, V40*, V43+7*, V43+8*
    , V43+9, LRSUBS+4
    >> LRORD( LRVER5+11, LRVER5+18!, V40, V43+8, V43+9, LRSUBS+4
    >> LROUT LROUT+5*
    >> LRPLOC V43+4*
    LRQ V46+8*!
    >> LRRFLAG( ASKPLNR+31*
    LRROOT AMEND+4~, AMEND+12*, AMEND+13, AMEND+14, AMEND+15
    >> LRSA V44+2*
    >> LRSA( LRVER5+12!, LRVER5+20!, V40+6, V45+7, V46+2*, V46+19, NORM+4, NORM+5, NORM+6
    LRSB V40+5, V40+6, V42+2, V42+5, Q42+3, Q42+5, Q42+20, Q42+21, V43+4*, V43+6
    , V43+8, V43+9, V45+6, V45+7, V45+8, V46+2, V46+3, V46+6, V46+9, V46+11
    , V46+13, V46+14, V46+16, V46+17, V46+19, V46+20, V46+21, V46+22, V46+23, V46+24
    , RANGE+4, RANGE+9, LRSUBS+4*, LRSET+8~*, LRSET+10, NORM+3, NORM+4, NORM+5, NORM+6, EDITUNR+24
    , EDITUNR+25, EDITUNR+38, EDITUNR+39, AMEND+12, AMEND+14, AMEND+19, AMEND+22, AMEND+25, AMEND+41, AMEND+43
    , AMEND+48, AMEND+49, ASKPLNR+15, ASKPLNR+31
    LRSB( LRVER5+12!, LRVER5+20!, V40+5, V40+6*, V42+2, Q42+20, Q42+21*, V45+7, V45+8*, V46+2
    , V46+11*, V46+13*, V46+14, V46+16*, V46+17, V46+20*, V46+21*, V46+22*, V46+23*, V46+24*
    , RANGE+4*, RANGE+9, V25+18, EDITUNR+24, EDITUNR+25*, EDITUNR+38, EDITUNR+39*, AMEND+41*, ASKPLNR+15*, ASKPLNR+31
    LRSKIP V45+4!, V46+25
    >> LRSPEC Q42+12, V25+13, V25+14, V25+21, EDITUNR+6, EDITUNR+8, ASKPLNR+34
    LRSQ AMEND+4~, AMEND+15*, AMEND+19, AMEND+22, AMEND+25, AMEND+48, AMEND+49, AMEND+52
    >> LRSS V43+6, V45+6, V46+3
    >> LRSSQ V43+4*, V43+5, V43+6
    >> LRTEST V42+4*, Q42+4, Q42+6, Q42A+1, V46+2, ASKPLNR+9
    >> LRTS V40+5, V42+4, Q42+12, V43+4*, V45+17, LRSUBS+4*, V25+6, V25+7, V25+8, EDITUNR+6
    , EDITUNR+8
    LRTX V25+4~, V25+8*, V25+9, V25+13, V25+14, V25+21
    >> LRUID LRVER5+16, LRVER5+18, LRVER5+20, Q42+3, AMEND+12, AMEND+14, AMEND+22, AMEND+49
    LRUNR EDITUNR+4~, EDITUNR+5*, EDITUNR+22*, EDITUNR+27
    >> LRVF V44+2, V45+6, V45+7, V46+2
    >> LRVRM LRVER5+22*
    LRX LRVER5+11~, LRVER5+12*, Q42+17~, Q42+19*, Q42+20, V46+14*, V46+15, V25+4~, V25+7*, V25+18
    , NORM2+8*, NORM2+10, NORM2+14, EDITUNR+4~, EDITUNR+9*, EDITUNR+10, EDITUNR+14, EDITUNR+23*, EDITUNR+24, EDITUNR+29*
    , EDITUNR+31, EDITUNR+35, EDITUNR+37*, EDITUNR+38, AMEND+4~, AMEND+10*, AMEND+23, AMEND+41*, AMEND+55, ASKPLNR+5~
    , ASKPLNR+7*, ASKPLNR+11, ASKPLNR+15*, ASKPLNR+22, ASKPLNR+23, ASKPLNR+28*, ASKPLNR+34*, ASKPLNR+35
    LRX( LRVER5+11*, LRVER5+12
    >> LRXD V45+17*, HELP+5
    >> LRXDH HELP+5*, HELP+6
    >> LRXDP V45+17*, V45+18, V45+20, V45+21, V45+22, HELP+9
    LRY Q42+17~, Q42+20*, Q42+21, V46+14*, V46+15*, V46+16, NORM2+9~, NORM2+10*, NORM2+12*, NORM2+13
    , NORM2+14, EDITUNR+4~, EDITUNR+10*, EDITUNR+12*, EDITUNR+13, EDITUNR+14, EDITUNR+24*, EDITUNR+25, EDITUNR+30~, EDITUNR+31*
    , EDITUNR+33*, EDITUNR+34, EDITUNR+35, EDITUNR+38*, EDITUNR+39, AMEND+4~, AMEND+25*, AMEND+27, AMEND+28, AMEND+29
    , AMEND+41, ASKPLNR+5~
    >> SEX NORM2+4*
    SX V42+2*, Q42+3, Q42+6, Q42A+3, Q42A+4, V44!, V45+15, LROUT+4!
    U V42+2, V42+4, V43+3, V43+4, V45+17, V45+18, V45+20, V45+21, V45+22, V46+3
    , V46+11, V46+12, V46+13, V46+14, V46+16, V46+17, V46+20, V46+21, V46+22, V46+23
    , V46+24, V25+7, V25+8, V25+9, V25+15, V25+16, V25+17, V25+18, HELP+9
    X V42+2*, V42+3*, Q42+3, Q42+4, Q42+6, Q42A+1, Q42A+2*, Q42A+3*, Q42A+4*, Q42A+5*
    , Q43, V43+3*, V45+5, V45+7*, V45+8, V45+11, V45+15*, V45+18, V45+19, V45+20
    , V45+21, V45+22, V46+1, V46+4*, V46+11, V46+12, V46+13, V46+25*, RANGE+4, LRSET+10
    , LRSET+13*, LRSET+17!, COMP+4*, COMP+7*, COMP+8, EDITUNR+7~, AMEND+10, AMEND+23*, AMEND+55*, ASKPLNR+5~
    , ASKPLNR+18!
    >> X1 V46+3*
    >> X2 V25+17*
    Y V43+3, V43+4, V46+7*, EDITUNR+7~, EDITUNR+22, AMEND+4~, AMEND+37, ASKPLNR+5~, ASKPLNR+15, ASKPLNR+18!
    , ASKPLNR+28
    Y(0 V43+4
    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