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

Package: Lab Service

Routine: LRGV


Information

LRGV ;DALIO/RWF - INSTRUMENT GROUP VERIFY DATA ;2/5/91 13:26

Source Information

Source file <LRGV.m>

Entry Points

Name Comments DBIA/ICR reference
DQ ;
END ;
ACCLST ; Verify by accession number/UID
ACC2 ; Only select those entries in ^LAH that match the accession area and
; date selected by the user.
LRTRAY ; Verify by tray/cup
TR2 ; Verify by tray/cup
; Only select those entries in ^LAH that match the accession area and date
; selected by the user.
SEQ ; Verify by sequence number
; Only select those entries in ^LAH that match the accession area and date
; selected by the user.
WRKLST ; Verify by worklist
; Only select those entries in file #68.2 that match the profile selected
; by the user.
COM ; Ask common questions
NOP ;
HDR ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Task ",$S($G(ZTSK):ZTSK,1:"NOT")," Queued"
  • Line Location: LRGV+35
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ACC2+4
Function Call: WRITE
  • Prompt: !,"Accession #: ",LRAN
  • Line Location: ACC2+5
Function Call: WRITE
  • Prompt: " [UID: ",LRUID,"]"
  • Line Location: ACC2+7
Function Call: WRITE
  • Prompt: " No accession on file for this UID."
  • Line Location: ACC2+9
Function Call: WRITE
  • Prompt: " <",$P($G(^LRO(68,LRAA,1,LRAD,1,LRAN,.2)),"^"),">"
  • Line Location: ACC2+10
Function Call: WRITE
  • Prompt: " Has not been received. Unable to verify."
  • Line Location: ACC2+13
Function Call: WRITE
  • Prompt: " Has a collection time in the future. Unable to verify."
  • Line Location: ACC2+16
Function Call: WRITE
  • Prompt: " NO Instrument Data Found."
  • Line Location: ACC2+19
Function Call: WRITE
  • Prompt: !
  • Line Location: LRTRAY+4
Function Call: WRITE
  • Prompt: !!,"Start TRAY: ",LRTRAY
  • Line Location: LRTRAY+5
Function Call: WRITE
  • Prompt: !
  • Line Location: TR2+12
Function Call: WRITE
  • Prompt: !,"Tray ",$J(LRTRAY,3)," Cup ",$J(LRCUP,3)
  • Line Location: TR2+13
Function Call: WRITE
  • Prompt: ?35,"No Instrument Data Found"
  • Line Location: TR2+14
Function Call: WRITE
  • Prompt: ?35,"No Instrument Data Found"
  • Line Location: TR2+20
Function Call: WRITE
  • Prompt: ?35," Does not have a link to an Accession."
  • Line Location: TR2+25
Function Call: WRITE
  • Prompt: !
  • Line Location: SEQ+9
Function Call: WRITE
  • Prompt: !!,"SEQ: ",LRSQ,". Does not have a link to an Accession."
  • Line Location: SEQ+14
Function Call: WRITE
  • Prompt: !
  • Line Location: WRKLST+9
Function Call: WRITE
  • Prompt: !,"Sequence #",$J(LRCUP,4)
  • Line Location: WRKLST+13
Function Call: WRITE
  • Prompt: ?35,"No Instrument Data Found"
  • Line Location: WRKLST+14
Function Call: WRITE
  • Prompt: !!,"NOTHING VERIFIED"
  • Line Location: NOP+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: "Group verification report - Verify with",$S(LRVRFYAL:"",1:"out")," flags"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: ?(IOM-27)," Date: ",LRDT
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,"Load/Work list: ",LRLLNM," Panel: ",LRPANEL,?(IOM-27)," Page: ",LRPAGE
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !!,"*** Report requested to stop by TaskMan ***"
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !,"*** Task #",$G(ZTQUEUED,"UNKNOWN")," stopped at ",$$HTE^XLFDT($H)," ***"
  • Line Location: HDR+19
Info |  Source |  Entry Points |  Interaction Calls