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

Package: Lab Service

Routine: LRCE


Information

LRCE ;SLC/RWF/DALOI/JMC - LOOK-UP ON CENTRAL ENTRY # ; 22-Oct-2013 09:22 ; MKK

Source Information

Source file <LRCE.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Lab Service 5 ^LRDPA  $$STATUS^LREVENT  ^LRORD  ^LROS  (LRGLIN,PT)^LRX  
VA Fileman 4 ^%DT  ^DIC  YN^DICN  ^DIR  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 LRAD2ORD  LRADDTST  LRCENLKUP  

Entry Points

Name Comments DBIA/ICR reference
ADDTST ;
NXT
HEAD ;
EN ; EP
END ;
CHKPAGE ;
ADDEND ;
LU1 ;
REF ; if referred test, display status and manifest
FSN ;
NEXT
LR2 ;
PT ;
TEST ;
LUPT ;
TST
SEL
UNIV ; see if entry is UID
DIS ;

External References

Name Field # of Occurrence
^%DT LU1+4
^DIC SEL+15
YN^DICN SEL+2
^DIR EN+10, CHKPAGE+5
^LRDPA LUPT+2
$$STATUS^LREVENT REF+7
^LRORD ADDTST+3
^LROS EN+12
LRGLIN^LRX HEAD+9
PT^LRX PT+9
$$FMTE^XLFDT DIS+8, HEAD+22, HEAD+27, HEAD+30

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"Enter a whole number for the order number."
  • Line Location: NEXT+3
Function Call: WRITE
  • Prompt: " NUMBER NOT FOUND"
  • Line Location: NEXT+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: !!?15,"LISTING OF DATES "
  • Line Location: DIS+3
Function Call: WRITE
  • Prompt: !?5,CNT,?10,$$FMTE^XLFDT(LRODT,"5FM")
  • Line Location: DIS+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHKPAGE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKPAGE+8
Function Call: WRITE
  • Prompt: " NO PATIENT"
  • Line Location: PT+5
Function Call: WRITE
  • Prompt: !!,"ORDER #: ",LRORD,?20,"PAT: ",PNM," HRCN: ",HRCN,!
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: "WHO ENTERED: ",$E(LRWHOE,1,25)
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+18
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+25
Function Call: WRITE
  • Prompt: "TO BE DRAWN: ",$$FMTE^XLFDT($P(LROR,U,8),"5FM")
  • Line Location: HEAD+27
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+29
Function Call: WRITE
  • Prompt: " LAB ARRIVAL: ",$$FMTE^XLFDT(+$G(^(3)),"5FM")
  • Line Location: HEAD+30
Function Call: WRITE
  • Prompt: ?40,"PROVIDER: ",$E(LRMD,1,30)
  • Line Location: HEAD+36
Function Call: WRITE
  • Prompt: !,"COMMENT: ",$P(^LRO(69,LRODT,1,LRSN,1),U,6)
  • Line Location: TST+8
Function Call: WRITE
  • Prompt: !,?3,^(I,0)
  • Line Location: TST+10
Function Call: WRITE
  • Prompt: !,"Order has already been accessioned."
  • Line Location: NXT+1
Function Call: WRITE
  • Prompt: !,"Tests have been accessioned, call the lab to add tests to the same order."
  • Line Location: NXT+2
Function Call: WRITE
  • Prompt: !?5,"This Order was Merged "
  • Line Location: NXT+4
Function Call: WRITE
  • Prompt: !,"Is this the one"
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !,"Order date to start from: T//"
  • Line Location: LU1+1
Function Call: WRITE
  • Prompt: !," TEST: ",$S($D(^LAB(60,+X,0)):$P(^(0),"^"),1:"UNKNOWN"),?28," "
  • Line Location: TEST+2
Function Call: WRITE
  • Prompt: $E($S($D(^LAB(62.05,LRURG,0)):$P(^(0),U),1:"ROUTINE"),1,15)
  • Line Location: TEST+2
Function Call: WRITE
  • Prompt: ?38," ",$S($D(^LRO(68,+$P(X,"^",4),0)):$P(^(0),"^"),1:""),?50," ",$P(X,"^",5),?55
  • Line Location: TEST+3
Function Call: WRITE
  • Prompt: !,"Sign or Symptom: ",$G(^LRO(69,LRODT,1,LRSN,2,I,9999999))
  • Line Location: TEST+5
Function Call: WRITE
  • Prompt: ?38," ",$S($D(^LRO(68,+$P(X,"^",4),0)):$P(^(0),"^"),1:""),?50," ",$P(X,"^",5)
  • Line Location: TEST+8
Function Call: WRITE
  • Prompt: !,"Sign or Symptom: ",$G(^LRO(69,LRODT,1,LRSN,2,I,9999999))
  • Line Location: TEST+9
Function Call: WRITE
  • Prompt: !,"Clinical Indication: ",$G(^LRO(69,LRODT,1,LRSN,2,I,9999999))
  • Line Location: TEST+12
Function Call: WRITE
  • Prompt: !?3,"Canceled by: "_$P(^VA(200,$P(X,"^",11),0),"^")
  • Line Location: TEST+15
