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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRWRKLS1

Package: Lab Service

Routine: LRWRKLS1


Information

LRWRKLS1 ;DALOI/CJS/DRH - LRWRKLST, CONT. ; 13-Oct-2017 14:04 ; MKK

Source Information

Source file <LRWRKLS1.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 3 $$GET1^DID  $$GET1^DIQ  ^DIR  
Kernel 2 $$S^%ZTLOAD  ($$FMTE,$$HTE)^XLFDT  
Lab Service 2 PRAC^LR7OMERG  (DASH,PT)^LRX  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRHYLS1  LRWRKLST  

Entry Points

Name Comments DBIA/ICR reference
LEDI ; print LEDI information
CHKPAGE ;
; Check if task and user wants to stop task.
TSTCOM ; Display test comments
LST1 ;from LRWRKLST

External References

Name Field # of Occurrence
$$S^%ZTLOAD CHKPAGE+2
$$GET1^DID LEDI+9, LEDI+10, LEDI+15
$$GET1^DIQ LST1+50, LST1+57, LST1+64, TSTCOM+13, LEDI+6, LEDI+13
^DIR CHKPAGE+11
PRAC^LR7OMERG LST1+62
DASH^LRX LST1+17
PT^LRX LST1+7
$$FMTE^XLFDT LST1+13, LST1+14, LST1+15, LST1+30, LST1+44
$$HTE^XLFDT CHKPAGE+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LST1+17
Function Call: WRITE
  • Prompt: !,"ACCESSION: ",LRACC,?40,"PATIENT: ",PNM
  • Line Location: LST1+23
Function Call: WRITE
  • Prompt: !," ORDER #: ",LRCE,?43,"HRCN: ",HRCN,!
  • Line Location: LST1+26
Function Call: WRITE
  • Prompt: ?44,"DOB: ",$$FMTE^XLFDT(DOB,"5MZ")
  • Line Location: LST1+30
Function Call: WRITE
  • Prompt: !," LOCATION: ",$E($P(LRDX,"^",7),1,19)
  • Line Location: LST1+31
Function Call: WRITE
  • Prompt: ?40,"ORDERED: ",$$FMTE^XLFDT(DTTORD,"5MZ"),!
  • Line Location: LST1+44
Function Call: WRITE
  • Prompt: !," PROVIDER: ",LRX
  • Line Location: LST1+52
Function Call: WRITE
  • Prompt: !," ACCESSION PERSON: ",$$GET1^DIQ(68.02,LRAN_","_LRAD_","_LRAA,"LOG-IN PERSON")
  • Line Location: LST1+57
Function Call: WRITE
  • Prompt: !?11,$$GET1^DIQ(200,PR_",",.01)
  • Line Location: LST1+64
Function Call: WRITE
  • Prompt: !," Order Comment:"
  • Line Location: LST1+75
Function Call: WRITE
  • Prompt: !?11,^(I,0)
  • Line Location: LST1+77
Function Call: WRITE
  • Prompt: !," CANCELED TEST: ",$P($G(^LAB(60,+LRX,0),"UNKNOWN"),"^")
  • Line Location: TSTCOM+11
Function Call: WRITE
  • Prompt: " "_$E($P($G(^LAB(62.05,+$P(LRX,"^",2),0),"ROUTINE"),"^"),1,15)
  • Line Location: TSTCOM+12
Function Call: WRITE
  • Prompt: " by: "_$$GET1^DIQ(200,+$P(LRX,"^",11)_",",.01)
  • Line Location: TSTCOM+13
Function Call: WRITE
  • Prompt: !?3,": "_LRY
  • Line Location: TSTCOM+17
Function Call: WRITE
  • Prompt: !," Accession Comment: ",LRACO
  • Line Location: TSTCOM+20
Function Call: WRITE
  • Prompt: !
  • Line Location: TSTCOM+22
Function Call: WRITE
  • Prompt: !!,"*** Report requested to stop by TaskMan ***"
  • Line Location: CHKPAGE+4
Function Call: WRITE
  • Prompt: !,"*** Task #",$G(ZTQUEUED,"UNKNOWN")," stopped at ",$$HTE^XLFDT($H)," ***"
  • Line Location: CHKPAGE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKPAGE+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: LEDI+8
Function Call: WRITE
  • Prompt: $J($$GET1^DID(68.02,16.2,"","LABEL")_": ",17),$E(LRX,1,20)
  • Line Location: LEDI+9
Function Call: WRITE
  • Prompt: ?40,$$GET1^DID(68.02,16.4,"","LABEL"),": ",LRUID
  • Line Location: LEDI+10
Function Call: WRITE
  • Prompt: !,$J($$GET1^DID(68.02,16.1,"","LABEL")_": ",17),$E(LRX,1,20)
  • Line Location: LEDI+15
