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

Package: Lab Service

Routine: LRWU4


Information

LRWU4 ;VA/DALOI/RWF - READ ACCESSION ; 13-Aug-2013 09:14 ; MKK

Source Information

Source file <LRWU4.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 ^%DT  ^DIC  ^DIR  
Kernel 2 ($$DT,$$FMTE)^XLFDT  $$LKUP^XPDKEY  
Lab Service 1 DATE^LRWU  

Caller Graph

Caller Graph Total: 38

Package Total Caller Graph
Lab Service 17 LR7OGMC  LR7OGMM  LR7OGMU  LRCAPES  LRGP1  LRHYDEL  LRHYU4  LRLABXT  
LRLLS  LRLLS3  LRMILL  LRTSTJAN  LRTSTOUT  LRVER  LRVERA  LRVR  
LRWRKLST  
Automated Lab Instruments 10 LA7ADLS  LA7CHLU3  LA7CORUB  LA7HDR1  LA7PURG  LA7SM  LA7SRR  LA7VHLU3  
LA7VORUB  LAMILL  
IHS Changes To Lab 10 BLR6249R  BLR7OGMM  BLRADDCD  BLRCHGPL  BLRLDFIS  BLRMANP3  BLRMANPU  BLRMIRPT  
BLRRLMUM  BLRUTIL8  
IHS Laboratory Point of Care 1 BLRPOC3  

Entry Points

