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 ;DALOI/JMC - LOOK-UP ON CENTRAL ENTRY # ; 12/20/17 8:51am

Source Information

Source file <LRCE.m>

Call Graph

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

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

Package Total Caller Graph
Lab Service 3 LRAD2ORD  LRADDTST  LRCENLKUP  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
EN ;
NEXT
DIS ;
CAN(ORD) ;See if all tests have been canceled
ADDTST ;
ADDEND ;
LR2 ;
UNIV ; see if entry is UID
CHKPAGE ;
PT ;
HEAD ;
TST
NXT
SEL
LUPT ;
LU1 ;
FSN ;
TEST ;
REF ; If referred test, display status and manifest
END ;

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"Enter a whole number for the order number."
  • Line Location: NEXT+4
Function Call: WRITE
  • Prompt: " NUMBER NOT FOUND"
  • Line Location: NEXT+7
Function Call: WRITE
  • Prompt: !!,?5,"This order has been canceled."
  • Line Location: NEXT+9
Function Call: WRITE
  • Prompt: !,?5,"Tests WILL NOT be added. A new order must be placed."
  • Line Location: NEXT+10
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," SSN: ",SSN,!
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: "WHO ENTERED: ",$E(LRWHOE,1,25)
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+15
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+24
Function Call: WRITE
  • Prompt: "TO BE DRAWN: ",$$FMTE^XLFDT($P(LROR,U,8),"ZM")
  • Line Location: HEAD+26
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+30
Function Call: WRITE
  • Prompt: " LAB ARRIVAL: ",$$FMTE^XLFDT(+$G(^(3)),"ZM")
  • Line Location: HEAD+31
Function Call: WRITE
  • Prompt: ?40,"PROVIDER: ",$E(LRMD,1,30)
  • Line Location: HEAD+37
Function Call: WRITE
  • Prompt: !,"COMMENT: ",$P(^LRO(69,LRODT,1,LRSN,1),U,6)
  • Line Location: TST+9
Function Call: WRITE
  • Prompt: !,?3,^(I,0)
  • Line Location: TST+11
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+3
Function Call: WRITE
  • Prompt: !?5,"This Order was Merged "
  • Line Location: NXT+5
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+3
Function Call: WRITE
  • Prompt: $E($S($D(^LAB(62.05,LRURG,0)):$P(^(0),U),1:"ROUTINE"),1,15)
  • Line Location: TEST+5
Function Call: WRITE
  • Prompt: ?38," ",$S($D(^LRO(68,+$P(X,"^",4),0)):$P(^(0),"^"),1:""),?50," ",$P(X,"^",5),?55
  • Line Location: TEST+6
Function Call: WRITE
  • Prompt: !?3,"Canceled by: "_$P(^VA(200,$P(X,"^",11),0),"^")
  • Line Location: TEST+10
Function Call: WRITE
  • Prompt: !?5,^(0)
  • Line Location: TEST+11
Function Call: WRITE
  • Prompt: !?5,^(0)
  • Line Location: TEST+15
Function Call: WRITE
  • Prompt: " <"_LRUID_">"
  • Line Location: REF+6
Function Call: WRITE
  • Prompt: !,?4,"REFERRAL STATUS: "_$P(LREVNT,"^")_" ("_$P(LREVNT,"^",2)_")"
  • Line Location: REF+15
Function Call: WRITE
  • Prompt: !,?4,"SHIPPING MANIFEST: "_$P(LREVNT,"^",3)
  • Line Location: REF+16
Function Call: WRITE
  • Prompt: " using shipping config "_LRSCFG(0)
  • Line Location: REF+17
Routine Call
  • DIC
  • Line Location:
    • SEL+15
Routine Call
  • DIR
  • Line Location:
    • EN+8
    • CHKPAGE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] TEST+3