Routine Call
  • DIR
  • Line Location:
    • CHKPAGE+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
68.02 GET1^DID,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] TSTCOM+11
^LAB(62.05 - [#62.05] TSTCOM+12
^LR - [#63] LST1+4, LST1+6
^LRO(68 - [#68] LST1+3, LST1+10, LST1+12, LST1+28, LEDI+4
^LRO(69 - [#69] LST1+37, LST1+39, LST1+41, LST1+74, LST1+77, TSTCOM+8, TSTCOM+9, TSTCOM+15, TSTCOM+16

Label References

Name Line Occurrences
CHKPAGE LST1+1, LST1+20, LST1+66, LST1+77, TSTCOM+18
LEDI LST1+70

Naked Globals

Name Field # of Occurrence
^( LST1+3, LST1+77
^(0 LST1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN LST1+6*
DIR CHKPAGE+9!
DIR(0 CHKPAGE+10*
>> DIRUT CHKPAGE+12
>> DOB LST1+30
DTTORD LST1+36~, LST1+41*, LST1+42, LST1+44
FMDTORD LST1+36~, LST1+37*, LST1+38, LST1+39, LST1+41
>> HRCN LST1+26
>> I LST1+76*, LST1+77*
IOSL CHKPAGE+8
IOST CHKPAGE+7
>> LN LST1+19*, LST1+54*, LST1+58*, LST1+64*, LST1+75*, LST1+77*, TSTCOM+14*, TSTCOM+18*, TSTCOM+20*, TSTCOM+22*
, CHKPAGE+8, CHKPAGE+13*, LEDI+11*, LEDI+16*
>> LRAA LST1+3, LST1+10, LST1+12, LST1+28, LST1+57, LST1+62, LEDI+4
>> LRACC LST1+3*, LST1+23
>> LRACO LST1+9*, LST1+12*, TSTCOM+20
>> LRAD LST1+3, LST1+10, LST1+12, LST1+28, LST1+57, LST1+62, LEDI+4
>> LRAN LST1+3, LST1+10, LST1+12, LST1+28, LST1+57, LST1+62, LEDI+4
>> LRCE LST1+3*, LST1+26, LST1+35, LST1+37, LST1+39
>> LRDLA LST1+9*, LST1+14*, LST1+53
>> LRDLC LST1+9*, LST1+13*, LST1+47
>> LRDPF LST1+6*
>> LRDTO LST1+15*
>> LRDX LST1+3*, LST1+4, LST1+6, LST1+15, LST1+31, LST1+46, LST1+49, LST1+73, TSTCOM+22
>> LREND CHKPAGE+12*
LRI TSTCOM+2~, TSTCOM+7*, TSTCOM+8*, TSTCOM+9, TSTCOM+15, TSTCOM+16
LRI(2 TSTCOM+14*, TSTCOM+15*, TSTCOM+16
LRIENS LEDI+2~, LEDI+4*, LEDI+6, LEDI+13
LRORDIEN LST1+36~, LST1+39*, LST1+40, LST1+41
>> LRPRAC LST1+49*, LST1+50, LST1+51
>> LRSTOP LST1+2, LST1+21, LST1+67, LST1+77, TSTCOM+4, TSTCOM+15, CHKPAGE+3*, CHKPAGE+7, CHKPAGE+12*
LRUID LEDI+2~, LEDI+6*, LEDI+7, LEDI+10
LRX LST1+49*, LST1+50*, LST1+51*, LST1+52, TSTCOM+2~, TSTCOM+9*, TSTCOM+10, TSTCOM+11, TSTCOM+12, TSTCOM+13
, LEDI+2~, LEDI+6*, LEDI+7, LEDI+9, LEDI+13*, LEDI+14, LEDI+15
LRY LST1+11~, LST1+12*, LST1+13, LST1+14, TSTCOM+2~, TSTCOM+16*, TSTCOM+17, LEDI+2~, LEDI+4*, LEDI+6
>> PNM LST1+23
PR LST1+61~, LST1+63*, LST1+64*
PRAC LST1+61~, LST1+62
PRAC( LST1+64
U LST1+6, LST1+12, LST1+46, LST1+73, TSTCOM+22
>> X LST1+28*, LST1+29
>> X1 LST1+73*, LST1+74, LST1+77, TSTCOM+8, TSTCOM+9, TSTCOM+15, TSTCOM+16
>> X2 LST1+73*, LST1+74, LST1+77, TSTCOM+8, TSTCOM+9, TSTCOM+15, TSTCOM+16
>> ZTQUEUED CHKPAGE+2, CHKPAGE+5, CHKPAGE+7
>> ZTSTOP CHKPAGE+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All