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

Package: IHS Changes To Lab

Routine: BLRLROS


Information

BLRLROS ; IHS/OIT/MKK - LAB ORDER STATUS ; 22-Oct-2013 09:22 ; MKK

Source Information

Source file <BLRLROS.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA Fileman 5 ^%DT  C^%DTC  YN^DICN  $$GET1^DIQ  ^DIR  
Lab Service 3 ^LRDPA  DATE^LRWU  (DD,DT)^LRX  
IHS Changes To Lab 2 LINEWRAP^BLRGMENU  REVIDEO^BLRUTIL3  
DRG Grouper 1 $$ICDDX^ICDEX  
IHS VA Utilities 1 ^XBCLS  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
COM(LRMMODE) ; EP
CANC ; EP - For Canceled tests
COMWRT(LRODT,LRSN,LRTSTI,NODE,TAB) ; EP
PEP ; EP
HEDBAN ; EP
DATE ; EP
ORDER ; EP - call with LRSN, from LROE, LROE1, LRORD1, LROW2, LROR1
NO2 ; EP
CLININDD ; EP - Display 'Clinical Indication' Data
WAITBAN ; EP
LREND
NOTACC ; EP
TST2 ; EP
TST1 ; EP
ORDERHED ; EP
SHOW ; EP - call with LRSN,LRODT, from LRCENDEL, LRTSTJAN
NEWHEAD ; EP
HED ; EP
; D:$E(IOST,1)="C"&($Y>18) WAIT
L2 ; EP
L0 ; EP
L1 ; EP
ENTRY
EP ; EP
WAIT ; EP
WRITE ; EP+
TEST ; EP
ENT ; EP - from LROE, LROE1, LRORD1, LROW2

External References

Name Field # of Occurrence
^%DT L1+2
C^%DTC L2+2, L2+33
LINEWRAP^BLRGMENU CLININDD+14, CLININDD+22, COMWRT+12
REVIDEO^BLRUTIL3 WRITE+7, ORDERHED+3
YN^DICN L2+32
$$GET1^DIQ ORDER+8, ORDER+9, CLININDD+4, CLININDD+5, CLININDD+19
^DIR HED+8, WAIT+7, HEDBAN+9, WAITBAN+7
$$ICDDX^ICDEX CLININDD+20
^LRDPA PEP+6
DATE^LRWU L1+1
DD^LRX L2+2, L2+32
DT^LRX L0+1
^XBCLS L2+25
$$FMADD^XLFDT L2+5
$$FMTE^XLFDT DATE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO REMAINING ACTIVE ORDERS",!
  • Line Location: L2+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: L2+27
Function Call: WRITE
  • Prompt: !?3,$P(LROD1,U,6)
  • Line Location: ORDER+14
Function Call: WRITE
  • Prompt: !,?5,"Visit Number(s): ",$G(^("PCE"))
  • Line Location: ORDER+15
Function Call: WRITE
  • Prompt: !?5,": ",^(I,0)
  • Line Location: ORDER+16
Function Call: WRITE
  • Prompt: !!,"BAD ORDER ",LRSN,!,$C(7)
  • Line Location: TEST+6
Function Call: WRITE
  • Prompt: !,?20,$P(LROD1,U,6)
  • Line Location: TST1+4
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: "
  • Line Location: WRITE+7
Function Call: WRITE
  • Prompt: !,?9,"Clinical Indication: "
  • Line Location: CLININDD+14
Function Call: WRITE
  • Prompt: !
  • Line Location: CLININDD+18
Function Call: WRITE
  • Prompt: ?9,"ICD:",$P(ICDSTR,"^",2)
  • Line Location: CLININDD+21
Function Call: WRITE
  • Prompt: !,?TAB,": "
  • Line Location: COMWRT+11
Function Call: WRITE
  • Prompt: !,?20,$P(LROD1,U,6)
  • Line Location: NO2+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HED+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LREND+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WAIT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEDBAN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HEDBAN+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HEDBAN+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WAITBAN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: WAITBAN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: WAITBAN+11
