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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LR7OU1

Package: Lab Service

Routine: LR7OU1


Information

LR7OU1 ;slc/dcm - General Utilities ;8/11/97 [ 04/25/2003 10:17 AM ]

Source Information

Source file <LR7OU1.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Order Entry Results Reporting 1 $$VALUE^ORCSAVE2  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 43

Package Total Caller Graph
Lab Service 32 LR7OB1  LR7OB63C  LR7OB63D  LR7OB69  LR7OC0  LR7OF5  LR7OMERG  LR7OPOS  
LR7OR1  LR7OR2  LR7OU3  LR7OV2  LRBLPE  LRCENDE1  LREXECU  LRHYDEL  
LRMISTF1  LRMIUT1  LROR1  LROR6  LRORDST  LROW1  LROW2  LRPHITE1  
LRPHITEM  LRPHSET2  LRTSTJAN  LRTSTOUT  LRTSTSET  LRVER3A  LRWD  LRWLST  
IHS Changes To Lab 9 BLR7OB1  BLRADDCD  BLRAG05B  BLRAG08  BLRDIAG1  BLRMANP2  BLRPRE31  BLRRLTAR  
BLRRLTDR  
VueCentric RPMS Support 2 CIAZPLBB  CIAZPLCH  

Entry Points

Name Comments DBIA/ICR reference
SAMPCOM(PK,IFN) ;Get Ward Remarks (specimen) for lab order
WC(PK,IFN) ;Get collection type for print fields
EN(TST,SUB) ;Expand a lab panel
SPLIT(TXT,ARAY,CTR,LENGTH,PRE,POST) ;Splits text into an array
ACC(PK,IFN) ;Get accession numbers for print fields
SAMP(ODT,SN) ;Get collection sample pointer from lab order
COL(PK,IFN) ;Get collection sample with Tube type for print fields
  • ICR #2955
    • Status: Active
    • Usage: Controlled Subscription
    STRIP(X) ; -- Strip leading spaces from text X
    LU(PK,IFN) ;Get urgency for print fields
  • ICR #2955
    • Status: Active
    • Usage: Controlled Subscription
    EXPAND(TEST,ARAY) ;Expand a lab test panel
  • ICR #2955
    • Status: Active
    • Usage: Controlled Subscription
    EX(TST) ;
    GET0(ODT,SN) ;Get zero node: ^LRO(69,ODT,1,SN,0) for an ORIFN
    TEST ;Test expanding panel
    WARDCOM(PK,IFN) ;Get General Ward comments on a test order
    VER() ;Check OE/RR version #
    GETST(ODT,SN,IFN) ;Find test node from LRODT,LRSN for a given ORIFN
    UPPER(X) ; Convert lower case X to UPPER CASE
    GETTEST(IFN) ;Get Lab test from Order entry
    TYPE(ODT,SN) ;Get collection type internal value from lab order

    External References

    Name Field # of Occurrence
    ^DIC TEST+1
    $$VALUE^ORCSAVE2 GETTEST+4

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(100 VER+2
    ^LAB(60 - [#60] EN+6, SAMPCOM+4, EX+2, EX+4
    ^LAB(62 - [#62] COL+3
    ^LAB(62.05 - [#62.05] LU+2
    ^LRO(68 - [#68] ACC+2
    ^LRO(69 - [#69] GETST+3, GETST+6, GETST+7, GET0+3
    ^ORD(101.43 - [#101.43] GETTEST+5

    Label References

    Name Line Occurrences
    $$GET0 SAMP+2, TYPE+2
    $$GETST ACC+2, LU+2, SAMPCOM+2, WARDCOM+2
    $$GETTEST GETST+5
    $$SAMP COL+2, SAMPCOM+3
    $$STRIP SPLIT+15, SPLIT+18
    $$TYPE WC+2
    EN EN+6, TEST+2
    EX EXPAND+4, EX+4
    SPLIT SPLIT+19

    Naked Globals

    Name Field # of Occurrence
    ^( EN+6, EX+4
    ^("VR" VER+2
    ^(0 ACC+2, COL+3, GETST+7, EX+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ARAY EXPAND~, EXPAND+5*, SPLIT~, SPLIT+10, SPLIT+15, SPLIT+18, SPLIT+19
    CTR SPLIT~, SPLIT+11*, SPLIT+15*, SPLIT+18*, SPLIT+19
    >> DIC TEST+1*
    >> DIC(0 TEST+1*
    END GETST+4~, GETST+5*, GETST+6, GETST+7*, SPLIT+9~, SPLIT+16*, SPLIT+17*, SPLIT+18, SPLIT+19
    I STRIP+1~, STRIP+2*
    IFN WC~, ACC~, ACC+2, LU~, LU+2, COL~, GETTEST~, GETTEST+2, GETTEST+4, GETST~
    , GETST+2, GETST+5, SAMPCOM~, SAMPCOM+2, WARDCOM~, WARDCOM+2
    INARAY EXPAND+3~, EXPAND+5
    INARAY( EX+3*
    J EN+4~, EN+6*, EX+1~, EX+4*
    LENGTH SPLIT~, SPLIT+12*, SPLIT+15, SPLIT+16, SPLIT+18, SPLIT+19
    ODT GETST~, GETST+2, GETST+3, GETST+6, GETST+7, GET0~, GET0+2, GET0+3, SAMP~, SAMP+2
    , TYPE~, TYPE+2
    PK WC~, WC+2, ACC~, ACC+2, LU~, LU+2, COL~, COL+2, SAMPCOM~, SAMPCOM+2
    , SAMPCOM+3, WARDCOM~, WARDCOM+2
    POST SPLIT~, SPLIT+14*, SPLIT+15, SPLIT+18, SPLIT+19
    PRE SPLIT~, SPLIT+13*, SPLIT+15, SPLIT+18, SPLIT+19
    S2 EN+4~, EN+5*
    SN GETST~, GETST+2, GETST+3, GETST+6, GETST+7, GET0~, GET0+2, GET0+3, SAMP~, SAMP+2
    , TYPE~, TYPE+2
    SPEC SAMPCOM+1~, SAMPCOM+3*, SAMPCOM+4*, SAMPCOM+5
    SUB EN~, EN+5, EX+1~, EX+2*, EX+3
    T GETST+4~, GETST+5*, GETST+6*, GETST+7
    TEST SAMPCOM+1~, SAMPCOM+2*, SAMPCOM+4, SAMPCOM+5, WARDCOM+1~, WARDCOM+2*, WARDCOM+3, EXPAND~, EXPAND+4
    TST EN~, EN+5, EN+6, GETST+4~, GETST+5*, GETST+7, EX~, EX+2, EX+3, EX+4
    TSTY TEST+2~
    TSTY( EN+5*
    TXT SPLIT~, SPLIT+10, SPLIT+15, SPLIT+16, SPLIT+18, SPLIT+19
    VER VER+2~*, VER+3
    X EN+4~, EN+6*, UPPER~, UPPER+1, WC+1~, WC+2*, ACC+1~, ACC+2*, ACC+3, LU+1~
    , LU+2*, LU+3, COL+1~, COL+2*, COL+3, GETTEST+3~, GETTEST+4*, GETTEST+5*, GETTEST+6, GETST+4~
    , GETST+5*, GETST+7*, GETST+8, EX+1~, EX+4*, STRIP~, STRIP+2
    Y TEST+1, TEST+2, WC+2*, WC+3, ACC+1~, ACC+2*, COL+1~, COL+3*, COL+4, STRIP+1~*
    , STRIP+2*, STRIP+3
    Y(0 TEST+2
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All