Name Comments DBIA/ICR reference
AA ;
QUIT ;
EN ;
END ;
CHECKUID(LRX) ; Check if UID is valid, accession exists.
; Call with LRX = UID to check
; Returns Y = 0 (accession does not exist)
; = 1 (accession exists)^area^date^number
  • ICR #4636
    • Status: Active
    • Usage: Private
    QUES ;
    SELBY(X1) ; Select by accession number or unique identifier (UID)
    ; Call with X1 = message prompt
    ; Returns Y = 0 (abort)
    ; = 1 (accession number)
    ; = 2 (unique identifier)
    WLQUES ; Ask user if acession area enter does not match any existing entries
    UID(LRX,LRY) ; Lookup accession by UID
    ; Call with LRX = message prompt
    ; LRY = default UID to display
    ; Returns Y = 0 (abort)
    ; = UID
    UNIV ; see if entry is UID

    External References

    Name Field # of Occurrence
    ^%DT AA+48
    ^DIC WLQUES+5
    ^DIR AA+3, AA+61, SELBY+8, UID+12
    DATE^LRWU AA+32
    $$DT^XLFDT EN+4
    $$FMTE^XLFDT AA+69
    $$LKUP^XPDKEY AA+22

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,$P(LRX,U)
    • Line Location: AA+26
    Function Call: WRITE
    • Prompt: !,"ACCESSION: ",$P(^LRO(68,LRAA,0),U,11)," ",$$FMTE^XLFDT(LRAD,"5D")," ",LRAN," DOES NOT EXIST!"
    • Line Location: AA+69
    Function Call: WRITE
    • Prompt: " (",$P($G(^LRO(68,LRAA,1,LRAD,1,LRAN,.2)),"^"),")"
    • Line Location: UNIV+6
    Function Call: WRITE
    • Prompt: $C(7),!,"Enter the accession number",$S($G(LRVBY)<1:" or the unique identifier (UID)",1:""),"."
    • Line Location: QUES+1
    Function Call: WRITE
    • Prompt: !,"If entering the accession number, enter in this format:"
    • Line Location: QUES+2
    Function Call: WRITE
    • Prompt: !?5," <ACCESSION AREA> <DATE> <NUMBER>"
    • Line Location: QUES+3
    Function Call: WRITE
    • Prompt: !?5," ie. CH 0426 125 or CH 125 or CH T 125",!?5," or if it's a yearly accession area ie. MICRO 85 30173"
    • Line Location: QUES+4
    Function Call: WRITE
    • Prompt: !,"If entering the UID, enter the entire 10-15 characters."
    • Line Location: QUES+7
    Function Call: WRITE
    • Prompt: !,X
    • Line Location: WLQUES+4
    Routine Call
    • DIC
    • Line Location:
      • WLQUES+5
    Routine Call
    • DIR
    • Line Location:
      • AA+3
      • AA+61
      • SELBY+8
      • UID+12

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^LRO(68 - [#68] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DISV( AA+8*, AA+9
    ^LRO(68 - [#68] AA+13, AA+19, AA+21, AA+25, AA+54, AA+68, AA+69, UNIV+6, CHECKUID+8, CHECKUID+10
    ^XUSEC( AA+23

    Label References

    Name Line Occurrences
    $$CHECKUID UNIV+2
    AA EN+5
    QUES AA+18, AA+34, AA+50, AA+67, UNIV+3
    QUIT AA+4, AA+33, AA+65
    UNIV AA+13
    WLQUES AA+20, AA+23

    Naked Globals

    Name Field # of Occurrence
    ^("LRACC" AA+9

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % EN+1~, AA+21*, AA+22*, AA+23
    %DT AA+30~, AA+31*, AA+42~, AA+47*, END+1!
    %DT("A" AA+31*
    %DT("B" AA+31*
    >> BLRLRAS AA+6*
    DIC EN+1~, END+1!, WLQUES+1~, WLQUES+2*
    DIC("S" WLQUES+3*
    DIC(0 WLQUES+2*
    DIR EN+1~, AA+59~, SELBY+5~, UID+6~
    DIR("?" AA+2*, UID+10*
    DIR("A" AA+1*, AA+60*, SELBY+7*, UID+10*
    DIR("B" SELBY+7*, UID+11*
    DIR(0 AA+1*, AA+60*, SELBY+7*, UID+9*
    DIROUT SELBY+5~, UID+6~
    DIRUT EN+1~, AA+4, AA+59~, AA+62, SELBY+5~, SELBY+9, UID+6~, UID+13
    DT EN+4*, AA+43, AA+45, AA+46
    DTOUT EN+1~, AA+59~, SELBY+5~, UID+6~
    DUOUT EN+1~, AA+33, AA+59~, SELBY+5~, UID+6~
    DUZ AA+8, AA+9, AA+23
    >> LRAA AA+10*, AA+19*, AA+20, AA+21, AA+23, AA+25, AA+54, AA+68, AA+69, QUIT+1*
    , UNIV+3*, UNIV+4*, UNIV+6, WLQUES+5*
    >> LRACC AA+58, AA+65, AA+67, AA+68, QUES+5, QUES+6
    >> LRAD AA+10*, AA+35*, AA+41, AA+49*, AA+51, AA+55*, AA+68, AA+69, QUIT+1*, UNIV+3*
    , UNIV+4*, UNIV+6
    >> LRAN AA+10*, AA+66*, AA+67, AA+68, AA+69, QUIT+1*, UNIV+3*, UNIV+4*, UNIV+6
    LRIDIV AA+25*, END+1!
    LRNATURE EN+3!
    LRQUIT EN+1~, EN+4*, EN+5, AA+36, AA+71*, END+2*, UNIV+5*
    >> LRVBY AA+1, AA+13, QUES+1, QUES+7
    LRX EN+1~, AA+5*, AA+8, AA+9*, AA+13, AA+16, AA+25*, AA+26, UNIV+2, UID~
    , UID+8*, UID+10, CHECKUID~, CHECKUID+8, CHECKUID+9
    LRY UNIV+1~, UNIV+2*, UNIV+3, UNIV+4, UID~, UID+11, CHECKUID+5~, CHECKUID+7*, CHECKUID+11*, CHECKUID+12
    U EN+4*, AA+21, AA+25, AA+26, AA+54, AA+69
    X AA+6, AA+47*, AA+54*, AA+55, AA+59~, WLQUES+1~, WLQUES+2*, WLQUES+4, SELBY+5~, UID+6~
    X1 AA+16*, AA+18, AA+19, END+1!, WLQUES+2, SELBY~, SELBY+6*, SELBY+7
    X2 AA+16*, AA+17*, AA+29, AA+43*, AA+44, AA+45*, AA+46*, AA+47, END+1!
    X3 AA+16*, AA+17*, AA+29, AA+56, AA+58, AA+63*, AA+65, AA+66, END+1!
    Y AA+4, AA+5, AA+34, AA+35, AA+49, AA+59~, AA+62, AA+63, WLQUES+5, SELBY+5~
    , SELBY+9*, SELBY+10, UID+6~, UID+13*, UID+14, CHECKUID+5~, CHECKUID+8*, CHECKUID+9, CHECKUID+10, CHECKUID+11
    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