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 |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 ^%DT  C^%DTC  YN^DICN  EN^DIQ  
Lab Service 3 (,END)^LRDPA  DATE^LRWU  (DD,DOC,DT)^LRX  
Kernel 2 $$FMTE^XLFDT  $$CJ^XLFSTR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 16

Package Total Caller Graph
Lab Service 15 LR7O TEST STATUS  LR7OAPKM  LR7OAPMG  LRAPKOE  LRCE  LRCENDEL  LRHYDEL  LROE  
LROE1  LROR1  LRORD1  LRORD2A  LRORDD  LROS  LRTSTOUT  
Kernel 1 ^ORD(101  

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

External References

Name Field # of Occurrence
^%DT L1
C^%DTC L2, L2+3
YN^DICN L2+2
EN^DIQ APDATA+8, APDATA+17
^LRDPA EN+1
END^LRDPA OERR+5
DATE^LRWU L1
DD^LRX L2, L2+2
DOC^LRX ORDER+5
DT^LRX L0
$$FMTE^XLFDT DATE
$$CJ^XLFSTR APDATA+5, APDATA+9, APDATA+13, APDATA+18

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] OERR+7
^LAB(60 - [#60] WRITE+1
^LAB(61 - [#61] ORDER+6
^LAB(62 - [#62] ORDER+6
^LAB(62.05 - [#62.05] WRITE+3
^LAB(69.9 - [#69.9] L1
^LRO(68 - [#68] TST1+1, TST1+2, TST1+7, TST1+8, TST1+10, WRITE+6
^LRO(69 - [#69] L2, ENTRY+1, ORDER+4, ORDER+5, ORDER+6, ORDER+8, ORDER+9, ORDER+10, APDATA+1, APDATA+12
, COM+5, COMWRT+3, COMWRT+6
^VA(200 - [#200] CANC+3

Label References

Name Line Occurrences
CANC TEST+2
COM TST2+4, TST2+7, NO2+3, CANC+5
COMWRT COM+6
DATE TST2+4, TST2+5, NO2
EN EN+1
ENT L0
ENTRY L2+3
HED ENTRY, ENTRY+1
L0 EN+1, OERR+8
L2 L2+1, L2+4
LREND EN+1, L1, L2, L2+1, L2+2, L2+3
NO2 NOTACC, NOTACC+1
NOTACC TEST+6, TST1+1
ORDER ENTRY+1, SHOW+2
TEST ORDER+10
TST2 TST1+2, TST1+10
WAIT L2+1, ORDER+5, ORDER+7, ORDER+8, ORDER+9, TEST+5, TST1+12, WRITE+2, WRITE+3, WRITE+4
, WRITE+7, APDATA+4, APDATA+11, APDATA+20, COMWRT+6, NO2+4, HED
WRITE TST2+4, TST2+7, NO2+3, CANC+5

Naked Globals

Name Field # of Occurrence
^( ORDER+5, ORDER+9, ORDER+10, TST1+2, WRITE+6, COMWRT+6
^("PCE" ORDER+8
^(0 L1, ORDER+6, ORDER+10, WRITE+1, WRITE+3, COMWRT+6
^(1 ORDER+4
^(3 ORDER+4, TST1+1
^(9 TST1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% L2+2*, LREND+2!
>> %DT L0*, L1*
>> %DT("A" L1*
>> %DT("B" EN!
%Y LREND+2!
A LREND+2!
AGE LROS+4~
D ORDER+3!
DA APDATA+3~, APDATA+7*, APDATA+14~, APDATA+16*
DA(1 APDATA+7*, APDATA+16*
DA(2 APDATA+7*, APDATA+16*
DFN LREND+2!, OERR+3~, OERR+4*, OERR+7
DIC EN!, APDATA+3~, APDATA+6*, APDATA+14~, APDATA+15*, LREND+2!
DIC(0 EN*
DIWL LREND+2!
DIWR LREND+2!
DOB LROS+4~
DOD LROS+4~
DPF LREND+2!
DR APDATA+3~, APDATA+7*, APDATA+14~, APDATA+16*, APDATA+17*
DTIME APDATA+10, APDATA+19, WAIT+1
>> DTOUT EN+1
>> DUOUT EN+1
I ORDER+9*, TST1+2*, TST1+6*, TST1+7*, TST1+8, TST1+9, TST1+10, TST1+11, TST2+1~, LREND+2!
IOF APDATA+10, APDATA+19, HED, LREND, WAIT, WAIT+1
IOM APDATA+5, APDATA+9, APDATA+13, APDATA+18
IOSL ENTRY+1, WAIT
IOST HED, LREND, WAIT
K LREND+2!
LRACC TST1+2*, TST1+10*, TST2+2, TST2+4, LREND+2!
>> LRACD TST1+1*, TST1+5, TST1+7, TST1+9, TST1+10, TST1+11
LRACN ORDER+10*, LREND+2!
LRACN0 ORDER+10*, TEST+1, TEST+2, TEST+5, TST1, NO2+1, LREND+2!, CANC+3
LRARRAY ORDER+2~
LRARRAY( TST1+9, TST1+11*
LRDFN EN+1, L2, ENTRY+1, LREND+2!, OERR+3~, OERR+6
LRDOC ORDER+5, LREND+2!
LRDPA OERR+3~
LRDPAF EN!
LRDPF LREND+2!, OERR+4*
LRDT0 OERR+3~
LREND L1*, L2+1, L2+3, ENTRY, ENTRY+1, ORDER+3*, ORDER+5, ORDER+7, ORDER+8, ORDER+9
, ORDER+10, TST1+2, TST1+7, WRITE+2, WRITE+3, WRITE+4, WRITE+7, APDATA+3~, APDATA+4, APDATA+10*
, APDATA+11, APDATA+14~, APDATA+19*, COMWRT+6, HED, LREND+2!, SHOW+1*, WAIT+1*
LRI COMWRT+5~, COMWRT+6*
LRLABKY LROS+4~
LRLDAT L1*, L2, LREND+2!
LRLL TEST+1*, TST2+4*, TST2+5, LREND+2!
LRLOOKUP LROS+2~*
LRMMODE COM~, COM+4*, COM+6
LROD0 ORDER+4*, ORDER+5, ORDER+6, TEST+3, NO2, LREND+2!
LROD1 ORDER+4*, ORDER+7, TEST+4, TEST+6, TST1+12, TST2+6, NO2, NO2+4, LREND+2!
LROD3 ORDER+4*, TST2+5, NOTACC, NOTACC+1, NOTACC+2, NO2, LREND+2!
LRODT L1*, L2*, L2+2, L2+3*, ENTRY+1, ORDER+4, ORDER+5, ORDER+6, ORDER+8, ORDER+9
, ORDER+10, APDATA+1, APDATA+6, APDATA+7, APDATA+12, APDATA+15, APDATA+16, COM+5, COM+6, COMWRT~
, COMWRT+2, COMWRT+3, COMWRT+6, NO2, LREND+2!
LROOS TEST+4*, TST2+4, TST2+6*, LREND+2!
LROS TEST+1*, TEST+4*, TST2+4*, TST2+5*, TST2+6*, WRITE+5, NOTACC*, NOTACC+1*, NOTACC+2*, NO2+2*
, LREND+2!
LROSD TEST+1*, TST2+4*, TST2+5*, WRITE+5, NO2*, LREND+2!
LROT TEST+1*, TEST+3*, TEST+4*, TST2+4*, WRITE+5, LREND+2!, CANC+3*
LRPRAC LROS+4~
LRRB LROS+4~
LRROD TEST+1*, WRITE+7, NO2+2, LREND+2!
LRSDT L1*, L2+2, LREND+2!
LRSN L2*, L2+1, ENTRY+1*, ORDER+4, ORDER+5, ORDER+6, ORDER+8, ORDER+9, ORDER+10, TEST+5
, APDATA+1, APDATA+7, APDATA+12, APDATA+16, COM+5, COM+6, COMWRT~, COMWRT+2, COMWRT+3, COMWRT+6
, LREND+2!
LRTREA LROS+4~
LRTSTI COM+3~, COM+5*, COM+6, COMWRT~, COMWRT+2, COMWRT+3, COMWRT+6
LRTSTS TST1+2*, TST1+10*, TST2+3, WRITE+1, COM+5, NO2+1*, NO2+3, LREND+2!, CANC+3*, CANC+5
LRTT ORDER+3!, LREND+2!
LRTT( TST1+2*
LRURG TEST~, TEST+1*, TST2+2*, WRITE+3, NO2+1*, LREND+2!
LRWRD LROS+4~
LRY TEST~
NODE COMWRT~, COMWRT+2, COMWRT+6
PNM LREND+2!
S APDATA+3~, APDATA+6*, APDATA+14~, APDATA+15*
SEX LROS+4~
SSN LROS+4~
TAB COMWRT~, COMWRT+4*, COMWRT+6
U L1, ORDER+5, ORDER+6, ORDER+7, TEST+1, TEST+2, TEST+3, TEST+4, TST1, TST1+12
, TST2+2, TST2+4, TST2+5, WRITE+1, WRITE+3, NOTACC+1, NOTACC+2, NO2, NO2+1, NO2+4
, CANC+3
VA200 OERR+3~
VAPD LROS+4~
X L1*, L2, L2+3, ORDER+5*, ORDER+6*, ORDER+9, TEST+3*, TEST+4*, APDATA+10*, APDATA+19*
, LREND+2!, WAIT+1*, OERR~, OERR+2, OERR+4
X1 L2*, L2+3*, TST1*, TST1+1, TST1+2, TST1+7, TST1+8, TST1+9, TST1+10, TST1+11
, WRITE+6, LREND+2!
X2 L2*, L2+3*, TST1*, TST1+1, TST1+2, TST1+8, WRITE+6, LREND+2!
X3 TEST+1*, TST1*, TST1+1, TST1+2, TST1+7, TST1+8, TST1+9, TST1+10, TST1+11, WRITE+6
, LREND+2!
X4 ORDER+6*, ORDER+9, LREND+2!
Y L1, L2*, L2+2*, TEST+1*, TST2+4*, TST2+5*, NOTACC+1*, NOTACC+2*, NO2*, DATE*
, LREND+2!
Z LREND+2!
>> ZTQUEUED LREND+1
>> ZTREQ LREND+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All