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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: LRGV

Package: Lab Service

Routine: LRGV


Information

LRGV ;VA/DALIO/RWF - INSTRUMENT GROUP VERIFY DATA ; 13-Aug-2013 09:16 ; MKK

Source Information

Source file <LRGV.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Lab Service 7 ^LRGP1  STUFF^LRGV1  ^LRGVK  ^LRPARAM  $$GETINITS^LRVER3  NEXT^LRVRA  (DASH,DUZ)^LRX  
Kernel 4 ^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  ($$FMTE,$$HTE,$$NOW)^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRGV  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS LRGV+30
^%ZISC END+2
^%ZTLOAD LRGV+37
$$S^%ZTLOAD HDR+16
^DIR COM+9, COM+17, HDR+5
^LRGP1 LRGV+24
STUFF^LRGV1 ACC2+26, TR2+24, SEQ+13, WRKLST+17
^LRGVK LRGV+5, END+3
^LRPARAM LRGV+5
$$GETINITS^LRVER3 LRGV+18
NEXT^LRVRA ACCLST+15
DASH^LRX ACC2+4, LRTRAY+4, TR2+12, SEQ+9, WRKLST+9
DUZ^LRX LRGV+11
$$FMTE^XLFDT DQ+2
$$HTE^XLFDT HDR+19
$$NOW^XLFDT DQ+2, ACC2+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Task ",$S($G(ZTSK):ZTSK,1:"NOT")," Queued"
  • Line Location: LRGV+38
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
Routine Call
  • DIR
  • Line Location:
    • COM+9
    • COM+17
    • HDR+5
