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

Package: Lab Service

Routine: LRGP


Information

LRGP ;DALOI/CJS/RWF - INSTRUMENT GROUP DELTA CHECK DISPLAY ;2/5/91 13:19

Source Information

Source file <LRGP.m>

Entry Points

Name Comments DBIA/ICR reference
DQ ;
CLOSE ;
ACC ;
LRHED ;
LRTRAY ;
MACHSQ ;
WRKLST ;
WRK2 ; Display results for each accession number.
PRINT ;
; Check that results belong to same accession area and date since
; results can belong to different accession areas and dates but have
; the same acession number.
DISPLAY ; Display accession info/results

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Task ",$S($G(ZTSK):ZTSK,1:"NOT")," Queued"
  • Line Location: LRGP+20
Function Call: WRITE
  • Prompt: !,"No Unverified instrument Data for Acc#: ",LRAN
  • Line Location: ACC+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LRHED+2
Function Call: WRITE
  • Prompt: !,"Group unverified review listing",?50,"Page: ",LRPAGE
  • Line Location: LRHED+3
Function Call: WRITE
  • Prompt: !,LRHED,?50,"Date: ",LRDT,!!
  • Line Location: LRHED+4
Function Call: WRITE
  • Prompt: !!,"Start LRTRAY: ",LRTRAY
  • Line Location: LRTRAY+4
Function Call: WRITE
  • Prompt: !!,"*** Report requested to stop by TaskMan ***"
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,"*** Task #",$G(ZTQUEUED,"UNKNOWN")," stopped at ",$$HTE^XLFDT($H)," ***"
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !!,?4,"Seq #: ",LRSQ
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: ?43,"Tray: ",LRTRAY
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: ?51," Cup: ",LRCUP
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: !,?5,"Name: ",PNM,?44,"SSN: ",SSN
  • Line Location: DISPLAY+1
Function Call: WRITE
  • Prompt: !,"Accession: ",$P($G(^LRO(68,LRAA,1,LRAD,1,LRAN,.2)),"^")
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: ?30," Results received: ",$$FMTE^XLFDT($P(LRSQ(0),"^",10),"1M")
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !,?6,"UID: ",$P($G(^LRO(68,LRAA,1,LRAD,1,LRAN,.3),"UNKNOWN"),"^")
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: ?34," Last updated: ",$$FMTE^XLFDT($P(LRSQ(0),"^",11),"1M")
  • Line Location: DISPLAY+7
Info |  Source |  Entry Points |  Interaction Calls