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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRWRKLS1

Package: Lab Service

Routine: LRWRKLS1


Information

LRWRKLS1 ;DALOI/STAFF - LRWRKLST, CONT. ;12/06/10 17:05

Source Information

Source file <LRWRKLS1.m>

Entry Points

Name Comments DBIA/ICR reference
LST1 ;from LRWRKLST
TSTCOM ; Display test comments
CHKPAGE ;
LEDI ; print LEDI information

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,?41,"SSN/ID: ",SSN,!
  • Line Location: LST1+24
Function Call: WRITE
  • Prompt: ?44,"DOB: ",$$FMTE^XLFDT(DOB,"MZ")
  • Line Location: LST1+27
Function Call: WRITE
  • Prompt: !," LOCATION: ",$E($P(LRDX,"^",7),1,19)
  • Line Location: LST1+28
Function Call: WRITE
  • Prompt: !," PROVIDER: ",LRX
  • Line Location: LST1+36
Function Call: WRITE
  • Prompt: !?11,$$GET1^DIQ(200,PR_",",.01)
  • Line Location: LST1+43
Function Call: WRITE
  • Prompt: !," Order Comment:"
  • Line Location: LST1+54
Function Call: WRITE
  • Prompt: !?11,^(I,0)
  • Line Location: LST1+56
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+7
Function Call: WRITE
  • Prompt: !,"*** Task #",$G(ZTQUEUED,"UNKNOWN")," stopped at ",$$HTE^XLFDT($H)," ***"
  • Line Location: CHKPAGE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKPAGE+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: LEDI+11
Function Call: WRITE
  • Prompt: $J($$GET1^DID(68.02,16.2,"","LABEL")_": ",17),$E(LRX,1,20)
  • Line Location: LEDI+12
Function Call: WRITE
  • Prompt: ?40,$$GET1^DID(68.02,16.4,"","LABEL"),": ",LRUID
  • Line Location: LEDI+13
Function Call: WRITE
  • Prompt: !,$J($$GET1^DID(68.02,16.1,"","LABEL")_": ",17),$E(LRX,1,20)
  • Line Location: LEDI+18
Function Call: WRITE
  • Prompt: !,?4,LRON(0)_$S(LRTYPE=3:" placer",1:" filler")_" order # "_LRON
  • Line Location: LEDI+34

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
68.02 GET1^DID,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call