Function Call: WRITE
  • Prompt: !,$$COLHEAD^BLRGMENU("Order Date: "_$$FMTE^XLFDT(LRODT,"5DZ"),80)
  • Line Location: ORDERHED+2
Function Call: WRITE
  • Prompt: !,"Lab Order #: "
  • Line Location: ORDERHED+3
Function Call: WRITE
  • Prompt: ?45,"Provider: ",$E(LRDOC,1,25)
  • Line Location: ORDERHED+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEWHEAD+1
Function Call: WRITE
  • Prompt: ?2,"Test",?20,"Urgency",?30,"Status",?62,"Accession"
  • Line Location: NEWHEAD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWHEAD+3
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","-")
  • Line Location: NEWHEAD+4
Routine Call
  • DIR
  • Line Location:
    • HED+8
    • WAIT+7
    • HEDBAN+9
    • WAITBAN+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
69.01 GET1^DIQ
69.03 GET1^DIQ
69.05 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] WRITE+1
^LAB(61 - [#61] ORDER+13
^LAB(62 - [#62] ORDER+13
^LAB(62.05 - [#62.05] WRITE+3
^LAB(69.9 - [#69.9] L1+2
^LRO(68 - [#68] TST1+2, TST1+3, WRITE+6, CLININDD+6
^LRO(69 - [#69] L2+1, L2+6, L2+8, L2+9, ENTRY+1, ORDER+4, ORDER+6, ORDER+13, ORDER+15, ORDER+16
, ORDER+17, WRITE+9, CLININDD+17, COM+6, COMWRT+3, COMWRT+7, COMWRT+8
^TMP("BLRLROS" L2+4!, L2+11*, L2+16, L2+18, L2+20, L2+28!
^VA(200 - [#200] CANC+1

Label References

Name Line Occurrences
CANC TEST+3
CLININDD WRITE+9
COM TST2+4, TST2+7, NO2+4, CANC+2
COMWRT COM+7
DATE TST2+4, TST2+5, NO2+1
ENT L0+1
ENTRY L2+33
EP PEP+7
HED L2+23, ENTRY, ENTRY+1
HEDBAN ORDER+14, ORDER+15, ORDER+16, TEST+6, TST1+4
L0 PEP+7
L2 L2+31, L2+34
LREND PEP+6, L1+1, L2+2, L2+31, L2+32, L2+33
NEWHEAD L2+13, HED+11, SHOW+2, WAIT+10, HEDBAN+12, WAITBAN+10, ORDERHED+1
NO2 NOTACC+1, NOTACC+2
NOTACC TEST+7, TST1+2
ORDER L2+21, ENTRY+1, SHOW+3
ORDERHED ORDER+11, HEDBAN+13, WAITBAN+11
TEST ORDER+17
TST2 TST1+3
WAIT L2+31, COMWRT+13, NO2+5
WAITBAN ORDER+12, WRITE+2, WRITE+3, WRITE+4, WRITE+7
WRITE TST2+4, TST2+7, NO2+4, CANC+2

Naked Globals

Name Field # of Occurrence
^( ORDER+16, ORDER+17, TST1+3, WRITE+6
^("PCE" ORDER+15
^(0 L1+2, ORDER+13, ORDER+17, WRITE+1, WRITE+3
^(1 ORDER+6
^(3 ORDER+6, TST1+2
^(9 TST1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% L2+32*, LREND+2!
>> %DT L0+1*, L1+1*, L1+2*
>> %DT("A" L1+1*
>> %DT("B" PEP+5!
%Y LREND+2!
A LREND+2!
CLININD CLININDD+1~, CLININDD+4*, CLININDD+14
D ORDER+3!
DFN LREND+2!
DIC PEP+5!, LREND+2!
DIC(0 PEP+5*
>> DILOCKTM PEP+1
DIR HED+6!, WAIT+5!, HEDBAN+7!, WAITBAN+5!
DIR(0 HED+7*, WAIT+6*, HEDBAN+8*, WAITBAN+6*
>> DIRUT HED+9, WAIT+8, HEDBAN+10, WAITBAN+8
>> DISYS PEP+1
DIWL LREND+2!
DIWR LREND+2!
DPF LREND+2!
DT PEP+1
DTIME PEP+1
>> DTOUT PEP+6
>> DUOUT PEP+6
DUZ PEP+1
I ORDER+16*, TST1+3*, TST2+1~, LREND+2!
ICD CLININDD+1~, CLININDD+16*, CLININDD+17*, CLININDD+19
>> ICDCNT CLININDD+16*
ICDCODE CLININDD+1~
ICDIEN CLININDD+1~, CLININDD+19*, CLININDD+20
ICDSTR CLININDD+1~, CLININDD+20*, CLININDD+21, CLININDD+22
IO PEP+1
>> IOBS PEP+1
IOF PEP+1, LREND, WAIT+2, HEDBAN+4, WAITBAN+2, NEWHEAD+1
IOM PEP+1, CLININDD+14, COMWRT+12, NEWHEAD+4
ION PEP+1
>> IOS PEP+1
IOSL PEP+1, L2+23, ENTRY+1, WAIT+1, WAITBAN+1, ORDERHED+1
IOST PEP+1, LREND, WAIT+2, HEDBAN+4, WAITBAN+2
>> IOT PEP+1
>> IOXY PEP+1
K LREND+2!
LINES COMWRT+5~, COMWRT+6*
LRACC TST1+3*, TST2+2, TST2+4, LREND+2!
>> LRACD TST1+2*
LRACN ORDER+17*, WRITE+9, CLININDD+3, CLININDD+17, LREND+2!
LRACN0 ORDER+17*, TEST+2, TEST+3, TEST+6, TST1+1, NO2+2, LREND+2!, CANC+1
LRDFN PEP+6, L2+1, L2+6, L2+8, ENTRY+1, LREND+2!
LRDOC ORDER+1~, ORDER+9*, LREND+2!, ORDERHED+4
LRDPAF PEP+5!
LRDPF LREND+2!
LREND L1+1*, L2+15*, L2+16, L2+18, L2+20, L2+22, L2+25, L2+31, L2+33, ENTRY
, ENTRY+1, ORDER+3*, ORDER+12, ORDER+14, ORDER+15, ORDER+16, ORDER+17, TST1+3, TST2+4, WRITE+2
, WRITE+3, WRITE+4, WRITE+7, COM+1, COMWRT+7, HED+2, HED+9*, LREND+2!, SHOW+1*, WAIT+8*
, HEDBAN+1, HEDBAN+10*, WAITBAN+8*
LRI COMWRT+5~, COMWRT+6*, COMWRT+7*, COMWRT+8
LRLDAT L1+2*, L2+2, LREND+2!
LRLL TEST+2*, TST2+4*, TST2+5, LREND+2!
>> LRLOOKUP PEP+3*
LRMMODE COM~, COM+5*, COM+7
LROD0 ORDER+6*, ORDER+13, TEST+4, NO2+1, LREND+2!
LROD1 ORDER+6*, ORDER+14, TEST+5, TEST+7, TST1+4, TST2+6, NO2+1, NO2+5, LREND+2!
LROD3 ORDER+6*, TST2+5, NOTACC+1, NOTACC+2, NOTACC+3, NO2+1, LREND+2!
LRODT L1+2*, L2+1, L2+2*, L2+5*, L2+6*, L2+8, L2+9, L2+11, L2+15*, L2+16*
, L2+18, L2+20, L2+32, L2+33*, ENTRY+1, ORDER+4, ORDER+6, ORDER+8, ORDER+9, ORDER+13
, ORDER+15, ORDER+16, ORDER+17, WRITE+9, CLININDD+3, CLININDD+17, COM+6, COM+7, COMWRT~, COMWRT+2
, COMWRT+3, COMWRT+7, COMWRT+8, NO2+1, LREND+2!
LROOS TEST+5*, TST2+4, TST2+6*, LREND+2!
LROS TEST+2*, TEST+5*, TST2+4*, TST2+5*, TST2+6*, WRITE+5, NOTACC+1*, NOTACC+2*, NOTACC+3*, NO2+3*
, LREND+2!
LROSD TEST+2*, TST2+4*, TST2+5*, WRITE+5, NO2+1*, LREND+2!
LROT TEST+2*, TEST+4*, TEST+5*, TST2+4*, WRITE+5, LREND+2!, CANC+1*
LRROD TEST+2*, WRITE+7, NO2+3, LREND+2!
LRSDT L1+2*, L2+32, LREND+2!
LRSN L2+1*, L2+2, L2+19*, L2+20*, L2+31, ENTRY+1*, ORDER+4, ORDER+6, ORDER+8, ORDER+9
, ORDER+13, ORDER+15, ORDER+16, ORDER+17, TEST+6, WRITE+9, CLININDD+3, CLININDD+17, COM+6, COM+7
, COMWRT~, COMWRT+2, COMWRT+3, COMWRT+7, COMWRT+8, LREND+2!
>> LRSP L2+7*, L2+8*, L2+9, L2+11
LRTSTI COM+4~, COM+6*, COM+7, COMWRT~, COMWRT+2, COMWRT+3, COMWRT+7, COMWRT+8
LRTSTS TST1+3*, TST2+3, WRITE+1, COM+6, NO2+2*, NO2+4, LREND+2!, CANC+1*, CANC+2
LRTT ORDER+3!, LREND+2!
LRTT( TST1+3*
LRURG TEST+1~, TEST+2*, TST2+2*, WRITE+3, NO2+2*, LREND+2!
LRY TEST+1~
NODE COMWRT~, COMWRT+2, COMWRT+7, COMWRT+8
ORDERNUM ORDER+1~, ORDER+8*, ORDERHED+3
ORDIEN CLININDD+1~, CLININDD+3*, CLININDD+4, CLININDD+5, CLININDD+19
>> ORDNUM L2+9*, L2+10, L2+11, L2+17*, L2+18*, L2+20
>> PG HEDBAN+13, WAITBAN+11, NEWHEAD+5*
PNM LREND+2!
SNOMED CLININDD+1~, CLININDD+5*, CLININDD+9, CLININDD+11
STR COMWRT+5~, COMWRT+8*, COMWRT+9, COMWRT+12
TAB CLININDD+1~, CLININDD+7*, COMWRT~, COMWRT+4*, COMWRT+11, COMWRT+12
U PEP+1, L1+2, ORDER+13, ORDER+14, TEST+2, TEST+4, TEST+5, TST1+1, TST1+4, TST2+2
, TST2+4, TST2+5, WRITE+1, WRITE+3, NOTACC+2, NOTACC+3, NO2+1, NO2+2, NO2+5, CANC+1
UID CLININDD+1~, CLININDD+6*, CLININDD+9, CLININDD+12
X L1+2*, L2+2, L2+33, ORDER+13*, ORDER+16, TEST+4*, TEST+5*, HED+6!, HED+9, LREND+2!
, WAIT+5!, WAIT+8, HEDBAN+7!, HEDBAN+10, WAITBAN+5!, WAITBAN+8
X1 L2+2*, L2+33*, TST1+1*, TST1+2, TST1+3, WRITE+6, CLININDD+6, LREND+2!
X2 L2+2*, L2+33*, TST1+1*, TST1+2, TST1+3, WRITE+6, CLININDD+6, LREND+2!
X3 TEST+2*, TST1+1*, TST1+2, TST1+3, WRITE+6, CLININDD+6, LREND+2!
X4 ORDER+13*, ORDER+16, LREND+2!
>> XPARSYS PEP+1
>> XQXFLG PEP+1
Y L1+1, L1+2, L2+2*, L2+32*, TEST+2*, TST2+4*, TST2+5*, NOTACC+2*, NOTACC+3*, NO2+1*
, DATE+1*, HED+6!, LREND+2!, WAIT+5!, HEDBAN+7!, WAITBAN+5!
Z LREND+2!
>> ZTQUEUED LREND+1
>> ZTREQ LREND+1*
Info |  Source |  Call 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