Routine Call
  • %ZIS
  • Line Location:
    • LRGV+30

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("EOFF" LRGV+12
^%ZOSF("EON" LRGV+21
^LAB(69.9 - [#69.9] LRGV+8
^LAH( ACC2+18, ACC2+22, ACC2+23, TR2+14, TR2+17, TR2+18, TR2+19!, TR2+21, SEQ+7, SEQ+10
, WRKLST+14, WRKLST+17
^LRO(68 - [#68] ACCLST+7, ACCLST+9*, ACCLST+10*, ACC2+8, ACC2+10, ACC2+12, ACC2+15
^LRO(68.2 - [#68.2] DQ+3, ACCLST+14, WRKLST+7, WRKLST+10
^XUSEC("LRSUPER" COM+5

Label References

Name Line Occurrences
ACC2 ACCLST+7, ACCLST+15
ACCLST DQ+5
COM LRGV+27
END LRGV+6, LRGV+22, LRGV+25, LRGV+28, LRGV+31, LRGV+39
HDR DQ+4, ACC2+3, LRTRAY+3, TR2+11, SEQ+8, WRKLST+8
LRTRAY DQ+5
NOP LRGV+28
SEQ DQ+5
TR2 LRTRAY+6
WRKLST DQ+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS LRGV+30*
DIR LRGV+13~, COM+2~, COM+15!, HDR+2~
DIR("A" LRGV+14*, COM+7*, COM+8*, COM+16*
DIR("B" COM+6*, COM+16*
DIR(0 LRGV+14*, COM+6*, COM+16*, HDR+5*
DIRUT LRGV+22, COM+2~, COM+10, COM+18, HDR+2~, HDR+6
DTOUT COM+2~, HDR+2~
DUOUT COM+2~, HDR+2~
DUZ LRGV+11, COM+5
IO DQ+1
IO("Q" LRGV+33, LRGV+35!
IO(0 LRGV+38
IOF DQ+6, HDR+9
IOM HDR+12, HDR+13
IOSL ACC2+3, LRTRAY+3, TR2+11, SEQ+8, WRKLST+8
IOST DQ+6, HDR+4, HDR+9
>> LRAA ACCLST+7, ACCLST+9, ACCLST+10, ACC2+8, ACC2+10, ACC2+12, ACC2+15, ACC2+24, TR2+22, SEQ+11
, WRKLST+12*
>> LRAD ACCLST+7, ACCLST+9, ACCLST+10, ACC2+8, ACC2+10, ACC2+12, ACC2+15, ACC2+24, TR2+22, SEQ+11
, WRKLST+12*
>> LRAN ACCLST+6*, ACCLST+7*, ACC2+5, ACC2+8, ACC2+10, ACC2+12, ACC2+15, ACC2+18, ACC2+22, ACC2+25*
, ACC2+26, TR2+23*, TR2+24, SEQ+12*, SEQ+13, WRKLST+12*, WRKLST+14, WRKLST+17
LRANYAA LRGV+3~, LRGV+8*, ACCLST+14*
LRCSQQ END+4!
>> LRCUP TR2+9*, TR2+10, TR2+13, WRKLST+6*, WRKLST+7*, WRKLST+10, WRKLST+13
>> LRDT DQ+2*, HDR+12
LRDUZ LRGV+3~
LREC TR2+3~, TR2+7*, TR2+9
>> LRECUP WRKLST+7
>> LREND LRGV+6, LRGV+25, LRGV+28, DQ+2*, ACCLST+7, ACCLST+15, ACC2+3, ACC2+22, LRTRAY+2, LRTRAY+3
, TR2+9, TR2+11, TR2+17, SEQ+7, SEQ+8, WRKLST+7, WRKLST+8, WRKLST+17, COM+10*, COM+13
, COM+18*, HDR+6*, HDR+7, HDR+17*
>> LRESEQ SEQ+7
>> LRFAN ACCLST+6
>> LRFCUP TR2+6
>> LRFTRAY LRTRAY+2, TR2+6
>> LRITC TR2+10*, TR2+14, TR2+17
>> LRLCUP TR2+7
>> LRLIX ACCLST+7
>> LRLL DQ+3, ACCLST+14, ACC2+18, ACC2+22, ACC2+23, TR2+14, TR2+17, TR2+18, TR2+19, TR2+21
, SEQ+7, SEQ+10, WRKLST+7, WRKLST+10, WRKLST+14, WRKLST+17
LRLLNM DQ+3*, END+4!, HDR+13
>> LRLTRAY LRTRAY+2, TR2+7
>> LRMAXCUP TR2+7
LRNGS END+4!
>> LRNOW DQ+2*
>> LROUTINE LRGV+8*
LRPAGE DQ+2*, END+4!, HDR+4, HDR+9, HDR+10*, HDR+13
>> LRPANEL HDR+13
>> LRPROF ACCLST+14, WRKLST+11
LRSC TR2+3~, TR2+6*, TR2+9
>> LRSQ ACC2+21*, ACC2+22*, ACC2+23, TR2+16*, TR2+17*, TR2+18, TR2+19, TR2+21, SEQ+6*, SEQ+7*
, SEQ+10, SEQ+14, WRKLST+16*, WRKLST+17*
>> LRSS LRGV+8*
>> LRTIC TR2+19
>> LRTRAY LRTRAY+2*, LRTRAY+5, TR2+6, TR2+7, TR2+10, TR2+13
LRUID LRGV+3~, LRGV+8*, ACCLST+14*, ACCLST+15, ACC2+7
>> LRUSI LRGV+22, ACCLST+9
LRVBY LRGV+3~, LRGV+8*, ACCLST+5, ACCLST+13, ACC2+6
>> LRVRFYAL COM+4*, COM+11*, HDR+11
>> LRVWLE ACCLST+2*, ACCLST+8, ACCLST+10
>> LRWT DQ+5
>> POP LRGV+31
U LRGV+8*
X LRGV+11*, ACC2+23*, ACC2+24, ACC2+25, TR2+3~, TR2+21*, TR2+22, TR2+23, SEQ+4~, SEQ+10*
, SEQ+11, SEQ+12, WRKLST+4~, WRKLST+10*, WRKLST+11, WRKLST+12, COM+2~, HDR+2~
Y LRGV+18*, LRGV+22, COM+2~, COM+11, COM+18, HDR+2~
ZTDESC LRGV+34~, LRGV+36*
ZTDTH LRGV+34~
>> ZTQUEUED END+1, HDR+4, HDR+16, HDR+19
>> ZTREQ END+1*
ZTRTN LRGV+34~, LRGV+36*
ZTSAVE LRGV+34~
ZTSAVE("LR*" LRGV+36*
ZTSAVE("^TMP(""LR"",$J," LRGV+36*
>> ZTSK LRGV+38
>> ZTSTOP HDR+17*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All