Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^LRO(68 - [#68] Classic Fileman Calls,  EXTERNAL^DILFD
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call