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
Print Page as PDF
Routine: LRPHITEM

Package: Lab Service

Routine: LRPHITEM


Information

LRPHITEM ;SLC/CJS/RWF-ITEMIZED LOGIN ;JUNE 06, 1991@1049

Source Information

Source file <LRPHITEM.m>

Entry Points

Name Comments DBIA/ICR reference
V1
V2 ;
E1 ;
LEFT
E2 ;
P15 ;from LROE1, LRPHEXPT
  • ICR #5588
    • Status: Active
    • Usage: Private
    P15A ;
    P16 ;from LRPHITE1
    SKP
    P17
    P18
    LP1 ;from LRPHEXPT
    198 ;
    ALLCA(LRSD,LRON) ;Are all tests cancelled?
    TEXT
    SINGLE ;
    POLY ;
    MULT ;
    LRSN ;

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"All locations"
    • Line Location: V1+1
    Function Call: WRITE
    • Prompt: !,"Location ",LRLLOC," not found on collection list.",$C(7)
    • Line Location: V1+2
    Function Call: WRITE
    • Prompt: !!,$C(7),"Enter Order Numbers NOT collected: "
    • Line Location: V2+2
    Function Call: WRITE
    • Prompt: !,"Exceptions first."
    • Line Location: V2+4
    Function Call: WRITE
    • Prompt: !!,"Enter Order Numbers COLLECTED: "
    • Line Location: V2+9
    Function Call: WRITE
    • Prompt: !!,"DID NOT FIND THESE ORDERS:"
    • Line Location: LEFT+0
    Function Call: WRITE
    • Prompt: $J(LROR(I),10)
    • Line Location: LEFT+0
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: $X>69
    • Line Location: LEFT+0
    Function Call: WRITE
    • Prompt: !,LRLLOC," ",LRSTORE(1)
    • Line Location: E2+10
    Function Call: WRITE
    • Prompt: !?5,"Accession Information Corrupt for this Order",!!
    • Line Location: P16+6
    Function Call: WRITE
    • Prompt: !,$C(7),"CAN'T DO IT. The data has been verified for accession ",$P(^(0),U,6)
    • Line Location: P16+7
    Function Call: WRITE
    • Prompt: !,"REASON FOR NON-DRAW ON ORDER ",LROR(LROR)
    • Line Location: P17+0
    Function Call: WRITE
    • Prompt: " ",$G(LRCCOM)
    • Line Location: P17+1
    Function Call: WRITE
    • Prompt: !?5,"You must enter a reason.",!
    • Line Location: P17+3
    Function Call: READ
    • Variable: X
    • Timeout: DTIME
    • Line Location: LP1+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: LP1+3
    Function Call: WRITE
    • Prompt: !,"Enter a string of numbers separated with A ',' UP TO 80 CHARACTERS LONG ",!
    • Line Location: LP1+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: LP1+4
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: $X>70
    • Line Location: TEXT+0
    Function Call: WRITE
    • Prompt: +LRSN,$S(Y:" OK, ",1:" NOT ON LIST, ")
    • Line Location: TEXT+0
    Info |  Source |  Entry Points |  Interaction Calls