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 ;DALOI/RWF - READ ACCESSION ;10/28/10 17:22

Source Information

Source file <LRWU4.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 ^%DT  ^DIC  $$EXTERNAL^DILFD  ^DIR  
Kernel 2 $$DT^XLFDT  $$LKUP^XPDKEY  
Lab Service 1 DATE^LRWU  

Caller Graph

Caller Graph Total: 36

Package Total Caller Graph
Lab Service 24 LR7OGMC  LR7OGMM  LR7OGMU  LR7ORB3  LRAPBK  LRCAPES  LRGP1  LRHYDEL  
LRHYU4  LRLABXT  LRLLS  LRLLS3  LRMIEDZ  LRMIEDZ2  LRMILL  LRMIPSZ  
LRRP  LRRPLUA  LRTSTJAN  LRTSTOUT  LRVER  LRVERA  LRVR  LRWRKLST  
Automated Lab Instruments 11 LA7ADLS  LA7HDR1  LA7PURG  LA7SM  LA7SMA  LA7SRR  LA7VHLU3  LA7VORM1  
LA7VORUA  LA7VORUB  LAMILL  
VBECS 1 VBECRPCB  

Entry Points

Name Comments DBIA/ICR reference
EN ;
SCR ; Screened entry point, called by ENA below
AA ;
QUIT ;
END ;
ENA(LRSCR) ; Alternate entry to pass in file 63 subscript value to screen accession areas.
; Used for MI and AP accession lookup.
UNIV ; see if entry is UID
QUES ;
WLQUES ; Ask user if accession area enter does not match any existing entries
SELBY(LRX1,LRX2) ; Select by accession number or unique identifier (UID)
; Call with LRX1 = message prompt
; LRX2 = default method
; Returns Y = 0 (abort), 1 (accession number), 2 (unique identifier)
UID(LRX,LRY) ; Lookup accession by UID
; Call with LRX = message prompt
; LRY = default UID to display
; Returns Y = 0 (abort)
; = UID
CHECKUID(LRX,LRSCR) ; Check if UID is valid, accession exists.
; Call with LRX = UID to check
; LRSCR = subscript screen
; Returns Y = 0 (accession does not exist)
; = 1 (accession exists)^area^date^number
  • ICR #4636
    • Status: Active
    • Usage: Private

    External References

    Name Field # of Occurrence
    ^%DT AA+48
    ^DIC WLQUES+6
    $$EXTERNAL^DILFD ENA+3
    ^DIR AA+3, AA+61, SELBY+8, UID+12
    DATE^LRWU AA+32
    $$DT^XLFDT SCR+4
    $$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)," ",$S(LRAD["0000":$E(LRAD,2,3),1:$E(LRAD,4,7))," ",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: !,?5," Only accessions from subscript ",LRSCR(0)," are selectable."
    • Line Location: QUES+5
    Function Call: WRITE
    • Prompt: !,"If entering the UID, enter the entire 10-15 characters."
    • Line Location: QUES+8
    Function Call: WRITE
    • Prompt: !,X
    • Line Location: WLQUES+5
    Routine Call
    • DIC
    • Line Location:
      • WLQUES+6
    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,  EXTERNAL^DILFD

    Global Variables Directly Accessed

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

    Label References

    Name Line Occurrences
    $$CHECKUID UNIV+2
    AA SCR+5
    QUES AA+17, AA+34, AA+50, AA+67, UNIV+3
    QUIT AA+4, AA+33, AA+65
    SCR ENA+4
    UNIV AA+12
    WLQUES AA+20, AA+23

    Naked Globals

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

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