Function Call: WRITE
  • Prompt: !?5,^(0)
  • Line Location: TEST+16
Function Call: WRITE
  • Prompt: !?5,^(0)
  • Line Location: TEST+18
Function Call: WRITE
  • Prompt: !,?5,"SHIPPING MANIFEST: "_LRMAN
  • Line Location: REF+3
Function Call: WRITE
  • Prompt: !," <"_LRUID_">"
  • Line Location: REF+6
Function Call: WRITE
  • Prompt: !,?5,"SHIPPING MANIFEST: "_LRMAN
  • Line Location: REF+10
Routine Call
  • DIC
  • Line Location:
    • SEL+15
Routine Call
  • DIR
  • Line Location:
    • EN+10
    • CHKPAGE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] TEST+2
^LAB(62 - [#62] HEAD+33
^LAB(62.05 - [#62.05] TEST+2
^LR - [#63] PT+8
^LRO(68 - [#68] UNIV+1, TEST+8
^LRO(69 - [#69] NEXT+6, DIS+5, DIS+11, LR2+5, PT+3, HEAD+15, HEAD+16, HEAD+21, HEAD+30, HEAD+34
, HEAD+37, TST+2, TST+7, TST+8, TST+10, NXT, SEL+8, SEL+16, SEL+17, LU1+6
, FSN+2, FSN+3, TEST+2, TEST+12, TEST+16, TEST+18, REF+1
^SC - [#44] HEAD+23
^VA(200 - [#200] PT+7, HEAD+17, HEAD+35, TEST+15

Label References

Name Line Occurrences
ADDEND ADDTST+4
CHKPAGE DIS+6, LR2+2, PT+1, HEAD+1, HEAD+7, HEAD+18, HEAD+25, HEAD+29, HEAD+32, TST
, TST+3, TST+4, TST+5, TST+8, TST+10, TEST+1, TEST+16, TEST+17, TEST+18
EN EN+12, NEXT+2, DIS+14, ADDTST+1
END EN+11, EN+12, NEXT, DIS+13, ADDTST+4
FSN LU1+6
LR2 DIS+12
LRCE NEXT+6, DIS+13
LU1 LU1+5
PT LR2+5, FSN+3
REF TEST+14
TEST TST+4
UNIV NEXT+1

Naked Globals

Name Field # of Occurrence
^( TST+10, FSN+3, TEST+16, TEST+18
^("PCE" HEAD+37
^(0 PT+3, PT+7, PT+8, HEAD+33, HEAD+35, TEST+2, TEST+8, TEST+16, TEST+18
^(1 HEAD+16, HEAD+21, TST+7
^(3 HEAD+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SEL+1*, SEL+3, SEL+4, SEL+6, END+1!
%DT LU1+3*, END+1!
A DIS+5*, DIS+9!, END+1!
CNT DIS+4*, DIS+7*, DIS+8, DIS+9!
DA SEL+7~, SEL+13*
DA(1 SEL+13*
DFN PT+8*, LUPT+1!, LUPT+3, END+1!
DIC SEL+7~, SEL+14*, LUPT+1!, END+1!
DIC("A" SEL+12*
DIC("S" SEL+13*
DIC(0 SEL+14*, LUPT+1*
DIR EN+5!, NEXT+5!, CHKPAGE+3!, END+1!
DIR("?" EN+8*, EN+9*
DIR("A" EN+7*
DIR(0 EN+7*, CHKPAGE+4*
DIRUT EN+2!, NEXT, NEXT+5!, CHKPAGE+6, END+1!
DOB ADDEND+3!
DTIME LU1+1
DTOUT END+1!
DUOUT CHKPAGE+6, LUPT+3, END+1!
>> HRCN HEAD+5
I ADDEND+5!, HEAD+39*, TST+2*, TST+9*, TST+10*, SEL+7~, TEST+2, TEST+12, TEST+16, TEST+18
, REF+1, END+1!
I(2 TEST+15*, TEST+16*, TEST+18*
II END+1!
IOF DIS+1, CHKPAGE+7
IOSL CHKPAGE+2
K END+1!
L HEAD+34*, HEAD+35, END+1!
>> LN EN+3*
>> LR2ORD END+5
LRAA UNIV+1~*
LRAD UNIV+1~*
>> LRADDTST DIS+2, DIS+11, DIS+13, DIS+14, ADDTST+1*, ADDTST+3, LR2+5, NXT+3, SEL+4*, SEL+5
, SEL+15*
LRAN UNIV+1~*
LRARIV END+1!
LRCLCTR ADDEND+1!, HEAD+16*, HEAD+17*, HEAD+19, END+1!
LRCLST ADDEND+1!, HEAD+16*, HEAD+20, END+1!
LRCTYP HEAD+11*, HEAD+12, HEAD+14, END+2!
LRDFN ADDEND+1!, PT+4*, PT+5, PT+8, FSN+2
LRDN ADDEND+3!
LRDPF ADDEND+1!, PT+8*, HEAD+31
LRDRWTM ADDEND+1!, HEAD+21*, HEAD+22*, HEAD+24, HEAD+26, HEAD+27, END+2!
LREVNT REF+1~, REF+7*, REF+8, REF+9, REF+11
LRFLAG1 EN+1*, ADDEND+1!, END+2!
LRFLG EN+1*, ADDEND+1!, PT+2, SEL+9*, END+2!
>> LRFLG1 SEL+3*
>> LRLABKY NXT+2
LRLLOC ADDEND+2!, SEL+10*
LRLOC ADDEND+2!, HEAD+23*, HEAD+24, HEAD+28, END+2!
>> LRLWC SEL+8*, SEL+11
LRMAN REF+1~, REF+9*, REF+10
LRMD HEAD+35*, HEAD+36, END+2!
LRNOP EN+1*, ADDEND+4!, NXT+1, NXT+2, SEL+1*, SEL+3*, TEST+2*, END+6!
LRODT DIS+4*, DIS+5*, DIS+8, DIS+10*, DIS+11*, ADDEND+2!, LR2+5, PT+3, HEAD+15, HEAD+16
, HEAD+21, HEAD+30, HEAD+34, HEAD+37, TST+2, TST+7, TST+8, TST+10, NXT, SEL+8
, SEL+13, SEL+14, SEL+16, SEL+17, LU1+6*, FSN+2, FSN+3, TEST+2, TEST+12, TEST+16
, TEST+18, REF+1, END+2!
LROLLOC ADDEND+2!, SEL+10*
LROR PT+3*, PT+4, PT+6, HEAD+11, HEAD+23, HEAD+27, HEAD+32, HEAD+33, END+2!
LRORD EN+2!, NEXT+2*, NEXT+4*, NEXT+6, DIS+5, DIS+11, LR2+5, HEAD+5, SEL+4, FSN+3*
, END+2!
LRORDRR ADDEND+2!, SEL+1!, SEL+20*
LRPRAC ADDEND+2!, SEL+10*, END+3!
LRRB ADDEND+2!
LRRSITE ADDEND+3!, SEL+1!
LRRSITE("RPSITE" SEL+18*
LRRSITE("RSITE" SEL+17*
LRRSITE("SDT" SEL+11*
LRRSTAT ADDTST+2*, ADDEND+4!, NXT+5*
LRSD ADDEND+3!, SEL+1!
LRSD("RPSITE" SEL+17*
LRSD("RUID" SEL+19*
LRSN ADDEND+3!, LR2+4*, LR2+5*, PT+3, HEAD+15, HEAD+16, HEAD+21, HEAD+30, HEAD+34, HEAD+37
, TST+2, TST+7, TST+8, TST+10, NXT, SEL+8, SEL+13, SEL+14, SEL+16, SEL+17
, FSN+1*, FSN+2*, FSN+3, TEST+2, TEST+12, TEST+16, TEST+18, REF+1, END+3!
LRSN1 EN+1*, ADDEND+4!, END+3!
LRSTOP EN+1*, DIS+6, DIS+9, DIS+11, ADDEND+3!, LR2+1, LR2+3, LR2+5, CHKPAGE+1, CHKPAGE+6*
, PT+2, HEAD+2, HEAD+8, HEAD+18, HEAD+21, HEAD+25, HEAD+29, HEAD+32, TST+1, TST+3
, TST+4, TST+6, TST+8, TST+10, TST+11, SEL+5, TEST+1, TEST+16, TEST+17, TEST+18
, END+3!
LRTREA ADDEND+3!
LRTSN ADDEND+3!
LRTSP ADDEND+3!, SEL+1!, SEL+16*
LRUID REF+1~*, REF+6, REF+7
LRURG TEST+2*, END+3!
LRW END+3!
LRWHOE PT+6*, PT+7*, HEAD+12, HEAD+13!, END+3!
LRWRD HEAD+31, END+3!
PNM ADDEND+3!, HEAD+5
SEX ADDEND+3!
SSN EN+2!, EN+11, EN+12, ADDEND+3!
TYPE ADDEND+4!
U PT+6, PT+7, PT+8, HEAD+11, HEAD+16, HEAD+17, HEAD+23, HEAD+27, HEAD+32, HEAD+33
, HEAD+34, HEAD+35, TST+7, TST+8, NXT, NXT+2, SEL+10, SEL+11, SEL+16, SEL+17
, SEL+18, SEL+19, TEST+2
>> VA("BID" END+3!
>> VA("PID" END+3!
VADM END+4!
VAERR END+4!
VAIN END+4!
X NEXT+5!, ADDEND+5!, UNIV+1, NXT*, NXT+1, NXT+4, SEL+7~, SEL+16*, SEL+17, SEL+18
, SEL+19, LU1+1*, LU1+2, LU1+3*, TEST+2*, TEST+8, TEST+15, REF+7, END+4!
X0 SEL+7~, SEL+8*, SEL+10, SEL+11
X1 END+4!
X2 END+4!
Y EN+11, EN+12, NEXT+2, NEXT+5!, ADDEND+5!, UNIV+1*, SEL+15, SEL+16, LU1+5*, LU1+6
, END+4!
Z END+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All