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

Package: Lab Service

Routine: LROS


Information

LROS ;SLC/CJS/DALOI/FHS-LAB ORDER STATUS; May 23, 2024@15:45

Source Information

Source file <LROS.m>

Entry Points

Name Comments DBIA/ICR reference
EN
L0
L1
L2
ENTRY
ORDER ;call with LRSN, from LROE, LROE1, LRORD1, LROW2, LROR1
TEST
TST1
TST2 ;
WRITE ;
APDATA ; Display CPRS AP Dialog
COM(LRMMODE) ;
COMWRT(LRODT,LRSN,LRTSTI,NODE,TAB) ;
NOTACC
NO2
DATE
HED
ENT ;from LROE, LROE1, LRORD1, LROW2
LREND
SHOW ;call with LRSN,LRODT, from LRCENDEL, LRTSTJAN
WAIT
CANC ;For Canceled tests
OERR(X) ;Get order status for predefined patient

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No orders for ",Y
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: !!,"NO REMAINING ACTIVE ORDERS",!
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: !?2,"-Lab Order # ",$S($D(^LRO(69,LRODT,1,LRSN,.1)):^(.1),1:"")
  • Line Location: ORDER+5
Function Call: WRITE
  • Prompt: ?45,"Provider: ",$E(LRDOC,1,25)
  • Line Location: ORDER+5
Function Call: WRITE
  • Prompt: !?3,$P(LROD1,U,6)
  • Line Location: ORDER+7
Function Call: WRITE
  • Prompt: !,?5,"Visit Number(s): ",$G(^("PCE"))
  • Line Location: ORDER+8
Function Call: WRITE
  • Prompt: !?5,": ",^(I,0)
  • Line Location: ORDER+9
Function Call: WRITE
  • Prompt: !!,"BAD ORDER ",LRSN,!,$C(7)
  • Line Location: TEST+5
Function Call: WRITE
  • Prompt: !,?20,$P(LROD1,U,6)
  • Line Location: TST1+12
Function Call: WRITE
  • Prompt: !!,"BAD ACCESSION TEST POINTER: ",LRTSTS
  • Line Location: TST2+3
Function Call: WRITE
  • Prompt: !?2,$S($D(^LAB(60,+LRTSTS,0)):$P(^(0),U),1:"BAD TEST POINTER")
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WRITE+2
Function Call: WRITE
  • Prompt: ?20,$S($D(^LAB(62.05,+LRURG,0)):$P(^(0),U),1:"")," "
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: ?28,LROT," ",LROS,?43," ",LROSD
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: !?46," See order: ",LRROD
  • Line Location: WRITE+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("+++++++++++++++ SPECIMEN DATA +++++++++++++++",IOM),!
  • Line Location: APDATA+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("================= END OF SPECIMEN DATA ==================",IOM)
  • Line Location: APDATA+9
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: APDATA+10
Function Call: WRITE
  • Prompt: !," PRESS '^' TO STOP "
  • Line Location: APDATA+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: APDATA+10
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("+++++++++++++++ DIALOG RESPONSE +++++++++++++++",IOM)
  • Line Location: APDATA+13
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("================== END OF DIALOG RESPONSE ==================",IOM)
  • Line Location: APDATA+18
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: APDATA+19
Function Call: WRITE
  • Prompt: !," PRESS '^' TO STOP "
  • Line Location: APDATA+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: APDATA+19
Function Call: WRITE
  • Prompt: !,?20,$P(LROD1,U,6)
  • Line Location: NO2+4
Function Call: WRITE
  • Prompt: @IOF,!," Test",?20,"Urgency",?30,"Status",?64,"Accession"
  • Line Location: HED+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LREND+0
Function Call: WRITE
  • Prompt: !,"Order Test",?20,"Urgency",?30,"Status",?64,"Accession"
  • Line Location: SHOW+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WAIT+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: WAIT+1
Function Call: WRITE
  • Prompt: !," PRESS '^' TO STOP "
  • Line Location: WAIT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WAIT+1
Function Call: WRITE
  • Prompt: !!?5,"NO PATIENT SELECTED",!
  • Line Location: OERR+2
Function Call: WRITE
  • Prompt: !,"Lab test status for: "_$P(^DPT(DFN,0),"^")
  • Line Location: OERR+7
Info |  Source |  Entry Points |  Interaction Calls