^LAB(62 - [#62] HEAD+34
^LAB(62.05 - [#62.05] TEST+5
^LAHM(62.8 - [#62.8] REF+12, REF+13
^LAHM(62.9 - [#62.9] REF+14
^LR - [#63] PT+8
^LRO(68 - [#68] UNIV+1, TEST+6
^LRO(69 - [#69] NEXT+7, DIS+5, DIS+11, CAN+3, CAN+4, CAN+5, CAN+6, CAN+7, LR2+5, PT+3
, HEAD+12, HEAD+13, HEAD+20, HEAD+31, HEAD+35, HEAD+38, TST+2, TST+8, TST+9, TST+11
, NXT, SEL+8, SEL+16, SEL+17, LU1+6, FSN+2, FSN+3, TEST+2, TEST+11, TEST+15
, REF+3
^SC - [#44] HEAD+22
^VA(200 - [#200] PT+7, HEAD+14, HEAD+36, TEST+10

Label References

Name Line Occurrences
$$CAN NEXT+8
ADDEND ADDTST+5
CHKPAGE DIS+6, LR2+2, PT+1, HEAD+1, HEAD+4, HEAD+15, HEAD+24, HEAD+30, HEAD+33, TST
, TST+3, TST+5, TST+6, TST+9, TST+11, TEST+1, TEST+11, TEST+12, TEST+15
EN EN+10, NEXT+3, NEXT+8, DIS+14, ADDTST+2
END EN+9, EN+10, NEXT, DIS+13, ADDTST+5
FSN LU1+6
LR2 DIS+12
LRCE NEXT+7, DIS+13
LU1 LU1+5
PT LR2+5, FSN+3
REF TEST+8
TEST TST+5
UNIV NEXT+1

Naked Globals

Name Field # of Occurrence
^( TST+11, FSN+3, TEST+11, TEST+15
^("PCE" HEAD+38
^(0 PT+3, PT+7, PT+8, HEAD+34, HEAD+36, TEST+2, TEST+3, TEST+5, TEST+6, TEST+11
, TEST+15
^(1 HEAD+13, HEAD+20, TST+8
^(3 HEAD+31

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!
CAN EN+1~, CAN+2*, CAN+4, CAN+6, CAN+9*, CAN+10
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 NEXT+6!, CHKPAGE+3!, END+1!
DIR("?" EN+6*, EN+7*
DIR("A" EN+5*
DIR(0 EN+5*, CHKPAGE+4*
DIRUT EN+3!, NEXT, NEXT+6!, CHKPAGE+6, END+1!
DOB ADDEND+3!
DTIME LU1+1
DTOUT END+1!
DUOUT CHKPAGE+6, LUPT+3, END+1!
I CAN+1~, CAN+6*, CAN+7, ADDEND+5!, HEAD+40*, TST+2*, TST+10*, TST+11*, SEL+7~, TEST+2
, TEST+11, TEST+15, REF+3, END+1!
I(2 TEST+10*, TEST+11*, TEST+14*, TEST+15*
II END+1!
IOF DIS+1, CHKPAGE+7
IOSL CHKPAGE+2
K END+1!
L HEAD+35*, HEAD+36, END+1!
>> LR2ORD END+5
LR628 REF+11~, REF+12*, REF+13
LRAA UNIV+1~*
LRAD UNIV+1~*
LRADDTST NEXT+8, DIS+2, DIS+11, DIS+13, DIS+14, ADDTST+1~, ADDTST+2*, ADDTST+4, LR2+5, NXT+4
, SEL+4*, SEL+5, SEL+15*
LRAN UNIV+1~*
LRARIV END+1!
LRCLCTR ADDEND+1!, HEAD+13*, HEAD+14*, HEAD+16, END+1!
LRCLST ADDEND+1!, HEAD+13*, HEAD+17, END+1!
LRCTYP HEAD+8*, HEAD+9, HEAD+11, END+2!
LRDFN ADDEND+1!, PT+4*, PT+5, PT+8, FSN+2
LRDN ADDEND+3!
LRDPF ADDEND+1!, PT+8*, HEAD+32
LRDRWTM ADDEND+1!, HEAD+20*, HEAD+21*, HEAD+23, HEAD+25, HEAD+26, END+2!
LREVNT REF+1~, REF+8*, REF+9, REF+10, REF+12, REF+15, REF+16
LRFLAG1 EN+2*, ADDEND+1!, END+2!
LRFLG EN+2*, ADDEND+1!, PT+2, SEL+9*, END+2!
>> LRFLG1 SEL+3*
>> LRLABKY NXT+2
LRLLOC ADDEND+2!, SEL+10*
LRLOC ADDEND+2!, HEAD+22*, HEAD+23, HEAD+27, END+2!
>> LRLWC SEL+8*, SEL+11
LRMD HEAD+36*, HEAD+37, END+2!
LRNOP EN+2*, ADDEND+4!, NXT+2, SEL+1*, SEL+3*, TEST+2*, END+6!
LRNOPMSG TST+4*, NXT+1, NXT+3, TEST+2*, END+6!
LRODT DIS+4*, DIS+5*, DIS+8, DIS+10*, DIS+11*, ADDEND+2!, LR2+5, PT+3, HEAD+12, HEAD+13
, HEAD+20, HEAD+31, HEAD+35, HEAD+38, TST+2, TST+8, TST+9, TST+11, NXT, SEL+8
, SEL+13, SEL+14, SEL+16, SEL+17, LU1+6*, FSN+2, FSN+3, TEST+2, TEST+11, TEST+15
, REF+3, END+2!
LROLLOC ADDEND+2!, SEL+10*
LROR PT+3*, PT+4, PT+6, HEAD+8, HEAD+22, HEAD+26, HEAD+33, HEAD+34, END+2!
LRORD EN+3!, NEXT+2*, NEXT+3, NEXT+5*, NEXT+7, NEXT+8, DIS+5, DIS+11, LR2+5, HEAD+3
, SEL+4, FSN+3*, END+2!
LRORDRR ADDEND+2!, SEL+1!, SEL+24*
LRPRAC ADDEND+2!, SEL+10*, END+3!
LRRB ADDEND+2!
LRRSITE ADDEND+3!, SEL+1!
LRRSITE("IDTYPE" SEL+23*
LRRSITE("RPSITE" SEL+18*
LRRSITE("RSITE" SEL+17*
LRRSITE("SDT" SEL+11*
LRRSTAT ADDTST+3*, ADDEND+4!, NXT+6*
LRSCFG REF+1~, REF+8*, REF+13*, REF+14, REF+17
LRSCFG(0 REF+14*, REF+17
LRSD ADDEND+3!, SEL+1!
LRSD("RPSITE" SEL+17*
LRSD("RUID" SEL+19*
LRSN ADDEND+3!, LR2+4*, LR2+5*, PT+3, HEAD+12, HEAD+13, HEAD+20, HEAD+31, HEAD+35, HEAD+38
, TST+2, TST+8, TST+9, TST+11, NXT, SEL+8, SEL+13, SEL+14, SEL+16, SEL+17
, FSN+1*, FSN+2*, FSN+3, TEST+2, TEST+11, TEST+15, REF+3, END+3!
LRSN1 EN+2*, ADDEND+4!, END+3!
LRSTOP EN+2*, DIS+6, DIS+9, DIS+11, ADDEND+3!, LR2+1, LR2+3, LR2+5, CHKPAGE+1, CHKPAGE+6*
, PT+2, HEAD+2, HEAD+5, HEAD+15, HEAD+18, HEAD+24, HEAD+28, HEAD+30, HEAD+33, TST+1
, TST+3, TST+5, TST+7, TST+9, TST+11, TST+12, SEL+5, TEST+1, TEST+11, TEST+12
, TEST+15, END+3!
LRSTR CAN+1~, CAN+7*, CAN+9
LRTREA ADDEND+3!
LRTSN ADDEND+3!
LRTSP ADDEND+3!, SEL+1!, SEL+16*
LRUID REF+1~, REF+3*, REF+4, REF+6, REF+8
LRURG TEST+4*, TEST+5, END+3!
LRW END+3!
LRWHOE PT+6*, PT+7*, HEAD+9, HEAD+10!, END+3!
LRWRD HEAD+32, END+3!
ODT CAN+1~, CAN+2*, CAN+3*, CAN+4, CAN+5, CAN+6, CAN+7
ORD EN+1~, CAN~, CAN+3, CAN+4
PNM ADDEND+3!, HEAD+3
SEX ADDEND+3!
SN CAN+1~, CAN+2*, CAN+4*, CAN+5, CAN+6, CAN+7
SSN EN+3!, EN+9, EN+10, ADDEND+3!, HEAD+3
TYPE ADDEND+4!
U CAN+9, PT+6, PT+7, PT+8, HEAD+8, HEAD+13, HEAD+14, HEAD+22, HEAD+26, HEAD+33
, HEAD+34, HEAD+35, HEAD+36, TST+8, TST+9, NXT, SEL+10, SEL+11, SEL+16, SEL+17
, SEL+18, SEL+19, TEST+2, TEST+4, TEST+5
>> VA("BID" END+3!
>> VA("PID" END+3!
VADM END+4!
VAERR END+4!
VAIN END+4!
X NEXT+6!, ADDEND+5!, UNIV+1, NXT*, NXT+1, NXT+5, SEL+7~, SEL+16*, SEL+17, SEL+18
, SEL+19, LU1+1*, LU1+2, LU1+3*, TEST+2*, TEST+3, TEST+4, TEST+6, TEST+9, TEST+10
, REF+8, END+4!
X0 SEL+7~, SEL+8*, SEL+10, SEL+11
X1 END+4!
X2 END+4!
Y EN+9, EN+10, NEXT+2, NEXT+6!, 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